{$CLEO}
Thread "CHAG"
wait 2000
const
SARRAY = 0@ // Ìàññèâ
SARRAY_SIZE = 128 // Ðàçìåð â áàéòàõ
// Íîìåðà ýëåìåíòîâ â ìàññèâå
SARRAY_BTN1 = 0 // Êíîïêà 1
SARRAY_BTN2 = 1 // Êíîïêà 2
SARRAY_BTN3 = 2
SARRAY_BTN4 = 3
SARRAY_BTN5 = 4
SARRAY_SLOT1_CMD = 5 // Ñëîò 1 - êîìàíäà
SARRAY_SLOT1_TEXT = 6 // Ñëîò 1 - òåêñò
SARRAY_SLOT2_CMD = 7 // Ñëîò 2 - êîìàíäà
SARRAY_SLOT2_TEXT = 8 // Ñëîò 2 - òåêñò
SARRAY_SLOT3_CMD = 9 // Ñëîò 2 - êîìàíäà
SARRAY_SLOT3_TEXT = 10 // Ñëîò 2 - òåêñò
SARRAY_SLOT4_CMD = 11 // Ñëîò 2 - êîìàíäà
SARRAY_SLOT4_TEXT = 12 // Ñëîò 2 - òåêñò
SARRAY_SLOT5_CMD = 13 // Ñëîò 2 - êîìàíäà
SARRAY_SLOT5_TEXT = 14 // Ñëîò 2 - òåêñò
end
wait 5000
alloc SARRAY with_size SARRAY_SIZE
call @load_settings 1 array SARRAY
msg ">============================================<" 3381759
msg "{00ff1e}PointBinder {ffec8b}- {dc143c}Special for Prime-Hack.RU"
msg "{00ff1e}PointBinder {ffec8b}- {dc143c}Author Chag."
msg ">============================================<" 3381759
0B34: samp register_client_command "rb" to_label @reload
0B34: samp register_client_command "pb" to_label @dialog
alloc 1@ 128 // buffer(for dialogs)
alloc 22@ 128 // for ini
alloc 23@ 128 // format
while true
wait 0
if 0AD2: 2@ = player $PLAYER_CHAR targeted_actor //IF and SET
then
0C0E: 3@ = array 0@ element SARRAY_BTN1
if key 3@
then
0C0E: 4@ = array 0@ element SARRAY_SLOT1_CMD
0C0E: 5@ = array 0@ element SARRAY_SLOT1_TEXT
0B2B: samp 6@ = get_player_id_by_actor_handle 2@
say "/%s %d %s" 4@ 6@ 5@
while key 3@
wait 0
end
end
0C0E: 3@ = array 0@ element SARRAY_BTN2
if key 3@
then
0C0E: 4@ = array 0@ element SARRAY_SLOT2_CMD
0C0E: 5@ = array 0@ element SARRAY_SLOT2_TEXT
0B2B: samp 6@ = get_player_id_by_actor_handle 2@
say "/%s %d %s" 4@ 6@ 5@
while key 3@
wait 0
end
end
0C0E: 3@ = array 0@ element SARRAY_BTN3
if key 3@
then
0C0E: 4@ = array 0@ element SARRAY_SLOT3_CMD
0C0E: 5@ = array 0@ element SARRAY_SLOT3_TEXT
0B2B: samp 6@ = get_player_id_by_actor_handle 2@
say "/%s %d %s" 4@ 6@ 5@
while key 3@
wait 0
end
end
0C0E: 3@ = array 0@ element SARRAY_BTN4
if key 3@
then
0C0E: 4@ = array 0@ element SARRAY_SLOT4_CMD
0C0E: 5@ = array 0@ element SARRAY_SLOT4_TEXT
0B2B: samp 6@ = get_player_id_by_actor_handle 2@
say "/%s %d %s" 4@ 6@ 5@
while key 3@
wait 0
end
end
0C0E: 3@ = array 0@ element SARRAY_BTN5
if key 3@
then
0C0E: 4@ = array 0@ element SARRAY_SLOT5_CMD
0C0E: 5@ = array 0@ element SARRAY_SLOT5_TEXT
0B2B: samp 6@ = get_player_id_by_actor_handle 2@
say "/%s %d %s" 4@ 6@ 5@
while key 3@
wait 0
end
end
end
if
0B3C: samp is_dialog_responded id 240 button 3@ list_item 4@ input_text 0
then
if
3@ == 1
then
0AC6: 5@ = label @select_actions_for_slots offset
if
4@ == 0
then
0B3B: samp show_dialog id 241 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot ¹1" text 5@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2
end
if
4@ == 1
then
0B3B: samp show_dialog id 242 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot ¹2" text 5@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2
end
if
4@ == 2
then
0B3B: samp show_dialog id 249 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot ¹3" text 5@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2
end
if
4@ == 3
then
0B3B: samp show_dialog id 250 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot ¹4" text 5@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2
end
if
4@ == 4
then
0B3B: samp show_dialog id 251 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot ¹5" text 5@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2
end
end
end
if
0B3C: samp is_dialog_responded id 241 button 3@ list_item 4@ input_text 0 // SLOT 1
then
if
3@ == 1 // eiiiea
then
if
4@ == 0 // command
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Command"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êîìàíäó. Íà äàííûé ìîìåíò - [{3af201}/%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 243 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 1
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Text"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå òåêñò. Íà äàííûé ìîìåíò - [{3af201}%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 244 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 2
then
0AF0: 24@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Key"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êëàâèøó. Íà äàííûé ìîìåíò - [{3af201}%d{FFFFFF}]." 24@
0B3B: samp show_dialog id 245 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Key" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
end
end
if
0B3C: samp is_dialog_responded id 242 button 3@ list_item 4@ input_text 0 // SLOT 2
then
if
3@ == 1 // eiiiea
then
if
4@ == 0 // command
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Command"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êîìàíäó. Íà äàííûé ìîìåíò - [{3af201}/%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 246 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 1
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Text"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå òåêñò. Íà äàííûé ìîìåíò - [{3af201}%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 247 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 2
then
0AF0: 24@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Key"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êëàâèøó. Íà äàííûé ìîìåíò - [{3af201}%d{FFFFFF}]." 24@
0B3B: samp show_dialog id 248 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Key" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
end
end
if
0B3C: samp is_dialog_responded id 249 button 3@ list_item 4@ input_text 0 // SLOT 3
then
if
3@ == 1 // Button
then
if
4@ == 0 // command
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Command"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êîìàíäó. Íà äàííûé ìîìåíò - [{3af201}/%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 252 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 1
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Text"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå òåêñò. Íà äàííûé ìîìåíò - [{3af201}%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 253 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 2
then
0AF0: 24@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Key"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êëàâèøó. Íà äàííûé ìîìåíò - [{3af201}%d{FFFFFF}]." 24@
0B3B: samp show_dialog id 254 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Key" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
end
end
if
0B3C: samp is_dialog_responded id 250 button 3@ list_item 4@ input_text 0 // SLOT 4
then
if
3@ == 1 // Button
then
if
4@ == 0 // command
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Command"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êîìàíäó. Íà äàííûé ìîìåíò - [{3af201}/%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 255 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 1
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Text"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå òåêñò. Íà äàííûé ìîìåíò - [{3af201}%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 256 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 2
then
0AF0: 24@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Key"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êëàâèøó. Íà äàííûé ìîìåíò - [{3af201}%d{FFFFFF}]." 24@
0B3B: samp show_dialog id 257 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Key" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
end
end
if
0B3C: samp is_dialog_responded id 251 button 3@ list_item 4@ input_text 0 // SLOT 5
then
if
3@ == 1 // Button
then
if
4@ == 0 // command
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Command"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êîìàíäó. Íà äàííûé ìîìåíò - [{3af201}/%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 258 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 1
then
0AF4: 22@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Text"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå òåêñò. Íà äàííûé ìîìåíò - [{3af201}%s{FFFFFF}]." 22@
0B3B: samp show_dialog id 259 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if
4@ == 2
then
0AF0: 24@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Key"
0AD3: 23@ = format "{FFFFFF}Óêàæèòå êëàâèøó. Íà äàííûé ìîìåíò - [{3af201}%d{FFFFFF}]." 24@
0B3B: samp show_dialog id 260 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Key" text 23@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
end
end
// SLOT-1
if
0B3C: samp is_dialog_responded id 243 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Command"
end
end
if
0B3C: samp is_dialog_responded id 244 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Text"
end
end
if
0B3C: samp is_dialog_responded id 245 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Key"
end
end
// SLOT-1
// SLOT-2
if
0B3C: samp is_dialog_responded id 246 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Command"
end
end
if
0B3C: samp is_dialog_responded id 247 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Text"
end
end
if
0B3C: samp is_dialog_responded id 248 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Key"
end
end
// SLOT-2
// SLOT-3
if
0B3C: samp is_dialog_responded id 252 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Command"
end
end
if
0B3C: samp is_dialog_responded id 253 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Text"
end
end
if
0B3C: samp is_dialog_responded id 254 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Key"
end
end
// SLOt-3
// SLOT-4
if
0B3C: samp is_dialog_responded id 255 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Command"
end
end
if
0B3C: samp is_dialog_responded id 256 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Text"
end
end
if
0B3C: samp is_dialog_responded id 257 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Key"
end
end
// SLOT-4
// SLOT-5
if
0B3C: samp is_dialog_responded id 258 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Command"
end
end
if
0B3C: samp is_dialog_responded id 259 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Text"
end
end
if
0B3C: samp is_dialog_responded id 260 button 3@ list_item 0 input_text 1@
then
if
3@ == 1
then
0AF5: write_string 1@ to_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Key"
end
end
// SLOT-5
end
:select_actions_for_slots
hex
"Command" A
"Text" A
"Key" A
00
end
:main_dialog
hex
"Slot ¹1" A
"Slot ¹2" A
"Slot ¹3" A
"Slot ¹4" A
"Slot ¹5" A
00
end
:reload
0AB1: call_scm_func @free_buffers 1 array SARRAY
0AB1: call_scm_func @load_settings 1 array SARRAY
0ACD: show_text_highpriority "~G~Settings reloaded" time 2500
cmdret
:free_buffers
for 1@ = SARRAY_SLOT1_CMD to SARRAY_SLOT5_TEXT
0C0E: 2@ = array 0@ element 1@
free 2@
end
0AB2: ret 0
:load_settings
alloc 1@ 32
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Command"
0C0F: array 0@ element SARRAY_SLOT1_CMD = 1@
1@ = 0
alloc 1@ 128
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Text"
0C0F: array 0@ element SARRAY_SLOT1_TEXT = 1@
1@ = 0
alloc 1@ 32
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Command"
0C0F: array 0@ element SARRAY_SLOT2_CMD = 1@
1@ = 0
alloc 1@ 128
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Text"
0C0F: array 0@ element SARRAY_SLOT2_TEXT = 1@
1@ = 0
alloc 1@ 32
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Command"
0C0F: array 0@ element SARRAY_SLOT3_CMD = 1@
1@ = 0
alloc 1@ 128
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Text"
0C0F: array 0@ element SARRAY_SLOT3_TEXT = 1@
1@ = 0
alloc 1@ 32
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Command"
0C0F: array 0@ element SARRAY_SLOT4_CMD = 1@
1@ = 0
alloc 1@ 128
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Text"
0C0F: array 0@ element SARRAY_SLOT4_TEXT = 1@
1@ = 0
alloc 1@ 32
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Command"
0C0F: array 0@ element SARRAY_SLOT5_CMD = 1@
1@ = 0
alloc 1@ 128
0AF4: 1@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Text"
0C0F: array 0@ element SARRAY_SLOT5_TEXT = 1@
1@ = 0
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Key"
0C0F: array 0@ element SARRAY_BTN1 = 1@
1@ = 0
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Key"
0C0F: array 0@ element SARRAY_BTN2 = 1@
1@ = 0
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "3" key "Key"
0C0F: array 0@ element SARRAY_BTN3 = 1@
1@ = 0
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "4" key "Key"
0C0F: array 0@ element SARRAY_BTN4 = 1@
1@ = 0
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "5" key "Key"
0C0F: array 0@ element SARRAY_BTN5 = 1@
1@ = 0
0AB2: ret 0
:dialog
0AC6: 25@ = label @main_dialog offset
0B3B: samp show_dialog id 240 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}MainMenu" text 25@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2
SAMP.CmdRet()