Guest Counter + A Little Entertainment

By GuardianDemon on Jul 20, 2007

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 = )
}
}

Comments

Sign in to comment.
napa182   -  Jul 26, 2007

BAh delete the post above please ^^

More
 Respond  
Anti   -  Jul 23, 2007

XD Yeah i guess it was.. :P but.. i was being honest ok? :D can be honest about my snippets to.

More
 Respond  
Olliegod   -  Jul 21, 2007

Anti is correct about the usage of the $ord identifier, although as I said you could simply have looked in the help file. Also Anti, your last remark was rather uncalled for.

More
 Respond  
Anti   -  Jul 21, 2007

CODE: on *:JOIN:#: { inc %Visitor describe $chan 2[Y]15ou $nick Are The $ord(%Visitor) 15 To Join $chan $+ . Please State Asl If You Do Not Know What

LOL Your crappy scripting messed me up :D

More
 Respond  
Anti   -  Jul 21, 2007

CODE: on *:JOIN:#: { inc %Visitor describe $chan 2[Y]15ou $nick Are The 2 $ord(%Visitor Visitor) 15 To Join $chan $+ .

More
 Respond  
GuardianDemon   -  Jul 21, 2007

It Was Made To Be Used In One Channell Tell Me How To Do $ord.....

More
 Respond  
Olliegod   -  Jul 21, 2007
  1. This will tell how many people you have seen join channels, not how many people have joined a specific channel.
  2. I suggest using the $ord identifier so instead of saying \"You are the 123 user to join #whatever\" it will say \"You are the 123rd user to join #whatever\" /help $ord for more info.
More
 Respond  
napa182   -  Jul 21, 2007

also you have too many **\'s on :TEXT:!Reset:#:{ put on *:TEXT:!Reset:#: { if ($nick == yournick) {

unset %MurderCount
unset %StabCount
unset %saleCount
unset %Buycount
unset %StealCount
unset %LateBirthdaysCount
unset %EarlyBirthDaysCount
unset %BirthdaysCount
msg $chan All counts have been reset

} }

More
 Respond  
Anti   -  Jul 21, 2007

Half HOLD XD i have no clue lol..

More
 Respond  
napa182   -  Jul 20, 2007

where you have on :TEXT:!Reset*:#:{ if ($nick == H) { <--put that their and who or what is H ??

More
 Respond  
GuardianDemon   -  Jul 20, 2007

Two Things It Was Working Whenever I Made It And Posted It I Think I Must Have Fucked Soemthing Up On The Way But I Fixed It Not The Best Way But It Works....

More
 Respond  
GuardianDemon   -  Jul 20, 2007

O OK OK Im Sorry Napa And I Fixed It But I Cant Get The !reset To Work... Im Clueless

More
 Respond  
Anti   -  Jul 20, 2007

That was a while ago :D

More
 Respond  
napa182   -  Jul 20, 2007

Anti i sent you a PM

More
 Respond  
Anti   -  Jul 20, 2007

XD that was uncalled for but yeah im here to learn and chawt and meet people and MR_E you suck with snippets :P i got forced to say that by what\'s his face the one with the avatar with fingers or hands where can i findf you finger man? i got no mouse so i can\'t scroll up :D

More
 Respond  
Anti   -  Jul 20, 2007

LOL no.. im here to make fun of people

More
 Respond  
napa182   -  Jul 20, 2007

and Mr_E did post a snippet and it work\'s. LOL I think it\'s a funny take on a mimic snippet http://www.hawkee.com/snippet/2944/ But w/e we are all here to learn arn\'t we?

More
 Respond  
napa182   -  Jul 20, 2007

um did someone strike a nerve O_O

More
 Respond  
Anti   -  Jul 20, 2007

Ok GuardianDemon this is all you need

on *:JOIN:#: { inc %Visitor describe $chan 2[Y]15ou $nick Are The 2[ %Visitor Visitor ]15 To Join $chan $+ .

That\'s all dood you got like 2 snippet\'s bunched into one just make a guest counter entertaining you don\'t really need all that mumbo jumbo << (First time i said that) .. it\'s really great just.. not all that !stab :D it would be nice if you added a little bit more color! XD any way you did a good job some of it work\'s :D

More
 Respond  
Anti   -  Jul 20, 2007

Pfft MR E :P Youuh make a snippet and ill go there and say IT DOESNT WORK!! DOOD.. tell him what the problem is so he can fix it i already got a guest counter not as entertaining you know but it\'s pretty simple get\'s the job done at least GuardianDemon TRIED :X Oh well :D Good job i didnt even test it yet :D

More
 Respond  
Mr_E   -  Jul 20, 2007

So this definably doesn\'t work....I was all RIGHT ON then it didn\'t work...Gonna fix it?

More
 Respond  
napa182   -  Jul 20, 2007

Please Test the script before you post it =/

More
 Respond  
GuardianDemon   -  Jul 20, 2007

Did I Get Them All.... Score It Please

More
 Respond  
GuardianDemon   -  Jul 20, 2007

Lmao

More
 Respond  
napa182   -  Jul 20, 2007

you also got a few ) ( mixed up you should have used } {

More
 Respond  
napa182   -  Jul 20, 2007

first thing i see is /set %Murder $rand(5,5) change it to /set %Murder $rand(1,5)

More
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.