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 |