Kotovasya
Участник
- 85
- 13
CLEO:
{$CLEO}
0000:
repeat
wait 400
until samp.Available()
0C74: 10@ = create_timer_interval 20000 on_label @timer
0C78: set_timer 10@ active false
while true
wait 0
if 0B4C: samp is_dialog_active -1
then
alloc 1@ 64
0BD8: samp get_dialog_caption 1@
if 0C18: 0 = strstr string1 1@ string2 "Обыск"
then
alloc 0@ 2048
alloc 3@ 60
alloc 6@ 20
0BD7: samp get_dialog_text 0@
if 0C18: 0 = strstr string1 0@ string2 "Игрок в розыске"
then
7@ = 1
end
if 0C18: 0 = strstr string1 0@ string2 "Нарко"
then
7@ = 1
2@ += 1
0AD3: 6@ = format "нарко "
0C15: strcat destination 3@ source 6@
end
if 0C18: 0 = strstr string1 0@ string2 "Материалы"
then
7@ = 1
2@ += 1
0AD3: 6@ = format "материалы "
0C15: strcat destination 3@ source 6@
end
if 0C18: 0 = strstr string1 0@ string2 "Набор отмычек"
then
7@ = 1
2@ += 1
0AD3: 6@ = format "отмычки "
0C15: strcat destination 3@ source 6@
end
if 7@ = 1
then
0C72: set_virtual_key 119 down 1
0C72: set_virtual_key 119 down 0
end
if 2@ > 0
then
0C2C: 4@ = strrchr 1@ char 91
0C11: memset destination 4@ value 0x0 size 1
4@++
0C1A: 5@ = atoi 4@
0C78: set_timer 10@ active true
while 0C79: is_timer 10@ active
wait 0
if and
0AB0: key_pressed 89
8B21: not samp is_chat_opened
then
0C78: set_timer 10@ active false
say "/su %d %d %s" 5@ 2@ 3@
wait 300
end
end
end
free 0@
free 3@
free 6@
2@ = 0
7@ = 0
end
free 1@
end
end
:timer
0C78: set_timer 10@ active false
samp.CmdRet()
Возможно кто-то догадается, не скринит обыск никак, выдача звезд тоже не работает. В чем проблема?
P.S. Скриншот обыска