(script 64)

(string
    string_0996 "DoorOpening"
    string_09a2 "Fifi"
    string_09a7 "LDoor"
    string_09ad "RDoor"
    string_09b3 "Room64"
    string_09ba "Undressing"
    string_09c5 "bra"
    string_09c9 "dress"
    string_09cf "hose"
    string_09d4 "lArm"
    string_09d9 "nightie"
    string_09e1 "panties"
    string_09e9 "rArm"
)

(said
    said_0594 open/door
)

(local
    local0 = $0000
    local1 = $0000
)

// 05a0
(instance public Room64 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $40
        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 00              ldi 0 
  000e:65 16             aTop horizon 
  0010:39 57            pushi 57 // $57 init
  0012:76               push0 
  0013:57 37 04         super Rm 4 

  0016:39 61            pushi 61 // $61 add
  0018:78               push1 
  0019:74 0636          lofss $0652 // RDoor
  001c:39 3c            pushi 3c // $3c doit
  001e:76               push0 
  001f:81 0a              lag gAddToPics 
  0021:4a 0a             send a 

  0023:39 42            pushi 42 // $42 setPri
  0025:78               push1 
  0026:39 0e            pushi e // $e lsLeft
  0028:38 00c6          pushi c6 // $c6 stopUpd
  002b:76               push0 
  002c:39 57            pushi 57 // $57 init
  002e:76               push0 
  002f:72 064a          lofsa $067c // LDoor
  0032:4a 0e             send e 

  0034:39 42            pushi 42 // $42 setPri
  0036:78               push1 
  0037:39 0a            pushi a // $a nsLeft
  0039:38 00c6          pushi c6 // $c6 stopUpd
  003c:76               push0 
  003d:39 7a            pushi 7a // $7a setScript
  003f:78               push1 
  0040:74 05af          lofss $05f2 // Undressing
  0043:39 57            pushi 57 // $57 init
  0045:76               push0 
  0046:72 0685          lofsa $06ce // Fifi
  0049:4a 14             send 14 

  004b:39 42            pushi 42 // $42 setPri
  004d:78               push1 
  004e:39 0b            pushi b // $b nsBottom
  0050:39 57            pushi 57 // $57 init
  0052:76               push0 
  0053:72 06c6          lofsa $071c // lArm
  0056:4a 0a             send a 

  0058:48                 ret 
    )

    (method (doit) // method_0059
  0059:3f 02             link 2 // (var $2)
  005b:39 06            pushi 6 // $6 loop
  005d:76               push0 
  005e:72 0709          lofsa $076a // rArm
  0061:4a 04             send 4 

  0063:36                push 
  0064:35 07              ldi 7 
  0066:1a                 eq? 
  0067:31 5b              bnt code_00c4 
  0069:39 07            pushi 7 // $7 cel
  006b:76               push0 
  006c:72 06fb          lofsa $076a // rArm
  006f:4a 04             send 4 

  0071:36                push 
  0072:3c                 dup 
  0073:35 00              ldi 0 
  0075:1a                 eq? 
  0076:31 0a              bnt code_0082 
  0078:35 1e              ldi 1e 
  007a:a5 00              sat temp0 
  007c:35 0a              ldi a 
  007e:a5 01              sat temp1 
  0080:33 1e              jmp code_00a0 

        code_0082
  0082:3c                 dup 
  0083:35 01              ldi 1 
  0085:1a                 eq? 
  0086:31 0a              bnt code_0092 
  0088:35 0c              ldi c 
  008a:a5 00              sat temp0 
  008c:35 07              ldi 7 
  008e:a5 01              sat temp1 
  0090:33 0e              jmp code_00a0 

        code_0092
  0092:3c                 dup 
  0093:35 02              ldi 2 
  0095:1a                 eq? 
  0096:31 08              bnt code_00a0 
  0098:35 01              ldi 1 
  009a:a5 00              sat temp0 
  009c:35 01              ldi 1 
  009e:a5 01              sat temp1 

        code_00a0
  00a0:3a                toss 
  00a1:38 00c5          pushi c5 // $c5 posn
  00a4:7a               push2 
  00a5:39 04            pushi 4 // $4 x
  00a7:76               push0 
  00a8:72 06bf          lofsa $076a // rArm
  00ab:4a 04             send 4 

  00ad:36                push 
  00ae:85 00              lat temp0 
  00b0:04                 sub 
  00b1:36                push 
  00b2:39 03            pushi 3 // $3 y
  00b4:76               push0 
  00b5:72 06b2          lofsa $076a // rArm
  00b8:4a 04             send 4 

  00ba:36                push 
  00bb:85 01              lat temp1 
  00bd:02                 add 
  00be:36                push 
  00bf:72 06f6          lofsa $07b8 // nightie
  00c2:4a 08             send 8 


        code_00c4
  00c4:39 3c            pushi 3c // $3c doit
  00c6:76               push0 
  00c7:57 37 04         super Rm 4 

  00ca:48                 ret 
    )

    (method (dispose) // method_00cb
  00cb:39 58            pushi 58 // $58 dispose
  00cd:76               push0 
  00ce:57 37 04         super Rm 4 

  00d1:48                 ret 
    )

    (method (newRoom) // method_00d2
  00d2:38 00f8          pushi f8 // $f8 newRoom
  00d5:78               push1 
  00d6:8f 01              lsp param1 
  00d8:57 37 06         super Rm 6 

  00db:48                 ret 
    )

)

