(script 384)

(string
    string_036c "CHead"
    string_0372 "Clarence"
    string_037b "WCAct2"
    string_0382 "WHead"
    string_0388 "Wilbur"
    string_038f "walkThru"
)

(said
    said_0190 */c,attorney
)

(local
    local0 = $0000
    local1 = $0000
)

// 01a0
(instance public WCAct2 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:39 04            pushi 4 // $4 x
  0014:38 0080          pushi 80 // $80 timeLeft
  0017:38 01a4          pushi 1a4 // $1a4 sel_420
  001a:38 0192          pushi 192 // $192 sel_402
  001d:38 0194          pushi 194 // $194 sel_404
  0020:45 15 08         callb procedure_0015 8 // LoadMany 

  0023:38 00c9          pushi c9 // $c9 ignoreActors
  0026:78               push1 
  0027:78               push1 
  0028:39 42            pushi 42 // $42 setPri
  002a:78               push1 
  002b:39 09            pushi 9 // $9 nsTop
  002d:39 57            pushi 57 // $57 init
  002f:76               push0 
  0030:72 029d          lofsa $02d0 // CHead
  0033:4a 10             send 10 

  0035:39 42            pushi 42 // $42 setPri
  0037:78               push1 
  0038:39 09            pushi 9 // $9 nsTop
  003a:39 57            pushi 57 // $57 init
  003c:76               push0 
  003d:72 02de          lofsa $031e // WHead
  0040:4a 0a             send a 

  0042:39 42            pushi 42 // $42 setPri
  0044:78               push1 
  0045:39 09            pushi 9 // $9 nsTop
  0047:39 57            pushi 57 // $57 init
  0049:76               push0 
  004a:72 01bb          lofsa $0208 // Clarence
  004d:4a 0a             send a 

  004f:39 57            pushi 57 // $57 init
  0051:76               push0 
  0052:72 0217          lofsa $026c // Wilbur
  0055:4a 04             send 4 

  0057:48                 ret 
    )

    (method (doit) // method_0058
  0058:39 07            pushi 7 // $7 cel
  005a:76               push0 
  005b:80 0176            lag global374 
  005e:4a 04             send 4 

  0060:36                push 
  0061:35 00              ldi 0 
  0063:1a                 eq? 
  0064:31 0f              bnt code_0075 
  0066:83 01              lal local1 
  0068:18                 not 
  0069:31 0a              bnt code_0075 
  006b:c3 01              +al local1 
  006d:39 7a            pushi 7a // $7a setScript
  006f:78               push1 
  0070:74 0165          lofss $01d8 // walkThru
  0073:54 06             self 6 


        code_0075
  0075:39 3c            pushi 3c // $3c doit
  0077:76               push0 
  0078:57 36 04         super Rgn 4 

  007b:48                 ret 
    )

    (method (dispose) // method_007c
  007c:39 58            pushi 58 // $58 dispose
  007e:76               push0 
  007f:57 36 04         super Rgn 4 

  0082:48                 ret 
    )

    (method (handleEvent) // method_0083
  0083:39 6f            pushi 6f // $6f handleEvent
  0085:78               push1 
  0086:8f 01              lsp param1 
  0088:57 36 06         super Rgn 6 

  008b:39 4c            pushi 4c // $4c claimed
  008d:76               push0 
  008e:87 01              lap param1 
  0090:4a 04             send 4 

  0092:31 01              bnt code_0095 
  0094:48                 ret 

        code_0095
  0095:39 22            pushi 22 // $22 type
  0097:76               push0 
  0098:87 01              lap param1 
  009a:4a 04             send 4 

  009c:36                push 
  009d:34 0080            ldi 80 
  00a0:1a                 eq? 
  00a1:31 14              bnt code_00b7 
  00a3:78               push1 
  00a4:74 00e9          lofss $0190 // */c,attorney
  00a7:43 25 02         callk Said 2 

  00aa:31 0b              bnt code_00b7 
  00ac:7a               push2 
  00ad:38 0180          pushi 180 // $180 sel_384
  00b0:76               push0 
  00b1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00b7
  00b7:48                 ret 
    )

)

