(script 24)

(string
    string_06fc "Clarence"
    string_0705 "Gazebo"
    string_070c "Hedge"
    string_0712 "Room24"
    string_0719 "clarActions"
    string_0725 "clarence"
)

(said
    said_053c /ceiling
    said_0540 /path
    said_0544 /escalier,escalier
    said_054b <haut
    said_054f [<around,at][/room]
    said_055d [<bas][/dirt]
    said_0568 ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_0587 climb/escalier
    said_058d look/attorney,attorney
    said_0596 look/garden,arbuste
    said_059f look/gazebo
    said_05a5 look<below/gazebo
    said_05ae look<dans/gazebo
    said_05b7 look>
    said_05bb bonjour/attorney,attorney
)

(synonym
    attorney | clarence | lawyer = person | personne
    attorney | clarence | lawyer = fellow | gars | gentleman | guy | homme | man | type
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
)

// 05ca
(instance public Room24 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $18
        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_001a
  001a:35 17              ldi 17 
  001c:65 20             aTop west 
  001e:35 08              ldi 8 
  0020:65 1c             aTop east 
  0022:39 57            pushi 57 // $57 init
  0024:76               push0 
  0025:57 37 04         super Rm 4 

  0028:38 010b          pushi 10b // $10b setFeatures
  002b:7a               push2 
  002c:74 0673          lofss $06a2 // Hedge
  002f:74 069c          lofss $06ce // Gazebo
  0032:54 08             self 8 

  0034:88 00a5            lsg gAct 
  0037:35 03              ldi 3 
  0039:20                 ge? 
  003a:31 63              bnt code_009f 
  003c:89 7b              lsg gCorpseFlags 
  003e:35 04              ldi 4 
  0040:12                 and 
  0041:18                 not 
  0042:31 5b              bnt code_009f 
  0044:89 7b              lsg gCorpseFlags 
  0046:35 40              ldi 40 
  0048:12                 and 
  0049:18                 not 
  004a:31 53              bnt code_009f 
  004c:89 7a              lsg global122 
  004e:35 17              ldi 17 
  0050:1c                 ne? 
  0051:31 25              bnt code_0078 
  0053:89 7a              lsg global122 
  0055:81 0b              lag gCurRoomNum 
  0057:1c                 ne? 
  0058:31 1e              bnt code_0078 
  005a:7a               push2 
  005b:78               push1 
  005c:7a               push2 
  005d:43 40 04         callk Random 4 

  0060:36                push 
  0061:3c                 dup 
  0062:35 01              ldi 1 
  0064:1a                 eq? 
  0065:31 06              bnt code_006d 
  0067:81 0b              lag gCurRoomNum 
  0069:a1 7a              sag global122 
  006b:33 0a              jmp code_0077 

        code_006d
  006d:3c                 dup 
  006e:35 02              ldi 2 
  0070:1a                 eq? 
  0071:31 04              bnt code_0077 
  0073:35 17              ldi 17 
  0075:a1 7a              sag global122 

        code_0077
  0077:3a                toss 

        code_0078
  0078:88 00a5            lsg gAct 
  007b:35 03              ldi 3 
  007d:1a                 eq? 
  007e:31 0b              bnt code_008b 
  0080:89 73              lsg gJeevesChoresState 
  0082:35 07              ldi 7 
  0084:22                 lt? 
  0085:31 04              bnt code_008b 
  0087:35 18              ldi 18 
  0089:a1 7a              sag global122 

        code_008b
  008b:89 7a              lsg global122 
  008d:81 0b              lag gCurRoomNum 
  008f:1a                 eq? 
  0090:31 0d              bnt code_009f 
  0092:35 01              ldi 1 
  0094:a3 02              sal local2 
  0096:38 010a          pushi 10a // $10a setRegions
  0099:78               push1 
  009a:38 0107          pushi 107 // $107 south
  009d:54 06             self 6 


        code_009f
  009f:88 009a            lsg gClarenceWilburState 
  00a2:35 05              ldi 5 
  00a4:1a                 eq? 
  00a5:2f 08               bt code_00af 
  00a7:88 0171            lsg global369 
  00aa:35 01              ldi 1 
  00ac:1a                 eq? 
  00ad:31 39              bnt code_00e8 

        code_00af
  00af:88 00a5            lsg gAct 
  00b2:35 01              ldi 1 
  00b4:1a                 eq? 
  00b5:31 31              bnt code_00e8 
  00b7:39 57            pushi 57 // $57 init
  00b9:76               push0 
  00ba:39 7a            pushi 7a // $7a setScript
  00bc:78               push1 
  00bd:74 0560          lofss $0620 // clarActions
  00c0:72 058d          lofsa $0650 // Clarence
  00c3:4a 0a             send a 

  00c5:39 03            pushi 3 // $3 y
  00c7:38 008f          pushi 8f // $8f moveTo
  00ca:38 00f3          pushi f3 // $f3 close
  00cd:38 00f8          pushi f8 // $f8 newRoom
  00d0:45 15 06         callb procedure_0015 6 // LoadMany 

  00d3:7a               push2 
  00d4:38 0080          pushi 80 // $80 timeLeft
  00d7:38 038a          pushi 38a // $38a sel_906
  00da:43 00 04         callk Load 4 

  00dd:35 40              ldi 40 
  00df:a0 00d0            sag global208 
  00e2:34 00f8            ldi f8 
  00e5:a0 017f            sag global383 

        code_00e8
  00e8:89 0c              lsg gPrevRoomNum 
  00ea:3c                 dup 
  00eb:35 12              ldi 12 
  00ed:1a                 eq? 
  00ee:31 0f              bnt code_00ff 
  00f0:38 00c5          pushi c5 // $c5 posn
  00f3:7a               push2 
  00f4:39 0a            pushi a // $a nsLeft
  00f6:38 0087          pushi 87 // $87 clean
  00f9:81 00              lag gEgo 
  00fb:4a 08             send 8 

  00fd:33 58              jmp code_0157 

        code_00ff
  00ff:3c                 dup 
  0100:35 08              ldi 8 
  0102:1a                 eq? 
  0103:31 14              bnt code_0119 
  0105:38 00c5          pushi c5 // $c5 posn
  0108:7a               push2 
  0109:38 013b          pushi 13b // $13b gateX
  010c:38 00af          pushi af // $af incClientPos
  010f:39 06            pushi 6 // $6 loop
  0111:78               push1 
  0112:78               push1 
  0113:81 00              lag gEgo 
  0115:4a 0e             send e 

  0117:33 3e              jmp code_0157 

        code_0119
  0119:3c                 dup 
  011a:35 1e              ldi 1e 
  011c:1a                 eq? 
  011d:31 10              bnt code_012f 
  011f:38 00c5          pushi c5 // $c5 posn
  0122:7a               push2 
  0123:38 0110          pushi 110 // $110 disable
  0126:38 00bc          pushi bc // $bc motionInited
  0129:81 00              lag gEgo 
  012b:4a 08             send 8 

  012d:33 28              jmp code_0157 

        code_012f
  012f:3c                 dup 
  0130:35 1d              ldi 1d 
  0132:1a                 eq? 
  0133:31 0f              bnt code_0144 
  0135:38 00c5          pushi c5 // $c5 posn
  0138:7a               push2 
  0139:39 22            pushi 22 // $22 type
  013b:38 00bc          pushi bc // $bc motionInited
  013e:81 00              lag gEgo 
  0140:4a 08             send 8 

  0142:33 13              jmp code_0157 

        code_0144
  0144:3c                 dup 
  0145:35 17              ldi 17 
  0147:1a                 eq? 
  0148:31 0d              bnt code_0157 
  014a:38 00c5          pushi c5 // $c5 posn
  014d:7a               push2 
  014e:39 0a            pushi a // $a nsLeft
  0150:38 0096          pushi 96 // $96 busy
  0153:81 00              lag gEgo 
  0155:4a 08             send 8 


        code_0157
  0157:3a                toss 
  0158:39 05            pushi 5 // $5 view
  015a:78               push1 
  015b:76               push0 
  015c:39 57            pushi 57 // $57 init
  015e:76               push0 
  015f:81 00              lag gEgo 
  0161:4a 0a             send a 

  0163:48                 ret 
    )

    (method (doit) // method_0164
  0164:76               push0 
  0165:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0168:31 0a              bnt code_0174 
  016a:7a               push2 
  016b:39 18            pushi 18 // $18 key
  016d:76               push0 
  016e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0174
  0174:38 00db          pushi db // $db onControl
  0177:78               push1 
  0178:76               push0 
  0179:81 00              lag gEgo 
  017b:4a 06             send 6 

  017d:36                push 
  017e:3c                 dup 
  017f:35 02              ldi 2 
  0181:1a                 eq? 
  0182:31 0c              bnt code_0190 
  0184:38 00f8          pushi f8 // $f8 newRoom
  0187:78               push1 
  0188:39 12            pushi 12 // $12 illegalBits
  018a:81 02              lag gCurRoom 
  018c:4a 06             send 6 

  018e:33 63              jmp code_01f3 

        code_0190
  0190:3c                 dup 
  0191:35 10              ldi 10 
  0193:1a                 eq? 
  0194:31 4c              bnt code_01e2 
  0196:83 01              lal local1 
  0198:18                 not 
  0199:31 45              bnt code_01e0 
  019b:83 02              lal local2 
  019d:18                 not 
  019e:31 40              bnt code_01e0 
  01a0:35 01              ldi 1 
  01a2:a3 01              sal local1 
  01a4:38 00e9          pushi e9 // $e9 canControl
  01a7:78               push1 
  01a8:76               push0 
  01a9:51 2b            class User 
  01ab:4a 06             send 6 

  01ad:39 03            pushi 3 // $3 y
  01af:76               push0 
  01b0:81 00              lag gEgo 
  01b2:4a 04             send 4 

  01b4:36                push 
  01b5:34 0096            ldi 96 
  01b8:22                 lt? 
  01b9:31 14              bnt code_01cf 
  01bb:38 00d3          pushi d3 // $d3 setMotion
  01be:39 03            pushi 3 // $3 y
  01c0:51 1d            class MoveTo 
  01c2:36                push 
  01c3:38 00bd          pushi bd // $bd outOfTouch
  01c6:38 00ac          pushi ac // $ac onTarget
  01c9:81 00              lag gEgo 
  01cb:4a 0a             send a 

  01cd:33 11              jmp code_01e0 

        code_01cf
  01cf:38 00d3          pushi d3 // $d3 setMotion
  01d2:39 03            pushi 3 // $3 y
  01d4:51 1d            class MoveTo 
  01d6:36                push 
  01d7:38 00c5          pushi c5 // $c5 posn
  01da:39 7e            pushi 7e // $7e setCycle
  01dc:81 00              lag gEgo 
  01de:4a 0a             send a 


        code_01e0
  01e0:33 11              jmp code_01f3 

        code_01e2
  01e2:83 01              lal local1 
  01e4:31 0d              bnt code_01f3 
  01e6:35 00              ldi 0 
  01e8:a3 01              sal local1 
  01ea:38 00e9          pushi e9 // $e9 canControl
  01ed:78               push1 
  01ee:78               push1 
  01ef:51 2b            class User 
  01f1:4a 06             send 6 


        code_01f3
  01f3:3a                toss 
  01f4:38 00eb          pushi eb // $eb edgeHit
  01f7:76               push0 
  01f8:81 00              lag gEgo 
  01fa:4a 04             send 4 

  01fc:36                push 
  01fd:35 03              ldi 3 
  01ff:1a                 eq? 
  0200:31 24              bnt code_0226 
  0202:39 04            pushi 4 // $4 x
  0204:76               push0 
  0205:81 00              lag gEgo 
  0207:4a 04             send 4 

  0209:36                push 
  020a:34 009f            ldi 9f 
  020d:22                 lt? 
  020e:31 0c              bnt code_021c 
  0210:38 00f8          pushi f8 // $f8 newRoom
  0213:78               push1 
  0214:39 1d            pushi 1d // $1d back
  0216:81 02              lag gCurRoom 
  0218:4a 06             send 6 

  021a:33 0a              jmp code_0226 

        code_021c
  021c:38 00f8          pushi f8 // $f8 newRoom
  021f:78               push1 
  0220:39 1e            pushi 1e // $1e mode
  0222:81 02              lag gCurRoom 
  0224:4a 06             send 6 


        code_0226
  0226:39 3c            pushi 3c // $3c doit
  0228:76               push0 
  0229:57 37 04         super Rm 4 

  022c:48                 ret 
    )

    (method (dispose) // method_022d
  022d:39 58            pushi 58 // $58 dispose
  022f:76               push0 
  0230:57 37 04         super Rm 4 

  0233:48                 ret 
    )

    (method (newRoom) // method_0234
  0234:38 00f8          pushi f8 // $f8 newRoom
  0237:78               push1 
  0238:8f 01              lsp param1 
  023a:57 37 06         super Rm 6 

  023d:48                 ret 
    )

    (method (handleEvent) // method_023e
  023e:3f 01             link 1 // (var $1)
  0240:39 4c            pushi 4c // $4c claimed
  0242:76               push0 
  0243:87 01              lap param1 
  0245:4a 04             send 4 

  0247:31 03              bnt code_024c 
  0249:35 01              ldi 1 
  024b:48                 ret 

        code_024c
  024c:80 00d0            lag global208 
  024f:31 2d              bnt code_027e 
  0251:78               push1 
  0252:74 0313          lofss $0568 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  0255:43 25 02         callk Said 2 

  0258:31 24              bnt code_027e 
  025a:39 7a            pushi 7a // $7a setScript
  025c:78               push1 
  025d:7a               push2 
  025e:38 00f3          pushi f3 // $f3 close
  0261:76               push0 
  0262:43 02 04         callk ScriptID 4 

  0265:36                push 
  0266:54 06             self 6 

  0268:39 6f            pushi 6f // $6f handleEvent
  026a:78               push1 
  026b:8f 01              lsp param1 
  026d:39 76            pushi 76 // $76 script
  026f:76               push0 
  0270:54 04             self 4 

  0272:4a 06             send 6 

  0274:39 4c            pushi 4c // $4c claimed
  0276:76               push0 
  0277:87 01              lap param1 
  0279:4a 04             send 4 

  027b:31 01              bnt code_027e 
  027d:48                 ret 

        code_027e
  027e:39 22            pushi 22 // $22 type
  0280:76               push0 
  0281:87 01              lap param1 
  0283:4a 04             send 4 

  0285:36                push 
  0286:34 0080            ldi 80 
  0289:1a                 eq? 
  028a:30 00f9            bnt code_0386 
  028d:80 00d0            lag global208 
  0290:31 2d              bnt code_02bf 
  0292:78               push1 
  0293:74 02d2          lofss $0568 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  0296:43 25 02         callk Said 2 

  0299:31 24              bnt code_02bf 
  029b:39 7a            pushi 7a // $7a setScript
  029d:78               push1 
  029e:7a               push2 
  029f:38 00f3          pushi f3 // $f3 close
  02a2:76               push0 
  02a3:43 02 04         callk ScriptID 4 

  02a6:36                push 
  02a7:54 06             self 6 

  02a9:39 6f            pushi 6f // $6f handleEvent
  02ab:78               push1 
  02ac:8f 01              lsp param1 
  02ae:39 76            pushi 76 // $76 script
  02b0:76               push0 
  02b1:54 04             self 4 

  02b3:4a 06             send 6 

  02b5:39 4c            pushi 4c // $4c claimed
  02b7:76               push0 
  02b8:87 01              lap param1 
  02ba:4a 04             send 4 

  02bc:31 01              bnt code_02bf 
  02be:48                 ret 

        code_02bf
  02bf:78               push1 
  02c0:74 02f4          lofss $05b7 // look>
  02c3:43 25 02         callk Said 2 

  02c6:30 00a9            bnt code_0372 
  02c9:78               push1 
  02ca:74 0282          lofss $054f // [<around,at][/room]
  02cd:43 25 02         callk Said 2 

  02d0:31 0d              bnt code_02df 
  02d2:7a               push2 
  02d3:39 18            pushi 18 // $18 key
  02d5:76               push0 
  02d6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02dc:32 0091            jmp code_0370 

        code_02df
  02df:78               push1 
  02e0:74 025d          lofss $0540 // /path
  02e3:43 25 02         callk Said 2 

  02e6:31 0c              bnt code_02f4 
  02e8:7a               push2 
  02e9:39 18            pushi 18 // $18 key
  02eb:78               push1 
  02ec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02f2:33 7c              jmp code_0370 

        code_02f4
  02f4:78               push1 
  02f5:74 024c          lofss $0544 // /escalier,escalier
  02f8:43 25 02         callk Said 2 

  02fb:31 0c              bnt code_0309 
  02fd:7a               push2 
  02fe:39 18            pushi 18 // $18 key
  0300:7a               push2 
  0301:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0307:33 67              jmp code_0370 

        code_0309
  0309:78               push1 
  030a:74 0250          lofss $055d // [<bas][/dirt]
  030d:43 25 02         callk Said 2 

  0310:31 27              bnt code_0339 
  0312:38 00db          pushi db // $db onControl
  0315:78               push1 
  0316:76               push0 
  0317:81 00              lag gEgo 
  0319:4a 06             send 6 

  031b:36                push 
  031c:34 4000            ldi 4000 
  031f:12                 and 
  0320:31 0d              bnt code_032f 
  0322:7a               push2 
  0323:39 18            pushi 18 // $18 key
  0325:39 03            pushi 3 // $3 y
  0327:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  032d:33 08              jmp code_0337 

        code_032f
  032f:39 4c            pushi 4c // $4c claimed
  0331:78               push1 
  0332:76               push0 
  0333:87 01              lap param1 
  0335:4a 06             send 6 


        code_0337
  0337:33 37              jmp code_0370 

        code_0339
  0339:78               push1 
  033a:74 01ff          lofss $053c // /ceiling
  033d:43 25 02         callk Said 2 

  0340:2f 09               bt code_034b 
  0342:78               push1 
  0343:74 0205          lofss $054b // <haut
  0346:43 25 02         callk Said 2 

  0349:31 25              bnt code_0370 

        code_034b
  034b:38 00db          pushi db // $db onControl
  034e:78               push1 
  034f:76               push0 
  0350:81 00              lag gEgo 
  0352:4a 06             send 6 

  0354:36                push 
  0355:34 4000            ldi 4000 
  0358:12                 and 
  0359:31 0d              bnt code_0368 
  035b:7a               push2 
  035c:39 18            pushi 18 // $18 key
  035e:39 04            pushi 4 // $4 x
  0360:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0366:33 08              jmp code_0370 

        code_0368
  0368:39 4c            pushi 4c // $4c claimed
  036a:78               push1 
  036b:76               push0 
  036c:87 01              lap param1 
  036e:4a 06             send 6 


        code_0370
  0370:33 14              jmp code_0386 

        code_0372
  0372:78               push1 
  0373:74 0211          lofss $0587 // climb/escalier
  0376:43 25 02         callk Said 2 

  0379:31 0b              bnt code_0386 
  037b:7a               push2 
  037c:39 18            pushi 18 // $18 key
  037e:39 05            pushi 5 // $5 view
  0380:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0386
  0386:48                 ret 
    )

)

