{$CLEO}
Thread "Chag"
wait 2000
chatmsg "{005ea7}[PointBinder] {85ff00}Author Chag." -1
chatmsg "{005ea7}[PointBinder] {85ff00}Reload script - R + B." -1
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Key1"
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Command1"
0AF4: 3@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Text1"
0AF0: 5@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Key2"
0AF4: 6@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Command2"
0AF4: 7@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Text2"
cmd "pbinder" @pbinder
While True
wait 0
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 1@
then
0B2B: samp 3@ = get_player_id_by_actor_handle 0@
alloc 2@ 64
alloc 4@ 64
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Command1"
0AF4: 4@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Text1"
say "/%s %d %s" 2@ 3@ 4@
wait 1000
free 2@
free 4@
end
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 5@
then
0B2B: samp 3@ = get_player_id_by_actor_handle 0@
alloc 6@ 64
alloc 7@ 64
0AF4: 6@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Command2"
0AF4: 7@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Text2"
say "/%s %d %s" 6@ 3@ 7@
wait 1000
free 6@
free 7@
end
if and
key_down 66
key_down 82
then
0AF0: 1@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Key1"
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Command1"
0AF4: 3@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Text1"
0AF0: 5@ = get_int_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Key2"
0AF4: 6@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Command2"
0AF4: 7@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "slot2" key "Text2"
wait 1500
chatmsg "{005ea7}[PointBinder] {85ff00}Ñêðèïò ïåðåçàãðóæåí." -1
end
if
0B3C: samp is_dialog_responded id 249 button 9@ list_item 10@ input_text 0
then
if 10@ == 0
then
0B3B: samp show_dialog id 250 caption "{005ea7}PointBinder" text "Ââåäèòå òåêñò äëÿ 1 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
alloc 12@ 128
end
if 10@ == 1
then
0B3B: samp show_dialog id 251 caption "{005ea7}PointBinder" text "Óêàæèòå êîìàíäó äëÿ 1 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if 10@ == 2
then
0B3B: samp show_dialog id 252 caption "{005ea7}PointBinder" text "Óêàæèòå êíîïêó àêòèâàöèè äëÿ 1 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if 10@ == 3
then
0B3B: samp show_dialog id 253 caption "{005ea7}PointBinder" text "Ââåäèòå òåêñò äëÿ 2 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if 10@ == 4
then
0B3B: samp show_dialog id 254 caption "{005ea7}PointBinder" text "Óêàæèòå êîìàíäó äëÿ 2 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if 10@ == 5
then
0B3B: samp show_dialog id 255 caption "{005ea7}PointBinder" text "Óêàæèòå êíîïêó àêòèâàöèè äëÿ 2 ñëîòà:" button_1 "Äàëåå" button_2 "Çàêðûòü" style 1
end
if 0B3C: samp is_dialog_responded id 250 button 11@ list_item 0 input_text 12@
then
if 11@ == 1
then
0AF5: write_string 12@ to_ini_file "CLEO\INI\PointBinder.ini" section "slot1" key "Text1"
free 12@
end
end
end
end
:pbinder
alloc 8@ 64
0AD3: 8@ = format "Text1%cCommand1%cKey1%cText2%cCommand2%cKey2" 0xA 0xA 0xA 0xA 0xA
0B3B: samp show_dialog id 249 caption "{005ea7}PointBinder" text 8@ button_1 "Äàëåå" button_2 "Âûõîä" style 2
free 8@
SAMP.CmdRet()