Tämän hetkinen tilanne:
Code: Select all
SCREEN 800,600
map = MakeImage(ScreenWidth(),ScreenHeight())
DrawToImage map
For x = o To ImageWidth(map)
For y = o To ImageHeight(map)
Color 0,Rand(100,150),0
Dot x,y
Next y
Next x
DrawToScreen
Dim ROAD(360)
road_img = MakeImage(100,25)
DrawToImage road_img
For x = 0 To 19
For y = 0 To 25
brown = Rand(50,100)
Color brown+100,brown+50,0
Dot x,y
Next y
Next x
For x = 20 To 39
For y = 0 To 25
brown = Rand(50,100)
Color brown+50,brown,0
Dot x,y
Next y
Next x
For x = 40 To 59
For y = 0 To 25
brown = Rand(50,100)
Color brown+100,brown+50,0
Dot x,y
Next y
Next x
For x = 60 To 79
For y = 0 To 25
brown = Rand(50,100)
Color brown+50,brown,0
Dot x,y
Next y
Next x
For x = 80 To 100
For y = 0 To 25
brown = Rand(50,100)
Color brown+100,brown+50,0
Dot x,y
Next y
Next x
DrawToScreen
RotateImage Road_img, 90
For angle = 0 To 360
ROAD(angle) = CloneImage(Road_img)
RotateImage ROAD(angle), -angle
Next angle
ix# = ScreenWidth()/2
iy# = ScreenHeight()/2
Repeat
DrawImage map,0,0
If KeyDown(203) Then angle = angle + 1
If KeyDown(205) Then angle = angle - 1
If angle < 0 Then angle = 360
If angle > 360 Then angle = 0
If t > 0 Then t = t - 1
If KeyDown(57) And t = 0 Then
t = 50
DrawToImage map
DrawImage ROAD(angle), ix#,iy#
ix# = ix# + Cos(angle)*20
iy# = iy# - Sin(angle)*20
DrawToScreen
EndIf
DrawGame
Color 255,0,0
Text 0,0,"Angle = "+angle
DrawScreen
Until KeyHit(1)