// 061a
(instance clarActions 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_0387
  0387:87 01              lap param1 
  0389:65 0a             aTop state 
  038b:36                push 
  038c:3c                 dup 
  038d:35 00              ldi 0 
  038f:1a                 eq? 
  0390:31 1f              bnt code_03b1 
  0392:39 06            pushi 6 // $6 loop
  0394:78               push1 
  0395:76               push0 
  0396:39 07            pushi 7 // $7 cel
  0398:78               push1 
  0399:76               push0 
  039a:38 00a4          pushi a4 // $a4 cycleSpeed
  039d:78               push1 
  039e:78               push1 
  039f:39 7e            pushi 7e // $7e setCycle
  03a1:78               push1 
  03a2:51 1a            class End 
  03a4:36                push 
  03a5:72 02a8          lofsa $0650 // Clarence
  03a8:4a 18             send 18 

  03aa:35 04              ldi 4 
  03ac:65 12             aTop seconds 
  03ae:32 0088            jmp code_0439 

        code_03b1
  03b1:3c                 dup 
  03b2:35 01              ldi 1 
  03b4:1a                 eq? 
  03b5:31 16              bnt code_03cd 
  03b7:39 06            pushi 6 // $6 loop
  03b9:78               push1 
  03ba:78               push1 
  03bb:39 07            pushi 7 // $7 cel
  03bd:78               push1 
  03be:76               push0 
  03bf:39 7e            pushi 7e // $7e setCycle
  03c1:7a               push2 
  03c2:51 1a            class End 
  03c4:36                push 
  03c5:7c            pushSelf 
  03c6:72 0287          lofsa $0650 // Clarence
  03c9:4a 14             send 14 

  03cb:33 6c              jmp code_0439 

        code_03cd
  03cd:3c                 dup 
  03ce:35 02              ldi 2 
  03d0:1a                 eq? 
  03d1:31 17              bnt code_03ea 
  03d3:39 7e            pushi 7e // $7e setCycle
  03d5:78               push1 
  03d6:51 1b            class Beg 
  03d8:36                push 
  03d9:72 0274          lofsa $0650 // Clarence
  03dc:4a 06             send 6 

  03de:7a               push2 
  03df:39 05            pushi 5 // $5 view
  03e1:39 0a            pushi a // $a nsLeft
  03e3:43 40 04         callk Random 4 

  03e6:65 12             aTop seconds 
  03e8:33 4f              jmp code_0439 

        code_03ea
  03ea:3c                 dup 
  03eb:35 03              ldi 3 
  03ed:1a                 eq? 
  03ee:31 19              bnt code_0409 
  03f0:39 06            pushi 6 // $6 loop
  03f2:78               push1 
  03f3:7a               push2 
  03f4:39 07            pushi 7 // $7 cel
  03f6:78               push1 
  03f7:76               push0 
  03f8:39 7e            pushi 7e // $7e setCycle
  03fa:78               push1 
  03fb:51 16            class Fwd 
  03fd:36                push 
  03fe:72 024f          lofsa $0650 // Clarence
  0401:4a 12             send 12 

  0403:35 03              ldi 3 
  0405:65 12             aTop seconds 
  0407:33 30              jmp code_0439 

        code_0409
  0409:3c                 dup 
  040a:35 04              ldi 4 
  040c:1a                 eq? 
  040d:31 2a              bnt code_0439 
  040f:39 7e            pushi 7e // $7e setCycle
  0411:78               push1 
  0412:76               push0 
  0413:72 023a          lofsa $0650 // Clarence
  0416:4a 06             send 6 

  0418:7a               push2 
  0419:78               push1 
  041a:39 64            pushi 64 // $64 allTrue
  041c:43 40 04         callk Random 4 

  041f:36                push 
  0420:35 23              ldi 23 
  0422:22                 lt? 
  0423:31 06              bnt code_042b 
  0425:35 00              ldi 0 
  0427:65 0a             aTop state 
  0429:33 04              jmp code_042f 

        code_042b
  042b:35 02              ldi 2 
  042d:65 0a             aTop state 

        code_042f
  042f:7a               push2 
  0430:39 05            pushi 5 // $5 view
  0432:39 0f            pushi f // $f lsBottom
  0434:43 40 04         callk Random 4 

  0437:65 12             aTop seconds 

        code_0439
  0439:3a                toss 
  043a:48                 ret 
    )

)

