(script 27)

(string
    string_0314 "House"
    string_031a "Room27"
    string_0321 "star1"
    string_0327 "star2"
    string_032d "twinkle"
    string_0335 ""
)

(said
    said_01a8 /cabin,mansion
    said_01af [<around,at][/room]
    said_01bd look/cabane
    said_01c3 look>
)

(local
)

// 01ce
(instance public Room27 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $1b
        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 78              ldi 78 
  000e:65 16             aTop horizon 
  0010:35 1c              ldi 1c 
  0012:65 1c             aTop east 
  0014:35 1a              ldi 1a 
  0016:65 20             aTop west 
  0018:35 15              ldi 15 
  001a:65 1a             aTop north 
  001c:39 57            pushi 57 // $57 init
  001e:76               push0 
  001f:57 37 04         super Rm 4 

  0022:80 00df            lag gDetailLevel 
  0025:31 21              bnt code_0048 
  0027:38 00a4          pushi a4 // $a4 cycleSpeed
  002a:78               push1 
  002b:7a               push2 
  002c:39 7e            pushi 7e // $7e setCycle
  002e:78               push1 
  002f:51 16            class Fwd 
  0031:36                push 
  0032:39 57            pushi 57 // $57 init
  0034:76               push0 
  0035:72 021c          lofsa $0254 // star1
  0038:4a 10             send 10 

  003a:39 57            pushi 57 // $57 init
  003c:76               push0 
  003d:39 7a            pushi 7a // $7a setScript
  003f:78               push1 
  0040:74 01e1          lofss $0224 // twinkle
  0043:72 025c          lofsa $02a2 // star2
  0046:4a 0a             send a 


        code_0048
  0048:38 010a          pushi 10a // $10a setRegions
  004b:7a               push2 
  004c:38 00cf          pushi cf // $cf blocks
  004f:38 0195          pushi 195 // $195 sel_405
  0052:38 010b          pushi 10b // $10b setFeatures
  0055:78               push1 
  0056:74 0297          lofss $02f0 // House
  0059:54 0e             self e 

  005b:88 00a5            lsg gAct 
  005e:35 02              ldi 2 
  0060:20                 ge? 
  0061:31 11              bnt code_0074 
  0063:88 00a5            lsg gAct 
  0066:35 04              ldi 4 
  0068:22                 lt? 
  0069:31 09              bnt code_0074 
  006b:38 010a          pushi 10a // $10a setRegions
  006e:78               push1 
  006f:38 00ca          pushi ca // $ca show
  0072:54 06             self 6 


        code_0074
  0074:88 00a5            lsg gAct 
  0077:35 03              ldi 3 
  0079:1a                 eq? 
  007a:31 07              bnt code_0083 
  007c:89 72              lsg global114 
  007e:35 0a              ldi a 
  0080:1c                 ne? 
  0081:2f 10               bt code_0093 

        code_0083
  0083:88 00a5            lsg gAct 
  0086:35 06              ldi 6 
  0088:1a                 eq? 
  0089:31 11              bnt code_009c 
  008b:89 76              lsg gMustDos 
  008d:35 02              ldi 2 
  008f:12                 and 
  0090:18                 not 
  0091:31 09              bnt code_009c 

        code_0093
  0093:38 010a          pushi 10a // $10a setRegions
  0096:78               push1 
  0097:38 0119          pushi 119 // $119 startExtra
  009a:54 06             self 6 


        code_009c
  009c:89 0c              lsg gPrevRoomNum 
  009e:3c                 dup 
  009f:35 15              ldi 15 
  00a1:1a                 eq? 
  00a2:31 0d              bnt code_00b1 
  00a4:38 00c5          pushi c5 // $c5 posn
  00a7:7a               push2 
  00a8:38 00a2          pushi a2 // $a2 setCel
  00ab:39 7a            pushi 7a // $7a setScript
  00ad:81 00              lag gEgo 
  00af:4a 08             send 8 


        code_00b1
  00b1:3a                toss 
  00b2:39 05            pushi 5 // $5 view
  00b4:78               push1 
  00b5:76               push0 
  00b6:39 57            pushi 57 // $57 init
  00b8:76               push0 
  00b9:81 00              lag gEgo 
  00bb:4a 0a             send a 

  00bd:76               push0 
  00be:45 04 00         callb procedure_0004 0 // HandsOn 

  00c1:48                 ret 
    )

    (method (newRoom) // method_00c2
  00c2:38 00f8          pushi f8 // $f8 newRoom
  00c5:78               push1 
  00c6:8f 01              lsp param1 
  00c8:57 37 06         super Rm 6 

  00cb:48                 ret 
    )

    (method (doit) // method_00cc
  00cc:76               push0 
  00cd:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  00d0:31 0a              bnt code_00dc 
  00d2:7a               push2 
  00d3:39 1b            pushi 1b // $1b elements
  00d5:76               push0 
  00d6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00dc
  00dc:39 3c            pushi 3c // $3c doit
  00de:76               push0 
  00df:57 37 04         super Rm 4 

  00e2:48                 ret 
    )

    (method (dispose) // method_00e3
  00e3:39 58            pushi 58 // $58 dispose
  00e5:76               push0 
  00e6:57 37 04         super Rm 4 

  00e9:48                 ret 
    )

    (method (handleEvent) // method_00ea
  00ea:39 4c            pushi 4c // $4c claimed
  00ec:76               push0 
  00ed:87 01              lap param1 
  00ef:4a 04             send 4 

  00f1:31 03              bnt code_00f6 
  00f3:35 01              ldi 1 
  00f5:48                 ret 

        code_00f6
  00f6:39 22            pushi 22 // $22 type
  00f8:76               push0 
  00f9:87 01              lap param1 
  00fb:4a 04             send 4 

  00fd:36                push 
  00fe:34 0080            ldi 80 
  0101:1a                 eq? 
  0102:31 31              bnt code_0135 
  0104:78               push1 
  0105:74 00bb          lofss $01c3 // look>
  0108:43 25 02         callk Said 2 

  010b:31 28              bnt code_0135 
  010d:78               push1 
  010e:74 009e          lofss $01af // [<around,at][/room]
  0111:43 25 02         callk Said 2 

  0114:31 0c              bnt code_0122 
  0116:7a               push2 
  0117:39 1b            pushi 1b // $1b elements
  0119:76               push0 
  011a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0120:33 13              jmp code_0135 

        code_0122
  0122:78               push1 
  0123:74 0082          lofss $01a8 // /cabin,mansion
  0126:43 25 02         callk Said 2 

  0129:31 0a              bnt code_0135 
  012b:7a               push2 
  012c:39 1b            pushi 1b // $1b elements
  012e:78               push1 
  012f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0135
  0135:48                 ret 
    )

)