// 05ec
(instance Undressing 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_00dc
  00dc:87 01              lap param1 
  00de:65 0a             aTop state 
  00e0:36                push 
  00e1:3c                 dup 
  00e2:35 00              ldi 0 
  00e4:1a                 eq? 
  00e5:31 1d              bnt code_0104 
  00e7:76               push0 
  00e8:45 03 00         callb procedure_0003 0 // HandsOff 

  00eb:35 40              ldi 40 
  00ed:a0 00c0            sag gFifiState 
  00f0:38 00a4          pushi a4 // $a4 cycleSpeed
  00f3:78               push1 
  00f4:7a               push2 
  00f5:39 7e            pushi 7e // $7e setCycle
  00f7:7a               push2 
  00f8:51 1a            class End 
  00fa:36                push 
  00fb:7c            pushSelf 
  00fc:72 061d          lofsa $071c // lArm
  00ff:4a 0e             send e 

  0101:32 03cf            jmp code_04d3 

        code_0104
  0104:3c                 dup 
  0105:35 01              ldi 1 
  0107:1a                 eq? 
  0108:31 14              bnt code_011e 
  010a:38 00a4          pushi a4 // $a4 cycleSpeed
  010d:78               push1 
  010e:7a               push2 
  010f:39 7e            pushi 7e // $7e setCycle
  0111:7a               push2 
  0112:51 1b            class Beg 
  0114:36                push 
  0115:7c            pushSelf 
  0116:72 0603          lofsa $071c // lArm
  0119:4a 0e             send e 

  011b:32 03b5            jmp code_04d3 

        code_011e
  011e:3c                 dup 
  011f:35 02              ldi 2 
  0121:1a                 eq? 
  0122:30 0088            bnt code_01ad 
  0125:39 42            pushi 42 // $42 setPri
  0127:78               push1 
  0128:39 0c            pushi c // $c nsRight
  012a:39 7e            pushi 7e // $7e setCycle
  012c:7a               push2 
  012d:51 1a            class End 
  012f:36                push 
  0130:7c            pushSelf 
  0131:39 57            pushi 57 // $57 init
  0133:76               push0 
  0134:72 06cf          lofsa $0806 // dress
  0137:4a 12             send 12 

  0139:39 42            pushi 42 // $42 setPri
  013b:78               push1 
  013c:39 0c            pushi c // $c nsRight
  013e:38 00c6          pushi c6 // $c6 stopUpd
  0141:76               push0 
  0142:39 57            pushi 57 // $57 init
  0144:76               push0 
  0145:72 0722          lofsa $086a // bra
  0148:4a 0e             send e 

  014a:39 42            pushi 42 // $42 setPri
  014c:78               push1 
  014d:39 0c            pushi c // $c nsRight
  014f:38 00c6          pushi c6 // $c6 stopUpd
  0152:76               push0 
  0153:39 57            pushi 57 // $57 init
  0155:76               push0 
  0156:72 0775          lofsa $08ce // panties
  0159:4a 0e             send e 

  015b:38 00c8          pushi c8 // $c8 setLoop
  015e:78               push1 
  015f:78               push1 
  0160:39 42            pushi 42 // $42 setPri
  0162:78               push1 
  0163:39 0c            pushi c // $c nsRight
  0165:38 00c6          pushi c6 // $c6 stopUpd
  0168:76               push0 
  0169:39 57            pushi 57 // $57 init
  016b:76               push0 
  016c:72 07c3          lofsa $0932 // hose
  016f:4a 14             send 14 

  0171:39 42            pushi 42 // $42 setPri
  0173:78               push1 
  0174:39 0c            pushi c // $c nsRight
  0176:38 00c6          pushi c6 // $c6 stopUpd
  0179:76               push0 
  017a:39 57            pushi 57 // $57 init
  017c:76               push0 
  017d:72 05ea          lofsa $076a // rArm
  0180:4a 0e             send e 

  0182:39 06            pushi 6 // $6 loop
  0184:78               push1 
  0185:39 04            pushi 4 // $4 x
  0187:39 07            pushi 7 // $7 cel
  0189:78               push1 
  018a:76               push0 
  018b:38 00c5          pushi c5 // $c5 posn
  018e:7a               push2 
  018f:38 0094          pushi 94 // $94 retreat
  0192:39 38            pushi 38 // $38 moveSpeed
  0194:38 00c6          pushi c6 // $c6 stopUpd
  0197:76               push0 
  0198:72 0581          lofsa $071c // lArm
  019b:4a 18             send 18 

  019d:39 07            pushi 7 // $7 cel
  019f:78               push1 
  01a0:78               push1 
  01a1:38 00c7          pushi c7 // $c7 forceUpd
  01a4:76               push0 
  01a5:72 0526          lofsa $06ce // Fifi
  01a8:4a 0a             send a 

  01aa:32 0326            jmp code_04d3 

        code_01ad
  01ad:3c                 dup 
  01ae:35 03              ldi 3 
  01b0:1a                 eq? 
  01b1:31 3d              bnt code_01f0 
  01b3:81 03              lag gSpeed 
  01b5:a3 00              sal local0 
  01b7:38 00fd          pushi fd // $fd setSpeed
  01ba:78               push1 
  01bb:78               push1 
  01bc:81 01              lag gGame 
  01be:4a 06             send 6 

  01c0:38 00c8          pushi c8 // $c8 setLoop
  01c3:78               push1 
  01c4:39 03            pushi 3 // $3 y
  01c6:38 00a2          pushi a2 // $a2 setCel
  01c9:78               push1 
  01ca:76               push0 
  01cb:38 00c5          pushi c5 // $c5 posn
  01ce:7a               push2 
  01cf:38 008f          pushi 8f // $8f moveTo
  01d2:39 7d            pushi 7d // $7d set
  01d4:39 37            pushi 37 // $37 yStep
  01d6:78               push1 
  01d7:39 06            pushi 6 // $6 loop
  01d9:38 00d3          pushi d3 // $d3 setMotion
  01dc:39 04            pushi 4 // $4 x
  01de:51 1d            class MoveTo 
  01e0:36                push 
  01e1:38 008f          pushi 8f // $8f moveTo
  01e4:38 00a1          pushi a1 // $a1 motionCue
  01e7:7c            pushSelf 
  01e8:72 061b          lofsa $0806 // dress
  01eb:4a 26             send 26 

  01ed:32 02e3            jmp code_04d3 

        code_01f0
  01f0:3c                 dup 
  01f1:35 04              ldi 4 
  01f3:1a                 eq? 
  01f4:31 1e              bnt code_0214 
  01f6:76               push0 
  01f7:45 04 00         callb procedure_0004 0 // HandsOn 

  01fa:38 00a2          pushi a2 // $a2 setCel
  01fd:78               push1 
  01fe:39 ff            pushi ff // $ff checkAni
  0200:38 00a4          pushi a4 // $a4 cycleSpeed
  0203:78               push1 
  0204:7a               push2 
  0205:39 7e            pushi 7e // $7e setCycle
  0207:7a               push2 
  0208:51 1a            class End 
  020a:36                push 
  020b:7c            pushSelf 
  020c:72 05f7          lofsa $0806 // dress
  020f:4a 14             send 14 

  0211:32 02bf            jmp code_04d3 

        code_0214
  0214:3c                 dup 
  0215:35 05              ldi 5 
  0217:1a                 eq? 
  0218:31 26              bnt code_0240 
  021a:38 00fd          pushi fd // $fd setSpeed
  021d:78               push1 
  021e:8b 00              lsl local0 
  0220:81 01              lag gGame 
  0222:4a 06             send 6 

  0224:38 00c6          pushi c6 // $c6 stopUpd
  0227:76               push0 
  0228:72 05db          lofsa $0806 // dress
  022b:4a 04             send 4 

  022d:76               push0 
  022e:45 03 00         callb procedure_0003 0 // HandsOff 

  0231:83 01              lal local1 
  0233:31 04              bnt code_0239 
  0235:35 04              ldi 4 
  0237:65 0a             aTop state 

        code_0239
  0239:35 01              ldi 1 
  023b:65 10             aTop cycles 
  023d:32 0293            jmp code_04d3 

        code_0240
  0240:3c                 dup 
  0241:35 06              ldi 6 
  0243:1a                 eq? 
  0244:31 44              bnt code_028a 
  0246:39 06            pushi 6 // $6 loop
  0248:78               push1 
  0249:7a               push2 
  024a:38 00c5          pushi c5 // $c5 posn
  024d:7a               push2 
  024e:38 0086          pushi 86 // $86 pause
  0251:39 5b            pushi 5b // $5b perform
  0253:38 00c7          pushi c7 // $c7 forceUpd
  0256:76               push0 
  0257:72 0674          lofsa $08ce // panties
  025a:4a 12             send 12 

  025c:39 06            pushi 6 // $6 loop
  025e:78               push1 
  025f:78               push1 
  0260:38 00c5          pushi c5 // $c5 posn
  0263:7a               push2 
  0264:38 0090          pushi 90 // $90 setMark
  0267:39 6d            pushi 6d // $6d addAfter
  0269:38 00a3          pushi a3 // $a3 startUpd
  026c:76               push0 
  026d:39 7e            pushi 7e // $7e setCycle
  026f:78               push1 
  0270:51 17            class Walk 
  0272:36                push 
  0273:38 00d3          pushi d3 // $d3 setMotion
  0276:39 04            pushi 4 // $4 x
  0278:51 1d            class MoveTo 
  027a:36                push 
  027b:38 0092          pushi 92 // $92 checkState
  027e:38 009b          pushi 9b // $9b bottom
  0281:7c            pushSelf 
  0282:72 06ad          lofsa $0932 // hose
  0285:4a 24             send 24 

  0287:32 0249            jmp code_04d3 

        code_028a
  028a:3c                 dup 
  028b:35 07              ldi 7 
  028d:1a                 eq? 
  028e:31 38              bnt code_02c8 
  0290:38 00c6          pushi c6 // $c6 stopUpd
  0293:76               push0 
  0294:72 069b          lofsa $0932 // hose
  0297:4a 04             send 4 

  0299:38 00a2          pushi a2 // $a2 setCel
  029c:78               push1 
  029d:78               push1 
  029e:38 00c7          pushi c7 // $c7 forceUpd
  02a1:76               push0 
  02a2:72 04c5          lofsa $076a // rArm
  02a5:4a 0a             send a 

  02a7:38 00a2          pushi a2 // $a2 setCel
  02aa:78               push1 
  02ab:78               push1 
  02ac:38 00c7          pushi c7 // $c7 forceUpd
  02af:76               push0 
  02b0:72 0469          lofsa $071c // lArm
  02b3:4a 0a             send a 

  02b5:38 00a3          pushi a3 // $a3 startUpd
  02b8:76               push0 
  02b9:39 7e            pushi 7e // $7e setCycle
  02bb:7a               push2 
  02bc:51 1a            class End 
  02be:36                push 
  02bf:7c            pushSelf 
  02c0:72 060b          lofsa $08ce // panties
  02c3:4a 0c             send c 

  02c5:32 020b            jmp code_04d3 

        code_02c8
  02c8:3c                 dup 
  02c9:35 08              ldi 8 
  02cb:1a                 eq? 
  02cc:31 48              bnt code_0316 
  02ce:38 00a2          pushi a2 // $a2 setCel
  02d1:78               push1 
  02d2:76               push0 
  02d3:38 00c7          pushi c7 // $c7 forceUpd
  02d6:76               push0 
  02d7:72 0490          lofsa $076a // rArm
  02da:4a 0a             send a 

  02dc:38 00a2          pushi a2 // $a2 setCel
  02df:78               push1 
  02e0:76               push0 
  02e1:38 00c7          pushi c7 // $c7 forceUpd
  02e4:76               push0 
  02e5:72 0434          lofsa $071c // lArm
  02e8:4a 0a             send a 

  02ea:38 00c8          pushi c8 // $c8 setLoop
  02ed:78               push1 
  02ee:39 03            pushi 3 // $3 y
  02f0:38 00a2          pushi a2 // $a2 setCel
  02f3:78               push1 
  02f4:76               push0 
  02f5:38 00c5          pushi c5 // $c5 posn
  02f8:7a               push2 
  02f9:38 0087          pushi 87 // $87 clean
  02fc:38 008d          pushi 8d // $8d setSize
  02ff:38 00d3          pushi d3 // $d3 setMotion
  0302:39 04            pushi 4 // $4 x
  0304:51 1d            class MoveTo 
  0306:36                push 
  0307:38 0087          pushi 87 // $87 clean
  030a:38 009b          pushi 9b // $9b bottom
  030d:7c            pushSelf 
  030e:72 05bd          lofsa $08ce // panties
  0311:4a 20             send 20 

  0313:32 01bd            jmp code_04d3 

        code_0316
  0316:3c                 dup 
  0317:35 09              ldi 9 
  0319:1a                 eq? 
  031a:31 2b              bnt code_0347 
  031c:38 00a2          pushi a2 // $a2 setCel
  031f:78               push1 
  0320:7a               push2 
  0321:38 00c7          pushi c7 // $c7 forceUpd
  0324:76               push0 
  0325:72 0442          lofsa $076a // rArm
  0328:4a 0a             send a 

  032a:38 00a2          pushi a2 // $a2 setCel
  032d:78               push1 
  032e:7a               push2 
  032f:38 00c7          pushi c7 // $c7 forceUpd
  0332:76               push0 
  0333:72 03e6          lofsa $071c // lArm
  0336:4a 0a             send a 

  0338:39 7e            pushi 7e // $7e setCycle
  033a:7a               push2 
  033b:51 1a            class End 
  033d:36                push 
  033e:7c            pushSelf 
  033f:72 058c          lofsa $08ce // panties
  0342:4a 08             send 8 

  0344:32 018c            jmp code_04d3 

        code_0347
  0347:3c                 dup 
  0348:35 0a              ldi a 
  034a:1a                 eq? 
  034b:31 26              bnt code_0373 
  034d:38 00c6          pushi c6 // $c6 stopUpd
  0350:76               push0 
  0351:72 057a          lofsa $08ce // panties
  0354:4a 04             send 4 

  0356:38 00a2          pushi a2 // $a2 setCel
  0359:78               push1 
  035a:76               push0 
  035b:38 00c7          pushi c7 // $c7 forceUpd
  035e:76               push0 
  035f:72 03ba          lofsa $071c // lArm
  0362:4a 0a             send a 

  0364:39 7e            pushi 7e // $7e setCycle
  0366:7a               push2 
  0367:51 1a            class End 
  0369:36                push 
  036a:7c            pushSelf 
  036b:72 04fc          lofsa $086a // bra
  036e:4a 08             send 8 

  0370:32 0160            jmp code_04d3 

        code_0373
  0373:3c                 dup 
  0374:35 0b              ldi b 
  0376:1a                 eq? 
  0377:31 3c              bnt code_03b5 
  0379:38 00a2          pushi a2 // $a2 setCel
  037c:78               push1 
  037d:76               push0 
  037e:38 00c7          pushi c7 // $c7 forceUpd
  0381:76               push0 
  0382:72 03e5          lofsa $076a // rArm
  0385:4a 0a             send a 

  0387:38 00c8          pushi c8 // $c8 setLoop
  038a:78               push1 
  038b:39 05            pushi 5 // $5 view
  038d:38 00a2          pushi a2 // $a2 setCel
  0390:78               push1 
  0391:76               push0 
  0392:38 00c5          pushi c5 // $c5 posn
  0395:7a               push2 
  0396:38 0083          pushi 83 // $83 playMaybe
  0399:39 47            pushi 47 // $47 wordFail
  039b:38 00a3          pushi a3 // $a3 startUpd
  039e:76               push0 
  039f:38 00d3          pushi d3 // $d3 setMotion
  03a2:39 04            pushi 4 // $4 x
  03a4:51 1d            class MoveTo 
  03a6:36                push 
  03a7:38 0083          pushi 83 // $83 playMaybe
  03aa:39 6e            pushi 6e // $6e indexOf
  03ac:7c            pushSelf 
  03ad:72 04ba          lofsa $086a // bra
  03b0:4a 24             send 24 

  03b2:32 011e            jmp code_04d3 

        code_03b5
  03b5:3c                 dup 
  03b6:35 0c              ldi c 
  03b8:1a                 eq? 
  03b9:31 0f              bnt code_03ca 
  03bb:39 7e            pushi 7e // $7e setCycle
  03bd:7a               push2 
  03be:51 1a            class End 
  03c0:36                push 
  03c1:7c            pushSelf 
  03c2:72 04a5          lofsa $086a // bra
  03c5:4a 08             send 8 

  03c7:32 0109            jmp code_04d3 

        code_03ca
  03ca:3c                 dup 
  03cb:35 0d              ldi d 
  03cd:1a                 eq? 
  03ce:31 25              bnt code_03f5 
  03d0:38 00c6          pushi c6 // $c6 stopUpd
  03d3:76               push0 
  03d4:72 0493          lofsa $086a // bra
  03d7:4a 04             send 4 

  03d9:39 06            pushi 6 // $6 loop
  03db:78               push1 
  03dc:39 06            pushi 6 // $6 loop
  03de:39 07            pushi 7 // $7 cel
  03e0:78               push1 
  03e1:76               push0 
  03e2:38 00a3          pushi a3 // $a3 startUpd
  03e5:76               push0 
  03e6:39 7e            pushi 7e // $7e setCycle
  03e8:7a               push2 
  03e9:51 1a            class End 
  03eb:36                push 
  03ec:7c            pushSelf 
  03ed:72 037a          lofsa $076a // rArm
  03f0:4a 18             send 18 

  03f2:32 00de            jmp code_04d3 

        code_03f5
  03f5:3c                 dup 
  03f6:35 0e              ldi e 
  03f8:1a                 eq? 
  03f9:31 26              bnt code_0421 
  03fb:76               push0 
  03fc:45 03 00         callb procedure_0003 0 // HandsOff 

  03ff:83 01              lal local1 
  0401:31 0a              bnt code_040d 
  0403:35 05              ldi 5 
  0405:65 0a             aTop state 
  0407:35 01              ldi 1 
  0409:65 10             aTop cycles 
  040b:33 11              jmp code_041e 

        code_040d
  040d:39 42            pushi 42 // $42 setPri
  040f:78               push1 
  0410:39 0c            pushi c // $c nsRight
  0412:39 57            pushi 57 // $57 init
  0414:76               push0 
  0415:72 03a0          lofsa $07b8 // nightie
  0418:4a 0a             send a 

  041a:35 01              ldi 1 
  041c:65 10             aTop cycles 

        code_041e
  041e:32 00b2            jmp code_04d3 

        code_0421
  0421:3c                 dup 
  0422:35 0f              ldi f 
  0424:1a                 eq? 
  0425:31 2c              bnt code_0453 
  0427:39 06            pushi 6 // $6 loop
  0429:78               push1 
  042a:39 07            pushi 7 // $7 cel
  042c:39 07            pushi 7 // $7 cel
  042e:78               push1 
  042f:76               push0 
  0430:39 7e            pushi 7e // $7e setCycle
  0432:7a               push2 
  0433:51 1a            class End 
  0435:36                push 
  0436:7c            pushSelf 
  0437:72 0330          lofsa $076a // rArm
  043a:4a 14             send 14 

  043c:39 07            pushi 7 // $7 cel
  043e:78               push1 
  043f:78               push1 
  0440:74 0375          lofss $07b8 // nightie
  0443:43 0e 02         callk NumCels 2 

  0446:36                push 
  0447:35 01              ldi 1 
  0449:04                 sub 
  044a:36                push 
  044b:72 036a          lofsa $07b8 // nightie
  044e:4a 06             send 6 

  0450:32 0080            jmp code_04d3 

        code_0453
  0453:3c                 dup 
  0454:35 10              ldi 10 
  0456:1a                 eq? 
  0457:31 30              bnt code_0489 
  0459:39 06            pushi 6 // $6 loop
  045b:78               push1 
  045c:39 05            pushi 5 // $5 view
  045e:72 0309          lofsa $076a // rArm
  0461:4a 06             send 6 

  0463:39 07            pushi 7 // $7 cel
  0465:78               push1 
  0466:78               push1 
  0467:74 0300          lofss $076a // rArm
  046a:43 0e 02         callk NumCels 2 

  046d:36                push 
  046e:35 01              ldi 1 
  0470:04                 sub 
  0471:36                push 
  0472:72 02f5          lofsa $076a // rArm
  0475:4a 06             send 6 

  0477:38 00a3          pushi a3 // $a3 startUpd
  047a:76               push0 
  047b:39 7e            pushi 7e // $7e setCycle
  047d:7a               push2 
  047e:51 1a            class End 
  0480:36                push 
  0481:7c            pushSelf 
  0482:72 0297          lofsa $071c // lArm
  0485:4a 0c             send c 

  0487:33 4a              jmp code_04d3 

        code_0489
  0489:3c                 dup 
  048a:35 11              ldi 11 
  048c:1a                 eq? 
  048d:31 30              bnt code_04bf 
  048f:39 7e            pushi 7e // $7e setCycle
  0491:78               push1 
  0492:51 1b            class Beg 
  0494:36                push 
  0495:72 02d2          lofsa $076a // rArm
  0498:4a 06             send 6 

  049a:39 7e            pushi 7e // $7e setCycle
  049c:78               push1 
  049d:51 1b            class Beg 
  049f:36                push 
  04a0:72 0279          lofsa $071c // lArm
  04a3:4a 06             send 6 

  04a5:38 00c5          pushi c5 // $c5 posn
  04a8:7a               push2 
  04a9:38 0095          pushi 95 // $95 theItem
  04ac:39 38            pushi 38 // $38 moveSpeed
  04ae:39 7e            pushi 7e // $7e setCycle
  04b0:78               push1 
  04b1:51 1b            class Beg 
  04b3:36                push 
  04b4:72 0301          lofsa $07b8 // nightie
  04b7:4a 0e             send e 

  04b9:35 03              ldi 3 
  04bb:65 12             aTop seconds 
  04bd:33 14              jmp code_04d3 

        code_04bf
  04bf:3c                 dup 
  04c0:35 12              ldi 12 
  04c2:1a                 eq? 
  04c3:31 0e              bnt code_04d3 
  04c5:76               push0 
  04c6:45 04 00         callb procedure_0004 0 // HandsOn 

  04c9:38 00f8          pushi f8 // $f8 newRoom
  04cc:78               push1 
  04cd:89 0c              lsg gPrevRoomNum 
  04cf:81 02              lag gCurRoom 
  04d1:4a 06             send 6 


        code_04d3
  04d3:3a                toss 
  04d4:48                 ret 
    )

)

