{$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 //############################################################################################################################################################