Subversion Repositories vaca_plus

Rev

Go to most recent revision | Details | 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
*/
11
 
12
definequote  3        ^8Crate of Bananas
13
definequote  4        Denied
14
definequote  6        ^8Sandles
15
definequote  8        Approved
16
definequote 12        ^23Used Hot Sauce
17
definequote 14        ^8Ammo for Conchanator
18
definequote 19        ^8Pearl Health! +50
19
definequote 37        ^8Hot Sauce
20
definequote 38        ^8Suntan Lotion
21
definequote 39        ^8Snorkle
22
definequote 43        Credit Card
23
definequote 54        ^7Triple Poison Shooter!
24
definequote 55        ^2Pineapple!
25
definequote 56        ^7Coconut Launcher!
26
definequote 57        ^7Super Soak'em!
27
definequote 58        ^2Voodoo Trip Bomb!
28
definequote 59        ^7Ice Crusher!
29
definequote 60        ^7Voodoo Ring!
30
definequote 61        ^8Single Banana: +10
31
definequote 62        ^8Bunch of Bananas: +30
32
definequote 63        ^2Ammo for Triple Poison Shooter!
33
definequote 64        ^2Ammo for Coconut Launcher!
34
definequote 65        ^2Ammo for Water Pistol!
35
definequote 66        ^2Ammo for Ice Crusher!
36
definequote 67        Sandles: Off
37
definequote 68        Sandles: On
38
definequote 69        ^2Ammo for Super Soak'em!
39
definequote 70        ^1Blue Credit Card Required
40
definequote 71        ^10Red Credit Card Required
41
definequote 72        ^7Yellow Credit Card Required
42
definequote 75        ^23Protective Sandles: On
43
definequote 76        ^23Snorkle: On
44
definequote 78        ^2Ammo for Voodoo Ring!
45
definequote 87        ^7Conchanator!
46
definequote 90        ^8Hot Sauce
47
definequote 101       ^8Sunglasses
48
definequote 102       This party is over, Nukem!
49
definequote 104       ^8Got Used Suntan Lotion
50
definequote 106       ^23Sunglasses: On
51
definequote 107       ^23Sunglasses: Off
52
definequote 121       Got All Credit Cards
53
definequote 123       ^2Ammo for Lava Voodoo Ring!
54
 
55
definequote 999       ^7Lava Voodoo Ring!
56
definequote 1118      ^7Squirt Gun!
57
 
58
definequote 1010       ^7Got Soak'em Real Good!
59
definequote 1011       ^2Got Soak'em Real Good Water Pack!
60
definequote 1014	   Got Voodoo Ring/Gravity Gun!
61
definequote 1024	Akimbo Squirt Guns
62
definequote 1025	Cruizer Soak'em
63
definequote 1026	Soak'em Real Good - Replaces Poison Shooter
64
definequote 1027	Heavy Coconut Launcher
65
definequote 1028	Gravity Gun for Lava Voodoo Ring
66
definequote 1081    Mind Blast - Alt Voodoo Ring
67
definequote 1103    ^7Saturator!
68
definequote 1104    % of Pigs with Saturator
69
definequote 1124    A Credit Cart has been dropped!
70
definequote 1155    Better Pineapple Throws
71
 
72
definesound MOSSFIRE             SQRT4.VOC 0 0 254 0 0
73
definesound MP5FIRE              CHNSQRT.VOC 0 0 254 0 0
74
definesound DBFIRE               SQRT4.VOC 0 0 254 0 0
75
definesound DPPISTOLFIRE         SQUIRT1.VOC 0 0 254 0 0
76
definesound DPCHAINGUNFIRE       CHNSQRT.VOC 0 0 254 0 0
77
 
78
actor FIRSTGUNSPRITE
79
  ifvarvarn holding THISACTOR fall
80
  state moveitem
81
  ifvare pal 66 spritepal 66
82
  ifspritepal 66
83
  {
84
	  getplayer[THISACTOR].heat_on temp
85
	  ifvare temp 0 break
86
  }
87
    state gravpickupcode
88
 
89
  ifmove RESPAWN_ACTOR_FLAG
90
    state respawnit
91
  else
92
    ifp pshrunk nullop
93
    else
94
      ifp palive
95
        ifpdistl RETRIEVEDISTANCE
96
          ifcount 6
97
            ifcanseetarget
98
      {
99
	      ifvare player[THISACTOR].gotweapon 1 YES
100
		  ifvare useakimbo YES
101
	      ifvare akimbo -1
102
	      state changeakimbo
103
 
104
        ifgotweaponce 0
105
          break
106
        ifspawnedby LIZTROOP addweapon PISTOL_WEAPON 12 else
107
        addweapon PISTOL_WEAPON 48
108
        getplayer[THISACTOR].i spriteid
109
		getactorvar[spriteid].botclip botclip
110
		addvar botclip 12
111
		ifvarvarg botclip WEAPON1_CLIP setvarvar botclip WEAPON1_CLIP
112
		setactorvar[spriteid].botclip botclip
113
        setvar RETURN 1118 state itemquote
114
        ifspawnedby FIRSTGUNSPRITE
115
          state getweaponcode
116
        else
117
          state quikweaponget
118
      }
119
 
120
enda
121
 
122
actor CRYSTALAMMO
123
  ifvarvarn holding THISACTOR fall
124
  state moveitem
125
  ifvare pal 66 spritepal 66
126
  ifspritepal 66
127
  {
128
	  getplayer[THISACTOR].heat_on temp
129
	  ifvare temp 0 break
130
  }
131
  state gravpickupcode
132
  ifmove RESPAWN_ACTOR_FLAG
