CLEO cs 0000 NOP 0B34 samp register_client_comm and bpost_on to_label

 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
{$CLEO .cs}
0000: NOP
0B34: samp register_client_command "bpost_on" to_label @bot
0B34: samp register_client_command "bpost_off" to_label @botoff
repeat
wait 400
until 0AFA: is_samp_structures_available
0AF8: samp add_message_to_chat "{0066FF}[Post Bot]:{FF6600} ����� ������� - Dimka_Kolomiec"
while true
wait 0
end
0AC8: 16@ = allocate_memory_size 120
0AC8: 17@ = allocate_memory_size 120
0AC8: 18@ = allocate_memory_size 120
while true
wait 0
if 22@ == 1
then
0AF4: 16@ = read_string_from_ini_file "CLEO\INI\Post_bot.ini" section "Post bot" key "Family"
0AF4: 17@ = read_string_from_ini_file "CLEO\INI\Post_bot.ini" section "Post bot" key "����"
0AF4: 18@ = read_string_from_ini_file "CLEO\INI\Post_bot.ini" section "Post bot" key "���������"
say "/n �����������: %s. ����: %s. ���������: %s" 16@ 17@ 18@
wait 1000
say "/c 60"
wait 100
0AB1: call @key 2 key 119 time 1000
wait 5000
end
end
:bot
22@ = 1
SAMP.CmdRet()
:botoff
22@ = 0
SAMP.CmdRet()
:key
if 0AA2: 2@ = load_library "User32.dll"
then
if 0AA4: 2@ = get_proc_address "keybd_event" library 2@
then
0AA5: call 2@ num_params 4 pop 0 0 0 0 0@
wait 1@
0AA5: call 2@ num_params 4 pop 0 0 0x02 0 0@
end
end
0AB2: ret 0