source: abuse-frabs/trunk/addon/twist/f2chars.lsp @ 44

Last change on this file since 44 was 44, checked in by Sam Hocevar, 14 years ago
  • Importing abuse-frabs 2.10.
File size: 3.2 KB
Line 
1;; Copyright 1999 Profound Corp,  All Rights reserved
2;; See licensing information for more details on usage rights
3
4(def_char OBJ_FORCE
5  (funs (ai_fun forceobj_ai)
6        (constructor forceobj_cons)
7        (draw_fun dev_draw))
8  (fields ("xacel"      "x force")
9          ("yacel"      "y force"))
10  (states "addon/twist/art/obj.spe"
11          (stopped "force")))
12
13(def_explo 'EXPFIRE "addon/twist/art/fire.spe"    "f"         33)
14
15(def_char SENSOR_GRAVITY
16  (range 100 100)
17  (funs (ai_fun      gsensor_ai)
18        (draw_fun    gravity_sensor_draw)
19        (constructor gsensor_cons))
20  (fields ("xvel"       "x dist")
21          ("yvel"       "y dist")
22          ("xacel"      "x gravity")
23          ("yacel"      "y gravity"))
24  (states "addon/twist/art/obj.spe"
25          (stopped "gravity")))
26
27
28(def_char SENSOR_HEALTH
29  (range 100 100)
30  (funs (ai_fun      hsensor_ai)
31        (draw_fun    health_sensor_draw)
32        (constructor hsensor_cons))
33  (fields ("xvel"       "x dist")
34          ("yvel"       "y dist")
35          ("aitype"     "0=player,1=player+enemy,2=explo")
36          ("xacel"      "subtract health"))
37  (states "addon/twist/art/obj.spe"
38          (stopped "health")))
39
40
41(def_char SENSOR_LEVEL
42  (range 100 100)
43  (funs (ai_fun      lsensor_ai)
44        (draw_fun    level_sensor_draw)
45        (constructor lsensor_cons))
46  (fields ("xvel"       "x dist")
47          ("yvel"       "y dist")
48          ("xacel"      "next level")
49          ("yacel"      "level section")
50          ("aistate"    "end of game? 0=n,1=y")
51          ("aitype"     "show stats? 0=n,1=y"))
52  (states "addon/twist/art/obj.spe"
53          (stopped "level")))
54
55
56(def_char SENSOR_TELEPORT
57  (range 100 100)
58  (funs (ai_fun      telesensor_ai)
59        (draw_fun    teleport_sensor_draw)
60        (constructor telesensor_cons))
61  (fields ("xvel"       "x dist")
62          ("yvel"       "y dist")
63          ("aitype"     "require action key? 0=n,1=y"))
64  (states "addon/twist/art/obj.spe"
65          (stopped "teleport")
66          (running "teleport")))
67
68
69(def_char WALK_ROBHEAD
70  (funs (ai_fun flyer_ai)
71        (damage_fun  flyer_damage)
72        (constructor flyer_cons))
73
74  (flags (hurtable T))
75  (abilities (start_hp 40))
76  (vars fire_delay burst_delay burst_total burst_wait burst_left
77        max_xvel   max_yvel    smoke_time fire_time)
78  (fields ("fire_delay"  who_fdelay)
79          ("burst_delay" who_bdelay)
80          ("burst_total" who_btotal)
81          ("max_xvel"    who_mxv)
82          ("max_yvel"    who_myv)
83          ("hp"          ai_health)
84          ("aitype"      ai_type)
85          ("aistate"     ai_state))
86 
87  (range 200 200)
88  (states "addon/twist/art/robs.spe"
89          (running      "wflyer")
90          (stopped      "wflyer")
91          (flinch_up    '("wfflinch" "wfflinch" "wfflinch"))
92          (turn_around  "wflyer")))
93
94
95(def_char WALK_ROB2
96  (funs (ai_fun wrob2_ai)
97        (constructor wrob2_cons)       
98        (damage_fun  guner_damage))
99  (abilities (run_top_speed 12)
100             (start_hp 60))
101  (flags (hurtable T))
102  (range 300 100)
103  (vars fire_delay burst_delay burst_total burst_wait burst_left
104        max_xvel   max_yvel    smoke_time fire_time)
105  (fields ("fire_delay"   wrob_fdelay)
106          ("burst_delay"  wrob_bdelay)
107          ("burst_total"  wrob_btotal)
108          ("max_xvel"     wrob_mxv)
109          ("max_yvel"     wrob_myv)
110          ("hp"           ai_health)
111          ("aistate"      ai_state))
112
113  (states "art/rob2.spe"
114          (stopped "wwlk0001.pcx")
115          (running (seq "wwlk" 1 10))
116          (start_run_jump "wstart_jump")
117          (flinch_up      "wflinch")
118          (run_jump       "wwlk0009.pcx")
119          ))
120
Note: See TracBrowser for help on using the repository browser.