// 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
0AB0: key_pressed 48
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 48
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 48
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