Created
November 20, 2024 13:05
-
-
Save indra87g/1cb96d0d977e331b50bc669aa0eb2d22 to your computer and use it in GitHub Desktop.
Revisions
-
indra87g created this gist
Nov 20, 2024 .There are no files selected for viewing
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters. Learn more about bidirectional Unicode charactersOriginal file line number Diff line number Diff line change @@ -0,0 +1,1112 @@ {$CLEO} /* what this is? this is a base menu by me (muhammad herizal) i hope you can understand it. :) */ 0000: const ACCEPT = 161 BACK = 8 UP = 38 DOWN = 40 ACCEPTNUM = 101 BACKNUM = 96 UPNUM = 104 DOWNNUM = 98 ACCEPTJPAD = 11 BACKJPAD = 10 UPJPAD = 8 DOWNJPAD = 9 LEFT = 37 RIGHT = 39 LEFTNUM = 100 RIGHTNUM = 102 LEFTJPAD = -1 RIGHTJPAD = -1 end //----press F4 to show---- :begin while true wait 0 if 0AB0: key_pressed 115 // F4 then if 0@ == 0 then 018C: play_sound 1057 at 0.0 0.0 0.0 else 018C: play_sound 1135 at 0.0 0.0 0.0 end 0@ = 1 gosub @load_text repeat wait 0 gosub @base_opt_box 03F0: enable_text_draw 0 gosub @engine until if 8AB0: not key_pressed 115 break end gosub @engine end //----menu control---- :base_option while true wait 0 if 0AB0: key_pressed 115 then 018C: play_sound 1145 at 0.0 0.0 0.0 repeat wait 0 gosub @engine until if 8AB0: not key_pressed 115 gosub @hide_menu else end gosub @engine gosub @base_opt_box 03F0: enable_text_draw 0 if or 00E1: player 0 pressed_key UPJPAD 0AB0: key_pressed UP 0AB0: key_pressed UPNUM then 018C: play_sound 1135 at 0.0 0.0 0.0 0@ -= 1 if 0 >= 0@ then 0@ = 15 end while true wait 0 gosub @engine gosub @base_opt_box 03F0: enable_text_draw 0 if and 80E1: not player 0 pressed_key UPJPAD 8AB0: not key_pressed UP 8AB0: not key_pressed UPNUM then break else if or 00E1: player 0 pressed_key ACCEPTJPAD 0AB0: key_pressed ACCEPT 0AB0: key_pressed ACCEPTNUM 00E1: player 0 pressed_key BACKJPAD 0AB0: key_pressed BACK 0AB0: key_pressed BACKNUM then break end end end end if or 00E1: player 0 pressed_key DOWNJPAD 0AB0: key_pressed DOWN 0AB0: key_pressed DOWNNUM then 018C: play_sound 1135 at 0.0 0.0 0.0 0@ += 1 if 0@ >= 16 then 0@ = 1 end while true wait 0 gosub @engine gosub @base_opt_box 03F0: enable_text_draw 0 if and 80E1: not player 0 pressed_key DOWNJPAD 8AB0: not key_pressed DOWN 8AB0: not key_pressed DOWNNUM then break else if or 00E1: player 0 pressed_key ACCEPTJPAD 0AB0: key_pressed ACCEPT 0AB0: key_pressed ACCEPTNUM 00E1: player 0 pressed_key BACKJPAD 0AB0: key_pressed BACK 0AB0: key_pressed BACKNUM then break end end end end if or 00E1: player 0 pressed_key LEFTJPAD 0AB0: key_pressed LEFT 0AB0: key_pressed LEFTNUM then 018C: play_sound 1135 at 0.0 0.0 0.0 if or 0@ == 5 0@ == 4 0@ == 3 0@ == 2 then 0@ = 1 else 0@ -= 5 if 0 >= 0@ then 0@ = 15 end end while true wait 0 gosub @engine gosub @base_opt_box 03F0: enable_text_draw 0 if and 80E1: not player 0 pressed_key LEFTJPAD 8AB0: not key_pressed LEFT 8AB0: not key_pressed LEFTNUM then break else if or 00E1: player 0 pressed_key ACCEPTJPAD 0AB0: key_pressed ACCEPT 0AB0: key_pressed ACCEPTNUM 00E1: player 0 pressed_key BACKJPAD 0AB0: key_pressed BACK 0AB0: key_pressed BACKNUM then break end end end end if or 00E1: player 0 pressed_key RIGHTJPAD 0AB0: key_pressed RIGHT 0AB0: key_pressed RIGHTNUM then 018C: play_sound 1135 at 0.0 0.0 0.0 if or 0@ == 11 0@ == 12 0@ == 13 0@ == 14 then 0@ = 15 else 0@ += 5 if 0@ >= 16 then 0@ = 1 end end while true wait 0 gosub @engine gosub @base_opt_box 03F0: enable_text_draw 0 if and 80E1: not player 0 pressed_key RIGHTJPAD 8AB0: not key_pressed RIGHT 8AB0: not key_pressed RIGHTNUM then break else if or 00E1: player 0 pressed_key ACCEPTJPAD 0AB0: key_pressed ACCEPT 0AB0: key_pressed ACCEPTNUM 00E1: player 0 pressed_key BACKJPAD 0AB0: key_pressed BACK 0AB0: key_pressed BACKNUM then break end end end end if or 00E1: player 0 pressed_key BACKJPAD 0AB0: key_pressed BACK 0AB0: key_pressed BACKNUM then 018C: play_sound 1135 at 0.0 0.0 0.0 while true wait 0 gosub @engine gosub @base_opt_box 03F0: enable_text_draw 0 if and 80E1: not player 0 pressed_key BACKJPAD 8AB0: not key_pressed BACK 8AB0: not key_pressed BACKNUM then break end end 0@ = 1 goto @begin end //this is menu select section if or 00E1: player 0 pressed_key ACCEPTJPAD 0AB0: key_pressed ACCEPT 0AB0: key_pressed ACCEPTNUM then 018C: play_sound 1135 at 0.0 0.0 0.0 //menu 1 - 15, you can increase or decrease if you want if 0@ == 1 then else if 0@ == 2 then else if 0@ == 3 then else if 0@ == 4 then else if 0@ == 5 then else if 0@ == 6 then else if 0@ == 7 then else if 0@ == 8 then else if 0@ == 9 then else if 0@ == 10 then else if 0@ == 11 then else if 0@ == 12 then else if 0@ == 13 then else if 0@ == 14 then else if 0@ == 15 then else end end end end end end end end end end end end end end end while true wait 0 gosub @engine gosub @base_opt_box 03F0: enable_text_draw 0 if and 80E1: not player 0 pressed_key ACCEPTJPAD 8AB0: not key_pressed ACCEPT 8AB0: not key_pressed ACCEPTNUM then break end end end end //----box gui menu--- :base_opt_box gosub @tittle_set 033E: set_draw_text_position 120.0 35.0 GXT 'base0' 038E: draw_box_position 120.0 42.5 size 170.0 40.0 RGBA 200 100 0 200 if 0@ == 1 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 65.0 GXT 'base1' else gosub @text_set 033E: set_draw_text_position 40.0 65.0 GXT 'base1' end if 0@ == 2 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 80.0 GXT 'base2' else gosub @text_set 033E: set_draw_text_position 40.0 80.0 GXT 'base2' end if 0@ == 3 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 95.0 GXT 'base3' else gosub @text_set 033E: set_draw_text_position 40.0 95.0 GXT 'base3' end if 0@ == 4 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 110.0 GXT 'base4' else gosub @text_set 033E: set_draw_text_position 40.0 110.0 GXT 'base4' end if 0@ == 5 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 125.0 GXT 'base5' else gosub @text_set 033E: set_draw_text_position 40.0 125.0 GXT 'base5' end if 0@ == 6 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 140.0 GXT 'base6' else gosub @text_set 033E: set_draw_text_position 40.0 140.0 GXT 'base6' end if 0@ == 7 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 155.0 GXT 'base7' else gosub @text_set 033E: set_draw_text_position 40.0 155.0 GXT 'base7' end if 0@ == 8 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 170.0 GXT 'base8' else gosub @text_set 033E: set_draw_text_position 40.0 170.0 GXT 'base8' end if 0@ == 9 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 185.0 GXT 'base9' else gosub @text_set 033E: set_draw_text_position 40.0 185.0 GXT 'base9' end if 0@ == 10 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 200.0 GXT 'base10' else gosub @text_set 033E: set_draw_text_position 40.0 200.0 GXT 'base10' end if 0@ == 11 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 215.0 GXT 'base11' else gosub @text_set 033E: set_draw_text_position 40.0 215.0 GXT 'base11' end if 0@ == 12 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 230.0 GXT 'base12' else gosub @text_set 033E: set_draw_text_position 40.0 230.0 GXT 'base12' end if 0@ == 13 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 245.0 GXT 'base13' else gosub @text_set 033E: set_draw_text_position 40.0 245.0 GXT 'base13' end if 0@ == 14 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 260.0 GXT 'base14' else gosub @text_set 033E: set_draw_text_position 40.0 260.0 GXT 'base14' end if 0@ == 15 then gosub @text_set 081C: draw_text_outline 1 RGBA 0 0 0 255 033E: set_draw_text_position 40.0 275.0 GXT 'base15' else gosub @text_set 033E: set_draw_text_position 40.0 275.0 GXT 'base15' end gosub @text_set 03E4: set_text_draw_align_right 1 045A: draw_text_1number 188.5 290.0 GXT 'numtrn' number 0@ gosub @text_set 03E4: set_text_draw_align_right 1 045A: draw_text_1number 200.0 290.0 GXT 'number' number 15 gosub @15_line gosub @line_select return //############################################################################################################################################################ //----here looping activated feature---- :engine return //############################################################################################################################################################ //----menu hide idle---- :hide_menu gosub @unload_text while true wait 0 gosub @engine if 0AB0: key_pressed 115 then repeat wait 0 gosub @engine until if 8AB0: not key_pressed 115 break else end end gosub @load_text 018C: play_sound 1145 at 0.0 0.0 0.0 return //############################################################################################################################################################ :load_text 0ADF: add_dynamic_GXT_entry "base0" text "menu_name" 0ADF: add_dynamic_GXT_entry "base1" text "option_name_1" 0ADF: add_dynamic_GXT_entry "base2" text "option_name_2" 0ADF: add_dynamic_GXT_entry "base3" text "option_name_3" 0ADF: add_dynamic_GXT_entry "base4" text "option_name_4" 0ADF: add_dynamic_GXT_entry "base5" text "option_name_5" 0ADF: add_dynamic_GXT_entry "base6" text "option_name_6" 0ADF: add_dynamic_GXT_entry "base7" text "option_name_7" 0ADF: add_dynamic_GXT_entry "base8" text "option_name_8" 0ADF: add_dynamic_GXT_entry "base9" text "option_name_9" 0ADF: add_dynamic_GXT_entry "base10" text "option_name_10" 0ADF: add_dynamic_GXT_entry "base11" text "option_name_11" 0ADF: add_dynamic_GXT_entry "base12" text "option_name_12" 0ADF: add_dynamic_GXT_entry "base13" text "option_name_13" 0ADF: add_dynamic_GXT_entry "base14" text "option_name_14" 0ADF: add_dynamic_GXT_entry "base15" text "option_name_15" return //############################################################################################################################################################ :unload_text return //############################################################################################################################################################ :tittle_set 0349: set_text_draw_font 3 033F: set_text_draw_letter_size 0.45 1.9 060D: draw_text_shadow 0 rgba 0 0 0 255 0340: set_text_draw_RGBA 255 255 255 255 0342: set_text_draw_centered 1 081C: draw_text_outline 1 RGBA 0 0 0 255 return //############################################################################################################################################################ :text_set 0349: set_text_draw_font 3 033F: set_text_draw_letter_size 0.3 1.0 060D: draw_text_shadow 0 rgba 0 0 0 255 return //############################################################################################################################################################ :1_line 038E: draw_box_position 120.0 70.0 size 170.0 15.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 85.0 size 170.0 15.0 RGBA 200 100 0 200 return :2_line 038E: draw_box_position 120.0 77.5 size 170.0 30.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 100.0 size 170.0 15.0 RGBA 200 100 0 200 return :3_line 038E: draw_box_position 120.0 85.0 size 170.0 45.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 115.0 size 170.0 15.0 RGBA 200 100 0 200 return :4_line 038E: draw_box_position 120.0 92.5 size 170.0 60.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 130.0 size 170.0 15.0 RGBA 200 100 0 200 return :5_line 038E: draw_box_position 120.0 100.0 size 170.0 75.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 145.0 size 170.0 15.0 RGBA 200 100 0 200 return :6_line 038E: draw_box_position 120.0 107.5 size 170.0 90.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 160.0 size 170.0 15.0 RGBA 200 100 0 200 return :7_line 038E: draw_box_position 120.0 115.0 size 170.0 105.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 175.0 size 170.0 15.0 RGBA 200 100 0 200 return :8_line 038E: draw_box_position 120.0 122.5 size 170.0 120.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 190.0 size 170.0 15.0 RGBA 200 100 0 200 return :9_line 038E: draw_box_position 120.0 130.0 size 170.0 135.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 205.0 size 170.0 15.0 RGBA 200 100 0 200 return :10_line 038E: draw_box_position 120.0 137.5 size 170.0 150.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 220.0 size 170.0 15.0 RGBA 200 100 0 200 return :11_line 038E: draw_box_position 120.0 145.0 size 170.0 165.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 235.0 size 170.0 15.0 RGBA 200 100 0 200 return :12_line 038E: draw_box_position 120.0 152.5 size 170.0 180.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 250.0 size 170.0 15.0 RGBA 200 100 0 200 return :13_line 038E: draw_box_position 120.0 160.0 size 170.0 195.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 265.0 size 170.0 15.0 RGBA 200 100 0 200 return :14_line 038E: draw_box_position 120.0 167.5 size 170.0 210.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 280.0 size 170.0 15.0 RGBA 200 100 0 200 return :15_line 038E: draw_box_position 120.0 175.0 size 170.0 225.0 RGBA 0 0 0 150 038E: draw_box_position 120.0 295.0 size 170.0 15.0 RGBA 200 100 0 200 return //############################################################################################################################################################ :line_select gosub @line_acc if or 0@ == 1 0@ == 16 0@ == 31 0@ == 46 0@ == 61 0@ == 76 0@ == 91 0@ == 106 then 038E: draw_box_position 120.0 70.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 121 0@ == 136 0@ == 151 0@ == 166 0@ == 181 0@ == 196 0@ == 211 0@ == 226 then 038E: draw_box_position 120.0 70.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 2 0@ == 17 0@ == 32 0@ == 47 0@ == 62 0@ == 77 0@ == 92 0@ == 107 then 038E: draw_box_position 120.0 85.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 122 0@ == 137 0@ == 152 0@ == 167 0@ == 182 0@ == 197 0@ == 212 0@ == 227 then 038E: draw_box_position 120.0 85.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 3 0@ == 18 0@ == 33 0@ == 48 0@ == 63 0@ == 78 0@ == 93 0@ == 108 then 038E: draw_box_position 120.0 100.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 123 0@ == 138 0@ == 153 0@ == 168 0@ == 183 0@ == 198 0@ == 213 0@ == 228 then 038E: draw_box_position 120.0 100.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 4 0@ == 19 0@ == 34 0@ == 49 0@ == 64 0@ == 79 0@ == 94 0@ == 109 then 038E: draw_box_position 120.0 115.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 124 0@ == 139 0@ == 154 0@ == 169 0@ == 184 0@ == 199 0@ == 214 0@ == 229 then 038E: draw_box_position 120.0 115.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 5 0@ == 20 0@ == 35 0@ == 50 0@ == 65 0@ == 80 0@ == 95 0@ == 110 then 038E: draw_box_position 120.0 130.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 125 0@ == 140 0@ == 155 0@ == 170 0@ == 185 0@ == 200 0@ == 215 0@ == 230 then 038E: draw_box_position 120.0 130.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 6 0@ == 21 0@ == 36 0@ == 51 0@ == 66 0@ == 81 0@ == 96 0@ == 111 then 038E: draw_box_position 120.0 145.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 126 0@ == 141 0@ == 156 0@ == 171 0@ == 186 0@ == 201 0@ == 216 0@ == 231 then 038E: draw_box_position 120.0 145.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 7 0@ == 22 0@ == 37 0@ == 52 0@ == 67 0@ == 82 0@ == 97 0@ == 112 then 038E: draw_box_position 120.0 160.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 127 0@ == 142 0@ == 157 0@ == 172 0@ == 187 0@ == 202 0@ == 217 0@ == 232 then 038E: draw_box_position 120.0 160.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 8 0@ == 23 0@ == 38 0@ == 53 0@ == 68 0@ == 83 0@ == 98 0@ == 113 then 038E: draw_box_position 120.0 175.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 128 0@ == 143 0@ == 158 0@ == 173 0@ == 188 0@ == 203 0@ == 218 0@ == 233 then 038E: draw_box_position 120.0 175.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 9 0@ == 24 0@ == 39 0@ == 54 0@ == 69 0@ == 84 0@ == 99 0@ == 114 then 038E: draw_box_position 120.0 190.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 129 0@ == 144 0@ == 159 0@ == 174 0@ == 189 0@ == 204 0@ == 219 0@ == 234 then 038E: draw_box_position 120.0 190.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 10 0@ == 25 0@ == 40 0@ == 55 0@ == 70 0@ == 85 0@ == 100 0@ == 115 then 038E: draw_box_position 120.0 205.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 130 0@ == 145 0@ == 160 0@ == 175 0@ == 190 0@ == 205 0@ == 220 0@ == 235 then 038E: draw_box_position 120.0 205.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 11 0@ == 26 0@ == 41 0@ == 56 0@ == 71 0@ == 86 0@ == 101 0@ == 116 then 038E: draw_box_position 120.0 220.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 131 0@ == 146 0@ == 161 0@ == 176 0@ == 191 0@ == 206 0@ == 221 0@ == 236 then 038E: draw_box_position 120.0 220.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 12 0@ == 27 0@ == 42 0@ == 57 0@ == 72 0@ == 87 0@ == 102 0@ == 117 then 038E: draw_box_position 120.0 235.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 132 0@ == 147 0@ == 162 0@ == 177 0@ == 192 0@ == 207 0@ == 222 0@ == 237 then 038E: draw_box_position 120.0 235.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 13 0@ == 28 0@ == 43 0@ == 58 0@ == 73 0@ == 88 0@ == 103 0@ == 118 then 038E: draw_box_position 120.0 250.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 133 0@ == 148 0@ == 163 0@ == 178 0@ == 193 0@ == 208 0@ == 223 0@ == 238 then 038E: draw_box_position 120.0 250.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 14 0@ == 29 0@ == 44 0@ == 59 0@ == 74 0@ == 89 0@ == 104 0@ == 119 then 038E: draw_box_position 120.0 265.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 134 0@ == 149 0@ == 164 0@ == 179 0@ == 194 0@ == 209 0@ == 224 0@ == 239 then 038E: draw_box_position 120.0 265.0 size 170.0 15.0 RGBA 255 255 255 33@ end end if or 0@ == 15 0@ == 30 0@ == 45 0@ == 60 0@ == 75 0@ == 90 0@ == 105 0@ == 120 then 038E: draw_box_position 120.0 280.0 size 170.0 15.0 RGBA 255 255 255 33@ else if or 0@ == 135 0@ == 150 0@ == 165 0@ == 180 0@ == 195 0@ == 210 0@ == 225 0@ == 240 then 038E: draw_box_position 120.0 280.0 size 170.0 15.0 RGBA 255 255 255 33@ end end return :line_acc if or 00E1: player 0 pressed_key ACCEPTJPAD 0AB0: key_pressed ACCEPT 0AB0: key_pressed ACCEPTNUM then 33@ = 50 else 33@ = 150 end return //############################################################################################################################################################