(script 26)

(string
    string_02a0 "House"
    string_02a6 "Room26"
    string_02ad ""
)

(said
    said_01e6 /archway
    said_01ea /boite
    said_01ee /allee
    said_01f2 [<around,at][/room]
    said_0200 clore,open/archway
    said_0209 get/boite
    said_020f look/cabin
    said_0215 look>
    said_0219 huile/archway
)

(local
)

// 0226
(instance public Room26 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $1a
        style $ffff
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $0
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_000c
  000c:35 7a              ldi 7a 
  000e:65 16             aTop horizon 
  0010:35 1b              ldi 1b 
  0012:65 1c             aTop east 
  0014:35 19              ldi 19 
  0016:65 20             aTop west 
  0018:35 14              ldi 14 
  001a:65 1a             aTop north 
  001c:39 57            pushi 57 // $57 init
  001e:76               push0 
  001f:57 37 04         super Rm 4 

  0022:38 010a          pushi 10a // $10a setRegions
  0025:7a               push2 
  0026:38 00cf          pushi cf // $cf blocks
  0029:38 0195          pushi 195 // $195 sel_405
  002c:38 010b          pushi 10b // $10b setFeatures
  002f:78               push1 
  0030:74 0249          lofss $027c // House
  0033:54 0e             self e 

  0035:88 00a5            lsg gAct 
  0038:35 02              ldi 2 
  003a:20                 ge? 
  003b:31 11              bnt code_004e 
  003d:88 00a5            lsg gAct 
  0040:35 04              ldi 4 
  0042:22                 lt? 
  0043:31 09              bnt code_004e 
  0045:38 010a          pushi 10a // $10a setRegions
  0048:78               push1 
  0049:38 00ca          pushi ca // $ca show
  004c:54 06             self 6 


        code_004e
  004e:88 00a5            lsg gAct 
  0051:35 03              ldi 3 
  0053:1a                 eq? 
  0054:31 07              bnt code_005d 
  0056:89 72              lsg global114 
  0058:35 0a              ldi a 
  005a:1c                 ne? 
  005b:2f 10               bt code_006d 

        code_005d
  005d:88 00a5            lsg gAct 
  0060:35 06              ldi 6 
  0062:1a                 eq? 
  0063:31 11              bnt code_0076 
  0065:89 76              lsg gMustDos 
  0067:35 02              ldi 2 
  0069:12                 and 
  006a:18                 not 
  006b:31 09              bnt code_0076 

        code_006d
  006d:38 010a          pushi 10a // $10a setRegions
  0070:78               push1 
  0071:38 0119          pushi 119 // $119 startExtra
  0074:54 06             self 6 


        code_0076
  0076:89 0c              lsg gPrevRoomNum 
  0078:35 14              ldi 14 
  007a:1a                 eq? 
  007b:31 0d              bnt code_008a 
  007d:38 00c5          pushi c5 // $c5 posn
  0080:7a               push2 
  0081:38 00b4          pushi b4 // $b4 escaping
  0084:39 7d            pushi 7d // $7d set
  0086:81 00              lag gEgo 
  0088:4a 08             send 8 


        code_008a
  008a:89 0c              lsg gPrevRoomNum 
  008c:35 19              ldi 19 
  008e:1a                 eq? 
  008f:31 1a              bnt code_00ab 
  0091:39 03            pushi 3 // $3 y
  0093:76               push0 
  0094:81 00              lag gEgo 
  0096:4a 04             send 4 

  0098:36                push 
  0099:34 009d            ldi 9d 
  009c:22                 lt? 
  009d:31 0c              bnt code_00ab 
  009f:38 00c5          pushi c5 // $c5 posn
  00a2:7a               push2 
  00a3:78               push1 
  00a4:38 0091          pushi 91 // $91 isType
  00a7:81 00              lag gEgo 
  00a9:4a 08             send 8 


        code_00ab
  00ab:39 05            pushi 5 // $5 view
  00ad:78               push1 
  00ae:76               push0 
  00af:39 57            pushi 57 // $57 init
  00b1:76               push0 
  00b2:81 00              lag gEgo 
  00b4:4a 0a             send a 

  00b6:76               push0 
  00b7:45 04 00         callb procedure_0004 0 // HandsOn 

  00ba:48                 ret 
    )

    (method (newRoom) // method_00bb
  00bb:38 00f8          pushi f8 // $f8 newRoom
  00be:78               push1 
  00bf:8f 01              lsp param1 
  00c1:57 37 06         super Rm 6 

  00c4:48                 ret 
    )

    (method (doit) // method_00c5
  00c5:76               push0 
  00c6:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  00c9:31 0a              bnt code_00d5 
  00cb:7a               push2 
  00cc:39 1a            pushi 1a // $1a text
  00ce:76               push0 
  00cf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00d5
  00d5:39 3c            pushi 3c // $3c doit
  00d7:76               push0 
  00d8:57 37 04         super Rm 4 

  00db:48                 ret 
    )

    (method (dispose) // method_00dc
  00dc:39 58            pushi 58 // $58 dispose
  00de:76               push0 
  00df:57 37 04         super Rm 4 

  00e2:48                 ret 
    )

    (method (handleEvent) // method_00e3
  00e3:39 4c            pushi 4c // $4c claimed
  00e5:76               push0 
  00e6:87 01              lap param1 
  00e8:4a 04             send 4 

  00ea:31 03              bnt code_00ef 
  00ec:35 01              ldi 1 
  00ee:48                 ret 

        code_00ef
  00ef:39 22            pushi 22 // $22 type
  00f1:76               push0 
  00f2:87 01              lap param1 
  00f4:4a 04             send 4 

  00f6:36                push 
  00f7:34 0080            ldi 80 
  00fa:1a                 eq? 
  00fb:30 00b7            bnt code_01b5 
  00fe:78               push1 
  00ff:74 0113          lofss $0215 // look>
  0102:43 25 02         callk Said 2 

  0105:31 55              bnt code_015c 
  0107:78               push1 
  0108:74 00e7          lofss $01f2 // [<around,at][/room]
  010b:43 25 02         callk Said 2 

  010e:31 0c              bnt code_011c 
  0110:7a               push2 
  0111:39 1a            pushi 1a // $1a text
  0113:76               push0 
  0114:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  011a:33 3e              jmp code_015a 

        code_011c
  011c:78               push1 
  011d:74 00ce          lofss $01ee // /allee
  0120:43 25 02         callk Said 2 

  0123:31 0c              bnt code_0131 
  0125:7a               push2 
  0126:39 1a            pushi 1a // $1a text
  0128:78               push1 
  0129:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  012f:33 29              jmp code_015a 

        code_0131
  0131:78               push1 
  0132:74 00b1          lofss $01e6 // /archway
  0135:43 25 02         callk Said 2 

  0138:31 0c              bnt code_0146 
  013a:7a               push2 
  013b:39 1a            pushi 1a // $1a text
  013d:7a               push2 
  013e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0144:33 14              jmp code_015a 

        code_0146
  0146:78               push1 
  0147:74 00a0          lofss $01ea // /boite
  014a:43 25 02         callk Said 2 

  014d:31 0b              bnt code_015a 
  014f:7a               push2 
  0150:39 1a            pushi 1a // $1a text
  0152:39 03            pushi 3 // $3 y
  0154:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_015a
  015a:33 59              jmp code_01b5 

        code_015c
  015c:78               push1 
  015d:74 00a9          lofss $0209 // get/boite
  0160:43 25 02         callk Said 2 

  0163:31 0d              bnt code_0172 
  0165:7a               push2 
  0166:39 1a            pushi 1a // $1a text
  0168:39 04            pushi 4 // $4 x
  016a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0170:33 43              jmp code_01b5 

        code_0172
  0172:78               push1 
  0173:74 008a          lofss $0200 // clore,open/archway
  0176:43 25 02         callk Said 2 

  0179:31 0d              bnt code_0188 
  017b:7a               push2 
  017c:39 1a            pushi 1a // $1a text
  017e:39 05            pushi 5 // $5 view
  0180:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0186:33 2d              jmp code_01b5 

        code_0188
  0188:78               push1 
  0189:74 008d          lofss $0219 // huile/archway
  018c:43 25 02         callk Said 2 

  018f:31 24              bnt code_01b5 
  0191:38 00ee          pushi ee // $ee has
  0194:78               push1 
  0195:39 03            pushi 3 // $3 y
  0197:81 00              lag gEgo 
  0199:4a 06             send 6 

  019b:31 0d              bnt code_01aa 
  019d:7a               push2 
  019e:39 1a            pushi 1a // $1a text
  01a0:39 06            pushi 6 // $6 loop
  01a2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01a8:33 0b              jmp code_01b5 

        code_01aa
  01aa:7a               push2 
  01ab:39 1a            pushi 1a // $1a text
  01ad:39 07            pushi 7 // $7 cel
  01af:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01b5
  01b5:48                 ret 
    )

)

// 0276
(instance House of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $3b
        nsLeft $26
        nsBottom $61
        nsRight $70
    )
    (method (handleEvent) // method_01b6
  01b6:39 03            pushi 3 // $3 y
  01b8:7c            pushSelf 
  01b9:8f 01              lsp param1 
  01bb:39 03            pushi 3 // $3 y
  01bd:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  01c3:2f 09               bt code_01ce 
  01c5:78               push1 
  01c6:74 0046          lofss $020f // look/cabin
  01c9:43 25 02         callk Said 2 

  01cc:31 13              bnt code_01e1 

        code_01ce
  01ce:39 4c            pushi 4c // $4c claimed
  01d0:78               push1 
  01d1:78               push1 
  01d2:87 01              lap param1 
  01d4:4a 06             send 6 

  01d6:7a               push2 
  01d7:39 1a            pushi 1a // $1a text
  01d9:39 08            pushi 8 // $8 underBits
  01db:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01e1
  01e1:48                 ret 
    )

)