// 061c
(instance DoorOpening 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_04d5
  04d5:87 01              lap param1 
  04d7:65 0a             aTop state 
  04d9:36                push 
  04da:3c                 dup 
  04db:35 00              ldi 0 
  04dd:1a                 eq? 
  04de:31 0e              bnt code_04ee 
  04e0:39 7e            pushi 7e // $7e setCycle
  04e2:7a               push2 
  04e3:51 1a            class End 
  04e5:36                push 
  04e6:7c            pushSelf 
  04e7:72 0192          lofsa $067c // LDoor
  04ea:4a 08             send 8 

  04ec:33 61              jmp code_054f 

        code_04ee
  04ee:3c                 dup 
  04ef:35 01              ldi 1 
  04f1:1a                 eq? 
  04f2:31 35              bnt code_0529 
  04f4:39 07            pushi 7 // $7 cel
  04f6:76               push0 
  04f7:72 030c          lofsa $0806 // dress
  04fa:4a 04             send 4 

  04fc:36                push 
  04fd:78               push1 
  04fe:74 0305          lofss $0806 // dress
  0501:43 0e 02         callk NumCels 2 

  0504:36                push 
  0505:35 01              ldi 1 
  0507:04                 sub 
  0508:1c                 ne? 
  0509:31 06              bnt code_0511 
  050b:35 00              ldi 0 
  050d:65 0a             aTop state 
  050f:33 12              jmp code_0523 

        code_0511
  0511:39 05            pushi 5 // $5 view
  0513:39 40            pushi 40 // $40 modifiers
  0515:76               push0 
  0516:39 43            pushi 43 // $43 at
  0518:39 3e            pushi 3e // $3e looper
  051a:38 008c          pushi 8c // $8c track
  051d:46 00ff 0000 0a  calle ff procedure_0000 a // Print 


        code_0523
  0523:35 01              ldi 1 
  0525:65 10             aTop cycles 
  0527:33 26              jmp code_054f 

        code_0529
  0529:3c                 dup 
  052a:35 02              ldi 2 
  052c:1a                 eq? 
  052d:31 0e              bnt code_053d 
  052f:39 7e            pushi 7e // $7e setCycle
  0531:7a               push2 
  0532:51 1b            class Beg 
  0534:36                push 
  0535:7c            pushSelf 
  0536:72 0143          lofsa $067c // LDoor
  0539:4a 08             send 8 

  053b:33 12              jmp code_054f 

        code_053d
  053d:3c                 dup 
  053e:35 03              ldi 3 
  0540:1a                 eq? 
  0541:31 0c              bnt code_054f 
  0543:35 00              ldi 0 
  0545:a3 01              sal local1 
  0547:39 7a            pushi 7a // $7a setScript
  0549:78               push1 
  054a:76               push0 
  054b:63 08             pToa client 
  054d:4a 06             send 6 


        code_054f
  054f:3a                toss 
  0550:48                 ret 
    )

)

