;####################################

;-------------------------------------------------------------------------------------------------------
;------------------------- TILE MAP EDITOR v1.0 --------- by Schranz0r -------------------------------
;-------------------------------------------------------------------------------------------------------

;####################################


AppTitle "Tretze - Map Editor v1.0"
Graphics 800,600,0,2
SetBuffer BackBuffer()

Global Wahl = 2
Global Wahlname$ = "Spielstein grün"
Global tiles = LoadImage("gfx\tiles.png")

Bigfont = LoadFont (Arial, 18, True, False, False)
Maxfont = LoadFont (Arial, 50, True, False, True)


Repeat
FlushKeys
 Cls 
   SetFont Maxfont
   FlushKeys
   Text 400,200,"TRETZE LEVEL EDITOR v1.0",1,1
	 SetFont Bigfont
	 Text 400,320,"MIT -> L <- MAP LADEN",1,1
   Text 400,340,"MIT -> S <- MAP SPEICHERN",1,1
   Text 400,360,"MIT -> ESC <- EDITOR BEENDEN",1,1
	 Text 400,380,"RECHTE MAUSTASTE LÖSCHEN",1,1
	 Text 400,400,"LINKE MAUSTASTE TILE ZEICHEN",1,1
	 Text 400,440,"DRÜCKE -> ENTER <- UM LOS ZU LEGEN",1,1
Flip
Until KeyHit(28)

Dim Level(39,29)
;neu=ReadFile("levels\default.dat")  ;----AUSKOMMENTEIREN, UM NULLMAP ZU MACHEN 
For y=0 To 29
For x=0 To 39
Level(x,y)=1 ;--------------------------VERFUGBAR MACHEN,UM NULLMAP ZU ERSTELLEN (ALLES BODEN)

;Level(x,y)=ReadLine(neu) ;----AUSKOMMENTEIREN, UM NULLMAP ZU MACHEN 
Next
Next
CloseFile datei



Repeat
Cls
If KeyHit(2) Then Wahl = 2 : Wahlname$ = "Spielstein grün"
If KeyHit(3) Then Wahl = 3 : Wahlname$ = "Spielstein gelb"
If KeyHit(4) Then Wahl = 4 : Wahlname$ = "Wand"
If KeyHit(5) Then Wahl = 0 : Wahlname$ = "Fixe Wand" ; VERFÜGBAR MACHEN, WENN NULLMAP BEARBEITET WIRD



For y=0 To 29
 For x=0 To 39
  Select Level(x,y)
    Case 0 ;----------- FIXE WAND
			DrawBlockRect tiles, x*20, y*20, 0, 0, 20, 20
	  Case 1 ;----------- BODEN
      DrawBlockRect tiles, x*20, y*20, 60, 0, 20, 20
	  Case 2 ;----------- SPIELSTEIN GRÜN
	    DrawBlockRect tiles, x*20, y*20, 40, 0, 20, 20
		Case 3 ;----------- SPIELSTEIN GELB
	    DrawBlockRect tiles, x*20, y*20, 20, 0, 20, 20	
		Case 4 ;----------- WAND
	    DrawBlockRect tiles, x*20, y*20, 0, 0, 20, 20	
  End Select
 Next
Next

  Mx = MouseX()/20
	My = MouseY()/20

;-----------------------MAUS RECT-----------------------------------	
	
If Level(Mx,My) > 0 Then
    Color 255,0,0
    Rect Mx*20, My*20, 20, 20, 0
EndIf
;-------------------------------------------------------------------

Color 255,255,255

If Level(Mx,My) => 1 And MouseDown(1) Then
	 Level(Mx,My) = Wahl
EndIf  
If Level(Mx,My) => 1 And MouseDown(2) Then
	 Level(Mx,My) = 1
EndIf     


;----------------------------- TEXT ANZEIGEN------------------------
Color 255,255,0
  Text 5,2,"Feld X: "+ (Mx + 1)
  Text 5,22,"Feld Y: "+ (My + 1)
	Text 100,2,"Gewähltes Tile: "+  Wahlname$
	Text 350,22,"Tiles wählen: 1 = Spielstein grün, 2 = Spielstein gelb, 3 = Wand"
	Text 350,2,"S = SPEICHERN, L = LADEN, ESC = BEENDEN"
	

;-------------------------- MAP SPEICHERN --------------------------
If KeyHit(31) Then
	FlushKeys
  Color 0,0,0
  Rect 0, 0, 800, 20, 1
  Color 255,255,255
	Locate 0,2
  Name$ = Input("Name der Map? : ")
	Select Name$
	  Case ""
			 Text 150,2,"Kein Mapname eingegeben"
			 WaitKey
		Default
	FlushKeys
  datei=WriteFile("levels\"+Name$+".dat")
  For y=0 To 29
		For x=0 To 39
      WriteLine datei,Level(x,y) 
    Next
	Next
  CloseFile datei
 End Select
EndIf

;------------------------- MAP LADEN ------------------------------
If KeyHit(38) Then
  FlushKeys
  Color 0,0,0
  Rect 0, 0, 800, 20, 1
  Color 255,255,255
  Locate 0,5
  Name$ = Input("Welche Map laden? : ")
	Select Name$
	  Case ""
	     Text 150,2,"Kein Mapname eingegeben"
			 WaitKey
	  Default
		If FileType("levels\"+Name$+".dat") = 1 Then
     FlushKeys
     datei=ReadFile("levels\"+Name$+".dat")
     For y=0 To 29
        For x=0 To 39
				  Level(x,y)=ReadLine(datei)
        Next
     Next
     
		Else
		 Text 200,2,"Map nicht vorhanden"
			 WaitKey
			 CloseFile datei
		EndIf
		FlushKeys
	End Select
EndIf

	
Flip

Until KeyHit(1)

End