PC-X 1997 October/pcx14_9710.iso/shutils/internet/irc/script/bw10b1.exe/aliases.ini

INI File | 1997-08-26 | 24.3 KB | 435 lines

[aliases]
n0=/alt {
n1=  unset %newtext %type %text %i %len | set %text $1- | set %len $len(%text) | set %i 1 | set %type lower
n2=  :loop | if (%i > %len) goto end | if ($mid(%i,1,%text) == $chr(32)) { set %newtext %newtext $+ á | inc %i | goto loop }
n3=  if (%type == lower) { set %newtext %newtext $+ $lower($mid(%i,1,%text)) | set %type upper | inc %i | goto loop }
n4=  if (%type == upper) { set %newtext %newtext $+ $upper($mid(%i,1,%text)) | set %type lower | inc %i | goto loop }
n5=  :end | say %newtext | halt
n6=}
n7=/aolscan {
n8=  if ($1 == -e) { set %msg echo 1 -a }
n9=  if ($1 == -c) { set %msg msg # }
n10=  if ($1 == -w) { window @áAOLáScaná@ 100 100 350 150 | set %msg echo 1 @áAOLáScaná@ }
n11=  %msg Scanning for AOL Users on #
n12=  set %numaol 0 | set %syncstart $ticks | set %i 0 | :loop | inc %i | if (%i > $nick(0,#)) goto end
n13=  if (aol.com isin $address($nick(%i,#),1)) {
n14=    inc %numaol | %msg AOL User : $nick(%i,#) $+  $address($nick(%i,#),3)
n15=    if ((%aolkick == on) && ($me isop #)) { kick # $nick(%i,#) $logo AOL Kicker }
n16=  }
n17=  goto loop | :end | set %synctime $ticks
n18=  set %sync [ %synctime - %syncstart ]
n19=  %msg %numaol Aol user(s) found
n20=  if ($len(%sync) == 4) {
n21=    set %sync-1 $right(%sync,3)
n22=    set %sync-2 $left(%sync,1)) $+ . $+ %sync-1 secs
n23=    %msg Finished in %sync-2
n24=  }
n25=  if ($len(%sync) == 3) {
n26=    set %sync-3 0. $+ %sync secs
n27=    %msg Finished in %sync-3
n28=  }
n29=  if ($len(%sync) == 2) {
n30=    set %sync-3 0.0 $+ %sync secs
n31=    %msg Finished in %sync-3
n32=  }
n33=  if ($len(%sync) == 1) {
n34=    set %sync-3 0.00 $+ %sync secs
n35=    %msg Finished in %sync-3
n36=  }
n37=  unset %sync*
n38=}
n39=/autochanjoin {
n40=  set %i 0 | %numb = $count(%chanstojoin,$chr(32)) + 1 | :loop | inc %i | if (%i > %numb) halt
n41=  join $ [ $+ [ %i ] ] | goto loop
n42=}
n43=/away1 {
n44=  %at = $ctime - %awaystart
n45=  ame is 5Away ñ2 $+ %reason $+ ñ Pager : ñ2 $+ %pager $+ ñ (usage : /ctcp $me page <message>) Logging : ñ2 $+ %awayloggin $+ ñ been away for $duration(%at) so far. $logo
n46=}
n47=/awayscript {
n48=  .timer12 off
n49=  set %awa1 Y
n50=  set %awaystart $ctime
n51=  set %awaytime $clock on $day $adate
n52=  ame is now 5Away ñ2 $+ %reason $+ ñ Pager : ñ2 $+ %pager $+ ñ (usage : /ctcp $me page <message>) Logging : ñ2 $+ %awayloggin $+ ñ $logo
n53=  .timer10 0 900 /away1
n54=}
n55=/blacks {
n56=  unset %text %newtext %i %len %type | set %text $replace($1-,$chr(32),) | set %len $len(%text) | set %i 0 | set %type lg | :loop
n57=  inc %i | if (%i > %len) { say %newtext | halt } | if ($mid(%i,1,%text) == ) { set %newtext %newtext $+ á | goto loop }
n58=  if (%type == lg) { set %newtext %newtext $+ 15 $+ $mid(%i,1,%text) | set %type dg | goto loop }
n59=  if (%type == dg) { set %newtext %newtext $+ 14 $+ $mid(%i,1,%text) | set %type b | goto loop }
n60=  if (%type == b) { set %newtext %newtext $+ 1 $+ $mid(%i,1,%text) | set %type dg1 | goto loop }
n61=  if (%type == dg1) { set %newtext %newtext $+ 14 $+ $mid(%i,1,%text) | set %type lg | goto loop }
n62=}
n63=/block {
n64=  unset %text %newtext %len %i | set %text $replace($1-,$chr(32),) | set %len $len(%text) | set %i 0 | :loop
n65=  inc %i | if (%i > %len) { set %newtext $replace(%newtext,,$chr(32)) | say %newtext | halt }
n66=  if ($mid(%i,1,%text) == ) { set %newtext %newtext $+ áá | goto loop } | set %newtext %newtext $+ $chr(91) $+ $mid(%i,1,%text) $+ $chr(93) | goto loop
n67=}
n68=/chat /dcc chat $1
n69=/chanstats {
n70=  if ($1 == -e) set %msg echo 5 -a
n71=  if ($1 == -c) set %msg msg #
n72=  if ($1 == -w) { window @áChanneláStatsá@ 100 100 290 100 | set %msg echo 5 @áChanneláStatsá@ }
n73=  %msg _____________________________________
n74=  %msg Channel stats : # < $+ $nick(0,#) total>
n75=  %msg OPs : $opnick(0,#) < $+ $percent($opnick(0,#),$nick(0,#)) $+ $chr(37) $+ >áááá|| NonOps : $nopnick(0,#) < $+ $percent($nopnick(0,#),$nick(0,#)) $+ $chr(37) $+ >
n76=  %msg Voice'd : $vnick(0,#) < $+ $percent($vnick(0,#),$nick(0,#)) $+ $chr(37) $+ >á|| NonVoice : $nvnick(0,#) < $+ $percent($nvnick(0,#),$nick(0,#)) $+ $chr(37) $+ >
n77=  %msg »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
n78=}
n79=/clock {
n80=  set %hrs $left(2,$time)
n81=  if ($chr(58) isin %hrs) { set %hrs $left(1,%hrs) }
n82=  set %min1 $right(5,$time)
n83=  set %min2 $remove(%min1,$right(3,%min1))
n84=  if (%hrs = 0) { set %hrs 12 | set %add am }
n85=  if (%hrs > 12) {
n86=    %hrs = %hrs - 12
n87=    set %add pm
n88=  }
n89=  else { set %add am }
n90=  return %hrs $+ : $+ %min2 $+ %add
n91=}
n92=/clock1 {
n93=  set %hrs $left(2,$time)
n94=  if ($chr(58) isin %hrs) { set %hrs $left(1,%hrs) }
n95=  set %min1 $right(5,$time)
n96=  set %min2 $remove(%min1,$right(3,%min1))
n97=  if (%hrs = 0) { set %hrs 12 | set %add am }
n98=  if (%hrs > 12) {
n99=    %hrs = %hrs - 12
n100=    set %add pm
n101=  }
n102=  else { set %add am }
n103=  return %hrs $+ : $+ %min2 $+ %add $right($time,2) $+ s
n104=}
n105=/clonecheck {
n106=  if ($1 == -e) { set %msg echo 2 -a }
n107=  if ($1 == -c) { set %msg msg # }
n108=  if ($1 == -w) { set %msg aline @áCloneáDetectorá@ | /window -l @áCloneáDetectorá@ 100 0 400 200 arial 12 }
n109=  set %syncstart $ticks
n110=  set %clonechan #
n111=  set %clonenum 0
n112=  set %people $people
n113=  if (%clonechan == $null) { %msg Cannot do clone search when not on a channel | halt }
n114=  %msg Searching for clones on : %clonechan
n115=  set %clonenick 0
n116=  :loop
n117=  inc %clonenick
n118=  if (%clonenick >= $nick(0,%clonechan)) { goto end }
n119=  set %clone1 $nick(%clonenick,%clonechan)
n120=  set %cloneaddress $address($nick(%clonenick,%clonechan),2)
n121=  %clones = %clonenick
n122=  :start
n123=  inc %clones
n124=  if (%clones > $nick(0,%clonechan)) { goto next }
n125=  if ($nick(%clones,%clonechan) !isin %people) { goto start }
n126=  if ($address($nick(%clones,%clonechan),2) == %cloneaddress) { inc %clonenum | set %people $remove(%people,$nick(%clones,%clonechan)) | set %clone1 %clone1 $+ , $nick(%clones,%clonechan) | goto start }
n127=  else { goto start }
n128=  :next
n129=  if (%clone1 == $nick(%clonenick,%clonechan)) goto loop
n130=  else { %msg $token(0,32,%clone1) Clones found on %cloneaddress : %clone1 | goto loop }
n131=  :end
n132=  if (%clonenum == 0) { %msg 0 Clones found on %clonechan }
n133=  set %synctime $ticks
n134=  set %sync [ %synctime - %syncstart ]
n135=  if ($len(%sync) == 4) {
n136=    set %sync-1 $right(%sync,3)
n137=    set %sync-2 $left(%sync,1) $+ . $+ %sync-1 secs
n138=    %msg Finished in %sync-2
n139=  }
n140=  if ($len(%sync) == 3) {
n141=    set %sync-3 0. $+ %sync secs
n142=    %msg Finished in %sync-3
n143=  }
n144=  if ($len(%sync) == 2) {
n145=    set %sync-3 0.0 $+ %sync secs
n146=    %msg Finished in %sync-3
n147=  }
n148=  if ($len(%sync) == 1) {
n149=    set %sync-3 0.00 $+ %sync secs
n150=    %msg Finished in %sync-3
n151=  }
n152=  unset %clone* | halt
n153=}
n154=/clonejoin {
n155=  if (%clonemsg == halt) halt
n156=  %i = 0
n157=  %nick = $nick
n158=  :begin
n159=  inc %i
n160=  if (%i > $nick(0,$chan)) {
n161=    if (%nick == $nick) { halt }
n162=    if ((%kick-da-clone == on) && ($me isop $chan)) { kick $chan $nick Automatic Clone Removal.  $logo }
n163=    notice $nick Clones Detected -=(2 $+ $1 $+ )=- %nick | echo 5 -a Clones Detected -=(2 $+ $1 $+ )=- %nick | halt
n164=  }
n165=  if ($nick(%i,$chan) == $nick) { goto begin }
n166=  if ($address($nick(%i,$chan),2) == $1) { set %nick %nick $+ , $nick(%i,$chan) | goto begin }
n167=  else { goto begin }
n168=}
n169=/clonenick {
n170=  if ($1 == -e) { set %msg echo 1 -a }
n171=  if ($1 == -c) { set %msg msg # }
n172=  if ($1 == -w) { set %msg aline @áCloneáDetectorá@ | /window -l @áCloneáDetectorá@ 100 0 400 200 arial 12 }
n173=  set %whoclone yes
n174=  who #
n175=  %i = 2
n176=  set %nick $2
n177=  if ($ial($address($2,2),2) == $null) { %msg CloneSearch -=( $+ $2 $+ )=- | %msg 0 Clones found on $address($2,2) | halt }
n178=  :loop
n179=  set %nick %nick $+ , $ial($address($2,2),%i).nick
n180=  inc %i
n181=  if ($ial($address($2,2),%i) == $null) { %msg Clone Search -=( $+ $2 $+ )=- | %msg Clones Found on -=( $+ $address($2,2) $+ )=- %nick | unset %nick }
n182=  else { goto loop }
n183=}
n184=colorchart {
n185=  window @áColoráChartá@ 40 50 550 285
n186=  echo 0 @áColoráChartá@ 0,0áá0,0á 0,1áá 0,1á 0,2á 0,2á 0,3á 0,3á 0,4á 0,4á 0,5 áá0,5á 0,6 á0,6 á0,7 á0,7á 0,8 áá0,8á 0,9 á0,9á 0,10 á0,10á 0,11 áá0,11á 0,12á 0,12á 0,13 á0,13á 0,14áá 0,14á 0,15á 0,15á 
n187=  echo 0 @áColoráChartá@ 1,0áá1,0 á1,1á á1,1 á1,2á 1,2á 1,3á 1,3á 1,4á 1,4á 1,5 áá1,5á 1,6 á1,6á 1,7 á1,7á 1,8 áá1,8á 1,9 á1,9áá1,10 á1,10 á1,11á á1,11á 1,12 á1,12 á1,13 á1,13 á1,14á á1,14á 1,15á 1,15á 
n188=  echo 0 @áColoráChartá@ 2,0 á2,0 á2,1á á2,1á 2,2á 2,2á 2,3á 2,3á 2,4á 2,4á 2,5 áá2,5á 2,6 á2,6á 2,7 á2,7á 2,8áá 2,8á 2,9á 2,9áá2,10 á2,10 á2,11á á2,11á 2,12 á2,12 á2,13á 2,13 á2,14á á2,14á 2,15á 2,15á 
n189=  echo 0 @áColoráChartá@ 3,0 á3,0 á3,1á á3,1á 3,2á 3,2á 3,3á 3,3á 3,4á 3,4á 3,5 áá3,5á 3,6 á3,6á 3,7 á3,7á 3,8áá 3,8á 3,9á 3,9áá3,10 á3,10 á3,11á á3,11á 3,12 á3,12 á3,13á 3,13á 3,14á á3,14á 3,15á 3,15á 
n190=  echo 0 @áColoráChartá@ 4,0 á4,0 á4,1á á4,1 á4,2á 4,2á 4,3á 4,3á 4,4á 4,4á 4,5 áá4,5á 4,6 á4,6á 4,7 á4,7á 4,8áá 4,8á 4,9á 4,9áá4,10 á4,10 á4,11á á4,11á 4,12 á4,12 á4,13á 4,13 á4,14á á4,14á 4,15á 4,15á 
n191=  echo 0 @áColoráChartá@ 5,0 á5,0 á5,1á á5,1á 5,2á 5,2á 5,3 á5,3á 5,4á 5,4á 5,5 áá5,5á 5,6 á5,6á 5,7 á5,7á 5,8áá 5,8á 5,9á 5,9 á5,10 á5,10 á5,11á á5,11á 5,12 á5,12 á5,13á 5,13 á5,14á á5,14á 5,15á 5,15á 
n192=  echo 0 @áColoráChartá@ 6,0 á6,0 á6,1á á6,1 á6,2á 6,2á 6,3 á6,3á 6,4 á6,4á 6,5 áá6,5á 6,6 á6,6á 6,7 á6,7á 6,8áá 6,8á 6,9á 6,9áá6,10 á6,10 á6,11á á6,11á 6,12 á6,12 á6,13á 6,13 á6,14á á6,14á 6,15á 6,15á 
n193=  echo 0 @áColoráChartá@ 7,0 á7,0 á7,1á á7,1á 7,2á 7,2á 7,3 á7,3á 7,4 á7,4á 7,5 áá7,5á 7,6 á7,6á 7,7 á7,7á 7,8áá 7,8á 7,9á 7,9áá7,10 á7,10 á7,11á á7,11á 7,12 á7,12 á7,13á 7,13 á7,14á á7,14á 7,15á 7,15á 
n194=  echo 0 @áColoráChartá@ 8,0 á8,0 á8,1á á8,1á 8,2á 8,2á 8,3 á8,3á 8,4 á8,4á 8,5 áá8,5á 8,6 á8,6á 8,7 á8,7á 8,8áá 8,8á 8,9á 8,9áá8,10 á8,10 á8,11á á8,11á 8,12 á8,12 á8,13á 8,13 á8,14á á8,14á 8,15á 8,15á 
n195=  echo 0 @áColoráChartá@ 9,0 á9,0 á9,1á á9,1 á9,2á 9,2á 9,3 á9,3á 9,4 á9,4á 9,5 áá9,5á 9,6 á9,6á 9,7 á9,7á 9,8áá 9,8á 9,9á 9,9áá9,10 á9,10 á9,11á á9,11á 9,12 á9,12 á9,13á 9,13 á9,14á á9,14á 9,15á 9,15á 
n196=  echo 0 @áColoráChartá@ 10,0 10,0 10,1 10,1 10,2 10,2 10,3 10,3 10,4 10,4 10,5 10,5 10,6 10,6 10,7 10,7 10,8 10,8 10,9 10,9 10,10 10,10 10,11 10,11 10,12 10,12 10,13 10,13 10,14 10,14 10,15 10,15 
n197=  echo 0 @áColoráChartá@ 11,0 11,0 11,1 11,1 11,2 11,2 11,3 11,3 11,4 11,4 11,5 11,5 11,6 11,6 11,7 11,7 11,8 11,8 11,9 11,9 11,10 11,10 11,11 11,11 11,12 11,12 11,13 11,13 11,14 11,14 11,15 11,15 
n198=  echo 0 @áColoráChartá@ 12,0 12,0 12,1 12,1 12,2 12,2 12,3 12,3 12,4 12,4 12,5 12,5 12,6 12,6 12,7 12,7 12,8 12,8 12,9 12,9 12,10 12,10 12,11 12,11 12,12 12,12 12,13 12,13 12,14 12,14 12,15 12,15 
n199=  echo 0 @áColoráChartá@ 13,0 13,0 13,1 13,1 13,2 13,2 13,3 13,3 13,4 13,4 13,5 13,5 13,6 13,6 13,7 13,7 13,8 13,8 13,9 13,9 13,10 13,10 13,11 13,11 13,12 13,12 13,13 13,13 13,14 13,14 13,15 13,15 
n200=  echo 0 @áColoráChartá@ 14,0 14,0 14,1 14,1 14,2 14,2 14,3 14,3 14,4 14,4 14,5 14,5 14,6 14,6 14,7 14,7 14,8 14,8 14,9 14,9 14,10 14,10 14,11 14,11 14,12 14,12 14,13 14,13 14,14 14,14 14,15 14,15 
n201=  echo 0 @áColoráChartá@ 15,0 15,0á15,1á15,1á15,2 15,2 15,3 15,3 15,4 15,4 15,5á15,5 15,6á15,6 15,7á15,7 15,8 15,8 15,9á15,9 15,10á15,10 15,11 15,11 15,12á15,12 15,13á15,13 15,14 15,14 15,15á15,15 
n202=}
n203=/cool {
n204=  unset %text %newtext %i %len | set %text $replace($1-,$chr(32),) | set %color1 $rand(1,7) | set %color2 $rand(8,16)
n205=  set %i 0 | set %len $len(%text) | :loop | inc %i | if (%i > %len) { set %newtext $replace(%newtext,,$chr(32)) | say %newtext | halt }
n206=  if (2 // %i) { set %newtext %newtext $+  $+ %color1 $+ , $+ %color2 $+ $mid(%i,1,%text) | goto loop }
n207=  set %newtext %newtext $+  $+ %color2 $+ , $+ %color1 $+ $mid(%i,1,%text) | goto loop
n208=}
n209=/dalnetcheck {
n210=  if ($right(7,$server) != dal.net) echo 2 -a 0,2Error: Cannot Use DalNet services when not on Dal.Net! 0,2:Error | halt
n211=}
n212=/deop /mode # -ooo $$1 $2 $3
n213=/dwt {
n214=  unset %text %newtext %i %len | set %text $replace($1-,$chr(32),) | set %len $len(%text) | set %i 0 | :loop
n215=  inc %i | if (%i > %len) goto end | if (2 // %i) goto 2 | set %newtext %newtext $+ 2 $+ $mid(%i,1,%text) | goto loop | :2
n216=  set %newtext %newtext $+ 5 $+ $mid(%i,1,%text) | goto loop | :end | set %newtext $replace(%newtext,,$chr(32))
n217=  say %newtext | halt
n218=}
n219=/durate {
n220=  unset %numb %min %hour %day %week
n221=  set %numb $1 | if (%numb < 60) { return %numb $+ s | goto end }
n222=  :minloop | if (%numb >= 10000000) { %numb = %numb - 9999960 | inc %week 16 | inc %day 3 | inc %hour 17 | inc %min 46 | goto minloop }
n223=  if (%numb >= 100000) { %numb = %numb - 99960 | inc %min 46 | inc %hour 3 | inc %day | goto minloop }
n224=  if (%numb >= 10000) { %numb = %numb - 9960 | inc %min 46 | inc %hour 2 | goto minloop }
n225=  if (%numb >= 60) { %numb = %numb - 60 | inc %min | goto minloop }
n226=  :hourloop | if (%min >= 60) { %min = %min - 60 | inc %hour | goto hourloop }
n227=  :dayloop | if (%hour >= 24) { %hour = %hour - 24 | inc %day | goto dayloop }
n228=  :weekloop | if (%day >= 7) { %day = %day - 7 | inc %week | goto weekloop }
n229=  if (%hour == $null) { return %min $+ m %numb $+ s | goto end }
n230=  if (%day == $null) { return %hour $+ h %min $+ m %numb $+ s | goto end }
n231=  if (%week == $null) { return %day $+ d %hour $+ h %min $+ m %numb $+ s | goto end }
n232=  else { return %week $+ w %day $+ d %hour $+ h %min $+ m %numb $+ s | goto end }
n233=}
n234=/elmer { say $replace($1-,r,w) }
n235=/f2 window -l @Channels@ 200 0 250 200 chanjoin.bio | /loadbuf 1- $+ $lines(chans.txt) @Channels@ chans.txt
n236=/f5 {
n237=  if ($timer(3).com == $null) { echo 2 -s Auto-Join Has Already Occured/Stopped }
n238=  else { echo 2 -s Auto-Join Halted | .timer15 off }
n239=}
n240=/find {
n241=  unset %find*
n242=  if ($1 == $null) { echo 12 -a Error : you must specify a file : /find <filename> | halt }
n243=  if ($2 != $null) { echo 12 -a Error : you can only specify 1 file at a time | halt }
n244=  set %findfile * $+ $1 | set %f-file $1 | if ($chr(46) !isin %findfile) { set %findfile %findfile $+ *.* }
n245=  echo 12 -a Searching for %f-file
n246=  set %findnum $findfile(c:\,%findfile,0) | if (%findnum > 15) { echo 12 -a Cannot Process Request : over 15 matches found ( $+ %findnum in all $+ ) | halt }
n247=  if (%findnum == 0) { echo 12 -a No matches found | halt } | set %findi 0 | :loop | inc %findi
n248=  if (%findi > %findnum) { echo 12 -a Finished searching for %f-file | halt } | echo 2 -a  $+ $chr(35) $+ %findi :5 $findfile(c:\,%findfile,%findi)
n249=  goto loop
n250=}
n251=getmail {
n252=  set %gmailip $$?="Enter your incoming e-mail server:"
n253=  set %mailuser $$?="Enter your user name:"
n254=  set %mailpass $$?="Enter you password:"
n255=  .auser getmail $me
n256=  gmailip %gmailip
n257=}
n258=gmailip {
n259=  .enable #gmaillookup
n260=  echo -a 5-=(2▀\\'5)=- Looking up %gmailip $+ ...
n261=  .dns $1
n262=}
n263=/htmleditor { window -el @áHTMLáEditorá@ html.bio times new roman | aline @áHTMLáEditorá@ <html> | aline @áHTMLáEditorá@ <head> | aline @áHTMLáEditorá@ <title>Created With BioWar</title> | aline @áHTMLáEditorá@ </head> | aline @áHTMLáEditorá@ <body> }
n264=/idlecheck {
n265=  if (%auto-idle == on) {
n266=    if ($idle > %idleafter) { set %popup.LoggingOn/PagerOn ñ Logging ON / Pager ON | set %popup.awayback Back | timer11 off | set %pager on | set %awayloggin on | set %reason Auto-Away after Idle for $duration($idle) | awayscript }
n267=  }
n268=}
n269=/j /join #$$1 | set %jt $ctime
n270=/join /join #$$1 | set %jt $ctime
n271=/k /kick # $$1
n272=/logo return 5-=(2▀io\\'ar5)=-
n273=/logo1 return 2-=(5▀io\\'ar2)=-
n274=/logo2 return -=(▀io\\'ar)=-
n275=/massdeoppro {
n276=  if (%mdeopvar1 >= 2) {
n277=    if ($me isop $chan) { mode $1 -o $2 | msg $1 Mass Deop Protection }
n278=    else { echo -a Mass Deop Detected by $2 on $1 }
n279=  }
n280=}
n281=/moveclock {
n282=  window -l @Clock@  0 0 290 10 clock.bio [ times new roman [ 54 ] ]
n283=  .timer5078 0 1 moveclock1
n284=  .timer5079 0 1 moveclock1 -1
n285=  moveclock1
n286=}
n287=/mmiddir return %mididir
n288=/wdir return %wavdir
n289=/moveclock1 {
n290=  if ($1 == -1) { if (@Clock@ !isin $active) { window -c @Clock@ | .timer5078 off | .Timer5079 off | halt } }
n291=  clear @Clock@ | aline @Clock@ $Clock1
n292=  halt
n293=}
n294=/notaway {
n295=  %at = $ctime - %awaystart
n296=  if (%awayloggin == on) { /window -l @áLogsá@ 100 0 400 300 | if ($exists(logs.txt)) { /loadbuf 1- $+ $lines(logs.txt) @áLogsá@ logs.txt } | else { /aline @áLogsá@ You did not Get any Messages } }
n297=  ame is 5back ñ2 $+ %reason $+ ñ Was away for ñ2 $+ $duration(%at) $logo
n298=  set %awa1 N
n299=  unset %reason %awaystart %at %pager %awayloggin
n300=  .timer10 off | .remove logs.txt
n301=  if (%auto-idle == on) { .timer11 0 1 /idlecheck | .timer12 0 1 titleidle }
n302=}
n303=/op /mode # +ooo $$1 $2 $3
n304=/opnotice {
n305=  if ($left(1,$active) != $chr(35)) { echo 2 -a 0,2Error: Cannot Use Opnotice, not on a channel 0,2:Error }
n306=  else {
n307=    set %numops $opnick(0,#)
n308=    set %i 0
n309=    :loop
n310=    inc %i
n311=    if (%i > %numops) { echo 1 -a -> Ops # : $1- | halt }
n312=    if ($opnick(%i,#) == $me) { goto loop }
n313=    .notice $opnick(%i,#) 12@2 $+ # $+ : $1-
n314=    goto loop
n315=  }
n316=}
n317=/p /part #
n318=/people {
n319=  if ($1 != $null) { goto next }
n320=  unset %peopleinchan | set %numpeople 0 | :loop | inc %numpeople | if (%numpeople > $nick(0,#)) { return %peopleinchan }
n321=  set %peopleinchan %peopleinchan $nick(%numpeople,#) | goto loop
n322=  :next | unset %peopleinchan | set %numpeople 0 | :loop1 | inc %numpeople | if (%numpeople > $nick(0,$1)) { return %peopleinchan }
n323=  set %peopleinchan %peopleinchan $nick(%numpeople,$1) | goto loop1
n324=}
n325=/percent {
n326=  %a = $1 | %b = $2 | %a = %a * 1000 | %a = %a / %b
n327=  %l = $left(%a,2) | if ($len(%a) == 4) { %l = $left(%a,3) } | %r = $right(%a,1) | return %l $+ . $+ %r
n328=}
n329=/ping /ctcp $$1 ping
n330=/pl {
n331=  unset %text %newtext %left %right %vowels %numwords
n332=  set %vowels a e i o u
n333=  %i = 1
n334=  set %text $1-
n335=  set %numwords $token(0,32,$1-)
n336=  :loop
n337=  if (%i > %numwords) { say %newtext | halt }
n338=  set %path $ [ $+ [ %i ] ]
n339=  set %left $remove(%path,$left(1,%path))
n340=  if ($len(%path) == 1) { set %newtext %newtext %path | inc %i | goto loop }
n341=  if ($left(1,%path) isin %vowels) { set %newtext %newtext %path $+ ay | inc %i | goto loop }
n342=  else { set %right $left(1,%path) $+ ay | set %newtext %newtext %left $+ %right | inc %i | goto loop }
n343=}
n344=/q /query $$1
n345=rawchat .raw privmsg $me :
DCC CHAT CHAT $1 $2 $+ 

n346=/s /sound $$1.wav < $$1.wav >
n347=/send /dcc send $1 $2
n348=/size {
n349=  unset %len | set %size $lof($1-) | set %len $len(%size)
n350=  if (%len > 6) {
n351=    set %right1 $right(%size,6)
n352=    set %right $remove(%right1,$right(%right1,3))
n353=    set %left $remove(%size,%right1)
n354=    return %left $+ . $+ %right $+ megs | halt
n355=  }
n356=  if (%len > 3) {
n357=    set %right $right(%size,3) | set %left $remove(%size,%right)
n358=    return %left $+ . $+ %right $+ kb | halt
n359=  }
n360=  else { return %size bytes }
n361=}
n362=/textfloodpro {
n363=  unset %tempfloodread1
n364=  if ($2 == $null) { halt }
n365=  if (%chanfloodpro == on) {
n366=    set %tempflood12 $2 [ $+ [ num ] ]
n367=    set %tempfloodread $readini flood.ini $2 $1
n368=    if (%tempfloodread == $null) { writeini flood.ini $2 $1 $ctime | writeini flood.ini %tempflood12 $1 1 | halt }
n369=    set %tempfloodread1 $readini flood.ini %tempflood12 $1
n370=    %tempflood = $ctime - %tempfloodread
n371=    if (%tempflood >= 3) { remini flood.ini $2 $1 | writeini flood.ini $2 $1 $ctime | remini flood.ini %tempflood12 $1 | writeini flood.ini %tempflood12 $1 1 | halt }
n372=    if ((%tempflood <= 2) && (%tempfloodread1 >= 8)) {
n373=      if ($me isop $2) { ban -u30 $2 $1 2 | kick $2 $1 $logo Text Flood Protection, 30 second ban. | goto rem }
n374=      else { .ignore -u30 $1 2 | .notice $1 Text Flood Detected, 30 second ignore | echo 12 -a Text Flood Detected : $1 with 8 lines in under 2 seconds. (30sec ignore) | goto rem }
n375=    }
n376=    inc %tempfloodread1 | writeini flood.ini %tempflood12 $1 %tempfloodread1 | halt
n377=    :rem | remini flood.ini $2 $1 | remini flood.ini %tempflood12 $1 | halt
n378=  }
n379=}
n380=/timofday {
n381=  if ($chr(58) isin $left(2,$time)) {
n382=    if ($left(1,$time) isnum 0-3) { return Evening | halt }
n383=    if ($left(1,$time) isnum 4-9) { return Morning | halt }
n384=  }
n385=  else {
n386=    if ($left(2,$time) == 10) { return Morning | halt }
n387=    if ($left(2,$time) isnum 11-15) { return Afternoon | halt }
n388=    if ($left(2,$time) isnum 16-18) { return Day | halt }
n389=    if ($left(2,$time) isnum 19-24) { return Evening | halt }
n390=  }
n391=}
n392=/title1 { set %itime $duration($idle) | titlebar It is Currently $clock [Away/ $+ %awa1 $+ ] [Online/ $+ $durate($online) $+ ] [Idle/ $+ $durate($idle) $+ ] $logo2 }
n393=/undernetcheck {
n394=  if ($right(12,$server) != Undernet.Org) echo 2 -a 0,2Error: Cannot Use X/W when not on Undernet! 0,2:Error
n395=  if ((W !ison #) && (X !ison #)) echo 2 -a 0,2Error: cannot Use X/W when not on the channel! 0,2:Error
n396=}
n397=/uv /mode # -vvv $$1 $2 $3
n398=/v /mode # +vvv $$1 $2 $3
n399=/votestart {
n400=  if ($1 == -y) {
n401=    set %voteron yes
n402=    set %vote-type y
n403=    set %vote-topic $$?="Enter a Yes/No Question to vote on:"
n404=    set %vote-channel $$?="Enter Channel to vote in:"
n405=    :looper | if ($me !ison %vote-channel) { set %vote-channel $$?="Must be on channel! Enter channel :" | goto looper }
n406=    set %vote-time $$?="How many seconds can they have to vote?"
n407=    msg %vote-channel $logo Voter, voting topic : %vote-topic áòtype /ctcp $me Vote yes (to vote yes on the subject)ò áòtype /ctcp $me Vote no (to vote no)ò You have $duration(%vote-time) to vote.
n408=    .timer121 1 %vote-time voteend
n409=    set %vote-people $people(%vote-channel)
n410=  }
n411=  if ($1 == -r) {
n412=    set %voteron yes
n413=    set %vote-type r
n414=    set %vote-topic $$?="Enter a Question to vote on:"
n415=    set %vote-answer1 $$?="Enter The First Answer:"
n416=    set %vote-answer2 $$?="Enter The Second Answer:"
n417=    set %vote-answer3 $$?="Enter The Thrird Answer:"
n418=    set %vote-channel $$?="Enter a channel to vote in:"
n419=    :looper | if ($me !ison %vote-channel) { set %vote-channel $$?="Must be on channel! Enter channel :" | goto looper }
n420=    set %vote-time $$?="How many seconds can they have to vote?"
n421=    msg %vote-channel $logo Voter, voting topic : %vote-topic áòtype /ctcp $me Vote 1 (to vote on the answer : %vote-answer1 $+ )ò áòtype /ctcp $me Vote 1 (to vote on the answer : %vote-answer2 $+ )ò áòtype /ctcp $me Vote 3 (to vote on the answer : %vote-answer3 $+ )ò You have $duration(%vote-time) to vote.
n422=    .timer121 1 %vote-time voteend
n423=    set %vote-people $people(%vote-channel)
n424=  }
n425=}
n426=/voteend {
n427=  /rlevel 2
n428=  set %vote-result-ok yes
n429=  .msg %vote-channel $logo Voter, results are in! Type /ctcp $me Vote results (to view the results of the voting) You have 30 seconds to view
n430=  .timer122 1 60 unset %vote*
n431=}
n432=/w /whois $$1