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