CoolBasic SDK

Earthquake

Include "cbObjects.cb"

KUVAUS
Funktio saa aikaan maanjäristysefektin, jossa kaikki objektit heittelehtivät holtittomasti sinne tänne. Järinän voimakkuutta voi säätää.

Jos haluat että jokin objekti ei osallistu tärinään eli on paikallaan, komenna ObjectIntger objekti, 1

KÄYTTÖ
Earthquake([voimakkuus])
voimakkuus = Tärinän voima, oletus 4

Katso myös:

ESIMERKKI
Include "sdk/include/cbObjects.cb"

FrameLimit 40

'Tee pelimaailma
ruoho = MakeObjectFloor ()
nurmikko = LoadImage ("Media\grass.bmp")
PaintObject ruoho, nurmikko

ukko1 = LoadObject ("Media\guy.bmp",72)
ukko2 = LoadObject ("Media\guy.bmp",72)

'Pyöritä ukot alkuasentoon
RotateObject ukko1,0
RotateObject ukko2,180

'Aseta ukot alkupaikkoihin
PositionObject ukko1,-50,50
PositionObject ukko2,50,-50

Repeat
    
    'Ukon 1 ohjaus
    If LeftKey() Then TurnObject ukko1,5
    If RightKey() Then TurnObject ukko1,-5
    If UpKey() Then MoveObject ukko1,2
    If DownKey() Then MoveObject ukko1,-2
    
    'Ukon 2 ohjaus
    If KeyDown(cbKeyA) Then TurnObject ukko2,5
    If KeyDown(cbKeyD) Then TurnObject ukko2,-5
    If KeyDown(cbKeyW) Then MoveObject ukko2,2
    If KeyDown(cbKeyS) Then MoveObject ukko2,-2
    
    Earthquake()

    DrawGame

    DrawScreen

Forever