Tähän väliin kysyisin tääs tyhmän kysymyksen, eli miten saan tämän "polkupyörän" kallistumaan kun se osuu viistoon kuutioon kun nyt se ei erota vinoja kuutioita ja myös toinen, eli miten saan painovoiman alkamaan alusta. Aina kun "pyörä" tippuu esineelle se kyllä pysähtyy, mutta sitten kun mennään pois kuutiolta se tippuu hirveää vauhtia. Toivottavasti joku edes ymmärsi. Kiitos jo etukäteen jos joku jaksaa auttaa. Ja tuossa se koodi:
Code: Select all
SCREEN 150,150
FrameLimit 40
ShowMouse OFF
nappula1=LoadObject("media/aloitapeli.bmp")
nappula2=LoadObject("media/lopetapeli.bmp")
ClsColor cbwhite
hiiri=LoadObject("media/cursor.bmp")
PositionObject nappula1,0,25
PositionObject nappula2,0,0
Repeat
PositionObject hiiri,mousewx(),mousewy()
If ObjectsOverlap(hiiri,nappula1)And MouseHit(1) Then Goto peli
If ObjectsOverlap(hiiri,nappula2)And MouseHit(1) Then End
DrawScreen
Forever
peli:
Const PAINOVOIMA = -0.1
SCREEN 320,240,0,cbfullscreen
ClsColor cbwhite
FrameLimit 40
pyörä = LoadObject("Media\pyörät.bmp", 72)
palikka1 = LoadObject("media\vihreäpalikka.bmp", 72)
palikka2 = LoadObject("media\vihreäpalikka.bmp", 72)
palikka3 = LoadObject("media\vihreäpalikka.bmp", 72)
PositionObject pyörä,10,0
PositionObject palikka1,0,-100
PositionObject palikka2,75,-97
PositionObject palikka3,-75,-70
SetupCollision pyörä,palikka1,1,1,2
SetupCollision pyörä,palikka2,1,1,2
SetupCollision pyörä,palikka3,1,1,2
RotateObject palikka2,20
RotateObject palikka3,90
Repeat
vauhti=0
CloneCameraPosition pyörä
If UpKey() Then MoveObject pyörä,2
If DownKey() Then MoveObject pyörä,-2
TranslateObject pyörä,vauhti,yPlus#
yPlus=yPlus+PAINOVOIMA 'päivitä painovoima
UpdateGame 'päivitä törmäys
CloneCameraPosition pyörä 'liimaa kamera
maassa=0 'ilmassa jollei toisin käy ilmi
törmäykset=CountCollisions(pyörä)
'katsotaan tärmätäänkö kattoon tai lattiaan
For i=1 To törmäykset
If GetCollision(pyörä,i)=kenttä
'lattia
If CollisionAngle(pyörä,i)=90 Then
yPlus#=-1
maassa=1 'jalat on maassa
EndIf
'katto
If CollisionAngle(pyörä,i)=270 Then
yPlus#=-1
EndIf
EndIf
Next i
DrawScreen
Forever