AppTitle "RPG"


;variablen
;---------------------------------------------------------------------------------
Global ppx = 10*32 ;X-Position des Charackters
Global ppy = 7*32  ;Y-Position des Charackters

Global py = 7      ;Kollisions X-Position des Charackters
Global px = 10     ;Kollisions Y-Position des Charackters

Global scrolly     ;Die Variable fr die ScrollY-Position
Global scrollx     ;Die Variable fr die ScrollX-Position

Global gold = 10     ;start geld
;-------------------------------------------------------------------------------



;-------------------------------------------------------------------------------

file = ReadFile("data/map/testmap.ini")
   
   ReadLine(file)   
   m_x = ReadLine(file)
   m_y = ReadLine(file)
   
CloseFile file

ts_info = ReadFile("data/gfx/tileset/tileset_01.ini")
   set_tiles = ReadLine(ts_info)
CloseFile ts_info

Graphics 1024,768,32,0


;--------------------------------------------------------------------------------------------------------------

Repeat
SetBuffer BackBuffer()
Cls






t_set = LoadAnimImage("data/gfx/tileset/tileset_01.bmp", 32, 32, 0, set_tiles)
char = LoadImage("data/gfx/tileset/figur.bmp")

MaskImage char ,255,255,255



Dim m_map(m_x,m_y)


datei=ReadFile("data/map/testmap.map")
   
   
   For y=0 To m_y-1
      For x=0 To m_x-1
         m_map(x,y) = ReadLine(datei)
      Next
   Next
   CloseFile datei



   For y=0 To m_y-1
   For x=0 To m_x-1
   
   ;hier werde die bilder gezeichnet      
   DrawImage t_set, x*32-scrollx, y*32-scrolly, m_map(x,y)
   DrawImage char,ppx-scrollx,ppy-scrolly
   
   
   Next
   Next



;----Bewegungsroutinen------------------------------------------------------------------------
Print "------"
Print "px"
Print px
Print "------"

Print "------"
Print "py"
Print py
Print "------"

Print "------"
Print "ppx"
Print ppx
Print "------"

Print "------"
Print "ppy"
Print ppy
Print "------"

Print "------"
Print "counter"
Print  counter
Print "------"

   
Select move
 
 ;links
   Case 1
      ;Spielerposition ndern
      scrollx = scrollx - 2
      ppx = ppx - 2
      ;Variable, die zhlt wie weit der Spieler bereits bewet wurde
      counter=counter+1
      If counter = 16 Then
         px = px - 1
         counter = 0
         move = 0
      EndIf
   
;Rechts
   Case 2
      ;Spielerposition ndern
      scrollx = scrollx + 2
      ppx = ppx + 2
      ;Variable, die zhlt wie weit der Spieler bereits bewet wurde
      counter = counter+1
      If counter = 16 Then
         px = px + 1
         counter = 0
         move = 0
      EndIf


;runter
Case 3
    ;Spielerposition ndern
      scrolly = scrolly + 2
      ppy = ppy + 2
      ;Variable, die zhlt wie weit der Spieler bereits bewet wurde
      counter = counter+1
      If counter = 16 Then
         py = py + 1
         counter = 0
         move = 0
      EndIf


;rauf
Case 4
    ;Spielerposition ndern
      scrolly = scrolly - 2
      ppy = ppy - 2
      ;Variable, die zhlt wie weit der Spieler bereits bewet wurde
      counter = counter+1
      If counter = 16 Then
         py = py - 1
         counter = 0
         move = 0
      EndIf

End Select

;Cursor Rechts
If KeyDown(205) Then
   ;Kollision checken, wie ihr es schon kennt
   If m_map(px+1,py) < 3 Then
      ;der nchste Tastatur-eingabe-impuls wird mglich sobald die vorige Bewegung abgeschlossen ist
      ;das heit in der Zeit wo keine Tastatur-eingabe erfolgen kann wird zur Zeit gescrollt
      If move=0 Then
         ;die Scrollroutine move=2   (  Case 2 ) wird aufgerufen
         move = 2
      End If
   End If
End If

;Cursor Links
If KeyDown(203) Then
   ;Kollision checken, wie ihr es schon kennt
   If m_map(px-1,py) < 3 Then
      ;der nchste Tastatur-eingabe-impuls wird mglich sobald die vorige Bewegung abgeschlossen ist
      ;das heit in der Zeit wo keine Tastatur-eingabe erfolgen kann wird zur Zeit gescrollt
      If move=0 Then
         ;die Scrollroutine move=1    ( Case 1 ) wird aufgerufen
         move = 1
      End If
   End If
End If


;runter key
   If KeyDown(208) Then
      If m_map(px,py+1) < 3 Then
         If move = 0 Then
         move = 3           
         End If
      End If
   End If




;rauf key
   If KeyDown(200) Then
      If m_map(px,py-1) < 3 Then
         If move = 0 Then
         move = 4           
         End If
      End If
   End If




;----------------------------------------------------------------------------------------------------------



If KeyHit (1) Then End


Flip


Forever