Here is a Snakebottle
It was a script that i wanted to have for fun.
You can add W/e You want.
This does have some rude comments/phrases so only use in a room where it is allowed.

on *:text:!Snake:#:{
  var %nick = $nick(#,$r(1,$nick(#,0)))
  describe $chan Shakes the snake...
  timer 1 3 msg $chan The rattle is slowing down...
  timer 1 5 msg $chan The rattle stopped...
  timer 1 7 msg $chan It landed on...
  timer 1 9 msg $chan %nick $+ !
  timer 1 11 msg $chan $nick must $gettok( Drink pee with|Bite|Infect|Hail Python with|Kill|Pimp Slap|Eat Human Flesh With|Slither around with|Roll around in the mud with| Eat Watermelon with|Eat cow balls With|Inject venom in,$r(1,6),124) %nick $+ !
}