// 064a
(instance Clarence of Prop
    (properties
        y $a7
        x $bf
        z $0
        heading $0
        yStep $2
        view $19c
        loop $0
        cel $1
        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
    )
    (method (handleEvent) // method_043b
  043b:3f 01             link 1 // (var $1)
  043d:39 03            pushi 3 // $3 y
  043f:7c            pushSelf 
  0440:8f 01              lsp param1 
  0442:39 03            pushi 3 // $3 y
  0444:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  044a:31 1a              bnt code_0466 
  044c:88 00cf            lsg global207 
  044f:35 40              ldi 40 
  0451:12                 and 
  0452:18                 not 
  0453:31 11              bnt code_0466 
  0455:39 4c            pushi 4c // $4c claimed
  0457:78               push1 
  0458:78               push1 
  0459:87 01              lap param1 
  045b:4a 06             send 6 

  045d:78               push1 
  045e:74 02c4          lofss $0725 // clarence
  0461:45 19 02         callb procedure_0019 2 // DoLook 

  0464:33 4d              jmp code_04b3 

        code_0466
  0466:88 00cf            lsg global207 
  0469:35 40              ldi 40 
  046b:12                 and 
  046c:31 2d              bnt code_049b 
  046e:39 03            pushi 3 // $3 y
  0470:7c            pushSelf 
  0471:8f 01              lsp param1 
  0473:39 03            pushi 3 // $3 y
  0475:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  047b:2f 09               bt code_0486 
  047d:78               push1 
  047e:74 010c          lofss $058d // look/attorney,attorney
  0481:43 25 02         callk Said 2 

  0484:31 15              bnt code_049b 

        code_0486
  0486:39 4c            pushi 4c // $4c claimed
  0488:78               push1 
  0489:78               push1 
  048a:87 01              lap param1 
  048c:4a 06             send 6 

  048e:7a               push2 
  048f:39 18            pushi 18 // $18 key
  0491:39 06            pushi 6 // $6 loop
  0493:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0499:33 18              jmp code_04b3 

        code_049b
  049b:78               push1 
  049c:74 011c          lofss $05bb // bonjour/attorney,attorney
  049f:43 25 02         callk Said 2 

  04a2:31 0f              bnt code_04b3 
  04a4:35 07              ldi 7 
  04a6:a0 00d5            sag global213 
  04a9:39 03            pushi 3 // $3 y
  04ab:78               push1 
  04ac:39 18            pushi 18 // $18 key
  04ae:39 07            pushi 7 // $7 cel
  04b0:45 01 06         callb procedure_0001 6 // Say 


        code_04b3
  04b3:48                 ret 
    )

)