// 064c
(instance RDoor of PV
    (properties
        y $83
        x $d5
        z $0
        heading $0
        view $a4
        loop $0
        cel $0
        priority $e
        signal $4000
    )
)

// 0676
(instance LDoor of Prop
    (properties
        y $83
        x $6a
        z $0
        heading $0
        yStep $2
        view $a4
        loop $1
        cel $0
        priority $0
        underBits $0
        signal $4000
        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 $1
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0551
  0551:83 01              lal local1 
  0553:18                 not 
  0554:31 39              bnt code_058f 
  0556:38 00e2          pushi e2 // $e2 canInput
  0559:76               push0 
  055a:51 2b            class User 
  055c:4a 04             send 4 

  055e:31 2f              bnt code_058f 
  0560:39 03            pushi 3 // $3 y
  0562:7c            pushSelf 
  0563:8f 01              lsp param1 
  0565:39 03            pushi 3 // $3 y
  0567:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  056d:2f 09               bt code_0578 
  056f:78               push1 
  0570:74 0021          lofss $0594 // open/door
  0573:43 25 02         callk Said 2 

  0576:31 17              bnt code_058f 

        code_0578
  0578:39 4c            pushi 4c // $4c claimed
  057a:78               push1 
  057b:78               push1 
  057c:87 01              lap param1 
  057e:4a 06             send 6 

  0580:35 01              ldi 1 
  0582:a3 01              sal local1 
  0584:39 7a            pushi 7a // $7a setScript
  0586:78               push1 
  0587:74 0098          lofss $0622 // DoorOpening
  058a:72 00ef          lofsa $067c // LDoor
  058d:4a 06             send 6 


        code_058f
  058f:48                 ret 
    )

)

