Subversion Repositories vaca_plus

Rev

Rev 25 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1 h266 1
/*
2
--------------------------------------------------------------------------------
3
Duke Caribbean: Life's A Beach
4
By Joris Weimar
5
© 1997 Sunstorm Interactive
6
--------------------------------------------------------------------------------
7
Duke Caribbean: Life's A Beach Plus
8
By Hendricks266
9
--------------------------------------------------------------------------------
10
// CON Files for the 'Duke Carribean Add-on' by SunStorm Interactive
11
// 
12
// Actor - BEACHBABE - Sprite #1683/#2003
13
// 
14
// --- Resources ---
15
// 
16
// Sounds:
17
// Beach Babe Comments    - BABECOM1.WAV/BABECOM2.WAV
18
// Beach Babe Hurt        - BABEHURT.WAV
19
// 
20
// Art:
21
// 3 * 5 frame(s)         - Beach Babe Walking Frames
22
*/
23
 
24
move BEACHBABEWALKSPEED 70
25
move BEACHBABERUNSPEED  140
26
move BEACHBABESHRUNKSPEED  40
27
move BEACHBABESTOP
28
 
29
action BEACHBABEWALK   0 3 5 1 20
30
action BEACHBABERUN    0 3 5 1 13
31
action BEACHBABEFROZE  0 1 5
32
 
33
ai AIBEACHBABEROAM BEACHBABEWALK BEACHBABEWALKSPEED randomangle geth getv
34
ai AIBEACHBABEWANTDUKE BEACHBABEWALK BEACHBABEWALKSPEED faceplayerslow geth getv
35
ai AIBEACHBABERUNAWAY BEACHBABERUN BEACHBABERUNSPEED randomangle geth getv
36
ai AIBEACHBABESHRUNK BEACHBABEWALK BEACHBABESHRUNKSPEED randomangle geth getv
37
ai AIBEACHBABEGROW BEACHBABEWALK BEACHBABESTOP faceplayerslow
38
ai AIBEACHBABEFROZEN BEACHBABEFROZE BEACHBABESTOP
39
ai AIBEACHBABEPOSE BEACHBABEFROZE BEACHBABESTOP
40
 
41
ai AIBEACHBABEFLEE BEACHBABEWALK BEACHBABEWALKSPEED fleeenemy geth getv
42
 
43
state BABEREMARK
44
   ifactioncount 1
45
     {
46
       ifrnd 254 nullop else
47
     {
48
       resetactioncount
49
       ifrnd 1 sound BABECOMM1
50
  else ifrnd 1 sound BABECOMM2
51
  else ifrnd 1 sound BABECOMM3
52
  else ifrnd 1 sound BABECOMM4
53
  else ifrnd 1 sound BABECOMM5
54
     }
55
     }
56
 
57
ends
58
 
59
state BABEHURTREMARK
60
ends
61
 
62
state BEACHBABEFLEESTATE
63
   state BABEREMARK
64
 
65
   ifcount 5
66
     {
67
       ifpdistl 2000
68
         {
69
           ai AIBEACHBABEFLEE
70
           resetcount
71
           break
72
         }
73
       ai AIBEACHBABEWANTDUKE
74
     }
75
ends
76
 
77
state BEACHBABEROAMSTATE
78
   ifrnd 16 ai AIBEACHBABEROAM
79
 
80
   ifcansee
81
     ifpdistl 10000
82
       ifrnd 32
83
         ai AIBEACHBABEWANTDUKE
84
ends
85
 
86
state BEACHBABEWANTDUKESTATE
87
ifpdistl 2000 ai AIBEACHBABEFLEE
88
 
89
ifpdistg 10000
90
  ifrnd 32
91
    {
92
      ai AIBEACHBABEROAM
93
      break
94
    }
95
 
96
state BABEREMARK
97
ends
98
 
99
 
100
state BEACHBABERUNAWAYSTATE
101
   ifactioncount 1
102
     {
103
       resetactioncount
104
 
105
       ifrnd 2 sound BABESCREAM1
106
  else ifrnd 2 sound BABESCREAM2
107
  else ifrnd 2 sound BABESCREAM3
108
  else ifrnd 2 sound BABESCREAM4
109
     }
110
 
111
   ifrnd 16 ai AIBEACHBABERUNAWAY
112
ends
113
 
114
state BEACHBABESTATE
115
   fall
116
   cstator 257
117
 
118
   state babechecksquished
119
 
120
   ifai 0
121
     {
122
       ifrnd 64 sound BABECOMM1
123
  else ifrnd 85 sound BABECOMM2
124
  else ifrnd 128 sound BABECOMM3
125
  else sound BABECOMM4
126
 
127
       ai AIBEACHBABEROAM
128
     }
