Line | |
---|
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.