CLEO Thread Chag wait 2000 chatmsg 005ea7 PointBinder 85ff00 Author Ch

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
{$CLEO}
Thread "Chag"
wait 2000
chatmsg "{005ea7}[PointBinder] {85ff00}Author Chag." -1
chatmsg "{005ea7}[PointBinder] {85ff00}Reload script - R + B." -1
chatmsg "{005ea7}[PointBinder] {85ff00}Special for prime-hack.ru <3." -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()