; Einstellungen

Global xmax=1280, ymax=1024
Graphics xmax, ymax, 32, 2 ; Spielfenster Zeichnen
SetBuffer BackBuffer()
Global frametimer = CreateTimer(60)





; Playervariablen

Global player = LoadImage("flubbihut_klein.bmp")
 playerx = 10
 playery = 465
 isjump = False
 canjump = True
 jumpcount = 0
 jumpcountmax = 50
 jumpheight = 100
 Gravity = 2
 ;gravitydelay = 1000
 applyGravity = True
 Global Deaths = 0



;Stachelvariablen
 stachelcount = 2
 stacheldifferenz = 160
Dim stachel(stachelcount)
Dim stachelx(stachelcount)
Dim stachely(stachelcount)

; Blockvariablen
 blockcount = 10
 blockdifferenz = 0
Dim block(blockcount)
Dim blockx(blockcount)
Dim blocky(blockcount)


For i = 1 To blockcount Step 1
block(i) = LoadImage("Block_klein.bmp")
Next

For i = 1 To blockcount Step 1
blockx(i) = blockdifferenz
blockdifferenz = blockdifferenz + 32
If i = 5 Then
blockdifferenz = blockdifferenz + 64
EndIf   
Next

For i = 1 To blockcount Step 1
blocky(i) = 500
Next

For i = 1 To stachelcount Step 1
stachel(i) = LoadImage("stachel_klein.bmp")
Next

For i = 1 To stachelcount Step 1
stachelx(i) = stacheldifferenz
stacheldifferenz = stacheldifferenz + 32
Next

For i = 1 To stachelcount Step 1
stachely(i) = 500
Next


;Transparenzen

MaskImage player,255,0,255
For i = 1 To stachelcount Step 1
MaskImage stachel(i),255,0,255
Next








; Spielschleife

Repeat
WaitTimer (frametimer)
Text 0, 0,"Super Block Jump Alpha 0.1"
Text 1200,10, "Tode:"
Text 1250,10, Deaths



;Drawing
DrawImage player, playerx,playery ; Zeichnet Player
For i = 1 To blockcount Step 1
DrawImage block(i), blockx(i),blocky(i) ; Zeichnet Blöcke
Next

For i = 1 To stachelcount Step 1
DrawImage stachel(i), stachelx(i), stachely(i) ;zeichnet Stacheln
Next




;Kollisionsabfrage
For i = 1 To blockcount Step 1
If ImagesCollide(player, playerx, playery,0, block(i), blockx(i), blocky(i),0) Then


applyGravity = False
canjump = True

Exit

Else
applyGravity = True
canjump = False

EndIf
Next

For i = 1 To stachelcount Step 1
If ImagesCollide(player, playerx, playery,0, stachel(i), stachelx(i), stachely(i),0) Then
playerx = 10
playery = 465
Deaths = Deaths + 1
EndIf
Next




;Eingabe-Abfrage
If KeyDown(30) Then playerx = playerx - 1
EndIf
If KeyDown(32) Then playerx = playerx + 1
If KeyHit(57) And canjump = True Then
isjump = True
EndIf






; Jump-Routine

If isjump = True Then
applyGravity = False
jumpcount = jumpcount + 1
playery = playery - 2
canjump = False

If jumpcount = jumpcountmax Then
isjump = False
applyGravity = True
jumpcount = 0
EndIf
EndIf
If applyGravity = True Then playery = playery + Gravity ;fragt ab ob man Springt sonst Schwerkraft













;Endbereich

Flip ;Buffer wechseln
Cls ;Unsichtbares löschen (Bildschirm von Unnötigen Sachen reinigen)
Until KeyHit(1)
End

For i = 1 To stachelcount Step 1
stachel(i) = LoadImage("stachel_klein.bmp")
Next

Stachel_IMG = LoadImage("stachel_klein.bmp")
For i = 1 To stachelcount
stachel(i) = Stachel_IMG
Next

#tileset
#map
#binfile <MapIdentifier>.dat 32
<MapWidth:"32">
<MapHeight:"32">
#mapdata
<TSMidTile>
#end mapdata
#end binfile
#end map
#end tileset

Function LoadMap( pMap$ )
   
   Local file, filename$, x, y

   filename$ = "lvl\" + pMap$ + ".dat"
   file = ReadFile( filename$ )
   If Not file Then RuntimeError "File " + filename$ + " not found"
   gMapWidth   = ReadInt(file)
   gMapHeight   = ReadInt(file)
   

   Dim map(gMapWidth, gMapHeight)
   
   For y =  gMapHeight-1 To 0 Step -1
      For x = 0 To gMapWidth-1
   
         map(x,y) = ReadInt(file)

      Next
   Next
   
   CloseFile file

End Function