(script 385)

(string
    string_043c "Rudy"
    string_0441 "RudySearch"
    string_044c "searching"
)

(said
    said_031e /rudolph>
    said_0323 ask,raconter//*<about
    said_0330 draguer//rudolph<avec
    said_033a get
    said_033d abattre
    said_0340 embrasser,embrace
    said_0346 look/rudolph
    said_034c hold,deliver/*
    said_0355 bonjour
)

(synonym
    rudolph | rudy = person | personne
    rudolph | rudy = fellow | gars | gentleman | guy | homme | man | type
)

(local
    local0 = $00f6
    local1 = $009e
    local2 = $004c
    local3 = $0096
    local4 = $00c0
    local5 = $0070
    local6 = $0000
    local7 = $0000
    local8 = $0000
)

// 035e
(instance Rudy of Act
    (properties
        y $92
        x $ad
        z $0
        heading $0
        yStep $2
        view $17c
        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
    )
    (method (handleEvent) // method_001a
  001a:88 00cf            lsg global207 
  001d:34 0100            ldi 100 
  0020:12                 and 
  0021:18                 not 
  0022:31 2e              bnt code_0052 
  0024:39 03            pushi 3 // $3 y
  0026:7c            pushSelf 
  0027:8f 01              lsp param1 
  0029:39 03            pushi 3 // $3 y
  002b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0031:31 1f              bnt code_0052 
  0033:39 4c            pushi 4c // $4c claimed
  0035:78               push1 
  0036:78               push1 
  0037:87 01              lap param1 
  0039:4a 06             send 6 

  003b:88 00cf            lsg global207 
  003e:34 0100            ldi 100 
  0041:14                  or 
  0042:a0 00cf            sag global207 
  0045:39 03            pushi 3 // $3 y
  0047:76               push0 
  0048:38 0181          pushi 181 // $181 sel_385
  004b:76               push0 
  004c:45 01 06         callb procedure_0001 6 // Say 

  004f:32 0144            jmp code_0196 

        code_0052
  0052:88 00cf            lsg global207 
  0055:34 0100            ldi 100 
  0058:12                 and 
  0059:31 2e              bnt code_0089 
  005b:39 03            pushi 3 // $3 y
  005d:7c            pushSelf 
  005e:8f 01              lsp param1 
  0060:39 03            pushi 3 // $3 y
  0062:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0068:2f 09               bt code_0073 
  006a:78               push1 
  006b:74 02d8          lofss $0346 // look/rudolph
  006e:43 25 02         callk Said 2 

  0071:31 16              bnt code_0089 

        code_0073
  0073:39 4c            pushi 4c // $4c claimed
  0075:78               push1 
  0076:78               push1 
  0077:87 01              lap param1 
  0079:4a 06             send 6 

  007b:7a               push2 
  007c:38 0181          pushi 181 // $181 sel_385
  007f:78               push1 
  0080:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0086:32 010d            jmp code_0196 

        code_0089
  0089:78               push1 
  008a:74 0296          lofss $0323 // ask,raconter//*<about
  008d:43 25 02         callk Said 2 

  0090:31 31              bnt code_00c3 
  0092:35 09              ldi 9 
  0094:a0 00d5            sag global213 
  0097:8b 08              lsl local8 
  0099:3c                 dup 
  009a:35 00              ldi 0 
  009c:1a                 eq? 
  009d:31 0e              bnt code_00ad 
  009f:39 03            pushi 3 // $3 y
  00a1:78               push1 
  00a2:38 0181          pushi 181 // $181 sel_385
  00a5:7a               push2 
  00a6:45 01 06         callb procedure_0001 6 // Say 

  00a9:c3 08              +al local8 
  00ab:33 12              jmp code_00bf 

        code_00ad
  00ad:3c                 dup 
  00ae:35 01              ldi 1 
  00b0:1a                 eq? 
  00b1:31 0c              bnt code_00bf 
  00b3:7a               push2 
  00b4:38 0181          pushi 181 // $181 sel_385
  00b7:39 03            pushi 3 // $3 y
  00b9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00bf
  00bf:3a                toss 
  00c0:32 00d3            jmp code_0196 

        code_00c3
  00c3:78               push1 
  00c4:74 0285          lofss $034c // hold,deliver/*
  00c7:43 25 02         callk Said 2 

  00ca:31 1f              bnt code_00eb 
  00cc:80 00db            lag global219 
  00cf:31 13              bnt code_00e4 
  00d1:80 00e0            lag global224 
  00d4:31 0e              bnt code_00e4 
  00d6:7a               push2 
  00d7:38 0181          pushi 181 // $181 sel_385
  00da:39 03            pushi 3 // $3 y
  00dc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  00e2:33 04              jmp code_00e8 

        code_00e4
  00e4:76               push0 
  00e5:45 0d 00         callb procedure_000d 0 // DontHave 


        code_00e8
  00e8:32 00ab            jmp code_0196 

        code_00eb
  00eb:78               push1 
  00ec:74 022f          lofss $031e // /rudolph>
  00ef:43 25 02         callk Said 2 

  00f2:30 008c            bnt code_0181 
  00f5:78               push1 
  00f6:74 025c          lofss $0355 // bonjour
  00f9:43 25 02         callk Said 2 

  00fc:31 3e              bnt code_013c 
  00fe:35 09              ldi 9 
  0100:a0 00d5            sag global213 
  0103:8b 07              lsl local7 
  0105:3c                 dup 
  0106:35 00              ldi 0 
  0108:1a                 eq? 
  0109:31 0d              bnt code_0118 
  010b:39 03            pushi 3 // $3 y
  010d:78               push1 
  010e:38 0181          pushi 181 // $181 sel_385
  0111:39 04            pushi 4 // $4 x
  0113:45 01 06         callb procedure_0001 6 // Say 

  0116:33 1f              jmp code_0137 

        code_0118
  0118:3c                 dup 
  0119:35 01              ldi 1 
  011b:1a                 eq? 
  011c:31 0d              bnt code_012b 
  011e:39 03            pushi 3 // $3 y
  0120:78               push1 
  0121:38 0181          pushi 181 // $181 sel_385
  0124:39 05            pushi 5 // $5 view
  0126:45 01 06         callb procedure_0001 6 // Say 

  0129:33 0c              jmp code_0137 

        code_012b
  012b:7a               push2 
  012c:38 0181          pushi 181 // $181 sel_385
  012f:39 06            pushi 6 // $6 loop
  0131:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0137
  0137:3a                toss 
  0138:c3 07              +al local7 
  013a:33 43              jmp code_017f 

        code_013c
  013c:78               push1 
  013d:74 01fa          lofss $033a // get
  0140:43 25 02         callk Said 2 

  0143:31 0e              bnt code_0153 
  0145:7a               push2 
  0146:38 0181          pushi 181 // $181 sel_385
  0149:39 07            pushi 7 // $7 cel
  014b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0151:33 2c              jmp code_017f 

        code_0153
  0153:78               push1 
  0154:74 01e6          lofss $033d // abattre
  0157:43 25 02         callk Said 2 

  015a:31 0e              bnt code_016a 
  015c:7a               push2 
  015d:38 0181          pushi 181 // $181 sel_385
  0160:39 08            pushi 8 // $8 underBits
  0162:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0168:33 15              jmp code_017f 

        code_016a
  016a:78               push1 
  016b:74 01d2          lofss $0340 // embrasser,embrace
  016e:43 25 02         callk Said 2 

  0171:31 0c              bnt code_017f 
  0173:7a               push2 
  0174:38 0181          pushi 181 // $181 sel_385
  0177:39 09            pushi 9 // $9 nsTop
  0179:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_017f
  017f:33 15              jmp code_0196 

        code_0181
  0181:78               push1 
  0182:74 01ab          lofss $0330 // draguer//rudolph<avec
  0185:43 25 02         callk Said 2 

  0188:31 0c              bnt code_0196 
  018a:7a               push2 
  018b:38 0181          pushi 181 // $181 sel_385
  018e:39 0a            pushi a // $a nsLeft
  0190:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0196
  0196:48                 ret 
    )

)

// 03c6
(instance public RudySearch of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_0197
  0197:39 57            pushi 57 // $57 init
  0199:76               push0 
  019a:57 36 04         super Rgn 4 

  019d:34 0100            ldi 100 
  01a0:a0 00c3            sag global195 
  01a3:7a               push2 
  01a4:38 0080          pushi 80 // $80 timeLeft
  01a7:38 0189          pushi 189 // $189 sel_393
  01aa:43 00 04         callk Load 4 

  01ad:39 7a            pushi 7a // $7a setScript
  01af:78               push1 
  01b0:74 024b          lofss $03fe // searching
  01b3:54 06             self 6 

  01b5:38 00d4          pushi d4 // $d4 setAvoider
  01b8:78               push1 
  01b9:38 00be          pushi be // $be offScreenOK
  01bc:78               push1 
  01bd:78               push1 
  01be:39 56            pushi 56 // $56 new
  01c0:76               push0 
  01c1:51 21            class Avoid 
  01c3:4a 04             send 4 

  01c5:4a 06             send 6 

  01c7:36                push 
  01c8:39 12            pushi 12 // $12 illegalBits
  01ca:78               push1 
  01cb:38 8000          pushi 8000 // $8000 sel_32768
  01ce:39 57            pushi 57 // $57 init
  01d0:76               push0 
  01d1:72 0190          lofsa $0364 // Rudy
  01d4:4a 10             send 10 

  01d6:48                 ret 
    )

    (method (doit) // method_01d7
  01d7:39 3c            pushi 3c // $3c doit
  01d9:76               push0 
  01da:57 36 04         super Rgn 4 

  01dd:48                 ret 
    )

    (method (dispose) // method_01de
  01de:78               push1 
  01df:38 03d9          pushi 3d9 // $3d9 sel_985
  01e2:43 03 02         callk DisposeScript 2 

  01e5:39 58            pushi 58 // $58 dispose
  01e7:76               push0 
  01e8:57 36 04         super Rgn 4 

  01eb:48                 ret 
    )

    (method (handleEvent) // method_01ec
  01ec:39 6f            pushi 6f // $6f handleEvent
  01ee:78               push1 
  01ef:8f 01              lsp param1 
  01f1:57 36 06         super Rgn 6 

  01f4:39 4c            pushi 4c // $4c claimed
  01f6:76               push0 
  01f7:87 01              lap param1 
  01f9:4a 04             send 4 

  01fb:31 01              bnt code_01fe 
  01fd:48                 ret 

        code_01fe
  01fe:48                 ret 
    )

)

// 03f8
(instance searching 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_01ff
  01ff:87 01              lap param1 
  0201:65 0a             aTop state 
  0203:36                push 
  0204:3c                 dup 
  0205:35 00              ldi 0 
  0207:1a                 eq? 
  0208:31 41              bnt code_024b 
  020a:80 00d8            lag global216 
  020d:18                 not 
  020e:31 06              bnt code_0216 
  0210:35 ff              ldi ff 
  0212:65 0a             aTop state 
  0214:33 2e              jmp code_0244 

        code_0216
  0216:89 76              lsg gMustDos 
  0218:35 04              ldi 4 
  021a:12                 and 
  021b:18                 not 
  021c:31 1b              bnt code_0239 
  021e:89 76              lsg gMustDos 
  0220:35 04              ldi 4 
  0222:14                  or 
  0223:a1 76              sag gMustDos 
  0225:39 7a            pushi 7a // $7a setScript
  0227:78               push1 
  0228:7a               push2 
  0229:38 0196          pushi 196 // $196 sel_406
  022c:76               push0 
  022d:43 02 04         callk ScriptID 4 

  0230:36                push 
  0231:54 06             self 6 

  0233:35 ff              ldi ff 
  0235:65 0a             aTop state 
  0237:33 0b              jmp code_0244 

        code_0239
  0239:39 76            pushi 76 // $76 script
  023b:76               push0 
  023c:54 04             self 4 

  023e:31 04              bnt code_0244 
  0240:35 ff              ldi ff 
  0242:65 0a             aTop state 

        code_0244
  0244:35 01              ldi 1 
  0246:65 10             aTop cycles 
  0248:32 00cc            jmp code_0317 

        code_024b
  024b:3c                 dup 
  024c:35 01              ldi 1 
  024e:1a                 eq? 
  024f:31 34              bnt code_0285 
  0251:39 05            pushi 5 // $5 view
  0253:78               push1 
  0254:38 017c          pushi 17c // $17c sel_380
  0257:38 00a4          pushi a4 // $a4 cycleSpeed
  025a:78               push1 
  025b:76               push0 
  025c:39 7e            pushi 7e // $7e setCycle
  025e:78               push1 
  025f:51 17            class Walk 
  0261:36                push 
  0262:38 00d3          pushi d3 // $d3 setMotion
  0265:39 04            pushi 4 // $4 x
  0267:51 1d            class MoveTo 
  0269:36                push 
  026a:8b 06              lsl local6 
  026c:35 02              ldi 2 
  026e:06                 mul 
  026f:9b 00             lsli local0 
  0271:8b 06              lsl local6 
  0273:35 02              ldi 2 
  0275:06                 mul 
  0276:36                push 
  0277:35 01              ldi 1 
  0279:02                 add 
  027a:9b 00             lsli local0 
  027c:7c            pushSelf 
  027d:72 00e4          lofsa $0364 // Rudy
  0280:4a 1e             send 1e 

  0282:32 0092            jmp code_0317 

        code_0285
  0285:3c                 dup 
  0286:35 02              ldi 2 
  0288:1a                 eq? 
  0289:31 1d              bnt code_02a8 
  028b:39 05            pushi 5 // $5 view
  028d:78               push1 
  028e:38 0189          pushi 189 // $189 sel_393
  0291:39 07            pushi 7 // $7 cel
  0293:78               push1 
  0294:76               push0 
  0295:38 00a4          pushi a4 // $a4 cycleSpeed
  0298:78               push1 
  0299:78               push1 
  029a:39 7e            pushi 7e // $7e setCycle
  029c:7a               push2 
  029d:51 1a            class End 
  029f:36                push 
  02a0:7c            pushSelf 
  02a1:72 00c0          lofsa $0364 // Rudy
  02a4:4a 1a             send 1a 

  02a6:33 6f              jmp code_0317 

        code_02a8
  02a8:3c                 dup 
  02a9:35 03              ldi 3 
  02ab:1a                 eq? 
  02ac:31 06              bnt code_02b4 
  02ae:35 03              ldi 3 
  02b0:65 12             aTop seconds 
  02b2:33 63              jmp code_0317 

        code_02b4
  02b4:3c                 dup 
  02b5:35 04              ldi 4 
  02b7:1a                 eq? 
  02b8:31 1b              bnt code_02d5 
  02ba:39 7e            pushi 7e // $7e setCycle
  02bc:7a               push2 
  02bd:51 1b            class Beg 
  02bf:36                push 
  02c0:7c            pushSelf 
  02c1:72 00a0          lofsa $0364 // Rudy
  02c4:4a 08             send 8 

  02c6:8b 06              lsl local6 
  02c8:35 02              ldi 2 
  02ca:22                 lt? 
  02cb:31 06              bnt code_02d3 
  02cd:c3 06              +al local6 
  02cf:35 ff              ldi ff 
  02d1:65 0a             aTop state 

        code_02d3
  02d3:33 42              jmp code_0317 

        code_02d5
  02d5:3c                 dup 
  02d6:35 05              ldi 5 
  02d8:1a                 eq? 
  02d9:31 26              bnt code_0301 
  02db:39 05            pushi 5 // $5 view
  02dd:78               push1 
  02de:38 017c          pushi 17c // $17c sel_380
  02e1:38 00a4          pushi a4 // $a4 cycleSpeed
  02e4:78               push1 
  02e5:76               push0 
  02e6:39 7e            pushi 7e // $7e setCycle
  02e8:78               push1 
  02e9:51 17            class Walk 
  02eb:36                push 
  02ec:38 00d3          pushi d3 // $d3 setMotion
  02ef:39 04            pushi 4 // $4 x
  02f1:51 1d            class MoveTo 
  02f3:36                push 
  02f4:39 ec            pushi ec // $ec get
  02f6:38 0098          pushi 98 // $98 center
  02f9:7c            pushSelf 
  02fa:72 0067          lofsa $0364 // Rudy
  02fd:4a 1e             send 1e 

  02ff:33 16              jmp code_0317 

        code_0301
  0301:3c                 dup 
  0302:35 06              ldi 6 
  0304:1a                 eq? 
  0305:31 10              bnt code_0317 
  0307:39 58            pushi 58 // $58 dispose
  0309:76               push0 
  030a:72 0057          lofsa $0364 // Rudy
  030d:4a 04             send 4 

  030f:39 7a            pushi 7a // $7a setScript
  0311:78               push1 
  0312:76               push0 
  0313:63 08             pToa client 
  0315:4a 06             send 6 


        code_0317
  0317:3a                toss 
  0318:48                 ret 
  0319:00                bnot 
    )

)



