/ScriptServ

[script]
n0=on ^1:WALLOPS:*: echo -a 12* WallOps: $nick $+ > $1- | halt
n1=menu @whois {
n2=  Whois on nick:/whois $$?="enter nickname"
n3=  -
n4=  Clear:/clear
n5=
n6=}
n7=menu menubar {
n8=  Swear Filter
n9=  .Status %filterwords :/
n10=  .-
n11=  .Turn ON:/set %filterwords ON
n12=  .Turn Off:/set %filterwords OFF
n13=}
n14=raw 277:*: { 
n15=  if ( %listmemos != on) { echo 6 -a $2- | halt }
n16=  else { echo  -a memo 4 $2- }
n17=}
n18=raw 278:*: {
n19=  if ( %listmemos != on) { echo 6 -a End of Memo Listing | halt }
n20=  else { halt }
n21=}
n22=raw 270:*: { echo 6 -a Reading5 $6 6Memo number5 $2 6from5 $3 6dated5 $4 $5 | halt }
n23=raw 276:*: { echo 6 -a [MEMO] $2- | halt }
n24=raw 269:*: { echo 6 -a A NEW MEMO from $2 has just arrived. | halt }
n25=raw 264:*: { echo 6 -a Memo number $2 was successfully deleted! | halt }
n26=raw 516:*: { echo 6 -a Memo ERROR: The memo inbox for $5 is full! | halt }
n27=raw 517:*: { echo 6 -a Memo ERROR: Memo number $3 cannot be deleted, because it does not exist. | halt }
n28=raw 519:*: { echo 6 -a Memo Error: $2 is not a registered nickname! | halt }
n29=raw 275:*: { echo 6 -a There are $2 new memos waiting... | halt }
n30=on 1:start: { logo | echo 12* You are using J-§ç®îpt $jscript(version) 'The best mIRC Script'! * | echo * 4To edit your mIRC Options, click on the icon below of "Tools", or hit Alt-O. 99* | echo 12To configure all your options,go to your menubar, click on £ J-§ç®îpt £ and play around in the Da Stuffs section. }
n31=on *:connect: {
n32=  .timerjs1 0 10 set %tflines $!jscript(tflines)
n33=  .timerjs2 0 10 set %maxcpercent $!jscript(maxcpercent)
n34=  .timerjs3 0 10 set %bantime $!jscript(bantime)
n35=  .timerjs4 0 10 set %kickchans $!jscript(kickchans)
n36=  .timerjs5 0 10 set %cflines $!jscript(cflines)
n37=  .timerjs8 0 10 set %wordkick $!jscript(wordkick)
n38=  .timerjs6 0 8 set %tfprot $!jscript(tfprot)
n39=  .timerjs7 0 8 set %capskick $!jscript(capskick)
n40=  .timerjs9 0 8 set %kickwords $!jscript(kickwords)
n41=  lagcheck
n42=  startcounting
n43=}
n44=
n45=;the purpose of the above code is to speed up the scripts in this file.. if you don't understand, go down, and click on "Cancel". Even if you do understand, leave my code alone. :)
n46=
n47=on @black:join:*: { raw mode $chan +b $nick | kickinc | kick $chan $nick you is on my blacklist, be nice, and maybe I'll take you off it.. . }
n48=on @black:text:*:#: { raw mode $chan +b $nick | kickinc | kick $chan $nick you is on my blacklist, be nice, and maybe I'll take you off it.. . }
n49=raw 510:*: {
n50=  if ($me == $jscript(mynick)) { pass $jscript(mynickpass) }
n51=  if ($me == $jscript(mynick2)) { pass $jscript(mynickpass2) }
n52=  elseif ($me != $jscript(mynick2) && $me != $jscript(mynick)) { pass $jscript(mynickpass) }
n53=}
n54=on *:SNOTICE:*used a forbidden word*:if (o isin $usermode ) { echo -a 5 $4 used a bad word! }
n55=on *:SNOTICE:*and Server Admin)*: if (o isin $usermode ) { /echo -a 5 $4 is now a Server Admin. }
n56=on *:SNOTICE:*an IRC Operator (O)*: if (o isin $usermode ) { /echo -a 5 $4 is now an IRCop! }
n57=on *:SNOTICE:*is registered. You must provide*: { 
n58=  if ($me == $jscript(mynick)) { pass $jscript(mynickpass) }
n59=  if ($me == $jscript(mynick2)) { pass $jscript(mynickpass2) }
n60=  elseif ($me != $jscript(mynick2) && $me != $jscript(mynick)) { pass $jscript(mynickpass) }
n61=}
n62=on *:invite:*: { set %invitechan $chan | echo -a 6* you've been invited to $chan by $nick hit F10 to join * }
n63=on ^1000:NOTICE:^*:*: { set $remove($1,^) $2- | halt }
n64=on *:OPEN:?: {
n65=  if ($jscript(msgwav) == on) { splay msg.wav }
n66=}
n67=on ^1:TEXT:*:#: {
n68=  if (%tfprot == ON) && ($nick !isop $chan) {
n69=    %tf.cMark = $chan $+ $nick $+ $ctime
n70=    if (%tf.cMark == %tf.cLastMark) {
n71=      if (%tf.cMsgs >= %tflines) {
n72=        if ($me isop $chan ) {
n73=          if (%plusq != on) { ban -u $+ %bantime $chan $nick 3 | kickinc | kick $chan $nick Channel Flooding | echo 6 -a *** Kick/Banned $nick (Ban will be removed in %bantime seconds.) } 
n74=          else { mode $chan +q $nick | .timer 1 20 mode $chan -q $nick | echo 6 -a *** $nick has just flooded $chan $+ , and has been placed in Quiet mode for 20 seconds. }
n75=        }
n76=        else {
n77=          echo 6 -a *** $nick is flooding $chan (Since you don't have ops, this person will be ignored instead of kick/banned.)
n78=        }
n79=      }
n80=      else { inc %tf.cMsgs }
n81=    }
n82=    else { %tf.cLastMark = $chan $+ $nick $+ $ctime | %tf.cMsgs = 1 }
n83=  }
n84=  if (%wordkick == ON) && ($istok(%kickchans , $chan ,32) == $true ) && ($nick !isop $chan) {
n85=    set %kmsg $1- | set %kmsg $remove(%kmsg,?,!,.,",&,*) | set %kmsg $strip(%kmsg)
n86=    set %knick $nick | set %kchan $chan | checkwoids
n87=  }
n88=  if ($me isop $chan) && ($nick !isop $chan) && ($chr(42) $+ BLEEP $+ $chr(42) isincs $1-) {
n89=    kick $chan $nick $jscript(wkickmsg)
n90=  }
n91=  if (%capskick == ON) && ($chan isin %kickchans) && ($nick !isop $chan) {
n92=    set %capmsg $strip($1-)
n93=    set %capmsg $remove(%capmsg,!,$chr(32),?)
n94=    if ($len(%capmsg) < 20) { return }
n95=    set %msglen $len(%capmsg)
n96=    set %msgcap $removecs( %capmsg ,Q,W,E,R,T,Y,U,I,O,P,L,K,J,H,G,F,D,S,A,Z,X,C,V,B,N,M,@)
n97=    set %compare $len(%msgcap)
n98=    set %compare $calc(%msglen - %compare)
n99=    if ($calc(%compare / %msglen) > %maxcpercent && $me isop $chan) { 
n100=      if (%plusq == on) { mode $chan +q $nick | .timer 1 10 mode $chan -q $nick | echo $chan 6*** $nick used excessive Caps...  Quiet will be removed in 10 seconds | goto swearfilter }
n101=      if ($plusq != on) { kickinc | kick $chan $nick Lay off the caps talk! (your message was over $calc(%maxcpercent * 100) percent caps) }
n102=    }
n103=  }
n104=
n105=  :swearfilter
n106=  if (%filterwords == ON) {
n107=    set %check $strip($$1-)
n108=    set %lcheck $jscript(kickwords)
n109=    set %num..check $numtok(%lcheck,32)
n110=    :start
n111=    if (%num..check < 1) {
n112=      if (%filtered != $null) { echo $chan 4[Filtered!] $timestamp < $+ $nick $+ > %filtered | goto end }
n113=      else { return }
n114=    }
n115=    tokenize 32 %lcheck
n116=    if ($1 == $null) { goto end }
n117=    if ($1 isin %check ) { set %filtered $replace(%check,$1,***) }
n118=    set %lcheck $remtok( %lcheck , $1 ,1,32)
n119=    dec %num..check
n120=    goto start
n121=    :end
n122=    unset %filtered | unset %check | unset %lcheck | haltdef | halt
n123=  }
n124=}
n125=on ^1:TEXT:*:?: {
n126=  if ($nick == services) { return }
n127=  if (%tfprot == ON) {
n128=    %tf.pMark = $nick $+ $ctime
n129=    if (%tf.pMark == %tf.pLastMark) {
n130=      if (%tf.pMsgs >= %tflines) { 
n131=        ignore -pu $+ $jscript(ignoretime) $nick 8
n132=        echo 6 -a *** $nick is flooding you!!! Ignoring for $jscript(ignoretime) seconds.
n133=      }
n134=      else { inc %tf.pMsgs }
n135=    }
n136=    else { %tf.pLastMark = $nick $+ $ctime | %tf.pMsgs = 1 }
n137=  }
n138=  if (%away == ON) { notice $nick $jscript(awaymsg) [] %away.reason [] PAGE me if its important. }
n139=  if (%filterwords == ON) {
n140=    var %check = $strip($$1-)
n141=    var %lcheck = $jscript(kickwords)
n142=    var %num..check = $numtok(%lcheck,32)
n143=    :start
n144=    if (%num..check < 1) {
n145=      if (%filtered != $null) { echo $nick 4[Filtered!] $timestamp < $+ $nick $+ > %filtered | goto end }
n146=      else { return }
n147=    }
n148=    tokenize 32 %lcheck
n149=    if ($1 == $null) { goto end }
n150=    if ($1 isin %check ) { var %filtered = $replace(%check,$1,***) }
n151=    var %lcheck = $remtok( %lcheck , $1 ,1,32)
n152=    dec %num..check
n153=    goto start
n154=    :end
n155=    haltdef | halt
n156=  }
n157=}
n158=on 1:ACTION:*:#: { 
n159=  if (%tfprot == ON) && ($nick !isop $chan) {
n160=    %tf.cMark = $chan $+ $nick $+ $ctime
n161=    if (%tf.cMark == %tf.cLastMark) {
n162=      if (%tf.cMsgs >= %tlines) { 
n163=        if ($me isop $chan) { ban -u $+ %bantime $chan $nick 3 | kickinc | kick $chan $nick Channel Flooding } 
n164=        echo 6 -a *** $nick is flooding $chan 
n165=      }
n166=      else { inc %tf.cMsgs }
n167=    }
n168=    else { %tf.cLastMark = $chan $+ $nick $+ $ctime | %tf.cMsgs = 1 }
n169=  }
n170=  if (%wordkick == ON) && ($istok(%kickchans , $chan ,32) == $true ) && ($nick !isop $chan) {
n171=    set %msg $1- | %msg = $remove(%msg,?,!,.,",&,*) | %msg = $strip(%msg)
n172=    set %knick $nick | set %kchan $chan | checkwoids $1-
n173=  }
n174=  if (%capskick == ON) && ($chan isin %kickchans) && ($nick !isop $chan) {
n175=    set %capmsg $strip($1-)
n176=    set %capmsg $remove(%capmsg,!,$chr(32),?)
n177=    if ($len(%capmsg) < 20) { return }
n178=    set %msglen $len(%capmsg)
n179=    set %msgcap $removecs( %capmsg ,Q,W,E,R,T,Y,U,I,O,P,L,K,J,H,G,F,D,S,A,Z,X,C,V,B,N,M,@)
n180=    set %compare $len(%msgcap)
n181=    set %compare $calc(%msglen - %compare)
n182=    if ($calc(%compare / %msglen) > %maxcpercent) && ($me isop $chan || a isin $usermode) { 
n183=      if (%plusq == on) { mode $chan +q $nick | .timer 1 10 mode $chan -q $nick | echo $chan 6*** $nick used excessive Caps...  Quiet will be removed in 10 seconds | goto swearfilter }
n184=      if ($plusq != on) { kickinc | kick $chan $nick Lay off the caps talk! (your message was over $calc(%maxcpercent * 100) percent caps) }
n185=    }
n186=  }
n187=  :swearfilter
n188=  if (%filterwords == ON) {
n189=    var %check = $strip($$1-)
n190=    var %lcheck = $jscript(kickwords)
n191=    var %num..check = $numtok(%lcheck,32)
n192=    :start
n193=    if (%num..check < 1) {
n194=      if (%filtered != $null) { echo $chan 4[Filtered!] $timestamp $color(action) $+ * $nick %filtered | goto end }
n195=      else { return }
n196=    }
n197=    tokenize 32 %lcheck
n198=    if ($1 == $null) { goto end }
n199=    if ($1 isin %check ) { var %filtered = $replace(%check,$1,***) }
n200=    var %lcheck = $remtok( %lcheck , $1 ,1,32)
n201=    dec %num..check
n202=    goto start
n203=    :end
n204=    haltdef | halt
n205=  }
n206=
n207=}
n208=on 1:ACTION:*:?: { 
n209=  if (%tfprot == ON) {
n210=    %tf.pMark = $nick $+ $ctime
n211=    if (%tf.pMark == %tf.pLastMark) {
n212=      if (%tf.pMsgs >= %tflines) { 
n213=        ignore -pu $+ $jscript(ignoretime) $nick 3
n214=        echo 6 -a *** $nick is flooding you!!! Ignoring for $jscript(ignoretime) seconds.
n215=      }
n216=      else { inc %tf.pMsgs }
n217=    }
n218=    else { %tf.pLastMark = $nick $+ $ctime | %tf.pMsgs = 1 }
n219=  }
n220=  if (%away == ON) { notice $nick $jscript(awaymsg) [] %away.reason [] PAGE me if its important. }
n221=}
n222=on 1:NOTICE:*:#: { 
n223=  if (%tfprot == ON) && ($nick !isop $chan) {
n224=    %tf.cMark = $chan $+ $nick $+ $ctime
n225=    if (%tf.cMark == %tf.cLastMark) {
n226=      if (%tf.cMsgs >= %tflines) { 
n227=        if ($me isop $chan) { ban -u $+ %bantime $chan $nick 3 | kickinc | kick $chan $nick Channel Flooding } 
n228=        echo 6 -a *** $nick is flooding $chan 
n229=      }
n230=      else { inc %tf.cMsgs }
n231=    }
n232=    else { %tf.cLastMark = $chan $+ $nick $+ $ctime | %tf.cMsgs = 1 }
n233=  }
n234=  if (%wordkick == ON) && ($istok(%kickchans , $chan ,32) == $true ) && ($nick !isop $chan) {
n235=    set %msg $1- | %msg = $remove(%msg,?,!,.,",&,*) | %msg = $strip(%msg)
n236=    set %knick $nick | set %kchan $chan | checkwoids $1-
n237=  }
n238=  if (%capskick == ON) && ($me isop $chan) && ($chan isin %kickchans) && ($nick !isop $chan) {
n239=    set %capmsg $strip($1-)
n240=    set %msglen $len(%capmsg)
n241=    if (%msglen < 30) { return }
n242=    set %msgcap $removecs(%capmsg,Q,W,E,R,T,Y,U,I,O,P,L,K,J,H,G,F,D,S,A,Z,X,C,V,B,N,M)
n243=    set %compare $len(%msgcap)
n244=    set %compare $calc(%msglen - %compare)
n245=    if ($calc(%compare / %msglen) > %maxcpercent) {
n246=      if ($plusq != on) { kickinc | kick $chan $nick Lay off the caps talk! (your message was over $calc(%maxcpercent * 100) percent caps) }
n247=      if (%plusq == on) { mode $chan +q $nick | .timer 1 10 mode $chan -q $nick | echo $chan 6*** $nick used excessive Caps...  Quiet will be removed in 10 seconds }
n248=    }
n249=  }
n250=}
n251=on 1:NOTICE:*:?: { 
n252=  if (%tfprot == ON) {
n253=    %tf.pMark = $nick $+ $ctime
n254=    if (%tf.pMark == %tf.pLastMark) {
n255=      if (%tf.pMsgs >= %tflines) { 
n256=        ignore -nu $+ $jscript(ignoretime) $nick 3
n257=        echo 6 -a *** $nick is flooding you!!! Ignoring for $jscript(ignoretime) seconds.
n258=      }
n259=      else { inc %tf.pMsgs }
n260=    }
n261=    else { %tf.pLastMark = $nick $+ $ctime | %tf.pMsgs = 1 }
n262=  }
n263=}
n264=ctcp 1:*: {
n265=  if ($jscript(cfprot) == ON) {
n266=    %cf.mark = $nick $+ $ctime
n267=    if (%cf.mark == %cf.lastmark) {
n268=      if (%cf.msgs >= %cflines) { 
n269=        ignore -tu $+ $jscript(ignoretime) *!*@*.*
n270=        echo 6 -a *** $nick is ctcp flooding you!!! Ignoring for $jscript(ignoretime) seconds.
n271=        halt
n272=      }
n273=      else { inc %cf.msgs }
n274=    }
n275=    else { %cf.lastmark = $nick $+ $ctime | %cf.msgs = 1 }
n276=  }
n277=  if ($1 == PAGE) { splay $mircdir $+ \sounds\page.wav | notice $nick 4yeah, 5What 6ya 7want? | echo 6 -a *** $nick is paging you ( $2- ). | haltdef }
n278=  if ($1 == JS) { ctcpreply $nick $1 4 $me has 12J-§ç®îpt 52.1!! | echo 4 -a [ $+ $nick JS] $2- }
n279=  if ($1 == CC) { ctcpreply $nick $1 4 $me has 12J-§ç®îpt5 2.1 13 It's soo MUCH better than CC - check it out at 1http://jsscript.cjb.net }
n280=  if ($1 == ustats) { ctcpreply $nick $1 my $j.s stats are: %ustats }
n281=  if ($1 == version) { ctcpreply $nick $1 $ctcpversion }
n282=  if ($1 == option) { ctcpreply $nick $1 12 $me is too smart to use "option"... 4 $me has $j.s !!!! | page $nick 4 $me 5uses12 $j.s !!! }
n283=  if ($1 == SOUND && $nick != $me) {
n284=    if ($jscript(autoget) == ON) {
n285=      if ($right($2,3) == wav) && ($exists( [ $wavedir $+ $2 ] ) == $false) { msg $nick ! $+ $nick $2 }
n286=      elseif ($right($2,3) == mid) && ($exists( [ $mididir $+ $2 ] ) == $false) { msg $nick ! $+ $nick $2 }
n287=    }
n288=    if ($right($2,3) == wav) && ($exists($wavedir $+ $2) != $false) { splay $2 }
n289=    if ($right($2,3) == mid) && ($exists($wavedir $+ $2) != $false) { splay $2 }
n290=  }
n291=  if ($1 == MP3 && $nick != $me) {
n292=    if ($right($2-,3) == mp3) && ($exists($mp3dir $+ $2-) != $false) { $jscript(mp3play) $findfile($mp3dir,$2-,1) }
n293=
n294=  }
n295=}
n296=on 1:CTCPREPLY:*: { 
n297=  if ($jscript(cfprot) == ON) {
n298=    %cf.mark = $nick $+ $ctime
n299=    if (%cf.mark == %cf.lastmark) {
n300=      if (%cf.msgs >= %cflines) { 
n301=        ignore -pu $+ $jscript(ignoretime) $nick 8
n302=        echo 6 -a *** $nick is ctcp flooding you!!! Ignoring for $jscript(ignoretime) seconds.
n303=      }
n304=      else { inc %cf.msgs }
n305=    }
n306=    else { %cf.lastmark = $nick $+ $ctime | %cf.msgs = 1 }
n307=  }
n308=}
n309=on 1:JOIN:#: {
n310=  if ($jscript(jpprot) == ON) && ($nick !isop $chan) {
n311=    %jf.Mark = $chan $+ $nick $+ $ctime
n312=    if (%jf.Mark == %jf.LastMark) {
n313=      if ($me isop $chan) { ban -u $+ %bantime $chan $nick 3 | kickinc | kick $chan $nick Join Flooding }
n314=      echo 6 -a *** $nick is join flooding $chan
n315=      halt
n316=    }
n317=    else { %jf.LastMark = $chan $+ $nick $+ $ctime }
n318=  }
n319=  if ($jscript(joinwav) == ON) { splay join.wav }
n320=  if (($jscript(autogreet) == ON) && ($chan isin $jscript(agchans))) { notice $nick $read(agmsg.txt) }
n321=}
n322=on *:nick: if ($newnick == $me) { rlevel -r 1000 | guser 1000 $me 9 }
n323=#banprot off
n324=on @1000:BAN:#:if ($nick != $me) { .raw mode $chan -b $banmask | .raw mode $chan -o $nick | ban $chan $nick 3 | kickinc | kick $chan $nick Hey, guess what.  You shouldn't ban me. }
n325=#banprot end
n326=alias remerror { set %remove $1 | dialog -mr remerror remerror }
n327=dialog remerror {
n328=  title "Remove File"
n329=  size -1 -1 235 140
n330=  Text "" , 4 , 3 3 225 39
n331=  Button "NO" , 5 , 20 84 60 21 , cancel
n332=  Button "YES" , 6 , 129 84 60 21 , ok
n333=}
n334=on *:dialog:remerror:*:*: {
n335=  if ($devent == init) { did -a remerror 4 Are you really sure you want to delete the file ' $+ %remove $+ ' ? }
n336=  if ($dname == about && $did == 6 && $devent == sclick) { remove -q %remove | unset %remove }
n337=  if ($dname == about && $did == 5) { unset %remove }
n338=}
n339=alias jsabout dialog -mr about about 
n340=dialog About {
n341=  title "About J-§ç®îpt"
n342=  size -1 -1 130 115
n343=  option dbu
n344=
n345=  tab "mIRC", 1, 5 1 120 105
n346=  tab "Creator", 2
n347=  tab "Contact", 3
n348=  tab "Copyright", 4
n349=
n350=  button  "J-§ç®îpt is built on mIRC 6.03", 11, 25 40 80 34, tab 1
n351=  button  "^Jerry created J-§ç®îpt", 12, 25 40 80 34, tab 2
n352=  button  "jerry@whatevah.com", 13, 25 40 80 34, tab 3
n353=  button  "J-§ç®îpt is © 1999 - 2003 Jerry Horn", 14, 15 40 100 34, ok tab 4
n354=
n355=}
n356=on *:dialog:about:sclick:*: { 
n357=  if ($dname == about && $did == 12) { url -an http://www.whatevah.com }
n358=  if ($dname == about && $did == 13) { run mailto:jerry@whatevah.com }
n359=}
n360=; The Settings dialog
n361=alias settings dialog -m Settings Settings 
n362=dialog Settings {
n363=  title "J-§ç®îpt Settings"
n364=  size -1 -1 500 325
n365=  Text "Primary Nick" , 4 , 10 10 91 20
n366=  Edit "" , 5 , 100 10 95 20, autohs
n367=  Text "Alternate Nick:" , 6 , 200 10 95 35
n368=  Edit "" , 7 , 290 10 95 20, autohs
n369=  Button "Save" , 8 , 450 0 50 40
n370=  Button "OK" , 9 , 460 60 40 30 , ok
n371=  Button "Cancel" , 10 , 455 110 45 30 , cancel
n372=  Text "Favorite Channels" , 11 , 10 70 60 35
n373=  Edit "" , 12 , 90 75 200 20, autohs
n374=  Text "Caps Kick" , 13 , 300 78 70 20
n375=  Edit "" , 14 , 376 76 40 20
n376=  Text "Nick Pass:" , 15 , 10 40 80 20
n377=  Edit "" , 16 , 93 40 95 20, autohs pass
n378=  Text "Nick Pass:" , 17 , 193 40 80 20
n379=  Edit "" , 18 , 265 40 95 20, autohs
n380=  Text "Max percent" , 19 , 300 100 85 20
n381=  Edit "" , 20 , 376 100 30 20
n382=  Text "Auto +v" , 21 , 10 130 50 20
n383=  Edit "" , 22 , 90 130 40 20
n384=  Text "Kick Chans" , 23 , 10 103 80 20
n385=  Edit "" , 24 , 90 100 200 20, autohs
n386=  Text "Usermodes:" , 25 , 190 130 90 20
n387=  Edit "" , 26 , 280 130 100 20, autohs
n388=  Text "Ctcp Trigger" , 27 , 10 160 80 20
n389=  Edit "" , 28 , 110 160 30 20
n390=  Text "Text Trigger" , 29 , 180 160 80 20
n391=  Edit "" , 30 , 270 160 20 20
n392=  Text "lines" , 31 , 295 162 40 20
n393=  Text "Text Flood" , 45 , 340 162 75 20
n394=  Edit "" , 46 ,  415 160 40 20
n395=  Text "Ctcp Flood" , 47 , 130 190 80 20
n396=  Edit "" , 48 , 200 190 40 20
n397=  Text "Join\Part Flood" , 49 , 248 190 150 20
n398=  Edit "" , 50 , 350 190 40 20
n399=  Text "Ban Prot" , 32 , 10 190 60 20
n400=  Edit "" , 33 , 70 190 40 20
n401=  Box "Sounds" , 34 , 10 220 250 70
n402=  Text "On Msg:" , 35 , 20 235 50 20
n403=  Edit "" , 36 , 70 233 35 20
n404=  Text "On Join:" , 37 , 120 235 50 20
n405=  Edit "" , 38 , 170 233 35 20
n406=  Text "Auto-Get:" , 39 , 20 260 65 20
n407=  Edit "" , 40 , 90 260 40 20
n408=}
n409=on *:dialog:Settings:*:*: {
n410=  if (init == $devent && $did == 0 ) {
n411=    did -a Settings 5 $jscript(mynick)
n412=    did -a Settings 7 $jscript(mynick2)
n413=    did -a Settings 12 $jscript(favchans)
n414=    did -a Settings 14 $jscript(capskick)
n415=    did -a Settings 16 $jscript(mynickpass)
n416=    did -a Settings 18 $jscript(mynickpass2)
n417=    did -a Settings 20 $calc(100 * $jscript(maxcpercent))
n418=    did -a Settings 22 $jscript(autovoice)
n419=    did -a Settings 24 $jscript(kickchans)
n420=    did -a Settings 26 $jscript(usermodes)
n421=    did -a Settings 28 $jscript(cflines)
n422=    did -a Settings 30 $jscript(tflines)
n423=    did -a Settings 33 $jscript(banprot)
n424=    did -a Settings 36 $jscript(msgwav)
n425=    did -a Settings 38 $jscript(joinwav)
n426=    did -a Settings 40 $jscript(autoget)
n427=    did -a Settings 46 $jscript(tfprot)
n428=    did -a Settings 48 $jscript(cfprot)
n429=    did -a Settings 50 $jscript(jpprot)
n430=  }
n431=  if (sclick == $devent && $did == 8) {
n432=    jsset mynick $did(Settings,5)
n433=    jsset mynick2 $did(Settings,7)
n434=    jsset favchans $did(Settings,12)
n435=    jsset capskick $did(Settings,14)
n436=    jsset mynickpass $did(Settings,16)
n437=    jsset mynickpass2 $did(Settings,18)
n438=    jsset maxcpercent $calc($did(Settings,20) / 100)
n439=    jsset autovoice $did(Settings,22)
n440=    jsset kickchans $did(Settings,24)
n441=    jsset usermodes $did(Settings,26)
n442=    jsset cflines $did(Settings,28)
n443=    jsset tflines $did(Settings,30)
n444=    jsset banprot $did(Settings,33)
n445=    jsset msgwav $did(Settings,36)
n446=    jsset joinwav $did(Settings,38)
n447=    jsset autoget $did(Settings,40)
n448=    jsset tfprot $did(Settings,46)
n449=    jsset cfprot $did(Settings,48)
n450=    jsset jpprot $did(Settings,50)
n451=  }
n452=}
n453=on 1:DNS: {
n454=  if ($raddress == $null) { echo 12 -a Unable to resolve $address | haltdef | return }
n455=  if ($nick != $null) { goto nick }
n456=  if ($nick == $null) { goto nonick }
n457=  :nick
n458=  echo -a 7,7-12,99 <Nick> $nick | haltdef | return
n459=  :nonick
n460=  echo -a 4,4-12,99 <IP Number> $iaddress | echo -a 5,5-12,99 <Hostname> $naddress | haltdef | return
n461=}
n462=on 1:kick:#: if ($knick == $me)  { echo 10 $active You have been 4kicked from $chan by  by  $+ $nick $+  ( $+ $1- $+ ) }
n463=on *:op:#: if ($opnick == $me)  { echo 10 $active You have been 7opped on $chan  by  $+ $nick $+  }
n464=on *:serverop:#: if ($opnick == $me) { echo 10 $active You have been 4opped on $chan  by  $+ $nick $+  }
n465=on 1:DCC CHAT:echo 7 $active *** You just got a 4DCC CHAT request from  $+ $nick $+ 
n466=alias PError {
n467=  set %dialog.error $$1-
n468=  dialog -m PError PError
n469=}
n470=on *:dialog:PError:*:*: {
n471=  if (init == $devent) { did -r $dname 5 | did -a $dname 5 %dialog.error | .timer 1 1 unset %dialog.error }
n472=}
n473=dialog PError {
n474=  title "Ooopsie!"
n475=  option dbu
n476=  size -1 -1 100 80
n477=  edit "" , 5 , 10 6 80 50, read multi autovs
n478=  Button "Rats" , 7 , 28 68 20 10 , cancel
n479=  Button "OK" , 6 , 60 68 20 10 , ok
n480=}
n481=alias .help.  {
n482=  set %dialog.help $$1-
n483=  dialog -m Help Help
n484=}
n485=on *:dialog:Help:*:*: {
n486=  if (init == $devent) { did -r $dname 5 | did -a $dname 5 %dialog.help | .timer 1 1 unset %dialog.help }
n487=}
n488=dialog Help {
n489=  title "J-§ç®îpt Help!"
n490=  option dbu
n491=  size -1 -1 150 100
n492=  edit "" , 5 , 3 3 143 80, read multi autovs
n493=  Button "OK, I think I understand, now" , 6 , 30 85 80 12 , ok
n494=}
n495=
n496=alias editswear { dialog -m Swear Swear }
n497=dialog Swear {
n498=  title "Swear Kicker"
n499=  size -1 -1 360 320
n500=  List 4 , 3 91 110 238
n501=  List 5 , 248 91 110 238
n502=  Edit "Kick Word" , 6 , 216 64 138 21
n503=  Edit "Kick Channels" , 7 , 6 64 123 21
n504=  Button "Del" , 14 , 301 43 40 18
n505=  Button "Add" , 8 , 216 43 48 18
n506=  Button "Close" , 10 , 132 271 72 30 , ok
n507=  Button "Del" , 15 , 9 43 42 18
n508=  Button "Add" , 12 , 94 43 33 18
n509=  Text "Double click on the word/channel you want to edit. To ADD a word or channel, just enter it in, and click on Save." , 13 , 3 3 351 30
n510=}
n511=on *:dialog:Swear:*:*: {
n512=  if (init == $devent && $did == 0 ) { did -r $dname 6 | did -r $dname 7 | fillswearkickchan | fillswearkickwords   }
n513=  if (dclick == $devent && $did == 5) {
n514=    tokenize 32 $read(temp.kickwords.txt, nt, $did(5).sel )
n515=    did -o $dname 6 1 $1
n516=  }
n517=  if (dclick == $devent && $did == 4) {
n518=    tokenize 32 $read(temp.kickwords.txt, nt, $did(4).sel )
n519=    did -o $dname 7 1 $1
n520=  }
n521=  if (sclick == $devent && $did == 14) { jsset kickwords $remtok($jscript(kickwords),$did(6),1,32) | fillswearkickwords }
n522=  if (sclick == $devent && $did == 15) { jsset kickchans $remtok($jscript(kickchans),$did(7),1,32) | fillswearkickchan }
n523=  if (sclick == $devent && $did == 8) { 
n524=    if ($findtok($jscript(kickwords),$did(6),1,32) == $null) {
n525=      set %temp.kickwords $jscript(kickwords) $did(6) 
n526=      jsset kickwords $sorttok(%temp.kickwords,32) 
n527=      unset %temp.kickwords 
n528=      fillswearkickwords 
n529=    }
n530=    if ($findtok($jscript(kickwords),$did(6),1,32) != $null) { perror That word is already in the list! }
n531=  }
n532=  if (sclick == $devent && $did == 12) {
n533=    if ($findtok($jscript(kickchans),$did(7),1,32) == $null) {
n534=      jsset kickchans $jscript(kickchans) $did(7) 
n535=      fillswearkickchan 
n536=    }
n537=    if ($findtok($jscript(kickchans),$did(7),1,32) != $null) { perror That channel is already in the list! }
n538=  }
n539=}
n540=
n541=alias -l fillswearkickchan {
n542=  .remove -q temp.kickchans.txt
n543=  set %tempkick.chans $numtok($jscript(kickchans),32)
n544=  set %tempkick.chans.write 1
n545=  :write
n546=  write temp.kickchans.txt $gettok($jscript(kickchans),%tempkick.chans.write,32)
n547=  dec %tempkick.chans
n548=  inc %tempkick.chans.write
n549=  if (%tempkick.chans != 0) { goto write }
n550=
n551=  did -r Swear 4
n552=  did -r Swear 7
n553=  set %dialog.current 1
n554=  :next
n555=  unset %dialog.temp
n556=  %dialog.temp = $read(temp.kickchans.txt, nt, %dialog.current)
n557=  if (%dialog.current <= $lines(temp.kickchans.txt)) {
n558=    /tokenize 32 %dialog.temp
n559=    /did -o Swear 4 %dialog.current $lower($1)
n560=    inc %dialog.current 1
n561=    goto next
n562=  }
n563=  unset %dialog.temp
n564=}
n565=
n566=alias -l fillswearkickwords {
n567=  .remove -q temp.kickwords.txt
n568=  set %tempkick.words $numtok($jscript(kickwords),32)
n569=  set %tempkick.words.write 1
n570=  :write
n571=  write temp.kickwords.txt $gettok($jscript(kickwords),%tempkick.words.write,32)
n572=  dec %tempkick.words
n573=  inc %tempkick.words.write
n574=  if (%tempkick.words != 0) { goto write }
n575=
n576=  did -r Swear 5
n577=  did -r Swear 6
n578=  set %sdialog.current 1
n579=  :next
n580=  unset %sdialog.temp
n581=  %sdialog.temp = $read(temp.kickwords.txt, nt, %sdialog.current)
n582=  if (%sdialog.current <= $lines(temp.kickwords.txt)) {
n583=    /tokenize 32 %sdialog.temp
n584=    /did -o Swear 5 %sdialog.current $lower($1)
n585=    inc %sdialog.current 1
n586=    goto next
n587=  }
n588=  ; unset %sdialog.temp
n589=}
n590=
n591=;
n592=;************* TRANSLATOR ****************************
n593=;  Written by cHaOs
n594=;  Last Update 11/23/1999
n595=;
n596=on 1:sockread:trans:{
n597=  if ($sockerr > 0) { sockclose trans | echo 6 -a *** Read Error | return }
n598=  sockread -f %trans.buffer
n599=  echo -s %trans.buffer
n600=  if (<textarea rows="3" wrap=virtual cols="56" name="q"> isin %trans.buffer) { 
n601=    set %trans.out $remove(%trans.buffer,<textarea rows="3" wrap=virtual cols="56" name="q">)
n602=  }
n603=}
n604=
n605=on 1:sockopen:trans:{
n606=  if ($sockerr > 0) { echo 6 -a *** Error: Server connection error. | return }
n607=  sockwrite -n trans %trans.query
n608=}
n609=
n610=on 1:sockclose:trans:{ 
n611=  echo 6 -a *** Translated: %trans.out 
n612=  ; unset %trans.*
n613=}
n614=
n615=alias trans {
n616=  if  ( $1 !isin -ef-eg-ei-ep-es-fe-ge-ie-pe-se ) || ( $2- == $null ) {
n617=    echo 6 -a *** Error: Usage: /trans -<lang1><lang2> <phrase>
n618=    echo 6 -a *** e = English, f = French, g = German, 
n619=    echo 6 -a *** i = Italian, p = Portuguese, s = Spanish
n620=    echo 6 -a *** Example: /trans -es Hello 
n621=  }
n622=  else {
n623=    if ( $sock(trans).rq == $null ) { 
n624=      if ($1 == -ef) { set %trans.flag en_fr }
n625=      if ($1 == -eg) { set %trans.flag en_de }
n626=      if ($1 == -ei) { set %trans.flag en_it }
n627=      if ($1 == -ep) { set %tran.flag en_pt }
n628=      if ($1 == -es) { set %trans.flag en_es }
n629=      if ($1 == -fe) { set %trans.flag fr_en }
n630=      if ($1 == -ge) { set %trans.flag de_en }
n631=      if ($1 == -ie) { set %trans.flag it_en }
n632=      if ($1 == -pe) { set %trans.flag pt_en }
n633=      if ($1 == -se) { set %trans.flag es_en }
n634=
n635=      url -an http://babelfish.altavista.com/tr?doit=done&tt=urltext&urltext= $+ $replace($2-,$chr(32),+) $+ &lp= $+ %trans.flag
n636=      halt
n637=
n638=      set %trans.query GET http://babelfish.altavista.com/tr?doit=done&tt=urltext&urltext= $+ $replace($2-,$chr(32),+) $+ &lp= $+ %trans.flag
n639=      echo 6 -a *** Translating ... 
n640=      .sockopen trans babelfish.altavista.com 80 
n641=    }
n642=    else { echo 4 -a One query at a time only! Wait for the previous one to finish (port is still open) | halt }
n643=  }
n644=}
n645=
n646=
n647=;*************************** WHOIS *************************
n648=; Written by ¢HåÖs
n649=; Last Updated 8/23/99
n650=;
n651=on 1:sockread:domain:{
n652=  if ($sockerr > 0) { sockclose domain | echo 6 -a *** Read Error | return }
n653=  :read
n654=  sockread -f %internic.buffer
n655=  if ($pos(%internic.buffer,<A href,1) != $null) { set %temp $calc($pos(%internic.buffer,<A href,1) - 2) | set %internic.buffer $left(%internic.buffer,%temp) }
n656=  if (%internic.info == ext) {
n657=    if ($left(%internic.buffer,6) == </pre>) { sockclose domain | return }
n658=  }
n659=  else { if (%internic.counter = 3) { sockclose domain | return }
n660=  }
n661=  if (%internic.sw == ON) && (%internic.buffer != $null) {   inc %internic.counter 1 | echo 6 -a * %internic.buffer }
n662=  if ($left(%internic.buffer,10) == Registrant) { set %internic.sw ON | set %internic.counter 0 }
n663=}
n664=on 1:sockopen:domain:{
n665=  if ($sockerr > 0) { echo 4 -a ERROR! Server connection error... | return }
n666=  sockwrite -n domain %internic.query
n667=}
n668=
n669=on 1:sockclose:domain:echo 6 -a *** Connection closed
n670=
n671=alias ..domain {
n672=  set %internic.sw OFF | set %internic.counter 0
n673=  set %internic.query GET http://www.networksolutions.com/cgi-bin/whois/whois/?STRING= $+ $$1 $+ &x=38&y=16
n674=  set %internic.info $2
n675=  echo 6 -a *** Performing search on $$1 ... 
n676=  .sockopen domain 216.168.224.69 80
n677=}
n678=
n679=;******************** DICTIONARY *********************
n680=; Originally written by VirusX (on April 20 1999)
n681=; Last Updated 8/23/99
n682=;
n683=alias dict {
n684=  if ($left($$1,1) == -) { set %dict.query DEFINE $remove($$1,-) " $+ $$2- $+ " | echo 6 -a *** %dict.query }
n685=  else { set %dict.query DEFINE wn " $+ $$1- $+ " }
n686=  set %dictword $$1
n687=  sockclose dict
n688=  echo 6 -a *** Please wait...
n689=  sockopen dict dict.org 2628
n690=}
n691=
n692=on *:sockopen:dict:{
n693=  if ($sockerr) { echo 6 -a Cannot connect to server. | sockclose dict | return }
n694=}
n695=on *:sockread:dict:{
n696=  sockwrite -n dict %dict.query
n697=  :beginning
n698=  sockread %temp1
n699=  if ($sockbr == 0) {
n700=    return
n701=  }
n702=  if (%temp1 == %dictword) { echo 6 -a *** Definition for %dictword ... | goto beginning }
n703=  if ($left(%temp1,3) == 150) { goto beginning }
n704=  if ($left(%temp1,3) == 151) { goto beginning }
n705=  if ($left(%temp1,3) == 220) { goto beginning }
n706=  if ($left(%temp1,3) == 250) { echo 6 -a *** End of definition. | sockclose dict | halt }
n707=  if ($left(%temp1,3) == 552) { echo 6 -a *** Word not found. | sockclose dict | halt }
n708=  if ($left(%temp1,1) == .) { goto beginning }
n709=  if (%temp1 == $null) { goto beginning }
n710=  echo 6 -a *** %temp1
n711=  goto beginning
n712=}
n713=on *:sockclose:dict:{ unset %dictword | unset %temp1 }