Graphics 640, 480



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;Grafiken

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
hintergrund = LoadImage("hintergrund.bmp")
links = LoadImage("Data/Grafiken/links.bmp")
rechts = LoadImage("Data/Grafiken/rechts.bmp")
strecke1 = LoadImage("strecke.bmp")
a=LoadImage("Data/Grafiken/fahrtrichtung/vorne.bmp")
b=LoadImage("Data/Grafiken/fahrtrichtung/unten.bmp")
c=LoadImage("Data/Grafiken/fahrtrichtung/rechts.bmp")
d=LoadImage("Data/Grafiken/fahrtrichtung/links.bmp")



SetBuffer BackBuffer()

Cls

tileset = LoadAnimImage("tileset.bmp",100,100,0,7)
Dim map(5,5) ; Speicherplatz ist wertvoll

Data 6,4,2,6,6,6   ; Data-Feld berichtigt 
Data 6,5,5,6,6,6 
Data 6,5,5,6,6,6 
Data 6,5,3,1,1,2 
Data 6,3,1,1,1,0 
Data 6,6,6,6,6,6 

 For y = 0 To 5
 For x = 0 To 5
Read map(x,y) 
Next 
Next 

Repeat 
If KeyDown(1) Then End   
Cls 

For y = 0 To 5 
For x = 0 To 5 
DrawImage tileset,x*100,y*100,map(x,y) 
Next 
Next






speed = 1

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


Select dir
Case 0 y=y-speed
Case 1 x=x+speed
Case 2 y=y+speed
Case 3 x=x-speed
End Select



If dir=0 DrawImage a,x,y
If dir=1 DrawImage c,x,y
If dir=2 DrawImage b,x,y
If dir=3 DrawImage d,x,y

Flip
Forever