Blame | Last modification | View Log | RSS feed
/*
--------------------------------------------------------------------------------
Duke Caribbean: Life's A Beach
By Joris Weimar
© 1997 Sunstorm Interactive
--------------------------------------------------------------------------------
Duke Caribbean: Life's A Beach Plus
By Hendricks266
--------------------------------------------------------------------------------
*/
definequote 3 ^8Crate of Bananas
definequote 4 Denied
definequote 6 ^8Sandles
definequote 8 Approved
definequote 12 ^23Used Hot Sauce
definequote 14 ^8Ammo for Conchanator
definequote 19 ^8Pearl Health! +50
definequote 37 ^8Hot Sauce
definequote 38 ^8Suntan Lotion
definequote 39 ^8Snorkle
definequote 43 Credit Card
definequote 54 ^7Triple Poison Shooter!
definequote 55 ^2Pineapple!
definequote 56 ^7Coconut Launcher!
definequote 57 ^7Super Soak'em!
definequote 58 ^2Voodoo Trip Bomb!
definequote 59 ^7Ice Crusher!
definequote 60 ^7Voodoo Ring!
definequote 61 ^8Single Banana: +10
definequote 62 ^8Bunch of Bananas: +30
definequote 63 ^2Ammo for Triple Poison Shooter!
definequote 64 ^2Ammo for Coconut Launcher!
definequote 65 ^2Ammo for Water Pistol!
definequote 66 ^2Ammo for Ice Crusher!
definequote 67 Sandles: Off
definequote 68 Sandles: On
definequote 69 ^2Ammo for Super Soak'em!
definequote 70 ^1Blue Credit Card Required
definequote 71 ^10Red Credit Card Required
definequote 72 ^7Yellow Credit Card Required
definequote 75 ^23Protective Sandles: On
definequote 76 ^23Snorkle: On
definequote 78 ^2Ammo for Voodoo Ring!
definequote 87 ^7Conchanator!
definequote 90 ^8Hot Sauce
definequote 101 ^8Sunglasses
definequote 102 This party is over, Nukem!
definequote 104 ^8Got Used Suntan Lotion
definequote 106 ^23Sunglasses: On
definequote 107 ^23Sunglasses: Off
definequote 121 Got All Credit Cards
definequote 123 ^2Ammo for Lava Voodoo Ring!
definequote 999 ^7Lava Voodoo Ring!
definequote 1118 ^7Squirt Gun!
definequote 1010 ^7Got Soak'em Real Good!
definequote 1011 ^2Got Soak'em Real Good Water Pack!
definequote 1014 Got Voodoo Ring/Gravity Gun!
definequote 1024 Akimbo Squirt Guns
definequote 1025 Cruizer Soak'em
definequote 1026 Soak'em Real Good - Replaces Poison Shooter
definequote 1027 Heavy Coconut Launcher
definequote 1028 Gravity Gun for Lava Voodoo Ring
definequote 1081 Mind Blast - Alt Voodoo Ring
definequote 1103 ^7Saturator!
definequote 1104 % of Pigs with Saturator
definequote 1124 A Credit Cart has been dropped!
definequote 1155 Better Pineapple Throws
definesound MOSSFIRE SQRT4.VOC 0 0 254 0 0
definesound MP5FIRE CHNSQRT.VOC 0 0 254 0 0
definesound DBFIRE SQRT4.VOC 0 0 254 0 0
definesound DPPISTOLFIRE SQUIRT1.VOC 0 0 254 0 0
definesound DPCHAINGUNFIRE CHNSQRT.VOC 0 0 254 0 0
actor FIRSTGUNSPRITE
ifvarvarn holding THISACTOR fall
state moveitem
ifvare pal 66 spritepal 66
ifspritepal 66
{
getplayer[THISACTOR].heat_on temp
ifvare temp 0 break
}
state gravpickupcode
ifmove RESPAWN_ACTOR_FLAG
state respawnit
else
ifp pshrunk nullop
else
ifp palive
ifpdistl RETRIEVEDISTANCE
ifcount 6
ifcanseetarget
{
ifvare player[THISACTOR].gotweapon 1 YES
ifvare useakimbo YES
ifvare akimbo -1
state changeakimbo
ifgotweaponce 0
break
ifspawnedby LIZTROOP addweapon PISTOL_WEAPON 12 else
addweapon PISTOL_WEAPON 48
getplayer[THISACTOR].i spriteid
getactorvar[spriteid].botclip botclip
addvar botclip 12
ifvarvarg botclip WEAPON1_CLIP setvarvar botclip WEAPON1_CLIP
setactorvar[spriteid].botclip botclip
setvar RETURN 1118 state itemquote
ifspawnedby FIRSTGUNSPRITE
state getweaponcode
else
state quikweaponget
}
enda
actor CRYSTALAMMO
ifvarvarn holding THISACTOR fall
state moveitem
ifvare pal 66 spritepal 66
ifspritepal 66
{
getplayer[THISACTOR].heat_on temp
ifvare temp 0 break
}
state gravpickupcode
ifmove RESPAWN_ACTOR_FLAG
state respawnit
else
ifp pshrunk nullop
else
ifp palive
ifpdistl RETRIEVEDISTANCE
ifcount 6
ifcanseetarget
{
getplayer[THISACTOR].gotweapon SHRINKER_WEAPON tempb
getplayer[THISACTOR].gotweapon GROW_WEAPON temp
addammo SHRINKER_WEAPON CRYSTALAMMOAMOUNT
ifvare tempb 0 ifvare temp 1 setplayer[THISACTOR].gotweapon SHRINKER_WEAPON 1
setvar RETURN 78 state itemquote
ifspawnedby CRYSTALAMMO
state getcode
else
state quikget
}
enda
actor GROWAMMO
ifvarvarn holding THISACTOR fall
state moveitem
ifvare pal 66 spritepal 66
ifspritepal 66
{
getplayer[THISACTOR].heat_on temp
ifvare temp 0 break
}
state gravpickupcode
ifmove RESPAWN_ACTOR_FLAG
state respawnit
else
ifp pshrunk nullop
else
ifp palive
ifpdistl RETRIEVEDISTANCE
ifcount 6
ifcanseetarget
{
getplayer[THISACTOR].gotweapon SHRINKER_WEAPON tempb
getplayer[THISACTOR].gotweapon GROW_WEAPON temp
addammo GROW_WEAPON GROWCRYSTALAMMOAMOUNT
ifvare temp 0 ifvare tempb 1 setplayer[THISACTOR].gotweapon GROW_WEAPON 1
setvar RETURN 123 state itemquote
ifspawnedby GROWAMMO
state getcode
else
state quikget
}
enda
actor SHRINKERSPRITE
ifvarvarn holding THISACTOR fall
state moveitem
ifvare pal 66 spritepal 66
ifspritepal 66
{
getplayer[THISACTOR].heat_on temp
ifvare temp 0 break
}
state gravpickupcode
ifmove RESPAWN_ACTOR_FLAG
state respawnit
else
ifp pshrunk nullop
else
ifp palive
ifpdistl RETRIEVEDISTANCE
ifcount 6
ifcanseetarget
{
ifgotweaponce 0
break
getplayer[THISACTOR].ammo_amount 6 temp
getplayer[THISACTOR].gotweapon 6 tempb
ifvare temp MAXSHRINKERAMMO ifvare tempb 1 break
getplayer[THISACTOR].gotweapon GROW_WEAPON temp
addweapon SHRINKER_WEAPON 10
ifvare temp 0 setplayer[THISACTOR].gotweapon GROW_WEAPON 0
ifvare gravgun YES
{
setvar RETURN 1014 state itemquote
//addammo GROW_WEAPON 10
// can't use addammo here because it will break on max ammo, then player gets infinite shrinker ammo
getplayer[THISACTOR].ammo_amount 11 temp
addvar temp 10
ifvarg temp MAXGROWAMMO setvar temp MAXGROWAMMO
setplayer[THISACTOR].ammo_amount 11 temp
}
else
{
setvar RETURN 60 state itemquote
}
ifspawnedby SHRINKERSPRITE
state getweaponcode
else
state quikweaponget
}
enda
actor GROWSPRITEICON
sizeat 40 40
ifvarvarn holding THISACTOR fall
state moveitem
ifvare pal 66 spritepal 66
ifspritepal 66
{
getplayer[THISACTOR].heat_on temp
ifvare temp 0 break
}
state gravpickupcode
ifmove RESPAWN_ACTOR_FLAG
state respawnit
else
ifp pshrunk nullop
else
ifp palive
ifpdistl RETRIEVEDISTANCE
ifcount 6
ifcanseetarget
{
//ifgotweaponce 0
// break
getplayer[THISACTOR].gotweapon SHRINKER_WEAPON tempc
getplayer[THISACTOR].ammo_amount 11 temp
getplayer[THISACTOR].gotweapon 11 tempb
addweapon GROW_WEAPON GROWCRYSTALAMMOAMOUNT
ifvare tempc 0 setplayer[THISACTOR].gotweapon SHRINKER_WEAPON 0
ifvare temp MAXGROWAMMO ifvare tempb 1 break
setplayer[THISACTOR].gotweapon 6 1
ifvare gravgun YES setvar RETURN 1014 else
setvar RETURN 60
state itemquote
ifspawnedby GROWSPRITEICON
state getweaponcode
else
state quikweaponget
}
enda