SuperScript PRO — File Browser
SuperScriptPROv1.0 / SuperScriptPROv1.0 / system / hscript10.ini
hscript10.ini — 26.53 KB — Download this file
[script]
n0=;<----------------------=º<×>קuþêr§çriþt§× PRO ßy Hell`Fire '98 © <×>º=--------------------->
n1=; -(!)- -(!)- ! DO NOT EDIT ANYTHING HERE OR THE SCRIPT WILL NOT WORK ANYMORE ! -(!)- -(!)-
n2=
n3=alias setanick {
n4= set %newnickparm $1
n5= if %newnickparm == %primnick { goto end }
n6= if ( %nnick1 == %newnickparm ) goto end
n7= if ( %nnick2 == %newnickparm ) goto end
n8= if ( %nnick3 == %newnickparm ) goto end
n9= if ( %nnick4 == %newnickparm ) goto end
n10= if ( %nnick5 == %newnickparm ) goto end
n11= if ( %nnick6 == %newnickparm ) goto end
n12= if ( %nnick7 == %newnickparm ) goto end
n13= if ( %nnick8 == %newnickparm ) goto end
n14= if ( %nnick9 == %newnickparm ) goto end
n15= if ( %nnick10 == %newnickparm ) goto end
n16= if ( %nnick1 == $null ) { set %nnick1 %newnickparm | set %lastnick ONE | goto end }
n17= if ( %nnick2 == $null ) { set %nnick2 %newnickparm | set %lastnick TWO | goto end }
n18= if ( %nnick3 == $null ) { set %nnick3 %newnickparm | set %lastnick THREE | goto end }
n19= if ( %nnick4 == $null ) { set %nnick4 %newnickparm | set %lastnick FOUR | goto end }
n20= if ( %nnick5 == $null ) { set %nnick5 %newnickparm | set %lastnick FIVE | goto end }
n21= if ( %nnick6 == $null ) { set %nnick6 %newnickparm | set %lastnick SIX | goto end }
n22= if ( %nnick7 == $null ) { set %nnick7 %newnickparm | set %lastnick SEVEN | goto end }
n23= if ( %nnick8 == $null ) { set %nnick8 %newnickparm | set %lastnick EIGHT | goto end }
n24= if ( %nnick9 == $null ) { set %nnick9 %newnickparm | set %lastnick NINE | goto end }
n25= if ( %nnick10 == $null ) { set %nnick10 %newnickparm | set %lastnick TEN | goto end }
n26= if ( %lastnick == ONE ) { unset %nnick2 | timer 1 10 setanick | goto end }
n27= if ( %lastnick == TWO ) { unset %nnick3 | timer 1 10 setanick | goto end }
n28= if ( %lastnick == THREE ) { unset %nnick4 | timer 1 10 setanick | goto end }
n29= if ( %lastnick == FOUR ) { unset %nnick5 | timer 1 10 setanick | goto end }
n30= if ( %lastnick == FIVE ) { unset %nnick6 | timer 1 10 setanick | goto end }
n31= if ( %lastnick == SIX ) { unset %nnick7 | timer 1 10 setanick | goto end }
n32= if ( %lastnick == SEVEN ) { unset %nnick8 | timer 1 10 setanick | goto end }
n33= if ( %lastnick == EIGHT ) { unset %nnick9 | timer 1 10 setanick | goto end }
n34= if ( %lastnick == NINE ) { unset %nnick10 | timer 1 10 setanick | goto end }
n35= if ( %lastnick == TEN ) { unset %nnick1 | timer 1 10 setanick | goto end }
n36= :end
n37=}
n38=alias newtitle {
n39= titlebar $ver By [- $+ %kup $+ -] $me is On-Line
n40=}
n41=; Setting own Chan
n42=alias setmychanthis {
n43= set %mychantemp %chanthis
n44= setmychan
n45=}
n46=alias setmychanother {
n47= set %mychantemp $$?="Enter name of Channel"
n48= setmychan
n49=}
n50=alias setmychan {
n51= set %mychanptemp $$?="Enter Channel Password"
n52= if ( %mychan1 == $null ) { set %mychan1 %mychantemp | set %mychanp1 %mychanptemp | echo -a $ver 14My Channel 1 set as12 %mychan1 14with the password12 %mychanp1 | goto end }
n53= if ( %mychan2 == $null ) { set %mychan2 %mychantemp | set %mychanp2 %mychanptemp | echo -a $ver 14My Channel 2 set as12 %mychan2 14with the password12 %mychanp2 | goto end }
n54= if ( %mychan3 == $null ) { set %mychan3 %mychantemp | set %mychanp3 %mychanptemp | echo -a $ver 14My Channel 3 set as12 %mychan3 14with the password12 %mychanp3 | goto end }
n55= if ( %mychan4 == $null ) { set %mychan4 %mychantemp | set %mychanp4 %mychanptemp | echo -a $ver 14My Channel 4 set as12 %mychan4 14with the password12 %mychanp4 | goto end }
n56= if ( %mychan5 == $null ) { set %mychan5 %mychantemp | set %mychanp5 %mychanptemp | echo -a $ver 14My Channel 5 set as12 %mychan5 14with the password12 %mychanp5 | goto end }
n57= echo -a $ver 14No Channel slots left
n58= unset %mychantemp
n59= :end
n60=}
n61=alias setopchanthis {
n62= set %opchantemp %chanthis
n63= setopchan
n64=}
n65=alias setopchanother {
n66= set %opchantemp $$?="Enter name of Channel"
n67= setopchan
n68=}
n69=alias setopchan {
n70= if ( %opchan1 == $null ) { set %opchan1 %opchantemp | echo -a $ver 14Op Channel 1 set as12 %opchan1 | goto end }
n71= elseif ( %opchan2 == $null ) { set %opchan2 %opchantemp | echo -a $ver 14Op Channel 2 set as12 %opchan2 | goto end }
n72= elseif ( %opchan3 == $null ) { set %opchan3 %opchantemp | echo -a $ver 14Op Channel 3 set as12 %opchan3 | goto end }
n73= elseif ( %opchan4 == $null ) { set %opchan4 %opchantemp | echo -a $ver 14Op Channel 4 set as12 %opchan4 | goto end }
n74= elseif ( %opchan5 == $null ) { set %opchan5 %opchantemp | echo -a $ver 14Op Channel 5 set as12 %opchan5 | goto end }
n75= elseif ( %opchan6 == $null ) { set %opchan6 %opchantemp | echo -a $ver 14Op Channel 6 set as12 %opchan6 | goto end }
n76= elseif ( %opchan7 == $null ) { set %opchan7 %opchantemp | echo -a $ver 14Op Channel 7 set as12 %opchan7 | goto end }
n77= elseif ( %opchan8 == $null ) { set %opchan8 %opchantemp | echo -a $ver 14Op Channel 8 set as12 %opchan8 | goto end }
n78= elseif ( %opchan9 == $null ) { set %opchan9 %opchantemp | echo -a $ver 14Op Channel 9 set as12 %opchan9 | goto end }
n79= elseif ( %opchan10 == $null ) { set %opchan10 %opchantemp | echo -a $ver 14Op Channel 10 set as12 %opchan10 | goto end }
n80= elseif ( %opchan11 == $null ) { set %opchan11 %opchantemp | echo -a $ver 14Op Channel 11 set as12 %opchan11 | goto end }
n81= elseif ( %opchan12 == $null ) { set %opchan12 %opchantemp | echo -a $ver 14Op Channel 12 set as12 %opchan12 | goto end }
n82= elseif ( %opchan13 == $null ) { set %opchan13 %opchantemp | echo -a $ver 14Op Channel 13 set as12 %opchan13 | goto end }
n83= elseif ( %opchan14 == $null ) { set %opchan14 %opchantemp | echo -a $ver 14Op Channel 14 set as12 %opchan14 | goto end }
n84= elseif ( %opchan15 == $null ) { set %opchan15 %opchantemp | echo -a $ver 14Op Channel 15 set as12 %opchan15 | goto end }
n85= elseif ( %opchan16 == $null ) { set %opchan16 %opchantemp | echo -a $ver 14Op Channel 16 set as12 %opchan16 | goto end }
n86= elseif ( %opchan17 == $null ) { set %opchan17 %opchantemp | echo -a $ver 14Op Channel 17 set as12 %opchan17 | goto end }
n87= elseif ( %opchan18 == $null ) { set %opchan18 %opchantemp | echo -a $ver 14Op Channel 18 set as12 %opchan18 | goto end }
n88= elseif ( %opchan19 == $null ) { set %opchan19 %opchantemp | echo -a $ver 14Op Channel 19 set as12 %opchan19 | goto end }
n89= elseif ( %opchan20 == $null ) { set %opchan20 %opchantemp | echo -a $ver 14Op Channel 20 set as12 %opchan20 | goto end }
n90= echo -a $ver 14No Channel slots left
n91= :end
n92= unset %opchantemp
n93=}
n94=alias setautochanthis {
n95= set %tempj %chanthis
n96= setautoj
n97=}
n98=alias setautochanother {
n99= set %tempj $$?="Enter name of Channel"
n100= setautoj
n101=}
n102=alias setautoj {
n103= if ( %autoj1 == $null ) { set %autoj1 %tempj | echo -a $ver 14Auto Join Channel 1 is12 %autoj1 | goto end }
n104= elseif ( %autoj2 == $null ) { set %autoj2 %tempj | echo -a $ver 14Auto Join Channel 2 is12 %autoj2 | goto end }
n105= elseif ( %autoj3 == $null ) { set %autoj3 %tempj | echo -a $ver 14Auto Join Channel 3 is12 %autoj3 | goto end }
n106= elseif ( %autoj4 == $null ) { set %autoj4 %tempj | echo -a $ver 14Auto Join Channel 4 is12 %autoj4 | goto end }
n107= elseif ( %autoj5 == $null ) { set %autoj5 %tempj | echo -a $ver 14Auto Join Channel 5 is12 %autoj5 | goto end }
n108= elseif ( %autoj6 == $null ) { set %autoj6 %tempj | echo -a $ver 14Auto Join Channel 6 is12 %autoj6 | goto end }
n109= elseif ( %autoj7 == $null ) { set %autoj7 %tempj | echo -a $ver 14Auto Join Channel 7 is12 %autoj7 | goto end }
n110= elseif ( %autoj8 == $null ) { set %autoj8 %tempj | echo -a $ver 14Auto Join Channel 8 is12 %autoj8 | goto end }
n111= elseif ( %autoj9 == $null ) { set %autoj9 %tempj | echo -a $ver 14Auto Join Channel 9 is12 %autoj9 | goto end }
n112= elseif ( %autoj10 == $null ) { set %autoj10 %tempj | echo -a $ver 14Auto Join Channel 10 is12 %autoj10 | goto end }
n113= else echo -a $ver 14All Auto Join Channel Slots filled
n114= :end
n115= unset %tempj
n116=}
n117=alias optimeroff {
n118= .timer1411 off
n119= .timer1412 off
n120= .timer1413 off
n121= .timer1414 off
n122= .timer1415 off
n123= .timer1416 off
n124= .timer1417 off
n125= .timer1418 off
n126= .timer1419 off
n127= .timer1420 off
n128= .timer1421 off
n129= .timer1422 off
n130= .timer1423 off
n131= .timer1424 off
n132= .timer1425 off
n133= .timer1426 off
n134= .timer1427 off
n135= .timer1428 off
n136= .timer1429 off
n137= .timer1430 off
n138=}
n139=alias optimerreset {
n140= if ( %opchan1 != $null ) && ( $me ison %opchan1 ) .timer1411 0 300 if $!me !isop %opchan1 .msg chanserv op %opchan1 $!me
n141= if ( %opchan2 != $null ) && ( $me ison %opchan2 ) .timer1412 0 300 if $!me !isop %opchan2 .msg chanserv op %opchan2 $!me
n142= if ( %opchan3 != $null ) && ( $me ison %opchan3 ) .timer1413 0 300 if $!me !isop %opchan3 .msg chanserv op %opchan3 $!me
n143= if ( %opchan4 != $null ) && ( $me ison %opchan4 ) .timer1414 0 300 if $!me !isop %opchan4 .msg chanserv op %opchan4 $!me
n144= if ( %opchan5 != $null ) && ( $me ison %opchan5 ) .timer1415 0 300 if $!me !isop %opchan5 .msg chanserv op %opchan5 $!me
n145= if ( %opchan6 != $null ) && ( $me ison %opchan6 ) .timer1416 0 300 if $!me !isop %opchan6 .msg chanserv op %opchan6 $!me
n146= if ( %opchan7 != $null ) && ( $me ison %opchan7 ) .timer1417 0 300 if $!me !isop %opchan7 .msg chanserv op %opchan7 $!me
n147= if ( %opchan8 != $null ) && ( $me ison %opchan8 ) .timer1418 0 300 if $!me !isop %opchan8 .msg chanserv op %opchan8 $!me
n148= if ( %opchan9 != $null ) && ( $me ison %opchan9 ) .timer1419 0 300 if $!me !isop %opchan9 .msg chanserv op %opchan9 $!me
n149= if ( %opchan10 != $null ) && ( $me ison %opchan10 ) .timer1420 0 300 if $!me !isop %opchan10 .msg chanserv op %opchan10 $!me
n150= if ( %opchan11 != $null ) && ( $me ison %opchan11 ) .timer1421 0 300 if $!me !isop %opchan11 .msg chanserv op %opchan11 $!me
n151= if ( %opchan12 != $null ) && ( $me ison %opchan12 ) .timer1422 0 300 if $!me !isop %opchan12 .msg chanserv op %opchan12 $!me
n152= if ( %opchan13 != $null ) && ( $me ison %opchan13 ) .timer1423 0 300 if $!me !isop %opchan13 .msg chanserv op %opchan13 $!me
n153= if ( %opchan14 != $null ) && ( $me ison %opchan14 ) .timer1424 0 300 if $!me !isop %opchan14 .msg chanserv op %opchan14 $!me
n154= if ( %opchan15 != $null ) && ( $me ison %opchan15 ) .timer1425 0 300 if $!me !isop %opchan15 .msg chanserv op %opchan15 $!me
n155= if ( %opchan16 != $null ) && ( $me ison %opchan16 ) .timer1426 0 300 if $!me !isop %opchan16 .msg chanserv op %opchan16 $!me
n156= if ( %opchan17 != $null ) && ( $me ison %opchan17 ) .timer1427 0 300 if $!me !isop %opchan17 .msg chanserv op %opchan17 $!me
n157= if ( %opchan18 != $null ) && ( $me ison %opchan18 ) .timer1428 0 300 if $!me !isop %opchan18 .msg chanserv op %opchan18 $!me
n158= if ( %opchan19 != $null ) && ( $me ison %opchan19 ) .timer1429 0 300 if $!me !isop %opchan19 .msg chanserv op %opchan19 $!me
n159= if ( %opchan20 != $null ) && ( $me ison %opchan20 ) .timer1430 0 300 if $!me !isop %opchan20 .msg chanserv op %opchan20 $!me
n160=}
n161=;Scan Channel For Shitlisted user
n162=alias cshitlist {
n163= echo -a $ver 14Checking for Shitlist Level Users on12 #
n164= set %shitcheck1 0
n165= set %shitcheck $nick(0,#)
n166= :loopcheck
n167= inc %shitcheck1 1
n168= set %shitcheck2 $nick(%shitcheck1,#)
n169= set %laddress $address(%shitcheck2,3)
n170= if ($level( %laddress ) == 100) {
n171= echo 2 -a %shitcheck2 %laddress
n172= if %shitlist != OFF {
n173= ban -u300 # %shitcheck2 3 | kick # %shitcheck2 %shitcheck2 is Blacklisted $ver
n174= }
n175= }
n176= if ( %shitcheck1 == %shitcheck ) goto end
n177= goto loopcheck
n178= :end
n179= echo -a $ver 14Shitlist Scan Finished
n180=}
n181=;Scan Channel forAutovoice Users
n182=alias check.autovoice {
n183= echo $active $ver 14Checking for Autovoice Level Users on12 #
n184= set %avcheck1 0
n185= set %avcheck $nick(0,#)
n186= :loopcheck
n187= inc %avcheck1 1
n188= set %avcheck2 $nick(%avcheck1,#)
n189= set %laddress $address(%avcheck2,3)
n190= if $level( %laddress ) == 200 {
n191= echo 2 -a %avcheck2 %laddress
n192= if %autovoice != OFF && %autovoice. [ $+ [ # ] ] != OFF { mode # +v %avcheck2 }
n193= }
n194= if ( %avcheck1 == %avcheck ) goto end
n195= goto loopcheck
n196= :end
n197= echo -a $ver 14Autovoice Scan Finished
n198= unset %avcheck1 %avcheck %avcheck2
n199=}
n200=;Checking and Setting Autovoice Status
n201=alias checkchan.autov {
n202= set %checkchan $1
n203= if %autovoice. [ $+ [ %checkchan ] ] == OFF { echo -a $ver 14 Autovoice On Join for12 %checkchan 14is12 OFF }
n204= else { echo -a $ver 14 Autovoice On Join for12 %checkchan 14is12 ON }
n205= unset %checkchan
n206=}
n207=alias setchan.autov.off { set %checkchan $1 | set %autovoice. [ $+ [ %checkchan ] ] OFF | echo -a $ver 14Autovoice On Join for12 %checkchan 14is2 OFF | unset %checkchan }
n208=alias setchan.autov.on {
n209= set %checkchan $1
n210= echo -a %autovoice. [ $+ [ %checkchan ] ]
n211= unset -a %autovoice. $+ [ # ] | echo -a unset
n212= echo -a %autovoice. $+ %checkchan
n213= unset %autovoice [ $+ . ] [ $+ %checkchan ]
n214= echo -a $ver 14 Autovoice On Join for12 %checkchan 14is12 ON
n215=}
n216=;Check User Level
n217=alias check.user.level {
n218= set %nickname $1
n219= set %laddress $address(%nickname,3)
n220= if $level( %laddress ) == 100 { echo -a $ver 14The user12 %nickname %laddress 14 has the level of12 SHITLIST 14(12 $level( %laddress ) 14) }
n221= elseif $level( %laddress ) == 200 { echo -a $ver 14 The user12 %nickname %laddress 14 has the level of12 AUTOVOICE 14(12 $level( %laddress ) 14) }
n222= else { echo -a $ver 14 The user12 %nickname %laddress 14 has the level of12 GENERAL USER 14(12 $level( %laddress ) 14) }
n223=
n224=}
n225=;Scan Channel For RelayInviter
n226=alias scanadd {
n227= set %address $1
n228= echo $active $ver 14Scanning for Address12 %address 14on12 #
n229= set %scancheck1 0
n230= set %scancheck $nick(0,#)
n231= :loopcheck
n232= inc %scancheck1 1
n233= set %scancheck2 $nick(%scancheck1,#)
n234= if ($address(%scancheck2,2) == %address) {
n235= echo -a $ver 14 Match Found for %address - $address(%scancheck2,5)
n236= }
n237= if ($address(%scancheck2,4) == %address) {
n238= echo -a $ver 14Possible Match Found for %address - $address(%scancheck2,5)
n239= }
n240= if ( %scancheck1 == %scancheck ) goto end
n241= goto loopcheck
n242= :end
n243= echo -a $ver 14Address Scan Finished
n244= unset %address %scancheck1 %scancheck %scancheck2
n245=}
n246=alias check.clones {
n247= echo -a $ver 14Checking for Clones on12 #
n248= set %clonecheck1 0
n249= set %clonecheck $nick(0,#)
n250= :loopcheck
n251= inc %clonecheck1 1
n252= if $nick(%clonecheck1,#) == $null goto end
n253= set %clonecheck2 $nick(%clonecheck1,#)
n254= set %clone.address $address(%clonecheck2,2)
n255= set %clone.address4 $address(%clonecheck2,4)
n256= set %clone.level $level( %clone.address )
n257= if %clone.level == 50 goto loopcheck
n258= if $ialchan($address(%clonecheck2,2),#,0) > 1 {
n259= set %clonenumber $ialchan($address(%clonecheck2,2),#,0)
n260= if ( %clone.address isin %TelnetClient ) { echo -a $ver 14 %clonenumber 12Telnet or CyberCafe Clients detected at [12 %clone.address 14] $ialchan(%clone.address,#,1).nick $ialchan(%clone.address,#,2).nick $ialchan(%clone.address,#,3).nick $ialchan(%clone.address,#,4).nick $ialchan(%clone.address,#,5).nick $ialchan(%clone.address,#,6).nick $ialchan(%clone.address,#,7).nick $ialchan(%clone.address,#,8).nick | goto guser }
n261= if $level(%clone.address4) == allowclone { echo -a $ver 14Allowed Clone detected at [12 %clone.address 14] %clonecheck2 | goto guser }
n262= echo -a $ver 14 %clonenumber 14clones detected at: [12 %clone.address 14] $ialchan(%clone.address,#,1).nick $ialchan(%clone.address,#,2).nick $ialchan(%clone.address,#,3).nick $ialchan(%clone.address,#,4).nick $ialchan(%clone.address,#,5).nick $ialchan(%clone.address,#,6).nick $ialchan(%clone.address,#,7).nick $ialchan(%clone.address,#,8).nick
n263= :guser
n264= .guser 50 %clonecheck2 2 | .timer 1 10 .ruser 50 %clonecheck2 2
n265= }
n266= if ( %clonecheck1 == %clonecheck ) goto end
n267= goto loopcheck
n268= :end
n269= echo -a $ver 14Clone Scan for12 # 14Finished
n270= unset %clonecheck clonecheck1 %clonecheck2 %clone.address %clone.address4 %clone.level %clonenumber
n271=}
n272=alias clone.onjoin {
n273= if me !isop # { goto end }
n274= set %clonecheck2 $1
n275= set %clone.address $address(%clonecheck2,2)
n276= set %clonenumber $ialchan($address(%clonecheck2,2),#,0)
n277= if %clonenumber > %cloneallow {
n278= if ( %clone.address isin %TelnetClient ) {
n279= { echo -a $ver 14 %clonenumber 14Telnet or CyberCafe Clients detected on # at [12 %clone.address 14] $ialchan(%clone.address,#,1).nick $ialchan(%clone.address,#,2).nick $ialchan(%clone.address,#,3).nick $ialchan(%clone.address,#,4).nick $ialchan(%clone.address,#,5).nick $ialchan(%clone.address,#,6).nick $ialchan(%clone.address,#,7).nick $ialchan(%clone.address,#,8).nick }
n280= goto end
n281= }
n282= { echo -a $ver 14 %clonenumber 14clones detected on # at: [12 %clone.address 14] $ialchan(%clone.address,#,1).nick $ialchan(%clone.address,#,2).nick $ialchan(%clone.address,#,3).nick $ialchan(%clone.address,#,4).nick $ialchan(%clone.address,#,5).nick $ialchan(%clone.address,#,6).nick $ialchan(%clone.address,#,7).nick $ialchan(%clone.address,#,8).nick }
n283= if $ialchan(%clone.address,#,1).nick isop # {
n284= { echo -a $ver 14 %clonecheck2 14was not kicked from12 # 14for cloning because2 $ialchan(%clone.address,#,1).nick 3is an Op }
n285= goto end
n286= }
n287= if $ialchan(%clone.address,#,2).nick isop # {
n288= { echo -a $ver 14 %clonecheck2 14was not kicked from12 # 14for cloning because12 $ialchan(%clone.address,#,2).nick 3is an Op }
n289= goto end
n290= }
n291= if %clonenumber > %cloneallow { autokick.nick %clonecheck2 # CLONE }
n292= }
n293= :end
n294=}
n295=alias manualkick {
n296= set %kicknick $parm1
n297= set %bantime $parm2
n298= set %kickreason $parm3
n299= set %kickchannel $parm4
n300= if %kicknick !isop %kickchannel {
n301= if %kickreason == Ad { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Please No Advertising 12 # 8------>12Advertising14 Kick $ver | goto end }
n302= elseif %kickreason == Swear { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Please not bad Words in2 # 8------>14Swear14 KicK | goto end }
n303= elseif %kickreason == Annoy { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Stop Being Annoying 8------>12Annoyance14 KicK $ver | goto end }
n304= elseif %kickreason == Flood { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Dont Flood 8------>12Flood14 Kick $ver | goto end }
n305= elseif %kickreason == AutoG { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick AutoGreets Are not Allowed on12 # 14on join or exit 8------>12AutoGreet14 Kick $ver | goto end }
n306= elseif %kickreason == ONick { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick $nick Is not Acceptable on12 # 8------>12Nick 14Kick $ver | goto end }
n307= elseif %kickreason == Hass { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Specially Only for lamers 8------>12Lamer14 Kick $ver | goto end }
n308= elseif %kickreason == Rep { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick 12One is Ok 12Two is 2 Much 12Three 8------>12Repeat 14Kick $ver | goto end }
n309= elseif %kickreason == Caps { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Excessive CAPS 8------>12CAPSLoCk 14KicK | goto end }
n310= elseif %kickreason == Sex { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick 12 $chanl 14 is NOT PERVERT hoangout Channel 8------>12Pevert 14Kick $ver | goto end }
n311= elseif %kickreason == Pers { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick 12 $chan 14 is NOT For Desperados 8------>12Desperate 14Kick $ver | goto end }
n312= elseif %kickreason == Fludme { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick You Can flood Yourself 8------>12 Major LaMeR 14Kick $ver | goto end }
n313= elseif %kickreason == English { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Dont Be RUDE SPEAK ENGLISH in $chan 8------>12Weird Language14 kick $ver | goto end }
n314= elseif %kickreason == Opbeg { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Usually When you Beg for @ you Get +b 8------>12Op Begging 14Kick $ver | goto end }
n315= elseif %kickreason == asl { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Please don't keep asking for a/s/l 3( %bantime second ban ) %version 14A/S/L-Kick $ver | goto end }
n316= elseif %kickreason == clone { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Who Does wanna Be TWO But No CLONING Please 8------>12Clone 14Kick $ver | goto end }
n317= elseif %kickreason == script { /ban -u $+ %bantime %kickchannel %kicknick 3 | /kick %kickchannel %kicknick Dont Advertise Your Stupid Script8------>12Script Hater 14Kick $ver | goto end }
n318= :end
n319= }
n320=}
n321=alias awayscan {
n322= if ($$1 == -e) {
n323= echo 3 $active $ver 14 is Scanning12 # 14For Away People!
n324= set %awaynicks 0
n325= set %awaychan #
n326= .enable #scanaway | who #
n327= }
n328=}
n329=alias scanaver {
n330= if ($$1 == -e) {
n331= describe $active $ver 14 is Scanning12 # 3For Away People!
n332= set %awaynicks 0
n333= set %awaychan #
n334= .enable #scanaver | who #
n335= }
n336=}
n337=alias mopall {
n338= if ($me !isop $chan) { echo -a $ver 14You have to be an Op to run this! | goto end }
n339= set %mopall 0
n340= :dead
n341= inc %mopall 1
n342= if (%mopall > $nick(#,0)) { goto end }
n343= if ($nick(#,%mopall) == $me) { echo -a $ver 14Mass Oping All Users!! | goto dead }
n344= mode $chan +o $nick(#,%mopall)
n345= goto dead
n346= :end
n347= unset %mopall
n348=}
n349=alias mdopall {
n350= if ($me !isop $chan) { echo -a $ver 14 You have to be an Op to run this! | goto end }
n351= set %mdopall 0
n352= :dead
n353= inc %mdopall 1
n354= if (%mdopall > $nick(#,0)) { goto end }
n355= if ($nick(#,%mdopall) == $me) { echo 2 -a Mass De-Oping All Ops!! | goto dead }
n356= if $nick(#,%mdopall) isop $chan mode $chan -o $nick(#,%mdopall)
n357= ;mode $chan -o $nick(#,%mdopall)
n358= goto dead
n359= :end
n360= unset %mdopall
n361=}
n362=alias timesay.full {
n363= time.show
n364= if ( %date.format == US ) set %date $adate
n365= if ( %date.format == UK ) set %date $date
n366= if ( %whereilive == $null ) set %whereilive the place where I live
n367= say $ver 14It is now 12 $day, %date , %showatime 14Here in12 %whereilive 14
n368=}
n369=alias timesay.online {
n370= time.show
n371= if ( %date.format == US ) set %date $adate
n372= if ( %date.format == UK ) set %date $date
n373= if ( %whereilive == $null ) set %whereilive the place where I live
n374= say $ver 14It is now 12 $+ $day, %date, %showatime 14 Here in 12 %whereilive | say $ver 14 have been logged for 12 %hours 14hours,12 %mins 14minutes, and12 %seconds 14seconds
n375=}
n376=alias time.show {
n377= %showatime = $time | %timehour = $token(1,58,%showatime) | %timetype = am
n378= if ( %timehour = 12 ) { %timetype = pm }
n379= if ( %timehour = 0 ) { %timehour = 12 }
n380= if ( %timehour > 12 ) { %timehour = %timehour - 12 | %timetype = pm }
n381= %timemin = $token(2,58,%showatime) | %showatime = %timehour $+ : $+ %timemin $+ %timetype | unset %timehour | unset %timemin | unset %timetype
n382=}
n383=alias chkrepeat {
n384= %text5 = %text4
n385= %nick5 = %nick4
n386= %text4 = %text3
n387= %nick4 = %nick3
n388= %text3 = %text2
n389= %nick3 = %nick2
n390= %text2 = %text1
n391= %nick2 = %nick1
n392= %text1 = *3
n393= %nick1 = $1
n394= %count = 0
n395= if (%nick2 == %nick1) && (%text2 == %text1) inc %count 1
n396= if (%nick3 == %nick1) && (%text3 == %text1) inc %count 1
n397= if (%nick4 == %nick1) && (%text4 == %text1) inc %count 1
n398= if (%nick5 == %nick1) && (%text5 == %text1) inc %count 1
n399= if (%count == 2) { kicker $1 $chan REPEAT }
n400= .timer 1 5 chkrepeat.r $1
n401= unset %count
n402=}
n403=alias chkrepeat.r {
n404= if (%nick5 == $1) unset %nick5 %text5
n405= else if (%nick4 == $1) unset %nick4 %text4
n406= else if (%nick3 == $1) unset %nick3 %text3
n407= else if (%nick2 == $1) unset %nick2 %text2
n408= else if (%nick1 == $1) unset %nick1 %text1
n409=}
n410=alias invite2 {
n411= if $comchan( $nick ,1) != $null {
n412= set %loopchan 0
n413= :loop
n414= inc %loopchan 1
n415= if (%invitenick ison $chan(%loopchan)) {
n416= if $me isop $chan(%loopchan) {
n417= kicker %invitenick $chan(%loopchan) INVITE
n418= goto loop
n419= }
n420= }
n421= if ($chan(%loopchan) == $null) { goto end }
n422= goto loop
n423= :end
n424= unset %loopchan
n425= }
n426=}
n427=alias rawping { set %var2 $ctime | .raw ping }
n428=alias clear.akick {
n429= set %channelname #
n430= set %akick $$?="Number to Start From ( i.e. 1)"
n431= set %akick1 $$?="Number to Finish At (i.e. 80)"
n432= %akick2 = %akick1 + 1
n433= echo -a $ver 14Clearing # Akick List from %akick to %akick1 $+ !!
n434= unset %akick1
n435= clearakick
n436=}
n437=alias clearakick {
n438= if %akick >= %akick2 goto end
n439= chanserv akick %channelname del %akick
n440= inc %akick 1
n441= clearit
n442= halt
n443= :end
n444= echo -a $ver 14Finished Clearing %channelname Akick List!!
n445= unset %akick %akick2 %channelname
n446=}
n447=alias clearit {
n448= .timer 1 5 /clearakick
n449=}