(script 206)

(string
    string_03f8 "houseOReg"
)

(said
    said_0326 /cabin,mansion
    said_032d /colonne
    said_0331 /door
    said_0335 /gallery
    said_0339 /fenetre
    said_033d <(dans,through)/fenetre,cabin
    said_034c bang[/door]
    said_0354 break/fenetre
    said_035a climb/colonne
    said_0360 look>
    said_0364 look[<dans]/(hall,hall)[<entree]
    said_0379 look[<dans]/cuisine
    said_0384 look[<dans]/parlor
    said_038f look[<dans]/etudier,colonel[/etudier]
    said_03a2 look[<dans]/room<billard
    said_03b0 open/door
    said_03b6 open/fenetre
    said_03bc rotate<on/allumer
)

(local
)

// 03cc
(instance public houseOReg 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 (doit) // method_0013
  0013:39 3c            pushi 3c // $3c doit
  0015:76               push0 
  0016:57 36 04         super Rgn 4 

  0019:88 00a5            lsg gAct 
  001c:35 00              ldi 0 
  001e:1a                 eq? 
  001f:31 30              bnt code_0051 
  0021:78               push1 
  0022:39 27            pushi 27 // $27 who
  0024:45 07 02         callb procedure_0007 2 // IsFlag 

  0027:18                 not 
  0028:31 27              bnt code_0051 
  002a:89 0b              lsg gCurRoomNum 
  002c:35 12              ldi 12 
  002e:22                 lt? 
  002f:31 20              bnt code_0051 
  0031:38 00db          pushi db // $db onControl
  0034:78               push1 
  0035:78               push1 
  0036:81 00              lag gEgo 
  0038:4a 06             send 6 

  003a:36                push 
  003b:35 01              ldi 1 
  003d:12                 and 
  003e:31 11              bnt code_0051 
  0040:7a               push2 
  0041:38 00ce          pushi ce // $ce yLast
  0044:76               push0 
  0045:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  004b:78               push1 
  004c:39 27            pushi 27 // $27 who
  004e:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0051
  0051:48                 ret 
    )

    (method (handleEvent) // method_0052
  0052:39 4c            pushi 4c // $4c claimed
  0054:76               push0 
  0055:87 01              lap param1 
  0057:4a 04             send 4 

  0059:31 03              bnt code_005e 
  005b:35 01              ldi 1 
  005d:48                 ret 

        code_005e
  005e:39 22            pushi 22 // $22 type
  0060:76               push0 
  0061:87 01              lap param1 
  0063:4a 04             send 4 

  0065:36                push 
  0066:34 0080            ldi 80 
  0069:1a                 eq? 
  006a:30 02b4            bnt code_0321 
  006d:89 0b              lsg gCurRoomNum 
  006f:35 0a              ldi a 
  0071:1a                 eq? 
  0072:31 2c              bnt code_00a0 
  0074:78               push1 
  0075:74 0317          lofss $038f // look[<dans]/etudier,colonel[/etudier]
  0078:43 25 02         callk Said 2 

  007b:31 23              bnt code_00a0 
  007d:38 00db          pushi db // $db onControl
  0080:78               push1 
  0081:76               push0 
  0082:81 00              lag gEgo 
  0084:4a 06             send 6 

  0086:36                push 
  0087:35 40              ldi 40 
  0089:12                 and 
  008a:31 0d              bnt code_0099 
  008c:7a               push2 
  008d:38 00ce          pushi ce // $ce yLast
  0090:78               push1 
  0091:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0097:33 04              jmp code_009d 

        code_0099
  0099:76               push0 
  009a:45 09 00         callb procedure_0009 0 // NotClose 


        code_009d
  009d:32 0281            jmp code_0321 

        code_00a0
  00a0:89 0b              lsg gCurRoomNum 
  00a2:35 0c              ldi c 
  00a4:1a                 eq? 
  00a5:31 2c              bnt code_00d3 
  00a7:78               push1 
  00a8:74 02ce          lofss $0379 // look[<dans]/cuisine
  00ab:43 25 02         callk Said 2 

  00ae:31 23              bnt code_00d3 
  00b0:38 00db          pushi db // $db onControl
  00b3:78               push1 
  00b4:76               push0 
  00b5:81 00              lag gEgo 
  00b7:4a 06             send 6 

  00b9:36                push 
  00ba:35 40              ldi 40 
  00bc:12                 and 
  00bd:31 0d              bnt code_00cc 
  00bf:7a               push2 
  00c0:38 00ce          pushi ce // $ce yLast
  00c3:78               push1 
  00c4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00ca:33 04              jmp code_00d0 

        code_00cc
  00cc:76               push0 
  00cd:45 09 00         callb procedure_0009 0 // NotClose 


        code_00d0
  00d0:32 024e            jmp code_0321 

        code_00d3
  00d3:89 0b              lsg gCurRoomNum 
  00d5:35 0f              ldi f 
  00d7:1a                 eq? 
  00d8:31 2c              bnt code_0106 
  00da:78               push1 
  00db:74 02c4          lofss $03a2 // look[<dans]/room<billard
  00de:43 25 02         callk Said 2 

  00e1:31 23              bnt code_0106 
  00e3:38 00db          pushi db // $db onControl
  00e6:78               push1 
  00e7:76               push0 
  00e8:81 00              lag gEgo 
  00ea:4a 06             send 6 

  00ec:36                push 
  00ed:35 40              ldi 40 
  00ef:12                 and 
  00f0:31 0d              bnt code_00ff 
  00f2:7a               push2 
  00f3:38 00ce          pushi ce // $ce yLast
  00f6:78               push1 
  00f7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00fd:33 04              jmp code_0103 

        code_00ff
  00ff:76               push0 
  0100:45 09 00         callb procedure_0009 0 // NotClose 


        code_0103
  0103:32 021b            jmp code_0321 

        code_0106
  0106:89 0b              lsg gCurRoomNum 
  0108:35 10              ldi 10 
  010a:1a                 eq? 
  010b:31 3e              bnt code_014b 
  010d:78               push1 
  010e:74 0253          lofss $0364 // look[<dans]/(hall,hall)[<entree]
  0111:43 25 02         callk Said 2 

  0114:2f 12               bt code_0128 
  0116:78               push1 
  0117:74 0288          lofss $03a2 // look[<dans]/room<billard
  011a:43 25 02         callk Said 2 

  011d:2f 09               bt code_0128 
  011f:78               push1 
  0120:74 0261          lofss $0384 // look[<dans]/parlor
  0123:43 25 02         callk Said 2 

  0126:31 23              bnt code_014b 

        code_0128
  0128:38 00db          pushi db // $db onControl
  012b:78               push1 
  012c:76               push0 
  012d:81 00              lag gEgo 
  012f:4a 06             send 6 

  0131:36                push 
  0132:35 40              ldi 40 
  0134:12                 and 
  0135:31 0d              bnt code_0144 
  0137:7a               push2 
  0138:38 00ce          pushi ce // $ce yLast
  013b:78               push1 
  013c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0142:33 04              jmp code_0148 

        code_0144
  0144:76               push0 
  0145:45 09 00         callb procedure_0009 0 // NotClose 


        code_0148
  0148:32 01d6            jmp code_0321 

        code_014b
  014b:89 0b              lsg gCurRoomNum 
  014d:35 11              ldi 11 
  014f:1a                 eq? 
  0150:31 2c              bnt code_017e 
  0152:78               push1 
  0153:74 022e          lofss $0384 // look[<dans]/parlor
  0156:43 25 02         callk Said 2 

  0159:31 23              bnt code_017e 
  015b:38 00db          pushi db // $db onControl
  015e:78               push1 
  015f:76               push0 
  0160:81 00              lag gEgo 
  0162:4a 06             send 6 

  0164:36                push 
  0165:35 40              ldi 40 
  0167:12                 and 
  0168:31 0d              bnt code_0177 
  016a:7a               push2 
  016b:38 00ce          pushi ce // $ce yLast
  016e:78               push1 
  016f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0175:33 04              jmp code_017b 

        code_0177
  0177:76               push0 
  0178:45 09 00         callb procedure_0009 0 // NotClose 


        code_017b
  017b:32 01a3            jmp code_0321 

        code_017e
  017e:78               push1 
  017f:74 01de          lofss $0360 // look>
  0182:43 25 02         callk Said 2 

  0185:30 00c1            bnt code_0249 
  0188:78               push1 
  0189:74 01b1          lofss $033d // <(dans,through)/fenetre,cabin
  018c:43 25 02         callk Said 2 

  018f:31 30              bnt code_01c1 
  0191:89 0b              lsg gCurRoomNum 
  0193:35 14              ldi 14 
  0195:22                 lt? 
  0196:31 22              bnt code_01ba 
  0198:38 00db          pushi db // $db onControl
  019b:78               push1 
  019c:76               push0 
  019d:81 00              lag gEgo 
  019f:4a 06             send 6 

  01a1:36                push 
  01a2:35 40              ldi 40 
  01a4:12                 and 
  01a5:31 0d              bnt code_01b4 
  01a7:7a               push2 
  01a8:38 00ce          pushi ce // $ce yLast
  01ab:78               push1 
  01ac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01b2:33 04              jmp code_01b8 

        code_01b4
  01b4:76               push0 
  01b5:45 09 00         callb procedure_0009 0 // NotClose 


        code_01b8
  01b8:33 04              jmp code_01be 

        code_01ba
  01ba:76               push0 
  01bb:45 09 00         callb procedure_0009 0 // NotClose 


        code_01be
  01be:32 0085            jmp code_0246 

        code_01c1
  01c1:78               push1 
  01c2:74 0161          lofss $0326 // /cabin,mansion
  01c5:43 25 02         callk Said 2 

  01c8:31 0d              bnt code_01d7 
  01ca:7a               push2 
  01cb:38 00ce          pushi ce // $ce yLast
  01ce:7a               push2 
  01cf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01d5:33 6f              jmp code_0246 

        code_01d7
  01d7:78               push1 
  01d8:74 015e          lofss $0339 // /fenetre
  01db:43 25 02         callk Said 2 

  01de:31 0e              bnt code_01ee 
  01e0:7a               push2 
  01e1:38 00ce          pushi ce // $ce yLast
  01e4:39 03            pushi 3 // $3 y
  01e6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ec:33 58              jmp code_0246 

        code_01ee
  01ee:78               push1 
  01ef:74 013f          lofss $0331 // /door
  01f2:43 25 02         callk Said 2 

  01f5:31 23              bnt code_021a 
  01f7:89 0b              lsg gCurRoomNum 
  01f9:35 14              ldi 14 
  01fb:22                 lt? 
  01fc:31 0e              bnt code_020c 
  01fe:7a               push2 
  01ff:38 00ce          pushi ce // $ce yLast
  0202:39 04            pushi 4 // $4 x
  0204:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  020a:33 0c              jmp code_0218 

        code_020c
  020c:7a               push2 
  020d:38 00ce          pushi ce // $ce yLast
  0210:39 05            pushi 5 // $5 view
  0212:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0218
  0218:33 2c              jmp code_0246 

        code_021a
  021a:78               push1 
  021b:74 010f          lofss $032d // /colonne
  021e:43 25 02         callk Said 2 

  0221:31 0e              bnt code_0231 
  0223:7a               push2 
  0224:38 00ce          pushi ce // $ce yLast
  0227:39 06            pushi 6 // $6 loop
  0229:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  022f:33 15              jmp code_0246 

        code_0231
  0231:78               push1 
  0232:74 0100          lofss $0335 // /gallery
  0235:43 25 02         callk Said 2 

  0238:31 0c              bnt code_0246 
  023a:7a               push2 
  023b:38 00ce          pushi ce // $ce yLast
  023e:39 07            pushi 7 // $7 cel
  0240:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0246
  0246:32 00d8            jmp code_0321 

        code_0249
  0249:78               push1 
  024a:74 0169          lofss $03b6 // open/fenetre
  024d:43 25 02         callk Said 2 

  0250:31 1c              bnt code_026e 
  0252:89 0b              lsg gCurRoomNum 
  0254:35 14              ldi 14 
  0256:22                 lt? 
  0257:31 0e              bnt code_0267 
  0259:7a               push2 
  025a:38 00ce          pushi ce // $ce yLast
  025d:39 08            pushi 8 // $8 underBits
  025f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0265:33 04              jmp code_026b 

        code_0267
  0267:76               push0 
  0268:45 09 00         callb procedure_0009 0 // NotClose 


        code_026b
  026b:32 00b3            jmp code_0321 

        code_026e
  026e:78               push1 
  026f:74 013e          lofss $03b0 // open/door
  0272:43 25 02         callk Said 2 

  0275:31 1c              bnt code_0293 
  0277:89 0b              lsg gCurRoomNum 
  0279:35 14              ldi 14 
  027b:22                 lt? 
  027c:31 0e              bnt code_028c 
  027e:7a               push2 
  027f:38 00ce          pushi ce // $ce yLast
  0282:39 09            pushi 9 // $9 nsTop
  0284:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  028a:33 04              jmp code_0290 

        code_028c
  028c:76               push0 
  028d:45 09 00         callb procedure_0009 0 // NotClose 


        code_0290
  0290:32 008e            jmp code_0321 

        code_0293
  0293:78               push1 
  0294:74 00bd          lofss $0354 // break/fenetre
  0297:43 25 02         callk Said 2 

  029a:31 1b              bnt code_02b7 
  029c:89 0b              lsg gCurRoomNum 
  029e:35 14              ldi 14 
  02a0:22                 lt? 
  02a1:31 0e              bnt code_02b1 
  02a3:7a               push2 
  02a4:38 00ce          pushi ce // $ce yLast
  02a7:39 0a            pushi a // $a nsLeft
  02a9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02af:33 04              jmp code_02b5 

        code_02b1
  02b1:76               push0 
  02b2:45 09 00         callb procedure_0009 0 // NotClose 


        code_02b5
  02b5:33 6a              jmp code_0321 

        code_02b7
  02b7:78               push1 
  02b8:74 009f          lofss $035a // climb/colonne
  02bb:43 25 02         callk Said 2 

  02be:31 1b              bnt code_02db 
  02c0:89 0b              lsg gCurRoomNum 
  02c2:35 14              ldi 14 
  02c4:22                 lt? 
  02c5:31 0e              bnt code_02d5 
  02c7:7a               push2 
  02c8:38 00ce          pushi ce // $ce yLast
  02cb:39 0b            pushi b // $b nsBottom
  02cd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02d3:33 04              jmp code_02d9 

        code_02d5
  02d5:76               push0 
  02d6:45 09 00         callb procedure_0009 0 // NotClose 


        code_02d9
  02d9:33 46              jmp code_0321 

        code_02db
  02db:78               push1 
  02dc:74 006d          lofss $034c // bang[/door]
  02df:43 25 02         callk Said 2 

  02e2:31 1b              bnt code_02ff 
  02e4:89 0b              lsg gCurRoomNum 
  02e6:35 14              ldi 14 
  02e8:22                 lt? 
  02e9:31 0e              bnt code_02f9 
  02eb:7a               push2 
  02ec:38 00ce          pushi ce // $ce yLast
  02ef:39 0c            pushi c // $c nsRight
  02f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02f7:33 04              jmp code_02fd 

        code_02f9
  02f9:76               push0 
  02fa:45 09 00         callb procedure_0009 0 // NotClose 


        code_02fd
  02fd:33 22              jmp code_0321 

        code_02ff
  02ff:78               push1 
  0300:74 00b9          lofss $03bc // rotate<on/allumer
  0303:43 25 02         callk Said 2 

  0306:31 19              bnt code_0321 
  0308:89 0b              lsg gCurRoomNum 
  030a:35 14              ldi 14 
  030c:22                 lt? 
  030d:31 0e              bnt code_031d 
  030f:7a               push2 
  0310:38 00ce          pushi ce // $ce yLast
  0313:39 0d            pushi d // $d lsTop
  0315:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  031b:33 04              jmp code_0321 

        code_031d
  031d:76               push0 
  031e:45 09 00         callb procedure_0009 0 // NotClose 


        code_0321
  0321:48                 ret 
    )

)



