en oikeen saanut toiimaan madon kasvua, joten jätin pois, mutta laitoin nopeuden lisääntymisen, vaikeuttamaan peliä
eipä muuta, toivottavasti pidätte
Code: Select all
hedimg=MakeImage(10,10)
DrawToImage hedimg
Color 0,150,0
Circle 2,2,7,1
Circle 7,3,2,1
Line 5,5,10,7.5
Line 5,5,10,2.5
DrawToScreen
hed=MakeObject(72)
PaintObject hed,-hedimg
plus#=0.01
Repeat
If UpKey() Then RotateObject hed,90
If LeftKey() Then RotateObject hed,180
If DownKey() Then RotateObject hed,270
If RightKey() Then RotateObject hed,0
r#=r#+plus#
MoveObject hed, r#
If ObjectX(hed)<-200 Then
PositionObject hed,-200,ObjectY(hed)
MakeError "osuit seinään, kuolit"
EndIf
If ObjectX(hed)>200 Then
PositionObject hed,200,ObjectY(hed)
MakeError "osuit seinään, kuolit"
EndIf
If ObjectY(hed)<-150 Then
PositionObject hed,ObjectX(hed),-150
MakeError "osuit seinään, kuolit"
EndIf
If ObjectY(hed)>150 Then
PositionObject hed,ObjectX(hed),150
MakeError "osuit seinään, kuolit"
EndIf
Color 0,200,0
Text 0,0,"nopeus: "+r
DrawScreen
Forever
EDIT2: pistin vielä nopeuden näkymään yläkulmaan