Bong Rotation

;=====================================================================================
;Bong rotation script.

on *:TEXT:*:#:{
  %n  = $nick(#,$r(1,$nick(#,0)))
  if $1 == !bhelp {
    msg # (Listing help): cmds for da mother fucking bong yo! in 3seconds..
    timer1 1 5 msg # (Commands are): !countdown , !pass , !skip , !lighter , !hit , !blunt
  }
  if $1 == !countdown { msg # grabs the bong... | .timergb1 1 3 msg # stuffs some ganja in it... | .timerbl2 1 5 msg # grabs a tourch... | .timerbl3 msg # stuffs some more ganja in the bowl... | .timerbl4 msg # passes it to $nick(#,%n) }
  if $1 == !lighter { msg # $nick takes a lighter to the bong | .timerl 1 3 msg # $nick take a big fuckin hit | .timerl2 1 7 msg # $nick starts to choke.. }
  if $1 == !hit { msg # $nick takes the lighter to the bowl.. | .timerh 1 3 msg # $nick flicks the lighter... | .timerh 1 6 msg # takes a deep hit! | .timerh 1 10 msg # $nick trys to hold it in as they start to choke! }
  if $1 == !toke {
    %b = $r(1,3)
    if (%b == 1) { msg # $nick tokes it up! }
    if (%b == 2) { msg # $nick gets fucked up }
    if (%b == 3) { msg # $nick $+ , Damn boi! }
  }
  if $1 == !skip { msg # $nick deson't want a hit right now so $nick passes the joint to $rpn }
  if $1 == !pass {
    if ($2) { if $2 !ison # { msg # $nick $+ , $2 is not in # $+ , try someone else like $rpn || if $2 == $me { rpn } | halt }
      describe # $nick passed the bong to $2 $+ , $2 $+ , hit that mother fucker!
      halt
    }
    msg # $nick passes the BONG to $rpn
  }
  if $1 == !blunt {
    %x = $r(1,7)
    if (%x == 1) { describe # giving $nick a blunt! ____*~ }
    if (%x == 2) { describe # rolls a georgia peach white owl for $nick $+ .. }
    if (%x == 3) { describe # packs a cigarillo full of kush for $nick $+ .. }
    if (%x == 4) { describe # finds a black n mild.  with nothing else to roll with fills it with week n coke }
    if (%x == 5) { describe # breaks down a Garcia Vega for $nick to put his schwag in. }
    if (%x == 6) { describe # runs out the back door with $nick bag of weed }
    if (%x == 7) { describe # rolls a Swisher Sweet but doesn't pass it untill hes high and the blunt is half gone }
  }
}

alias -l rpn {
  %x = $me
  while (%x == $me) {
    %x = $nick(#,$r(1,$nick(#,0)))
  }
  return %x
}