Graphics 800,600
SetBuffer BackBuffer()


;Images
temp_img = LoadAnimImage("temp.bmp",32,32,0,2)

;Variabeln
Dim level(1023,17)

.Jumpdaten
Data 3,4,6,8,13,16,20,23,26,28,31,32,34,35,36,37,36,35,34,32,31,28,26,23,20,16,13,8,4,6,3
         
; Levelladen
level_file = readfile("level1.dat")

tileset = LoadAnimImage(tiles.bmp,32,32,0,69)
 
For I = 0 To 1023
   For P = 0 To 17
        level(I,P) = readline(level_file)
        if level(I,P) = 68 Then
         px = I*32     ;Spieler Position setzten
      py = P*32+16           ´; - " -
     endif
  Next
Next

;Schleife

While Not KeyHit(1)
Cls


mx = MouseX()
my = MouseY()


For I = Ceil(scroll_x/32) To Ceil(scroll_x/32)+25
 For P = 0 To 17                              
  If level(I,P) >= 0 Then DrawImage tileset,I*32-scroll_x,P*32,level(I,P)
 Next
Next


include "fnf_inc_jumping.bb"

include "fnf_inc_animation.bb"   ; für das Problem unwichtig


if jump = 0 Then DrawImage temp_img,px,py,anim_step
if jump = 1 Then
 DrawImage temp_img,px,temp_py,anim_step
 temp_py = py-jump_y
endif

Flip
Wend

end

if jump = 0 then jump_y = 0

If KeyHit(57) And jump = 0 Then
 jump = 1
 temp_py = py
endif

If jump = 1 And jump_timer < MilliSecs() Then
   If jump_step = 29 Then
    jump = 0
    jump_step = 0
    Restore Jumpdaten
   EndIf
   
   If jump_step < 29 Then
      Read jump_y
      jump_y = jump_y*1.5
      jump_step = jump_step + 1
   EndIf
   
   jump_timer = MilliSecs()+20
EndIf

lockbuffer backbuffer()
 col_point6_rgb = readpixelfast(px+8,py+33)
 col_point6_r=(col_point6_rgb AND $FF0000)/$10000
 col_point6_g=(col_point6_rgb AND $FF00)/$100
 col_point6_b=col_point6_rgb AND $F
 
 if col_point6_r + col_point6_g + col_point6_b = 0 then
   Text 200,400,"Kollision Wahh"
 else
  py = py - 1   
 endif
unlockbuffer backbuffer()

tile_x = px/32
tile_y = (py+32)/32
if level(tile_x,tile_y) <> 0 then
 if imagesCollide(player,px,py+32,frame,tiles,tile_x*32,tile_y*32,level(tile_x,tile_y))
  Text 200,400,"Wahhhhh eine Kollision"
 else
  py = py - 1
 endif
endif