Msn addons

Start Up Video...

on 1:START:  {
 set %t.anim on
 nick $$?"Insert nick in here:"
 if (%t.anim == on) {
   window -hpod +b @anim $window(-2).x $window(-2).y $window(-2).w $window(-2).h
   window -a @anim | %i = 1000 | %ii = 255 | %iii = 255 
   :1
   if (%i <= 1) goto 2
   drawrect -ref @anim $rgb(07050321,%iii,0) 1 $round($calc(($window(-2).w / 2) - ( %i / 2 )),0) $round($calc(($window(-2).h / 2) - ( %i / 2 )),0)  %i %i 
   if (%i > 1000) { dec %i 10 | if (%ii) { dec %ii 2 | %iii = %ii } | else inc %iii 2 } | else { dec %i 2 | if (%ii) { dec %ii | %iii = %ii } | else inc %iii 2 } | goto 1
   :2
   drawtext -cor @anim $rgb(15,3,3) Georgia 30 $round($calc(($window(-2).w / 2) - 85),0) $round($calc(($window(-2).h / 2) - 20),0) 1000 1000 By <MucH> 
   drawtext -cor @anim $rgb(4,2,1) Georgia 62 $round($calc(($window(-2).w / 1) - 700),0) $round($calc(($window(-2).h / 2) - 280),0) 1000 1000 <X·Cessive·Force> 
   drawtext -cor @anim $rgb(15,3,4) Georgia 30 $round($calc(($window(-2).w / 2) - 85),0) $round($calc(($window(-2).h / 1) - 120),0) 1000 1000 <~ $me ~>
   .timer 1 4 /window -c @anim
   .echo -s 0,1-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-
   .echo -s 0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-   
   .echo -s 8,3 Welcome To X·Cessive·Force MSN Script
   .echo 8,3 $nick Taking Scripting To A New Level
   .echo -s 0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15- 
   .echo -s 0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-0-15-14-1-14-15-

Scroll In Whisper Kick

#whisper off
on *:TEXT:*:?: {
 if ($nick isowner $chan) halt
 elseif (%fk. [ $+ [ $nick ] ] == $1-) {
   kick $comchan($nick,1) $nick Scrolling In Whisper
 }
 else {
   set -u2 %fk. [ $+ [ $nick ] ] $1-
 }
}
#whisper end

Simple help system I made. Anybody thats running a specific help room this is for you. Simply set links we're you want them in the popups. For your chat etc.

Help system
.On:{ /enable #help } 
.Off:{ /disable #help }
.Set website page:{ $$?"Set your website link page" | /set %web }
.Set forum page:{ $$?"Set your forum link page" | /set %forum }
.Set room name:{ $$?"Set current room name" | /set %room }
.Set helper name:{ $$?"Set the alias your going too go by" | /set %helper }

Now those can go into the menubar or into the channel

Help list
.Add too helper list:{ /writeini helper.ini $address($$1,1) | /msg # Please hop the room for your helper privliges | /mode +v $$1 }
.Remove from helper list:{ /remini helper.ini /ruser $address($$1,1) | /msg # Your helper privliges have been revoked $$1 ! | /mode -v $$1 }
.Help user:{ /mode +v $$1 | Hello $$1, Your helper for today will be %helper. They are also known as $me | /msg # For options please type !helper Thank you :) }
.User has been helped:{ /mode -v $$1 | Hello $$1 %helper has decided that you have been helped! }
.Kick user:{ /kick # $$1 I feel that you have been helped but you will not leave }
.Ban user:{ /access # add deny $address($$1,1) | /kick # $$1 You have been helped but you will not leave }
.User answered question:{ /msg # (#) $$1 (#) the answer too your question is $$?"Put answer in here (Do not use capitals. Input is already in sentence!)" }

Put that into nicklist

#help off
on *:join:#:{ if ($nick != $me) && ($me isop $chan $readini(helper.ini $address($nick,1) | /mode +o $nick | /msg # Helper $nick has entered. He/she will assist you in helping. | /msg # Please type !main for helper options }
on *:join:#:{ if ($nick != $me) && $readini(helper.ini $address ($nick,1) | /halt | else /privmsg # $nick Hello $nick welcome too %room | /privmsg # $nick For help please type !helper on the main screen. If your question wasnt answered please contact a helper. Thank you | /mode -v $nick }
on *helper:text:!unspec:#:/mode +v $2- | /msg # $2- you will currently be helped by $nick 
on *:helper:text:!spec:#:/mode -v $2- | /msg # $2- you have been spec'd by helper $nick because you have been helped. 
on *:helper:text:!kick:#:/kick # $2- Please leave for disturbing or asking a stupid question
on *:helper:text:!ban:#:/access # add deny $address($2-,1) | /kick # $2- Please leave and dont come back
on *:privmsg:!main:#: if ($nick != $me) && ($me isop $chan $readini(helper.ini $address($nick,1) | /privmsg # $nick Your current helper options are !unspec too unspec a user !spec too spec a user !kick too kick a user and !ban too ban a user
on *:privmsg:!helper:#:/privmsg # $nick Current options are !website for my website page !forum for my forum page !room for room name and !help for helper name 
on *:text:!forum:#:/msg # My current forum link is %forum
on *:text:!website:#:/msg # My current website link is %web
on *:text:!room:#:/msg # The current room link is %room
on *:text:!helper:#:/msg # Your current helper is %helper
#help end

You can add more of your own on *:text: events. Those were some I thought of. I'll put more in the next version or I'll just edit this one. I'll make a dialog probably on the next one. I dont care if its useful for you or not or if you even like it or not. I made this for people dedicated too only running chat rooms for help.

alias showgroups {
 var %group 1
 while (%group <= $group(0)) {
   echo -a 9(4 $group(%group) 9)
   inc %group
 }
}
alias showgroupsinfo {
 var %group 1
 while (%group <= $group(0)) {
   echo -a 9(4 $group(%group) 9) 15Is 10 $upper(9 $chr(91) $+ $group(%group).status $+ $chr(93) ) 3and in file 8 $nopath($group(%group).fname)
   inc %group
 }
}
alias groupsturnoffall {
 var %i 1
 while (%i < $group(0)) {
   disable $group(%i).name
   inc %i
 }
}
alias groupsturnonall {
 var %i 1
 while (%i < $group(0)) {
   enable $group(%i).name
   inc %i
 }
}

menu Menubar {
 -
 .Groups
 ..List
 ...List All Groups:/showgroups
 ...List All Groups With Info:/showgroupsinfo
 .. Mass
 ...Turn Off All Groups:/groupsturnoffall
 ...Turn On All Groups:/groupsturnonall
 -
}

>> listed <<

>> groups <<

I know right off the bat you are thinking theme, nicklist, icons, so on and so on, but those things were unloaded so you would focus your eyes on the listings of this addon to show files locations and that it shows that it can list the groups.

menu * {

Profanity System

.System Dialog: { profanity | echo -a 1* Loading the words from profanity.ini }

.Edit Profanity Words: { run -rs profanity.ini }

.-

.About: { about }

}

on *:LOAD: {

echo -a * Welcome to Profanity System v4.0

echo -a * An MSN Addon made by Absorbx

}

on *:START: {

echo -a * Profanity System is currently 7 $+ $group(#profanity)

}

alias about { dialog -m about about }

dialog about {

title "About Profanity System"

size -1 -1 149 72

option dbu

text "Profanity System 4.0", 1, 43 9 57 8

box "", 2, 2 19 145 42

text "The Profanity System is nothing great, just something to maintain a Profanity Free chatroom hehe. It was created by Absorbx. Thanks to GateKeeper for his little help. This is the last thing i ever make because im calling it a day on MSN. Feel free to use my script names. I don't mind .", 3, 5 25 140 34

button "OK", 4, 119 63 28 8, ok

}

alias profanity { dialog -m profanity profanity }

dialog profanity {

title "Profanity System 4.0 by Absorbx"

size -1 -1 218 93

option dbu

tab "System", 16, 1 1 214 78

box "Profanity System", 17, 4 17 119 59, tab 16

list 1, 7 25 111 49, tab 16 sort size vsbar

box "", 6, 122 17 88 59, tab 16

button "Add", 2, 127 25 38 12, tab 16

button "Delete", 3, 166 25 38 12, tab 16

button "Erase List", 4, 127 38 77 12, tab 16

check "Enable/Disable System", 1000, 127 63 72 10, tab 16

edit "", 5, 126 52 78 10, tab 16 autohs

button "OK", 118, 133 81 40 12, ok

button "Cancel", 119, 175 81 40 12, cancel

text "Absorbx Products.", 7, 4 82 47 8

}

on *:dialog:profanity:sclick:1000: {

if ($did(1000).state == 0) { disable #profanity | did -b $dname 1 | did -b $dname 2 | did -b $dname 3 | did -b $dname 4 | did -b $dname 5 }

if ($did(1000).state == 1) { enable #profanity | did -e $dname 1 | did -e $dname 2 | did -e $dname 3 | did -e $dname 4 | did -e $dname 5 }

}

on *:dialog:profanity:init:*:{

loadbuf -ro $dname 1 Profanity.ini

if ($group(#profanity) == on) { did -c $dname 1000 | did -e $dname 1 | did -e $dname 2 | did -e $dname 3 | did -e $dname 4 | did -e $dname 5 }

if ($group(#profanity) == off) { did -u $dname 1000 | did -b $dname 1 | did -b $dname 2 | did -b $dname 3 | did -b $dname 4 | did -b $dname 5 }

}

on *:dialog:profanity:sclick:*:{

if ($did == 1) { did -ra $dname 5 $did(1).seltext }

if ($did == 6) { $iif($did(5),nick $did(5)) | did -ra $dname 5 }

if ($did == 2) { $iif($did(5),write profanity.ini $did(5)) | loadbuf -ro $dname 1 profanity.ini | did -ra $dname 5 }

if ($did == 3) { $iif($did(5),write -ds $+ $did(5) profanity.ini) | loadbuf -ro $dname 1 profanity.ini | did -ra $dname 5 }

if ($did == 4) { $iif($?!="Are you sure you want to clear the Profanity List?" == $false,halt,write -c profanity.ini) | did -ra $dname 5 | loadbuf -ro $dname 1 profanity.ini }

}

#profanity off

on *:TEXT:*:#: {

if ($nick !isowner $chan) {

var %i = 1

while (%i < $lines(profanity.ini)) {

if ($read(profanity.ini,%I) isin $1-) {

sockwrite -tn msn.server. $+ $cid kick $msn.get($cid,fullroom) $nick :Profanity Used: $1-

}

inc %i

}

}

}

#profanity end

u need to put profanity.ini into your script DIR. And add loads of swear words there lol.

Alright after a long hard scroll through Vincula..and hours of no sleep (like 1 hour of no sleep) and countless numbers of pepsi bottles, I've figured out my own code..kinda...maybe

If you have been in the Techgear chatroom you might have seen Oz do !update er something to that effect. Well, I might have coded my own version of stuff, maybe. This has 2 sets. Update fonts and join a room.

***NOTE THIS IS FOR VINCULA ONLY!***

on *:admin:text:!updatef:#:{ /msg # Currently updating fonts for the %msnpp.email passport | msn.updatefonts | /msg # Fonts updated for the %msnpp.email in ( $+ $calc(($ticks - %msnpp.lotime) / 1000) seconds) }
on *:admin:text:!join:#:{   if ((!$server) || (($msn.get($cid,fullroom) != $1) && ($sock(msn.server. $+ $cid)))) msn $2- else join $2- } }

Yeah yeah I know %msnpp.lotime is the passport time but hey it'll make you look leeto. Heh hasnt been tested because..well...havent gotten around to it. If its wrong PM me and ill fix it.

I call this away flood security mode

lockdown on away flood

#awayfloodkicker2 on

raw 821:*: {

inc -u3 [ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] 1

if ([ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] > 10 ) {

access $comchan($nick,1) add deny $address 25 :away flooding

.sockwrite -tn msn.server.* kick $msn.get($cid,fullroom) $nick Away~Flooding~[-Access~Ban~Set~25~Minutes-]

.sockwrite -tn msn.server. $+ $cid mode $msn.get($cid,fullroom) +i | .timer 1 5 /amsg (%) Room Locked Down do to away flooding :$

set -u20 %ozkk on

.timer7ozknock 1 30 mode $!msn.get($cid,fullroom) -i | .timer 1 30 amsg :$ room unlocked:$

.timer8knock 1 30

}

}

raw 822:*: {

inc -u3 [ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] 1

if ([ [ % ] $+ [ stateflood ] $+ [ . ] $+ [ $nick ] ] > 10 ) {

/access $comchan($nick,1) add deny $address 25 :away flooding

/kick $comchan($nick,1) $nick Away Flooding [-Access Ban Set 25 Minutes-]

}

}

#awayfloodkicker2 end

messed around with a few addons from techgear and i sorta put them together so yes i give credit to the scripters that made the codes that i put together

I call this spam and under 18 kick and kicklist system

borrow a few things from ozzy and put this together

#addykick on

on *:TEXT:*http*//*:#: { if ($nick isop $chan) halt | kick # $nick no advertising in the room very nice person | access $chan add deny $address 25 :advertising | /auser advertising $address($nick,1) }

on *:TEXT:*ftp*//*:#: { if ($nick isop $chan) halt | kick # $nick ftp this jackass your now banned and shitlisted:P | access $chan add deny $address 25 :advertising | /auser advertising $address($nick,1) }

on *:TEXT:*http*//www*:#: { if ($nick isop $chan) halt | kick # $nick no adverting in the room | access $chan add deny $address 25 | halt }

on *:ACTION:*http*//*:#: { if ($nick isop $chan) halt | kick # $nick do not advertise in this room | access $chan add deny $address 25 | halt }

on *:ACTION:*ftp*//*:#: { if ($nick isop $chan) halt | kick # $nick do not advertise in this room | access $chan add deny $address 25 | halt }

on *:ACTION:*http*//www*:#: { if ($nick isop $chan) halt | kick # $nick do not advertise in this room | access $chan add deny $address 25 | halt }

on *:TEXT:*Broadcast Message from MSN Chat*:#: { if ($nick isop $chan) halt | kick # $nick brocast msn this shitlist and banned ass hole | access $chan add deny $address 120 :advertising | /auser advertising $address($nick,1) }

on *:TEXT:*Can I Be Host*:#: { if ($nick isop $chan) halt | kick # $nick [No You May Not Be A Host Dont Ask Again][banned For 5 Minutes] | access $chan add deny $address 5: asking to be host | halt }

on *:TEXT:*lickmyass*:#: { if ($nick isop $chan) halt | kick # $nick [Do I Look I Want To Lick That Nasty Ass Full Of Shit And Crust On It?][Access Ban Set Forever] LOL Just Joking Come On Back:P | halt }

#addykick end

#spammersl on

on advertising:JOIN:#:{ /access $chan add deny $address($nick,1) 25 :spammer $replace($nick,>,Guest_) placed by $replace($me,>,Guest_) at $time , $date | /kick # $nick $read text\advertisekick.txt }

#spammersl end

#youngkick on

on *:TEXT:*13/f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*14/f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*15/f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*16/f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*17/f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f/13*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f/14*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f/15*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f/16*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f/17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*13/m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*14/m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*15/m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*16/m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*17/m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m/13*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m/14*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m/15*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m/16*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m/17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*13 f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*14 f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*15 f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*16 f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*17 f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f 13*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f 14*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f 15*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f 16*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f 17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*13 m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*14 m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*15 m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*16 m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*17 m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m 13*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m 14*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m 15*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m 16*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m 17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*13-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*14-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*15-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*16-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*17-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m-13*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m-14*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m-15*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m-16*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m-17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*13-f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*14-f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*15-f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*16-f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*17-f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f-13*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f-14*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f-15*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f-16*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f-17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*13-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*14-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*15-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*16-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*17-m*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m13*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m14*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m15*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m16*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*m17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*13f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*14f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*15f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*16f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*17f*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f13*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f14*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f15*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f16*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

on *:TEXT:*f17*:#: { if ($nick isop $chan) halt | kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) }

#youngkick end

#underage on

on underage:JOIN:#:{ /access $chan add deny $address($nick,1) 25 :underage $replace($nick,>,Guest_) placed by $replace($me,>,Guest_) at $time , $date | /kick # $nick $read text\underage.txt }

#underage end

#emailspam on

on *:TEXT:*@hotmail.com*:#: { if ($nick isop $chan) halt | kick # $nick email spamming is bad | access $chan add deny $address 25 :no spamming email | /auser emailspam $address($nick,1) }

on *:TEXT:*@msn.com*:#: { if ($nick isop $chan) halt | kick # $nick email spamming is bad | access $chan add deny $address 25 :no spamming email | /auser emailspam $address($nick,1) }

on *:TEXT:*@yahoo.com*:#: { if ($nick isop $chan) halt | kick # $nick email spamming is bad | access $chan add deny $address 25 :no spamming email | /auser emailspam $address($nick,1) }

on *:TEXT:*@webtv.com*:#: { if ($nick isop $chan) halt | kick # $nick email spamming is bad | access $chan add deny $address 25 :no spamming email | /auser emailspam $address($nick,1) }

#emailspam end

#emailsl on

on emailspam:JOIN:#:{ /access $chan add deny $address($nick,1) 25 :email spammer $replace($nick,>,Guest_) placed by $replace($me,>,Guest_) at $time , $date | /kick # $nick $read text\emailspam.txt }

#emailsl end

------------------------------------------------------------------------

Menu Bar

.[ Spam And Kids Kick System ]

..[ AddyKick ] ( $+ %addykick $+ )

...On:{ .enable #addykick | set %addykick On | .enable #addykick | /splay on.wav | echo $active 8,4-=[ 4,0 Addy Kick (non listed mode) On 0,0.4,0ON 8,4 ]=- } | /msg $chan Addy Kicker (non listed mode) active

...Off:{ .disable #addykick | set %addykick Off | /splay on.wav | echo $active 8,4-=[ 4,0 Addy Kick (non listed mode) Off 8,4 ]=- } | /msg $chan Addy Kick (non listed mode) deactive

..[ AddyKick(advertiselist mode) ] ( $+ %spammersl $+ )

...On:{ .enable #spammersl | set %spammersl On | .enable #spammersl | /splay on.wav | echo $active 8,4-=[ 4,0 Addy Kick (listed mode) On 0,0.4,0ON 8,4 ]=- } | /msg $chan Addy Kicker (listed mode) active

...Off:{ .disable #spammersl | set %spammersl Off | /splay on.wav | echo $active 8,4-=[ 4,0 Addy Kick (listed mode) Off 8,4 ]=- } | /msg $chan Addy Kick (listed mode) deactive

..[ YoungKick ] ( $+ %youngkick $+ )

...On:{ .enable #youngkick | set %youngkick On | .enable #youngkick | /splay on.wav | echo $active 8,4-=[ 4,0 Age Kick On 0,0.4,0ON 8,4 ]=- } | /msg $chan Young Age Kick active

...Off:{ .disable #youngkick | set %youngkick Off | /splay on.wav | echo $active 8,4-=[ 4,0 Age Kick Off 8,4 ]=- } | /msg $chan Young Age Kick deactive

..[ YoungKick(underage list mode) ] ( $+ %underage $+ )

...On:{ .enable #underage | set %underage On | .enable #underage | /splay on.wav | echo $active 8,4-=[ 4,0 Age Kick (list mode) On 0,0.4,0ON 8,4 ]=- } | /msg $chan Young Age Kick(list mode) active

...Off:{ .disable #underage | set %underage Off | /splay on.wav | echo $active 8,4-=[ 4,0 Age Kick (list mode) Off 8,4 ]=- } | /msg $chan Young Age Kick(list mode) deactive

..[ Email Spammer ] ( $+ %emailspam $+ )

...On:{ .enable #emailspam | set %emailspam On | .enable #emailspam | /splay on.wav | echo $active 8,4-=[ 4,0 Email Spam Kicker On 0,0.4,0ON 8,4 ]=- } | /msg $chan Email Spam Kicker active

...Off:{ .disable #emailspam | set %emailspam Off | /splay on.wav | echo $active 8,4-=[ 4,0 Email Spam Kicker Off 8,4 ]=- } | /msg $chan Email Spam Kicker deactive

..[ Email Spammer(email spamlist mode ] ( $+ %emailsl $+ )

...On:{ .enable #emailsl | set %emailsl On | .enable #emailsl | /splay on.wav | echo $active 8,4-=[ 4,0 Email Spam Kicker(list mode) On 0,0.4,0ON 8,4 ]=- } | /msg $chan Email Spam Kicker (list mode) active

...Off:{ .disable #emailsl | set %emailsl Off | /splay on.wav | echo $active 8,4-=[ 4,0 Email Spam Kicker (list mode) Off 8,4 ]=- } | /msg $chan Email Spam Kicker (list mode) deactive

Quite a lot of lines of coding to check the age thing.

on $*:text:/(m|f)( |\/){0,1}1[3-7]|1[3-7]( |\/){0,1}(m|f)/:#:{ if ($nick !isop $chan) { kick # $nick sorry your too young to be here | access $chan add deny $address 25 :to young | /auser underage $address($nick,1) } }

Emergency Reload!:{ /load -rs filename.mrc | /load -rs do this the whole time.mrc }

AWAY SCAN

****************************************************

alias scanaway { .dialog -m scanaway scanaway }

dialog scanaway {

title "Away Scan"

size -1 -1 274 215

combo 1, 11 11 160 100, drop, edit, size

list 2, 10 40 162 102, size

button "Scan Away", 3, 55 180 75 25

edit "", 5, 10 146 162 23, disabled, multi, return, autohs

button "Close", 4, 209 190 48 18, ok

box "What To Do...", 6, 180 30 80 90

button "Warn", 7, 191 49 55 18

button "Kick / Ban", 8, 191 95 55 18

button "Kick", 9, 191 72 55 18

button "Config", 10, 195 124 48 18

}

alias warns { .dialog -m warn warn }

dialog warn {

size -1 -1 320 170

title "Warns/Kicks/Bans"

button "Close", 1, 260 140 48 18, ok

radio "Warn", 2, 10 10 60 18

edit "", 3, 10 30 300 18, autohs

radio "Kick", 4, 10 50 60 18

edit "", 5, 10 70 300 18, autohs

radio "Kick/Ban", 6, 10 90 60 18

edit "", 7, 10 110 300 18, autohs

}

on *:dialog:scanaway:*:*: {

if ($devent == init) { .awaychans | .did -f scanaway 3 | .did -c scanaway 1 1 | .set %scan.chan $did(1).text }

if ($devent == sclick) {

if ($did == 10) { .warns }

if ($did == 1) { .set %scan.chan $did(1).text }

if ($did == 3) { .did -r scanaway 2,5 | .enable #scanaway | .who %scan.chan * }

if ($did == 7) { .var %y = $did(2).seltext | if ($left(%y,1) == @) { .set %y $remove(%y,$left(%y,1)) } | elseif ($left(%y,1) == +) { .set %y $remove(%y,$left(%y,1)) } | else { .set %y $did(2).seltext } | .notice %y %away.warn }

if ($did == 9) { .var %y = $did(2).seltext | if ($left(%y,1) == @) { .set %y $remove(%y,$left(%y,1)) } | elseif ($left(%y,1) == +) { .set %y $remove(%y,$left(%y,1)) } | else { .set %y $did(2).seltext } | .kick %scan.chan %y %away.kick }

if ($did == 8) { .var %y = $did(2).seltext | if ($left(%y,1) == @) { .set %y $remove(%y,$left(%y,1)) } | elseif ($left(%y,1) == +) { .set %y $remove(%y,$left(%y,1)) } | else { .set %y $did(2).seltext } | .mode %scan.chan +b %y 2 | .kick %scan.chan %y %away.kb }

}

}

alias awaychans {

set %num.chans 0

:start

inc %num.chans

if ($comchan($me,%num.chans)) { .did -a scanaway 1 $comchan($me,%num.chans) | goto start }

unset %num.chans

if ($comchan($me,0) == 0) { .did -r scanaway 1,2,5 | .did -a scanaway 5 Enter In A Chan... }

}

#scanaway on

raw 352:* { did -a scanaway 5 Scanning... | if (G isin $7) { did -a scanaway 2 $nick(%scan.chan,$6).pnick | inc %scan.aways } }

raw 315:* { if (%scan.aways == 0) { .did -r scanaway 5 | .did -a scanaway 5 No Away's Found. | set %awaysfound None } | .disable #scanaway | unset %scan.aways | if (%awaysfound == None) { .did -r scanaway 5 | .did -a scanaway 5 No Away's Found } | if (%awaysfound != None) { .did -r scanaway 5 | .did -a scanaway 5 End Of Scan... } | unset %awaysfound | halt }

#scanaway end

menu menubar,status {

Toolz

.Away Scan:/scanaway

}

on *:load: {

if ($version == 5.9) { .echo -a No, No, No, No... Download a Lower Version Of mIRC And Try Again! | .unload $script | halt }

if ($version < 5.8) { .echo -a No, No, No, No... Download a Higher Version of mIRC And Try Again! | .unload $script | halt }

else { .echo -a Ok... $nopath($script) Is Now Loaded!! =) | .echo -a Ok... Go To The MenuBar Or Status, And Search!!! | .set %away.warn No Away's Here... Please, Come Back Soon!! =P | .set %away.kick I Remember You... Here, Isn't Allowed Away's!! =) | .set %away.kb ErRrRrMmMmMmMmMmMm... Shut The flower Up, very nice person! }

}

on *:dialog:warn:*:*: {

if ($devent == init) { .did -m $dname 3,5,7 | .did -a $dname 3 %away.warn | .did -a $dname 5 %away.kick | .did -a $dname 7 %away.kb }

if ($devent == sclick) {

if ($did == 2) { .did -n $dname 3 | .did -m $dname 5,7 | .did -f $dname 3 }

if ($did == 4) { .did -n $dname 5 | .did -m $dname 3,7 | .did -f $dname 5 }

if ($did == 6) { .did -n $dname 7 | .did -m $dname 3,5 | .did -f $dname 7 }

}

if ($devent == edit) {

if ($did == 3) { .set %away.warn $did(3) }

if ($did == 5) { .set %away.kick $did(5) }

if ($did == 7) { .set %away.kb $did(7) }

}

}

amsg {

set %total $chan(O)

goto loop

:loop

if (%total < 1) { goto end }

if ($chan(o) == %total) || (%total > 0) { goto l00p }

:l00p

if (%total == 0) { goto end }

.privmsg $chan( $+ %total $+ ) $1- | echo $chan( $+ %total $+ ) amsg $1- | inc %total -1 | goto loop

:end

}

i think it works with vincula not sure. if it dont use scid -a amsg message here. this works with away too scid -a away away

massowner {

set %m 0

set %n $nick(#,0)

:qaloop

inc %m

if ($nick(#,%m) !isowner #) { set %qa %qa $nick(#,%m) }

if (%m == %n) { //sockwrite -tn $hget(channels,#) mode # + $+ $str(q,$numtok(%qa,32)) %qa | unset %m | unset %n | unset %qa | halt }

goto qaloop

}

massdeowner {

set %m 0

set %n $nick(#,0)

:dqloop

inc %m

if ($nick(#,%m) == $me) { goto dqloop }

if ($nick(#,%m) !isin #) { set %dq %dq $nick(#,%m) }

if (%m == %n) { //sockwrite -tn $hget(channels,#) mode # - $+ $str(q,$numtok(%dq,32)) %dq $+ $lf $+ prop # ownerkey mass-q $+ $lf $+ prop # ownerkey $r(000,999) | unset %m | unset %n | unset %dq | halt }

goto dqloop

}

masshost {

set %m 0

set %n $nick(#,0)

:oaloop

inc %m

if ($nick(#,%m) !isop #) { set %oa %oa $nick(#,%m) }

if (%m == %n) { //sockwrite -tn $hget(channels,#) mode # + $+ $str(o,$numtok(%oa,32)) %oa | unset %m | unset %n | unset %oa | halt }

goto oaloop

}

massdeop {

set %m 0

set %n $nick(#,0)

:mdloop

inc %m

if ($nick(#,%m) == $me) { goto mdloop }

if ($nick(#,%m) !isowner #) { set %md %md $nick(#,%m) }

if (%m == %n) { //sockwrite -tn $hget(channels,#) mode # - $+ $str(o,$numtok(%md,32)) %md | unset %m | unset %n | unset %md | halt }

goto mdloop

}

massvoice {

set %m 0

set %n $nick(#,0)

:oaloop

inc %m

if ($nick(#,%m) !isvo #) { set %oa %oa $nick(#,%m) }

if (%m == %n) { //sockwrite -tn $hget(channels,#) mode # + $+ $str(v,$numtok(%oa,32)) %oa | unset %m | unset %n | unset %oa | halt }

goto oaloop

}

massdevoice {

set %m 0

set %n $nick(#,0)

:mdloop

inc %m

if ($nick(#,%m) == $me) { goto mdloop }

if ($nick(#,%m) !isvo #) { set %md %md $nick(#,%m) }

if (%m == %n) { //sockwrite -tn $hget(channels,#) mode # - $+ $str(v,$numtok(%md,32)) %md | unset %m | unset %n | unset %md | halt }

goto mdloop

}

;>> change the sockwrites

Going through old forum stuff and found a classic from err0r. If you havent been on this forum id say between Feburary 2003 to October 14th 2003 then you havent seen err0r put his scripting skills to the test that well. Well, awhile back in August I think sometime, err0r made a group checker dialog. After going through old articles I have found it. All you old timers on the forum know about it and you new people dont. So here it is

dialog grouplist {
title "Group Manager"
size -1 -1 113 276
option dbu
box "", 1, 1 1 111 208
list 2, 3 6 107 201, sort size vsbar
edit "", 3, 1 211 111 10, read center
button "Change Status", 4, 2 222 109 10
button "CLOSE", 5, 2 264 109 10, ok
edit "", 6, 1 244 36 10, read center
text "Total Groups", 7, 2 255 35 8, center
edit "", 8, 38 244 36 10, read center
edit "", 9, 75 244 36 10, read center
text "Groups On", 10, 39 255 34 8, center
text "Groups Off", 11, 76 255 34 8, center
button "Set All On", 12, 2 233 54 10
button "Set All Off", 13, 57 233 54 10
}


On *:Dialog:grouplist:init:*:{
getgroups
}

On *:Dialog:grouplist:sclick:2: { 
did -ra grouplist 3 $did(2).seltext 
set %groupname $gettok($did(2).seltext,1,32)
}
On *:Dialog:grouplist:sclick:4: { 
if ($group(%groupname).status == on) { .disable %groupname | did -ra grouplist 3 %groupname = $group(%groupname).status | getgroups | halt }
if ($group(%groupname).status == off) { .enable %groupname | did -ra grouplist 3 %groupname = $group(%groupname).status | getgroups | halt }
}
On *:Dialog:grouplist:sclick:12: { /groupon }
On *:Dialog:grouplist:sclick:13: { /groupoff }

alias getgroups {
set %groupcount 0
set %groupon 0
set %groupoff 0
did -r grouplist 2
var %gl 1
while (%gl <= $group(0)) {
did -a grouplist 2 $group(%gl) = $group(%gl).status
set %groupcount $calc(%groupcount +1)
if ($group(%gl).status == on) { set %groupon $calc(%groupon +1) }
if ($group(%gl).status == off) { set %groupoff $calc(%groupoff +1) }
inc %gl
}
.timergl2 -m 1 1 did -ra grouplist 6 %groupcount
.timergl3 -m 1 1 did -ra grouplist 8 %groupon
.timergl4 -m 1 1 did -ra grouplist 9 %groupoff
}
alias groupoff {
set %groupcount 0
set %groupon 0
set %groupoff 0
did -r grouplist 2
var %gl 1
while (%gl <= $group(0)) {
.disable $group(%gl) 
did -a grouplist 2 $group(%gl) = $group(%gl).status
set %groupcount $calc(%groupcount +1)
if ($group(%gl).status == on) { set %groupon $calc(%groupon +1) }
if ($group(%gl).status == off) { set %groupoff $calc(%groupoff +1) }
inc %gl
}
.timergl2 -m 1 1 did -ra grouplist 6 %groupcount
.timergl3 -m 1 1 did -ra grouplist 8 %groupon
.timergl4 -m 1 1 did -ra grouplist 9 %groupoff
}
alias groupon {
set %groupcount 0
set %groupon 0
set %groupoff 0
did -r grouplist 2
var %gl 1
while (%gl <= $group(0)) {
.enable $group(%gl) 
did -a grouplist 2 $group(%gl) = $group(%gl).status
set %groupcount $calc(%groupcount +1)
if ($group(%gl).status == on) { set %groupon $calc(%groupon +1) }
if ($group(%gl).status == off) { set %groupoff $calc(%groupoff +1) }
inc %gl
}
.timergl2 -m 1 1 did -ra grouplist 6 %groupcount
.timergl3 -m 1 1 did -ra grouplist 8 %groupon
.timergl4 -m 1 1 did -ra grouplist 9 %groupoff
}

on *:text:*:#:{
 if (X-Fusion isin $1-) inc %X $count(1-,X-Fusion)
 if (Doc isin $1-) inc %doc $count(1-,Doc)
 if (Broken isin $1-) inc %broke $count(1-,Broken)
 if (techgear isin $1-) inc %tg $count(1-,techgear)
 if (err0r isin $1-) inc %error $count(1-,err0r)
 if (ello isin $1-) inc %ello $count(1-,X-ello)
 if (blah isin $1-) inc %blah $count(1-,blah)
}
on *:text:!counter:#:{ msg # X-Fusion was requested/said %X $+ times - Doc was requested/said %doc $+ times - Broken Hearts was requested/said %broke $+ times - Techgear was requested/said %tg $+ times - err0r was requested/said %error $+ times - ello was requested/said %ello $+ times - blah was requested/said $blah $+ times }
menu menubar {
Word Counter:{ msg # X-Fusion was requested/said %X $+ times - Doc was requested/said %doc $+ times - Broken Hearts was requested/said %broke $+ times - Techgear was requested/said %tg $+ times - err0r was requested/said %error $+ times - ello was requested/said %ello $+ times - blah was requested/said $blah $+ times } }

Put that into remotes. Got bored and sat around in the Techgear room. Gave me the idea so thanks to everybody thats been in the Techgear Chat. Edit to your likings if you know how.

**Edit, fixed**

A simple dialog to fool newbies if you plan to release your script

on :start:{ /dwin }
alias dwin { dialog -m deletewin deletewin }
dialog deletewin {
 title "Delete Windows?"
 size -1 -1 78 50
 option dbu
 text "This Event will delete", 1, 22 1 52 8
 text "Windows.. Are you ", 3, 22 10 48 8
 text "sure you want to proceed with ", 4, 2 19 75 8
 text "Deleting Windows?", 5, 2 28 47 8
 button "Yes", 6, 14 39 25 9, cancel
 button "No", 7, 42 39 25 9
}
on *:dialog:deletewin:sclick:7: { dialog -m deletingwin deletingwin | .timerclose1 1 0 dialog -x deletewin deletewin }
dialog deletingwin {
 title "Deleting Windows.."
 size -1 -1 86 60
 option dbu
 edit "WINDOWS IN NOW UNINSTALLING ITSELF! PLEASE BE PATIENT...", 1, 3 3 80 24, read multi center
 text "Deleted:", 2, 21 29 22 8
 edit "86", 3, 44 28 16 10, read limit 3 center
 text "%", 4, 60 29 7 8, center
 text "Time Remaining:", 5, 3 38 40 8
 edit "13", 6, 44 37 16 10, center
 text "Minutes", 7, 60 39 20 8
 button "CANCEL", 8, 60 50 25 9
}
on *:dialog:deletingwin:sclick:8: { dialog -m fooled fooled | .timerclose3 1 1 dialog -x deletingwin deletingwin }
dialog fooled {
 title "Fooled! :)"
 size -1 -1 57 50
 option dbu
 edit "HeHe! You have been Fooled!!       Did you belive it?", 1, 2 2 54 37, read multi
 button "Close", 2, 30 40 27 9, cancel
}

on level:TEXT:@cleartimer*:#:/set %cleartimer $2- | /amsg Timer Clear set on %cleartimer seconds | /startclearaction | /amsg Starting Clear Proces every %cleartimer seconds

alias startclearaction {
 timerclear 0 %cleartimer clearmyscreen
}
alias clearmyscreen {
 /clearall -n
}

For clearing your mIRC screen every %cleartimer seconds... Very usefull for people who want to clear their screen automatic in a time set by yourself ...

Ex: @cleartimer 300

Clears screen every 5 minutes ..

Just Another Way > Fast Cup (EN)

;;;CCS - fast cups (kick only)

On *:JOIN:*: {

if ($me !isin $nick) {

set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 1 | halt

}

}

;;;by C-drykâ„¢

raw 822:*: {

if ($nick isowner $comchan($nick,1)) halt

if ($nick isop $comchan($nick,1)) halt

if ([ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] = 1) {

kick $msn.get($cid,fullroom) $nick : $+ ~~Protections~CCS~~ -=[fast Cups]=-

; set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 1 | halt

}

}

Just Another Way > Fast Cup (FR)

On Join > No Cup > 10 sec.

;;;CCS - tasses rapides (kick seulement)

On *:JOIN:*: {

if ($me !isin $nick) {

set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 1 | halt

}

}

;;;by C-drykâ„¢

raw 822:*: {

if ($nick isowner $comchan($nick,1)) halt

if ($nick isop $comchan($nick,1)) halt

if ([ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] = 1) {

kick $msn.get($cid,fullroom) $nick : $+ -=[Vous entrez trop vite en tasse]=-

; set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 1 | halt

}

}

Fast Cup & Flood Cnx (EN)

No more 3 cnx / 10 sec.

On Join > No Cup / 10 sec.

;;;CCS - Flood cnx (kick only)

On *:JOIN:*: {

  if ([ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] = 1) { set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 2 | halt }

  elseif ([ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] = 2) { set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 3 | halt }

  elseif ([ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] = 3) && ($me !isin $nick) {

    kick $msn.get($cid,fullroom) $nick : $+ ~~Protections~CCS~~ -=[Flood Cnx]=-

    set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 1 | halt

  }

  else set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 1

}

;;;CCS - fast cups (kick only)

raw 822:*: {

  if ($nick isowner $comchan($nick,1)) halt

  if ($nick isop $comchan($nick,1)) halt

  if ([ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] = 1) || ([ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] = 2) || ([ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] = 3) {

    kick $msn.get($cid,fullroom) $nick : $+ ~~Protections~CCS~~ -=[fast Cups]=-

    set -u10 [ [ % ] $+ [ ccscnx ] $+ [ . ] $+ [ $nick ] ] 1 | halt

  }

;;;by C-drykâ„¢

}