1
+ Rem
2
+ ------- CORTEX COMMAND COMMUNITY PROJECT BENDER -----------------------------------------------------------------------
3
+ EndRem
4
+
5
+ SuperStrict
6
+
7
+ 'Import dependencies into build
8
+ Import MaxGUI.Drivers
9
+ Import BRL.Max2D
10
+ Import BRL.Pixmap
11
+ Import BRL.PNGLoader
12
+ Import BRL.Stream
13
+ Import BRL.EndianStream
14
+
15
+ 'Load assets
16
+ Include " assets.bmx "
17
+
18
+ 'Include individual types
19
+ Include " types/user-interface.bmx "
20
+ Include " types/editor-output.bmx "
21
+ Include " types/file-io.bmx "
22
+ Include " types/bitmap-index.bmx "
23
+
24
+ 'Version
25
+ Global appVersion:String = " 1.2.2"
26
+ Global appVersionDate:String = " 14 Feb 2020"
27
+
28
+ Rem
29
+ ------- BOOT ----------------------------------------------------------------------------------------------------------
30
+ EndRem
31
+
32
+ New TAppGUI
33
+ New TAppOutput
34
+ New TAppFileIO
35
+ New TBitmapIndex
36
+ TAppGUI.FAppEditor()
37
+ TAppOutput.FOutputBoot()
38
+
39
+ Rem
40
+ ------- EVENT HANDLING ------------------------------------------------------------------------------------------------
41
+ EndRem
42
+
43
+ While True
44
+ TAppOutput.FOutputUpdate()
45
+
46
+ If ButtonState(TAppGUI.editSettingsIndexedCheckbox) = True Then
47
+ fileFilters = " Image Files:bmp"
48
+ TAppFileIO.saveAsIndexed = True
49
+ Else
50
+ fileFilters = " Image Files:png"
51
+ TAppFileIO.saveAsIndexed = False
52
+ EndIf
53
+
54
+ WaitEvent
55
+ 'Print CurrentEvent.ToString()
56
+ 'Print GCMemAlloced()
57
+
58
+ 'Event Responses
59
+ Select EventID()
60
+ Case EVENT_APPRESUME
61
+ ActivateWindow(TAppGUI.editWindow)
62
+ TAppOutput.FOutputUpdate()
63
+ Case EVENT_WINDOWACTIVATE
64
+ TAppOutput.FOutputUpdate()
65
+ Case EVENT_GADGETLOSTFOCUS
66
+ TAppOutput.FOutputUpdate()
67
+ Case EVENT_MENUACTION
68
+ Select EventData()
69
+ Case TAppGUI.ABOUT_MENU
70
+ AppTitle = " CCCP Bender v" + appversion
71
+ Notify(LoadText(" Incbin::assets/about-textbox-content" ),False )
72
+ EndSelect
73
+ Case EVENT_GADGETACTION
74
+ Select EventSource()
75
+ 'Quitting confirm
76
+ Case TAppGUI.editQuitButton
77
+ quitResult = Confirm(" Quit program?" )
78
+ 'Loading
79
+ Case TAppGUI.editLoadButton
80
+ TAppFileIO.FLoadFile()
81
+ TAppOutput.FOutputUpdate()
82
+ 'Saving
83
+ Case TAppGUI.editSaveButton
84
+ TAppFileIO.prepForSave = True
85
+ TAppOutput.FOutputUpdate()
86
+ 'Settings textbox inputs
87
+ 'Scale
88
+ Case TAppGUI.editSettingsZoomTextbox
89
+ Local userInputValue:Int = GadgetText(TAppGUI.editSettingsZoomTextbox).ToInt()
90
+ 'Foolproofing
91
+ If userInputValue > 4 Then
92
+ TAppOutput.INPUTZOOM = 4
93
+ ElseIf userInputValue <= 0 Then
94
+ TAppOutput.INPUTZOOM = 1
95
+ Else
96
+ TAppOutput.INPUTZOOM = userInputValue
97
+ EndIf
98
+ SetGadgetText(TAppGUI.editSettingsZoomTextbox,TAppOutput.INPUTZOOM)
99
+ TAppOutput.TILESIZE = 24 * TAppOutput.INPUTZOOM
100
+ TAppOutput.redoLimbTiles = True
101
+ TAppOutput.FOutputUpdate()
102
+ 'Frames
103
+ Case TAppGUI.editSettingsFramesTextbox
104
+ Local userInputValue:Int = GadgetText(TAppGUI.editSettingsFramesTextbox).ToInt()
105
+ 'Foolproofing
106
+ If userInputValue > 20 Then
107
+ TAppOutput.FRAMES = 20
108
+ ElseIf userInputValue <= 0 Then
109
+ TAppOutput.FRAMES = 1
110
+ Else
111
+ TAppOutput.FRAMES = userInputValue
112
+ EndIf
113
+ SetGadgetText(TAppGUI.editSettingsFramesTextbox,TAppOutput.FRAMES)
114
+ TAppOutput.FOutputUpdate()
115
+ 'Bacground Color
116
+ 'Red
117
+ Case TAppGUI.editSettingsColorRTextbox
118
+ Local userInputValue:Int = GadgetText(TAppGUI.editSettingsColorRTextbox).ToInt()
119
+ 'Foolproofing
120
+ If userInputValue > 255 Then
121
+ TAppOutput.BACKGROUND_RED = 255
122
+ ElseIf userInputValue < 0 Then
123
+ TAppOutput.BACKGROUND_RED = 0
124
+ Else
125
+ TAppOutput.BACKGROUND_RED = userInputValue
126
+ EndIf
127
+ SetGadgetText(TAppGUI.editSettingsColorRTextbox,TAppOutput.BACKGROUND_RED)
128
+ TAppOutput.FOutputUpdate()
129
+ 'Green
130
+ Case TAppGUI.editSettingsColorGTextbox
131
+ Local userInputValue:Int = GadgetText(TAppGUI.editSettingsColorGTextbox).ToInt()
132
+ 'Foolproofing
133
+ If userInputValue > 255 Then
134
+ TAppOutput.BACKGROUND_GREEN = 255
135
+ ElseIf userInputValue < 0 Then
136
+ TAppOutput.BACKGROUND_GREEN = 0
137
+ Else
138
+ TAppOutput.BACKGROUND_GREEN = userInputValue
139
+ EndIf
140
+ SetGadgetText(TAppGUI.editSettingsColorGTextbox,TAppOutput.BACKGROUND_GREEN)
141
+ TAppOutput.FOutputUpdate()
142
+ 'Blue
143
+ Case TAppGUI.editSettingsColorBTextbox
144
+ Local userInputValue:Int = GadgetText(TAppGUI.editSettingsColorBTextbox).ToInt()
145
+ 'Foolproofing
146
+ If userInputValue > 255 Then
147
+ TAppOutput.BACKGROUND_BLUE = 255
148
+ ElseIf userInputValue < 0 Then
149
+ TAppOutput.BACKGROUND_BLUE = 0
150
+ Else
151
+ TAppOutput.BACKGROUND_BLUE = userInputValue
152
+ EndIf
153
+ SetGadgetText(TAppGUI.editSettingsColorBTextbox,TAppOutput.BACKGROUND_BLUE)
154
+ TAppOutput.FOutputUpdate()
155
+ EndSelect
156
+ 'Quitting confirm
157
+ Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE
158
+ quitResult = Confirm(" Quit program?" )
159
+ EndSelect
160
+ 'Quitting
161
+ If quitResult Then Exit
162
+ EndWhile
0 commit comments