Type food 
Field x,y
End Type
Type rock
Field x,y
End Type
;------------------------------UpdatePlayer()
Function UpdatePlayer() 

; spieler steuerung 
If KeyHit(200) Or JoyY()<-0.5 dir=0
If KeyHit(205) Or JoyX()>0.5 dir=1
If KeyHit(208) Or JoyY()>0.5 dir=2
If KeyHit(203) Or JoyX()<-0.5 dir=3
; steuerungszuweisung
Select dir
Case 0 y=y-speed
Case 1 x=x+speed
Case 2 y=y+speed
Case 3 x=x-speed
End Select
; spieler zeichnen

Color 255,255,255

Rect x,y,10,10
If Not RectsOverlap(x,y,10,10,0,0,790,610) status=0 essen=21


End Function
;-----------------------------Initgame()
Function InitGame() 

x=320
y=240
speed=1
dir=1
status=1
For f.food=Each food Delete f Next 
For r.rock=Each rock Delete r Next

For i=0 To 20 
r.rock=New rock
r\x=Rnd(800)
r\y=Rnd(600)
Next
For i=0 To 20
f.food=New food
f\x=Rnd(800)
f\y=Rnd(600)
Next

End Function 
;-----------------------------------Updaterocksandfood()
Function UpdateRocksandFood() 
; essen 

Color 0,255,0
For f.food=Each food 
Rect f\x,f\y,10,10


If RectsOverlap(x,y,10,10,f\x,f\y,10,10) 


speed=speed+0.2 Delete f essen=essen-1
EndIf  
Next
 
; felsen

Color 255,0,255
For r.rock=Each rock 
Rect r\x,r\y,10,10
 


If RectsOverlap(x,y,10,10,r\x,r\y,10,10) 
status=0 essen=21
EndIf
Next
End Function






; eat the dots 
Graphics 800,600
SetBuffer BackBuffer() 
Global status=0,x#=0,y#=0,speed#=1,dir=1,essen=21,level=1

; hauptschleife
While Not KeyHit(1)
; Bildschirm auffrischung

Flip
Cls
Color 255,255,0
Rect 0,0,800,600,0
Rect 1,1,250,40,0
Rect 1,1,50,40,0
Rect 1,1,150,40,0
Select status

Case 0
Locate 100,100
Print \"Press Enter To Start; Drücken Sie Enter\"
If KeyHit(28) InitGame() 
essen=21
Case 1
UpdatePlayer()
UpdateRocksandFood()
Locate 1,1
Print \"food\"
Locate 1,15
Print essen
Locate 50,1
Print \"speed\"
Locate 50,15
Print speed
If essen=0 status=0 level=level+1
Locate 150,1
Print \"level\"
Locate 150,15
Print level

End Select

Wend
While KeyDown(1)
Cls
Color 255,255,0
Locate 80,100
Print \"Vielen dank, dass Sie Eat the Dots gespielt haben. By BT-Games 2004\"

Wend

WaitMouse
End

If essen=0 status=0 level=level+1