// 069c
(instance Hedge of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $61
        nsLeft $0
        nsBottom $73
        nsRight $30
    )
    (method (handleEvent) // method_04b4
  04b4:39 03            pushi 3 // $3 y
  04b6:7c            pushSelf 
  04b7:8f 01              lsp param1 
  04b9:39 03            pushi 3 // $3 y
  04bb:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04c1:2f 09               bt code_04cc 
  04c3:78               push1 
  04c4:74 00cf          lofss $0596 // look/garden,arbuste
  04c7:43 25 02         callk Said 2 

  04ca:31 13              bnt code_04df 

        code_04cc
  04cc:39 4c            pushi 4c // $4c claimed
  04ce:78               push1 
  04cf:78               push1 
  04d0:87 01              lap param1 
  04d2:4a 06             send 6 

  04d4:7a               push2 
  04d5:39 18            pushi 18 // $18 key
  04d7:39 08            pushi 8 // $8 underBits
  04d9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04df
  04df:48                 ret 
    )

)

// 06c8
(instance Gazebo of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $3
        nsLeft $94
        nsBottom $98
        nsRight $10b
    )
    (method (handleEvent) // method_04e0
  04e0:78               push1 
  04e1:74 00ca          lofss $05ae // look<dans/gazebo
  04e4:43 25 02         callk Said 2 

  04e7:31 0d              bnt code_04f6 
  04e9:7a               push2 
  04ea:39 18            pushi 18 // $18 key
  04ec:39 09            pushi 9 // $9 nsTop
  04ee:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04f4:33 41              jmp code_0537 

        code_04f6
  04f6:78               push1 
  04f7:74 00ab          lofss $05a5 // look<below/gazebo
  04fa:43 25 02         callk Said 2 

  04fd:31 0d              bnt code_050c 
  04ff:7a               push2 
  0500:39 18            pushi 18 // $18 key
  0502:39 0a            pushi a // $a nsLeft
  0504:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  050a:33 2b              jmp code_0537 

        code_050c
  050c:39 03            pushi 3 // $3 y
  050e:7c            pushSelf 
  050f:8f 01              lsp param1 
  0511:39 03            pushi 3 // $3 y
  0513:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0519:2f 09               bt code_0524 
  051b:78               push1 
  051c:74 0080          lofss $059f // look/gazebo
  051f:43 25 02         callk Said 2 

  0522:31 13              bnt code_0537 

        code_0524
  0524:39 4c            pushi 4c // $4c claimed
  0526:78               push1 
  0527:78               push1 
  0528:87 01              lap param1 
  052a:4a 06             send 6 

  052c:7a               push2 
  052d:39 18            pushi 18 // $18 key
  052f:39 0b            pushi b // $b nsBottom
  0531:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0537
  0537:48                 ret 
    )

)



