Graphics 800,600,32,2
SeedRnd MilliSecs()
Global mouse = CreateImage(32,32);Das "mausbild"
Global empty = CreateImage(32,32);Um die maus "zurückzusetzen"
SetBuffer BackBuffer()
Global tileset1     = LoadAnimImage("tiles01.bmp",32,32,0,10)
Global streetbutton = LoadAnimImage("streetbutton.bmp",50,50,0,2)
Global street = LoadAnimImage ("streettile.bmp",32,32,0,6)
Dim baumodi(1);Die Baumodi
Global mx = MouseX()/32
Global my = MouseY()/32

MaskImage streetbutton,255,0,0
MaskImage tileset1,255,0,0

Dim nr(1); Die Frames(fuer alles)
nr(0) = 1 ;Wegen Malfehler ;)
Dim map(17,17)
For y = 0 To 17
For x = 0 To 17
s = Rand(20)
If s = 10 Then
booley = Rand(0,3)
Else booley = 0
End If
map(x,y) = booley
Next
Next
;------------MAINLOOP----------------------------
While Not KeyHit(1)
Cls
DrawMap()
mx = MouseX()/32
my = MouseY()/32


If ImagesOverlap(mouse,MouseX(),MouseY(),streetbutton,576,100) And MouseHit(1) Then

If baumodi(0) = 1 Then
baumodi(0) = 0
nr(0) = 1
mouse = empty
Else
baumodi(0) = 1
nr(0) = 0
End If
End If
If Baumodi(0) = 1 Then
mouse = street
If MouseHit(2) Then
nr(1) = nr(1) + 1
If nr(1) = 6 Then nr(1) = 0
End If
If MouseHit(1) Then
mx = MouseX()/32
my = MouseY()/32

map(mx,my) = 4
End If
End If

Flip
Wend
;-----------FUNCTIONS----------------------------
Function DrawMap()
For y = 0 To 17
For x = 0 To 17
DrawImage tileset1,x*32,y*32,map(x,y)
Next
Next
Color 128,128,128
Rect 576,100,50,300
DrawImage streetbutton,576,100,nr(0)
DrawImage mouse,MouseX(),MouseY(),nr(1)
End Function

...
;Hauptschleife
mHit1 = MouseHit (1)

If ImagesOverlap(mouse,MouseX(),MouseY(),streetbutton,576,100) And  mHit1    Then
....
....

If Baumodi(0) = 1 Then
mouse = street
If Mhit2 Then
nr(1) = nr(1) + 1
If nr(1) = 6 Then nr(1) = 0
End If
If Mhit1 Then
mx = MouseX()/32
my = MouseY()/32
map(mx,my) = 4
End If
End If