*** empty log message ***

1 files changed, 129 insertions, 0 deletions

diff --git a/designer.bmx b/designer.bmx
new file mode 100644
index 0000000..7546823
--- /dev/null
+++ b/designer.bmx
@@ -0,0 +1,129 @@
+' Particle Pinch
+'
+' Copyright 2005 Ian Cowburn
+'
+' $Id$
+'
+Strict
+Import noddybox.vector
+Import noddybox.bitmapfont
+Import noddybox.simplegui
+Import "types.bmx"
+Import "level.bmx"
+Import "game.bmx"
+
+Function LevelDesigner()
+	DoDesigner()
+End Function
+
+Private
+
+' **** Globals
+'
+Type Designer
+	Const TEXTX:Int=100
+	
+	Global init:Int=False
+	
+	Global levelset:TLevelSet
+	Global level:TLevel
+	Global levelsetfname:String
+	Global done:Int
+	Global levelindex:Int
+	
+	Global gui:TGUIHandler
+	
+	Global fname_lab:TLabel
+	Global fname_txt:TText
+	
+	Global setname_lab:TLabel
+	Global setname_txt:TText
+	
+	Global levname_lab:TLabel
+	Global levname_txt:TText
+	
+	Global hide_check:TCheckbox
+	
+	Global validbut:TButton
+	Global helpbut:TButton
+	Global quitbut:TButton
+
+	Function Initialise()
+		If Not init
+			TGUIFont.font = GameGFX.guifont
+		
+			levelset = New TLevelSet
+			level = New TLevel
+			levelsetfname = "Default.ppinch"
+			done = False
+			levelindex = 0
+			
+			gui = TGUIHandler.Create()
+			
+			fname_lab = TLabel.Create(gui,0,0,"File")
+			fname_txt = TText.Create(gui,TEXTX,0,"",32)
+			
+			setname_lab = TLabel.Create(gui,0,10,"Levelset name")
+			setname_txt = TText.Create(gui,TEXTX,10,"",32)
+			
+			levname_lab = TLabel.Create(gui,0,20,"Level name")
+			levname_txt = TText.Create(gui,TEXTX,20,"",32)
+			
+			hide_check = TCheckbox.Create(gui,700,0,"Hide GUI",HideCallback)
+			
+			validbut = TButton.Create(gui,650,570,49,29,"Check",CheckCallback)
+			helpbut = TButton.Create(gui,700,570,49,29,"Test",TestCallback)
+			quitbut = TButton.Create(gui,750,570,49,29,"Quit",QuitCallback)
+			levelset.level.AddLast(level)
+			init=True
+		EndIf
+		
+		fname_txt.text = levelsetfname
+		setname_txt.text = levelset.name
+		levname_txt.text = level.name
+	End Function
+End Type
+
+
+' **** Main Loop
+'
+Function DoDesigner()
+	Designer.Initialise()
+	
+	Designer.done=False
+	
+	While Not Designer.done
+		Cls
+		Designer.gui.EventLoop()
+		DrawImage(GameGFX.pointer,MouseX(),MouseY())
+		Flip
+		FlushMem
+	Wend
+End Function
+
+
+' **** Utils
+'
+Function LoadLevel()
+End Function
+
+Function SaveLevel()
+End Function
+
+' **** Callbacks
+'
+Function HideCallback(w:TWidget)
+	Local c:TCheckbox=TCheckbox(w)
+	Designer.gui.SetEnable(Not c.checked)
+	c.enabled=True
+End Function
+
+Function QuitCallback(w:TWidget)
+	Designer.done=GUIYesNo("Quit back to the|main menu of Particle Pinch?",GameGFX.pointer)
+End Function
+
+Function TestCallback(w:TWidget)
+End Function
+
+Function CheckCallback(w:TWidget)
+End Function