{$CLEO .cs}
THREAD 'ExamenTP'
0662: printstring "By Zin"
0662: printstring "UGBASE.EU"
REPEAT
WAIT 0
UNTIL 0AFA:
0B34: samp register_client_command "+" to_label @EXAMEN @COLLECT
0C6A: $NOT_USED = create_custom_thread_at_label @COLLECT
0C6A: $NOT_USED = create_custom_thread_at_label @EXAMEN2
:EXAMEN2
WHILE TRUE
WAIT 0
IF AND
056D: actor $PLAYER_ACTOR defined
31@ == TRUE
THEN
Actor.PutAt($PLAYER_ACTOR, 1213.4475,-1844.3391,13.1157)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 1122.3832,-1849.7789,13.0848)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 1065.7902,-1846.9128,13.0950)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 1034.6388,-1800.4258,13.3683)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 899.4989,-1769.2505,13.0813)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 740.4611,-1758.5903,13.1118)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 634.0502,-1729.0344,13.5510)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 489.0085,-1707.8843,11.3474)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 278.9901,-1684.0265,7.4723)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 195.9078,-1606.3833,14.1030)
WAIT 500
Actor.PutAt($PLAYER_ACTOR, 165.9999,-1551.3953,11.3986)
wait 100
0A93: end_custom_thread
31@ = FALSE
END
END
:EXAMEN
0B12: 31@ = 31@ XOR 1
SAMP.CmdRet()
:COLLECT
0B12: 0@ = 0@ XOR 1
SAMP.CmdRet()
:COLLECT2
WHILE TRUE
WAIT 0
IF AND
056D: actor $PLAYER_ACTOR defined
0B61: samp is_local_player_spawned
0@ == TRUE
THEN
0af9: samp say_msg "/exam"
wait 5000
repeat
wait 5000
0af9: samp say_msg "/exam"
UNTIL Actor.Dead($PLAYER_ACTOR)
end
end