{$CLEO}
{$NOSOURCE}
Thread "chag"
wait 2000
cmd "pb" @pb
alloc 11@ 64
While True
wait 0
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 1@
then
alloc 2@ 32
alloc 3@ 128
0AF4: 2@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Command"
0AF4: 3@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Text"
0B2B: samp 4@ = get_player_id_by_actor_handle 0@
say "/%s %d %s" 2@ 4@ 3@
free 2@
free 3@
end
if and
0AD2: 0@ = player $PLAYER_CHAR targeted_actor //IF and SET
key_down 5@
then
alloc 6@ 32
alloc 7@ 128
0AF4: 6@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Command"
0AF4: 7@ = read_string_from_ini_file "CLEO\INI\PointBinder.ini" section "2" key "Text"
0B2B: samp 4@ = get_player_id_by_actor_handle 0@
say "/%s %d %s" 6@ 4@ 7@
free 6@
free 7@
end
if
0B3C: samp is_dialog_responded id 240 button 9@ list_item 10@ input_text 0
then
if
9@ == 1
then
if
10@ == 0
then
alloc 15@ 128
0AD3: 15@ = format "Command%cText%cKey" 0xA 0xA
0B3B: samp show_dialog id 241 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot1" text 15@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2
free 15@
end
if
10@ == 1
then
alloc 15@ 128
0AD3: 15@ = format "Command%cText%cKey" 0xA 0xA
0B3B: samp show_dialog id 242 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Slot2" text 15@ button_1 "Äàëåå" button_2 "Çàêðûòü" style 2
free 15@
end
end
end
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if
0B3C: samp is_dialog_responded id 241 button 15@ list_item 9@ input_text 0
then
if
15@ == 1 // êíîïêà
then
if
9@ == 0 // command
then
0B3B: samp show_dialog id 243 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text "Óêàæèòå êîìàíäó:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1
end
if
9@ == 1
then
0B3B: samp show_dialog id 244 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text "Óêàæèòå òåêñò:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1
end
if
9@ == 2
then
0B3B: samp show_dialog id 245 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text "Óêàæèòå êíîïêó:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1
end
end
end
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if
0B3C: samp is_dialog_responded id 242 button 15@ list_item 9@ input_text 0
then
if
15@ == 1 // êíîïêà
then
if
9@ == 0 // command
then
0B3B: samp show_dialog id 246 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Command" text "Óêàæèòå êîìàíäó:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1
end
if
9@ == 1
then
0B3B: samp show_dialog id 247 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text "Óêàæèòå òåêñò:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1
end
if
9@ == 2
then
0B3B: samp show_dialog id 248 caption "{00ff1e}PointBinder {ffec8b}- {dc143c}Text" text "Óêàæèòå êíîïêó:" button_1 "Ãîòîâ" button_2 "Çàêðûòü" style 1
end
end
end
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if
0B3C: samp is_dialog_responded id 243 button 15@ list_item 0 input_text 11@
then
if
15@ == 1
then
0AF5: write_string 11@ to_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Command"
11@ = 0
end
end
if
0B3C: samp is_dialog_responded id 244 button 15@ list_item 0 input_text 11@
then
if
15@ == 1
then
0AF5: write_string 11@ to_ini_file "CLEO\INI\PointBinder.ini" section "1" key "Text"
11@ = 0
end
end
end
:pb
alloc 8@ 64
0AD3: 8@ = format "Slot1%cSlot2" 0xA
0B3B: samp show_dialog id 240 caption "{00ff1e}PointBinder" text 8@ button_1 "Äàëåå" button_2 "Âûõîä" style 2
free 8@
SAMP.CmdRet()