SuperScript PRO — File Browser
SuperScriptPROv1.0 / SuperScriptPROv1.0 / system / hscript5.ini
hscript5.ini — 16.6 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=on @1:text:*:#: {
n3= if $nick !isop # {
n4= :FUCK
n5= if %swear == OFF { goto WWWADS }
n6= if (fuck isin $strip($1-)) || (cunt isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan BADSWEAR | goto end }
n7= if (bitch isin $strip($1-)) || (slut isin $strip($1-)) || (horny isin $strip($1-)) || (horney isin $strip($1-)) || (hornie isin $strip($1-)) || (asshole isin $strip($1-)) || (arsehole isin $strip($1-)) || (whore isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan SWEAR | goto end }
n8= if (nigga isin $strip($1-)) || (nigger isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan RACIST | goto end }
n9= :WWWADS
n10= if %wwwad == OFF { goto REPEAT }
n11= if (www. isin $1-) || (http:// isin $1-) || (ftp:// isin $1-) {
n12= if $level($address($nick,3)) == 7 { goto second }
n13= if $level($address($nick,3)) == 8 { kicker $nick $chan WWWAD | .ruser 8 $nick 3 | goto end }
n14= { echo -a $ver $nick 3advertised his/her Web Address on2 # 3... next time he will be warned! }
n15= { .guser 7 $nick 3 | .timer 1 600 .ruser 7 $nick 3 | goto REPEAT }
n16= :second
n17= { .ruser 7 $nick 3 | notice $nick This is a warning! Please do not advertise your Web Address again or you will be kicked. Web Site ADD warning | echo -a $ver WWW Warning sent to12 $nick 14on12 # | .guser 8 $nick 3 | .timer 1 420 .ruser 8 $nick 3 | splay $mircdirsounds\kick.wav | goto REPEAT }
n18= }
n19= :REPEAT
n20= if %repeat != OFF { chkrepeat $nick $chan $strip($1-) }
n21= :ALTF4
n22= if %altf == OFF { goto TEXTLENGTH }
n23= if (alt isin $1-) && (f4 isin $1-) { kicker $nick $chan ALT-F4 | goto end }
n24= if (ctrl isin $1-) && (alt isin $1-) && (del isin $1-) { kicker $nick $chan CTRL-ALT-DEL | goto end }
n25= :TEXTLENGTH
n26= .set %textlength $len($strip($parms))
n27= if %tlengtdetect == OFF { goto CAPKICK }
n28= if %textlength >= 350 {
n29= if $level($address($nick,3)) == 5 { kicker $nick $chan LENGTH2 | goto end }
n30= { kicker $nick $chan LENGTH | .guser 5 $nick 3 | .timer 1 300 .ruser 5 $nick 3 | goto end }
n31= }
n32= :CAPKICK
n33= if %capdetect == OFF { goto end }
n34= { set %totalcaps 0 | set %checkcaps 0 }
n35= :checknext
n36= .inc %checkcaps 1
n37= if %checkcaps >= %textlength { goto finished }
n38= if $asc($mid(%checkcaps, 1, $strip($1-))) isnum 65-90 { .inc %totalcaps 1 }
n39= goto checknext
n40= :finished
n41= { %perc.caps1 = %totalcaps / %textlength | set %perc.caps %perc.caps1 * 100 }
n42= if ( %perc.caps >= 80 ) && ( %textlength >= 10 ) {
n43= if $level($address($nick,3)) == 2 { kicker $nick $chan CAPLOCK | .unset %tLen %tCaps %tcntCaps | .ruser 2 $nick 3 | goto end }
n44= else { .notice $nick The use of excessive CAPS quite rude. Please do not use CAPS or you will be kicked. EXCESSIVE CAPS WARNING $ver | echo -a $ver Caps Lock Warning sent to2 $nick 14on12 # | .guser 2 $nick 3 | .timer 1 600 .ruser 2 $nick 3 | goto TEXTFLOOD }
n45= }
n46= if ( %perc.caps >= 40 ) && ( %textlength >= 20 ) {
n47= if $level($address($nick,3)) == 2 { kicker $nick $chan CAPLOCK | .unset %tLen %tCaps %tcntCaps | .ruser 2 $nick 3 | goto end }
n48= else { .notice $nick The use of excessive CAPS quite rude. Please do not use CAPS or you will be kicked. EXCESSIVE CAPS WARNING $ver | echo -a $ver Caps Lock Warning sent to12 $nick 14on12 # | .guser 2 $nick 3 | .timer 1 600 .ruser 2 $nick 3 | goto TEXTFLOOD }
n49= }
n50= :TEXTFLOOD
n51= if %tfdetect == OFF { goto end }
n52= if %tflood. [ $+ [ # ] ] == $nick && %tflood.line. [ $+ [ # ] ] >= 5 && $level($address($nick,3)) == 40 { kicker $nick $chan TFLOOD2 | goto end }
n53= elseif %tflood. [ $+ [ # ] ] == $nick && %tflood.line. [ $+ [ # ] ] >= 5 { kicker $nick $chan TFLOOD | .guser 40 $nick 3 | .timer 1 600 ruser 40 $nick 3 | goto end }
n54= elseif %tflood. [ $+ [ # ] ] == $nick { inc %tflood.line. [ $+ [ # ] ] 1 | goto end }
n55= { set %tflood. [ $+ [ # ] ] $nick | set %tflood.line. [ $+ [ # ] ] 1 | .timer 1 10 unset %tflood. [ $+ [ # ] ] %tflood.line. [ $+ [ # ] ] }
n56= }
n57= :ADVERTISING
n58= if %taddetect == off { goto END }
n59= if $chr(35) isin $strip($parms) {
n60= if $chan isin $strip($parms) { goto END }
n61= { .set %tadvcheck 0 | .set %tcntletters 0 | .set %pospound $pos($strip($parms), $chr(35)) }
n62= if %pospound == $len($strip($parms)) { goto END }
n63= :tadcheck
n64= { .inc %tadvcheck 1 | .inc %pospound 1 }
n65= if %tadvcheck == 4 { unset %tadvcheck %tcntletters %pospound | goto END }
n66= else {
n67= if (%tcntletters == 2) {
n68= if $level($address($nick,3)) == 6 { kicker $nick $chan ADVERT2 | goto end }
n69= { kicker $nick $chan ADVERT | unset %tadvcheck %tcntletters %pospound | .guser 6 $nick 3 | .timer 1 600 .ruser 6 $nick 3 | goto end }
n70= }
n71= else {
n72= if $asc($mid(%pospound, 1, $strip($parms))) isnum 65-90 || $asc($mid(%pospound, 1, $strip($parms))) isnum 97-122 || $asc($mid(%pospound, 1, $strip($parms))) isnum 48-57 { inc %tcntletters 1 | goto tadcheck }
n73= }
n74= }
n75= }
n76= :end
n77= .unset %textlength %totalcaps %checkcaps %perc.caps %perc.caps1
n78=}
n79=on @1:action:*:#: {
n80= if $nick !isop # {
n81= :FUCK
n82= if %swear == OFF { goto WWWADS }
n83= if (fuck isin $strip($1-)) || (cunt isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan BADSWEAR | goto end }
n84= if (bitch isin $strip($1-)) || (slut isin $strip($1-)) || (horny isin $strip($1-)) || (horney isin $strip($1-)) || (hornie isin $strip($1-)) || (asshole isin $strip($1-)) || (arsehole isin $strip($1-)) || (whore isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan SWEAR | goto end }
n85= if (nigga isin $strip($1-)) || (nigger isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan RACIST | goto end }
n86= :WWWADS
n87= if %wwwad == OFF { goto REPEAT }
n88= if (www. isin $1-) || (http:// isin $1-) || (ftp:// isin $1-) {
n89= if $level($address($nick,3)) == 7 { goto second }
n90= if $level($address($nick,3)) == 8 { kicker $nick $chan WWWAD | .ruser 8 $nick 3 | goto end }
n91= { echo -a $ver 14 $nick 12advertised his/her Web Address on12 # 14... next time he will be warned! }
n92= { .guser 7 $nick 3 | .timer 1 600 .ruser 7 $nick 3 | goto REPEAT }
n93= :second
n94= { .ruser 7 $nick 3 | notice $nick This is a warning! Please do not advertise your Web Address again or you will be kicked. $ver 14Website warning | echo -a $ver WWW Warning sent to12 $nick 14on12 # | .guser 8 $nick 3 | .timer 1 420 .ruser 8 $nick 3 | goto REPEAT }
n95= }
n96= :REPEAT
n97= if %repeat != OFF { chkrepeat $nick $chan $strip($1-) }
n98= :ALTF4
n99= if %altf == OFF { goto TEXTLENGTH }
n100= if (alt isin $1-) && (f4 isin $1-) { kicker $nick $chan ALT-F4 | goto end }
n101= if (ctrl isin $1-) && (alt isin $1-) && (del isin $1-) { kicker $nick $chan CTRL-ALT-DEL | goto end }
n102= :TEXTLENGTH
n103= .set %textlength $len($strip($parms))
n104= if %tlengtdetect == OFF { goto CAPKICK }
n105= if %textlength >= 350 {
n106= if $level($address($nick,3)) == 5 { kicker $nick $chan LENGTH2 | goto end }
n107= { kicker $nick $chan LENGTH | .guser 5 $nick 3 | .timer 1 300 .ruser 5 $nick 3 | goto end }
n108= }
n109= :CAPKICK
n110= if %capdetect == OFF { goto end }
n111= { set %totalcaps 0 | set %checkcaps 0 }
n112= :checknext
n113= .inc %checkcaps 1
n114= if %checkcaps >= %textlength { goto finished }
n115= if $asc($mid(%checkcaps, 1, $strip($1-))) isnum 65-90 { .inc %totalcaps 1 }
n116= goto checknext
n117= :finished
n118= { %perc.caps1 = %totalcaps / %textlength | set %perc.caps %perc.caps1 * 100 }
n119= if ( %perc.caps >= 80 ) && ( %textlength >= 10 ) {
n120= if $level($address($nick,3)) == 2 { kicker $nick $chan CAPLOCK | .unset %tLen %tCaps %tcntCaps | .ruser 2 $nick 3 | goto end }
n121= else { .notice $nick The use of excessive CAPS quite rude. Please do not use CAPS or you will be kicked. EXCESSIVE CAPS WARNING $ver | echo -a $ver Caps Lock Warning sent to12 $nick 14on12 # | .guser 2 $nick 3 | .timer 1 600 .ruser 2 $nick 3 | goto TEXTFLOOD }
n122= }
n123= if ( %perc.caps >= 40 ) && ( %textlength >= 20 ) {
n124= if $level($address($nick,3)) == 2 { kicker $nick $chan CAPLOCK | .unset %tLen %tCaps %tcntCaps | .ruser 2 $nick 3 | goto end }
n125= else { .notice $nick The use of excessive CAPS quite rude. Please do not use CAPS or you will be kicked. EXCESSIVE CAPS WARNING $ver | echo -a $ver Caps Lock Warning sent to12 $nick 14on12 # | .guser 2 $nick 3 | .timer 1 600 .ruser 2 $nick 3 | goto TEXTFLOOD }
n126= }
n127= :TEXTFLOOD
n128= if %tfdetect == OFF { goto end }
n129= if %tflood. [ $+ [ # ] ] == $nick && %tflood.line. [ $+ [ # ] ] >= 5 && $level($address($nick,3)) == 40 { kicker $nick $chan TFLOOD2 | goto end }
n130= elseif %tflood. [ $+ [ # ] ] == $nick && %tflood.line. [ $+ [ # ] ] >= 5 { kicker $nick $chan TFLOOD | .guser 40 $nick 3 | .timer 1 600 ruser 40 $nick 3 | goto end }
n131= elseif %tflood. [ $+ [ # ] ] == $nick { inc %tflood.line. [ $+ [ # ] ] 1 | goto end }
n132= { set %tflood. [ $+ [ # ] ] $nick | set %tflood.line. [ $+ [ # ] ] 1 | .timer 1 10 unset %tflood. [ $+ [ # ] ] %tflood.line. [ $+ [ # ] ] }
n133= }
n134= :ADVERTISING
n135= if %taddetect == off { goto end }
n136= if $chr(35) isin $strip($parms) {
n137= if $chan isin $strip($parms) { goto end }
n138= { .set %tadvcheck 0 | .set %tcntletters 0 | .set %pospound $pos($strip($parms), $chr(35)) }
n139= if %pospound == $len($strip($parms)) { goto end }
n140= :tadcheck
n141= { .inc %tadvcheck 1 | .inc %pospound 1 }
n142= if %tadvcheck == 4 { unset %tadvcheck %tcntletters %pospound | goto end }
n143= else {
n144= if (%tcntletters == 2) {
n145= if $level($address($nick,3)) == 6 { kicker $nick $chan ADVERT2 | goto end }
n146= { kicker $nick $chan ADVERT | unset %tadvcheck %tcntletters %pospound | .guser 6 $nick 3 | .timer 1 600 .ruser 6 $nick 3 | goto end }
n147= }
n148= else {
n149= if $asc($mid(%pospound, 1, $strip($parms))) isnum 65-90 || $asc($mid(%pospound, 1, $strip($parms))) isnum 97-122 || $asc($mid(%pospound, 1, $strip($parms))) isnum 48-57 { inc %tcntletters 1 | goto tadcheck }
n150= }
n151= }
n152= }
n153= :end
n154= .unset %textlength %totalcaps %checkcaps %perc.caps %perc.caps1
n155=}
n156=on @1:notice:*:#: {
n157= if $nick !isop # {
n158= :FUCK
n159= if %swear == OFF { goto WWWADS }
n160= if (fuck isin $strip($1-)) || (cunt isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan BADSWEAR | goto end }
n161= if (bitch isin $strip($1-)) || (slut isin $strip($1-)) || (horny isin $strip($1-)) || (horney isin $strip($1-)) || (hornie isin $strip($1-)) || (asshole isin $strip($1-)) || (arsehole isin $strip($1-)) || (whore isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan SWEAR | goto end }
n162= if (nigga isin $strip($1-)) || (nigger isin $strip($1-)) && (.wav !isin $1-) && (.mid !isin $1-) && (.MP3 !isin $1-) && (.RAM !isin $1-) { kicker $nick $chan RACIST | goto end }
n163= :WWWADS
n164= if %wwwad == OFF { goto REPEAT }
n165= if (www. isin $1-) || (http:// isin $1-) || (ftp:// isin $1-) {
n166= if $level($address($nick,3)) == 7 { goto second }
n167= if $level($address($nick,3)) == 8 { kicker $nick $chan WWWAD | .ruser 8 $nick 3 | goto end }
n168= { echo -a $ver $nick 14advertised Web Address on12 # 14 next time he will be warned! }
n169= { .guser 7 $nick 3 | .timer 1 600 .ruser 7 $nick 3 | goto REPEAT }
n170= :second
n171= { .ruser 7 $nick 3 | notice $nick This is a warning! Please do not advertise your Web Address again or you will be kicked. $ver 14Website warning | echo -a $ver 14 WWW Warning sent to12 $nick 14on12 # | .guser 8 $nick 3 | .timer 1 420 .ruser 8 $nick 3 | goto REPEAT }
n172= }
n173= :REPEAT
n174= if %repeat != OFF { chkrepeat $nick $chan $strip($1-) }
n175= :ALTF4
n176= if %altf == OFF { goto TEXTLENGTH }
n177= if (alt isin $1-) && (f4 isin $1-) { kicker $nick $chan ALT-F4 | goto end }
n178= if (ctrl isin $1-) && (alt isin $1-) && (del isin $1-) { kicker $nick $chan CTRL-ALT-DEL | goto end }
n179= :TEXTLENGTH
n180= .set %textlength $len($strip($parms))
n181= if %tlengtdetect == OFF { goto CAPKICK }
n182= if %textlength >= 350 {
n183= if $level($address($nick,3)) == 5 { autokick.nick $nick $chan LENGTH2 | goto end }
n184= { kicker $nick $chan LENGTH | .guser 5 $nick 3 | .timer 1 300 .ruser 5 $nick 3 | goto end }
n185= }
n186= :CAPKICK
n187= if %capdetect == OFF { goto end }
n188= { set %totalcaps 0 | set %checkcaps 0 }
n189= :checknext
n190= .inc %checkcaps 1
n191= if %checkcaps >= %textlength { goto finished }
n192= if $asc($mid(%checkcaps, 1, $strip($1-))) isnum 65-90 { .inc %totalcaps 1 }
n193= goto checknext
n194= :finished
n195= { %perc.caps1 = %totalcaps / %textlength | set %perc.caps %perc.caps1 * 100 }
n196= if ( %perc.caps >= 80 ) && ( %textlength >= 10 ) {
n197= if $level($address($nick,3)) == 2 { kicker $nick $chan CAPLOCK | .unset %tLen %tCaps %tcntCaps | .ruser 2 $nick 3 | goto end }
n198= else { .notice $nick The use of excessive CAPS quite rude. Please do not use CAPS or you will be kicked. EXCESSIVE CAPS WARNING $ver | echo -a $ver Caps Lock Warning sent to12 $nick 14on12 # | .guser 2 $nick 3 | .timer 1 600 .ruser 2 $nick 3 | goto TEXTFLOOD }
n199= }
n200= if ( %perc.caps >= 40 ) && ( %textlength >= 20 ) {
n201= if $level($address($nick,3)) == 2 { kicker $nick $chan CAPLOCK | .unset %tLen %tCaps %tcntCaps | .ruser 2 $nick 3 | goto end }
n202= else { .notice $nick The use of excessive CAPS quite rude. Please do not use CAPS or you will be kicked. EXCESSIVE CAPS WARNING $ver | echo -a $ver Caps Lock Warning sent to2 $nick 3on2 # | .guser 2 $nick 3 | .timer 1 600 .ruser 2 $nick 3 | goto TEXTFLOOD }
n203= }
n204= :TEXTFLOOD
n205= if %tfdetect == OFF { goto end }
n206= if %tflood. [ $+ [ # ] ] == $nick && %tflood.line. [ $+ [ # ] ] >= 5 && $level($address($nick,3)) == 40 { kicker $nick $chan TFLOOD2 | goto end }
n207= elseif %tflood. [ $+ [ # ] ] == $nick && %tflood.line. [ $+ [ # ] ] >= 5 { kicker $nick $chan TFLOOD | .guser 40 $nick 3 | .timer 1 600 ruser 40 $nick 3 | goto end }
n208= elseif %tflood. [ $+ [ # ] ] == $nick { inc %tflood.line. [ $+ [ # ] ] 1 | goto end }
n209= { set %tflood. [ $+ [ # ] ] $nick | set %tflood.line. [ $+ [ # ] ] 1 | .timer 1 10 unset %tflood. [ $+ [ # ] ] %tflood.line. [ $+ [ # ] ] }
n210= }
n211= :ADVERTISING
n212= set %version $ver
n213= if %taddetect == off { goto end }
n214= if $chr(35) isin $strip($parms) {
n215= if $chan isin $strip($parms) { goto end }
n216= { .set %tadvcheck 0 | .set %tcntletters 0 | .set %pospound $pos($strip($parms), $chr(35)) }
n217= if %pospound == $len($strip($parms)) { goto end }
n218= :tadcheck
n219= { .inc %tadvcheck 1 | .inc %pospound 1 }
n220= if %tadvcheck == 4 { unset %tadvcheck %tcntletters %pospound | goto end }
n221= else {
n222= if (%tcntletters == 2) {
n223= if $level($address($nick,3)) == 6 { kicker $nick $chan ADVERT2 | goto end }
n224= { kicker $nick $chan ADVERT | unset %tadvcheck %tcntletters %pospound | .guser 6 $nick 3 | .timer 1 600 .ruser 6 $nick 3 | goto end }
n225= }
n226= else {
n227= if $asc($mid(%pospound, 1, $strip($parms))) isnum 65-90 || $asc($mid(%pospound, 1, $strip($parms))) isnum 97-122 || $asc($mid(%pospound, 1, $strip($parms))) isnum 48-57 { inc %tcntletters 1 | goto tadcheck }
n228= }
n229= }
n230= }
n231= :end
n232= .unset %textlength %totalcaps %checkcaps %perc.caps %perc.caps1
n233=}