// This file was decompiled using SASCM.INI published by GTAG
{$CLEO .cs}

//-------------MAIN---------------
0000: NOP               
0662: printstring "HOUSECHECKER."               
thread "HOUSECHECKER"               

:HOUSECHECKER_35
29@ = 0               
gosub @HOUSECHECKER_387               

:HOUSECHECKER_49
wait 0               
if               
0AB0:   key_pressed 109               
else_jump @HOUSECHECKER_380               
gosub @HOUSECHECKER_387               
0ACD: show_text_highpriority "~R~HOUSE ~Y~CHECKER ~G~ACTIVATED" time 1000               
30@ = 0               
wait 0               

:HOUSECHECKER_125
Actor.StorePos($PLAYER_ACTOR, 4@, 5@, 6@)
if               
0AE3: 0@ = random_object_near_point 4@ 5@ 6@ in_radius 5000.0 find_next 0 //IF and SET               
else_jump @HOUSECHECKER_373               
gosub @HOUSECHECKER_404               
if               
                30@ == 0               
else_jump @HOUSECHECKER_359               

:HOUSECHECKER_196
wait 0               
gosub @HOUSECHECKER_458               
if               
                29@ == 1               
else_jump @HOUSECHECKER_232               
jump @HOUSECHECKER_35               

:HOUSECHECKER_232
Actor.StorePos($PLAYER_ACTOR, 4@, 5@, 6@)
if               
0AE3: 0@ = random_object_near_point 4@ 5@ 6@ in_radius 5000.0 find_next 1 //IF and SET               
else_jump @HOUSECHECKER_331               
gosub @HOUSECHECKER_404               
if               
                30@ == 1               
else_jump @HOUSECHECKER_324               
gosub @HOUSECHECKER_520               
gosub @HOUSECHECKER_546               
jump @HOUSECHECKER_352               

:HOUSECHECKER_324
jump @HOUSECHECKER_338               

:HOUSECHECKER_331
jump @HOUSECHECKER_125               

:HOUSECHECKER_338
                30@ == 1               
else_jump @HOUSECHECKER_196               

:HOUSECHECKER_352
jump @HOUSECHECKER_373               

:HOUSECHECKER_359
gosub @HOUSECHECKER_520               
gosub @HOUSECHECKER_546               

:HOUSECHECKER_373
gosub @HOUSECHECKER_387               

:HOUSECHECKER_380
jump @HOUSECHECKER_49               

:HOUSECHECKER_387
wait 0               
8AB0:   not key_pressed 109               
else_jump @HOUSECHECKER_387               
return               

:HOUSECHECKER_404
wait 0               
7@ = Object.Model(0@)
if               
                7@ == 1273               
else_jump @HOUSECHECKER_449               
30@ = 1               
jump @HOUSECHECKER_456               

:HOUSECHECKER_449
30@ = 0               

:HOUSECHECKER_456
return               

:HOUSECHECKER_458
wait 0               
if               
0AB0:   key_pressed 109               
else_jump @HOUSECHECKER_518               
0ACD: show_text_highpriority "~R~HOUSE CHECKER DECTIVATED" time 1000               
29@ = 1               

:HOUSECHECKER_518
return               

:HOUSECHECKER_520
Object.StorePos(0@, 1@, 2@, 3@)
3@ -= 1.5               
return               

:HOUSECHECKER_546
Actor.PutAt($PLAYER_ACTOR, 1@, 2@, 3@)
return