'Importieren der MaxGUI
Import maxgui.cocoamaxgui
Import maxgui.drivers
Import maxgui.fltkmaxgui
Import maxgui.localization
Import maxgui.maxgui
Import maxgui.proxygadgets
Import maxgui.win32maxguiex
'------------------------

Type File
	Field ID:Int
	Field Name:String
	Field Endund:String
End Type

Global packagedatennow:Int = 5 'Anzahl der jetzigen Files
Global packagedatennow2:Int = packagedatennow 'Variable um die bereits aufgeschriebenen dateien zu entdecken
Global packagedatenstd:Int = 0 'Anzahl der Files die vorher im Package waren

Global mainwindow:TGadget = CreateWindow(".SDPak Builder", 200, 200, 500, 500, Null, WINDOW_TITLEBAR|WINDOW_RESIZABLE|WINDOW_MENU|WINDOW_TOOL|WINDOW_ACCEPTFILES|WINDOW_STATUS) 'Ein Fenster machen
Global filelist:TGadget = CreateListBox(0, 0, ClientWidth(mainwindow), ClientHeight(mainwindow), mainwindow) 'eine Listbox im Fenster erstellen

Global FPS:Int = 60
Global FPSTimer:TTimer = CreateTimer(FPS)

SetStatusText mainwindow, "Enthaltene Dateien: " + packagedatennow + " / " + packagedatenstd + ""

'HAUPTSCHLEIFE
Repeat 
	WaitTimer(FPSTimer)

	'Das hier kommt in die LoadFile() - Funktion!
	If(packagedatennow2 > 0) Then
		For Local x:Int = 1 To packagedatennow
			AddGadgetItem filelist, "[Dateiname](" + x + ". Datei im Package)", 0, -1, "[Dateiname].[Dateiendung]"
			packagedatennow2 = packagedatennow2 - 1
		Next
	EndIf
	
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Exit
		Case EVENT_GADGETACTION
			Local fileinfo:String = GadgetItemText(filelist, SelectedGadgetItem(filelist))
			SetStatusText mainwindow, "[Dateiname].[Dateiendung] ([Dateityp])"
	End Select
	WaitEvent()
Forever
End

'FUNKTIONEN
Function LoadFile(filename:String)
	Local file = OpenFile(filename)
	If file = 0 Then
		RuntimeError "Die Datei " + filename + " konnte nicht gefunden werden!"
	EndIf
	
	'Hier kommt noch das laden rein

End Function

Function SaveFile(filename:String)
	Local file = OpenFile(filename + ".sdpak")
	If file = 0 Then
		file = WriteFile(filename + ".sdpak")
	EndIf
	
	'Hier kommt das speichern rein

End Function

Type TMeinObjekt
   Global list:TList=New TList
   Field _link:TLink  'direkte Referenz zu einem Listeneintrag
   Method New()  'wird beim Erstellen des Objektes aufgerufen
      _link=ListAddLast(list,Self)
   EndMethod
   Method Remove() 'zum Entfernen des Objektes aus der Liste
      _link.Remove()
   EndMethod
EndType

For Local obj:TMeinObjekt=EachIn(TMeinObjekt.liste)
   'irgendetwas mit jedem Listeneintrag machen
Next

Local datei:File=File(EventExtra())

Local files:String[]=LoadDir("dir")
For Local file:String=EachIn(files)
   If FileType("dir/"+file)=FILETYPE_FILE ...'mache etwas
Next

Import maxgui.cocoamaxgui
Import maxgui.drivers
Import maxgui.fltkmaxgui
Import maxgui.localization
Import maxgui.maxgui
Import maxgui.proxygadgets
Import maxgui.win32maxguiex

'STANDARTFILE##############################################################
Global CurrentFile:String = "STD.zms"
Global CurrentFileSize
If CurrentFile = "STD.zms" Then
	CurrentFileSize = 0
Else
	CurrentFileSize = FileSize(CurrentFile)
EndIf
'##########################################################################
Global mainwindow:TGadget = CreateWindow("ZMS Editor", 100, 100, 500, 500, WINDOW_MENU | WINDOW_STATUS)
'MENUBAR###################################################################
Global filemenu:TGadget = CreateMenu("Datei", 0, WindowMenu(mainwindow))
CreateMenu "Speichern", 101, filemenu
CreateMenu "Öffnen", 102, filemenu
CreateMenu "Beenden", 103, filemenu

Global helpmenu:TGadget = CreateMenu("Hilfe", 0, WindowMenu(mainwindow))
CreateMenu "Über...", 201, helpmenu
CreateMenu "Befehle", 202, helpmenu

UpdateWindowMenu mainwindow
'##########################################################################
'TEXTFELD###################################################################
Global mainwindowtext:TGadget = CreateTextArea(0, 0, 500, 500, mainwindow)

AddTextAreaText(mainwindowtext, "MinimapIconPos~n")
AddTextAreaText(mainwindowtext, "3500~n")
AddTextAreaText(mainwindowtext, "3000~n")
AddTextAreaText(mainwindowtext, "MissionText~n")
AddTextAreaText(mainwindowtext, "Boss~n")
AddTextAreaText(mainwindowtext, "Töte den Zombie!~n")
AddTextAreaText(mainwindowtext, "AddZombie~n")
AddTextAreaText(mainwindowtext, "zombie1~n")
AddTextAreaText(mainwindowtext, "5000~n")
AddTextAreaText(mainwindowtext, "5000~n")
AddTextAreaText(mainwindowtext, "MissionWon~n")
AddTextAreaText(mainwindowtext, "AllAddedZombiesDead~n")
AddTextAreaText(mainwindowtext, "MissionLost~n")
AddTextAreaText(mainwindowtext, "PlayerDead~n")
AddTextAreaText(mainwindowtext, "EndOfScript")
'###########################################################################
'HAUPTSCHLEIFE##############################################################
Repeat
	SetStatusText mainwindow, "Momentan geöffnete Datei: '" + CurrentFile + "' (Größe: " + CurrentFileSize + " Bytes)"
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Exit
		Case EVENT_MOUSEDOWN
			If EventSource() = mainwindowtext And EventData() = 2 Then
				PopupWindowMenu mainwindow, helpmenu
			EndIf
		Case EVENT_MENUACTION
			Select EventData()
				Case 101
					Notify "Speichern geht noch nicht!"
				Case 102
					Notify "Öffnen auch nicht!"
				Case 103
					Notify "Das geht!"
					Exit
				Case 201
					Notify "v 1.0 des ZombieMissionScriptEditors. ~n (C) by CO2 Software"
				Case 202
					Notify "Hauptbefehle:~n"
					Notify "Nebenbefehle:~n"
			End Select
	End Select
Forever

End
'###########################################################################

Global mainwindow:TGadget = CreateWindow("ZMS Editor", 100, 100, 500, 500,Null, WINDOW_TITLEBAR | WINDOW_MENU | WINDOW_STATUS )

Import maxgui.drivers