(script 5)

(string
    string_069a "Room5"
    string_06a0 "bench1"
    string_06a7 "bench2"
    string_06ae "planter1"
    string_06b7 "planter2"
    string_06c0 "treerose1"
    string_06ca "treerose2"
    string_06d4 "treerose3"
    string_06de "treerose4"
)

(said
    said_03e2 /arbor[<rose]
    said_03eb /barriere
    said_03ef /champ
    said_03f3 /path,(boulder<stepping)
    said_03ff /rose,arbuste,arbre,foliage
    said_040c [<around,at][/room]
    said_041a climb/barriere
    said_0420 climb/arbre,arbuste,rose
    said_042c get/rose,rose,foliage
    said_0438 get/urn
    said_043e look/banc
    said_0444 look/arbre,arbuste,rose
    said_0450 look/urn,pedestal,base
    said_045c look<below/banc
    said_0465 look<below/urn
    said_046e look<dans/urn
    said_0477 look>
    said_047b appuyer,bouger,attirer/urn
    said_0487 asseoir/[<banc]
    said_0490 sentir/rose
)

(synonym
    rose = blossom | bouquet | fleur | fleurs | flower | wildflower
    room = garden | jardin | parc | park
)

(local
)

// 049c
(instance public Room5 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $5
        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 04              ldi 4 
  001c:65 1e             aTop south 
  001e:39 57            pushi 57 // $57 init
  0020:76               push0 
  0021:57 37 04         super Rm 4 

  0024:39 61            pushi 61 // $61 add
  0026:39 08            pushi 8 // $8 underBits
  0028:74 04c7          lofss $04f2 // planter1
  002b:74 04fa          lofss $0528 // planter2
  002e:74 052d          lofss $055e // treerose1
  0031:74 0560          lofss $0594 // treerose2
  0034:74 0593          lofss $05ca // treerose3
  0037:74 05c6          lofss $0600 // treerose4
  003a:74 05f9          lofss $0636 // bench1
  003d:74 062c          lofss $066c // bench2
  0040:39 62            pushi 62 // $62 eachElementDo
  0042:78               push1 
  0043:39 57            pushi 57 // $57 init
  0045:39 3c            pushi 3c // $3c doit
  0047:76               push0 
  0048:81 0a              lag gAddToPics 
  004a:4a 1e             send 1e 

  004c:38 010b          pushi 10b // $10b setFeatures
  004f:39 08            pushi 8 // $8 underBits
  0051:74 049e          lofss $04f2 // planter1
  0054:74 04d1          lofss $0528 // planter2
  0057:74 0504          lofss $055e // treerose1
  005a:74 0537          lofss $0594 // treerose2
  005d:74 056a          lofss $05ca // treerose3
  0060:74 059d          lofss $0600 // treerose4
  0063:74 05d0          lofss $0636 // bench1
  0066:74 0603          lofss $066c // bench2
  0069:54 14             self 14 

  006b:88 00a5            lsg gAct 
  006e:35 04              ldi 4 
  0070:20                 ge? 
  0071:31 50              bnt code_00c3 
  0073:88 00c8            lsg gEthelState 
  0076:35 65              ldi 65 
  0078:1c                 ne? 
  0079:31 48              bnt code_00c3 
  007b:89 7b              lsg gCorpseFlags 
  007d:35 40              ldi 40 
  007f:12                 and 
  0080:18                 not 
  0081:31 40              bnt code_00c3 
  0083:88 00aa            lsg gEthelCorpseRoomNum 
  0086:35 05              ldi 5 
  0088:1a                 eq? 
  0089:31 0b              bnt code_0096 
  008b:38 010a          pushi 10a // $10a setRegions
  008e:78               push1 
  008f:38 010c          pushi 10c // $10c setLocales
  0092:54 06             self 6 

  0094:33 2d              jmp code_00c3 

        code_0096
  0096:88 00aa            lsg gEthelCorpseRoomNum 
  0099:35 3d              ldi 3d 
  009b:1a                 eq? 
  009c:18                 not 
  009d:31 24              bnt code_00c3 
  009f:7a               push2 
  00a0:78               push1 
  00a1:7a               push2 
  00a2:43 40 04         callk Random 4 

  00a5:36                push 
  00a6:3c                 dup 
  00a7:35 01              ldi 1 
  00a9:1a                 eq? 
  00aa:31 0b              bnt code_00b7 
  00ac:38 010a          pushi 10a // $10a setRegions
  00af:78               push1 
  00b0:38 010c          pushi 10c // $10c setLocales
  00b3:54 06             self 6 

  00b5:33 0b              jmp code_00c2 

        code_00b7
  00b7:3c                 dup 
  00b8:35 02              ldi 2 
  00ba:1a                 eq? 
  00bb:31 05              bnt code_00c2 
  00bd:35 3d              ldi 3d 
  00bf:a0 00aa            sag gEthelCorpseRoomNum 

        code_00c2
  00c2:3a                toss 

        code_00c3
  00c3:88 00a5            lsg gAct 
  00c6:35 02              ldi 2 
  00c8:20                 ge? 
  00c9:31 11              bnt code_00dc 
  00cb:88 00a5            lsg gAct 
  00ce:35 04              ldi 4 
  00d0:22                 lt? 
  00d1:31 09              bnt code_00dc 
  00d3:38 010a          pushi 10a // $10a setRegions
  00d6:78               push1 
  00d7:38 00ca          pushi ca // $ca show
  00da:54 06             self 6 


        code_00dc
  00dc:39 05            pushi 5 // $5 view
  00de:78               push1 
  00df:76               push0 
  00e0:39 57            pushi 57 // $57 init
  00e2:76               push0 
  00e3:81 00              lag gEgo 
  00e5:4a 0a             send a 

  00e7:48                 ret 
    )

    (method (doit) // method_00e8
  00e8:76               push0 
  00e9:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  00ec:31 0a              bnt code_00f8 
  00ee:7a               push2 
  00ef:39 05            pushi 5 // $5 view
  00f1:76               push0 
  00f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00f8
  00f8:39 3c            pushi 3c // $3c doit
  00fa:76               push0 
  00fb:57 37 04         super Rm 4 

  00fe:48                 ret 
    )

    (method (dispose) // method_00ff
  00ff:39 58            pushi 58 // $58 dispose
  0101:76               push0 
  0102:57 37 04         super Rm 4 

  0105:48                 ret 
    )

    (method (newRoom) // method_0106
  0106:38 00f8          pushi f8 // $f8 newRoom
  0109:78               push1 
  010a:8f 01              lsp param1 
  010c:57 37 06         super Rm 6 

  010f:48                 ret 
    )

    (method (handleEvent) // method_0110
  0110:3f 01             link 1 // (var $1)
  0112:39 4c            pushi 4c // $4c claimed
  0114:76               push0 
  0115:87 01              lap param1 
  0117:4a 04             send 4 

  0119:31 03              bnt code_011e 
  011b:35 01              ldi 1 
  011d:48                 ret 

        code_011e
  011e:39 22            pushi 22 // $22 type
  0120:76               push0 
  0121:87 01              lap param1 
  0123:4a 04             send 4 

  0125:36                push 
  0126:34 0080            ldi 80 
  0129:1a                 eq? 
  012a:30 00cb            bnt code_01f8 
  012d:78               push1 
  012e:74 0346          lofss $0477 // look>
  0131:43 25 02         callk Said 2 

  0134:30 0081            bnt code_01b8 
  0137:78               push1 
  0138:74 02d1          lofss $040c // [<around,at][/room]
  013b:43 25 02         callk Said 2 

  013e:31 0c              bnt code_014c 
  0140:7a               push2 
  0141:39 05            pushi 5 // $5 view
  0143:76               push0 
  0144:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  014a:33 6a              jmp code_01b6 

        code_014c
  014c:78               push1 
  014d:74 0292          lofss $03e2 // /arbor[<rose]
  0150:43 25 02         callk Said 2 

  0153:31 0c              bnt code_0161 
  0155:7a               push2 
  0156:39 05            pushi 5 // $5 view
  0158:78               push1 
  0159:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  015f:33 55              jmp code_01b6 

        code_0161
  0161:78               push1 
  0162:74 028e          lofss $03f3 // /path,(boulder<stepping)
  0165:43 25 02         callk Said 2 

  0168:31 0c              bnt code_0176 
  016a:7a               push2 
  016b:39 05            pushi 5 // $5 view
  016d:7a               push2 
  016e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0174:33 40              jmp code_01b6 

        code_0176
  0176:78               push1 
  0177:74 0285          lofss $03ff // /rose,arbuste,arbre,foliage
  017a:43 25 02         callk Said 2 

  017d:31 0d              bnt code_018c 
  017f:7a               push2 
  0180:39 05            pushi 5 // $5 view
  0182:39 03            pushi 3 // $3 y
  0184:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  018a:33 2a              jmp code_01b6 

        code_018c
  018c:78               push1 
  018d:74 025b          lofss $03eb // /barriere
  0190:43 25 02         callk Said 2 

  0193:31 0d              bnt code_01a2 
  0195:7a               push2 
  0196:39 05            pushi 5 // $5 view
  0198:39 04            pushi 4 // $4 x
  019a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01a0:33 14              jmp code_01b6 

        code_01a2
  01a2:78               push1 
  01a3:74 0249          lofss $03ef // /champ
  01a6:43 25 02         callk Said 2 

  01a9:31 0b              bnt code_01b6 
  01ab:7a               push2 
  01ac:39 05            pushi 5 // $5 view
  01ae:39 05            pushi 5 // $5 view
  01b0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01b6
  01b6:33 40              jmp code_01f8 

        code_01b8
  01b8:78               push1 
  01b9:74 0270          lofss $042c // get/rose,rose,foliage
  01bc:43 25 02         callk Said 2 

  01bf:31 0d              bnt code_01ce 
  01c1:7a               push2 
  01c2:39 05            pushi 5 // $5 view
  01c4:39 06            pushi 6 // $6 loop
  01c6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01cc:33 2a              jmp code_01f8 

        code_01ce
  01ce:78               push1 
  01cf:74 02be          lofss $0490 // sentir/rose
  01d2:43 25 02         callk Said 2 

  01d5:31 0d              bnt code_01e4 
  01d7:7a               push2 
  01d8:39 05            pushi 5 // $5 view
  01da:39 07            pushi 7 // $7 cel
  01dc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01e2:33 14              jmp code_01f8 

        code_01e4
  01e4:78               push1 
  01e5:74 0232          lofss $041a // climb/barriere
  01e8:43 25 02         callk Said 2 

  01eb:31 0b              bnt code_01f8 
  01ed:7a               push2 
  01ee:39 05            pushi 5 // $5 view
  01f0:39 08            pushi 8 // $8 underBits
  01f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01f8
  01f8:48                 ret 
    )

)

