(script 411)

(string
    string_03e8 "Startup"
    string_03f0 "beginning"
    string_03fa "daddyBow"
    string_0403 "suitCase"
)

(said
)

(local
)

// 02d6
(instance public Startup of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_000c
  000c:39 57            pushi 57 // $57 init
  000e:76               push0 
  000f:57 36 04         super Rgn 4 

  0012:7a               push2 
  0013:38 0087          pushi 87 // $87 clean
  0016:39 29            pushi 29 // $29 edit
  0018:43 00 04         callk Load 4 

  001b:7a               push2 
  001c:38 0080          pushi 80 // $80 timeLeft
  001f:38 0282          pushi 282 // $282 sel_642
  0022:43 00 04         callk Load 4 

  0025:39 05            pushi 5 // $5 view
  0027:38 0084          pushi 84 // $84 stop
  002a:39 1d            pushi 1d // $1d back
  002c:39 5e            pushi 5e // $5e respondsTo
  002e:39 5f            pushi 5f // $5f yourself
  0030:39 60            pushi 60 // $60 size
  0032:45 15 0a         callb procedure_0015 a // LoadMany 

  0035:7a               push2 
  0036:38 0082          pushi 82 // $82 owner
  0039:38 0196          pushi 196 // $196 sel_406
  003c:43 00 04         callk Load 4 

  003f:81 10              lag gPossibleScore 
  0041:2f 09               bt code_004c 
  0043:78               push1 
  0044:39 32            pushi 32 // $32 b-i2
  0046:45 07 02         callb procedure_0007 2 // IsFlag 

  0049:18                 not 
  004a:31 13              bnt code_005f 

        code_004c
  004c:39 06            pushi 6 // $6 loop
  004e:78               push1 
  004f:7a               push2 
  0050:38 00c5          pushi c5 // $c5 posn
  0053:7a               push2 
  0054:38 00d3          pushi d3 // $d3 setMotion
  0057:39 6d            pushi 6d // $6d addAfter
  0059:81 00              lag gEgo 
  005b:4a 0e             send e 

  005d:33 54              jmp code_00b3 

        code_005f
  005f:39 20            pushi 20 // $20 state
  0061:78               push1 
  0062:78               push1 
  0063:51 14            class TheMenuBar 
  0065:4a 06             send 6 

  0067:39 06            pushi 6 // $6 loop
  0069:78               push1 
  006a:78               push1 
  006b:38 00c5          pushi c5 // $c5 posn
  006e:7a               push2 
  006f:39 5a            pushi 5a // $5a showSelf
  0071:38 0086          pushi 86 // $86 pause
  0074:81 00              lag gEgo 
  0076:4a 0e             send e 

  0078:39 7e            pushi 7e // $7e setCycle
  007a:78               push1 
  007b:51 17            class Walk 
  007d:36                push 
  007e:39 42            pushi 42 // $42 setPri
  0080:78               push1 
  0081:39 0a            pushi a // $a nsLeft
  0083:38 00ca          pushi ca // $ca show
  0086:76               push0 
  0087:80 0175            lag global373 
  008a:4a 10             send 10 

  008c:38 00c8          pushi c8 // $c8 setLoop
  008f:78               push1 
  0090:7a               push2 
  0091:39 42            pushi 42 // $42 setPri
  0093:78               push1 
  0094:39 0e            pushi e // $e lsLeft
  0096:39 57            pushi 57 // $57 init
  0098:76               push0 
  0099:38 00c6          pushi c6 // $c6 stopUpd
  009c:76               push0 
  009d:38 0089          pushi 89 // $89 hide
  00a0:76               push0 
  00a1:72 02e8          lofsa $038c // daddyBow
  00a4:4a 18             send 18 

  00a6:39 42            pushi 42 // $42 setPri
  00a8:78               push1 
  00a9:39 07            pushi 7 // $7 cel
  00ab:39 57            pushi 57 // $57 init
  00ad:76               push0 
  00ae:72 028d          lofsa $033e // suitCase
  00b1:4a 0a             send a 


        code_00b3
  00b3:39 7a            pushi 7a // $7a setScript
  00b5:78               push1 
  00b6:74 0255          lofss $030e // beginning
  00b9:54 06             self 6 

  00bb:48                 ret 
    )

    (method (doit) // method_00bc
  00bc:39 3c            pushi 3c // $3c doit
  00be:76               push0 
  00bf:57 36 04         super Rgn 4 

  00c2:48                 ret 
    )

    (method (dispose) // method_00c3
  00c3:39 58            pushi 58 // $58 dispose
  00c5:76               push0 
  00c6:57 36 04         super Rgn 4 

  00c9:48                 ret 
    )

    (method (handleEvent) // method_00ca
  00ca:39 6f            pushi 6f // $6f handleEvent
  00cc:78               push1 
  00cd:8f 01              lsp param1 
  00cf:57 36 06         super Rgn 6 

  00d2:48                 ret 
    )

)

