Graphics 1280,1024,32,3
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Type Buttontype
   Field x
   Field y
   Field sizex
   Field sizey
   Field aktiv
   Field tex$
End Type
Global mhit1=0

Type Player
   Field speed
   Field bombs
   Field range
   Field lives
   Field x
   Field y
End Type



createButton (500,500,100,50,0,"Hi")

Repeat
   Cls
   mhit1=MouseHit(1)
   Button(1,1,0)
   Flip
Until KeyHit(1)




Function createplayer(x,y)
   P.Player=New Player
   P\speed=2
   P\bombs=1
   P\range=3
   P\lives=3
   P\x=x
   P\y=y
End Function




Function createButton(x,y,sizex,sizey,aktiv,tex$)
   knopf.Buttontype=New Buttontype
   knopf\x=x
   knopf\y=y
   knopf\sizex=sizex
   knopf\sizey=sizey
   knopf\aktiv=aktiv
   knopf\tex=tex
End Function
Function Button(number,See=1,switch=1)
   knopf.Buttontype= First Buttontype
   For i=2 To number
      knopf= After knopf
   Next
   If See=1 Then Rect knopf\x,knopf\y,knopf\sizex,knopf\sizey,0
   If MouseX()>knopf\x And MouseX()<knopf\x+knopf\sizex And MouseY()>knopf\y And MouseY()<knopf\y+knopf\sizey And mhit1=1 Then
      knopf\aktiv=(knopf\aktiv+1) Mod 2
   EndIf
   If knopf\aktiv=1 And See=1 Then
      Line Knopf\x,knopf\y,knopf\x+knopf\sizex,knopf\y+knopf\sizey
      Line knopf\x+knopf\sizex,knopf\y,Knopf\x,knopf\y+knopf\sizey
   EndIf
   If See=1 Then Text knopf\x+knopf\sizex+10,knopf\y,knopf\tex
   Return knopf\aktiv
   If switch=0 Then knopf\aktiv=0
End Function