// 04ec
(instance planter1 of RPicView
    (properties
        y $44
        x $6b
        z $0
        heading $0
        view $69
        loop $0
        cel $0
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_01f9
  01f9:78               push1 
  01fa:74 027e          lofss $047b // appuyer,bouger,attirer/urn
  01fd:43 25 02         callk Said 2 

  0200:31 0e              bnt code_0210 
  0202:7a               push2 
  0203:39 05            pushi 5 // $5 view
  0205:39 09            pushi 9 // $9 nsTop
  0207:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  020d:32 0083            jmp code_0293 

        code_0210
  0210:78               push1 
  0211:74 0251          lofss $0465 // look<below/urn
  0214:43 25 02         callk Said 2 

  0217:31 0d              bnt code_0226 
  0219:7a               push2 
  021a:39 05            pushi 5 // $5 view
  021c:39 0a            pushi a // $a nsLeft
  021e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0224:33 6d              jmp code_0293 

        code_0226
  0226:78               push1 
  0227:74 0244          lofss $046e // look<dans/urn
  022a:43 25 02         callk Said 2 

  022d:31 23              bnt code_0252 
  022f:38 00db          pushi db // $db onControl
  0232:78               push1 
  0233:76               push0 
  0234:81 00              lag gEgo 
  0236:4a 06             send 6 

  0238:36                push 
  0239:34 4000            ldi 4000 
  023c:12                 and 
  023d:31 0d              bnt code_024c 
  023f:7a               push2 
  0240:39 05            pushi 5 // $5 view
  0242:39 0b            pushi b // $b nsBottom
  0244:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  024a:33 04              jmp code_0250 

        code_024c
  024c:76               push0 
  024d:45 09 00         callb procedure_0009 0 // NotClose 


        code_0250
  0250:33 41              jmp code_0293 

        code_0252
  0252:78               push1 
  0253:74 01e2          lofss $0438 // get/urn
  0256:43 25 02         callk Said 2 

  0259:31 0d              bnt code_0268 
  025b:7a               push2 
  025c:39 05            pushi 5 // $5 view
  025e:39 0c            pushi c // $c nsRight
  0260:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0266:33 2b              jmp code_0293 

        code_0268
  0268:39 03            pushi 3 // $3 y
  026a:7c            pushSelf 
  026b:8f 01              lsp param1 
  026d:39 03            pushi 3 // $3 y
  026f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0275:2f 09               bt code_0280 
  0277:78               push1 
  0278:74 01d5          lofss $0450 // look/urn,pedestal,base
  027b:43 25 02         callk Said 2 

  027e:31 13              bnt code_0293 

        code_0280
  0280:39 4c            pushi 4c // $4c claimed
  0282:78               push1 
  0283:78               push1 
  0284:87 01              lap param1 
  0286:4a 06             send 6 

  0288:7a               push2 
  0289:39 05            pushi 5 // $5 view
  028b:39 0d            pushi d // $d lsTop
  028d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0293
  0293:48                 ret 
    )

)

