Graphics 1024,768,16,0

SetBuffer BackBuffer()
Timer=CreateTimer(60)

AutoMidHandle True

Global char = LoadImage("space.bmp")
Global shot = LoadImage("kugel.bmp")
Global enemy = LoadImage("enemy.bmp")
Global hero_x = GraphicsWidth() /2, hero_y = GraphicsHeight() - 100
Global enemy_x = GraphicsWidth() /2, enemy_y = 100

Global treffer = 0
Global last_shot


Type Tshot
  Field x
  Field y
End Type

Repeat
  Cls

  movechar()
  moveshot()
  hit()

  WaitTimer(Timer)
  Flip 0
Until KeyHit(1)

Function movechar()
  If KeyDown(203) Then hero_x = hero_x-5
  If KeyDown(205) Then hero_x = hero_x+5
  If KeyDown(208) Then hero_y = hero_y+5
  If KeyDown(200) Then hero_y = hero_y-5
 
  DrawImage enemy, enemy_x, enemy_Y
  DrawImage char, hero_x, hero_y
End Function


Function moveshot()
  ;mit Millisecs() fragst du die aktuelle Systemzeit in Millisekunden ab

  If KeyDown(57) And MilliSecs() > last_shot + 100 Then
 
    info.Tshot = New Tshot
    info\x = hero_x
    info\y = hero_y

    last_shot = MilliSecs() ; hier merken wir uns, wann genau der letzte Schuss abgefeuert wurde
  End If

  For info.Tshot = Each Tshot
    info\y = info\y - 10
    DrawImage shot, info\x, info\y

    ;Ein Schuss der aus dem Bild fliegt, wird nicht mehr benötigt und kann gelöscht werden:
    If info\y < -10 Then Delete info
  Next
End Function

Function hit()
  For info.Tshot = Each Tshot
    x1 = info\x - ImageWidth (shot)/2
    y1 = info\y - ImageHeight (shot)/2
    w1 = ImageWidth (shot)
    h1 = ImageHeight (shot)

    x2 = enemy_x - ImageWidth(enemy)
    y2 = enemy_y - ImageHeight(enemy)
    w2 = ImageWidth (enemy)
   h2 = ImageHeight (enemy)

    If RectsOverlap (x1,y1,w1,h1, x2,y2,w2,h2) Then
      treffer = treffer + 1
      Delete info
    End If
  Next

  Color 255,0,0 : Text 10,10,"Score: "+treffer
End Function

x2 = enemy_x - ImageWidth(enemy) /2
y2 = enemy_y - ImageHeight(enemy) /2

Color 255,0,0 : Rect (x1,y1,w1,h1,0) : Rect (x2,y2,w2,h2,0)

info.Tshot