This script is triggered on the text "!newvamp", it will select a random number between 2 and 8 and pounce on a random person, and depending on the random number, do something different.

It is a twilight themed script, I wrote it because I was bored ^^.

Also, the alias version is included.

ON *:TEXT:!newvamp:#: {
  set %blood $rand(2,8)
  set %victim $nick($chan,$r(1,$nick($chan,0)))
  if ( %blood = 2 ) {
    inc %vamped 
    describe $chan pounces on %victim and bites into them, draining 2 pints of blood, and filling them with his venom. (New additions to the Cullen family: %vamped ) 
    { halt }  
  }
  if ( %blood = 3 ) {
    inc %almostcullen 
    describe $chan pounces on %victim and bites into them, draining 3 pints of blood, and filling them with his venom, but they die from the pain. (Almost Cullens: %almostcullen $+ )
    { halt }
  }
  if ( %blood = 4 ) {
    inc %oopskilled  
    describe $chan pounces on %victim and bites into them, draining 4 pints of blood, but just a little too fast. (Heavy bleeders: %oopskilled $+ ) 
    { halt }
  }
  if ( %blood = 5 ) {
    inc %newborns 
    describe $chan pounces on %victim and bites into them, draining 5 pints of blood, turning them into raging a raging newborn that must be put down. (Sad newborn deaths: %newborns $+ ) 
    { halt }
  }
  if ( %blood = 6 ) {
    inc %wimps 
    describe $chan pounces on %victim and bites into them, draining 6 pints of blood, but they don't even survive the initial bite. (Wimps killed: %wimps $+ ) 
    { halt }
  }
  if ( %blood = 7 ) {
    inc %riped )
    describe $chan pounces on %victim and bites into them, draining 7 pints of blood and also loses control, and rips them apart. (Poor bastards ripped apart: %riped $+ ) 
    { halt }
  }
  if ( %blood = 8 ) {
    inc %bledout  
    describe $chan pounces on %victim and bites into them, draining 8 pints of blood completely draining them. Oops! (People I've "lost control" on: %bledout $+ )
    { halt }
  }
  unset %blood
  unset %victim
}

alias newvamp {
  set %blood $rand(2,8)
  set %victim $nick($chan,$r(1,$nick($chan,0)))
  if ( %victim == $me ) { halt }
  else {
    if ( %blood = 2 ) {
      inc %vamped 
      describe $chan pounces on %victim and bites into them, draining 2 pints of blood, and filling them with his venom. (New additions to the Cullen family: %vamped ) 
      { halt }  
    }
    if ( %blood = 3 ) {
      inc %almostcullen 
      describe $chan pounces on %victim and bites into them, draining 3 pints of blood, and filling them with his venom, but they die from the pain. (Almost Cullens: %almostcullen $+ )
      { halt }
    }
    if ( %blood = 4 ) {
      inc %oopskilled  
      describe $chan pounces on %victim and bites into them, draining 4 pints of blood, but just a little too fast. (Heavy bleeders: %oopskilled $+ ) 
      { halt }
    }

    if ( %blood = 5 ) {
      inc %newborns 
      describe $chan pounces on %victim and bites into them, draining 5 pints of blood, turning them into raging newborn that must be put down. ( Sad newborn deaths: %newborns $+ ) 
      { halt }
    }
    if ( %blood = 6 ) {
      inc %wimps 
      describe $chan pounces on %victim and bites into them, draining 6 pints of blood, but they don't even survive the initial bite. (total wimps killed: %wimps $+ ) 
      { halt }
    }
    if ( %blood = 7 ) {
      inc %riped )
      describe $chan pounces on %victim and bites into them, draining 7 pints of blood and also loses control, and rips them apart. (Poor bastards ripped apart: %riped $+ ) 
      { halt }
    }
    if ( %blood = 8 ) {
      inc %bledout  
      describe $chan pounces on %victim and bites into them, draining 8 pints of blood completely draining them. oops! (People I've "lost control" on: %bledout $+ )
      { halt }
    }
    unset %victim
    unset %blood
  }
}