Code: Select all
SCREEN 200,100
aloitapeli=LoadObject("media\aloitapeli.bmp")
lopetapeli=LoadObject("media\lopetapeli.bmp")
hiiri=LoadObject ("media\cursor.bmp")
ShowMouse OFF
PositionObject aloitapeli,0,30
PositionObject lopetapeli,0,-20
Repeat
PositionObject hiiri,MouseWX(),MouseWY()
If ObjectsOverlap (hiiri,aloitapeli) And MouseHit(1) Then Goto peli
If ObjectsOverlap (hiiri,lopetapeli) And MouseHit(1) Then End
DrawScreen
Forever
peli:
SCREEN 0,0,0,cbfullscreen
FrameLimit 40
kuollutvihu1=LoadObject("media\kuollutvihu1.bmp",72)
ShowObject kuollutvihu1,OFF
vihu1=LoadObject("media\vihu1.bmp",72)
heppu=LoadObject("media\kamu.bmp",72)
tähtäys=LoadObject("media\hiiri.bmp")
huitaisu=LoadAnimObject("Media\huitaisu2.bmp",150,50,0,11,72)
ShowObject huitaisu,OFF
ObjectRange huitaisu,30,51
PositionObject heppu,500,-400
PositionObject vihu1,500,-425
vihu1elämä=3
Repeat
If vihu1elämä<1 Then PaintObject vihu1,kuollutvihu1
If ObjectsOverlap (heppu,vihu1) And ObjectFrame>1=ObjectY(vihu1),ObjectX(vihu1) Then vihu1elämä-1
PositionObject kuollutvihu1,ObjectX(vihu1),ObjectY(vihu1)
PositionObject tähtäys,MouseWX(),MouseWY()
If KeyDown (17) Then TranslateObject heppu,0,2
If KeyDown (30) Then TranslateObject heppu,-2,0
If KeyDown (31) Then TranslateObject heppu,0,-2
If KeyDown (32) Then TranslateObject heppu,2,0
huitaisu:
If MouseDown(1) Then
PaintObject heppu,huitaisu
PlayObject heppu,0,10,0.40
Else
PlayObject heppu,0
EndIf
PointObject heppu,tähtäys
DrawScreen
Until EscapeKey()
Käytinkö nyt tuota objectframea ihan oikein vai onko vika muualla?