// 0522
(instance planter2 of RPicView
    (properties
        y $44
        x $d4
        z $0
        heading $0
        view $69
        loop $0
        cel $0
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0294
  0294:39 03            pushi 3 // $3 y
  0296:7c            pushSelf 
  0297:8f 01              lsp param1 
  0299:39 03            pushi 3 // $3 y
  029b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  02a1:31 13              bnt code_02b6 
  02a3:39 4c            pushi 4c // $4c claimed
  02a5:78               push1 
  02a6:78               push1 
  02a7:87 01              lap param1 
  02a9:4a 06             send 6 

  02ab:7a               push2 
  02ac:39 05            pushi 5 // $5 view
  02ae:39 0d            pushi d // $d lsTop
  02b0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02b6
  02b6:48                 ret 
    )

)

// 0558
(instance treerose1 of RPicView
    (properties
        y $77
        x $85
        z $0
        heading $0
        view $69
        loop $1
        cel $0
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_02b7
  02b7:78               push1 
  02b8:74 0165          lofss $0420 // climb/arbre,arbuste,rose
  02bb:43 25 02         callk Said 2 

  02be:31 0d              bnt code_02cd 
  02c0:7a               push2 
  02c1:39 05            pushi 5 // $5 view
  02c3:39 0e            pushi e // $e lsLeft
  02c5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02cb:33 2b              jmp code_02f8 

        code_02cd
  02cd:39 03            pushi 3 // $3 y
  02cf:7c            pushSelf 
  02d0:8f 01              lsp param1 
  02d2:39 03            pushi 3 // $3 y
  02d4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  02da:2f 09               bt code_02e5 
  02dc:78               push1 
  02dd:74 0164          lofss $0444 // look/arbre,arbuste,rose
  02e0:43 25 02         callk Said 2 

  02e3:31 13              bnt code_02f8 

        code_02e5
  02e5:39 4c            pushi 4c // $4c claimed
  02e7:78               push1 
  02e8:78               push1 
  02e9:87 01              lap param1 
  02eb:4a 06             send 6 

  02ed:7a               push2 
  02ee:39 05            pushi 5 // $5 view
  02f0:39 03            pushi 3 // $3 y
  02f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02f8
  02f8:48                 ret 
    )

)