// 01d2
(instance walkThru 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_00b8
  00b8:87 01              lap param1 
  00ba:65 0a             aTop state 
  00bc:36                push 
  00bd:3c                 dup 
  00be:35 00              ldi 0 
  00c0:1a                 eq? 
  00c1:31 1f              bnt code_00e2 
  00c3:38 00e9          pushi e9 // $e9 canControl
  00c6:76               push0 
  00c7:51 2b            class User 
  00c9:4a 04             send 4 

  00cb:18                 not 
  00cc:31 0d              bnt code_00db 
  00ce:39 3b            pushi 3b // $3b mover
  00d0:76               push0 
  00d1:81 00              lag gEgo 
  00d3:4a 04             send 4 

  00d5:31 04              bnt code_00db 
  00d7:35 ff              ldi ff 
  00d9:65 0a             aTop state 

        code_00db
  00db:35 02              ldi 2 
  00dd:65 10             aTop cycles 
  00df:32 00a7            jmp code_0189 

        code_00e2
  00e2:3c                 dup 
  00e3:35 01              ldi 1 
  00e5:1a                 eq? 
  00e6:31 70              bnt code_0158 
  00e8:76               push0 
  00e9:45 03 00         callb procedure_0003 0 // HandsOff 

  00ec:38 00e9          pushi e9 // $e9 canControl
  00ef:78               push1 
  00f0:78               push1 
  00f1:51 2b            class User 
  00f3:4a 06             send 6 

  00f5:39 03            pushi 3 // $3 y
  00f7:38 0180          pushi 180 // $180 sel_384
  00fa:78               push1 
  00fb:39 58            pushi 58 // $58 dispose
  00fd:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0103:35 01              ldi 1 
  0105:a3 00              sal local0 
  0107:38 0089          pushi 89 // $89 hide
  010a:76               push0 
  010b:72 01c2          lofsa $02d0 // CHead
  010e:4a 04             send 4 

  0110:38 0089          pushi 89 // $89 hide
  0113:76               push0 
  0114:72 0207          lofsa $031e // WHead
  0117:4a 04             send 4 

  0119:39 05            pushi 5 // $5 view
  011b:78               push1 
  011c:38 0190          pushi 190 // $190 sel_400
  011f:39 7e            pushi 7e // $7e setCycle
  0121:78               push1 
  0122:51 17            class Walk 
  0124:36                push 
  0125:38 00d3          pushi d3 // $d3 setMotion
  0128:39 04            pushi 4 // $4 x
  012a:51 1d            class MoveTo 
  012c:36                push 
  012d:38 0168          pushi 168 // $168 sel_360
  0130:39 79            pushi 79 // $79 cue
  0132:7c            pushSelf 
  0133:72 00d2          lofsa $0208 // Clarence
  0136:4a 18             send 18 

  0138:39 05            pushi 5 // $5 view
  013a:78               push1 
  013b:38 01a4          pushi 1a4 // $1a4 sel_420
  013e:39 7e            pushi 7e // $7e setCycle
  0140:78               push1 
  0141:51 17            class Walk 
  0143:36                push 
  0144:38 00d3          pushi d3 // $d3 setMotion
  0147:39 03            pushi 3 // $3 y
  0149:51 1d            class MoveTo 
  014b:36                push 
  014c:38 0168          pushi 168 // $168 sel_360
  014f:39 79            pushi 79 // $79 cue
  0151:72 0118          lofsa $026c // Wilbur
  0154:4a 16             send 16 

  0156:33 31              jmp code_0189 

        code_0158
  0158:3c                 dup 
  0159:35 02              ldi 2 
  015b:1a                 eq? 
  015c:31 18              bnt code_0176 
  015e:76               push0 
  015f:45 0f 00         callb procedure_000f 0 // cls 

  0162:38 00e2          pushi e2 // $e2 canInput
  0165:78               push1 
  0166:78               push1 
  0167:51 2b            class User 
  0169:4a 06             send 6 

  016b:35 02              ldi 2 
  016d:a0 009a            sag gClarenceWilburState 
  0170:35 1e              ldi 1e 
  0172:65 12             aTop seconds 
  0174:33 13              jmp code_0189 

        code_0176
  0176:3c                 dup 
  0177:35 03              ldi 3 
  0179:1a                 eq? 
  017a:31 0d              bnt code_0189 
  017c:35 03              ldi 3 
  017e:a0 009a            sag gClarenceWilburState 
  0181:39 7a            pushi 7a // $7a setScript
  0183:78               push1 
  0184:76               push0 
  0185:63 08             pToa client 
  0187:4a 06             send 6 


        code_0189
  0189:3a                toss 
  018a:48                 ret 
  018b:00                bnot 
    )

)

// 0202
(instance Clarence of Act
    (properties
        y $79
        x $d1
        z $0
        heading $0
        yStep $2
        view $192
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 0266
(instance Wilbur of Act
    (properties
        y $79
        x $b8
        z $0
        heading $0
        yStep $2
        view $1a9
        loop $0
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 02ca
(instance CHead of Prop
    (properties
        y $79
        x $cf
        z $27
        heading $0
        yStep $2
        view $194
        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
    )
)

// 0318
(instance WHead of Prop
    (properties
        y $52
        x $b6
        z $0
        heading $0
        yStep $2
        view $1a9
        loop $4
        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
    )
)



