Subversion Repositories vaca_plus

Rev

Go to most recent revision | Blame | Compare with Previous | 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
--------------------------------------------------------------------------------
// CON Files for the 'Duke Carribean Add-on' by SunStorm Interactive
//
// Actor - BEACHBATHER - Sprite #1683
//
// --- Resources ---
//
// Sounds:
// Beach Bather Comments   - BATHCOM1.WAV/BATHCOM2.WAV
// Beach Bather Hurt Sound - BATHHURT.WAV
//
// Art:
// 1 * 1 frame(s)          - Normal Beach Bather
// 1 * 1 frame(s)          - Activated Beach Bather
*/

move   BEACHBATHERSPEED

action BEACHBATHER       0
action BEACHBATHERACTION 2 7 1 1 10

ai AIBEACHBATHERIDLE BEACHBATHER BEACHBATHERSPEED
ai AIBEACHBATHERSHRUNK BEACHBATHER BEACHBATHERSPEED
ai AIBEACHBATHERGROW BEACHBATHER BEACHBATHERSPEED
ai AIBEACHBATHERFROZEN BEACHBATHER BEACHBATHERSPEED

state stopbeachbabebathersounds
  stopsound BABECOMM1
  stopsound BABECOMM2
  stopsound BABECOMM3
  stopsound BABECOMM4
  stopsound BABECOMM5
  stopsound BATHCOMM1
  stopsound BATHCOMM2
  stopsound BATHCOMM3
  stopsound BATHCOMM4
  stopsound BABESCREAM1
  stopsound BABESCREAM2
  stopsound BABESCREAM3
  stopsound BABESCREAM4
ends

state BEACHBATHERIDLESTATE
ends

state BEACHBATHERSTATE
  fall
  cstator 257

 // state babechecksquished

  ifaction BEACHBATHERACTION
    {
     ifactioncount 14
       {
         ifhitspace resetactioncount
         else action BEACHBATHER
       }
    }
  else
    {
      ifp pfacing
        ifpdistl 1400
          ifhitspace
            {
              ifrnd 64 sound BATHCOMM1
         else ifrnd 85 sound BATHCOMM2
         else ifrnd 128 sound BATHCOMM3
         else sound BATHCOMM4
              action BEACHBATHERACTION
            }
    }
  

  ifai 0
    {
      ai AIBEACHBATHERIDLE
      sizeat 42 40
    }

  ifai AIBEACHBATHERSHRUNK
    {
      ifcount SHRUNKDONECOUNT
        {
          ai AIBEACHBATHERIDLE
          cstat 257
        }
      else
        {
          ifcount SHRUNKCOUNT
          sizeto 42 40
          else
          state genericshrunkcode
        }
     }
  else ifai AIBEACHBATHERGROW
        {
          ifcount 32
            {
              state stopbeachbabebathersounds
              respawnhitag
              guts JIBS4 20
              guts JIBS6 20
              spawn EXPLOSION2
              sound PIPEBOMB_EXPLODE
              soundonce BABESCREAM4
              sound SQUISHED
              killit
            } 
          else
            {
               sizeto MAXXSTRETCH MAXYSTRETCH
               break 
            }
        }


  ifai AIBEACHBATHERFROZEN
    {
      ifhitweapon
        {
          ifwasweapon FREEZEBLAST
            {
              strength 0
              break
            }
          lotsofglass 30
          sound GLASS_BREAKING
          respawnhitag
          ifrnd 84
            spawn BLOODPOOL
          killit
        }
      else
        {
          ifp pfacing
            ifpdistl FROZENQUICKKICKDIST
              {
                pkick
                break
              }  
        }
      ifcount THAWTIME
        {
          getlastpal
          ai AIBEACHBATHERIDLE
        }
      else
        {
          ifcount FROZENDRIPTIME
            {
              ifactioncount 26
                {
                  spawn WATERDRIP
                  resetactioncount
                }
            }
        }
    }


  ifhitweapon
    {
      ai AIBEACHBATHERIDLE
      ifdead
        {
          ifwasweapon GROWSPARK
            {
              cstat 0
              move 0
              sound ACTOR_GROWING
              ai AIBEACHBATHERGROW
              break
           }
    else ifwasweapon FREEZEBLAST
            {
              ai AIBEACHBATHERFROZEN
              move 0
              spritepal 1
              strength 0
              sound SOMETHINGFROZE
              break
            }

      state stopbeachbabebathersounds
      ifrnd 128 sound DUKE_HIT_STRIPPER1 else sound DUKE_HIT_STRIPPER2

      respawnhitag
      state standard_bjibs
     // state standard_bjibs
      state random_wall_jibs
      spawn BLOODPOOL
     // spritepal 6
      soundonce BABESCREAM4
      killit
        }
      else
        {
          ifwasweapon SHRINKSPARK
            {
              sound ACTOR_SHRINKING
              move 0
              ai AIBEACHBATHERSHRUNK
              cstat 0
              break
            }
 
          sound SQUISHED
          guts JIBS6 1
        }
    }

/*
  ifdead
    {
      state standard_bjibs
      sound SQUISHED
      killit
    }
*/

  ifai AIBEACHBATHERIDLE state BEACHBATHERIDLESTATE
ends

useractor notenemy BEACHBATHER1 BEACHBATHERSTRENGTH BEACHBATHER
  state BEACHBATHERSTATE
enda