129
 
73 h266 130
  ifvare vaca_pose 1
1 h266 131
    {
132
      ai AIBEACHBABEPOSE
133
      break
134
    }
135
 
136
  ifai AIBEACHBABEPOSE ai AIBEACHBABEROAM
137
 
138
   ifai AIBEACHBABESHRUNK
139
     {
140
       ifcount SHRUNKDONECOUNT
141
         {
142
           ai AIBEACHBABERUNAWAY
143
           cstat 257
144
         }
145
       else
146
         {
147
           ifcount SHRUNKCOUNT sizeto 40 40
148
           else state genericshrunkcode
149
         }
150
     }
151
  else ifai AIBEACHBABEGROW
152
        {
153
          ifcount 32
154
            {
155
              state stopbeachbabebathersounds
156
              respawnhitag
157
              guts JIBS4 20
158
              guts JIBS6 20
159
             // guts JIBS4 20
160
             // guts JIBS6 20
161
              spawn EXPLOSION2
162
              sound PIPEBOMB_EXPLODE
163
             // spritepal 6
164
              soundonce BABESCREAM4
165
             // debris SCRAP3 4
166
              sound SQUISHED
167
              killit
168
            } 
169
          else
170
            {
171
               sizeto MAXXSTRETCH MAXYSTRETCH
172
               break 
173
            }
174
        }
175
 
176
  ifai AIBEACHBABEFROZEN
177
    {
178
      ifhitweapon
179
        {
180
          ifwasweapon FREEZEBLAST
181
            {
182
              strength 0
183
              break
184
            }
185
          lotsofglass 30
186
          sound GLASS_BREAKING
187
          respawnhitag
188
          ifrnd 84 spawn BLOODPOOL
189
          killit
190
        }
25 h266 191
      else
192
        { 
193
          ifp pfacing
194
            ifpdistl FROZENQUICKKICKDIST
195
              pkick
196
        }
197
      ifcount THAWTIME
1 h266 198
        {
25 h266 199
          getlastpal
200
          ai AIBEACHBABERUNAWAY
201
        }
202
      else
203
          ifcount FROZENDRIPTIME
204
              ifactioncount 26
205
               {
206
                 spawn WATERDRIP
207
                 resetactioncount
208
               }
1 h266 209
    }
210
 
211
  ifhitweapon
212
    {
213
      sound SQUISHED
214
      ai AIBEACHBABERUNAWAY 
215
      ifdead
216
        {
217
          ifwasweapon GROWSPARK
218
            {
219
              cstat 0
220
              move 0
221
              sound ACTOR_GROWING
222
              ai AIBEACHBABEGROW
223
              break
224
           }
225
    else ifwasweapon FREEZEBLAST
226
           {
227
 	     ai AIBEACHBABEFROZEN
228
             move 0
229
             spritepal 1
230
             strength 0
231
             sound SOMETHINGFROZE
232
             break
233
           }
234
 
235
          state stopbeachbabebathersounds
236
          ifrnd 128 sound DUKE_HIT_STRIPPER1 else sound DUKE_HIT_STRIPPER2
237
 
238
          respawnhitag
239
         // state standard_bjibs
240
          state standard_bjibs
241
          state random_wall_jibs
242
          spawn BLOODPOOL
243
         // spritepal 6
244
          soundonce BABESCREAM4
245
          killit
246
        }
247
      else
248
        {
249
          ifwasweapon SHRINKSPARK
250
            {
251
              sound ACTOR_SHRINKING
252
              move 0
253
              ai AIBEACHBABESHRUNK
254
              cstat 0
255
              break
256
            }
257
         else
258
           {
259
             guts JIBS6 1
260
           }
261
 
262
    // else ifwasweapon GROWSPARK sound EXPANDERHIT
263
        }
264
    }
265
 
266
 
267
 
268
/*
269
   ifdead
270
     {
271
       state standard_bjibs
272
       sound SQUISHED
273
       killit
274
     }
275
*/
276
 
277
      ifai AIBEACHBABEROAM state BEACHBABEROAMSTATE
278
 else ifai AIBEACHBABEWANTDUKE state BEACHBABEWANTDUKESTATE 
279
 else ifai AIBEACHBABERUNAWAY state BEACHBABERUNAWAYSTATE
280
 else ifai AIBEACHBABEFLEE state BEACHBABEFLEESTATE
281
ends
282
 
283
useractor notenemy BEACHBABE1 BEACHBABESTRENGTH BEACHBABEWALK
284
  state BEACHBABESTATE
285
enda