// 021e
(instance twinkle of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_0136
  0136:87 01              lap param1 
  0138:65 0a             aTop state 
  013a:36                push 
  013b:3c                 dup 
  013c:35 00              ldi 0 
  013e:1a                 eq? 
  013f:31 0e              bnt code_014f 
  0141:39 7e            pushi 7e // $7e setCycle
  0143:7a               push2 
  0144:51 1a            class End 
  0146:36                push 
  0147:7c            pushSelf 
  0148:72 0157          lofsa $02a2 // star2
  014b:4a 08             send 8 

  014d:33 27              jmp code_0176 

        code_014f
  014f:3c                 dup 
  0150:35 01              ldi 1 
  0152:1a                 eq? 
  0153:31 21              bnt code_0176 
  0155:7a               push2 
  0156:78               push1 
  0157:39 64            pushi 64 // $64 allTrue
  0159:43 40 04         callk Random 4 

  015c:36                push 
  015d:35 23              ldi 23 
  015f:22                 lt? 
  0160:31 06              bnt code_0168 
  0162:35 ff              ldi ff 
  0164:65 0a             aTop state 
  0166:33 04              jmp code_016c 

        code_0168
  0168:35 00              ldi 0 
  016a:65 0a             aTop state 

        code_016c
  016c:7a               push2 
  016d:39 07            pushi 7 // $7 cel
  016f:39 0f            pushi f // $f lsBottom
  0171:43 40 04         callk Random 4 

  0174:65 12             aTop seconds 

        code_0176
  0176:3a                toss 
  0177:48                 ret 
    )

)

// 024e
(instance star1 of Prop
    (properties
        y $3
        x $74
        z $0
        heading $0
        yStep $2
        view $6b
        loop $1
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 029c
(instance star2 of Prop
    (properties
        y $2b
        x $e4
        z $0
        heading $0
        yStep $2
        view $6b
        loop $2
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 02ea
(instance House of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $45
        nsLeft $4a
        nsBottom $52
        nsRight $5a
    )
    (method (handleEvent) // method_0178
  0178:39 03            pushi 3 // $3 y
  017a:7c            pushSelf 
  017b:8f 01              lsp param1 
  017d:39 03            pushi 3 // $3 y
  017f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0185:2f 09               bt code_0190 
  0187:78               push1 
  0188:74 0032          lofss $01bd // look/cabane
  018b:43 25 02         callk Said 2 

  018e:31 12              bnt code_01a2 

        code_0190
  0190:39 4c            pushi 4c // $4c claimed
  0192:78               push1 
  0193:78               push1 
  0194:87 01              lap param1 
  0196:4a 06             send 6 

  0198:7a               push2 
  0199:39 1b            pushi 1b // $1b elements
  019b:7a               push2 
  019c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01a2
  01a2:48                 ret 
  01a3:00                bnot 
    )

)



