Moutain Driver

[peter]

Hello,

Here is it: :D


Uses "ui", "math"
#INCLUDE "abc.inc"

OpenWindow 320, 240
SetHandleDC hdc, hwnd
SetFont 10,10,0,""

Long a, b, c, n
b=5 : c=10

While IsWindow(hwnd) And Key(27)=0
Canvas_Clear &hffffff
For n=0 To 320
DrawPoint n,88+80*Sin(n/128*Pi),2,2,%abc_brown
Next
FloodFill 1, 1, %abc_white,%abc_blue*.9
FloodFill 1,200,%abc_white,%abc_brown

DrawEllipse c,88+80*Sin(c/128*Pi)-10,10,10,2,%abc_yellow
DrawEllipse b,88+80*Sin(b/128*Pi)-10,10,10,2,%abc_yellow
DrawEllipse a,88+80*Sin(a/128*Pi)-10,10,10,2,%abc_yellow

a +=1
b +=1
c +=1

If a >320 Then
a=0
b=5
c=10
End If

DrawText 100,220,"MOUNTAIN DRIVER",%abc_green
Canvas_Redraw
SetFps (80)
Wend
Canvas_Window End

[ReneMiner]

they always get through to the other side of the map and I can not shoot them!
... perhaps I spent too many hours playing tower-defense-games?

runs fine here with no complaints.

[peter]

Thanks Rene,

You better play Doom2 as I do.