Graphics 800, 600
AppTitle = "crAzy Fighters"
SetBuffer BackBuffer()

; Ordentliche Schrift setzen
uschrift = LoadFont("Arial",20,0,0,1)
schrift = LoadFont("Arial",14,0,0,0)
press = LoadFont("Arial",30,1,0,0)

;Variablen
Global player_name$ = ""
Global playerx = 300
Global playery = 450
Global richtung$ = ""
Global i = 1
Global ende = 0

;Bilder
fighter = LoadImage(".\images\fighter.bmp")
Global kugel = LoadImage(".\images\kugel.bmp")


; Funktionen


; StartMenu
SetFont  uschrift
Print "CrAzY Fighters"

SetFont schrift
player_name$ = Input("uR niCknaMe: ")

Print "_______________________________________________________"


Print "Okey " + player_name$ + ","
Print "get nEw iTeMs aNd tRy tO kIlL so mUcH u cAn!"
Print ""
Print ""
Print "CoMmAndS:"
Print "Up - UpArrow"
Print "Down - DownArrow"
Print "Left - LeftArrow"
Print "Right - RightArrow"
Print "Fire - Space"
Print "Esc - End"


SetFont press
Text 250,400,"Press any Key to begin..."
Cls

;Spiel beginnt
MaskImage fighter,255,0,255
MaskImage kugel,255,0,255
DrawImage fighter,playerx,playery

While ende = 0
  Cls 

  If KeyDown (1) Then ende = 1
  If KeyDown (205) Then playerx = playerx + 5
  If KeyDown (203) Then playerx = playerx - 5
  If KeyDown (200) Then playery = playery - 5
  If KeyDown (208) Then playery = playery + 5
  If KeyDown (57) Then
    power = 40
    y = playery
    x = playerx
    While y > 0
      y = y - power
      DrawImage kugel,playerx, y
    Flip
    Wend
  EndIf
  DrawImage fighter,playerx,playery
Flip
Wend
End