// 0308
(instance beginning 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_00d3
  00d3:87 01              lap param1 
  00d5:65 0a             aTop state 
  00d7:36                push 
  00d8:3c                 dup 
  00d9:35 00              ldi 0 
  00db:1a                 eq? 
  00dc:31 3e              bnt code_011c 
  00de:76               push0 
  00df:45 03 00         callb procedure_0003 0 // HandsOff 

  00e2:80 00d8            lag global216 
  00e5:18                 not 
  00e6:31 06              bnt code_00ee 
  00e8:35 ff              ldi ff 
  00ea:65 0a             aTop state 
  00ec:33 27              jmp code_0115 

        code_00ee
  00ee:39 76            pushi 76 // $76 script
  00f0:76               push0 
  00f1:54 04             self 4 

  00f3:31 06              bnt code_00fb 
  00f5:35 ff              ldi ff 
  00f7:65 0a             aTop state 
  00f9:33 1a              jmp code_0115 

        code_00fb
  00fb:88 00ba            lsg gHour 
  00fe:35 06              ldi 6 
  0100:1a                 eq? 
  0101:31 12              bnt code_0115 
  0103:39 7a            pushi 7a // $7a setScript
  0105:78               push1 
  0106:7a               push2 
  0107:38 0196          pushi 196 // $196 sel_406
  010a:76               push0 
  010b:43 02 04         callk ScriptID 4 

  010e:36                push 
  010f:54 06             self 6 

  0111:35 ff              ldi ff 
  0113:65 0a             aTop state 

        code_0115
  0115:35 01              ldi 1 
  0117:65 10             aTop cycles 
  0119:32 01b1            jmp code_02cd 

        code_011c
  011c:3c                 dup 
  011d:35 01              ldi 1 
  011f:1a                 eq? 
  0120:31 38              bnt code_015a 
  0122:81 10              lag gPossibleScore 
  0124:2f 09               bt code_012f 
  0126:78               push1 
  0127:39 32            pushi 32 // $32 b-i2
  0129:45 07 02         callb procedure_0007 2 // IsFlag 

  012c:18                 not 
  012d:31 0a              bnt code_0139 

        code_012f
  012f:35 00              ldi 0 
  0131:a1 10              sag gPossibleScore 
  0133:35 0a              ldi a 
  0135:65 0a             aTop state 
  0137:33 1a              jmp code_0153 

        code_0139
  0139:7a               push2 
  013a:38 019b          pushi 19b // $19b sel_411
  013d:76               push0 
  013e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0144:35 06              ldi 6 
  0146:a0 00d5            sag global213 
  0149:39 03            pushi 3 // $3 y
  014b:78               push1 
  014c:38 019b          pushi 19b // $19b sel_411
  014f:78               push1 
  0150:45 01 06         callb procedure_0001 6 // Say 


        code_0153
  0153:35 01              ldi 1 
  0155:65 10             aTop cycles 
  0157:32 0173            jmp code_02cd 

        code_015a
  015a:3c                 dup 
  015b:35 02              ldi 2 
  015d:1a                 eq? 
  015e:31 22              bnt code_0182 
  0160:38 00d3          pushi d3 // $d3 setMotion
  0163:39 04            pushi 4 // $4 x
  0165:51 1d            class MoveTo 
  0167:36                push 
  0168:39 ec            pushi ec // $ec get
  016a:38 0098          pushi 98 // $98 center
  016d:7c            pushSelf 
  016e:80 0175            lag global373 
  0171:4a 0c             send c 

  0173:39 06            pushi 6 // $6 loop
  0175:78               push1 
  0176:7a               push2 
  0177:38 00c6          pushi c6 // $c6 stopUpd
  017a:76               push0 
  017b:81 00              lag gEgo 
  017d:4a 0a             send a 

  017f:32 014b            jmp code_02cd 

        code_0182
  0182:3c                 dup 
  0183:35 03              ldi 3 
  0185:1a                 eq? 
  0186:31 16              bnt code_019e 
  0188:35 0c              ldi c 
  018a:a0 00d5            sag global213 
  018d:39 03            pushi 3 // $3 y
  018f:76               push0 
  0190:38 019b          pushi 19b // $19b sel_411
  0193:7a               push2 
  0194:45 01 06         callb procedure_0001 6 // Say 

  0197:35 01              ldi 1 
  0199:65 10             aTop cycles 
  019b:32 012f            jmp code_02cd 

        code_019e
  019e:3c                 dup 
  019f:35 04              ldi 4 
  01a1:1a                 eq? 
  01a2:31 28              bnt code_01cc 
  01a4:38 00ca          pushi ca // $ca show
  01a7:76               push0 
  01a8:38 00a4          pushi a4 // $a4 cycleSpeed
  01ab:78               push1 
  01ac:76               push0 
  01ad:39 38            pushi 38 // $38 moveSpeed
  01af:78               push1 
  01b0:76               push0 
  01b1:39 7e            pushi 7e // $7e setCycle
  01b3:78               push1 
  01b4:51 17            class Walk 
  01b6:36                push 
  01b7:38 00d3          pushi d3 // $d3 setMotion
  01ba:39 04            pushi 4 // $4 x
  01bc:51 1d            class MoveTo 
  01be:36                push 
  01bf:39 6c            pushi 6c // $6c addToEnd
  01c1:39 4e            pushi 4e // $4e save
  01c3:7c            pushSelf 
  01c4:72 01c5          lofsa $038c // daddyBow
  01c7:4a 22             send 22 

  01c9:32 0101            jmp code_02cd 

        code_01cc
  01cc:3c                 dup 
  01cd:35 05              ldi 5 
  01cf:1a                 eq? 
  01d0:31 07              bnt code_01d9 
  01d2:35 0d              ldi d 
  01d4:65 10             aTop cycles 
  01d6:32 00f4            jmp code_02cd 

        code_01d9
  01d9:3c                 dup 
  01da:35 06              ldi 6 
  01dc:1a                 eq? 
  01dd:31 1e              bnt code_01fd 
  01df:38 0089          pushi 89 // $89 hide
  01e2:76               push0 
  01e3:39 58            pushi 58 // $58 dispose
  01e5:76               push0 
  01e6:39 54            pushi 54 // $54 delete
  01e8:76               push0 
  01e9:72 01a0          lofsa $038c // daddyBow
  01ec:4a 0c             send c 

  01ee:38 00a3          pushi a3 // $a3 startUpd
  01f1:76               push0 
  01f2:81 00              lag gEgo 
  01f4:4a 04             send 4 

  01f6:35 02              ldi 2 
  01f8:65 10             aTop cycles 
  01fa:32 00d0            jmp code_02cd 

        code_01fd
  01fd:3c                 dup 
  01fe:35 07              ldi 7 
  0200:1a                 eq? 
  0201:31 25              bnt code_0228 
  0203:35 1a              ldi 1a 
  0205:a0 00d5            sag global213 
  0208:39 03            pushi 3 // $3 y
  020a:78               push1 
  020b:38 019b          pushi 19b // $19b sel_411
  020e:39 03            pushi 3 // $3 y
  0210:45 01 06         callb procedure_0001 6 // Say 

  0213:38 00d3          pushi d3 // $d3 setMotion
  0216:39 04            pushi 4 // $4 x
  0218:51 1d            class MoveTo 
  021a:36                push 
  021b:38 00d3          pushi d3 // $d3 setMotion
  021e:39 6d            pushi 6d // $6d addAfter
  0220:7c            pushSelf 
  0221:81 00              lag gEgo 
  0223:4a 0c             send c 

  0225:32 00a5            jmp code_02cd 

        code_0228
  0228:3c                 dup 
  0229:35 08              ldi 8 
  022b:1a                 eq? 
  022c:31 1d              bnt code_024b 
  022e:39 06            pushi 6 // $6 loop
  0230:78               push1 
  0231:39 03            pushi 3 // $3 y
  0233:81 00              lag gEgo 
  0235:4a 06             send 6 

  0237:38 00a4          pushi a4 // $a4 cycleSpeed
  023a:78               push1 
  023b:78               push1 
  023c:39 7e            pushi 7e // $7e setCycle
  023e:7a               push2 
  023f:51 1a            class End 
  0241:36                push 
  0242:7c            pushSelf 
  0243:72 00f8          lofsa $033e // suitCase
  0246:4a 0e             send e 

  0248:32 0082            jmp code_02cd 

        code_024b
  024b:3c                 dup 
  024c:35 09              ldi 9 
  024e:1a                 eq? 
  024f:31 1a              bnt code_026b 
  0251:7a               push2 
  0252:38 019b          pushi 19b // $19b sel_411
  0255:39 04            pushi 4 // $4 x
  0257:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  025d:39 7e            pushi 7e // $7e setCycle
  025f:7a               push2 
  0260:51 1b            class Beg 
  0262:36                push 
  0263:7c            pushSelf 
  0264:72 00d7          lofsa $033e // suitCase
  0267:4a 08             send 8 

  0269:33 62              jmp code_02cd 

        code_026b
  026b:3c                 dup 
  026c:35 0a              ldi a 
  026e:1a                 eq? 
  026f:31 37              bnt code_02a8 
  0271:39 04            pushi 4 // $4 x
  0273:76               push0 
  0274:80 0175            lag global373 
  0277:4a 04             send 4 

  0279:36                push 
  027a:35 ec              ldi ec 
  027c:1c                 ne? 
  027d:2f 0d               bt code_028c 
  027f:39 06            pushi 6 // $6 loop
  0281:76               push0 
  0282:81 00              lag gEgo 
  0284:4a 04             send 4 

  0286:36                push 
  0287:35 02              ldi 2 
  0289:1c                 ne? 
  028a:31 0e              bnt code_029a 

        code_028c
  028c:39 06            pushi 6 // $6 loop
  028e:78               push1 
  028f:7a               push2 
  0290:81 00              lag gEgo 
  0292:4a 06             send 6 

  0294:35 09              ldi 9 
  0296:65 0a             aTop state 
  0298:33 08              jmp code_02a2 

        code_029a
  029a:39 58            pushi 58 // $58 dispose
  029c:76               push0 
  029d:72 009e          lofsa $033e // suitCase
  02a0:4a 04             send 4 


        code_02a2
  02a2:35 01              ldi 1 
  02a4:65 10             aTop cycles 
  02a6:33 25              jmp code_02cd 

        code_02a8
  02a8:3c                 dup 
  02a9:35 0b              ldi b 
  02ab:1a                 eq? 
  02ac:31 1f              bnt code_02cd 
  02ae:38 00ec          pushi ec // $ec get
  02b1:78               push1 
  02b2:39 0a            pushi a // $a nsLeft
  02b4:81 00              lag gEgo 
  02b6:4a 06             send 6 

  02b8:c0 00cb            +ag global203 
  02bb:34 0708            ldi 708 
  02be:a0 0174            sag global372 
  02c1:76               push0 
  02c2:45 04 00         callb procedure_0004 0 // HandsOn 

  02c5:39 7a            pushi 7a // $7a setScript
  02c7:78               push1 
  02c8:76               push0 
  02c9:63 08             pToa client 
  02cb:4a 06             send 6 


        code_02cd
  02cd:3a                toss 
  02ce:48                 ret 
  02cf:00                bnot 
    )

)

// 0338
(instance suitCase of Prop
    (properties
        y $58
        x $d0
        z $0
        heading $0
        yStep $2
        view $90
        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
    )
)

// 0386
(instance daddyBow of Act
    (properties
        y $57
        x $60
        z $0
        heading $0
        yStep $2
        view $39d
        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 $0
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)



