Graphics 800,600,16,1
SetBuffer BackBuffer()
AppTitle "Tower Defense V 0.0.1"

Type g
Field x,y,leb,wp.p
End Type

Type p
Field x,y
End Type

Global p.p

Global map_Img
Dim map(15,15)

Global timer = MilliSecs(),FPS_Count,FPS

ReadMap(1)

Repeat
If timer <= MilliSecs() -1000 Then FPS = FPS_Count:FPS_Count = 0:timer = MilliSecs()
If KeyHit(57) Then CreateG()
For xx = 0 To 15
For yy = 0 To 15
If map(xx,yy) = 0
Color 100,100,100
Rect xx*30,yy*30,30,30
Else
Color 128,64,0
Rect xx*30,yy*30,30,30
EndIf
Color 255,255,255
;Rect xx*30,yy*30,30,30,0
Next
Next
;If Map_Img <> 0 DrawImage Map_Img,0,0
Color 255,0,0
For p.p = Each p
;Oval p\x,p\y,30,30
Next
For g.g = Each g
If g\x > g\wp\x Then g\x = g\x - 1
If g\x < g\wp\x Then g\x = g\x + 1
If g\y > g\wp\y Then g\y = g\y - 1
If g\y < g\wp\y Then g\y = g\y + 1
Color 0,255,0
Rect g\x,g\y,30,30
If g\x = g\wp\x And g\y = g\wp\y Then g\wp.p = After g\wp.p
If g\wp.p = Null Then Delete g.g
Next
FPS_Count = FPS_Count + 1
Text 1,500,"FPS : "+FPS
Flip
Cls
Until KeyHit(1)
End

Function CreateG(Lebn=10)
p2.p = First p
g.g = New g
g\x = p2\x
g\y = p2\y
g\leb = lebn
g\wp.p = After First p
End Function



Function ReadMap(Nr)
dat = ReadFile("Maps\Map"+Nr+".map")
If dat <> 0
For x = 0 To 15
For y = 0 To 15
map(x,y) = ReadInt(dat)
Next
Next
ID = ReadInt(dat)
For i = 1 To ID
p.p = New p
p\x = ReadInt(dat)*30
p\y = ReadInt(dat)*30
Next
CloseFile(dat)
map_Img = LoadImage("Maps\Map"+Nr+".bmp"):MaskImage map_img,0,0,0
EndIf
End Function