// 058e
(instance treerose2 of RPicView
    (properties
        y $76
        x $ba
        z $0
        heading $0
        view $69
        loop $1
        cel $1
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_02f9
  02f9:39 03            pushi 3 // $3 y
  02fb:7c            pushSelf 
  02fc:8f 01              lsp param1 
  02fe:39 03            pushi 3 // $3 y
  0300:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0306:31 13              bnt code_031b 
  0308:39 4c            pushi 4c // $4c claimed
  030a:78               push1 
  030b:78               push1 
  030c:87 01              lap param1 
  030e:4a 06             send 6 

  0310:7a               push2 
  0311:39 05            pushi 5 // $5 view
  0313:39 03            pushi 3 // $3 y
  0315:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_031b
  031b:48                 ret 
    )

)

// 05c4
(instance treerose3 of RPicView
    (properties
        y $69
        x $47
        z $0
        heading $0
        view $69
        loop $2
        cel $0
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_031c
  031c:39 03            pushi 3 // $3 y
  031e:7c            pushSelf 
  031f:8f 01              lsp param1 
  0321:39 03            pushi 3 // $3 y
  0323:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0329:31 13              bnt code_033e 
  032b:39 4c            pushi 4c // $4c claimed
  032d:78               push1 
  032e:78               push1 
  032f:87 01              lap param1 
  0331:4a 06             send 6 

  0333:7a               push2 
  0334:39 05            pushi 5 // $5 view
  0336:39 03            pushi 3 // $3 y
  0338:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_033e
  033e:48                 ret 
    )

)

