(script 207)

(string
    string_01b2 "fenceReg"
    string_01bb ""
)

(said
    said_015e /archway
    said_0162 /barriere
    said_0166 /road
    said_016a archway
    said_016d climb/barriere
    said_0173 clore/archway
    said_0179 look>
    said_017d open/archway
)

(local
)

// 018a
(instance public fenceReg of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (dispose) // method_000c
  000c:39 58            pushi 58 // $58 dispose
  000e:76               push0 
  000f:57 36 04         super Rgn 4 

  0012:48                 ret 
    )

    (method (handleEvent) // method_0013
  0013:39 4c            pushi 4c // $4c claimed
  0015:76               push0 
  0016:87 01              lap param1 
  0018:4a 04             send 4 

  001a:31 03              bnt code_001f 
  001c:35 01              ldi 1 
  001e:48                 ret 

        code_001f
  001f:39 22            pushi 22 // $22 type
  0021:76               push0 
  0022:87 01              lap param1 
  0024:4a 04             send 4 

  0026:36                push 
  0027:34 0080            ldi 80 
  002a:1a                 eq? 
  002b:30 012b            bnt code_0159 
  002e:78               push1 
  002f:74 0147          lofss $0179 // look>
  0032:43 25 02         callk Said 2 

  0035:31 70              bnt code_00a7 
  0037:78               push1 
  0038:74 0127          lofss $0162 // /barriere
  003b:43 25 02         callk Said 2 

  003e:31 0d              bnt code_004d 
  0040:7a               push2 
  0041:38 00cf          pushi cf // $cf blocks
  0044:76               push0 
  0045:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  004b:33 57              jmp code_00a4 

        code_004d
  004d:78               push1 
  004e:74 010d          lofss $015e // /archway
  0051:43 25 02         callk Said 2 

  0054:31 39              bnt code_008f 
  0056:89 0b              lsg gCurRoomNum 
  0058:35 1c              ldi 1c 
  005a:1a                 eq? 
  005b:2f 07               bt code_0064 
  005d:89 0b              lsg gCurRoomNum 
  005f:35 01              ldi 1 
  0061:1a                 eq? 
  0062:31 0d              bnt code_0071 

        code_0064
  0064:7a               push2 
  0065:38 00cf          pushi cf // $cf blocks
  0068:78               push1 
  0069:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  006f:33 1c              jmp code_008d 

        code_0071
  0071:89 0b              lsg gCurRoomNum 
  0073:35 1a              ldi 1a 
  0075:1a                 eq? 
  0076:31 0d              bnt code_0085 
  0078:7a               push2 
  0079:38 00cf          pushi cf // $cf blocks
  007c:7a               push2 
  007d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0083:33 08              jmp code_008d 

        code_0085
  0085:39 4c            pushi 4c // $4c claimed
  0087:78               push1 
  0088:76               push0 
  0089:87 01              lap param1 
  008b:4a 06             send 6 


        code_008d
  008d:33 15              jmp code_00a4 

        code_008f
  008f:78               push1 
  0090:74 00d3          lofss $0166 // /road
  0093:43 25 02         callk Said 2 

  0096:31 0c              bnt code_00a4 
  0098:7a               push2 
  0099:38 00cf          pushi cf // $cf blocks
  009c:39 03            pushi 3 // $3 y
  009e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00a4
  00a4:32 00b2            jmp code_0159 

        code_00a7
  00a7:78               push1 
  00a8:74 00d2          lofss $017d // open/archway
  00ab:43 25 02         callk Said 2 

  00ae:31 3a              bnt code_00ea 
  00b0:89 0b              lsg gCurRoomNum 
  00b2:35 1c              ldi 1c 
  00b4:1a                 eq? 
  00b5:2f 07               bt code_00be 
  00b7:89 0b              lsg gCurRoomNum 
  00b9:35 01              ldi 1 
  00bb:1a                 eq? 
  00bc:31 0e              bnt code_00cc 

        code_00be
  00be:7a               push2 
  00bf:38 00cf          pushi cf // $cf blocks
  00c2:39 04            pushi 4 // $4 x
  00c4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00ca:33 1c              jmp code_00e8 

        code_00cc
  00cc:89 0b              lsg gCurRoomNum 
  00ce:35 1a              ldi 1a 
  00d0:1a                 eq? 
  00d1:31 0d              bnt code_00e0 
  00d3:7a               push2 
  00d4:38 00cf          pushi cf // $cf blocks
  00d7:7a               push2 
  00d8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00de:33 08              jmp code_00e8 

        code_00e0
  00e0:39 4c            pushi 4c // $4c claimed
  00e2:78               push1 
  00e3:76               push0 
  00e4:87 01              lap param1 
  00e6:4a 06             send 6 


        code_00e8
  00e8:33 6f              jmp code_0159 

        code_00ea
  00ea:78               push1 
  00eb:74 0085          lofss $0173 // clore/archway
  00ee:43 25 02         callk Said 2 

  00f1:31 3a              bnt code_012d 
  00f3:89 0b              lsg gCurRoomNum 
  00f5:35 1c              ldi 1c 
  00f7:1a                 eq? 
  00f8:2f 07               bt code_0101 
  00fa:89 0b              lsg gCurRoomNum 
  00fc:35 01              ldi 1 
  00fe:1a                 eq? 
  00ff:31 0e              bnt code_010f 

        code_0101
  0101:7a               push2 
  0102:38 00cf          pushi cf // $cf blocks
  0105:39 05            pushi 5 // $5 view
  0107:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  010d:33 1c              jmp code_012b 

        code_010f
  010f:89 0b              lsg gCurRoomNum 
  0111:35 1a              ldi 1a 
  0113:1a                 eq? 
  0114:31 0d              bnt code_0123 
  0116:7a               push2 
  0117:38 00cf          pushi cf // $cf blocks
  011a:7a               push2 
  011b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0121:33 08              jmp code_012b 

        code_0123
  0123:39 4c            pushi 4c // $4c claimed
  0125:78               push1 
  0126:76               push0 
  0127:87 01              lap param1 
  0129:4a 06             send 6 


        code_012b
  012b:33 2c              jmp code_0159 

        code_012d
  012d:78               push1 
  012e:74 003c          lofss $016d // climb/barriere
  0131:43 25 02         callk Said 2 

  0134:31 0e              bnt code_0144 
  0136:7a               push2 
  0137:38 00cf          pushi cf // $cf blocks
  013a:39 06            pushi 6 // $6 loop
  013c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0142:33 15              jmp code_0159 

        code_0144
  0144:78               push1 
  0145:74 0022          lofss $016a // archway
  0148:43 25 02         callk Said 2 

  014b:31 0c              bnt code_0159 
  014d:7a               push2 
  014e:38 00cf          pushi cf // $cf blocks
  0151:39 07            pushi 7 // $7 cel
  0153:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0159
  0159:48                 ret 
    )

)



