CLEO cs 0000 if not SAMP Base then 0a93 end repeat wait 400 until SAMP

 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
{$CLEO .cs}
0000:
if not 0@ = SAMP.Base()
then 0a93:
end
repeat
wait 400
until SAMP.Available()
0b34: "nopysl" @cmd
wait 2000
0B2E: 1@ = read_samp_memory offset 0x41E0 size 2
0B2E: 3@ = read_samp_memory offset 0x13FA0 size 2
while true
wait 0
0B2E: 2@ = read_samp_memory offset 0x41E0 size 2
0B2E: 4@ = read_samp_memory offset 0x13FA0 size 2
if
13@ == 1
then
0B2D: write_samp_memory offset 0x41E0 value 0xC390 size 2
0B2D: write_samp_memory offset 0x13FA0 value 0xC390 size 2
wait 700
end
end
:cmd
0B12: 13@ = 13@ XOR 1
if 13@ == 1
then
0af8: "{0bfb00}ТП Через 2 секунды" -1
end
if 13@ == 0
then
0af8: "{fb0000}ТП Успешен" -1
0B2D: write_samp_memory offset 0x41E0 value 1@ size 2
0B2D: write_samp_memory offset 0x13FA0 value 3@ size 2
end
cmdret