Something I Made Real Quick Nothin Real Hard Please Tho Tell Me What Ya Think

on *:JOIN:#: {
  inc %Visitor
  describe $chan 2[Y]15ou $nick Are The 2[ %Visitor Visitor ]15 To Join $chan $+ . Please State Asl If You Do Not Know What That Means Type !asl. And For A Few EnterTainment Type !Fun.
}
on *:TEXT:*!Fun*:#:{
  timer 1 3 Notice $nick !Murder <nick>... Kills Someone One Of 5 Different Ways.
  timer 1 5 Notice $nick !Stab <nick> <BodyPart> <HowManyTimes>... Stabs Someone One Of 5 Different Ways.
  timer 1 7 Notice $nick !B-DayLate <nick> <item> <Why>... Hands Someone Something And Tells Them HAPPY BIRTHDAY.
  timer 1 9 Notice $nick !B-DayEarly <nick> <item> <Why>... Hands Someone Something And Tells Them HAPPY BIRTHDAY.
  timer 1 11 Notice $nick !B-Day <nick> <item> <Why>... Hands Someone Something And Tells Them HAPPY BIRTHDAY.
  timer 1 13 Notice $nick !steal <nick> <item> ... Steals Something From Someone.
  timer 1 15 Notice $nick !Sale <item> <Amount>... Auctions Off An Item
  timer 1 17 Notice $nick !bid <item> <Amount>... Byes Something From An Auction
}
on *:TEXT:*!murder*:#:{
  if ($2 == $null) {
    msg $chan 2[P]15lease Give Me A Target2 !murder <nick> 
    halt]
  }
  else {
    inc %MurderCount
    /set %Murder $rand(1,5)
    if (%Murder == 1) msg $chan 2 $nick 2[R]15uns Up To2 $2- 15[A]nd Sluaghters Them With A Butchers Knife.2[ %MurderCount People Murdered ]
    if (%Murder == 2) msg $chan 2 $nick 2[J]15umps Into The Air Towards $2- And Shoots Three Rounds Threw $2- $+ 's Head.2[ %MurderCount Dead ]
    if (%Murder == 3) msg $chan 2 $nick 2[T]15hrows A  Knife Stright Threw2 $2- $+ 's 15Neck.2[ %MurderCount Dead ]
    if (%Murder == 4) msg $chan 2 $nick 2[C]15hunks A Bomb At2 $2- 15And Waits For It To Blow Up 2B15O2O15M.2[ %MurderCount Dead ]
    if (%Murder == 5) msg $chan 2 $nick 2[G]15rabs A Sword And Cuts2 $2- 15In 2 .2[ %MurderCount Dead ]
  }
}
on *:TEXT:*!stab*:#:{ 
  if ($2 == $null) {
    msg $chan 2[P]15lease Give Me A Target 2 !stab <nick> 
    halt
  }
  else {
    if ($3 == $null) {
      msg $chan 2[P]15lease Give Me A Body Part2 !stab <nick> <BodyPart>
      halt
    }
    else {
      if ($4 == $null) {
        msg $chan 2[P]15lease Specify The Amount Of Stabs 2!stab <nick> <bodypart> <Amount>
        halt
      }
      else {
        inc %StabCount
        /set %stab $rand(1,5)
        if (%stab == 1) msg $chan 2 $nick [G]15rabs A Knife And Stabs 2 $2 15 In The $3 $4 Times2[ %stabCount People Stabbed ]
        if (%stab == 2) msg $chan 2 $nick [G]15rabs A Knife And Swiftly Pokes2 $2 Really Hard In The $3 $4 Times 2[ %stabCount People Stabbed ]
        if (%stab == 3) msg $chan 2 $nick [S]15neaks Behind 2 $2 And Stabs Them $4 Times In The $3 2[ %stabCount People Stabbed ]
        if (%stab == 4) msg $chan 2 $nick [T]15hrows A Knife At 2 $2 $+ 's 15 $3 $4 Times 2[ %stabCount People Stabbed ]
        if (%stab == 5) msg $chan 2 $nick [S]15tabs2 $2 15In The $3 $4 Times 2[ %stabCount People Stabbed ]
      }
    }
  }
}
on *:TEXT:*!B-DayLate*:#:{ 
  if ($2 == $null) {
    msg $chan 2[P]15lease Give Me A Target 2 !B-DayLate <nick> 
    halt
  }
  else {
    if ($3 == $null) {
      msg $chan 2[P]15lease Give Me A Birthday Gift2 !B-DayLate <nick> <Gift>
      halt
    }
    else {
      if ($4 == $null) {
        msg $chan 2[P]15lease Specify The Why You Are Saying Happy Birthday2!B-DayLate <nick> <Gift> <Why>
        halt 
      }
      else {
        inc %LateBirthdaysCount
        /set %B-DayLate $rand(1,2)
        if (%B-DayLate == 1) msg $chan 2 $nick [H]15ands2 $2 15A2 $3 2[H]15appy 2[L]15ate 2[B]15irthday.[ %LateBirthdaysCount Late B-Days ]2 $4-
        if (%B-DayLate == 2) msg $chan 2 $nick [G]ives 2 $2 15A2 $3 9[H]4APPY 9[L]4ATE 9[B]4IRTHDAY.9[ %LateBirthDaysCount Late B-Days ]2 $4-
      }
    }
  }
}
on *:TEXT:*!B-DayEarly*:#:{ 
  if ($2 == $null) {
    msg $chan 2[P]15lease Give Me A Target 2 !B-DayEarly <nick> 
    halt
  }
  else {
    if ($3 == $null) {
      msg $chan 2[P]15lease Give Me A Birthday Gift2 !B-DayEarly <nick> <Gift>
      halt
    }
    else {
      if ($4 == $null) {
        msg $chan [P]15lease Specify The Why You Are Saying Happy Birthday2!B-DayEarly <nick> <Gift> <Why>
        halt
      }
      else {
        inc %EarlyBirthdaysCount
        /set %B-DayEarly $rand(1,2)
        if (%B-DayEarly == 1) msg $chan 2 $nick [H]15ands2 $2 15A2 $3 2[H]15appy 2[E]15arly 2[B]15irthday.[ %EarlyBirthdaysCount Early B-Days ]2 $4- 
        if (%B-DayEarly == 2) msg $chan 2 $nick [G]ives 2 $2 15A2 $3 9[H]4APPY 9[E]4ARLY 9[B]4IRTHDAY.9[ %EarlyBirthdaysCount Early B-Days ]2 $4- 
      }
    }
  }
}
on *:TEXT:*!B-Day*:#:{ 
  if ($2 == $null) {
    msg $chan 2[P]15lease Give Me A Target 2 !B-Day <nick> 
    halt
  }
  else (
  if ($3 == $null) {
    msg $chan 2[P]15lease Give Me A Birthday Gift2 !B-Day <nick> <Gift>
    halt
  }
  else (
  if ($4 == $null) {
    msg $chan [P]15lease Specify The Why You Are Saying Happy Birthday2!B-Day <nick> <Gift> <Why>
    halt
  }
  else (
  inc %BirthdaysCount
  /set %B-Day $rand(1,2)
  if (%B-Day == 1) msg $chan 2 $nick [H]15ands2 $2 15A2 $3 2[H]15appy 2[B]15irthday.[ %BirthdaysCount B-Days ]2 $4- 
  if (%B-Day == 2) msg $chan 2 $nick [G]ives 2 $2 15A2 $3 9[H]4APPY 9[B]4IRTHDAY.9[ %BirthdaysCount B-Days ]2 $4- 
}
on *:TEXT:*!Steal*:#:{ 
  if ($2 == $null) {
    msg $chan 2[P]15lease Give Me A Target 2 !Steal <nick> 
    halt
  }
  else (
  if ($3 == $null) {
    msg $chan 2[P]15lease Give Me An Object2 !Steal <nick> <Object>
    halt
  }
  else (
  inc %StealCount
  /set %Steal $rand(1,3)
  if (%Steal == 1) msg $chan 2 $nick [S]15neaks Into2 $2 $+ 's15 House And Steals His2 $3 2[ %StealCount Things Stolen ] 
  if (%steal == 2) msg $chan 2 $nick [G]15oes Passed 2 $2 15And Steals His2 $3 2[ %StealCount Things Stolen]
  if (%steal == 3) msg $chan 2 $nick [F]15inds2 $2 $+ 's $3 15And Steals It 2[ %StealCount Things Stolen ]
}
on *:TEXT:*!Sale*:#:{ 
  if ($2 == $null) {
    msg $chan 2[P]15lease Give Me Something To Sale 2 !Sale <Obeject> 
    halt
  }
  else (
  if ($3 == $null) {
    msg $chan 2[P]15lease Give Me A Amount2 !Sale <nick> <Object> <Amount>
    halt
  }
  else (
  inc %salecount
  /set %sale $rand(1,2)
  if (%Sale == 1) msg $chan 2 $nick [I]15s Selling A2 $2 15For A Minimum Of2 $3 Dollars 2[ %SaleCount Things Sold ] 
  if (%Sale == 2) msg $chan 2 $nick [I]15s Selling A2 $2 15For An Amount Of 2 $3 2[ %SaleCount Things Sold ]
}
on *:TEXT:*!Buy*:#:{ 
  if ($2 == $null) {
    msg $chan 2[P]15lease Give Me What You Want To Buy2 !Buy <Object> 
    halt
  }
  else (
  if ($3 == $null) {
    msg $chan 2[P]15lease Give Me An Amount To Pay2 !Buy <Object> <Amount>
    halt
  }
  else (
  inc %Buycount
  /set %Buy $rand(1,2)
  if (%Buy == 1) msg $chan 2 $nick 2 [I]15s Putting Up $3 For Your2 $2 2[ %BuyCount Things Bought ] 
  if (%Buy == 2) msg $chan 2 $nick 2 [I]15s Attempting To Buy Your2 $2 15For2 $3 Dollars 2[ %BuyCount Things Bought ]
}
on *:TEXT:*!asl*:#:{
  inc %asl
  notice $nick 2[A]15sl Is 2[A]15 = Age 2[S]15 = Sex 2[L]15 = Location 2[ %asl Times Asked
}
on *:TEXT:*!Reset*:#:{
  if ($nick == YOURNICKHERE) {
  unset %MurderCount
  unset %StabCount
  unset %saleCount
  unset %Buycount
  unset %StealCount
  unset %LateBirthdaysCount
  unset %EarlyBirthDaysCount
  unset %BirthdaysCount
  msg $chan All Counts Have Been Reset = )
}
}