/ScriptServ

[aliases]
n0=showdict { say http://www.dict.org/bin/Dict?Form=Dict1&Query= $+ $replace($$1-,$chr(32),+) $+ &Strategy=*&Database=wn }
n1=web { url -an http://www.google.com/search?q= $+ $replace($$1-,$chr(32),+) }
n2=
n3=patr {
n4=  var %temp = 1, %max = $len($1-), %char, %string, %color = 12 4 15, %cs = $rand(1,$numtok(%color,32))
n5=  while (%temp <= %max) {
n6=    %char = $mid($1-,%temp,1) | if (%char isnum) %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,1 $+ %char
n7=    elseif (%char = $chr(32)) { inc %temp | %char = $mid($1-,%temp,1) | %string = %string  $+ $gettok(%color,%cs,32) $+ %char }
n8=    else { %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,1 $+ %char }
n9=    inc %temp | inc %cs | if (%cs > $numtok(%color,32)) %cs = 1
n10=  }
n11=  if ($isid) return  $+ %string | else msg # %string
n12=}
n13=
n14=rev {
n15=  var %old = $strip($1-), %temp = $len(%old), %char, %string
n16=  while (%temp > 0) {
n17=    %char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
n18=    else { %string = %string $+ %char } | dec %temp 
n19=  }
n20=  if ($isid) return %string | else msg # %string
n21=}
n22=
n23=search {
n24=  if ($exists(@BibleSearch) == $false) { window -ek @BibleSearch }
n25=  tokenize 32 $1-
n26=  set %search.phrase * $+ $1- $+ *
n27=  if ($1 == $null) { aline -p @BibleSearch 5Please specify search parameters below. | return }
n28=  set %search.num 0
n29=  set %search.found 0
n30=  if (%search.limit == $null) { set %search.limit 15 }
n31=  aline -p @BibleSearch 1,1* Initializing Search for " %search.phrase " 1,1*
n32=  set %search.books $findfile($mircdirkjv,*.txt,0,1)
n33=  goto nextbook
n34=
n35=  :loop
n36=  if (%search.found > %search.limit) { aline -p @BibleSearch 1,1* Search results reached %search.limit ...  please use a more detailed search 1,1* | goto end }
n37=  inc %search.line 1
n38=
n39=  set %search.temp $read(%search.book, w, %search.phrase, %search.line)
n40=  if ($readn == 0) { goto nextbook }
n41=  else { set %search.line $readn }
n42=
n43=  if (%search.phrase iswm %search.temp) { set %biblehow aline -p @BibleSearch | kjv $nopath(%search.book) %search.temp | inc %search.found | goto loop }
n44=  else { goto loop }
n45=
n46=  :nextbook
n47=  inc %search.num 1
n48=  if (%search.num > %search.books) {
n49=    set %biblehow aline -p @BibleSearch
n50=    if (%search.found == 0) { aline -p @BibleSearch 1,1* Search completed in all Books... No Results found. 1,1* | goto end }
n51=    else { aline -p @BibleSearch 1,1* Search completed in all Books...   %search.found Results found 1,1* | goto end }
n52=  }
n53=  set %search.book $findfile($mircdirkjv,*.txt, %search.num ,1) | set %search.lines $lines(%search.book) | set %search.line 0
n54=  if ($read(%search.book, w, %search.phrase, 0) == $null) { goto nextbook }
n55=  else { set %search.line $calc($readn - 1) | goto loop }
n56=  :end
n57=  unset %search.num | unset %search.phrase | unset %search.bo* | unset %search.li* | unset %search.foun* | unset %biblehow
n58=}
n59=
n60=; reverse lookup..  supplies a name and address for phone number
n61=phone {
n62=  if ($2 == $null) { echo 5 -a *** The correct format is /phone areacode number .  ie, /phone 410 5551212 }
n63=  url -an http://www.whitepages.com/resi_qry_results.pl?fid=p&ac= $+ $$1 $+ &p= $+ $$2
n64=}
n65=
n66=pl {
n67=  tokenize 32 $$1-
n68=  var %hmany = $numtok($1-,32)
n69=  var %plcur = 1
n70=  :loop
n71=  if (%plcur > %hmany) { goto end }
n72=  var %cur = $gettok($1-,%plcur,32)
n73=
n74=  var %left = $left(%cur,1)
n75=  var %right = $right(%cur,-1)
n76=
n77=  var %temp = %right $+ %left $+ ay
n78=  var %piglatin = %piglatin %temp
n79=  inc %plcur
n80=  goto loop
n81=  :end
n82=  say %piglatin
n83=}
n84=
n85=echotimers {
n86=  var %timers = $timer(0)
n87=  var %current.timer = 1
n88=  :loop
n89=  if (%current.timer > %timers) { halt }
n90=  echo -a Found timer: $timer( %current.timer ) (Timer Command: $timer(%current.timer).com $+ )
n91=  inc %current.timer
n92=  goto loop
n93=}
n94=
n95=
n96=js echo 4You have just asked the computers in this room to find out if anybody has J-§ç®îpt | ctcp # js
n97=f1 nick $jscript(mynick) | .timer 1 1 .msg nickserv identify  $jscript(mynickpass)
n98=sf1 nick $jscript(mynick2) | .timer 1 1 .msg nickserv identify  $jscript(mynickpass2)
n99=f2 j $jscript(favchans)
n100=f3 asciitalk $$?="ASCII-TALK"
n101=sf3 rev $$?="Words to reverse:"
n102=cf3 pl $$?="Words to Pig Latin-ify:"
n103=f4 {
n104=  if ($chr(35) !isin $active) { echo -a 4Not on a channel! | return }
n105=  if ($me isop # || a isin $usermode) onotice # 2[-4 $+ # OPs2-]12 $$?="ChanOp Msg:"
n106=}
n107=
n108=sf4 amsg $$?="All window msg:"
n109=cf4 return
n110=f5 globops $$?="Enter Global Oper Msg:"
n111=sf5 locops $$?="Enter Local Oper Msg:"
n112=cf5 chatops $$?="Enter ChatOp Msg:"
n113=f7 { if (%away != ON) { 
n114=    if (%online == NO) { echo -a YOU ARE OFFLINE!  you can't set yourself to away | halt }
n115=    set %away.reason $$?="Reason:" | away 12[4 %away.reason 12]
n116=    ame $jscript(awaymsg) [] %away.reason []  Leave a msg. 
n117=    ;nick $me $+ - $+ $jscript(awaynick)
n118=    set %away ON
n119=    set %away.time $ctime
n120=  }
n121=  else { echo 6 -a * Your already set away. }
n122=}
n123=cf7 { if (%away == ON) {
n124=    if (%online == NO) { nick $remove($me,-afk) | goto unset }
n125=    set %away.reason $$?="What message to give for coming back??"
n126=    ;nick $remove($me,- $+ $jscript(awaynick))
n127=    away | set %away.time $calc($ctime - %away.time)
n128=    csecs %away.time | ame is back!!  -=- %away.reason -=- $+ . [] [ Gone: %result ]
n129=    :unset
n130=    unset %away.* | set %away off
n131=  }
n132=  else { echo 6 -a * Your not away, silly. }
n133=}
n134=sf7 { if (%away == ON) { 
n135=    if (%online == NO) {  nick $remove($me,-afk) | goto unset }
n136=    ;nick $remove($me,- $+ $jscript(awaynick)) 
n137=    away | set %away.time $calc($ctime - %away.time)
n138=    csecs %away.time
n139=    ame is back from [] %away.reason $+ . [] [ Gone: %result ]
n140=    :unset
n141=    unset %away.* | set %away off
n142=  }
n143=  else { echo 6 -a * Your not away }
n144=}
n145=f8 jserv prots textflood on
n146=sf8 jserv prots textflood off
n147=f10 join %invitechan
n148=f11 { splay $shortfn( [ $$file="Select a sound file" $mircdirsounds\*.* ] ) }
n149=cf11 aamp
n150=sf11 { splay -p $shortfn( [ $$file="Select a MP3 file" $mp3dir $+ \*.mp3 ] ) }
n151=f12 splay stop
n152=ustats say 4 Stats ->> 12 %ustats 4 <<- Stats
n153=edit run notepad $$1-
n154=slap /me 1slaps4 $1 1around the channel with4 $2-
n155=id .msg nickserv identify $$1
n156=ipkill set %ipkillno 1 | .enable #ipkill | set %ipreason $$2- | who $$1
n157=longip echo 1 -s  *** Resolved $$1 to $longip($$1)
n158=verping set %time2 $ctime | .enable #verping | version $$1
n159=oper oper $1- | / $+ %popchk
n160=who echo -s *** Beginning of WHO list ( $+ $$1 $+ ) | set %a 0 | who $$1
n161=whois { if (%iwhois == ON) whois $$1 $$1 | else whois $$1 }
n162=banlist { echo 12 -s *** Ban List for $$1 *** | mode $$1 b }
n163=connect .raw connect $1-
n164=cs msg chanserv $$1-
n165=ns {
n166=  if ($2 == drop && $3 == $null) { echo -a NickServ DROP attempted.  use /raw ns drop instead | halt }
n167=  msg nickserv $$1-
n168=}
n169=op mode # +ooo $1-
n170=deop mode # -ooo $1-
n171=die echo -a Command Disabled!!!  use the /raw method, if you know how. | halt
n172=restart echo -a Command Disabled!!!  use the /raw method, if you know how. | halt
n173=
n174=c clear
n175=colors echo 1,0 0 0,1 1 0,2 2 0,3 3 0,4 4 0,5 5 0,6 6 0,7 7 1,8 8 1,9 9 0,10 10 1,11 11 0,12 12 0,13 13 0,14 14 1,15 15 
n176=colortalk { if ($jscript(ctalk) == ON) {  jsset ctalk OFF | echo 4* ColorTalk is now Off hit Ctrl-K to do it manually type /colors to see the list of colors * }
n177=  elseif ($jscript(ctalk) == OFF) { jsset ctalk ON | echo 4* ColorTalk is now ON all messages in PC and in Channel with be the color you set * }
n178=  halt
n179=}
n180=csecs { set %csecs.sec $$1
n181=  if ($$1 > 60) { set %csecs.min $int($calc($$1 / 60)) | set %csecs.sec $calc($$1 - (60 * %csecs.min)) }
n182=  if (%csecs.min > 60) { set %csecs.hr $int($calc(%csecs.min / 60)) | set %csecs.min $calc(%csecs.min - (60 * %csecs.hr)) }
n183=  if (%csecs.hr != $null) { set %result %csecs.hr $+ h %csecs.min $+ m %csecs.sec $+ s }
n184=  elseif (%csecs.min != $null) { set %result %csecs.min $+ m %csecs.sec $+ s }
n185=  else { set %result %csecs.sec $+ s }
n186=  unset %csecs.*
n187=}
n188=j join $$*
n189=gone f7
n190=back sf7
n191=america { say 2 $+ $read america.txt }
n192=dumblaw {
n193=  if ($2 == $null) || ($2 !isnum) { .play -t $+ $rand(0,440) $1 dumblaws.txt 100 }
n194=  if ($2 != $null && $2 isnum) { .play -t $+ $2 $1 dumblaws.txt 100 }
n195=}
n196=saycolors say 1,0 0 0,1 1 0,2 2 0,3 3 0,4 4 0,5 5 0,6 6 0,7 7 1,8 8 1,9 9 0,10 10 1,11 11 0,12 12 0,13 13 0,14 14 1,15 15 
n197=
n198=logo {
n199=  window -okpa @JScript 100 100 337 230
n200=  drawpic @JScript 0 0 gl3.jpg
n201=  .timer 1 2 /window -c @JScript
n202=}
n203=k { 
n204=  if (# == $null) { echo 6 -a *** This command must be typed in a channel. | halt }
n205=  if ($1 == $null) { echo 6 -a *** You must specify a nickname. | halt }
n206=  if ($2 == $null) { echo 6 -a *** You must specify a reason. | halt }
n207=  kick # $1-
n208=}
n209=kick {
n210=  if ($me !isop $chan && a !isin $usermode) { echo $colour(info) -a Error: You must have OP powers in order to kick! | return }
n211=  if ($1 == $null) { echo $colour(info) -a oh, you goof...  you forgot the rest of the command..  /kick #channel nickname reason | return }
n212=  if ($2 == $null) {
n213=    if ($chr(35) !isin $1) { tokenize 32 # $1- | kick $1- | logkick $1- | return }
n214=    if ($chr(35) isin $1) { echo $colour(info) -a Error in kick command..  you must give a channel AND a nickname..  /kick #channel nickname reason | return }
n215=  }
n216=  if ($3 != $null) { kick $1- | logkick $1- }
n217=}
n218=logkick {
n219=  ; un comment the next line if you want to log your kicks...
n220=  ;  write kicklog.txt %kicknum $adate $timestamp $address($2,5) $1-
n221=}
n222=kb { 
n223=  if (# == $null) { echo 6 -a *** This command must be typed in a channel. | halt }
n224=  if ($1 == $null) { echo 6 -a *** You must forgot a nickname!! | halt }
n225=  if ($2 == $null) { echo 6 -a *** You forgot a reason!! | halt }
n226=  raw -q kick # $1 : $+ $2 | ban $1 3 | kickinc | logkick $1-
n227=}
n228=kickinc {
n229=  set %kicknum $jscript(kick.counter)
n230=  inc %kicknum 1
n231=  jsset kick.counter %kicknum
n232=}
n233=title { background -l tb.jpg | titlebar $$1- | set %titlebar $$1- }
n234=titlebar {
n235=  if ($left($1,1) != @) {  titlebar - $j.s $jscript(version) $1- }
n236=  else titlebar $1-
n237=}
n238=lusers2 { set %lag.check $ticks | .enable #lusers | lusers }
n239=custom { window -b $$1 %sys.x %sys.y %sys.w %sys.h system.txt | aline -hp $$1 $$2- }
n240=system { window -b @System %sys.x %sys.y %sys.w %sys.h system.txt | aline @system $$1- }
n241=wGlobOps { window -eb @GlobOps %wGlobOps.x %wGlobOps.y %wGlobOps.w %wGlobOps.h /globops globops.txt | aline -hp @Globops $$1- }
n242=wLocOps { window -eb @LocOps %wLocOps.x %wLocOps.y %wLocOps.w %wLocOps.h /locops locops.txt | aline -hp @Locops $$1- }
n243=wChatOps { window -eb @ChatOps %wChatOps.x %wChatOps.y %wChatOps.w %wChatOps.h /chatops chatops.txt | aline -hp @ChatOps $$1- }
n244=bgcheck
n245=bgcheck2
n246=page ctcp $$1 page $2-
n247=refresh
n248=refresh2
n249=remove {
n250=  if ($1 == -q) { remove $2 }
n251=  if ($1 != -q) { remerror $1- }
n252=}
n253=startcounting {
n254=  if (%connect.started == $null) { set %connect.started $adate at $asctime(h:nn:ss tt) }
n255=  set %connect.start $ticks
n256=}
n257=stopcounting {
n258=  set %connect.stop $ticks
n259=  set %connect.current $calc(%connect.stop - %connect.start)
n260=  if (%connect.total == $null) { set %connect.total %connect.current }
n261=  else { set %connect.total $calc(%connect.total + %connect.current) }
n262=}
n263=totaltime {
n264=  set %connect.temp $calc($ticks - %connect.start)
n265=  set %connect.temp $calc($calc(%connect.temp + %connect.total) / 1000)
n266=  /me has been connected to an IRC Server for a total of $duration(%connect.temp) since %connect.started
n267=  echo -a time.. $round($calc(%connect.temp / 60),2)
n268=  unset %connect.temp
n269=}
n270=
n271=allchans { 
n272=  unset %allchans.out
n273=  set %allchans.count $chan(0) | set %allchans.num 0
n274=  :loop
n275=  if (%allchans.num >= %allchans.count) { .timer 1 1 unset %allchans.* | return %allchans.out }
n276=  else { inc %allchans.num | set %allchans.out %allchans.out $chan(%allchans.num) | goto loop }
n277=}
n278=allquery { 
n279=  unset %allquery.out
n280=  set %allquery.count $query(0) | set %allquery.num 0
n281=  :loop
n282=  if (%allquery.num >= %allquery.count) { .timer 1 1 unset %allquery.* | return %allquery.out }
n283=  else { inc %allquery.num | set %allquery.out %allquery.out $query(%allquery.num) | goto loop }
n284=}
n285=allopen return $allchans $allquery
n286=
n287=silencekick {
n288=  if ($1 == off) { set %silencekick OFF | unset %silenced %skickTarget | echo 6 -a *** Silence Kick is now OFF }
n289=  elseif ($1 == set) { write -l2 msgs.txt $2- | echo 6 -a *** SilenceKick Message has been set: $read -nl2 msgs.txt }
n290=  else {
n291=    if (# == $null) { echo 6 -a *** Error: You must type this in a channel. }
n292=    if ($1 ison #) { set %silencekick ON | set %silenced $1 | msg # $read -l2 msgs.txt }
n293=    else { echo 6 -a *** Error: The nickname must be in the current channel. }
n294=  }
n295=}
n296=modstats {
n297=  echo 6 -s -=[ Mode Settings ]=-
n298=  echo 6 -s * AutoGreet: $jscript(autogreet) 
n299=  echo 6 -s * CapsKick: $jscript(capskick)
n300=  echo 6 -s * Join Sound: $jscript(joinwav)
n301=  echo 6 -s * Msg Sound: $jscript(msgwav)
n302=  echo 6 -s * SilenceKick: $jscript(silencekick)
n303=  echo 6 -s * UserModes: $jscript(usermodes)
n304=  echo 6 -s * WordKick: $jscript(wordkick)
n305=}
n306=protstats {
n307=  echo 6 -s -=[ Protection Settings ]=-
n308=  echo 6 -s * Bantime: $jscript(bantime) seconds
n309=  echo 6 -s * Ignoretime: $jscript(ignoretime) seconds
n310=  echo 6 -s * Ban Prot: $jscript(banprot)
n311=  echo 6 -s * Clone Prot: $jscript(cloneprot) (NoCheck: %nocheck $+ )
n312=  echo 6 -s * CTCP Flood Prot: $jscript(cfprot) ( $+ $jscript(cflines) ctcps per second)
n313=  echo 6 -s * Text Flood Prot: $jscript(tfprot) ( $+ $jscript(tflines) lines per second)
n314=}
n315=csstats { 
n316=  echo 6 -s -=[ Misc Settings ]=-
n317=  echo 6 -s * Main Nickname: $jscript(mynick)
n318=  echo 6 -s * Alternate Nickname: $jscript(mynick2)
n319=  echo 6 -s * Favorite Channels (quick-join): $jscript(favchans)
n320=  echo 6 -s * Away Message: $jscript(awaymsg)
n321=  echo 6 -s * Ignore Time: $jscript(ignoretime)
n322=  echo 6 -s * Ban Time: $jscript(bantime)
n323=}
n324=
n325=pop0 unset %*Serv | unset %popchk
n326=pop1 { unset %2*Serv | unset %3*Serv
n327=  set %popchk pop1
n328=  set %1HelpServ HELP
n329=  set %1NickServ NickServ 
n330=  set %1ChanServ ChanServ
n331=  set %1MemoServ MemoServ
n332=  if ((%operserv == ON) && (o isin $usermode)) { set %1OperServ OperServ }
n333=  if (a isin $usermode) { set %1SvcServ SvcAdmin }
n334=  if (a isin $usermode) { set %1AdminServ AdminServ }
n335=}
n336=pop2 {
n337=  unset %*Serv
n338=  set %popchk pop2
n339=  set %2NickServ NickServ
n340=  set %2ChanServ ChanServ
n341=  set %2MemoServ MemoServ
n342=}
n343=pop3 { unset %*Serv
n344=  set %popchk pop3
n345=  set %3HelpServ HELP
n346=  set %3NickServ NickServ
n347=  set %3ChanServ ChanServ
n348=  set %3MemoServ MemoServ
n349=}
n350=
n351=checkwoids {
n352=  set %kcheck $jscript(kickwords)
n353=  set %wcheck %kmsg
n354=  if (%knick == $null || %kchan == $null || %kcheck == $null || %wcheck == $null) { goto end }
n355=  :start
n356=  tokenize 32 %kcheck
n357=  if ($1 == $null) { goto end }
n358=  if ($istok(%wcheck , $1 ,32) == $true) { kickinc | kick %kchan %knick $jscript(wkickmsg) | goto end }
n359=  else {
n360=    set %kcheck $remtok( %kcheck , $1 ,1,32) 
n361=    goto start
n362=  }
n363=  :end
n364=  unset %wcheck | unset %kcheck | unset %knick | unset %kchan | unset %kmsg
n365=}
n366=
n367=checkscript { %popchk | if (o isin $usermodes) set %oper Oper | else unset %oper }
n368=setserver {
n369=  as server $$1 add
n370=  as server $$1 set name $$?="Server Name:"
n371=  as server $$1 set $$?="hub or leaf:"
n372=  as server $$1 set host $$?="Host IP:"
n373=  as server $$1 set port $$?="Server Connection Port:"
n374=  as server $$1 set ping $$?="Ping Frequency:"
n375=  as server $$1 set inpass $$?="Password Expected:"
n376=  as server $$1 set outpass $$?="Password Sent:"
n377=  as server $$1 enable
n378=}
n379=logon { 
n380=  clearial | sf7 | .disable #* | .enable #whois | rlevel -r 1000 | guser 1000 $me 9
n381=  rlevel -r 98 | .guser 98 NickServ 1
n382=  .timer16 0 1 checkscript
n383=  if (webchat.org isin $server) { log WebNet | set %operserv ON | pop1 }
n384=  elseif (afterburn.net isin $server) { log Afterburn | set %operserv OFF | pop1 }
n385=  elseif (damaged.net isin $server) { log Damaged | set %operserv OFF | pop1 }
n386=  elseif (dalnet isin $server) { log Dalnet | set %operserv OFF | pop2 }
n387=  elseif (go-christian isin $server) { log Go-Christian.com | set %operserv OFF | pop2 }
n388=  elseif (irc.bright.net isin $server) { log ChatWorks | set %operserv OFF | pop1 }
n389=  elseif (undernet.org isin $server) { log Undernet | set %operserv OFF | pop0 }
n390=  elseif (dal.net isin $server) { log DALnet | set %operserv ON | pop1 }
n391=  elseif (chatspace isin $server) { log ChatSpace | .disable #lusers | set %operserv OFF | pop3 }
n392=  elseif (A.C.Services isin $server) { log PKMinistries | .disable #lusers | set %operserv OFF | pop3 }
n393=  elseif (apostolic.chat.server isin $server) { log PKMinistries | .disable #lusers | set %operserv OFF | pop3 }
n394=  elseif (unitedchat.net isin $server) { log UnitedChat | set %operserv ON | pop1 }
n395=  elseif (godplace isin $server) { log GodPlace | set %operserv ON | pop3 | auser 98 Services }
n396=  else { log $server | set %operserv OFF }
n397=  if (%usermodes != $null) .timer 1 2 mode $me $jscript(usermodes)
n398=  .timer 1 2 version
n399=  lusers2
n400=}
n401=ctcpreply {
n402=  if ($2 == version) { haltdef | ctcpreply $1 $2 $jsver }
n403=  if ($2 == js) { haltdef | ctcpreply $1 $2 4 $+ $me has 12J-§ç®îpt 5 $jscript(version) }
n404=  elseif (js != $2 && version != $2) { ctcpreply $1 $2- }
n405=}
n406=log { 
n407=  set %net $$1
n408=  if ($read -s[ $+ $server $+ ] !startup.txt != $null) { title - $$1 - | %popchk | play -sct $+ $server !startup.txt 100 }
n409=  else { logto $$1 }
n410=}
n411=ircopwin {
n412=  if ($window(@IRCop)) { aline -p @IRCop $1- }
n413=  else { window -ang1 @IRCop | aline -p @IRCop $1- }
n414=}
n415=logto title - $$1 - | %popchk | play -sct $+ $$1 !startup.txt 100
n416=pongme { 
n417=  if ($chat(1).status == active) {
n418=    msg = $+ $me pong! (Anti Ping-Timeout Measures)
n419=  }
n420=  else { .timer10 off }
n421=}
n422=skick { 
n423=  if ($chr(35) isin $1) { %skickchan = $1 | %skickTarget = $2 }
n424=  else { %skickchan = # | %skickTarget = $1 }
n425=  if ($3 != $null) play -ct $+ $3 %skickchan skicks.txt 1000 | else play -ct $+ $rand(0,26) %skickchan skicks.txt 1000 
n426=}
n427=getident {
n428=  set %chkIdent $remove($address($$1,3),*!*)
n429=  set %Ident $pos(%chkIdent,@,1)
n430=  dec %ident 1
n431=  set %ident $left(%chkIdent,%ident)
n432=  unset %chkident
n433=}
n434=getip {
n435=  set %chkip $pos($$1,@,1)
n436=  set %iplen $len($$1)
n437=  set %chkip $calc(%iplen - %chkip)
n438=  set %ip $right($$1,%chkip)
n439=  unset %chkip %iplen
n440=  return %ip
n441=}
n442=getnick {
n443=  set %nick $pos($$1,!,1)
n444=  dec %nick 1
n445=  set %nick $left($$1,%nick)
n446=  return %nick
n447=  unset %nick
n448=}
n449=updpopups {
n450=  .reload -ps popups.ini
n451=  .reload -pc popups.ini
n452=  .reload -pq popups.ini
n453=  .reload -pn popups.ini
n454=  .reload -pm popups.ini
n455=}
n456=clonecheck { 
n457=  .enable #clonecheck
n458=  set %clnno 0  
n459=  set %clnnick $$1
n460=  set %clnchk $address($$1,4) | set %clnchk $remove(%clnchk,*!*@)
n461=  if (%clnchk != $null) who %clnchk
n462=  else unset %clnno %clnnick
n463=  unset %clnchk
n464=}
n465=check { set %chk $address($$1,4) 
n466=  set %chk $ial(%chk,0)
n467=  if (%chk > 2) { ban $1 3 | raw -q kick # $* : $+ Excessive clones in this channel not allowed. }
n468=}
n469=checkit {
n470=  if ($script(events.ini) == $null) { set %....9 no | echo -a ***The file 'events.ini' is not loaded. type /fixit to reload }
n471=  if ($script(channel.ini) == $null) { set %....9 no | echo -a ***The file 'channel.ini' is not loaded. type /fixit to reload }
n472=  if ($script(query.ini) == $null) { set %....9 no | echo -a ***The file 'query.ini' is not loaded. type /fixit to reload }
n473=  if ($script(nicklist.ini) == $null) { set %....9 no | echo -a ***The file 'nicklist.ini' is not loaded. type /fixit to reload }
n474=  if ($script(filters.ini) == $null) { set %....9 no | echo -a ***The file 'filters.ini' is not loaded. type /fixit to reload }
n475=  if ($script(raw.ini) == $null) { set %....9 no | echo -a ***The file 'raw.ini' is not loaded. type /fixit to reload }
n476=  if ($script(prots.ini) == $null) { set %....9 no | echo -a ***The file 'prots.ini' is not loaded. type /fixit to reload }
n477=  if ($script(kjv.mrc) == $null) { set %....9 no | echo -a ***The file 'kjv.mrc' is not loaded. type /fixit to reload }
n478=  if ($script(nicklist.mrc) == $null) { set %....9 no | echo -a ***The file 'nicklist.mrc' is not loaded. type /fixit to reload }
n479=  if (%....9 != no) { echo -a *** $j.s appears to have all required files. | unset %....9 }
n480=}
n481=fixit {
n482=  if ($script(events.ini) == $null) { set %....9 no | reload -rs ini\events.ini }
n483=  if ($script(channel.ini) == $null) { set %....9 no | reload -rs ini\channel.ini }
n484=  if ($script(query.ini) == $null) { set %....9 no | reload -rs ini\query.ini }
n485=  if ($script(nicklist.ini) == $null) { set %....9 no | reload -rs ini\nicklist.ini }
n486=  if ($script(filters.ini) == $null) { set %....9 no | reload -rs ini\filters.ini }
n487=  if ($script(raw.ini) == $null) { set %....9 no | reload -rs ini\raw.ini }
n488=  if ($script(prots.ini) == $null) { set %....9 no | reload -rs ini\prots.ini }
n489=  if ($script(kjv.mrc) == $null) { set %....9 no | reload -rs kjv\kjv.mrc }
n490=  if ($script(nicklist.mrc) == $null) { set %....9 no | reload -rs ini\nicklist.mrc }
n491=  if (%....9 != no) { echo -a ***No files needed to be re-loaded. | unset %....9 }
n492=}
n493=asciitalk {
n494=  set %sci $$1-
n495=  %sci = $replace(%sci,a,å)
n496=  %sci = $replace(%sci,b,ß)
n497=  %sci = $replace(%sci,c,¢)
n498=  %sci = $replace(%sci,d,Ð)
n499=  %sci = $replace(%sci,e,3)
n500=  %sci = $replace(%sci,f,þh)
n501=  %sci = $replace(%sci,i,ï)
n502=  %sci = $replace(%sci,n,ñ)
n503=  %sci = $replace(%sci,O,ø)
n504=  %sci = $replace(%sci,p,þ)
n505=  %sci = $replace(%sci,S,z)
n506=  %sci = $replace(%sci,u,µ)
n507=  %sci = $replace(%sci,w,\\')
n508=  %sci = $replace(%sci,x,×)
n509=  %sci = $replace(%sci,y,¥)
n510=  say  %sci
n511=  unset %sci
n512=}