Rev | Line | |
---|
[2269] | 1 | main
|
---|
| 2 | func
|
---|
| 3 | Name "initActor"
|
---|
| 4 | Decl "@void-"
|
---|
| 5 | DynDecl "-v"
|
---|
| 6 | Label 4
|
---|
| 7 | blk
|
---|
| 8 | null.i
|
---|
| 9 | storescr.i scr 1
|
---|
| 10 | const.s str "actu"
|
---|
| 11 | bi.getParamStr
|
---|
| 12 | bi.findActor
|
---|
| 13 | storescr.a scr 2
|
---|
| 14 | const.s str "speaker"
|
---|
| 15 | bi.getParamStr
|
---|
| 16 | bi.findActor
|
---|
| 17 | storescr.a scr 3
|
---|
| 18 | func
|
---|
| 19 | Name "finishActor"
|
---|
| 20 | Decl "@void-"
|
---|
| 21 | DynDecl "-v"
|
---|
| 22 | Label 5
|
---|
| 23 | blk
|
---|
| 24 | func
|
---|
| 25 | Name "open"
|
---|
| 26 | Decl "@void-"
|
---|
| 27 | DynDecl ""
|
---|
| 28 | Label 6
|
---|
| 29 | blk
|
---|
| 30 | loadscr.a scr 2
|
---|
| 31 | const.s str "play_to_end"
|
---|
| 32 | bi.a.dyncall str "-v"
|
---|
| 33 | loadscr.a scr 3
|
---|
| 34 | const.s str "start"
|
---|
| 35 | bi.a.dyncall str "-v"
|
---|
| 36 | loadscr.a scr 2
|
---|
| 37 | const.s str "get_duration"
|
---|
| 38 | bi.a.dyncall str ">f"
|
---|
| 39 | storeloc.f loc 11
|
---|
| 40 | const.s str "soundOff"
|
---|
| 41 | loadloc.f loc 11
|
---|
| 42 | bi.evtAppoint
|
---|
| 43 | func
|
---|
| 44 | Name "close"
|
---|
| 45 | Decl "@void-"
|
---|
| 46 | DynDecl ""
|
---|
| 47 | Label 7
|
---|
| 48 | blk
|
---|
| 49 | loadscr.a scr 2
|
---|
| 50 | const.s str "play_to_start"
|
---|
| 51 | bi.a.dyncall str "-v"
|
---|
| 52 | loadscr.a scr 3
|
---|
| 53 | const.s str "start"
|
---|
| 54 | bi.a.dyncall str "-v"
|
---|
| 55 | loadscr.a scr 2
|
---|
| 56 | const.s str "get_duration"
|
---|
| 57 | bi.a.dyncall str ">f"
|
---|
| 58 | storeloc.f loc 12
|
---|
| 59 | const.s str "soundOff"
|
---|
| 60 | loadloc.f loc 12
|
---|
| 61 | bi.evtAppoint
|
---|
| 62 | func
|
---|
| 63 | Name "enter"
|
---|
| 64 | Decl "@void-<@actor"
|
---|
| 65 | DynDecl "-v<a"
|
---|
| 66 | Label 8
|
---|
| 67 | blk
|
---|
| 68 | storeloc.a loc 13
|
---|
| 69 | loadscr.i scr 1
|
---|
| 70 | null.i
|
---|
| 71 | equal.i
|
---|
| 72 | jumpz uselab 14
|
---|
| 73 | call uselab 6
|
---|
| 74 | @lab deflab 14
|
---|
| 75 | loadscr.i scr 1
|
---|
| 76 | const.i int 1
|
---|
| 77 | bi.i.add
|
---|
| 78 | storescr.i scr 1
|
---|
| 79 | func
|
---|
| 80 | Name "leave"
|
---|
| 81 | Decl "@void-<@actor"
|
---|
| 82 | DynDecl "-v<a"
|
---|
| 83 | Label 9
|
---|
| 84 | blk
|
---|
| 85 | storeloc.a loc 16
|
---|
| 86 | loadscr.i scr 1
|
---|
| 87 | const.i int 1
|
---|
| 88 | bi.i.sub
|
---|
| 89 | storescr.i scr 1
|
---|
| 90 | loadscr.i scr 1
|
---|
| 91 | null.i
|
---|
| 92 | equal.i
|
---|
| 93 | jumpz uselab 17
|
---|
| 94 | call uselab 7
|
---|
| 95 | @lab deflab 17
|
---|
| 96 | func
|
---|
| 97 | Name "soundOff"
|
---|
| 98 | Decl "@void-"
|
---|
| 99 | DynDecl "-v"
|
---|
| 100 | Label 10
|
---|
| 101 | blk
|
---|
| 102 | loadscr.a scr 3
|
---|
| 103 | const.s str "stop"
|
---|
| 104 | bi.a.dyncall str "-v"
|
---|
Note: See
TracBrowser
for help on using the repository browser.