133
    state respawnit
134
  else
135
    ifp pshrunk nullop
136
    else
137
      ifp palive
138
        ifpdistl RETRIEVEDISTANCE
139
          ifcount 6
140
            ifcanseetarget
141
      {
142
        getplayer[THISACTOR].gotweapon SHRINKER_WEAPON tempb
143
        getplayer[THISACTOR].gotweapon GROW_WEAPON temp
144
        addammo SHRINKER_WEAPON CRYSTALAMMOAMOUNT
145
        ifvare tempb 0 ifvare temp 1 setplayer[THISACTOR].gotweapon SHRINKER_WEAPON 1
146
 
147
        setvar RETURN 78 state itemquote
148
        ifspawnedby CRYSTALAMMO
149
          state getcode
150
        else
151
          state quikget
152
      }
153
 
154
enda
155
 
156
actor GROWAMMO
157
  ifvarvarn holding THISACTOR fall
158
  state moveitem
159
  ifvare pal 66 spritepal 66
160
  ifspritepal 66
161
  {
162
	  getplayer[THISACTOR].heat_on temp
163
	  ifvare temp 0 break
164
  }
165
  state gravpickupcode
166
  ifmove RESPAWN_ACTOR_FLAG
167
    state respawnit
168
  else
169
    ifp pshrunk nullop
170
    else
171
      ifp palive
172
        ifpdistl RETRIEVEDISTANCE
173
          ifcount 6
174
            ifcanseetarget
175
      {
176
        getplayer[THISACTOR].gotweapon SHRINKER_WEAPON tempb
177
        getplayer[THISACTOR].gotweapon GROW_WEAPON temp
178
        addammo GROW_WEAPON GROWCRYSTALAMMOAMOUNT
179
        ifvare temp 0 ifvare tempb 1 setplayer[THISACTOR].gotweapon GROW_WEAPON 1
180
 
181
        setvar RETURN 123 state itemquote
182
        ifspawnedby GROWAMMO
183
          state getcode
184
        else
185
          state quikget
186
      }
187
 
188
enda
189
 
190
actor SHRINKERSPRITE
191
  ifvarvarn holding THISACTOR fall
192
  state moveitem
193
  ifvare pal 66 spritepal 66
194
  ifspritepal 66
195
  {
196
	  getplayer[THISACTOR].heat_on temp
197
	  ifvare temp 0 break
198
  }
199
    state gravpickupcode
200
 
201
  ifmove RESPAWN_ACTOR_FLAG
202
    state respawnit
203
  else
204
    ifp pshrunk nullop
205
    else
206
      ifp palive
207
        ifpdistl RETRIEVEDISTANCE
208
          ifcount 6
209
            ifcanseetarget
210
      {
211
        ifgotweaponce 0
212
          break
213
        getplayer[THISACTOR].ammo_amount 6 temp
214
        getplayer[THISACTOR].gotweapon 6 tempb
215
        ifvare temp MAXSHRINKERAMMO ifvare tempb 1 break
216
        getplayer[THISACTOR].gotweapon GROW_WEAPON temp
217
        addweapon SHRINKER_WEAPON 10
218
        ifvare temp 0 setplayer[THISACTOR].gotweapon GROW_WEAPON 0
219
 
220
        ifvare gravgun YES 
221
        { 
222
	        setvar RETURN 1014 state itemquote
223
	        //addammo GROW_WEAPON 10 
224
	        // can't use addammo here because it will break on max ammo, then player gets infinite shrinker ammo
225
	        getplayer[THISACTOR].ammo_amount 11 temp
226
	        addvar temp 10
227
	        ifvarg temp MAXGROWAMMO setvar temp MAXGROWAMMO
228
	        setplayer[THISACTOR].ammo_amount 11 temp
229
	    }
230
	    else
231
	    {
232
        setvar RETURN 60 state itemquote
233
    	}
234
        ifspawnedby SHRINKERSPRITE
235
          state getweaponcode
236
        else
237
          state quikweaponget
238
      }
239
 
240
enda
241
 
242
actor GROWSPRITEICON
243
	sizeat 40 40
244
  ifvarvarn holding THISACTOR fall
245
  state moveitem
246
  ifvare pal 66 spritepal 66
247
  ifspritepal 66
248
  {
249
	  getplayer[THISACTOR].heat_on temp
250
	  ifvare temp 0 break
251
  }
252
    state gravpickupcode
253
 
254
  ifmove RESPAWN_ACTOR_FLAG
255
    state respawnit
256
  else
257
    ifp pshrunk nullop
258
    else
259
      ifp palive
260
        ifpdistl RETRIEVEDISTANCE
261
          ifcount 6
262
            ifcanseetarget
263
      {
264
        //ifgotweaponce 0
265
        //  break
266
        getplayer[THISACTOR].gotweapon SHRINKER_WEAPON tempc
267
 
268
        getplayer[THISACTOR].ammo_amount 11 temp
269
        getplayer[THISACTOR].gotweapon 11 tempb
270
 
271
        addweapon GROW_WEAPON GROWCRYSTALAMMOAMOUNT
272
        ifvare tempc 0 setplayer[THISACTOR].gotweapon SHRINKER_WEAPON 0
273
 
274
        ifvare temp MAXGROWAMMO ifvare tempb 1 break
275
        setplayer[THISACTOR].gotweapon 6 1
276
 
277
        ifvare gravgun YES setvar RETURN 1014 else
278
        setvar RETURN 60
279
        state itemquote
280
        ifspawnedby GROWSPRITEICON
281
          state getweaponcode
282
        else
283
          state quikweaponget
284
      }
285
 
286
enda