{$CLEO}
0000:
0001: wait 0 ms
repeat
wait 0
until 0afa:
0@ = 0
0B34: samp register_client_command "housechecker" to_label @act
while true
wait 0
if 0@ == 1
then
Actor.StorePos($PLAYER_ACTOR, 1@, 2@, 3@)
if
0AE3: 10@ = random_object_near_point 1@ 2@ 3@ in_radius 130.0 find_next 0
then
7@ = Object.Model(10@)
if
7@ == 1273
then
Object.StorePos(10@, 4@, 5@, 6@)
wait 10
Actor.PutAt($PLAYER_ACTOR, 4@, 5@, 6@)
0@ = 0
end
end
end
end
:act
if 0@ == 0
then
0@ = 1
0AF8: samp add_message_to_chat "Housechecker âêëþ÷¸í" color -1
else
0@ = 0
0af8: samp add_message_to_chat "Housechecker âûêëþ÷¸í" color -1
end
0b43: