source: GTP/trunk/App/Demos/Illum/Shark3D/version164x12u/IllumDemo/tmp/res/levelutil/actor/door.s3d_perch_rawim @ 2196

Revision 2196, 2.0 KB checked in by szirmay, 17 years ago (diff)
Line 
1main
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.