// 05fa
(instance treerose4 of RPicView
    (properties
        y $66
        x $fe
        z $0
        heading $0
        view $69
        loop $2
        cel $0
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_033f
  033f:39 03            pushi 3 // $3 y
  0341:7c            pushSelf 
  0342:8f 01              lsp param1 
  0344:39 03            pushi 3 // $3 y
  0346:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  034c:31 13              bnt code_0361 
  034e:39 4c            pushi 4c // $4c claimed
  0350:78               push1 
  0351:78               push1 
  0352:87 01              lap param1 
  0354:4a 06             send 6 

  0356:7a               push2 
  0357:39 05            pushi 5 // $5 view
  0359:39 03            pushi 3 // $3 y
  035b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0361
  0361:48                 ret 
    )

)

// 0630
(instance bench1 of RPicView
    (properties
        y $34
        x $6a
        z $0
        heading $0
        view $69
        loop $3
        cel $0
        priority $1
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0362
  0362:78               push1 
  0363:74 00f6          lofss $045c // look<below/banc
  0366:43 25 02         callk Said 2 

  0369:31 0d              bnt code_0378 
  036b:7a               push2 
  036c:39 05            pushi 5 // $5 view
  036e:39 0f            pushi f // $f lsBottom
  0370:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0376:33 41              jmp code_03b9 

        code_0378
  0378:78               push1 
  0379:74 010b          lofss $0487 // asseoir/[<banc]
  037c:43 25 02         callk Said 2 

  037f:31 0d              bnt code_038e 
  0381:7a               push2 
  0382:39 05            pushi 5 // $5 view
  0384:39 10            pushi 10 // $10 lsRight
  0386:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  038c:33 2b              jmp code_03b9 

        code_038e
  038e:39 03            pushi 3 // $3 y
  0390:7c            pushSelf 
  0391:8f 01              lsp param1 
  0393:39 03            pushi 3 // $3 y
  0395:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  039b:2f 09               bt code_03a6 
  039d:78               push1 
  039e:74 009d          lofss $043e // look/banc
  03a1:43 25 02         callk Said 2 

  03a4:31 13              bnt code_03b9 

        code_03a6
  03a6:39 4c            pushi 4c // $4c claimed
  03a8:78               push1 
  03a9:78               push1 
  03aa:87 01              lap param1 
  03ac:4a 06             send 6 

  03ae:7a               push2 
  03af:39 05            pushi 5 // $5 view
  03b1:39 11            pushi 11 // $11 signal
  03b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03b9
  03b9:48                 ret 
    )

)

// 0666
(instance bench2 of RPicView
    (properties
        y $34
        x $d8
        z $0
        heading $0
        view $69
        loop $3
        cel $1
        priority $1
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_03ba
  03ba:39 03            pushi 3 // $3 y
  03bc:7c            pushSelf 
  03bd:8f 01              lsp param1 
  03bf:39 03            pushi 3 // $3 y
  03c1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  03c7:31 13              bnt code_03dc 
  03c9:39 4c            pushi 4c // $4c claimed
  03cb:78               push1 
  03cc:78               push1 
  03cd:87 01              lap param1 
  03cf:4a 06             send 6 

  03d1:7a               push2 
  03d2:39 05            pushi 5 // $5 view
  03d4:39 11            pushi 11 // $11 signal
  03d6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03dc
  03dc:48                 ret 
  03dd:00                bnot 
    )

)



