User blog comment:EternalBlaze/Random Blog/@comment-789991-20100818215428

spawn STEAM } enda

action CEILINGSTEAMFRAME  0   4   -1   1           // Negative rotations mean actor CEILINGSTEAM WEAKEST CEILINGSTEAMFRAME       // rotated sprites. ifactioncount 10       // Turn it on    { ifrnd 32 cstat 0 else cstat 2 } enda

actor WATERBUBBLEMAKER

ifpdistl 2048 ifrnd 64 spawn WATERBUBBLE enda

action BUBBLE action CRACKEDBUBBLE   1 move BUBMOVE           8  -32 actor WATERBUBBLE 0 BUBBLE BUBMOVE getv

ifaction CRACKEDBUBBLE {       ifactioncount 10 killit }

else ifactioncount 30 action CRACKEDBUBBLE enda

action BOUNCEFRAMES 0 5 1 1 1

actor BOUNCEMINE WEAK BOUNCEFRAMES fall ifhitweapon ifdead nuke killit enda

action LASERFRAME 0 1 1 1 actor LASERSITE 0 LASERFRAME killit enda

action DRUNKSTANDFRAME 0 1 1 1 1 action DRUNKDRINKFRAME 1 1 1 1 1 actor DRUNKGUY1 WEAK DRUNKDRINKFRAME ifaction DRUNKDRINKFRAME {       ifactioncount 8 ifrnd 32 action DRUNKSTANDFRAME }   ifaction DRUNKSTANDFRAME ifactioncount 6 ifrnd 32 action DRUNKDRINKFRAME enda

move SMOKEVEL 8 -64 action SMOKEFRAMES 0 4 1 1 3 actor SMALLSMOKE 0 SMOKEFRAMES SMOKEVEL geth getv face_player ifpdistg 4096 killit // If you can't see it, don't use it   ifactioncount 4 killit enda

// Face Player

move STICKVEL 32 -128 action SFRAMES 0 2 1 1 0 actor STICKSPARK 0 SFRAMES STICKVEL on_owner face_player geth getv ifactioncount 2 cstat 2 ifactioncount 12 killit enda

move EXPLOSION_VEL 48 move SQUIRT_VEL 128 4 action EXPLOSION_FRAMES 0 10 1 1 1 actor EXPLOSION 0 EXPLOSION_FRAMES ifmove 0 {       sound expl1.voc

ifspawnedby SEENINE move SQUIRT_VEL getv geth else {           ifsquished move SQUIRT_VEL getv geth else move EXPLOSION_VEL geth }   }

ifactioncount 10 killit ifsquished move SQUIRT_VEL getv geth enda

move EXPLOSION2_VEL -16 32 actor EXPLOSION2 0 EXPLOSION_FRAMES EXPLOSION2_VEL getv geth ifactioncount 10 killit ifsquished move SQUIRT_VEL geth getv enda

// Inventory stuff

define GET_STEROIDS 0 define GET_SHIELD  1 define GET_SCUBA   2 define GET_HOLODUKE 3 define GET_JETPACK 4

state getcode addscore 100 sound getweapn.voc killit ends

actor STEROIDS fall ifpdistl 768 {       addinventory GET_STEROIDS state getcode } enda

actor SHIELD fall ifpdistl 768 {       addinventory GET_SHIELD state getcode } enda

actor AIRTANK fall ifpdistl 768 {       addinventory GET_SCUBA state getcode } enda

actor HOLODUKE fall ifpdistl 768 {       addinventory GET_HOLODUKE state getcode } enda

actor JETPACK fall ifpdistl 768 {       addinventory GET_JETPACK state getcode } enda

actor AMMO fall ifpdistl 768 {       addammo 48   // 4 clips total, 12 rounds each state getcode } enda

action BATAMMOOTHERFRAMES 10   2   1   1   10 action BATAMMOFRAME 0 1 1 1 10 actor BATTERYAMMO 0 BATAMMOFRAME fall

ifaction BATAMMOFRAME action BATAMMOOTHERFRAMES else ifactioncount 3 action BATAMMOFRAME

ifpdistl 768 {       addbatteryammo 20   // 20 amps per item state getcode } enda

actor RPGAMMO fall ifpdistl 768 {       addrammo 5 state getcode } enda

actor RPGSPRITE fall ifpdistl 768 {       addweapon RPG state getcode } enda