[start] network=1 servis.site=brasnet.org servis.nick=Nickserv,Chanserv,Memoserv,Operserv,Helpserv clonemask=2 ialupd=1 k2b.string=*nick esta registrado e protegido* k2b.command=nickserv identify [popups] #spopup on menu status { Brasnet .chanserv ..unban self:cs unban $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) ..invite self:cs invite $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) ..founder login:cs identify $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) $inp(enter password~Brasnet services by PlaTiNium~?*,1) ..- ..chan info:cs info $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) ..- ..registration ...register:var %.chan.temp.reg $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) | var %.chan.pass.temp.reg $inp(enter password~Brasnet services by PlaTiNium~?*,1) | var %.chan.pass.temp.reg2 $inp(reenter password~Brasnet services by PlaTiNium~?*,1) | if (%.chan.pass.temp.reg == %.chan.pass.temp.reg2) cs register %.chan.temp.reg %.chan.pass.temp.reg $inp(description of %.chan.temp.reg $+ ?~Brasnet services by PlaTiNium~,1) | else sr passwords don't confirm ...drop [unregister]:var %.chan.temp.drop $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) | var %.chan.pass.temp.drop $inp(enter password~Brasnet services by PlaTiNium~?*,1) | var %.chan.pass.temp.drop2 $inp(reenter password~Brasnet services by PlaTiNium~?*,1) | if (%.chan.pass.temp.drop == %.chan.pass.temp.drop2) && ($?!="are you sure you want to drop %.chan.temp.drop $+ ?") cs drop %.chan.temp.drop %.chan.pass.temp.drop | if (%.chan.pass.temp.drop != %.chan.pass.temp.drop2) sr passwords don't confirm ..- ..access ...auto-voice [vop] ....add:cs vop $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) add $inp(nick [registred]~Brasnet services by PlaTiNium~,1) ....del:cs vop $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) ...auto-op [aop] ....add:cs aop $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) add $inp(nick [registred]~Brasnet services by PlaTiNium~,1) ....del:cs aop $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) ...super-op [sop] ....add:cs sop $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) add $inp(nick [registred]~Brasnet services by PlaTiNium~,1) ....del:cs sop $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) ...- ...custom ....add:cs access $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) add $inp(nick [registred]~Brasnet services by PlaTiNium~,1) $inp(enter level~Brasnet services by PlaTiNium~,1) ....del:cs access $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) ...- ...access list:cs access $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) list ..akick ...add:cs akick $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) add $inp(nick/mask~Brasnet services by PlaTiNium~,1) $inp(enter reason~Brasnet services by PlaTiNium~,1) ...del:cs akick $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) ...- ...list:cs akick $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) list ..clear ...clear users:cs clear $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) users ...clear ops:cs clear $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) ops ...clear bans:cs clear $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) bans ...clear modes:cs clear $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) modes ...clear voices:cs clear $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) voices ..- ..levels ...list:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) list ...- ...auto-op:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set autoop $inp(enter level~Brasnet services by PlaTiNium~,1) ...auto-voice:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set autovoice $inp(enter level~Brasnet services by PlaTiNium~,1) ...auto-deop:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set autodeop $inp(enter level~Brasnet services by PlaTiNium~,1) ...no join:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set nojoin $inp(enter level~Brasnet services by PlaTiNium~,1) ...invite:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set invite $inp(enter level~Brasnet services by PlaTiNium~,1) ...akick:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set akick $inp(enter level~Brasnet services by PlaTiNium~,1) ...unban:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set unban $inp(enter level~Brasnet services by PlaTiNium~,1) ...op deop:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set opdeop $inp(enter level~Brasnet services by PlaTiNium~,1) ...access list:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set acc-list $inp(enter level~Brasnet services by PlaTiNium~,1) ...access change:cs levels $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) set acc-change $inp(enter level~Brasnet services by PlaTiNium~,1) ..set ...founder:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) founder $inp(nick [registred]~Brasnet services by PlaTiNium~,1) ...successor:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) successor $inp(nick [registred]~Brasnet services by PlaTiNium~,1) ...password:var %.chan.temp.set.pass $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) | var %.chan.pass.temp.set.pass $inp(enter new password~Brasnet services by PlaTiNium~?*,1) | var %.chan.pass.temp.set.pass2 $inp(reenter new password~Brasnet services by PlaTiNium~?*,1) | if (%.chan.pass.temp.set.pass == %.chan.pass.temp.set.pass2) && ($?!="are you sure you want to choose new password for %.chan.temp.set.pass $+ ?") cs set %.chan.temp.set.pass password %.chan.pass.temp.set.pass | if (%.chan.pass.temp.set.pass != %.chan.pass.temp.set.pass2) sr new passwords don't confirm ...- ...entrymsg:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) entrymsg $inp(enter entry msg~Brasnet services by PlaTiNium~,1) ...topic:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) topic $inp(enter topic~Brasnet services by PlaTiNium~,1) ...- ...desc:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) desc $inp(enter description~Brasnet services by PlaTiNium~,1) ...email:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) email $inp(enter email~Brasnet services by PlaTiNium~,1) ...url:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) url $inp(enter url~Brasnet services by PlaTiNium~,1) ...- ...others ....mlock:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) mlock $inp(enter modes ex.: +nt-ismlk [only + to unlock]~Brasnet services by PlaTiNium~+,1) ....- ....enforce .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) enforce on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) enforce off ....keep topic .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) keeptopic on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) keeptopic off ....leave ops .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) leaveops on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) leaveops off ....op notice .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) opnotice on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) opnotice off ....private .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) private on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) private off ....restricted .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) restricted on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) restricted off ....secure .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) secure on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) secure off ....secure ops .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) secureops on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) secureops off ....topic lock .....on:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) topiclock on .....off:cs set $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) topiclock off ..- ..others ...op:cs op $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) $inp(enter nick~Brasnet services by PlaTiNium~,1) ...deop:cs deop $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) $inp(enter nick~Brasnet services by PlaTiNium~,1) ...- ...voice:cs voice $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) $inp(enter nick~Brasnet services by PlaTiNium~,1) ...devoice:cs devoice $inp(what channel?~Brasnet services by PlaTiNium~$chr(35),1) $inp(enter nick~Brasnet services by PlaTiNium~,1) .nickserv ..info:ns info $inp(enter nick~Brasnet services by PlaTiNium~,1) ..identify:perflog ..ghost kill:ghost $inp(enter nick [ghost]~Brasnet services by PlaTiNium~,1) ..- ..registration ...register $me $+ ...:var %.nick.pass.temp.reg $inp(enter password~Brasnet services by PlaTiNium~?*,1) | var %.nick.pass.temp.reg2 $inp(reenter password~Brasnet services by PlaTiNium~?*,1) | if (%.nick.pass.temp.reg == %.nick.pass.temp.reg2) ns register %.nick.pass.temp.reg $inp(enter email~Brasnet services by PlaTiNium~,1) | else sr passwords don't confirm ...drop [unregister] $me:var %.nick.pass.temp.drop $inp(enter password~Brasnet services by PlaTiNium~?*,1) | var %.nick.pass.temp.drop2 $inp(reenter password~Brasnet services by PlaTiNium~?*,1) | if (%.nick.pass.temp.drop == %.nick.pass.temp.drop2) && ($?!="are you sure you want to drop %.nick.temp.drop $+ ?") ns drop %.nick.pass.temp.drop | if (%.nick.pass.temp.drop != %.nick.pass.temp.drop2) sr passwords don't confirm ..- ..recover:ns recover $inp(enter nick~Brasnet services by PlaTiNium~,1) ..release:ns release $inp(enter nick~Brasnet services by PlaTiNium~,1) ..access ...add:ns access add $inp(enter mask~Brasnet services by PlaTiNium~,1) ...del:ns access del $inp(enter mask/entry-num in the list~Brasnet services by PlaTiNium~,1) ...- ...list:ns access list ..- ..set ...password:var %.nick.pass.temp.pass $inp(enter new password~Brasnet services by PlaTiNium~?*,1) | var %.nick.pass.temp.pass2 $inp(reenter new password~Brasnet services by PlaTiNium~?*,1) | if (%.nick.pass.temp.pass == %.nick.pass.temp.pass2) ns set password %.nick.pass.temp.pass | else sr passwords don't confirm ...language:echo Number of the languages: 1) English, 2) Italian, 3) (Japanese / EUC encoding), 4) (Japanese / SJIS encoding), 5) Portugues (Portuguese), 6) Espaņol (Spanish) and 7) Turkce (Turkish) | ns set language $inp(enter number of your new language~Brasnet services by PlaTiNium~,1) ...- ...url:ns set url $inp(enter url~Brasnet services by PlaTiNium~,1) ...email:ns set email $inp(enter email~Brasnet services by PlaTiNium~,1) ...kill ....on (60s):ns set kill on ....quick (20s):ns set kill quick ....immed (0s):ns set kill immed ....off:ns set kill off ...- ...secure ....on:ns set secure on ....off:ns set secure off ...- ...private ....on (your info won't appear):ns set private on ....off (your info will appear):ns set private off ...hide ....email .....on:ns set hide email on .....off:ns set hide email off ....usermask .....on:ns set hide usermask on .....off:ns set hide uservmask off ....quit .....on:ns set hide quit on .....off:ns set hide quit off .memoserv ..list memos:ms list ..read memo:ms read $inp(enter memo/entry-num in the list~Brasnet services by PlaTiNium~,1) ..send memo:.ms send $inp(enter nick~Brasnet services by PlaTiNium~,1) $inp(type your memo~Brasnet services by PlaTiNium~,1) ..- ..delete memo ...all:ms del all ...custom:ms del $inp(enter memo/entry-num in the list~Brasnet services by PlaTiNium~,1) ..- ..set ...notify ....on:ms set notify on ....logon:ms set notify ....new:ms set notify new ....off:ms set notify off ...- ...limit ....set:ms set limit $inp(enter your nick/channel [#chan]~Brasnet services by PlaTiNium~,1) $inp(enter limit [0-20]~Brasnet services by PlaTiNium~,1) ....not to receive: if ($?!="Are you sure want not to receive memos?") ms set limit $inp(enter your nick/channel [#chan]~Brasnet services by PlaTiNium~,1) 0 } ; menu channel { $chr(0160) BRASnet .modes ..( $+ $iif($chan(#).mode,$chan(#).mode,n/a) $+ ):return ..- ..$iif(($_icancontrol && $remove($chan(#).mode,+,t,n)),set +tn $iif($chan(#).mode,only)):if ($chan(#).mode) var %m = - $+ $remove($gettok($chan(#).mode,1,32),t,n,+) | .raw MODE # %m $+ +tn ..- ..$iif($_icancontrol,usual): ...+tn:mode # +tn ...+tns:mode # +tns ...+tni:mode # +tni ...- ...+l $nick(#,0,a):mode # +l $nick(#,0,a) ...+spmi:mode # +spmi ..- ..$iif(t isincs $gettok($chan(#).mode,1,32),only ops change topic -t,only ops change topic +t):mode # $iif(t isincs $gettok($chan(#).mode,1,32),-t,+t) ..$iif(n isincs $gettok($chan(#).mode,1,32),no external msgs -n,no external msgs +n):mode # $iif(n isincs $gettok($chan(#).mode,1,32),-n,+n) ..$iif(s isincs $gettok($chan(#).mode,1,32),secret -s,secret +s):mode # $iif(s isincs $gettok($chan(#).mode,1,32),-s,+s) ..$iif(p isincs $gettok($chan(#).mode,1,32),private -p,private +p):mode # $iif(p isincs $gettok($chan(#).mode,1,32),-p,+p) ..$iif(m isincs $gettok($chan(#).mode,1,32),moderated -m,moderated +m):mode # $iif(m isincs $gettok($chan(#).mode,1,32),-m,+m) ..$iif(i isincs $gettok($chan(#).mode,1,32),invite only -i,invite only +i):mode # $iif(i isincs $gettok($chan(#).mode,1,32),-i,+i) ..$iif(l isincs $gettok($chan(#).mode,1,32),limited -l,limited +l):mode # $iif(l isincs $gettok($chan(#).mode,1,32),-l,+l $inp(enter limit~channel modes,1)) ..$iif(k isincs $gettok($chan(#).mode,1,32),key -k,key +k):mode # $iif(k isincs $gettok($chan(#).mode,1,32),-k $gettok($chan(#).mode,-1,32),+k $inp(enter password~channel modes,1)) ..$iif(c isincs $gettok($chan(#).mode,1,32),no colours -c,no colours +c):mode # $iif(c isincs $gettok($chan(#).mode,1,32),-c,+c) ..$iif(d isincs $gettok($chan(#).mode,1,32),no repeats -d,no repeats +d):mode # $iif(d isincs $gettok($chan(#).mode,1,32),-d,+d) ..$iif(f isincs $gettok($chan(#).mode,1,32),kick on lines/seconds -f,kick on lines/seconds +f):mode # $iif(f isincs $gettok($chan(#).mode,1,32),-f,+f $inp(enter x lines per y seconds [x:y]~channel modes,1)) ..$iif(K isincs $gettok($chan(#).mode,1,32),knock mode -K,knock mode +K):mode # $iif(K isincs $gettok($chan(#).mode,1,32),-K,+K) ..$iif(q isincs $gettok($chan(#).mode,1,32),no quit messages -q,no quit messages +q):mode # $iif(q isincs $gettok($chan(#).mode,1,32),-q,+q) ..$iif(R isincs $gettok($chan(#).mode,1,32),join only registered nicks -R,join only registered nicks +R):mode # $iif(R isincs $gettok($chan(#).mode,1,32),-R,+R) ..$iif(S isincs $gettok($chan(#).mode,1,32),no spam -S,no spam +S):mode # $iif(S isincs $gettok($chan(#).mode,1,32),-S,+S) ..- ..custom:mode # $inp(enter modes [-+cdfikKlmnpqRsSt]~channel modes~+,1) .- .register channel:var %.chan.pass.temp.reg $inp(enter password~Brasnet services by PlaTiNium~?*,1) | var %.chan.pass.temp.reg2 $inp(reenter password~Brasnet services by PlaTiNium~?*,1) | if (%.chan.pass.temp.reg == %.chan.pass.temp.reg2) cs register # %.chan.pass.temp.reg $inp(enter description of # $+ ?~Brasnet services by PlaTiNium~,1) | else sr passwords don't confirm .info on channel:cs info # .- .founder ..identify channel:cs identify # $inp(enter password~Brasnet services by PlaTiNium~?*,1) ..change password:var %.chan.pass.temp.set.pass $inp(enter new password~Brasnet services by PlaTiNium~?*,1) | var %.chan.pass.temp.set.pass2 $inp(reenter new password~Brasnet services by PlaTiNium~?*,1) | if (%.chan.pass.temp.set.pass == %.chan.pass.temp.set.pass2) && ($?!="are you sure you want to choose new password for %.chan.temp.set.pass $+ ?") cs set # password %.chan.pass.temp.set.pass | if (%.chan.pass.temp.set.pass != %.chan.pass.temp.set.pass2) sr new passwords don't confirm ..- ..set ...levels ....list:cs levels # list ....- ....auto-op:cs levels # set autoop $inp(enter level~Brasnet services by PlaTiNium~,1) ....auto-voice:cs levels # set autovoice $inp(enter level~Brasnet services by PlaTiNium~,1) ....auto-deop:cs levels # set autodeop $inp(enter level~Brasnet services by PlaTiNium~,1) ....no join:cs levels # set nojoin $inp(enter level~Brasnet services by PlaTiNium~,1) ....invite:cs levels # set invite $inp(enter level~Brasnet services by PlaTiNium~,1) ....akick:cs levels # set akick $inp(enter level~Brasnet services by PlaTiNium~,1) ....unban:cs levels # set unban $inp(enter level~Brasnet services by PlaTiNium~,1) ....op deop:cs levels # set opdeop $inp(enter level~Brasnet services by PlaTiNium~,1) ....access list:cs levels # set acc-list $inp(enter level~Brasnet services by PlaTiNium~,1) ....access change:cs levels # set acc-change $inp(enter level~Brasnet services by PlaTiNium~,1) ...- ...desc:cs set # desc $inp(enter description~Brasnet services by PlaTiNium~,1) ...email:cs set # email $inp(enter email~Brasnet services by PlaTiNium~,1) ...url:cs set # url $inp(enter url~Brasnet services by PlaTiNium~,1) ...- ...private ....on:cs set # private on ....off:cs set # private off ...keep topic ....on:cs set # keeptopic on ....off:cs set # keeptopic off ...topic lock ....on:cs set # topiclock on ....off:cs set # topiclock off ...secure ops ....on:cs set # secureops on ....off:cs set # secureops off ..- ..clear ...clear users:cs clear # users ...clear ops:cs clear # ops ...clear bans:cs clear # bans ...clear modes:cs clear # modes ...clear voices:cs clear # voices ..- ..set founder:cs set # founder $inp(new founder nick [registred]~Brasnet services by PlaTiNium~,1) ..drop [unregister]:var %.chan.pass.temp.drop $inp(enter password~Brasnet services by PlaTiNium~?*,1) | var %.chan.pass.temp.drop2 $inp(reenter password~Brasnet services by PlaTiNium~?*,1) | if (%.chan.pass.temp.drop == %.chan.pass.temp.drop2) && ($?!="are you sure you want to drop %.chan.temp.drop $+ ?") cs drop # %.chan.pass.temp.drop | if (%.chan.pass.temp.drop != %.chan.pass.temp.drop2) sr passwords don't confirm .- .access ..auto-voice [vop] ...add:cs vop # add $inp(nick [registred]~Brasnet services by PlaTiNium~,1) ...del:cs vop # del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) ..auto-op [aop] ...add:cs aop # add $inp(nick [registred]~Brasnet services by PlaTiNium~,1) ...del:cs aop # del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) ..super-op [sop] ...add:cs sop # add $inp(nick [registred]~Brasnet services by PlaTiNium~,1) ...del:cs sop # del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) ..- ..custom ...add:cs access # add $inp(nick [registred]~Brasnet services by PlaTiNium~,1) $inp(enter level~Brasnet services by PlaTiNium~,1) ...del:cs access # del $inp(nick/entry-num in the list~Brasnet services by PlaTiNium~,1) .access list:cs access # list .- .akick ..add:cs akick # add $inp(enter nick/mask~Brasnet services by PlaTiNium~,1) $inp(enter reason~Brasnet services by PlaTiNium~,1) ..delete:cs akick # del $inp(enter nick/mask~Brasnet services by PlaTiNium~,1) .akick list:cs akick # list .- .help:cs help $inp(enter command to get help on~Brasnet services by PlaTiNium~,1) } ; menu nicklist { Brasnet .nick info:ns info $1 .- .access ..add:cs access # add $1 $inp(enter level~Brasnet services by PlaTiNium~,1) ..del: if ($?!="Are you sure you want to del $1 of list access from # $+ ?") cs access # del $1 ..del teste: if $inp(enter password~Brasnet services by PlaTiNium~?!,1) .- .ghost kill:ghost $1 .recover:ns recover $1 .release:ns release $1 .- .akick:cs akick # add $1 $inp(enter reason~Brasnet services by PlaTiNium~bye bye $+ $chr(44) the eXtreme script is the best! www.extremescript.com,1) } #spopup end