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