Guest Counter + A Little Entertainment

Platform:  mIRC
Published  Jul 20, 2007
Updated  Jul 21, 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 ^^
 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.
 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.
 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
 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 $+ .
 Respond  
GuardianDemon   -  Jul 21, 2007
It Was Made To Be Used In One Channell Tell Me How To Do $ord.....
 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.
 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
}
}
 Respond  
Anti   -  Jul 21, 2007
Half HOLD XD i have no clue lol..
 Respond  
napa182   -  Jul 20, 2007
where you have on
*:TEXT:*!Reset*:#:{
if ($nick == H) { <--put that their and
who or what is H ??
 Respond  
GuardianDemon   -  Jul 20, 2007
Two Things It Was Working Whenever I Made It And Posted It I Think I Must Have !@#$ Soemthing Up On The Way But I Fixed It Not The Best Way But It Works....
 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
 Respond  
Anti   -  Jul 20, 2007
That was a while ago :D
 Respond  
napa182   -  Jul 20, 2007
Anti i sent you a PM
 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
 Respond  
Anti   -  Jul 20, 2007
LOL no.. im here to make fun of people
 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?
 Respond  
napa182   -  Jul 20, 2007
um did someone strike a nerve O_O
 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
 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
 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?
 Respond  
napa182   -  Jul 20, 2007
Please Test the script before you post it =/
 Respond  
GuardianDemon   -  Jul 20, 2007
Did I Get Them All.... Score It Please
 Respond  
GuardianDemon   -  Jul 20, 2007
Lmao
 Respond  
napa182   -  Jul 20, 2007
you also got a few ) ( mixed up you should have used } {
 Respond  
napa182   -  Jul 20, 2007
first thing i see is /set %Murder $rand(5,5) change it to /set %Murder $rand(1,5)
 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.