(script 412)

(string
    string_0248 "Daddy"
    string_024e "daddyBow"
    string_0257 ""
)

(said
)

(local
)

// 01ae
(instance public Daddy of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_000c
  000c:39 3c            pushi 3c // $3c doit
  000e:76               push0 
  000f:57 05 04         super Script 4 

  0012:39 65            pushi 65 // $65 contains
  0014:78               push1 
  0015:74 01d4          lofss $01ec // daddyBow
  0018:81 05              lag gCast 
  001a:4a 06             send 6 

  001c:31 33              bnt code_0051 
  001e:39 07            pushi 7 // $7 cel
  0020:76               push0 
  0021:72 01c8          lofsa $01ec // daddyBow
  0024:4a 04             send 4 

  0026:36                push 
  0027:78               push1 
  0028:74 01c1          lofss $01ec // daddyBow
  002b:43 0e 02         callk NumCels 2 

  002e:36                push 
  002f:35 02              ldi 2 
  0031:04                 sub 
  0032:1a                 eq? 
  0033:31 1c              bnt code_0051 
  0035:38 00c5          pushi c5 // $c5 posn
  0038:7a               push2 
  0039:38 008c          pushi 8c // $8c track
  003c:39 69            pushi 69 // $69 last
  003e:38 00a2          pushi a2 // $a2 setCel
  0041:78               push1 
  0042:38 00a6          pushi a6 // $a6 lastCel
  0045:76               push0 
  0046:72 01a3          lofsa $01ec // daddyBow
  0049:4a 04             send 4 

  004b:36                push 
  004c:72 019d          lofsa $01ec // daddyBow
  004f:4a 0e             send e 


        code_0051
  0051:48                 ret 
    )

    (method (dispose) // method_0052
  0052:39 58            pushi 58 // $58 dispose
  0054:76               push0 
  0055:57 05 04         super Script 4 

  0058:78               push1 
  0059:38 019c          pushi 19c // $19c sel_412
  005c:43 03 02         callk DisposeScript 2 

  005f:48                 ret 
    )

    (method (changeState) // method_0060
  0060:3f 02             link 2 // (var $2)
  0062:87 01              lap param1 
  0064:65 0a             aTop state 
  0066:36                push 
  0067:3c                 dup 
  0068:35 00              ldi 0 
  006a:1a                 eq? 
  006b:31 61              bnt code_00ce 
  006d:35 01              ldi 1 
  006f:a0 00be            sag global190 
  0072:39 04            pushi 4 // $4 x
  0074:76               push0 
  0075:81 00              lag gEgo 
  0077:4a 04             send 4 

  0079:a5 00              sat temp0 
  007b:39 03            pushi 3 // $3 y
  007d:76               push0 
  007e:81 00              lag gEgo 
  0080:4a 04             send 4 

  0082:a5 01              sat temp1 
  0084:38 00c8          pushi c8 // $c8 setLoop
  0087:78               push1 
  0088:7a               push2 
  0089:38 00c5          pushi c5 // $c5 posn
  008c:7a               push2 
  008d:8d 00              lst temp0 
  008f:35 06              ldi 6 
  0091:02                 add 
  0092:36                push 
  0093:8d 01              lst temp1 
  0095:35 2f              ldi 2f 
  0097:04                 sub 
  0098:36                push 
  0099:39 42            pushi 42 // $42 setPri
  009b:78               push1 
  009c:39 0f            pushi f // $f lsBottom
  009e:38 00a4          pushi a4 // $a4 cycleSpeed
  00a1:78               push1 
  00a2:76               push0 
  00a3:39 38            pushi 38 // $38 moveSpeed
  00a5:78               push1 
  00a6:76               push0 
  00a7:39 7e            pushi 7e // $7e setCycle
  00a9:78               push1 
  00aa:51 17            class Walk 
  00ac:36                push 
  00ad:38 00d3          pushi d3 // $d3 setMotion
  00b0:39 04            pushi 4 // $4 x
  00b2:51 1d            class MoveTo 
  00b4:36                push 
  00b5:38 008c          pushi 8c // $8c track
  00b8:39 69            pushi 69 // $69 last
  00ba:7c            pushSelf 
  00bb:39 57            pushi 57 // $57 init
  00bd:76               push0 
  00be:72 012b          lofsa $01ec // daddyBow
  00c1:4a 36             send 36 

  00c3:38 00c6          pushi c6 // $c6 stopUpd
  00c6:76               push0 
  00c7:81 00              lag gEgo 
  00c9:4a 04             send 4 

  00cb:32 00d7            jmp code_01a5 

        code_00ce
  00ce:3c                 dup 
  00cf:35 01              ldi 1 
  00d1:1a                 eq? 
  00d2:31 07              bnt code_00db 
  00d4:35 0d              ldi d 
  00d6:65 10             aTop cycles 
  00d8:32 00ca            jmp code_01a5 

        code_00db
  00db:3c                 dup 
  00dc:35 02              ldi 2 
  00de:1a                 eq? 
  00df:31 16              bnt code_00f7 
  00e1:38 0089          pushi 89 // $89 hide
  00e4:76               push0 
  00e5:39 58            pushi 58 // $58 dispose
  00e7:76               push0 
  00e8:39 54            pushi 54 // $54 delete
  00ea:76               push0 
  00eb:72 00fe          lofsa $01ec // daddyBow
  00ee:4a 0c             send c 

  00f0:35 02              ldi 2 
  00f2:65 10             aTop cycles 
  00f4:32 00ae            jmp code_01a5 

        code_00f7
  00f7:3c                 dup 
  00f8:35 03              ldi 3 
  00fa:1a                 eq? 
  00fb:31 25              bnt code_0122 
  00fd:78               push1 
  00fe:39 29            pushi 29 // $29 edit
  0100:45 07 02         callb procedure_0007 2 // IsFlag 

  0103:18                 not 
  0104:31 15              bnt code_011b 
  0106:35 1a              ldi 1a 
  0108:a0 00d5            sag global213 
  010b:39 03            pushi 3 // $3 y
  010d:78               push1 
  010e:38 019c          pushi 19c // $19c sel_412
  0111:76               push0 
  0112:45 01 06         callb procedure_0001 6 // Say 

  0115:78               push1 
  0116:39 29            pushi 29 // $29 edit
  0118:45 05 02         callb procedure_0005 2 // SetFlag 


        code_011b
  011b:35 01              ldi 1 
  011d:65 10             aTop cycles 
  011f:32 0083            jmp code_01a5 

        code_0122
  0122:3c                 dup 
  0123:35 04              ldi 4 
  0125:1a                 eq? 
  0126:31 24              bnt code_014c 
  0128:78               push1 
  0129:39 2a            pushi 2a // $2a play
  012b:45 07 02         callb procedure_0007 2 // IsFlag 

  012e:18                 not 
  012f:31 15              bnt code_0146 
  0131:35 1a              ldi 1a 
  0133:a0 00d5            sag global213 
  0136:39 03            pushi 3 // $3 y
  0138:78               push1 
  0139:38 019c          pushi 19c // $19c sel_412
  013c:78               push1 
  013d:45 01 06         callb procedure_0001 6 // Say 

  0140:78               push1 
  0141:39 2a            pushi 2a // $2a play
  0143:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0146
  0146:35 01              ldi 1 
  0148:65 10             aTop cycles 
  014a:33 59              jmp code_01a5 

        code_014c
  014c:3c                 dup 
  014d:35 05              ldi 5 
  014f:1a                 eq? 
  0150:31 24              bnt code_0176 
  0152:78               push1 
  0153:39 2b            pushi 2b // $2b number
  0155:45 07 02         callb procedure_0007 2 // IsFlag 

  0158:18                 not 
  0159:31 15              bnt code_0170 
  015b:35 1a              ldi 1a 
  015d:a0 00d5            sag global213 
  0160:39 03            pushi 3 // $3 y
  0162:78               push1 
  0163:38 019c          pushi 19c // $19c sel_412
  0166:7a               push2 
  0167:45 01 06         callb procedure_0001 6 // Say 

  016a:78               push1 
  016b:39 2b            pushi 2b // $2b number
  016d:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0170
  0170:35 01              ldi 1 
  0172:65 10             aTop cycles 
  0174:33 2f              jmp code_01a5 

        code_0176
  0176:3c                 dup 
  0177:35 06              ldi 6 
  0179:1a                 eq? 
  017a:31 29              bnt code_01a5 
  017c:35 0c              ldi c 
  017e:a0 00d5            sag global213 
  0181:39 03            pushi 3 // $3 y
  0183:76               push0 
  0184:38 019c          pushi 19c // $19c sel_412
  0187:39 03            pushi 3 // $3 y
  0189:45 01 06         callb procedure_0001 6 // Say 

  018c:38 00a3          pushi a3 // $a3 startUpd
  018f:76               push0 
  0190:81 00              lag gEgo 
  0192:4a 04             send 4 

  0194:35 00              ldi 0 
  0196:a0 00be            sag global190 
  0199:76               push0 
  019a:45 04 00         callb procedure_0004 0 // HandsOn 

  019d:39 7a            pushi 7a // $7a setScript
  019f:78               push1 
  01a0:76               push0 
  01a1:63 08             pToa client 
  01a3:4a 06             send 6 


        code_01a5
  01a5:3a                toss 
  01a6:48                 ret 
  01a7:00                bnot 
    )

)

// 01e6
(instance daddyBow of Act
    (properties
        y $0
        x $0
        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
    )
)



