1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
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
|