// 06c8
(instance Fifi of Prop
    (properties
        y $9e
        x $91
        z $0
        heading $0
        yStep $2
        view $1d9
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
    )
)

// 0716
(instance lArm of Prop
    (properties
        y $38
        x $8a
        z $0
        heading $0
        yStep $2
        view $1d9
        loop $1
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
    )
)

// 0764
(instance rArm of Prop
    (properties
        y $38
        x $8a
        z $0
        heading $0
        yStep $2
        view $1d9
        loop $5
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
    )
)

// 07b2
(instance nightie of Prop
    (properties
        y $44
        x $5c
        z $0
        heading $0
        yStep $2
        view $1d9
        loop $8
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
    )
)

// 0800
(instance dress of Act
    (properties
        y $6e
        x $9e
        z $0
        heading $0
        yStep $6
        view $1d9
        loop $2
        cel $0
        priority $0
        underBits $0
        signal $4000
        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 $2
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 0864
(instance bra of Act
    (properties
        y $47
        x $83
        z $0
        heading $0
        yStep $6
        view $1cf
        loop $4
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 08c8
(instance panties of Act
    (properties
        y $6d
        x $92
        z $0
        heading $0
        yStep $6
        view $1cf
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 092c
(instance hose of Act
    (properties
        y $6d
        x $90
        z $0
        heading $0
        yStep $6
        view $1cf
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)



