// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

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

:HOUSECHECKER_35
29@ = 0  
gosub @HOUSECHECKER_387  

:HOUSECHECKER_49
wait 0  
if  
key_down 109  
else_jump @HOUSECHECKER_380  
gosub @HOUSECHECKER_387  
print "~R~HOUSE ~Y~CHECKER ~G~ACTIVATED" 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 150.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 150.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  
    not key_down 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  
key_down 109  
else_jump @HOUSECHECKER_518  
print "~R~HOUSE CHECKER DECTIVATED" 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