CLEO NOSOURCE Thread chag wait 2000 cmd pb pb alloc 11 64 While True w

  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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
{$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()