source: golgotha/src/golg/scheme/classes.scm @ 80

Last change on this file since 80 was 80, checked in by Sam Hocevar, 11 years ago
  • Adding the Golgotha source code. Not sure what's going to be interesting in there, but since it's all public domain, there's certainly stuff to pick up.
File size: 5.9 KB
Line 
1(def_class damager_vars nil
2  (attach_pos  (new vector 0 0 0))
3  (smoke_type  'acid '(list_box acid napalm))
4  (ticks_to_think  1) ; after visible, think for 2 seconds
5  (damage_per_tick 0)
6  (person_being_damaged (new object_ref))
7  (person_giving_damage (new object_ref))
8)
9
10
11(def_class takeover_pad_vars nil
12  (trigger_objects  (new object_ref_list))
13  (trigger_message  'on)
14  (takeover_objects (new object_ref_list))
15  (turret           (new object_ref)))
16
17(def_class bank_vars nil
18  (can_build  '(moneyplane))
19  (ticks_till_next_deploy   0)
20  (reset_time_in_ticks      50)
21  (path_color               0)
22  (start                    (new object_ref))
23  (moneyplanes     1)
24  (time            0)
25  (income_time     50)
26  (crates          0)
27  (crate_value     2000)
28  (crate_capacity  10)
29  (crate                    (new object_ref)))
30
31(def_class moneycrate_vars nil
32  (vspeed          0.0)
33  (crate_value     100))
34
35(def_class moneyplane_vars nil
36  (crate                    (new object_ref))
37  (mode            0))
38
39(def_class lawfirm_vars nil
40                (income_rate        3000)    ; how much they are sueing for
41                (commision           0.5)    ; lawyers get %50 of income from other players
42                (counter             0)      ; ticks left till current law-suite   
43                (reset_time          150)     ; ticks till next law-suite
44                )
45             
46
47(def_class chain_gun_type_vars nil
48  (texture_name              "blue_flare")
49  (texture_size              0.2))
50
51
52(def_class director_vars nil
53  ; use an objects as the location to send people to.  Randly picks one
54  (deploy_to            (new object_ref_list))
55
56  (range_when_deployed  2.0)                ; when an object is this close, send it to destination
57  (current_state       'on                  ; when off it will not deploy
58                       '(list_box on off))
59  (on_message          'on)                 ; when we get this message we turn on
60  (off_message         'off)
61  (who_to_send         'team '(list_box team enemy anyone))
62
63 
64  ; list of nearby objects we've already sent so we don't send them again,
65  ; or if we turned off, then a list of objects to send when we turn on
66  (nearby_objects              (new object_ref_list))
67
68  ; objects should be sent next tick.
69  (objects_to_send_next_tick    (new object_ref_list))
70)
71
72(def_class trigger_vars nil
73  (range_when_activated   3.0     '(list_box 1.0 2.0 3.0 4.0 5.0 6.0))
74  (range_when_deactivated 4.0     '(list_box 1.0 2.0 3.0 4.0 5.0 6.0))
75  (who_can_trigger        'enemy '(list_box anyone team_mates enemy
76                                   supertanks enemy_supertanks))
77  (objects_to_trigger    (new object_ref_list))
78  (send_on_trigger       'on)
79  (send_on_untrigger     'off)
80  (objects_in_range      (new object_ref_list))
81  (current_state         'on  '(list_box on off))
82)
83
84
85(def_class garage_vars nil
86  (can_build  '(electric_car peon_tank engineer
87                trike tank_buster rocket_tank bomb_truck bridger))
88  (ticks_till_next_deploy    0)
89  (reset_time_in_ticks      10)
90  (path_color               0x7f7f7f)
91  (selected_path_color      0xffffff)
92  (start                    (new object_ref)))
93
94(def_class airbase_vars nil
95  (can_build  '(helicopter jet bomber))
96  (ticks_till_next_deploy    0)
97  (reset_time_in_ticks      10)
98  (traffic_height           1.5)   ; height of all flying objects objects
99  (path_color               0x7f007f)
100  (selected_path_color      0xff00ff)
101  (start                    (new object_ref)))
102
103(def_class mainbasepad_vars nil
104  (can_build  '(stank))
105  (ticks_till_next_deploy    0)
106  (reset_time_in_ticks      10)
107  (path_color               0x7f7f7f)
108  (selected_path_color      0xffffff)
109  (start                    (new object_ref)))
110
111(def_class path_object_vars nil
112  (warning_level      0   '(list_box 0 1 2 3 4 5 6 7 8 9))
113  (bridgeable_spot    'no '(list_box no yes already_attached))   
114  (active   'on       '(list_box on off))     ; is this node turned on?
115  (controlled_objects (new object_ref_list))) ; objects taken over by engineers & other specials
116
117(def_class secret_hider_vars nil
118  (grab_height    'no '(list_box no yes))
119  (grab_textures  'no '(list_box no yes)))
120
121(def_class field_camera_vars nil
122  (name  "unknown"))
123
124
125(def_class bridger_vars nil
126  (marker_attached_to (new object_ref))
127)
128
129(def_class guided_missile_vars nil
130  (smoke_trail    (new object_ref))
131  (who_fired_me   (new object_ref))
132  (track_object   (new object_ref))
133  (fuel           0.0)
134  (velocity       (new vector)))
135
136(def_class buster_rocket_vars nil
137  (smoke_trail    (new object_ref))
138  (who_fired_me   (new object_ref))
139  (track_object   (new object_ref))
140  (fuel           0.0)
141  (velocity       (new vector)))
142
143(def_class heavy_rocket_vars nil
144  (smoke_trail    (new object_ref))
145  (who_fired_me   (new object_ref))
146  (track_object   (new object_ref))
147  (fuel           0.0)
148  (velocity       (new vector)))
149
150(def_class vortex_missile_vars nil
151  (smoke_trail    (new object_ref))
152  (who_fired_me   (new object_ref))
153  (track_object   (new object_ref))
154  (fuel           0.0)
155  (velocity       (new vector)))
156
157(def_class nuke_missile_vars nil
158  (smoke_trail    (new object_ref))
159  (who_fired_me   (new object_ref))
160  (track_object   (new object_ref))
161  (fuel           0.0)
162  (velocity       (new vector)))
163
164
165(def_class crate_vars nil
166  (type   'money   '(list_box health bullet missile chain_gun money))
167  (amount 'small    '(list_box small large))
168  (yvel    0.0)
169  (ticks_left -1))
170
171(def_class cloud_color nil
172  (red   1.0)
173  (green 1.0)
174  (blue  1.0)
175  (alpha 1.0)
176)
177
178(def_class level_vars nil
179;  (bottom_cloud_layer    (new cloud_color 0.8 0.6 0.4 1.0))
180;  (top_cloud_layer (new cloud_color 1.0 0.8 0.6 0.75))
181
182  (bottom_cloud_layer    (new cloud_color 1.0 1.0 1.0 1.0))
183  (top_cloud_layer (new cloud_color 0.8 0.8 0.8 0.75))
184)
185
186
Note: See TracBrowser for help on using the repository browser.