WinFiles.com/InfoMagic-WinFilesDotCom-June1998-Disc3of3-DAMAGED_DISC.iso/chat-textscript/caescript1-6-5.exe/aliases.paf

Text File | 1998-04-17 | 271KB | 159 lines

5L:/runscript [bilboard] $?="El Color #" $?="Texto"
ADIOS:/runscript [ADIOS]
AFUERA:/runscript [away] create
ASCII:/playfile # $file "Escoja un archivo ASCII para mostrar" c:\CaeScript\ascii\*.txt
AVISO:La pßgina Web donde encontrarßs los m≤dulos y programas para detectar y evitar los ataques es: http://www.webzone.net/DDG_Computing/Dalnet/|TambiΘn encontrarßs bastante informaci≤n en espa±ol acß: http://www.tania.org/ayuda
AWAYP:/runscript [away] create
B:/ban # *1 3
BOLIVIA:4,4 *1  |1,8 *11,1 |3,3 *1  1,1 |0,0 1,1 *1  1,1
BOX:/runscript [box] $?="#,# #" $?="Texto a mostrar"
BUSCAR:/runscript [spil] go
BUZZ:/runscript [buzzpopGui] create
C:[Conteo:] En # existen $members chateadores.
CAJA:/msg # 4,4 *1  |/msg # 8,4 *1 1,1!1,0 |/msg # 4,4 *1 1,1!1,0 |/msg #  1,1 *1 1,0
CAJA2:/runscript [boxrain2] *1
CAJA3:/runscript [boxrain3] *1
CERRAR:/nick MeVoy|/awin Cerrando CaeScript 1.6.5|/display > CaeScript - -=  -------------------------------------------------------------------------------------  =-|/display > CaeScript -     Cerrando Pirch y CaeScript 1.6.5|/display > CaeScript - -=  -------------------------------------------------------------------------------------  =-|/runscript [lagmeter] close|/runscript [toolbar] cleanup|/close lag|/quit CaeScript 1.6.5 http://www.bolivia-internet.com/irc/caescript|/exit
CERVEZA:/me \-2 invita una fina cerveza Boliviana \-2 \-4 a \-4 \-2 *1 \-2
CF11:/set ctcp on
CINTA:1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 8,1  $?="QuΘ texto deseas mostrar?"  1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 1,19
CONTROL:/runscript [room] start
CORAZON:/runscript [HEARTS] $?="QuΘ texto deseas enmarcar con corazones?"
CTERM:/runscript [cterm2] start
ENCRIPTA:/runscript [ENCRYPT] $?="QuΘ texto deseas encriptar?"
ENROSCAR:/runscript [ENROSCAR] $?="QuΘ texto deseas enroscar?"
F:/kill *1 The screen is free, you dont own it, could you stop flooding ?
F11:/set ctcp off |/flush
F3:/runscript [ezysound] askm
F4:/runscript [ezysound] askp
F5:/sound # $file "Escoja un archivo para tocar:" c:\CaeScript\sonidos\*.mid;*.wav;*.rmi;*.avi  $$?="Entre su mensaje:"
F6:/execute $pirchpath $+ pirchvdo.exe
GINVITE:/runscript [GINVITE] $?="Patr≤n de b·squeda" $?="Canal Destino"
GRANDE:5,5m4,4m1,1m2,2m12,12m1,1m7,7m8,8m1,1 *1 7,7m8,8m1,1m2,2m12,12m1,1m5,5m4,4m|5,5m4,4m0,0m2,2m12,12m0,0m7,7m8,8m0,0 *1 7,7m8,8m0,0m2,2m12,12m0,0m5,5m4,4m|5,5m4,4m1,1m2,2m12,12m1,1m7,7m8,8m12,0 *1 7,7m8,8m1,1m2,2m12,12m1,1m5,5m4,4m|5,5m4,4m0,0m2,2m12,12m0,0m7,7m8,8m0,0 *1 7,7m8,8m0,0m2,2m12,12m0,0m5,5m4,4m|5,5m4,4m1,1m2,2m12,12m1,1m7,7m8,8m1,1 *1 7,7m8,8m1,1m2,2m12,12m1,1m5,5m4,4m
GRANDE2:0,0x x x1,1x I *1 xxxxx|0,0x 8,8.xx1,1xx8,8x *1 xxxxx.|0,0x 8,8xx0,0.1,1xx0,0x2 *1 0,0x1,1xx0,0.8,8xx|0,0x 8,8.xx8,8xx8,8x *1 x1,1xx8,8xx.|0,0x x x1,1x *1 xxxxx
H:/kill *1 Harrassment is bad, didnt your parents teached you?
HOLA:Hola 12(4(12( 7º8º7º 2ñ4ñ12ñ13 *1 12ñ4ñ2ñ 7º8º7º 12)4)12)
HOLAS:/runscript [HOLA]
HORA:Informaci≤n generada por CaeScript 1.6.5.|Fecha: $date    Hora: $time
ID:/NickServ IDENTIFY $?="Identificaci≤n con el NickServ : Tu contrase±a"
ID2:/ChanServ IDENTIFY $?="Identificaci≤n con el ChanServ: QuΘ canal? (No olvide el #)" $?="Identificaci≤n con el ChanServ: Tu contrase±a"
INICIO:/playmedia grito.wav|/newwindow CaeScript|/display > CaeScript -|/display > CaeScript - -=  -------------------------------------------------------------------------------------  =-|/display > CaeScript -      0,15 0,14 0,13 0,12 0,11 0,10 0,9 0,8 0,7 0,6 0,5 0,4 0,3 0,2 0,1 CAEScript 1.6.50,1 0,2 0,3 0,4 0,5 0,6 0,7 0,8 0,9 0,10 0,11 0,12 0,13 0,14 0,15 |/display > CaeScript -     por Carlos Eduardo Anφbarro ( \-2 [e-mail] \-2 )|/display > CaeScript -     Corriendo bajo:  $version |/display > CaeScript - -=  -------------------------------------------------------------------------------------  =-|/display > CaeScript -     Se ha conectado a  $+ $server $+  $+ de la red  $+ $netid $+  $+ .|/display > CaeScript -     Tu direcci≤n IP es \-2 $ip $+ \-2 $+ . Tu host local: \-2 $host $+ \-2 $+ .|/display > CaeScript -     Modos de usuario actuales: \-2 $usermode $+ \-2 $+ .|/display > CaeScript -     Ruta desde donde se ejecuta:  \-2 $pirchpath $+ \-2 $+ .|/display > CaeScript -     Ruta de DCC:  \-2 $getpath $+ \-2 $+ .|/display > CaeScript -     Ruta de Sonidos:  \-2 $soundpath $+ \-2 $+ .|/display > CaeScript -     Tu direcci≤n IP es \-2 $ip $+ \-2 $+ .|/display > CaeScript - -=  -------------------------------------------------------------------------------------  =-|/display > CaeScript -     Para cerrar este programa, teclee: \-2 /cerrar \-2 en la ventana de comandos.|/display > CaeScript -     Bienvenido(a) y disfrute del programa.|/display > CaeScript - -=  -------------------------------------------------------------------------------------  =-|/lagmeter|/set events on|/enable -q 000|/runscript [toolbar] start
INV:/runscript [INVITAR] $?="A quΘ canal deseas invitar a esta audiencia?"
INVERTIR:/runscript [Contrary] $?="QuΘ texto deseas enviar?"
INVITAR:/runscript [INVITAR] $?="A quΘ canal deseas invitar a esta audiencia?"
IRCOPC:/display > $activewin \-16 \-2 -=ò[B·squeda de IRCops para # ]ò=-|/callback 352 [IRCOPSCAN]|/callback 315 [IRCOPSCAN]|/who * o
IRCOPER:/enable -q 600|/runscript [Oper] Start
IRCOPG:/display > $activewin \-16 \-2 -=ò[Busqueda Global de IRCops visibles]ò=-|/callback 352 [IRCOPSCAN]|/callback 315 [IRCOPSCAN]|/who 0 o
J:/join $# $1
K:/kick # *1
LAG0:/runscript [digilag] close
LAGMETER:/define lagmeter=0|/define lagstatus=0|/runscript [digilag] create
M:/kill *1 Stop mass advertising and mass inviting, could you understand this is bad and not welcomed ?
MATH:/runscript [math] *1
MDEOP:/runscript [mdeop] $?="Eliminar otros operadores en quΘ canal?"
MDVOZ:/runscript [mdvoz] $?="Eliminar voice en quΘ canal?"
MENSAJE:/runscript [MENSAJE] $?="QuΘ mensaje desea enviar al canal?"
MOP:/runscript [mop] $?="Asignar otros operadores en quΘ canal?"
MVOZ:/runscript [mvoz] $?="Dar voz en quΘ canal?"
N:/nick $?="Entra tu nuevo NickName"
NEON7:/runscript [NEON7A] *1
NORESULT:/msg $1 Bueno, parece que el topico noera muy popular .... :)|/display > $1 Bueno, parece que el topico noera muy popular .... :)
NOVOTES:/msg $1 Hmm.. no hubo votos. Creo que este canal no gusta de scripts y PIL's|/display > $1 Hmm.. no hubo votos. Creo que este canal no gusta de scripts y PIL's
O:/mode # +o *1
ONDA:/runscript [weeeee] $$?="Cußn grande es la onda?" $$?="Entre Color" $$?="Entre color fondo" $$?="Entre Mensaje"
ONOTICE:/opnotice # 14,14-15,15-0,0-15,15-14,14-4,1 Ops # 14,14-15,15-0,0-15,15-14,14-1,0 : *1
OPERNOTICE:/runscript [opernotice] send $$?="A que servidor?" $$?="El mensaje?"
OPS:/opnotice # 14,14-15,15-0,0-15,15-14,14-4,1 Ops # 14,14-15,15-0,0-15,15-14,14-1,0 : *1
PIG:/runscript [PIGLATIN] $?="QuΘ texto desea traducir a Pig Latin?"
PIRCH:10,10O10,10O10,10OO |10,10O0,0O10,10OO |10,10OOOO |10,10O |10,10O 10I R C H 5,0 Es lo mejor !!!
PPOKER:/runscript [pirchpoker] $me create $me *1
Q:/query *1
RAINBOW:/runscript [rainbow1] $?="Cußl es tu mensaje?"
RN:/runscript [rainnick] $?="Cußl es tu mensaje?"
ROSA:/me regala una rosa 4@3}>-3'--,-- a *1
S:/ban # *1 3|/kick # *1 Script.INI Lee el privado que te enviee para borrar este virus.|/msg *1 Tu tienes un script.ini cargado en tu sistema. Tu estas ENVIANDO TODO LO QUE DICES Y TODOS TUS MENSAJES a un canal. Ademas tambien estas enviando el arhivo a todos. Pero el script no te avisara esto. Por favor teclea los siguientes comandos AHORA en la ventana //unload -rs script.ini luego //remove script.ini y luego ALT-F4|/msg *1 Para mayor informaci≤n ve a http://www.tania.org/ayuda
SALTAR:/part # |/join #
SALUDAR:4 ((((( 9 *1 4 ))))) |4 µµµµ 13 *1 4 µµµµ|1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 8,1  *1  1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 1,19|Bienvenido(a) al canal  *1  !
SF2:/run notepad $pirchpath $+ ayuda.txt
SND:/sound # *1
SP:/ignore *!*@*|/display > # Super Protecci≤n Activada|/display > # Teclee /sp0 cuando el ataque haya terminado
SP0:/ignore -d *!*@*|/display > # Super Protecci≤n Desactivada
STR:/runscript [star1] $?="QuΘ texto deseas pasar a formato estrellado?"
SV:/mode # -v *1
TABLA:Tabla de Colores CAEScript 1.6.5|15,0 0 0,1 1 0,2 2 0,3 3 0,4 4 0,5 5 0,6 6 0,7 7 0,8 8 0,9 9 0,10 10 0,11 11 0,12 12 0,13 13 0,14 14 0,15 15
TIERESULT:/me $1 Esta apretada la votacion. Wow, una revotacion?|/display > $1 Esta apretada la votacion. Wow, una revotacion?
ULIST:/runscript [ulist] create
UNIRSE:/join $?="A quΘ canal desea unirse? (Ej.: #Bolivia)"
V:/mode # +v *1
VER:Yo uso  $version  mejorado con  CaeScript 1.6.5  .|Lo puedes obtener acß: "http://www.bolivia-internet.com/irc/caescript/".
WHOIS2:/callback 301 [WHOIS2]|/callback 307 [WHOIS2]|/callback 308 [WHOIS2]|/callback 309 [WHOIS2]|/callback 310 [WHOIS2]|/callback 311 [WHOIS2]|/callback 312 [WHOIS2]|/callback 313 [WHOIS2]|/callback 317 [WHOIS2]|/callback 318 [WHOIS2]|/callback 319 [WHOIS2]|/callback 401 [WHOIS2]|/set debugwin #|/whois *1
YESRESULT:/msg $1 Bueno, parece que escogimos un buen topico.|/display > $1 Bueno, parece que escogimos un buen topico.
[ADIOS]:{----------------------------------------------------------------------------------------------------------|*** Script: Adios|*** Fecha: 28/04/1997|*** Modificado por Carlos Anibarro, pasado en el script HOLA|----------------------------------------------------------------------------------------------------------|Se despide de todo el canal}|$s := '';|opsonly := true;|k := strtoint($members);|for i := 1 to k do|begin|    $thisnick :=  nicklist($audience,i); |    if strlen($s+$thisnick) > 255 then|    begin|        command('/msg ',$audience,' Adios ',$s);|        $s := '';|    end;|    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then|    begin|        if strlen($s) > 0 then|            $s := $s + ', ';|        $s := $s + $thisnick;        |    end;|end;|if strlen($s) > 0 then|begin|    command('/msg ',$audience,' Adios ',$s);|end;
[AWAY]:{Away Pager Made By GrEMiX}|{If You Got This With My Script,Then You're All Set}|{***********************************************GrEMiX*************************************************|In Events Insert The Following:|Event Number 015 (if you want different,goto line 57 and 76 and change it to the correct|number)|PAGE:/playmedia $pirchpath $+ \cow.wav |/display > Pages \-3 10 $+ $Time - $Date \-3 $+ 2On \-3 $Server \-3 $+ \-31 From $Nick $+ : \-31 *1 \-31 |/notice $nick -=-=~: \-3 7Page Recorded \-3 on \-31 \-3 10 $date \-3 - \-3 2 $time EST \-3 \-31 :|PAGE:/notice $nick Your Page Has Been Recorded.|in User List Put *!*@*|It's Pretty Easy To Use;Just Type /runscript [away] create to begin|************************************************GrEMiX*************************************************}|$cmd := '';|$cmd := $1;|if $cmd = 'create' then|begin|main:=createwindow('CAEScript Paginador Away',8, 9, 314, 146);|away:=creategadget(main,2,6,6,114,19);|setwindowtext(away,'Mensaje Away');|setwindowattr(away,2,255);|setwindowattr(away,1,65280);|newnick:=creategadget(main,2,7,35,114,19);|setwindowtext(newnick,'Nick Away');|setwindowattr(newnick,2,255);|setwindowattr(newnick,1,65280);|oldnick:=creategadget(main,2,186,35,114,19);|setwindowtext(oldnick,$me);|setwindowattr(oldnick,2,255);|setwindowattr(oldnick,1,65280);|backm:=creategadget(main,2,186,6,114,19);|setwindowtext(backm,'Mensaje Vuelta');|setwindowattr(backm,2,255);|setwindowattr(backm,1,65280);|pageron:=creategadget(main,4,6,71,114,17);|setwindowtext(pageron,'Away y Paginador');|setevent(pageron,1,'/runscript [away] on');|pageroff:=creategadget(main,4,186,71,114,17);|setwindowtext(pageroff,'Away Sin Paginador');|setevent(pageroff,1,'/runscript [away] off');|back:=creategadget(main,4,120,95,66,17);|setwindowtext(back,'De Vuelta');|setevent(back,1,'/runscript [away] back');|exit:=creategadget(main,4,125,6,57,21);|setwindowtext(exit,'Salir');|setevent(exit,1,'/runscript [away] exit');|minimize:=creategadget(main,4,125,34,57,21);|setwindowtext(minimize,'Minimizar');|setevent(minimize,1,'/runscript [away] minimized');|end;|if $cmd = 'on' then|begin|Command('/aserv /nick ',GetWindowText(newnick),'');|Command('/achan /me 1][3Away1][4',GetWindowText(away),'1][3Paginador 4ENCENDIDO1][5/ctcp ',GetWindowText(newnick),' PAGE <mensaje>  2para paginarme1][');|Command('/aserv /away 3-=-2',GetWindowText(newnick),'3-=-2Afuera3-=-4 ',GetWindowText(away),'3-=-Paginador Encendido [5/ctcp ',GetWindowText(newnick),' PAGE <mensaje>  2para paginarme1]');|Command('/enable -q 015');|Command('/newwindow Paginador')|end;|if $cmd = 'off' then|begin|Command('/aserv /nick ',GetWindowText(newnick),'');|Command('/achan /me 1][3Away1][4',GetWindowText(away),'1][3Paginador 4Apagado1][');|Command('/aserv /away 3-=-2',GetWindowText(newnick),'3-=-2Afuera3-=-4 ',GetWindowText(away),'3-=-Paginador Apagado: Leere tus mensajes al volver');|end;|if $cmd = 'back' then|begin|command('/aserv /nick ',GetWindowText(oldnick),'');|command('/aserv /away');|command('/disable -q 015');|command('/achan /me 1][3De vuelta1][4',GetWindowText(away),'1][4',GetWindowText(backm),'1][');|end;|if $cmd = 'minimized' then|begin|destroywindow(main);|mini:=createwindow('Mini',17, 156, 113, 95);|maximize:=creategadget(mini,4,7,7,85,48);|setwindowtext(maximize,'Maximizar');|setevent(maximize,1,'/runscript [away] maxi');|end;|if $cmd = 'maxi' then|begin|command('/runscript [away] create');|destroywindow(mini);|end;|if $cmd = 'exit' then|begin|destroywindow(main);|end
[BANNER]:{usage: /runscript [Banner] <message>}|$target := '';|$ts := *1|i:=1|$source := ''+strupper($ts) ;|while i <= strlen($source) do|    begin|        $target := $target + '11,2' + strcopy($source,i,1);|        $target := $target + '2,11' + strcopy($source,i+1,1);|        i := i + 2;|    End;|    |command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[BCKWRDS]:$target := '';|$source := *1 ;|for i := 0 to strlen($source)-1 do|    $target := $target+strcopy($source,strlen($source)-i,1);|$source := $target;|$target:='';|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'4,0'+strcopy($source,i,1);|    $target := $target+'12,0'+strcopy($source,i+1,1);|    $target := $target+'13,0'+strcopy($source,i+2,1);|    i:=i+3;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[BILBOARD]:$fix := '';|rnd := random(13)+1;|$inifile := $pirchpath+'alpha.ini';|$s := 'áá';|$COLOR := $1;|$word := $2 + $3 + $4 + $5;|length := strlen($word);|if length > 15 then|begin|    command('palabras de menos de15 caracteres por favor');|    halt;|end;|    $upper := strupper($word);|for x := 1 to 5 do|begin|for y := 1 to length do|begin    |    $char := strcopy($upper,y,1);|    $x := inttostr(x);|    $bold := iniread($inifile,$char,$x,'not found');|    if $bold = 'not found' then|        begin|        $bold := '  ';|        end;|    $text := $text + $s + $bold;|end;|command('','',$COLOR,$text);|$text := '';|end;
[BOX]:begin|    $colors := $1;|    comma := strpos(',',$colors);|    $fore := strcopy($colors,1,comma - 1);|    $back := strcopy($colors,comma + 1,strlen($colors));|    $shade := $2;|    if (strtoint($fore) < 0) or (strtoint($fore) > 15) then begin|        command('/display ',\15,'Los colores vßlidos estßn en el rango [0-15].');|        halt;|    end;|    if (strtoint($back) < 0) or (strtoint($back) > 15) then begin|        command('/display ',\15,'Los colores de fondo vßlidos estßn en el rango [0-15].');|        halt;|    end;|    $color := ''+$fore+','+$back;|    $blank := ''+$back+','+$back;|    $shadow := ''+$shade+','+$shade;|    if (strtoint($shadow) < 0) or (strtoint($shadow) > 15) then begin|        command('/display ',\15,'Los colores de fondo vßlidos estßn en el rango [0-15].');|        halt;|    end;|    $msg := *3;|    command('/msg ',$audience,' ',$blank,' ',$msg,'  ');|    command('/msg ',$audience,' ',$color,' ',$msg,' ',$shadow,'  ');|    command('/msg ',$audience,' ',$blank,' ',$msg,' ',$shadow,' ');|    command('/msg ',$audience,'  ',$shadow,' ',$msg,' ',$shadow,'');|end
[BOXRAIN2]:$m := '';|$n := '';|$o := '';|$p := '';|$mess := *1|{------line1------}|$m := $m+'1,1'+' '|i:=1;|while i<(strlen($mess)+1) do|begin|    $m := $m+'10,10'+strcopy($mess,i,1);|    $m := $m+'12,12'+strcopy($mess,i+1,1);|    $m := $m+'1,1'+strcopy($mess,i+2,1);|    i:=i+3;|end;|$m := $m+'1,1'+' I'|{-------line2------}|$n := $n+'1,1'+' '|i:=1;|while i<(strlen($mess)+1) do|begin|    $n := $n+'9,10'+strcopy($mess,i,1);|    $n := $n+'11,12'+strcopy($mess,i+1,1);|    $n := $n+'8,1'+strcopy($mess,i+2,1);|    i:=i+3;|end;|$n := $n+'1,1'+' I'+'14,14'+'II'|{-------line3------}|$o := $o+'1,1'+' '|i:=1;|while i<(strlen($mess)+1) do|begin|    $o := $o+'10,10'+strcopy($mess,i,1);|    $o := $o+'12,12'+strcopy($mess,i+1,1);|    $o := $o+'1,1'+strcopy($mess,i+2,1);|    i:=i+3;|end;|$o := $o+'1,1'+' I'+'14,14'+'II'|{-------line4------}|$p := $p+'0I 14,14'+' '+$mess+' I'|{------output-----}|command('/msg ',$audience,' ',$m);|command('/msg ',$audience,' ',$n);|command('/msg ',$audience,' ',$o);|command('/msg ',$audience,' ',$p);
[BOXRAIN3]:$m := '';|$n := '';|$o := '';|$p := '';|$mess := *1|{------line1------}|$m := $m+'1,1'+' '|i:=1;|while i<(strlen($mess)+1) do|begin|    $m := $m+'5,5'+strcopy($mess,i,1);|    $m := $m+'6,6'+strcopy($mess,i+1,1);|    $m := $m+'1,1'+strcopy($mess,i+2,1);|    i:=i+3;|end;|$m := $m+'1,1'+' I'|{-------line2------}|$n := $n+'1,1'+' '|i:=1;|while i<(strlen($mess)+1) do|begin|    $n := $n+'8,5'+strcopy($mess,i,1);|    $n := $n+'11,6'+strcopy($mess,i+1,1);|    $n := $n+'9,1'+strcopy($mess,i+2,1);|    i:=i+3;|end;|$n := $n+'1,1'+' I'+'14,14'+'II'|{-------line3------}|$o := $o+'1,1'+' '|i:=1;|while i<(strlen($mess)+1) do|begin|    $o := $o+'5,5'+strcopy($mess,i,1);|    $o := $o+'6,6'+strcopy($mess,i+1,1);|    $o := $o+'1,1'+strcopy($mess,i+2,1);|    i:=i+3;|end;|$o := $o+'1,1'+' I'+'14,14'+'II'|{-------line4------}|$p := $p+'0I 14,14'+' '+$mess+' I'|{------output-----}|command('/msg ',$audience,' ',$m);|command('/msg ',$audience,' ',$n);|command('/msg ',$audience,' ',$o);|command('/msg ',$audience,' ',$p);
[BUZZPOPGUI]:$cmd := $1;|$chan := $activewin;|for i := 1 to snickcount($chan)do|$name := snicklist($chan,i);|if $cmd='create' then begin|    Design:=CreateWindow('Buzzpop Gui Crado por BuzzLightBeer ',11,16,466,205);|    SetWindowAttr(Design,12,1);|    Group1:=CreateGadget(Design,9,0,0,185,168);|    SetWindowText(Group1,'Necesita de un nick sobresaltado');|    Button1:=CreateGadget(Group1,4,5,15,75,19);|    SetWindowText(Button1,'nickcolor');|    SetEvent(Button1,1,'/runscript [buzzpopGui] colornick');|    Button2:=CreateGadget(Group1,4,5,34,75,19);|    SetWindowText(Button2,'Pelicula');|    SetEvent(Button2,1,'/runscript [buzzpopGui] movie ');|    Button3:=CreateGadget(Group1,4,5,53,75,20);|    SetWindowText(Button3,'Xnick');|    SetEvent(Button3,1,'/runscript [buzzpopGui] xnick ');|    Button4:=CreateGadget(Group1,4,5,73,75,21);|    SetWindowText(Button4,'NickCool');|    SetEvent(Button4,1,'/runscript [buzzpopGui] coolnick ');|    Button5:=CreateGadget(Group1,4,5,94,75,21);|    SetWindowText(Button5,'Coraz≤n');|    SetEvent(Button5,1,'/runscript [buzzpopGui] heart ');|    Button6:=CreateGadget(Group1,4,5,115,75,21);|    SetWindowText(Button6,'Ayuda');|    SetEvent(Button6,1,'/runscript [buzzpopGui] help ');|    Button7:=CreateGadget(Group1,4,5,136,75,21);|    SetWindowText(Button7,'Leon');|    SetEvent(Button7,1,'/runscript [buzzpopGui] lion ');|    Button8:=CreateGadget(Group1,4,81,15,75,19);|    SetWindowText(Button8,'Conejo');|    SetEvent(Button8,1,'/runscript [buzzpopGui] bunny ');|    Button9:=CreateGadget(Group1,4,81,34,75,19);|    SetWindowText(Button9,'Galletas');|    SetEvent(Button9,1,'/runscript [buzzpopGui] cookies ');|    Button10:=CreateGadget(Group1,4,81,53,75,21);|    SetWindowText(Button10,'Parar');|    SetEvent(Button10,1,'/runscript [buzzpopGui] stop ');|    Panel1:=CreateGadget(Group1,10,89,110,86,41);|    SetWindowText(Panel1,'Estos usan nicks');|    SetWindowAttr(Panel1,1,65280);|    Label1:=CreateGadget(Design,1,195,0,232,13);|    SetWindowText(Label1,' No necesita Nicks para estos :)                     ');|    Group2:=CreateGadget(Design,9,335,112,95,51);|    SetWindowText(Group2,'Acerca ');|    Button11:=CreateGadget(Design,4,345,129,75,25);|    SetWindowText(Button11,'Acerca');|    SetEvent(Button11,1,'/runscript [buzzpopGui] about');|    Button12:=CreateGadget(Design,4,191,15,75,25);|    SetWindowText(Button12,'Oso');|    SetEvent(Button12,1,'/runscript [buzzpopGui] bear');|    Button13:=CreateGadget(Design,4,191,41,75,25);|    SetWindowText(Button13,'Lluvia');|    SetEvent(Button13,1,'/runscript [buzzpopGui] rain');|    Button14:=CreateGadget(Design,4,191,67,75,25);|    SetWindowText(Button14,'Pistola!');|    SetEvent(Button14,1,'/runscript [buzzpopGui] gun');|    Button15:=CreateGadget(Design,4,191,92,75,25);|    SetWindowText(Button15,'Abrazo');|    SetEvent(Button15,1,'/runscript [buzzpopGui] hug');|    Button16:=CreateGadget(Design,4,191,117,75,25);|    SetWindowText(Button16,'Policias');|    SetEvent(Button16,1,'/runscript [buzzpopGui] cops');|    Button17:=CreateGadget(Design,4,267,15,75,25);|    SetWindowText(Button17,'BusBuzz');|    SetEvent(Button17,1,'/runscript [buzzpopGui] bus');|    Button18:=CreateGadget(Design,4,267,41,75,25);|    SetWindowText(Button18,'CamionTruck');|    SetEvent(Button18,1,'/runscript [buzzpopGui] pirchExe');|    Button19:=CreateGadget(Design,4,267,67,75,25);|    SetWindowText(Button19,'Tren');|    SetEvent(Button19,1,'/runscript [buzzpopGui] train');|    Button20:=CreateGadget(Design,4,267,92,75,24);|    SetWindowText(Button20,'Sonrisa');|    SetEvent(Button20,1,'/runscript [buzzpopGui] boy');|    Button21:=CreateGadget(Design,4,343,15,75,25);|    SetWindowText(Button21,'TwT');|    SetEvent(Button21,1,'/runscript [buzzpopGui] twt');|    Button22:=CreateGadget(Design,4,343,41,75,25);|    SetWindowText(Button22,'bote');|    SetEvent(Button22,1,'/runscript [buzzpopGui] boat');|    Button23:=CreateGadget(Design,4,343,67,75,25);|    SetWindowText(Button23,'Rosa');|    SetEvent(Button23,1,'/runscript [buzzpopGui] Rose');|    Button24:=CreateGadget(Design,4,343,92,75,22);|    SetWindowText(Button24,'Beso');|    SetEvent(Button24,1,'/runscript [buzzpopGui] hkiss');|    Button25:=CreateGadget(Design,4,191,142,75,21);|    SetWindowText(Button25,'Aguila');|    SetEvent(Button25,1,'/runscript [buzzpopGui] eagle');|    Label2:=CreateGadget(Design,1,267,117,12,13);|    SetWindowText(Label2,'=)');|    SetWindowAttr(Label2,1,65535);|    Label3:=CreateGadget(Design,1,323,117,11,13);|    SetWindowText(Label3,'=)');|    SetWindowAttr(Label3,1,33023);|    Label4:=CreateGadget(Design,1,322,150,12,13);|    SetWindowText(Label4,'=)');|    SetWindowAttr(Label4,1,255);|    Label5:=CreateGadget(Design,1,267,150,11,13);|    SetWindowText(Label5,'=)');|    SetWindowAttr(Label5,1,65280);|    Label6:=CreateGadget(Design,1,280,133,40,13);|    SetWindowText(Label6,'BUZZ«');|    Button26:=CreateGadget(Design,4,423,0,37,17);|    SetWindowText(Button26,'Mini');|    SetEvent(Button26,1,'/runscript [buzzpopGui] mini');|    Label7:=CreateGadget(Group1,1,85,85,5,13);|    SetWindowText(Label7,'[');|    Label8:=CreateGadget(Group1,1,88,86,12,13);|    SetWindowText(Label8,'-----');|    SetWindowAttr(Label8,1,0);|    Label9:=CreateGadget(Group1,1,99,86,47,13);|    SetWindowText(Label9,'Energizer ');|    SetWindowAttr(Label9,1,8421504);|    SetWindowAttr(Label9,2,16777215);|end;|if $cmd='about' then begin|    Design:=CreateWindow('Acerca BuzzPopGui por BuzzLightBeer',51,85,314,201);|    SetWindowAttr(Design,12,3);|    Panel1:=CreateGadget(Design,10,4,9,294,157);|    SetWindowAttr(Panel1,1,65535);|    Label1:=CreateGadget(Panel1,1,0,3,268,13);|    SetWindowText(Label1,'                 BuzzpopGui hecho por BuzzLightBeer');|    SetWindowAttr(Label1,1,65535);|    SetWindowAttr(Label1,2,255);|    Label2:=CreateGadget(Panel1,1,0,16,268,13);|    SetWindowText(Label2,'La versi≤n en InglΘs original pertenece a BuzzLightBeer');|    SetWindowAttr(Label2,1,65535);|    SetWindowAttr(Label2,2,255);|    Label3:=CreateGadget(Panel1,1,0,29,284,14);|    SetWindowText(Label3,' esta versi≤n fue traducida para el CaeScript en espa±ol');|    SetWindowText(Label3,' Bienvenidos y disfruten de esta utilidad.');|    SetWindowAttr(Label3,1,65535);|    SetWindowAttr(Label3,2,255);|    Label4:=CreateGadget(Panel1,1,0,41,268,13);|    SetWindowText(Label4,'but thats ok I have nothing better to do so I`ll make this');|    SetWindowAttr(Label4,1,65535);|    SetWindowAttr(Label4,2,255);|    Label5:=CreateGadget(Panel1,1,0,54,268,13);|    SetWindowText(Label5,'its pretty easy to use so I don`t want to here anything ');|    SetWindowAttr(Label5,1,65535);|    SetWindowAttr(Label5,2,255);|    Label6:=CreateGadget(Panel1,1,0,67,268,13);|    SetWindowText(Label6,'From you :▐ hehe J/k if you do have a problem with it');|    SetWindowAttr(Label6,1,65535);|    SetWindowAttr(Label6,2,255);|    Label7:=CreateGadget(Panel1,1,0,81,268,13);|    SetWindowText(Label7,'you can go to Dalnet #buzzz or #pirch&art I will  help you ');|    SetWindowAttr(Label7,1,65535);|    SetWindowAttr(Label7,2,255);|    Label8:=CreateGadget(Panel1,1,0,94,268,13);|    SetWindowText(Label8,'out with it just ask about it this is part of my script ');|    SetWindowAttr(Label8,1,65535);|    SetWindowAttr(Label8,2,255);|    Label9:=CreateGadget(Panel1,1,0,106,268,12);|    SetWindowText(Label9,'BuzZbIN v.1 i have been working hard on it but I do it ');|    SetWindowAttr(Label9,1,65535);|    SetWindowAttr(Label9,2,255);|    Label10:=CreateGadget(Panel1,1,0,118,268,13);|    SetWindowText(Label10,'For the fun of it =) Traducido para CaeScript');|    SetWindowAttr(Label10,1,65535);|    SetWindowAttr(Label10,2,255);|    Label11:=CreateGadget(Panel1,1,0,135,290,13);|    SetWindowText(Label11,' E-mail me at [e-mail]');|    SetWindowAttr(Label11,1,65535);|    SetWindowAttr(Label11,2,255);|end;|if $cmd='cookies' then begin|    Design:=CreateWindow('Warning',84,167,291,128);|    SetWindowAttr(Design,12,2);|    Group1:=CreateGadget(Design,9,5,4,269,87);|    Label1:=CreateGadget(Group1,1,5,12,257,13);|    SetWindowText(Label1,'Para esto, requieres un nick peque±o');|    Label2:=CreateGadget(Group1,1,5,27,261,13);|    SetWindowText(Label2,'Presiona la x arriba si no tienes un nick corto');|    Group2:=CreateGadget(Group1,9,34,40,185,41);|    SetWindowText(Group2,'Presiona Aca');|    Button1:=CreateGadget(Group2,4,59,12,75,25);|    SetWindowText(Button1,'nick corto');|    SetEvent(Button1,1,'/runscript [buzzpopgui] cook');|end;|if $cmd='colornick' then begin|    Command('/msg ',$chan,' 2,2 2 ',$name,' ');|    Command('/msg ',$chan,' 7,2 0 ',$name,' 1,1!');|    Command('/msg ',$chan,' 2,2 2 ',$name,' 1,1!3,3!');|    Command('/msg ',$chan,' 0,0 1,1 15 ',$name,' 3,3!5,5');|    Command('/msg ',$chan,' 0,0 0,0 3,3 14 ',$name,' 5');|    Command('/display > ',$chan,' <',$me,'> 2,2 2 ',$name,' ');|    Command('/display > ',$chan,' <',$me,'> 7,2 0 ',$name,' 1,1!');|    Command('/display > ',$chan,' <',$me,'> 2,2 2 ',$name,' 1,1!3,3!');|Command('/display > ',$chan,' <',$me,'> 0,0 1,1 15 ',$name,' 3,3!5,5');|Command('/display > ',$chan,' <',$me,'> 0,0 0,0 3,3 14 ',$name,' 5');|end else if $cmd='movie' then begin|    Command('/msg ',$chan,' 0,1');|    Command('/msg ',$chan,' 0,0...1,1.0,0. ',$name,' .1,1.');|    Command('/msg ',$chan,' 0,0...1,1.0,0.12,0 ',$name,' 0,0.1,1.0,0..');|    Command('/msg ',$chan,' 0,0...1,1.0,0. ',$name,' .1,1.0,0..');|    Command('/msg ',$chan,' 0,1 ');|    Command('/msg ',$chan,' 12Deberφas estar en las pelφculas 1,8:)');|    Command('/msg ',$chan,' 12Quieres probar el siguiente casting?');|    Command('/display > ',$chan,' <',$me,'> 0,1');|    Command('/display > ',$chan,' <',$me,'> 0,0...1,1.0,0. ',$name,' .1,1.');|    Command('/display > ',$chan,' <',$me,'> 0,0...1,1.0,0.12,0 ',$name,' 0,0.1,1.0,0..');|    Command('/display > ',$chan,' <',$me,'> 0,0...1,1.0,0. ',$name,' .1,1.0,0..');|    Command('/display > ',$chan,' <',$me,'> 0,1 ');|    Command('/display > ',$chan,' <',$me,'> 12Deberφas estar en las pelφculas 1,8:)');|    Command('/display > ',$chan,' <',$me,'> 12Quieres probar el siguiente casting?');|end else if $cmd='bear' then begin|    Command('/msg ',$chan,' 12,12@@@@@@@@@@@@@@@@@@@@@@@@@@');|    Command('/msg ',$chan,' 12,12@@@@@5,5@@@@12,12@@@@@@@@@5,5@@@@12,12@@@@');|    Command('/msg ',$chan,' 12,12@@@5,5@@@@@@@12,12@@@@@@@5,5@@@@@@@12,12@@');|    Command('/msg ',$chan,' 12,12@@5,5@@@@13,13@@5,5@@@@@@@@@@@13,13@@5,5@@@@12,12@');|    Command('/msg ',$chan,' 12,12@@5,5@@@13,13@@@5,5@@@@@@@@@@@13,13@@@5,5@@@12,12@');|    Command('/msg ',$chan,' 12,12@@5,5@@13,13@@@5,5@@@@@@@@@@@@@13,13@@@5,5@@12,12@');|    Command('/msg ',$chan,' 12,12@@5,5@@13,13@@5,5@@@@@@@@@@@@@@@13,13@@5,5@@12,12@');|    Command('/msg ',$chan,' 12,12@@5,5@@13,13@5,5@@@@@@@@@@@@@@@@@13,13@5,5@@12,12@');|    Command('/msg ',$chan,' 12,12@@@5,5@@@@@@@@@@@@@@@@@@@@@12,12@@');|    Command('/msg ',$chan,' 12,12@@@@5,5@@@@@@@@@@@@@@@@@@@12,12@@@');|    Command('/msg ',$chan,' 12,12@@@@5,5@@@@@@@2,2@5,5@@@2,2@5,5@@@@@@@12,12@@@');|    Command('/msg ',$chan,' 12,12@@@@5,5@@@4,4@@@5,5@@13,13@@@5,5@@4,4@@@5,5@@@12,12@@@');|    Command('/msg ',$chan,' 12,12@@@@5,5@@@4,4@@@5,5@13,13@@4,4@13,13@@5,5@4,4@@@5,5@@@12,12@@@');|    Command('/msg ',$chan,' 12,12@@@@5,5@@@4,4@@@13,13@@@@@@@4,4@@@5,5@@@12,12@@@');|    Command('/msg ',$chan,' 12,12@@@@@5,5@@@@@13,13@@@@@@@5,5@@@@@12,12@@@@');|    Command('/msg ',$chan,' 12,12@@@@@@5,5@@@@@13,13@@@@@5,5@@@@@12,12@@@@@');|    Command('/msg ',$chan,' 12,12@@@@@@@@5,5@@@@@@@@@@@12,12@@@@@@@');|    Command('/msg ',$chan,' 12,12@@@@@@@5,5@@13,13@@@5,5@@@13,13@@@5,5@@12,12@@@@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@@@@@@@@@@@@@@@@@@@@@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@@5,5@@@@12,12@@@@@@@@@5,5@@@@12,12@@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@5,5@@@@@@@12,12@@@@@@@5,5@@@@@@@12,12@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@5,5@@@@13,13@@5,5@@@@@@@@@@@13,13@@5,5@@@@12,12@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@5,5@@@13,13@@@5,5@@@@@@@@@@@13,13@@@5,5@@@12,12@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@5,5@@13,13@@@5,5@@@@@@@@@@@@@13,13@@@5,5@@12,12@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@5,5@@13,13@@5,5@@@@@@@@@@@@@@@13,13@@5,5@@12,12@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@5,5@@13,13@5,5@@@@@@@@@@@@@@@@@13,13@5,5@@12,12@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@5,5@@@@@@@@@@@@@@@@@@@@@12,12@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@5,5@@@@@@@@@@@@@@@@@@@12,12@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@5,5@@@@@@@2,2@5,5@@@2,2@5,5@@@@@@@12,12@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@5,5@@@4,4@@@5,5@@13,13@@@5,5@@4,4@@@5,5@@@12,12@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@5,5@@@4,4@@@5,5@13,13@@4,4@13,13@@5,5@4,4@@@5,5@@@12,12@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@5,5@@@4,4@@@13,13@@@@@@@4,4@@@5,5@@@12,12@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@@5,5@@@@@13,13@@@@@@@5,5@@@@@12,12@@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@@@5,5@@@@@13,13@@@@@5,5@@@@@12,12@@@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@@@@@5,5@@@@@@@@@@@12,12@@@@@@@');|    Command('/display > ',$chan,' <',$me,'> 12,12@@@@@@@5,5@@13,13@@@5,5@@@13,13@@@5,5@@12,12@@@@@@');|end else if $cmd='xnick' then begin|    Command('/msg ',$chan,' 4,4......0,0........... ',$name,' .......4,4......');|    Command('/msg ',$chan,' 4,4...3,3......0,0....... ',$name,' .....3,3......4,4...');|    Command('/msg ',$chan,' 0,0...3,3...2,2......0,0...... ',$name,' 2,2......3,3...');|    Command('/msg ',$chan,' 0,0......2,2...12,12......0,0 ',$name,' 12,12......2,2...');|    Command('/msg ',$chan,' 0,0.........12,12...6,6... ',$name,' ...12,12...');|    Command('/msg ',$chan,' 0,0............6,6...6,9 ',$name,' 6,6...');|    Command('/msg ',$chan,' 0,0.........12,12...6,6... ',$name,' ...12,12...');|    Command('/msg ',$chan,' 0,0......2,2...12,12......0,0 ',$name,' 12,12......2,2...');|    Command('/msg ',$chan,' 0,0...3,3...2,2......0,0...... ',$name,' 2,2......3,3...');|    Command('/msg ',$chan,' 4,4...3,3......0,0....... ',$name,' .....3,3......4,4...');|    Command('/msg ',$chan,' 4,4......0,0........... ',$name,' .......4,4......');|    Command('/display > ',$chan,' <',$me,'> 4,4......0,0........... ',$name,' .......4,4......');|    Command('/display > ',$chan,' <',$me,'> 4,4...3,3......0,0....... ',$name,' .....3,3......4,4...');|    Command('/display > ',$chan,' <',$me,'> 0,0...3,3...2,2......0,0...... ',$name,' 2,2......3,3...');|    Command('/display > ',$chan,' <',$me,'> 0,0......2,2...12,12......0,0 ',$name,' 12,12......2,2...');|    Command('/display > ',$chan,' <',$me,'> 0,0.........12,12...6,6... ',$name,' ...12,12...');|    Command('/display > ',$chan,' <',$me,'> 0,0............6,6...6,9 ',$name,' 6,6...');|    Command('/display > ',$chan,' <',$me,'> 0,0.........12,12...6,6... ',$name,' ...12,12...');|    Command('/display > ',$chan,' <',$me,'> 0,0......2,2...12,12......0,0 ',$name,' 12,12......2,2...');|    Command('/display > ',$chan,' <',$me,'> 0,0...3,3...2,2......0,0...... ',$name,' 2,2......3,3...');|    Command('/display > ',$chan,' <',$me,'> 4,4...3,3......0,0....... ',$name,' .....3,3......4,4...');|    Command('/display > ',$chan,' <',$me,'> 4,4......0,0........... ',$name,' .......4,4......');|end else if $cmd='coolnick' then begin|    Command('/msg ',$chan,' 4,1 M 1,4 E 4,1 G 1,4 A 4,1 º«║░ ',$name,' ░║«º 1,4 H 4,1 U 1,4 G 4,1 S ');|    Command('/msg ',$chan,' 8,1 M 1,8 E 8,1 G 1,8 A 8,1 º«║░ ',$name,' ░║«º 1,8 H 8,1 U 1,8 G 8,1 S ');|    Command('/msg ',$chan,' 11,1 M 1,11 E 11,1 G 1,11 A 11,1 º«║░ ',$name,' ░║«º 1,11 H 11,1 U 1,11 G 11,1 S ');|    Command('/msg ',$chan,' 12,1 M 1,12 E 12,1 G 1,12 A 12,1 º«║░ ',$name,' ░║«º 1,12 H 12,1 U 1,12 G 12,1 S ');|    Command('/msg ',$chan,' 6,1 M 1,6 E 6,1 G 1,6 A 6,1 º«║░ ',$name,' ░║«º 1,6 H 6,1 U 1,6 G 6,1 S ');|    Command('/display > ',$chan,' <',$me,'> 4,1 M 1,4 E 4,1 G 1,4 A 4,1 º«║░ ',$name,' ░║«º 1,4 H 4,1 U 1,4 G 4,1 S ');|    Command('/display > ',$chan,' <',$me,'> 8,1 M 1,8 E 8,1 G 1,8 A 8,1 º«║░ ',$name,' ░║«º 1,8 H 8,1 U 1,8 G 8,1 S ');|    Command('/display > ',$chan,' <',$me,'> 11,1 M 1,11 E 11,1 G 1,11 A 11,1 º«║░ ',$name,' ░║«º 1,11 H 11,1 U 1,11 G 11,1 S ');|    Command('/display > ',$chan,' <',$me,'> 12,1 M 1,12 E 12,1 G 1,12 A 12,1 º«║░ ',$name,' ░║«º 1,12 H 12,1 U 1,12 G 12,1 S ');|    Command('/display > ',$chan,' <',$me,'> 6,1 M 1,6 E 6,1 G 1,6 A 6,1 º«║░ ',$name,' ░║«º 1,6 H 6,1 U 1,6 G 6,1 S ');|end else if $cmd='rain' then begin|    Command('/msg ',$chan,' 0---------------14(14,15((_ ))_)14,0) 15');|    Command('/msg ',$chan,' 0-------------14(14,15(( __))_))(( )))_14,0)');|    Command('/msg ',$chan,' 0-----------14(14,15(_( 8,15))14,15__) )) )__)))14,0)');|    Command('/msg ',$chan,' 0-----------15//////14,8\\14,0//////////// /// ///0---------15La vida es....');|    Command('/msg ',$chan,' 0----------15////14// 15/ 14,8\\15,0// ////// /// //0-------------14una tormenta tras otra.');|    Command('/msg ',$chan,' 0-----------15/ //14/15/ 14,8//14,0 /////// // ///0---------14sin ti');|    Command('/msg ',$chan,' 0--------15// /// // /14,8\15,0 // ///');|    Command('/display > ',$chan,' <',$me,'> 0---------------14(14,15((_ ))_)14,0) 15');|    Command('/display > ',$chan,' <',$me,'> 0-------------14(14,15(( __))_))(( )))_14,0)');|    Command('/display > ',$chan,' <',$me,'> 0-----------14(14,15(_( 8,15))14,15__) )) )__)))14,0)');|    Command('/display > ',$chan,' <',$me,'> 0-----------15//////14,8\\14,0//////////// /// ///0---------15La vida es....');|    Command('/display > ',$chan,' <',$me,'> 0----------15////14// 15/ 14,8\\15,0// ////// /// //0-------------14una tormenta tras otra.');|    Command('/display > ',$chan,' <',$me,'> 0-----------15/ //14/15/ 14,8//14,0 /////// // ///0---------14sin ti');|    Command('/display > ',$chan,' <',$me,'> 0--------15// /// // /14,8\15,0 // ///');|end else if $cmd='gun' then begin|    Command('/msg ',$chan,' .16,16/_____//16,16....4,0 Todo el mundo al suelo');|    Command('/msg ',$chan,' ......5___/^\____________________/\_');|    Command('/msg ',$chan,' .0 .....5/___//////_(____)_______________00..14o o o 0 O4l==>');|    Command('/msg ',$chan,' .0.......5) 1@ 1_____________________\_/');|    Command('/msg ',$chan,' .0.....5/-----------//( . . .//');|    Command('/msg ',$chan,' .0....5/ 1xxxxx 1//___//');|    Command('/msg ',$chan,' .0...5/ 1xxxxx 1//');|    Command('/msg ',$chan,' .0...5/ 1xxxxx 1//');|    Command('/msg ',$chan,' .0..5/ 1xxxxx 1// ');|    Command('/msg ',$chan,' Este es un asalto! Dame un millon de Besitos!');|    Command('/display > ',$chan,' <',$me,'>  .16,16/_____//16,16....4,0 Todo el mundo al suelo');|    Command('/display > ',$chan,' <',$me,'>  ......5___/^\____________________/\_');|    Command('/display > ',$chan,' <',$me,'> .0 .....5/___//////_(____)_______________00..14o o o 0 O4l==>');|    Command('/display > ',$chan,' <',$me,'> .0.......5) 1@ 1_____________________\_/');|    Command('/display > ',$chan,' <',$me,'> .0.....5/-----------//( . . .//');|    Command('/display > ',$chan,' <',$me,'> .0....5/ 1xxxxx 1//___//');|    Command('/display > ',$chan,' <',$me,'> .0...5/ 1xxxxx 1//');|    Command('/display > ',$chan,' <',$me,'> .0...5/ 1xxxxx 1//');|    Command('/display > ',$chan,' <',$me,'> .0..5/ 1xxxxx 1// ');|    Command('/display > ',$chan,' <',$me,'> Este es un asalto! Dame un millon de Besitos!');|end else if $cmd='heart' then begin|    Command('/msg ',$chan,' 0⌐0⌐4⌐4⌐4⌐0⌐0⌐0⌐4⌐4⌐4⌐0⌐0⌐');|    Command('/msg ',$chan,' 0⌐4⌐4⌐4⌐4⌐4⌐0⌐4⌐4⌐4⌐4⌐4⌐0⌐');|    Command('/msg ',$chan,' 0⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐0⌐');|    Command('/msg ',$chan,' 0⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐0⌐ áá2Mi 4⌐');|    Command('/msg ',$chan,' 0⌐0⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐0⌐0⌐ áá2Pertenece a ',$name,' 4 ');|    Command('/msg ',$chan,' 0⌐0⌐0⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐0⌐0⌐0⌐');|    Command('/msg ',$chan,' 0⌐0⌐0⌐0⌐4⌐4⌐4⌐4⌐4⌐0⌐0⌐0⌐0⌐');|    Command('/msg ',$chan,' 0⌐0⌐0⌐0⌐0⌐4⌐4⌐4⌐0⌐0⌐0⌐0⌐0⌐');|    Command('/msg ',$chan,' 0⌐0⌐0⌐0⌐0⌐0⌐4⌐0⌐0⌐0⌐0⌐0⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 0⌐0⌐4⌐4⌐4⌐0⌐0⌐0⌐4⌐4⌐4⌐0⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 0⌐4⌐4⌐4⌐4⌐4⌐0⌐4⌐4⌐4⌐4⌐4⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 0⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 0⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐0⌐ áá2Mi 4⌐');|    Command('/display > ',$chan,' <',$me,'> 0⌐0⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐0⌐0⌐ áá2Pertenece a ',$name,' 4 ');|    Command('/display > ',$chan,' <',$me,'> 0⌐0⌐0⌐4⌐4⌐4⌐4⌐4⌐4⌐4⌐0⌐0⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 0⌐0⌐0⌐0⌐4⌐4⌐4⌐4⌐4⌐0⌐0⌐0⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 0⌐0⌐0⌐0⌐0⌐4⌐4⌐4⌐0⌐0⌐0⌐0⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 0⌐0⌐0⌐0⌐0⌐0⌐4⌐0⌐0⌐0⌐0⌐0⌐0⌐');|end else if $cmd='help' then begin|    Command('/msg ',$chan,' 0,0.......1,0 _______________');|    Command('/msg ',$chan,' 1,0 áááááá1l0,0. 4PIRCH0,0...............11l.12@4@1,0_0,0.......6 Rßpido 3 llamen una ');|    Command('/msg ',$chan,' 1,0 áááááá1l0,0. 4PARAMEDICS0.0.11l__13╪1__1\\1,0__0,0..........4 AMBULANCIA ');|    Command('/msg ',$chan,' 1,0 áááá 4o1-0----------12░║«º 0,0----------------....-4=1-)0,0.........3 para 6 ',$name,' ');|    Command('/msg ',$chan,' 1,0 ááááá \----(1,15@1,0)===========(1,15@1)---- ');|    Command('/display > ',$chan,' <',$me,'> 0,0.......1,0 _______________');|    Command('/display > ',$chan,' <',$me,'> 1,0 áááááá1l0,0. 4PIRCH0,0...............11l.12@4@1,0_0,0.......6 Rßpido 3 llamen una ');|    Command('/display > ',$chan,' <',$me,'> 1,0 áááááá1l0,0. 4PARAMEDICS0.0.11l__13╪1__1\\1,0__0,0..........4 AMBULANCIA ');|    Command('/display > ',$chan,' <',$me,'> 1,0 áááá 4o1-0----------12░║«º 0,0----------------....-4=1-)0,0.........3 para 6 ',$name,' ');|    Command('/display > ',$chan,' <',$me,'> 1,0 ááááá \----(1,15@1,0)===========(1,15@1)---- ');|end else if $cmd='hug' then begin|    Command('/msg ',$chan,' 0,0...............4Hugº Hugº 12  4Hugº Hugº');|    Command('/msg ',$chan,' 12áá á)ááá(ááááá(ááááááá)ááá(á 0,0....12 )');|    Command('/msg ',$chan,' 12ááá(ááááá)ááááá)ááááá(ááááá)ááááá(áááá');|    Command('/msg ',$chan,' 5áá/^\ááá/^\ááá/^\ááá/^\ááá/^\ááá/^\ááá');|    Command('/msg ',$chan,' 5á(5_4K5_5)á(5_4I5_5)á(5_4S5_5)á(5_4S5_5)á(5_4E5_5)á(5_4S5_5)áá');|    Command('/display > ',$chan,' <',$me,'> 0,0...............4Hugº Hugº 12  4Hugº Hugº');|    Command('/display > ',$chan,' <',$me,'> 12áá á)ááá(ááááá(ááááááá)ááá(á 0,0....12 )');|    Command('/display > ',$chan,' <',$me,'> 12ááá(ááááá)ááááá)ááááá(ááááá)ááááá(áááá');|    Command('/display > ',$chan,' <',$me,'> 5áá/^\ááá/^\ááá/^\ááá/^\ááá/^\ááá/^\ááá');|    Command('/display > ',$chan,' <',$me,'> 5á(5_4K5_5)á(5_4I5_5)á(5_4S5_5)á(5_4S5_5)á(5_4E5_5)á(5_4S5_5)áá');|end else if $cmd='cops' then begin|    Command('/msg ',$chan,' 0,0...........................................................1/4┼2┼┼4┼1\');|    Command('/msg ',$chan,' 0,0.........................................................14/0,0...................14\');|    Command('/msg ',$chan,' 0,0......................................................1_[15,1/======== \1,0]_');|    Command('/msg ',$chan,' 0,0...................................................1/15,1 _\...........8,1!15,1........../_1,11,0\');|    Command('/msg ',$chan,' 0,0....................................................1,8[_]0,1 \!!!!!!!!!!!!!!!!!/ 1,8[_]');|    Command('/msg ',$chan,' 0,0..................................................14[____l4,8...Sheriff...14,0l___]');|    Command('/msg ',$chan,' 0,0......................................................15,1IIII0,0....................15,1IIII');|    Command('/msg ',$chan,' 0..............................4Te llevo a la estaci≤n, ! Te tengo!');|    Command('/display > ',$chan,' <',$me,'> 0,0...........................................................1/4┼2┼┼4┼1\');|    Command('/display > ',$chan,' <',$me,'> 0,0.........................................................14/0,0...................14\');|    Command('/display > ',$chan,' <',$me,'> 0,0......................................................1_[15,1/======== \1,0]_');|    Command('/display > ',$chan,' <',$me,'> 0,0...................................................1/15,1 _\...........8,1!15,1........../_1,11,0\');|    Command('/display > ',$chan,' <',$me,'> 0,0....................................................1,8[_]0,1 \!!!!!!!!!!!!!!!!!/ 1,8[_]');|    Command('/display > ',$chan,' <',$me,'> 0,0..................................................14[____l4,8...Sheriff...14,0l___]');|    Command('/display > ',$chan,' <',$me,'> 0,0......................................................15,1IIII0,0....................15,1IIII');|    Command('/display > ',$chan,' <',$me,'> 0..............................4Te llevo a la estaci≤n, ! Te tengo!');|end else if $cmd='lion' then begin|    Command('/msg ',$chan,' 7á( 7÷7æ""7"Æ7µ )');|    Command('/msg ',$chan,' 7áá(( j÷ µ1j ))');|    Command('/msg ',$chan,' ....╗( 13╚ )½ 2 Camina conmigo en el lado salvaje ',$name,' !!');|    Command('/display > ',$chan,' <',$me,'> 7á( 7÷7æ""7"Æ7µ )');|    Command('/display > ',$chan,' <',$me,'> 7áá(( j÷ µ1j ))');|    Command('/display > ',$chan,' <',$me,'> ....╗( 13╚ )½ 2 Camina conmigo en el lado salvaje ',$name,' !!');|end else if $cmd='bus' then begin|    Command('/msg ',$chan,' .4f1,8∞___________________________ⁿ4,0f');|    Command('/msg ',$chan,' 0.....1,8ll1,0 _o1,8ll1,0_o1,8ll1,0_o1,8ll1,0_o1,8ll1,0__1,8ll1,0__1,8ll1,0__1,8ll1,0__1,8ll15,0_o1,8ll15,0_\');|    Command('/msg ',$chan,' 0----1,8l8,8----------1,8 BUZZ`s LoVe Bus 8,8--_-4,8π1,8φ1,15l..');|    Command('/msg ',$chan,' 0...4f1,8l8,8---------------------------------------1,8φ1,8__1,8l8,8---1,15l..');|    Command('/msg ',$chan,' 0--14==0--1(1,15 ┼ )0,0============== -14==0--1(1,15 ┼ )0');|    Command('/display > ',$chan,' <',$me,'> .4f1,8∞___________________________ⁿ4,0f');|    Command('/display > ',$chan,' <',$me,'> 0.....1,8ll1,0 _o1,8ll1,0_o1,8ll1,0_o1,8ll1,0_o1,8ll1,0__1,8ll1,0__1,8ll1,0__1,8ll1,0__1,8ll15,0_o1,8ll15,0_\');|    Command('/display > ',$chan,' <',$me,'> 0----1,8l8,8----------1,8 BUZZ`s LoVe Bus 8,8--_-4,8π1,8φ1,15l..');|    Command('/display > ',$chan,' <',$me,'> 0...4f1,8l8,8---------------------------------------1,8φ1,8__1,8l8,8---1,15l..');|    Command('/display > ',$chan,' <',$me,'> 0--14==0--1(1,15 ┼ )0,0============== -14==0--1(1,15 ┼ )0');|end else if $cmd='pirchExe' then begin|    Command('/msg ',$chan,' 1áááá ,-,15,10~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');|    Command('/msg ',$chan,' 1áááá__1,1515,10_____PIRCH EXPRESS COMPANY_______');|    Command('/msg ',$chan,' 1áá/1,15/_15,1011____><(((░> 4<░)))><13<░)))><11><(((░>_15');|    Command('/msg ',$chan,' áá1,15-----`15,1013<░)))><11><(((░> 4<░)))><13<░)))><__15');|    Command('/msg ',$chan,' áá1,15o-----15,10__--`==========================');|    Command('/msg ',$chan,' 5ááá-15,1(*)5,0~~~~15,1(*)(*)1,05,0-~~~~-==~~~~15,1(*)(*)1,0');|    Command('/msg ',$chan,' 4,1 -=-=-=-=-=-=-=-=-=Pirch DELIVERS-=-=-=-=-=-=-=');|    Command('/display > ',$chan,' <',$me,'> 1áááá ,-,15,10~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');|    Command('/display > ',$chan,' <',$me,'> 1áááá__1,1515,10_____PIRCH EXPRESS COMPANY_______');|    Command('/display > ',$chan,' <',$me,'> 1áá/1,15/_15,1011____><(((░> 4<░)))><13<░)))><11><(((░>_15');|    Command('/display > ',$chan,' <',$me,'> áá1,15-----`15,1013<░)))><11><(((░> 4<░)))><13<░)))><__15');|    Command('/display > ',$chan,' <',$me,'> áá1,15o-----15,10__--`==========================');|    Command('/display > ',$chan,' <',$me,'> 5ááá-15,1(*)5,0~~~~15,1(*)(*)1,05,0-~~~~-==~~~~15,1(*)(*)1,0');|    Command('/display > ',$chan,' <',$me,'> 4,1 -=-=-=-=-=-=-=-=-=Pirch DELIVERS-=-=-=-=-=-=-=');|end else if $cmd='bunny' then begin|    Command('/msg ',$chan,' 0,0..........13,0(Y)');|    Command('/msg ',$chan,' 0,0.........13,0(12░13-12░13)');|    Command('/msg ',$chan,' 13()14[1,1***0,14Energizer0,013()');|    Command('/msg ',$chan,' 0,0.......13,0(_)-(_)');|    Command('/msg ',$chan,' 12 ',$name,'  4contin·a  1Caminando  14y  3Caminando  4[QuitΘmosle  3la 12baterφa  13a  10 ',$name,'  12:P]');|    Command('/display > ',$chan,' <',$me,'> 0,0..........13,0(Y)');|    Command('/display > ',$chan,' <',$me,'> 0,0.........13,0(12░13-12░13)');|    Command('/display > ',$chan,' <',$me,'> 13()14[1,1***0,14Energizer0,013()');|    Command('/display > ',$chan,' <',$me,'> 0,0.......13,0(_)-(_)');|    Command('/display > ',$chan,' <',$me,'> 12 ',$name,'  4contin·a  1Caminando  14y  3Caminando  4[QuitΘmosle  3la  12baterφa  13a  10 ',$name,'  12:P]');|end else if $cmd='train' then begin|    Command('/msg ',$chan,' 4,1[ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ]1,1.');|    Command('/msg ',$chan,' 0,115╖. ╖ ╖ ╖ ░ ░ ░ ░ ░ 0,1 12----15o 4_____ 1,1*************************.]**********');|    Command('/msg ',$chan,' 0,14..______14o║░║ 12]9OO12_±_±___][. 1,1*********49All Aboard the 41,1*******');|    Command('/msg ',$chan,' 1,1.4[4ññññññññ4]14_12[]12°°°°°°°°°12)8< 1,1******** 49 Pirch Express !!41,1*****');|    Command('/msg ',$chan,' 0,1..8⌠⌠15====8⌠⌠ 8⌠⌠15=8╘╘╘╘15===8⌠⌠15\\_ 4~~~~~~~~~~~~~~~~~~~~1,1`');|    Command('/msg ',$chan,' 0,1.15+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+1,1.`');|    Command('/msg ',$chan,' 4,1[ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ]1.');|    Command('/display > ',$chan,' <',$me,'> 4,1[ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ]1,1.');|    Command('/display > ',$chan,' <',$me,'> 0,115╖. ╖ ╖ ╖ ░ ░ ░ ░ ░ 0,1 12----15o 4_____ 1,1*************************.]**********');|    Command('/display > ',$chan,' <',$me,'> 0,14..______14o║░║ 12]9OO12_±_±___][. 1,1*********49All Aboard the 41,1*******');|    Command('/display > ',$chan,' <',$me,'> 1,1.4[4ññññññññ4]14_12[]12°°°°°°°°°12)8< 1,1******** 49 Pirch Express !!41,1*****');|    Command('/display > ',$chan,' <',$me,'> 0,1..8⌠⌠15====8⌠⌠ 8⌠⌠15=8╘╘╘╘15===8⌠⌠15\\_ 4~~~~~~~~~~~~~~~~~~~~1,1`');|    Command('/display > ',$chan,' <',$me,'> 0,1.15+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+1,1.`');|    Command('/display > ',$chan,' <',$me,'> 4,1[ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ][ºÑ║░░║Ѻ]1.')|end else if $cmd='cook' then begin|    Command('/msg ',$chan,' 4__________________________________________________________________');|    Command('/msg ',$chan,' 1(1,1..................................1,0)0,0.....................1(1,1..................................1,0)0,0.....................1(1,1..................................1,0)');|    Command('/msg ',$chan,' 1,0(0..................................1,0)0,0.....................1,0(0..................................1,0)0,0.....................1,0(0..................................1,0)');|    Command('/msg ',$chan,' 1(1,1..................................1,0)0,0.....................1(1,1..................................1,0)0,0.....................1(1,1..................................1,0)');|    Command('/msg ',$chan,' 4»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»');|    Command('/msg ',$chan,' 4,1 ',$me,' sostine para 8 ',$name,' 4unas cuentas 0,1GALLETAS4,1 gigantes por lo especial que eresl!!');|    Command('/runscript [buzzpopGui] cookk');|    Command('/display > ',$chan,' <',$me,'> 4__________________________________________________________________');|    Command('/display > ',$chan,' <',$me,'> 1(1,1..................................1,0)0,0.....................1(1,1..................................1,0)0,0.....................1(1,1..................................1,0)');|    Command('/display > ',$chan,' <',$me,'> 1,0(0..................................1,0)0,0.....................1,0(0..................................1,0)0,0.....................1,0(0..................................1,0)');|    Command('/display > ',$chan,' <',$me,'> 1(1,1..................................1,0)0,0.....................1(1,1..................................1,0)0,0.....................1(1,1..................................1,0)');|    Command('/display > ',$chan,' <',$me,'> 4»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»');|    Command('/display > ',$chan,' <',$me,'> 4,1 `|` sostiene para 8 ',$name,' 4unas cuantas 0,1GALLETAS4,1 gigantes por lo especial que eres!!');|end else if $cmd='boy' then begin|    Command('/msg ',$chan,' 0,0......1,0(»)');|    Command('/msg ',$chan,' 0,0.....1,0(12░1-12░1)  12WWwOOooo HHooOOooOOo');|    Command('/msg ',$chan,' 13,0 0--1()0-,-1()');|    Command('/msg ',$chan,' 0,0...1,0(_)-(_)');|    Command('/msg ',$chan,' 12 Ni siquiera pienses en no regalarme una sonrisa !');|    Command('/display > ',$chan,' <',$me,'> 0,0......1,0(»)');|    Command('/display > ',$chan,' <',$me,'> 0,0.....1,0(12░1-12░1)  12WWwOOooo HHooOOooOOo');|    Command('/display > ',$chan,' <',$me,'> 13,0 0--1()0-,-1()');|    Command('/display > ',$chan,' <',$me,'> 0,0...1,0(_)-(_)');|    Command('/display > ',$chan,' <',$me,'> 12 Ni siquiera pienses en no regalarme una sonrisa !');|end else if $cmd='twt' then begin|    Command('/msg ',$chan,' 1,1........8.-"-.1......');|    Command('/msg ',$chan,' 1,1.......8/_ _1,1..8\1.....');|    Command('/msg ',$chan,' 1,1.......8\@ @1,1..8/1.....');|    Command('/msg ',$chan,' 1,1.......8(_> _)1......');|    Command('/msg ',$chan,' 1,1.........8`)(_1......');|    Command('/msg ',$chan,' 1,1.........8/((_`)_,1..');|    Command('/msg ',$chan,' 1,1.........8\__(/-"1...');|    Command('/msg ',$chan,' 1,1.......8 __8∩∩∩__1..........4 I TOT I SAW');|    Command('/msg ',$chan,' 1,1.......8((__8∩__))1............ 4 A PUDDYTAT1');|    Command('/display > ',$chan,' <',$me,'> 1,1........8.-"-.1......');|    Command('/display > ',$chan,' <',$me,'> 1,1.......8/_ _1,1..8\1.....');|    Command('/display > ',$chan,' <',$me,'> 1,1.......8\@ @1,1..8/1.....');|    Command('/display > ',$chan,' <',$me,'> 1,1.......8(_> _)1......');|    Command('/display > ',$chan,' <',$me,'> 1,1.........8`)(_1......');|    Command('/display > ',$chan,' <',$me,'> 1,1.........8/((_`)_,1..');|    Command('/display > ',$chan,' <',$me,'> 1,1.........8\__(/-"1...');|    Command('/display > ',$chan,' <',$me,'> 1,1.......8 __8∩∩∩__1..........4 I TOT I SAW');|    Command('/display > ',$chan,' <',$me,'> 1,1.......8((__8∩__))1............ 4 A PUDDYTAT1');|end else if $cmd='boat' then begin|    Command('/msg ',$chan,' 12~~~~~~~~ 1,15)___)0,0.1,15)___)0,0.');|    Command('/msg ',$chan,' 12~~~ 1,15)___)0,0.1,15)___)0,0.1,15)____)0,0.6\ 10');|    Command('/msg ',$chan,' 12~~~ 1,15)____)0,0.1,15____)0,0.1,15____)0,0.6\\ 10');|    Command('/msg ',$chan,' 6_____0,0.1,14[]0,0.6____0,0.1,14[]0,0.6___1,14[]0,0.6___6\\______');|    Command('/msg ',$chan,' 1 1 \\1,4\__________________1,4/1,0//');|    Command('/msg ',$chan,' -----1\0,4 Sail away with me.1,0 /---------');|    Command('/msg ',$chan,' 11,2 ~~~~ ~~~~~~~~ ~~~~~~~ ~~~~~ ~~~~~~~');|    Command('/msg ',$chan,' 11,2 ^^^^ ^^^^ 9,2 <║8,2))))9,2>< 11,2 ^^^ ^^ ^^^^ ^^^');|    Command('/msg ',$chan,' 11,2 ^^^^ 9,2 ><9,28,2((((9,2║> 11,2 ^^^ ^^^^ 9,2 ><9,28,2((((9,2║> 11,2 ^');|    Command('/display > ',$chan,' <',$me,'> 12~~~~~~~~ 1,15)___)0,0.1,15)___)0,0.');|    Command('/display > ',$chan,' <',$me,'> 12~~~ 1,15)___)0,0.1,15)___)0,0.1,15)____)0,0.6\ 10');|    Command('/display > ',$chan,' <',$me,'> 12~~~ 1,15)____)0,0.1,15____)0,0.1,15____)0,0.6\\ 10');|    Command('/display > ',$chan,' <',$me,'> 6_____0,0.1,14[]0,0.6____0,0.1,14[]0,0.6___1,14[]0,0.6___6\\______');|    Command('/display > ',$chan,' <',$me,'> 1 \\1,4\__________________1,4/1,0//');|    Command('/display > ',$chan,' <',$me,'> -----1\0,4 Sail away with me.1,0 /---------');|    Command('/display > ',$chan,' <',$me,'> 11,2 ~~~~ ~~~~~~~~ ~~~~~~~ ~~~~~ ~~~~~~~');|    Command('/display > ',$chan,' <',$me,'> 11,2 ^^^^ ^^^^ 9,2 <║8,2))))9,2>< 11,2 ^^^ ^^ ^^^^ ^^^');|    Command('/display > ',$chan,' <',$me,'> 11,2 ^^^^ 9,2 ><9,28,2((((9,2║> 11,2 ^^^ ^^^^ 9,2 ><9,28,2((((9,2║> 11,2 ^');|end else if $cmd='Rose' then begin|    Command('/msg ',$chan,' 0......4 4⌐3*4 4⌐34 4⌐3*4 4⌐');|    Command('/msg ',$chan,' 0..4 4⌐3\*4 4⌐ 4⌐ 4⌐3*/4 4⌐');|    Command('/msg ',$chan,' 4 4⌐ 4⌐ 4⌐3\*/4 4⌐ 4⌐ 4⌐');|    Command('/msg ',$chan,' 0....3\*4 4⌐ 4⌐ 4⌐ 4⌐3*/');|    Command('/msg ',$chan,' 0......4 4⌐ 4⌐3*,*4 4⌐ 4⌐0.....10 2 Docenas de');|    Command('/msg ',$chan,' 0.............2)3\\I//2(0....... ..4 Rosas Rojas');|    Command('/msg ',$chan,' 0............2(0.......2)0.... .... ......13 Solo');|    Command('/msg ',$chan,' 0.............\0......2/0..... ..... ..5 Para T 4⌐I. ');|    Command('/display > ',$chan,' <',$me,'> 0......4 4⌐3*4 4⌐34 4⌐3*4 4⌐');|    Command('/display > ',$chan,' <',$me,'> 0..4 4⌐3\*4 4⌐ 4⌐ 4⌐3*/4 4⌐');|    Command('/display > ',$chan,' <',$me,'> 4 4⌐ 4⌐ 4⌐3\*/4 4⌐ 4⌐ 4⌐');|    Command('/display > ',$chan,' <',$me,'> 0....3\*4 4⌐ 4⌐ 4⌐ 4⌐3*/');|    Command('/display > ',$chan,' <',$me,'> 0......4 4⌐ 4⌐3*,*4 4⌐ 4⌐0.....10 2 Docenas de');|    Command('/display > ',$chan,' <',$me,'> 0.............2)3\\I//2(0....... ..4 Rosas Rojas');|    Command('/display > ',$chan,' <',$me,'> 0............2(0.......2)0.... .... ......13 Solo');|    Command('/display > ',$chan,' <',$me,'> 0.............\0......2/0..... ..... ..5 Para T 4⌐I. ');|end else if $cmd='hkiss' then begin|    Command('/msg ',$chan,' 4⌐4⌐0____4⌐4⌐0___ 4⌐4⌐0_0⌐0⌐4⌐4⌐4⌐0⌐ 0⌐0⌐4⌐4⌐4⌐0⌐');|    Command('/msg ',$chan,' 4⌐4⌐0___4⌐4⌐0____ 4⌐4⌐0_0⌐4⌐4⌐0⌐4⌐4⌐ 0⌐4⌐4⌐0⌐4⌐4⌐');|    Command('/msg ',$chan,' 4⌐4⌐0__4⌐4⌐0_____ 4⌐4⌐0_0⌐4⌐4⌐0⌐0⌐0⌐ 0⌐4⌐4⌐0⌐0⌐0⌐');|    Command('/msg ',$chan,' 4⌐4⌐0_4⌐4⌐0______ 4⌐4⌐0_0⌐0⌐4⌐4⌐0⌐0⌐ 0⌐0⌐4⌐4⌐0⌐0⌐');|    Command('/msg ',$chan,' 4⌐4⌐04⌐4⌐0_______ 4⌐4⌐0_0⌐0⌐0⌐4⌐4⌐0⌐ 0⌐0⌐0⌐4⌐4⌐0⌐');|    Command('/msg ',$chan,' 4⌐4⌐0_4⌐4⌐0______ 4⌐4⌐0_0⌐0⌐0⌐0⌐4⌐4⌐ 0⌐0⌐0⌐0⌐4⌐4⌐');|    Command('/msg ',$chan,' 4⌐4⌐0__4⌐4⌐0_____ 4⌐4⌐0_0⌐0⌐0⌐0⌐4⌐4⌐ 0⌐0⌐0⌐0⌐4⌐4⌐');|    Command('/msg ',$chan,' 4⌐4⌐0___4⌐4⌐0____ 4⌐4⌐0_0⌐4⌐4⌐0⌐4⌐4⌐ 0⌐4⌐4⌐0⌐4⌐4⌐');|    Command('/msg ',$chan,' 4⌐4⌐0____4⌐4⌐0___ 4⌐4⌐0_0⌐0⌐4⌐4⌐4⌐0⌐ 0⌐0⌐4⌐4⌐4⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐0____4⌐4⌐0___ 4⌐4⌐0_0⌐0⌐4⌐4⌐4⌐0⌐ 0⌐0⌐4⌐4⌐4⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐0___4⌐4⌐0____ 4⌐4⌐0_0⌐4⌐4⌐0⌐4⌐4⌐ 0⌐4⌐4⌐0⌐4⌐4⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐0__4⌐4⌐0_____ 4⌐4⌐0_0⌐4⌐4⌐0⌐0⌐0⌐ 0⌐4⌐4⌐0⌐0⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐0_4⌐4⌐0______ 4⌐4⌐0_0⌐0⌐4⌐4⌐0⌐0⌐ 0⌐0⌐4⌐4⌐0⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐04⌐4⌐0_______ 4⌐4⌐0_0⌐0⌐0⌐4⌐4⌐0⌐ 0⌐0⌐0⌐4⌐4⌐0⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐0_4⌐4⌐0______ 4⌐4⌐0_0⌐0⌐0⌐0⌐4⌐4⌐ 0⌐0⌐0⌐0⌐4⌐4⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐0__4⌐4⌐0_____ 4⌐4⌐0_0⌐0⌐0⌐0⌐4⌐4⌐ 0⌐0⌐0⌐0⌐4⌐4⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐0___4⌐4⌐0____ 4⌐4⌐0_0⌐4⌐4⌐0⌐4⌐4⌐ 0⌐4⌐4⌐0⌐4⌐4⌐');|    Command('/display > ',$chan,' <',$me,'> 4⌐4⌐0____4⌐4⌐0___ 4⌐4⌐0_0⌐0⌐4⌐4⌐4⌐0⌐ 0⌐0⌐4⌐4⌐4⌐0⌐');|end else if $cmd='stop' then begin|    Command('/msg ',$chan,' 0,0__...0,11,1.4Q1,1.0,0__4 DETENTE AHI MISMO!! 2 ',$name,' !!!');|    Command('/msg ',$chan,' 0,0_.._.0,11,1.8Q1,1.0,1');|    Command('/msg ',$chan,' 0,0__...0,11,1.3Q1,1.');|    Command('/msg ',$chan,' 0,0__2 Prepara tu cuerpo para ser abrazado!4...apapuchado');|    Command('/display > ',$chan,' <',$me,'> 0,0__...0,11,1.4Q1,1.0,0__4 DETENTE AHI MISMO!! 2 ',$name,' !!!');|    Command('/display > ',$chan,' <',$me,'> 0,0_.._.0,11,1.8Q1,1.0,1');|    Command('/display > ',$chan,' <',$me,'> 0,0__...0,11,1.3Q1,1.');|    Command('/display > ',$chan,' <',$me,'> 0,0__2 Prepara tu cuerpo para ser abrazado!4...apapuchado');|end else if $cmd='eagle' then begin|    Command('/msg ',$chan,' 0,0........5.---.0,0........5.---.');|    Command('/msg ',$chan,' 0,0.......5/0,0....5\\0,0..5__0,0..5//0,0....5\');|    Command('/msg ',$chan,' 0,0......5/ /0....5\\(12║║5)//0...5\ \\');|    Command('/msg ',$chan,' 0.....5//////0...5` 7\/5 `0..5\ \\\\\');|    Command('/msg ',$chan,' 0....5//// / // :15vvvv5: \\ \\\ \\');|    Command('/msg ',$chan,' 0...5// / / /0...5`15vvvv5`0...5\ \ \ \\');|    Command('/msg ',$chan,' 0..5//0..........5//0..5\\0..........5\\');|    Command('/msg ',$chan,' 1=============7UUU1==7UUU1==========');|    Command('/msg ',$chan,' 0..............5`//\\`');|    Command('/msg ',$chan,' VUELA COMO UN AGUILA ....... VUELA HACIA EL FUTURO');|    Command('/display > ',$chan,' <',$me,'> 0,0........5.---.0,0........5.---.');|    Command('/display > ',$chan,' <',$me,'> 0,0.......5/0,0....5\\0,0..5__0,0..5//0,0....5\');|    Command('/display > ',$chan,' <',$me,'> 0,0......5/ /0....5\\(12║║5)//0...5\ \\');|    Command('/display > ',$chan,' <',$me,'> 0.....5//////0...5` 7\/5 `0..5\ \\\\\');|    Command('/display > ',$chan,' <',$me,'> 0....5//// / // :15vvvv5: \\ \\\ \\');|    Command('/display > ',$chan,' <',$me,'> 0...5// / / /0...5`15vvvv5`0...5\ \ \ \\');|    Command('/display > ',$chan,' <',$me,'> 0..5//0..........5//0..5\\0..........5\\');|    Command('/display > ',$chan,' <',$me,'> 1=============7UUU1==7UUU1==========');|    Command('/display > ',$chan,' <',$me,'> 0..............5`//\\`');|    Command('/display > ',$chan,' <',$me,'> VUELA COMO UN AGUILA ....... VUELA HACIA EL FUTURO');|end;|if $cmd='mini' then begin|    destroywindow(Design);|    Design:=CreateWindow('buzzpop',3,7,85,50);|    SetWindowAttr(Design,12,5);|    Button1:=CreateGadget(Design,4,1,0,75,19);|    SetWindowText(Button1,'normal');|    SetEvent(Button1,1,'/runscript [buzzpopGui] create');|end;
[CONTRARY]:{Contrary pil by Corvonero|usage /runscript [Contrary] text}|$target := '';|$source := *1 ;|a := strlen($source)|b := strlen($source)|for i := 1 to a do|begin|    $target := $target+strcopy($source,b,1);|    b :=b-1|end;|command('/msg ',$audience,' ','--->InVeRsE ',$target);
[COOLTEXT]:{ CoolText, written for Pirch .90a }|{ Simon Windmill, 26/12/96 }|{ No random background colors, cause that's really sucky =*) }|{ Suggest you put a popup in the main channel window; CoolText:/runscript [COOLTEXT] $$?=Enter text to coolify:|{ Find me on #truespace, SiW }|$newtext := ' ';|{ clears the last run }|$origtext := *1;|{ grab what you type }|{ Now the main loop.. it checks every letter, and substitutes it for a "cool" }|{ character if one is available. }|{ Then it creates a new string composed of the CTRL-K char, a random number, }|{ (for the color) and the substituted (or original) char. }|for i := 1 to strlen($origtext) do|begin|    $chartemp:=strcopy($origtext,i,1);|    if $chartemp='a' then $chartemp:='σ';|    if $chartemp='A' then $chartemp:='┬';|    if $chartemp='b' then $chartemp:='▀';|    if $chartemp='B' then $chartemp:='▀';|    if $chartemp='c' then $chartemp:='τ';|    if $chartemp='C' then $chartemp:='╟';|    if $chartemp='d' then $chartemp:='╨';|    if $chartemp='D' then $chartemp:='╨';|    if $chartemp='e' then $chartemp:='δ';|    if $chartemp='E' then $chartemp:='╦';|    if $chartemp='f' then $chartemp:='â';|    if $chartemp='F' then $chartemp:='â';|    if $chartemp='g' then $chartemp:='g';|    if $chartemp='G' then $chartemp:='G';|    if $chartemp='h' then $chartemp:='h';|    if $chartemp='H' then $chartemp:='H';|    if $chartemp='i' then $chartemp:='í';|    if $chartemp='I' then $chartemp:='í';|    if $chartemp='j' then $chartemp:='j';|    if $chartemp='J' then $chartemp:='J';|    if $chartemp='k' then $chartemp:='k';|    if $chartemp='K' then $chartemp:='K';|    if $chartemp='l' then $chartemp:='l';|    if $chartemp='L' then $chartemp:='L';|    if $chartemp='m' then $chartemp:='m';|    if $chartemp='M' then $chartemp:='M';|    if $chartemp='n' then $chartemp:='╤';|    if $chartemp='N' then $chartemp:='╤';|    if $chartemp='o' then $chartemp:='°';|    if $chartemp='O' then $chartemp:='╪';|    if $chartemp='p' then $chartemp:='■';|    if $chartemp='P' then $chartemp:='▐';|    if $chartemp='q' then $chartemp:='q';|    if $chartemp='Q' then $chartemp:='Q';|    if $chartemp='r' then $chartemp:='«';|    if $chartemp='R' then $chartemp:='«';|    if $chartemp='s' then $chartemp:='º';|    if $chartemp='S' then $chartemp:='è';|    if $chartemp='t' then $chartemp:='å';|    if $chartemp='T' then $chartemp:='å';|    if $chartemp='u' then $chartemp:='ⁿ';|    if $chartemp='U' then $chartemp:='▄';|    if $chartemp='v' then $chartemp:='v';|    if $chartemp='V' then $chartemp:='V';|    if $chartemp='w' then $chartemp:='w';|    if $chartemp='W' then $chartemp:='W';|    if $chartemp='x' then $chartemp:='╫';|    if $chartemp='X' then $chartemp:='╫';|    if $chartemp='y' then $chartemp:='Y';|    if $chartemp='Y' then $chartemp:='Ñ';|    if $chartemp='z' then $chartemp:='z';|    if $chartemp='Z' then $chartemp:='Z';|    randcolor:=random(14)+1;|    if randcolor=8 then randcolor:=6;|    { get rid of yellow ;) }|    $randcolor:=inttostr(randcolor);|    $newtext:=$newtext+''+$randcolor+$chartemp;|end;|{ Finally we /msg the channel with the new string. }|command('/verbose PRIVMSG ',$activewin,' :',$newtext);|command('/display > ',$activewin,' ','<',$me,'> ','',$newtext);
[CTERM2]:{CTERM.PIL v2.01 by Slobokan, ⌐1997, Slobokan Software, All Rights Reserved.|The following files MUST be located in the PIRCH directory:|    CTERM2.PIL    CTERM.BMP    CTERM.HLP|    CTERM.INI    CTPOPS.INI    CTTXTS.INI|    CTPILS.INI    CTSNDS.INI    CTHELP.DAT|If ANY one of these files is missing, CTERM will not operate!!!|USAGE: /runscript [cterm2] start|THIS PIL WILL NOT FUNCTION CORRECTLY IF:|You are NOT using Pirch version 0.90 or above.|---------------DO NOT CHANGE ANYTHING BELOW THIS LINE----------------------}|$cmd := $1;|$check:=' ***';|if strupper($cmd) = 'START' then|begin|    $v1:=strcopy($version,(strlen($version)-3),2);|    v1:=strtoint($v1);|    if winid <> 0 then |    begin|        command('/display > ',$activewin,' ',\15,' ERROR: ',\15,' La terminal de color de Texto ya esta abierta');|        halt;|    end;|    if not fileexists($pirchpath+'cterm.ini') then|    begin|        command('/display > ',$activewin,' ',\15,' ERROR: ',\15,'CTERM FILE NOT FOUND: CTERM.INI');|        halt;|    end;|    $pops:=iniread($pirchpath+'cterm.ini','PIRCH','PopUps',$check);|    $txts:=iniread($pirchpath+'cterm.ini','PIRCH','TxtFiles',$check);|    $pils:=iniread($pirchpath+'cterm.ini','PIRCH','PILS',$check);|    $snds:=iniread($pirchpath+'cterm.ini','PIRCH','Sounds',$check);|    if not fileexists($pirchpath+'cterm.bmp') then|    begin|        command('/display > ',$activewin,' ',\15,' ERROR: ',\15,'CTERM FILE NOT FOUND: CTERM.BMP');|        halt;|    end;|    v1 := v1+3;|    if not fileexists($pirchpath+$pops) then|    begin|        command('/display > ',$activewin,' ',\15,' ERROR: ',\15,'CTERM FILE NOT FOUND: '+$pops);|        halt;|    end;|    if not fileexists($pirchpath+$txts) then|    begin|        command('/display > ',$activewin,' ',\15,' ERROR: ',\15,'CTERM FILE NOT FOUND: '+$txts);|        halt;|    end;|    v1 := v1+5;|    if not fileexists($pirchpath+$pils) then|    begin|        command('/display > ',$activewin,' ',\15,' ERROR: ',\15,'CTERM FILE NOT FOUND: '+$pils);|        halt;|    end;|    |    if not fileexists($pirchpath+$snds) then|    begin|        command('/display > ',$activewin,' ',\15,' ERROR: ',\15,'CTERM FILE NOT FOUND: '+$snds);|        halt;|    end;|    if v1<98 then |    begin|        command('/display > ',$activewin,' ',\15,' ERROR: ',\15,'CTERM INCOMPATIBLE WITH YOUR VERSION OF PIRCH');|        halt;|    end;|    command('/display > ',$activewin,' ',\7,'12Slobokan'+char(39)+'s Terminal de color de Texto 12CARGADA.',\7);|    $fg:='1';|    winid := createwindow('Slobokan'+char(39)+'s Color Text Terminal v2.01 para pIRCh        ('+$server+')',20,89,473,102); |    setevent(winid,1,'/runscript [cterm2] close');|    text0:=creategadget(winid,4,0,0,16,16);|    setwindowtext(Text0,'0');|    setevent(text0,1,'/runscript [cterm2] tedit0');|    text1:=creategadget(winid,4,17,0,16,16);|    setwindowtext(text1,'1');|    setevent(text1,1,'/runscript [cterm2] tedit1');|    text2:=creategadget(winid,4,34,0,16,16);|    setwindowtext(text2,'2');|    setevent(text2,1,'/runscript [cterm2] tedit2');|    text3:=creategadget(winid,4,51,0,16,16);|    setwindowtext(text3,'3');|    setevent(text3,1,'/runscript [cterm2] tedit3');|    text4:=creategadget(winid,4,68,0,16,16);|    setwindowtext(text4,'4');|    setevent(text4,1,'/runscript [cterm2] tedit4');|    text5:=creategadget(winid,4,85,0,16,16);|    setwindowtext(text5,'5');|    setevent(text5,1,'/runscript [cterm2] tedit5');|    text6:=creategadget(winid,4,102,0,16,16);|    setwindowtext(text6,'6');|    setevent(text6,1,'/runscript [cterm2] tedit6');|    text7:=creategadget(winid,4,119,0,16,16);|    setwindowtext(text7,'7');|    setevent(text7,1,'/runscript [cterm2] tedit7');|    text8:=creategadget(winid,4,136,0,16,16);|    setwindowtext(text8,'8');|    setevent(text8,1,'/runscript [cterm2] tedit8');|    text9:=creategadget(winid,4,153,0,16,16);|    setwindowtext(text9,'9');|    setevent(text9,1,'/runscript [cterm2] tedit9');|    text10:=creategadget(winid,4,170,0,16,16);|    setwindowtext(text10,'10');|    setevent(text10,1,'/runscript [cterm2] tedit10');|    text11:=creategadget(winid,4,187,0,16,16);|    setwindowtext(text11,'11');|    setevent(text11,1,'/runscript [cterm2] tedit11');|    text12:=creategadget(winid,4,204,0,16,16);|    setwindowtext(text12,'12');|    setevent(text12,1,'/runscript [cterm2] tedit12');|    text13:=creategadget(winid,4,221,0,16,16);|    setwindowtext(text13,'13');|    setevent(text13,1,'/runscript [cterm2] tedit13');|    text14:=creategadget(winid,4,238,0,16,16);|    setwindowtext(text14,'14');|    setevent(text14,1,'/runscript [cterm2] tedit14');|    text15:=creategadget(winid,4,255,0,16,16);|    setwindowtext(text15,'15');|    setevent(text15,1,'/runscript [cterm2] tedit15');|    clrstrp := creategadget(winid,14,0,16,227,15);|    clrs := loadfromfile(clrstrp,$pirchpath+'cterm.bmp');|    back0:=creategadget(winid,4,0,24,16,16);|    setwindowtext(back0,'0');|    setevent(back0,1,'/runscript [cterm2] bedit0');|    back1:=creategadget(winid,4,17,24,16,16);|    setwindowtext(back1,'1');|    setevent(back1,1,'/runscript [cterm2] bedit1');|    back2:=creategadget(winid,4,34,24,16,16);|    setwindowtext(back2,'2');|    setevent(back2,1,'/runscript [cterm2] bedit2');|    back3:=creategadget(winid,4,51,24,16,16);|    setwindowtext(back3,'3');|    setevent(back3,1,'/runscript [cterm2] bedit3');|    back4:=creategadget(winid,4,68,24,16,16);|    setwindowtext(back4,'4');|    setevent(back4,1,'/runscript [cterm2] bedit4');|    back5:=creategadget(winid,4,85,24,16,16);|    setwindowtext(back5,'5');|    setevent(back5,1,'/runscript [cterm2] bedit5');|    back6:=creategadget(winid,4,102,24,16,16);|    setwindowtext(back6,'6');|    setevent(back6,1,'/runscript [cterm2] bedit6');|    back7:=creategadget(winid,4,119,24,16,16);|    setwindowtext(back7,'7');|    setevent(back7,1,'/runscript [cterm2] bedit7');|    back8:=creategadget(winid,4,136,24,16,16);|    setwindowtext(back8,'8');|    setevent(back8,1,'/runscript [cterm2] bedit8');|    back9:=creategadget(winid,4,153,24,16,16);|    setwindowtext(back9,'9');|    setevent(back9,1,'/runscript [cterm2] bedit9');|    back10:=creategadget(winid,4,170,24,16,16);|    setwindowtext(back10,'10');|    setevent(back10,1,'/runscript [cterm2] bedit10');|    back11:=creategadget(winid,4,187,24,16,16);|    setwindowtext(back11,'11');|    setevent(back11,1,'/runscript [cterm2] bedit11');|    back12:=creategadget(winid,4,204,24,16,16);|    setwindowtext(back12,'12');|    setevent(back12,1,'/runscript [cterm2] bedit12');|    back13:=creategadget(winid,4,221,24,16,16);|    setwindowtext(back13,'13');|    setevent(back13,1,'/runscript [cterm2] bedit13');|    back14:=creategadget(winid,4,238,24,16,16);|    setwindowtext(back14,'14');|    setevent(back14,1,'/runscript [cterm2] bedit14');|    back15:=creategadget(winid,4,255,24,16,16);|    setwindowtext(back15,'15');|    setevent(back15,1,'/runscript [cterm2] bedit15');|    bgr:=0;|    boldwin := creategadget(winid,4,272,0,16,20);|    setwindowtext(boldwin,'B');|    setevent(boldwin,1,'/runscript [cterm2] bold');|    underwin := creategadget(winid,4,288,0,16,20);|    setwindowtext(underwin,'U');|    setevent(underwin,1,'/runscript [cterm2] underline');|    italwin := creategadget(winid,4,304,0,16,20);|    setwindowtext(italwin,'I');|    setevent(italwin,1,'/runscript [cterm2] italics');|    fixedwin := creategadget(winid,4,272,20,16,20);|    setwindowtext(fixedwin,'F');                |    setevent(fixedwin,1,'/runscript [cterm2] fixed');|    ckwin := creategadget(winid,4,288,20,16,20);|    setwindowtext(ckwin,'K');|    setevent(ckwin,1,'/runscript [cterm2] cntrlk');|    symbolwin := creategadget(winid,4,304,20,16,20);|    setwindowtext(symbolwin,'S');                |    setevent(symbolwin,1,'/runscript [cterm2] symbol');    |    editor :=creategadget(winid,2,0,40,320,20);|    setwindowattr(editor,1,0);|    setwindowattr(editor,2,16777215);|    minibutwin:=creategadget(winid,4,0,60,50,20);|    setwindowtext(minibutwin,'Minimize');|    setevent(minibutwin,1,'/runscript [cterm2] mini');|    helpbutwin:=creategadget(winid,4,50,60,40,20);|    setwindowtext(helpbutwin,'Help!');|    setevent(helpbutwin,1,'/runscript [cterm2] help');    |    abtbutwin:=creategadget(winid,4,90,60,25,20);|    setwindowtext(abtbutwin,'⌐');|    setevent(abtbutwin,1,'/runscript [cterm2] abt');|    settbutwin:=creategadget(winid,4,115,60,50,20);|    setwindowtext(settbutwin,'Settings');|    setevent(settbutwin,1,'/runscript [cterm2] settings');|    repeatwin := creategadget(winid,4,165,60,50,20);|    setwindowtext(repeatwin,'Last');                |    setevent(repeatwin,1,'/runscript [cterm2] repeat');    |    clearwin := creategadget(winid,4,215,60,50,20);|    setwindowtext(clearwin,'Clear');|    setevent(clearwin,1,'/runscript [cterm2] clear');    |    sendwin := creategadget(winid,4,265,60,55,20);|    setwindowattr(sendwin,9,1);|    setwindowtext(sendwin,'SEND');|    setevent(sendwin,1,'/runscript [cterm2] send');    |    hct:=0;|    popbut:=creategadget(winid,8,320,0,105,20);|    setwindowtext(popbut,'');|    $y:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|    y:=strtoint($y);|    v:=listappend(popbut,'Add');|    v:=listappend(popbut,'Edit');|    v:=listappend(popbut,'Credit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$pops,'POPUPS','Title'+$w,$check);|        if strupper($z) <> 'CREDIT' then v:=listappend(popbut,$z);|    end;|    popaddbut:=creategadget(winid,4,425,0,42,20);|    setwindowtext(popaddbut,'Popups');|    setevent(popaddbut,1,'/runscript [cterm2] dopopup');|    playtxt:=creategadget(winid,8,320,20,105,20);|    setwindowtext(playtxt,'');|    $y:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|    y:=strtoint($y);|    v:=listappend(playtxt,'Add');|    v:=listappend(playtxt,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$txts,'TXTFILES','Title'+$w,$check);|        v:=listappend(playtxt,$z);|    end;|    txtaddbut:=creategadget(winid,4,425,20,42,20);|    setwindowtext(txtaddbut,'TxtFiles');|    setevent(txtaddbut,1,'/runscript [cterm2] doplaytxt');|    pilbut:=creategadget(winid,8,320,40,105,20);|    setwindowtext(pilbut,'');|    $y:=iniread($pirchpath+$pils,'PILS','Total',$check);|    y:=strtoint($y);|    v:=listappend(pilbut,'Add');|    v:=listappend(pilbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$pils,'PILS','Title'+$w,$check);|        v:=listappend(pilbut,$z);|    end;|    piladdbut:=creategadget(winid,4,425,40,42,20);|    setwindowtext(piladdbut,'PILs');|    setevent(piladdbut,1,'/runscript [cterm2] dopil');|    sndbut:=creategadget(winid,8,320,60,105,20);|    setwindowtext(sndbut,'');|    $y:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|    y:=strtoint($y);|    v:=listappend(sndbut,'Add');|    v:=listappend(sndbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$snds,'SOUNDS','Title'+$w,$check);|        v:=listappend(sndbut,$z);|    end;|    sndaddbut:=creategadget(winid,4,425,60,42,20);|    setwindowtext(sndaddbut,'Sounds');|    setevent(sndaddbut,1,'/runscript [cterm2] dosound');|end;|if strupper($cmd) = 'TEDIT0' then|begin|    $fg:='0';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT1' then|begin|    $fg:='1';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT2' then|begin|    $fg:='2';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT3' then|begin|    $fg:='3';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT4' then|begin|    $fg:='4';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT5' then|begin|    $fg:='5';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT6' then|begin|    $fg:='6';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT7' then|begin|    $fg:='7';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT8' then|begin|    $fg:='8';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT9' then|begin|    $fg:='9';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT10' then|begin|    $fg:='10';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT11' then|begin|    $fg:='11';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT12' then|begin|    $fg:='12';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT13' then|begin|    $fg:='13';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT14' then|begin|    $fg:='14';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'TEDIT15' then|begin|    $fg:='15';|    command('/runscript [cterm2] checktext');|end;|if strupper($cmd) = 'CHECKTEXT' then|begin|    $a:=getwindowtext(editor);|    if strlen($a) >0 then|    begin|        for a := 0 to 15 do|        begin|            $hmf := inttostr(a);|            for b := 0 to 15 do|            begin|                $hrm := inttostr(b);|                if strcopy($a,strlen($a)-strlen(''+$hmf+','+$hrm)+1,strlen(''+$hmf+','+$hrm)) = ''+$hmf+','+$hrm then|                begin|                    $newtext := '';|                    stripe := 1;|                    while stripe < strlen($a)-(strlen(''+$hmf+','+$hrm)-1) do|                    begin|                        $clip:=strcopy($a,stripe,1);|                        $newtext:=$newtext+$clip;|                        stripe:=stripe+1;|                    end;|                    $a := $newtext;|                end;|            end;|        end;            |        for a := 0 to 15 do|        begin|            $hmf := inttostr(a);|            checker := strlen($fg);|            if (checker=2 and a>9) then checker := checker +1;|            if strcopy($a,strlen($a)-checker+1,checker) = ''+$hmf then |            begin|                $newtext := '';|                stripe := 1;|                while stripe < (strlen($a)-checker+1) do|                begin|                    $clip:=strcopy($a,stripe,1);|                    $newtext:=$newtext+$clip;|                    stripe:=stripe+1;|                end;|                $a := $newtext;|            end;|        end;|    end;|    $text:=$a+$fg;|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'BEDIT0' then|begin|    $bn:=',0';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT1' then|begin|    $bn:=',1';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT2' then|begin|    $bn:=',2';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT3' then|begin|    $bn:=',3';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT4' then|begin|    $bn:=',4';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT5' then|begin|    $bn:=',5';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT6' then|begin|    $bn:=',6';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT7' then|begin|    $bn:=',7';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT8' then|begin|    $bn:=',8';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT9' then|begin|    $bn:=',9';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT10' then|begin|    $bn:=',10';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT11' then|begin|    $bn:=',11';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT12' then|begin|    $bn:=',12';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT13' then|begin|    $bn:=',13';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT14' then|begin|    $bn:=',14';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BEDIT15' then|begin|    $bn:=',15';|    command('/runscript [cterm2] backadd');|    bgr:=1;|end;|if strupper($cmd) = 'BACKADD' then|begin|    if bgr = 1 then |    begin|        if $fg = '' then|        begin|             $fg:='1';|        end;|        $a:=getwindowtext(editor);|        if strlen($a) >0 then|        begin|            for a := 0 to 15 do|            begin|                $hmf := inttostr(a);|                for b := 0 to 15 do|                begin|                    $hrm := inttostr(b);|                    if strcopy($a,strlen($a)-strlen(''+$hmf+','+$hrm)+1,strlen(''+$hmf+','+$hrm)) = ''+$hmf+','+$hrm then|                    begin|                        $newtext := '';|                        stripe := 1;|                        while stripe < strlen($a)-(strlen(''+$hmf+','+$hrm)-1) do|                        begin|                            $clip:=strcopy($a,stripe,1);|                            $newtext:=$newtext+$clip;|                            stripe:=stripe+1;|                        end;|                        $a := $newtext;|                    end;|                end;|            end;            |            if strcopy($a,strlen($a)-strlen($fg)+1,strlen($fg)) <> $fg then|            begin|                $a:=$a+$fg;|            end;|            $text:=$a+$bn;|        end|        else|        begin|            $text:=$a+$fg+$bn;|        end;|        setwindowtext(editor,$text);|    end;    |bgr:=0;|end;|if strupper($cmd) = 'SEND' then|begin|    $text:=getwindowtext(editor);|    $a:=$text;|    txtdo:=0;|    tc:=0;|    $txt1:='';|    $txt2:='';|    $txt3:='';|    $txt4:='';|    $txt5:='';|    for w:= 1 to strlen($text) do|    begin|        if strcopy($text,w,1)='&' then |        begin|            if tc=0 then|            begin|                $txt1:=strcopy($text,1,w-1);|                cut1:=strlen($txt1);|                $txt2:=strcopy($text,cut1+2,strlen($text)-(cut1+1));|            end;|            if tc=1 then |            begin|                $txt2:=strcopy($text,(cut1+2),((w-2)-cut1));|                cut2:=strlen($txt2);|                $txt3:=strcopy($text,(cut1+cut2+3),strlen($text)-(cut1+cut2+2));|            end;|            if tc=2 then |            begin|                $txt3:=strcopy($text,(cut1+cut2+3),((w-3)-(cut1+cut2)));|                cut3:=strlen($txt3);|                $txt4:=strcopy($text,(cut1+cut2+cut3+4),strlen($text)-(cut1+cut2+cut3+3));|            end;|            if tc=3 then|            begin|                $txt4:=strcopy($text,(cut1+cut2+cut3+4),((w-4)-(cut1+cut2+cut3)));|                cut4:=strlen($txt4);|                $txt5:=strcopy($text,(cut1+cut2+cut3+cut4+5),strlen($text)-(cut1+cut2+cut3+cut4+4));|            end;|            tc:=tc+1;|        end;    |    end;|    while txtdo < 5 do|    begin|        if txtdo=0 and $txt1='' then |        begin|            $text:=$a;|            txtdo:=txtdo+5;|        end;|        if txtdo=0 and $txt1<>'' then $text:=$txt1;|        if txtdo=1 and $txt2<>'' then|        begin|            $text:=$txt2;|            if $txt3='' then txtdo:=txtdo+3;|        end;|        if txtdo=2 and $txt3<>'' then |        begin|            $text:=$txt3;|            if $txt4='' then txtdo:=txtdo+2;|        end;|        if txtdo=3 and $txt4<>'' then|        begin|            $text:=$txt4;|            if $txt5='' then txtdo:=txtdo+1;|        end;|        if txtdo=4 and $txt5<>'' then $text:=$txt5;|        if $text ='' then |        begin|            halt;|        end;|        $atext:=$text;|        $tcmd:=strtoken($atext);|        $slash:=strcopy($tcmd,1,1);|        if $slash = '/' then |        begin|            if $tcmd = '/sound' then|            begin|                command($tcmd,' ',$atext);     |                $btext:=strtoken($atext);|                $btext:=strtoken($atext);|                command('/display > ',$activewin,' ',\11,$me,' ',$atext,\11);    |            end;|            if $tcmd = '/me' then|            begin|                command('/verbose PRIVMSG ',$activewin,' :',\1,'ACTION ',$atext,\1);|                command('/display > ',$activewin,' ',\14,$me,' ',$atext,\14);|            end;|            if $tcmd <>'/sound' and $tcmd <> '/me' then|            begin|                 command($tcmd,' ',$atext);|            end;|        end|        else|        begin|            command('/verbose PRIVMSG ',$activewin,' :',$text);|            command('/display > ',$activewin,' ','<',$me,'> ','',$text);|        end;|        txtdo:=txtdo+1;|    end;|    $last:=$a;|    $text:='';|    $fg:='';|    setwindowtext(popbut,'');|    setwindowtext(playtxt,'');|    setwindowtext(pilbut,'');|    setwindowtext(sndbut,'');|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'CLEAR' then|begin|    $text:='';|    $fg:='1';|    setwindowtext(popbut,'');|    setwindowtext(playtxt,'');|    setwindowtext(pilbut,'');|    setwindowtext(sndbut,'');|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'REPEAT' then|begin|    $text:=$text+$last;|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'BOLD' then|begin|    $a:=getwindowtext(editor);|    if strcopy($a,strlen($a),1) <> '' then $a:=$a+'';|    setwindowtext(editor,$a);|end;|if strupper($cmd) = 'UNDERLINE' then|begin|    $a:=getwindowtext(editor);|    if strcopy($a,strlen($a),1) <> '' then $a:=$a+'';|    setwindowtext(editor,$a);|end;|if strupper($cmd) = 'CNTRLK' then|begin|    $a:=getwindowtext(editor);|    if strcopy($a,strlen($a),1) <> '' then $a:=$a+'';|    setwindowtext(editor,$a);|end;|if strupper($cmd) = 'ITALICS' then|begin|    $a:=getwindowtext(editor);|    if strcopy($a,strlen($a),1) <> '' then $a:=$a+'';|    setwindowtext(editor,$a);|end;|if strupper($cmd) = 'FIXED' then|begin|    $a:=getwindowtext(editor);|    if strcopy($a,strlen($a),1) <> '' then $a:=$a+'';|    setwindowtext(editor,$a);|end;|if strupper($cmd) = 'SYMBOL' then|begin|    $a:=getwindowtext(editor);|    if strcopy($a,strlen($a),1) <> '' then $a:=$a+'';|    setwindowtext(editor,$a);|end;|if strupper($cmd) = 'DOPOPUP' then|begin|    $pops:=iniread($pirchpath+'cterm.ini','PIRCH','PopUps',$check);|    $a:=getwindowtext(editor);|    $presetext:=getwindowtext(popbut);|    stripe:=1;|    who:=snickcount($activewin);|    $newtext:='';|    $total:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|    total:=strtoint($total);|    special:=0;|    if $presetext = 'Add' then|    begin|        popadd:=createwindow('Color Text Terminal - Add PopUp Window',20,89,473,77);|        popadd2:=creategadget(popadd,1,2,0,103,20);|        setwindowattr(popadd2,2,11666562);|        setwindowtext(popadd2,'Name for PopUp');|        popadd3:=creategadget(popadd,2,0,13,105,20);|        popadd4:=creategadget(popadd,1,108,0,103,20);|        setwindowattr(popadd4,2,11666562);|        setwindowtext(popadd4,'Definition of PopUp');|        popadd5:=creategadget(popadd,2,106,13,360,20);|        popadd6:=creategadget(popadd,4,0,35,105,20);|        setwindowtext(popadd6,'Clear');|        setevent(popadd6,1,'/runscript [cterm2] clearpop');|        popadd7:=creategadget(popadd,4,105,35,195,20);|        setwindowtext(popadd7,'Grab From Editor Window');|        setevent(popadd7,1,'/runscript [cterm2] grabpopup');|        popadd8:=creategadget(popadd,4,300,35,166,20);|        setwindowtext(popadd8,'Add PopUp To CTERM');|        setevent(popadd8,1,'/runscript [cterm2] inipopup');|        setwindowtext(popbut,'');|        special:=1;|    end;|    if $presetext = 'Edit' then|    begin|        poped:=createwindow('Color Text Terminal - Edit PopUp Window',20,89,473,112);|        poped2:=creategadget(poped,1,2,0,103,20);|        setwindowattr(poped2,2,11666562);|        setwindowtext(poped2,'PopUp to Edit');|        poped3:=creategadget(poped,8,0,13,105,20);|        setwindowtext(poped3,'');|        $y:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|        y:=strtoint($y);|        for w:= 1 to y do |        begin|            $w:=inttostr(w);|            $z:=iniread($pirchpath+$pops,'POPUPS','Title'+$w,$check);|            if strupper($z) <> 'CREDIT' then v:=listappend(poped3,$z);|        end;|        poped4:=creategadget(poped,4,105,13,30,20);|        setwindowtext(poped4,'Load');|        setevent(poped4,1,'/runscript [cterm2] grabpopedit');|        poped5:=creategadget(poped,1,137,0,103,20);|        setwindowattr(poped5,2,11666562);|        setwindowtext(poped5,'Current Definition of PopUp');|        poped6:=creategadget(poped,2,135,13,331,20);|        poped7:=creategadget(poped,1,2,35,103,20);|        setwindowattr(poped7,2,11666562);|        setwindowtext(poped7,'New Name');|        poped8:=creategadget(poped,2,0,48,105,20);|        poped9:=creategadget(poped,1,137,35,103,20);|        setwindowattr(poped9,2,11666562);|        setwindowtext(poped9,'New Definition of PopUp');|        poped10:=creategadget(poped,2,135,48,331,20);|        poped11:=creategadget(poped,4,0,70,105,20);|        setwindowtext(poped11,'Clear');|        setevent(poped11,1,'/runscript [cterm2] clrpopedit');|        poped12:=creategadget(poped,4,135,70,165,20);|        setwindowtext(poped12,'Grab From Editor Window');|        setevent(poped12,1,'/runscript [cterm2] grabpoped');|        poped13:=creategadget(poped,4,300,70,166,20);|        setwindowtext(poped13,'Update PopUp In CTERM');|        setevent(poped13,1,'/runscript [cterm2] popupedit');|        setwindowtext(popbut,'');|        special:=1;|    end;|    if special=0 then |    begin|        for w:= 1 to total do |        begin|            $w:=inttostr(w);|            $readtitle:=iniread($pirchpath+$pops,'POPUPS','Title'+$w,$check);|            if $readtitle = $presetext then |            begin|                $readtext:=iniread($pirchpath+$pops,'POPUPS','Text'+$w,$check);|                while stripe < (strlen($readtext))+1 do|                begin|                    $clip:=strcopy($readtext,stripe,1);|                    $blurb:=$clip;|                    if $clip ='+' then |                    begin|                        $next:=strcopy($readtext,stripe+1,1);|                        if $next='K' then $blurb:='';|                        if $next='B' then $blurb:='';|                        if $next='F' then $blurb:='';|                        if $next='I' then $blurb:='';|                        if $next='U' then $blurb:='';|                        if $next='S' then $blurb:='';|                        if $next='N' then $blurb:=snicklist($activewin,who);|                        if $next='A' then $blurb:=$activewin;|                        if $next='D' then $blurb:=$date;|                        if $next='T' then $blurb:=$time;|                        if $next='Z' then $blurb:=$day;|                        $newtext:=$newtext+$blurb;|                        stripe:=stripe+2;|                    end|                    else|                    begin|                        $newtext:=$newtext+$blurb;|                        stripe:=stripe+1;|                    end;|                end;|            end;|        end;    |        if strupper($presetext) = 'CREDIT' then $newtext := '/me esta usando 4CTERM v2.01 10por 12Slobokan 10con 6PIRCH-CaeScript 1.610!!!';|    end;|    $text:=$newtext;|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'CLEARPOP' then|begin|    setwindowtext(popadd3,'');|    setwindowtext(popadd5,'');|end;|if strupper($cmd) = 'GRABPOPUP' then|begin|    $text:=getwindowtext(editor);|    setwindowtext(popadd5,$text);|end;|if strupper($cmd) = 'INIPOPUP' then|begin|    $pops:=iniread($pirchpath+'cterm.ini','PIRCH','PopUps',$check);|    $pretext:=getwindowtext(popadd3);|    if $pretext = '' then |    begin|        halt;|    end;|    if strupper($pretext) = 'CREDIT' then |    begin|        setwindowtext(popadd3,'');|        setwindowtext(popadd5,'');|        halt;|    end;|    $initext:=getwindowtext(popadd5);|    if $initext = '' then|    begin|        halt;|    end;                        |    $newtext:='';|    stripe:=1;|    while stripe < (strlen($initext))+1 do|    begin|        $clip:=strcopy($initext,stripe,1);|        $next:=strcopy($initext,stripe+1,1);|        if $clip = '' then $clip:='+K';|        if $clip = '' then $clip:='+B';|        if $clip = '' then $clip:='+F';|        if $clip = '' then $clip:='+I';|        if $clip = '' then $clip:='+U';|        if $clip = '' then $clip:='+S';|        if $clip = '$' and $next = '1' then |        begin|            $clip:='+N';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'A' then |        begin|            $clip:='+A';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'D' then |        begin|            $clip:='+D';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'T' then |        begin|            $clip:='+T';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'Z' then |        begin|            $clip:='+Z';|            stripe:=stripe+1;|        end;|        $newtext:=$newtext+$clip;|        stripe:=stripe+1;|    end;|    x:=(strlen($initext)-1);|    $hohum:=strcopy($initext,x,2);|    if $hohum <> '+K' then $newtext:=$newtext+'+K';|    $initext:=$newtext;|    $total:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|    total:=strtoint($total);|    $newtotal:=inttostr(total+1);|    iniwrite($pirchpath+$pops,'POPUPS','Total',$newtotal);|    iniwrite($pirchpath+$pops,'POPUPS','Title'+$newtotal,$pretext);|    iniwrite($pirchpath+$pops,'POPUPS','Text'+$newtotal,$initext);|    listclear(popbut);|    $y:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|    y:=strtoint($y);|    v:=listappend(popbut,'Add');|    v:=listappend(popbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$pops,'POPUPS','Title'+$w,$check);|        v:=listappend(popbut,$z);|    end;|    destroywindow(popadd);|    $text:='';|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'CLRPOPEDIT' then|begin|    setwindowtext(poped3,'');|    setwindowtext(poped6,'');|    setwindowtext(poped8,'');|    setwindowtext(poped10,'');|end;|if strupper($cmd) = 'GRABPOPEDIT' then|begin|    $pops:=iniread($pirchpath+'cterm.ini','PIRCH','PopUps',$check);|    $edset:=getwindowtext(poped3);|    if strupper($edset) = 'CREDIT' then |    begin|        setwindowtext(poped3,'');|        setwindowtext(poped8,'');|        setwindowtext(poped10,'');|        halt;|    end;|    if $edset=''  then|    begin|        halt;|    end;|    $total:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|    total:=strtoint($total);|    for w:= 1 to total do|    begin|        $w:=inttostr(w);|        $readtitle:=iniread($pirchpath+$pops,'POPUPS','Title'+$w,$check);|        if $readtitle = $edset then |        begin|            $readtext:=iniread($pirchpath+$pops,'POPUPS','Text'+$w,$check);|        end;|    end;    |    $text:=$readtext;|    setwindowtext(poped6,$text);|    setwindowtext(poped8,$edset);|    setwindowtext(poped10,$text);|    setwindowattr(poped6,6,0);|end;                        |if strupper($cmd) = 'GRABPOPED' then|begin|    $text:=getwindowtext(editor);|    setwindowtext(poped10,$text);|end;|if strupper($cmd) = 'POPUPEDIT' then|begin|    $pops:=iniread($pirchpath+'cterm.ini','PIRCH','PopUps',$check);|    $edset:=getwindowtext(poped3);|    $newed:=getwindowtext(poped8);|    $edtd:=getwindowtext(poped10);|    $newtext:='';|    if strupper($edset) = 'CREDIT' then |    begin|        setwindowtext(poped3,'');|        setwindowtext(poped8,'');|        setwindowtext(poped10,'');|        halt;|    end;|    if strupper($newed) = 'CREDIT' then |    begin|        setwindowtext(poped3,'');|        setwindowtext(poped8,'');|        setwindowtext(poped10,'');|        halt;|    end;|    if $edset=''  then|    begin|        halt;|    end;|    if $edtd=''  then|    begin|        halt;|    end;|    $total:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|    total:=strtoint($total);|    for w:= 1 to total do|    begin|        $w:=inttostr(w);|        $readtitle:=iniread($pirchpath+$pops,'POPUPS','Title'+$w,$check);|        if $readtitle = $edset then |        begin    |            if $newed ='' then $newed:=$edset;|            iniwrite($pirchpath+$pops,'POPUPS','Title'+$w,$newed);|            $readtext:=iniread($pirchpath+$pops,'POPUPS','Text'+$w,$check);|            if $edtd = '' then $edtd:=$readtext;|            stripe:=1;|            while stripe < (strlen($edtd))+1 do|            begin|                $clip:=strcopy($edtd,stripe,1);|                $next:=strcopy($edtd,stripe+1,1);|                if $clip = '' then $clip:='+K';|                if $clip = '' then $clip:='+B';|                if $clip = '' then $clip:='+F';|                if $clip = '' then $clip:='+I';|                if $clip = '' then $clip:='+U';|                if $clip = '' then $clip:='+S';|                if $clip = '$' and $next = '1' then |                begin|                    $clip:='+N';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'A' then |                begin|                    $clip:='+A';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'D' then |                begin|                    $clip:='+D';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'T' then |                begin|                    $clip:='+T';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'Z' then |                begin|                    $clip:='+Z';|                    stripe:=stripe+1;|                end;|                $newtext:=$newtext+$clip;|                stripe:=stripe+1;|            end;|            x:=(strlen($edtd)-1);|            $hohum:=strcopy($edtd,x,2);|            if $hohum <> '+K' then $newtext:=$newtext+'+K';|            $edtd:=$newtext;|            iniwrite($pirchpath+$pops,'POPUPS','Text'+$w,$edtd);|        end;|    end;    |    listclear(popbut);|    $y:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|    y:=strtoint($y);|    v:=listappend(popbut,'Add');|    v:=listappend(popbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$pops,'POPUPS','Title'+$w,$check);|        v:=listappend(popbut,$z);|    end;|    destroywindow(poped);|end;|if strupper($cmd) = 'DOPLAYTXT' then|begin|    $txts:=iniread($pirchpath+'cterm.ini','PIRCH','TxtFiles',$check);|    $a:=getwindowtext(editor);|    $presetext:=getwindowtext(playtxt);|    stripe:=1;|    who:=snickcount($activewin);|    $newtext:='';|    $total:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|    total:=strtoint($total);|    special:=0;|    if $presetext = 'Add' then|    begin|        txtadd:=createwindow('Color Text Terminal - Add TxtFile Window',20,89,473,77);|        txtadd2:=creategadget(txtadd,1,2,0,103,20);|        setwindowattr(txtadd2,2,11666562);|        setwindowtext(txtadd2,'Name for TxtFile');|        txtadd3:=creategadget(txtadd,2,0,13,105,20);|        txtadd4:=creategadget(txtadd,1,108,0,103,20);|        setwindowattr(txtadd4,2,11666562);|        setwindowtext(txtadd4,'Location and Filename of TxtFile');|        txtadd5:=creategadget(txtadd,2,106,13,360,20);|        txtadd6:=creategadget(txtadd,4,0,35,105,20);|        setwindowtext(txtadd6,'Clear');|        setevent(txtadd6,1,'/runscript [cterm2] cleartxt');|        txtadd7:=creategadget(txtadd,4,300,35,166,20);|        setwindowtext(txtadd7,'Add TxtFile To CTERM');|        setevent(txtadd7,1,'/runscript [cterm2] initxtfile');|        setwindowtext(playtxt,'');|        special:=1;|    end;|    if $presetext = 'Edit' then|    begin|        txted:=createwindow('Color Text Terminal - Edit TxtFile Window',20,89,473,112);|        txted2:=creategadget(txted,1,2,0,103,20);|        setwindowattr(txted2,2,11666562);|        setwindowtext(txted2,'TxtFile to Edit');|        txted3:=creategadget(txted,8,0,13,105,20);|        setwindowtext(txted3,'');|        $y:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|        y:=strtoint($y);|        for w:= 1 to y do |        begin|            $w:=inttostr(w);|            $z:=iniread($pirchpath+$txts,'TXTFILES','Title'+$w,$check);|            v:=listappend(txted3,$z);|        end;|        txted4:=creategadget(txted,4,105,13,30,20);|        setwindowtext(txted4,'Load');|        setevent(txted4,1,'/runscript [cterm2] grabtxtedit');|        txted5:=creategadget(txted,1,137,0,103,20);|        setwindowattr(txted5,2,11666562);|        setwindowtext(txted5,'Current Location and Filename of TxtFile');|        txted6:=creategadget(txted,2,135,13,331,20);|        txted7:=creategadget(txted,1,2,35,103,20);|        setwindowattr(txted7,2,11666562);|        setwindowtext(txted7,'New Name');|        txted8:=creategadget(txted,2,0,48,105,20);|        txted9:=creategadget(txted,1,137,35,103,20);|        setwindowattr(txted9,2,11666562);|        setwindowtext(txted9,'New Location and Filename of TxtFile');|        txted10:=creategadget(txted,2,135,48,331,20);|        txted11:=creategadget(txted,4,0,70,105,20);|        setwindowtext(txted11,'Clear');|        setevent(txted11,1,'/runscript [cterm2] clrtxtedit');|        txted12:=creategadget(txted,4,300,70,166,20);|        setwindowtext(txted12,'Update TxtFile In CTERM');|        setevent(txted12,1,'/runscript [cterm2] txtedit');|        setwindowtext(playtxt,'');|        special:=1;|        end;|    if special=0 then |    begin|        for w:= 1 to total do |        begin|            $w:=inttostr(w);|            $readtitle:=iniread($pirchpath+$txts,'TXTFILES','Title'+$w,$check);|            if $readtitle = $presetext then |            begin|                $readtext:=iniread($pirchpath+$txts,'TXTFILES','Text'+$w,$check);|                while stripe < (strlen($readtext))+1 do|                begin|                    $clip:=strcopy($readtext,stripe,1);|                    $blurb:=$clip;|                    if $clip ='+' then |                    begin|                        $next:=strcopy($readtext,stripe+1,1);|                        if $next='K' then $blurb:='';|                        if $next='B' then $blurb:='';|                        if $next='F' then $blurb:='';|                        if $next='I' then $blurb:='';|                        if $next='U' then $blurb:='';|                        if $next='S' then $blurb:='';|                        if $next='N' then $blurb:=snicklist($activewin,who);|                        if $next='A' then $blurb:=$activewin;|                        $newtext:=$newtext+$blurb;|                        stripe:=stripe+2;|                    end|                    else|                    begin|                        $newtext:=$newtext+$blurb;|                        stripe:=stripe+1;|                    end;|                end;|            end;|        end;                |    $text:='/playfile '+$activewin+' '+$newtext;|    setwindowtext(editor,$text);|    end;|end;|if strupper($cmd) = 'CLEARTXT' then|begin|    setwindowtext(txtadd3,'');|    setwindowtext(txtadd5,'');|end;|if strupper($cmd) = 'INITXTFILE' then|begin|    $txts:=iniread($pirchpath+'cterm.ini','PIRCH','TxtFiles',$check);|    $pretext:=getwindowtext(txtadd3);|    if $pretext = '' then |    begin|        halt;|    end;|    $initext:=getwindowtext(txtadd5);|    if $initext = '' then|    begin|        halt;|    end;                        |    $newtext:='';|    stripe:=1;|    while stripe < (strlen($initext))+1 do|    begin|        $clip:=strcopy($initext,stripe,1);|        $next:=strcopy($initext,stripe+1,1);|        if $clip = '' then $clip:='+K';|        if $clip = '' then $clip:='+B';|        if $clip = '' then $clip:='+F';|        if $clip = '' then $clip:='+I';|        if $clip = '' then $clip:='+U';|        if $clip = '' then $clip:='+S';|        if $clip = '$' and $next = '1' then |        begin|            $clip:='+N';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'A' then |        begin|            $clip:='+A';|            stripe:=stripe+1;|        end;|        $newtext:=$newtext+$clip;|        stripe:=stripe+1;|    end;|    x:=(strlen($initext)-2);|    $hohum:=strcopy($initext,x,2);|    if $hohum <> '+K' then $newtext:=$newtext+' +K';|    $initext:=$newtext;|    $total:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|    total:=strtoint($total);|    $newtotal:=inttostr(total+1);|    iniwrite($pirchpath+$txts,'TXTFILES','Total',$newtotal);|    iniwrite($pirchpath+$txts,'TXTFILES','Title'+$newtotal,$pretext);|    iniwrite($pirchpath+$txts,'TXTFILES','Text'+$newtotal,$initext);|    listclear(playtxt);|    $y:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|    y:=strtoint($y);|    v:=listappend(playtxt,'Add');|    v:=listappend(playtxt,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$txts,'TXTFILES','Title'+$w,$check);|        v:=listappend(playtxt,$z);|    end;|    destroywindow(txtadd);|    $text:='';|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'CLRTXTEDIT' then|begin|    setwindowtext(txted3,'');|    setwindowtext(txted6,'');|    setwindowtext(txted8,'');|    setwindowtext(txted10,'');|end;|if strupper($cmd) = 'GRABTXTEDIT' then|begin|    $txts:=iniread($pirchpath+'cterm.ini','PIRCH','TxtFiles',$check);|    $edset:=getwindowtext(txted3);|    if $edset=''  then|    begin|        halt;|    end;|    $total:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|    total:=strtoint($total);|    for w:= 1 to total do|    begin|        $w:=inttostr(w);|        $readtitle:=iniread($pirchpath+$txts,'TXTFILES','Title'+$w,$check);|        if $readtitle = $edset then |        begin|            $readtext:=iniread($pirchpath+$txts,'TXTFILES','Text'+$w,$check);|        end;|    end;    |    $text:=$readtext;|    setwindowtext(txted6,$text);|    setwindowtext(txted8,$edset);|    setwindowtext(txted10,$text);|    setwindowattr(txted6,6,0);|end;                        |if strupper($cmd) = 'TXTEDIT' then|begin|    $txts:=iniread($pirchpath+'cterm.ini','PIRCH','TxtFiles',$check);|    $edset:=getwindowtext(txted3);|    $newed:=getwindowtext(txted8);|    $edtd:=getwindowtext(txted10);|    $newtext:='';|    if $edset=''  then|    begin|        halt;|    end;|    if $edtd=''  then|    begin|        halt;|    end;|    $total:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|    total:=strtoint($total);|    for w:= 1 to total do|    begin|        $w:=inttostr(w);|        $readtitle:=iniread($pirchpath+$txts,'TXTFILES','Title'+$w,$check);|        if $readtitle = $edset then |        begin    |            if $newed ='' then $newed:=$edset;|            iniwrite($pirchpath+$txts,'TXTFILES','Title'+$w,$newed);|            $readtext:=iniread($pirchpath+$txts,'TXTFILES','Text'+$w,$check);|            if $edtd = '' then $edtd:=$readtext;|            stripe:=1;|            while stripe < (strlen($edtd))+1 do|            begin|                $clip:=strcopy($edtd,stripe,1);|                $next:=strcopy($edtd,stripe+1,1);|                if $clip = '' then $clip:='+K';|                if $clip = '' then $clip:='+B';|                if $clip = '' then $clip:='+F';|                if $clip = '' then $clip:='+I';|                if $clip = '' then $clip:='+U';|                if $clip = '' then $clip:='+S';|                if $clip = '$' and $next = '1' then |                begin|                    $clip:='+N';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'A' then |                begin|                    $clip:='+A';|                    stripe:=stripe+1;|                end;|                $newtext:=$newtext+$clip;|                stripe:=stripe+1;|            end;|            x:=(strlen($edtd)-2);|            $hohum:=strcopy($edtd,x,2);|            if $hohum <> '+K' then $newtext:=$newtext+' +K';|            $edtd:=$newtext;|            iniwrite($pirchpath+$txts,'TXTFILES','Text'+$w,$edtd);|        end;|    end;    |    listclear(playtxt);|    $y:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|    y:=strtoint($y);|    v:=listappend(playtxt,'Add');|    v:=listappend(playtxt,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$txts,'TXTFILES','Title'+$w,$check);|        v:=listappend(playtxt,$z);|    end;|    destroywindow(txted);|end;|if strupper($cmd) = 'DOPIL' then|begin|    $pils:=iniread($pirchpath+'cterm.ini','PIRCH','PILS',$check);|    $a:=getwindowtext(editor);|    $presetext:=getwindowtext(pilbut);|    $newtext:='';|    $total:=iniread($pirchpath+$pils,'PILS','Total',$check);|    total:=strtoint($total);|    special:=0;|    if $presetext = 'Add' then|    begin|        piladd:=createwindow('Color Text Terminal - Add PIL Window',20,89,473,77);|        piladd2:=creategadget(piladd,1,2,0,103,20);|        setwindowattr(piladd2,2,11666562);|        setwindowtext(piladd2,'Name for PIL');|        piladd3:=creategadget(piladd,2,0,13,105,20);|        piladd4:=creategadget(piladd,1,108,0,103,20);|        setwindowattr(piladd4,2,11666562);|        setwindowtext(piladd4,'PIL Filename [without brackets]');|        piladd5:=creategadget(piladd,2,106,13,360,20);|        piladd6:=creategadget(piladd,4,0,35,105,20);|        setwindowtext(piladd6,'Clear');|        setevent(piladd6,1,'/runscript [cterm2] clearpil');|        piladd7:=creategadget(piladd,4,300,35,166,20);|        setwindowtext(piladd7,'Add PIL To CTERM');|        setevent(piladd7,1,'/runscript [cterm2] inipil');|        setwindowtext(pilbut,'');|        special:=1;|    end;|    if $presetext = 'Edit' then|    begin|        piled:=createwindow('Color Text Terminal - Edit PIL Window',20,89,473,112);|        piled2:=creategadget(piled,1,2,0,103,20);|        setwindowattr(piled2,2,11666562);|        setwindowtext(piled2,'PIL to Edit');|        piled3:=creategadget(piled,8,0,13,105,20);|        setwindowtext(piled3,'');|        $y:=iniread($pirchpath+$pils,'PILS','Total',$check);|        y:=strtoint($y);|        for w:= 1 to y do |        begin|            $w:=inttostr(w);|            $z:=iniread($pirchpath+$pils,'PILS','Title'+$w,$check);|            v:=listappend(piled3,$z);|        end;|        piled4:=creategadget(piled,4,105,13,30,20);|        setwindowtext(piled4,'Load');|        setevent(piled4,1,'/runscript [cterm2] grabpiledit');|        piled5:=creategadget(piled,1,137,0,103,20);|        setwindowattr(piled5,2,11666562);|        setwindowtext(piled5,'Current PIL Name [without brackets]');|        piled6:=creategadget(piled,2,135,13,331,20);|        piled7:=creategadget(piled,1,2,35,103,20);|        setwindowattr(piled7,2,11666562);|        setwindowtext(piled7,'New Name');|        piled8:=creategadget(piled,2,0,48,105,20);|        piled9:=creategadget(piled,1,137,35,103,20);|        setwindowattr(piled9,2,11666562);|        setwindowtext(piled9,'New PIL Name [without brackets]');|        piled10:=creategadget(piled,2,135,48,331,20);|        piled11:=creategadget(piled,4,0,70,105,20);|        setwindowtext(piled11,'Clear');|        setevent(piled11,1,'/runscript [cterm2] clrpiledit');|        piled12:=creategadget(piled,4,300,70,166,20);|        setwindowtext(piled12,'Update PIL In CTERM');|        setevent(piled12,1,'/runscript [cterm2] piledit');|        setwindowtext(pilbut,'');|        special:=1;|    end;|    if special=0 then |    begin|        for w:= 1 to total do |        begin|            $w:=inttostr(w);|            $readtitle:=iniread($pirchpath+$pils,'PILS','Title'+$w,$check);|            if $readtitle = $presetext then |            begin|                $readtext:=iniread($pirchpath+$pils,'PILS','Text'+$w,$check);|            end;|        end;                |    $text:='/runscript ['+$readtext+'] '+$a;|    setwindowtext(editor,$text);|    end;|end;|if strupper($cmd) = 'CLEARPIL' then|begin|    setwindowtext(piladd3,'');|    setwindowtext(piladd5,'');|end;|if strupper($cmd) = 'INIPIL' then|begin|    $pils:=iniread($pirchpath+'cterm.ini','PIRCH','PILS',$check);|    $pretext:=getwindowtext(piladd3);|    if $pretext = '' then |    begin|        halt;|    end;|    $initext:=getwindowtext(piladd5);|    if $initext = '' then|    begin|        halt;|    end;                        |    $total:=iniread($pirchpath+$pils,'PILS','Total',$check);|    total:=strtoint($total);|    $newtotal:=inttostr(total+1);|    iniwrite($pirchpath+$pils,'PILS','Total',$newtotal);|    iniwrite($pirchpath+$pils,'PILS','Title'+$newtotal,$pretext);|    iniwrite($pirchpath+$pils,'PILS','Text'+$newtotal,$initext);|    listclear(pilbut);|    $y:=iniread($pirchpath+$pils,'PILS','Total',$check);|    y:=strtoint($y);|    v:=listappend(pilbut,'Add');|    v:=listappend(pilbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$pils,'PILS','Title'+$w,$check);|        v:=listappend(pilbut,$z);|    end;|    destroywindow(piladd);|    $text:='';|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'CLRPILEDIT' then|begin|    setwindowtext(piled3,'');|    setwindowtext(piled6,'');|    setwindowtext(piled8,'');|    setwindowtext(piled10,'');|end;|if strupper($cmd) = 'GRABPILEDIT' then|begin|    $pils:=iniread($pirchpath+'cterm.ini','PIRCH','PILS',$check);|    $edset:=getwindowtext(piled3);|    if $edset=''  then|    begin|        halt;|    end;|    $total:=iniread($pirchpath+$pils,'PILS','Total',$check);|    total:=strtoint($total);|    for w:= 1 to total do|    begin|        $w:=inttostr(w);|        $readtitle:=iniread($pirchpath+$pils,'PILS','Title'+$w,$check);|        if $readtitle = $edset then |        begin|            $readtext:=iniread($pirchpath+$pils,'PILS','Text'+$w,$check);|        end;|    end;    |    $text:=$readtext;|    setwindowtext(piled6,$text);|    setwindowtext(piled8,$edset);|    setwindowtext(piled10,$text);|    setwindowattr(piled6,6,0);|end;                        |if strupper($cmd) = 'PILEDIT' then|begin|    $pils:=iniread($pirchpath+'cterm.ini','PIRCH','PILS',$check);|    $edset:=getwindowtext(piled3);|    $newed:=getwindowtext(piled8);|    $edtd:=getwindowtext(piled10);|    $newtext:='';|    if $edset=''  then|    begin|        halt;|    end;|    if $edtd=''  then|    begin|            halt;|    end;|    $total:=iniread($pirchpath+$pils,'PILS','Total',$check);|    total:=strtoint($total);|    for w:= 1 to total do|    begin|        $w:=inttostr(w);|        $readtitle:=iniread($pirchpath+$pils,'PILS','Title'+$w,$check);|        if $readtitle = $edset then |        begin    |            if $newed ='' then $newed:=$edset;|            iniwrite($pirchpath+$pils,'PILS','Title'+$w,$newed);|                $readtext:=iniread($pirchpath+$pils,'PILS','Text'+$w,$check);|            if $edtd = '' then $edtd:=$readtext;|            iniwrite($pirchpath+$pils,'PILS','Text'+$w,$edtd);|        end;|    end;    |    listclear(pilbut);|    $y:=iniread($pirchpath+$pils,'PILS','Total',$check);|    y:=strtoint($y);|    v:=listappend(pilbut,'Add');|    v:=listappend(pilbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$pils,'PILS','Title'+$w,$check);|        v:=listappend(pilbut,$z);|    end;|    destroywindow(piled);|    $text:='';|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'DOSOUND' then|begin|    $snds:=iniread($pirchpath+'cterm.ini','PIRCH','Sounds',$check);|    $presetext:=getwindowtext(sndbut);|    stripe:=1;|    who:=snickcount($activewin);|    $newtext:='';|    $total:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|    total:=strtoint($total);|    special:=0;|    if $presetext = 'Add' then|    begin|        sndadd:=createwindow('Color Text Terminal - Add Sound Window',20,89,473,77);|        sndadd2:=creategadget(sndadd,1,2,0,103,20);|        setwindowattr(sndadd2,2,11666562);|        setwindowtext(sndadd2,'Name for Sound');|        sndadd3:=creategadget(sndadd,2,0,13,105,20);|        sndadd4:=creategadget(sndadd,1,108,0,103,20);|        setwindowattr(sndadd4,2,11666562);|        setwindowtext(sndadd4,'Location and Filename of Sound');|        sndadd5:=creategadget(sndadd,2,106,13,360,20);|        sndadd6:=creategadget(sndadd,4,0,35,105,20);|        setwindowtext(sndadd6,'Clear');|        setevent(sndadd6,1,'/runscript [cterm2] clearsnd');|        sndadd7:=creategadget(sndadd,4,300,35,166,20);|        setwindowtext(sndadd7,'Add Sound To CTERM');|        setevent(sndadd7,1,'/runscript [cterm2] inisnd');|        setwindowtext(sndbut,'');|        special:=1;|    end;|    if $presetext = 'Edit' then|    begin|        snded:=createwindow('Color Text Terminal - Edit Sound Window',20,89,473,112);|        snded2:=creategadget(snded,1,2,0,103,20);|        setwindowattr(snded2,2,11666562);|        setwindowtext(snded2,'Sound to Edit');|        snded3:=creategadget(snded,8,0,13,105,20);|        setwindowtext(snded3,'');|        $y:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|        y:=strtoint($y);|        for w:= 1 to y do |        begin|            $w:=inttostr(w);|            $z:=iniread($pirchpath+$snds,'SOUNDS','Title'+$w,$check);|            v:=listappend(snded3,$z);|        end;|        snded4:=creategadget(snded,4,105,13,30,20);|        setwindowtext(snded4,'Load');|        setevent(snded4,1,'/runscript [cterm2] grabedit');|        snded5:=creategadget(snded,1,137,0,103,20);|        setwindowattr(snded5,2,11666562);|        setwindowtext(snded5,'Current Location and Filename of Sound');|        snded6:=creategadget(snded,2,135,13,331,20);|        snded7:=creategadget(snded,1,2,35,103,20);|        setwindowattr(snded7,2,11666562);|        setwindowtext(snded7,'New Name');|        snded8:=creategadget(snded,2,0,48,105,20);|        snded9:=creategadget(snded,1,137,35,103,20);|        setwindowattr(snded9,2,11666562);|        setwindowtext(snded9,'New Location and Filename of Sound');|        snded10:=creategadget(snded,2,135,48,331,20);|        snded11:=creategadget(snded,4,0,70,105,20);|        setwindowtext(snded11,'Clear');|        setevent(snded11,1,'/runscript [cterm2] clrsndedit');|        snded12:=creategadget(snded,4,300,70,166,20);|        setwindowtext(snded12,'Update Sound In CTERM');|        setevent(snded12,1,'/runscript [cterm2] sndedit');|        setwindowtext(sndbut,'');|        special:=1;|    end;|    if special=0 then |    begin|        for w:= 1 to total do |        begin|            $w:=inttostr(w);|            $readtitle:=iniread($pirchpath+$snds,'SOUNDS','Title'+$w,$check);|            if $readtitle = $presetext then |            begin|                $readtext:=iniread($pirchpath+$snds,'SOUNDS','Text'+$w,$check);|                while stripe < (strlen($readtext))+1 do|                begin|                    $clip:=strcopy($readtext,stripe,1);|                    $blurb:=$clip;|                    if $clip ='+' then |                    begin|                        $next:=strcopy($readtext,stripe+1,1);|                        if $next='K' then $blurb:='';|                        if $next='B' then $blurb:='';|                        if $next='F' then $blurb:='';|                        if $next='I' then $blurb:='';|                        if $next='U' then $blurb:='';|                        if $next='S' then $blurb:='';|                        if $next='N' then $blurb:=snicklist($activewin,who);    |                        if $next='A' then $blurb:=$activewin;|                        if $next='D' then $blurb:=$date;|                        if $next='T' then $blurb:=$time;|                        if $next='Z' then $blurb:=$day;|                        $newtext:=$newtext+$blurb;|                        stripe:=stripe+2;|                    end|                    else|                    begin|                        $newtext:=$newtext+$blurb;|                        stripe:=stripe+1;|                    end;|                end;|            end;|        end;                |    end;|    $text:='/sound '+$activewin+' '+$newtext;|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'CLEARSND' then|begin|    setwindowtext(sndadd3,'');|    setwindowtext(sndadd5,'');|end;|if strupper($cmd) = 'INISND' then|begin|    $snds:=iniread($pirchpath+'cterm.ini','PIRCH','Sounds',$check);|    $pretext:=getwindowtext(sndadd3);|    if $pretext = '' then |    begin|        halt;|    end;|    $initext:=getwindowtext(sndadd5);|    if $initext = '' then|    begin|        halt;|    end;                        |    $newtext:='';|    stripe:=1;|    while stripe < (strlen($initext))+1 do|    begin|        $clip:=strcopy($initext,stripe,1);|        $next:=strcopy($initext,stripe+1,1);|        if $clip = '' then $clip:='+K';|        if $clip = '' then $clip:='+B';|        if $clip = '' then $clip:='+F';|        if $clip = '' then $clip:='+I';|        if $clip = '' then $clip:='+U';|        if $clip = '' then $clip:='+S';|        if $clip = '$' and $next = '1' then |        begin|            $clip:='+N';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'A' then |        begin|            $clip:='+A';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'D' then |        begin|            $clip:='+D';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'T' then |        begin|            $clip:='+T';|            stripe:=stripe+1;|        end;|        if $clip = '$' and $next = 'Z' then |        begin|            $clip:='+Z';|            stripe:=stripe+1;|        end;|        $newtext:=$newtext+$clip;|        stripe:=stripe+1;|    end;|    x:=(strlen($initext)-1);|    $hohum:=strcopy($initext,x,2);|    if $hohum <> '+K' then $newtext:=$newtext+' +K';|    $initext:=$newtext;|    $total:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|    total:=strtoint($total);|    $newtotal:=inttostr(total+1);|    iniwrite($pirchpath+$snds,'SOUNDS','Total',$newtotal);|    iniwrite($pirchpath+$snds,'SOUNDS','Title'+$newtotal,$pretext);|    iniwrite($pirchpath+$snds,'SOUNDS','Text'+$newtotal,$initext);|    listclear(sndbut);|    $y:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|    y:=strtoint($y);|    v:=listappend(sndbut,'Add');|    v:=listappend(sndbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$snds,'SOUNDS','Title'+$w,$check);|        v:=listappend(sndbut,$z);|    end;|    destroywindow(sndadd);|    $text:='';|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'GRABEDIT' then|begin|    $snds:=iniread($pirchpath+'cterm.ini','PIRCH','Sounds',$check);|    $edset:=getwindowtext(snded3);|    if $edset=''  then|    begin|        halt;|    end;|    $total:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|    total:=strtoint($total);|    for w:= 1 to total do|    begin|        $w:=inttostr(w);|        $readtitle:=iniread($pirchpath+$snds,'SOUNDS','Title'+$w,$check);|        if $readtitle = $edset then |        begin|            $readtext:=iniread($pirchpath+$snds,'SOUNDS','Text'+$w,$check);|        end;|    end;    |    $text:=$readtext;|    setwindowtext(snded6,$text);|    setwindowtext(snded8,$edset);|    setwindowtext(snded10,$text);|    setwindowattr(snded6,6,0);|end;                        |if strupper($cmd) = 'CLRSNDEDIT' then|begin|    setwindowtext(snded3,'');|    setwindowtext(snded6,'');|    setwindowtext(snded8,'');|    setwindowtext(snded10,'');|end;|if strupper($cmd) = 'SNDEDIT' then|begin|    $snds:=iniread($pirchpath+'cterm.ini','PIRCH','Sounds',$check);|    $edset:=getwindowtext(snded3);|    $newed:=getwindowtext(snded8);|    $edtd:=getwindowtext(snded10);|    $newtext:='';|    if $edset=''  then|    begin|        halt;|    end;|    if $edtd=''  then|    begin|        halt;|    end;|    $total:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|    total:=strtoint($total);|    for w:= 1 to total do|    begin|        $w:=inttostr(w);|        $readtitle:=iniread($pirchpath+$snds,'SOUNDS','Title'+$w,$check);|        if $readtitle = $edset then |        begin    |            if $newed ='' then $newed:=$edset;|            iniwrite($pirchpath+$snds,'SOUNDS','Title'+$w,$newed);|            $readtext:=iniread($pirchpath+$snds,'SOUNDS','Text'+$w,$check);|            if $edtd = '' then $edtd:=$readtext;|            stripe:=1;|            while stripe < (strlen($edtd))+1 do|            begin|                $clip:=strcopy($edtd,stripe,1);|                $next:=strcopy($edtd,stripe+1,1);|                if $clip = '' then $clip:='+K';|                if $clip = '' then $clip:='+B';|                if $clip = '' then $clip:='+F';|                if $clip = '' then $clip:='+I';|                if $clip = '' then $clip:='+U';|                if $clip = '' then $clip:='+S';|                if $clip = '$' and $next = '1' then |                begin|                    $clip:='+N';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'A' then |                begin|                    $clip:='+A';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'D' then |                begin|                    $clip:='+D';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'T' then |                begin|                    $clip:='+T';|                    stripe:=stripe+1;|                end;|                if $clip = '$' and $next = 'Z' then |                begin|                    $clip:='+Z';|                    stripe:=stripe+1;|                end;|                $newtext:=$newtext+$clip;|                stripe:=stripe+1;|            end;|            x:=(strlen($edtd)-1);|            $hohum:=strcopy($edtd,x,2);|            if $hohum <> '+K' then $newtext:=$newtext+'+K';|            $edtd:=$newtext;|            iniwrite($pirchpath+$snds,'SOUNDS','Text'+$w,$edtd);|        end;|    end;    |    listclear(sndbut);|    $y:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|    y:=strtoint($y);|    v:=listappend(sndbut,'Add');|    v:=listappend(sndbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$snds,'SOUNDS','Title'+$w,$check);|        v:=listappend(sndbut,$z);|    end;|    destroywindow(snded);|    $text:='';|    setwindowtext(editor,$text);|end;|if strupper($cmd) = 'MINI' then|begin|    setwindowattr(winid,7,0);|    putmin:=random(100)+350;|    $srvr1:=strcopy($server,1,7);|    $srvr2:=strcopy($server,(strlen($server)-6),7);|    if $srvr2='her.net' then putmin:=380;|    if $srvr2='net.org' then putmin:=480;|    if $srvr2='dal.net' then putmin:=280;|    win1id := createwindow('2.01-'+$srvr1,putmin,2,85,37);|    setevent(win1id,1,'/runscript [cterm2] close');|    setwindowattr(win1id,7,1);|    restwin := creategadget(win1id,4,0,0,80,16);|    setwindowtext(restwin,'Restore');|    setevent(restwin,1,'/runscript [cterm2] restore');|end;|if strupper($cmd) = 'RESTORE' then|begin|    setwindowattr(winid,7,1);|    setwindowattr(win1id,7,0);|end;|if strupper($cmd)='SETTINGS' then|begin|    setting:=createwindow('Color Text Terminal - INI Settings Window',20,89,406,77);|    setting2:=creategadget(setting,1,2,0,100,20);|    setwindowattr(setting2,2,11666562);|    setwindowtext(setting2,'PopUps File');|    setting3:=creategadget(setting,2,0,15,100,20);|    setting4:=creategadget(setting,1,102,0,100,20);|    setwindowattr(setting4,2,11666562);|    setwindowtext(setting4,'TxtFiles File');|    setting5:=creategadget(setting,2,100,15,100,20);|    setting6:=creategadget(setting,1,202,0,100,20);|    setwindowattr(setting6,2,11666562);|    setwindowtext(setting6,'PILS File');|    setting7:=creategadget(setting,2,200,15,100,20);|    setting8:=creategadget(setting,1,302,0,100,20);|    setwindowattr(setting8,2,11666562);|    setwindowtext(setting8,'SOUNDS File');|    setting9:=creategadget(setting,2,300,15,100,20);|    setting10:=creategadget(setting,4,0,35,50,20);|    setwindowtext(setting10,'CANCEL');|    setevent(setting10,1,'/runscript [cterm2] cancelset');|    setting11:=creategadget(setting,4,350,35,50,20);|    setwindowtext(setting11,'SAVE');|    setevent(setting11,1,'/runscript [cterm2] saveset');|    $pops:=iniread($pirchpath+'cterm.ini','PIRCH','PopUps',$check);|    $txts:=iniread($pirchpath+'cterm.ini','PIRCH','TxtFiles',$check);|    $pils:=iniread($pirchpath+'cterm.ini','PIRCH','PILS',$check);|    $snds:=iniread($pirchpath+'cterm.ini','PIRCH','Sounds',$check);|    setwindowtext(setting3,$pops);|    setwindowtext(setting5,$txts);|    setwindowtext(setting7,$pils);|    setwindowtext(setting9,$snds);|end;|if strupper($cmd)='CANCELSET' then|begin|    $pops:=iniread($pirchpath+'cterm.ini','PIRCH','PopUps',$check);|    $txts:=iniread($pirchpath+'cterm.ini','PIRCH','TxtFiles',$check);|    $pils:=iniread($pirchpath+'cterm.ini','PIRCH','PILS',$check);|    $snds:=iniread($pirchpath+'cterm.ini','PIRCH','Sounds',$check);|    destroywindow(setting);|end;|if strupper($cmd)='SAVESET' then|begin|    $pops:=getwindowtext(setting3);|    $txts:=getwindowtext(setting5);|    $pils:=getwindowtext(setting7);|    $snds:=getwindowtext(setting9);|    iniwrite($pirchpath+'cterm.ini','PIRCH','PopUps',$pops);|    iniwrite($pirchpath+'cterm.ini','PIRCH','TxtFiles',$txts);|    iniwrite($pirchpath+'cterm.ini','PIRCH','PILS',$pils);|    iniwrite($pirchpath+'cterm.ini','PIRCH','Sounds',$snds);|    if not fileexists($pirchpath+$pops) then|    begin|        iniwrite($pirchpath+$pops,'POPUPS','Total','0');|    end;|    if not fileexists($pirchpath+$txts) then|    begin|        iniwrite($pirchpath+$txts,'TXTFILES','Total','0');|    end;|    if not fileexists($pirchpath+$pils) then|    begin|        iniwrite($pirchpath+$pils,'PILS','Total','0');|    end;|    if not fileexists($pirchpath+$snds) then|    begin|        iniwrite($pirchpath+$snds,'SOUNDS','Total','0');|    end;|    listclear(popbut);|    $pops:=iniread($pirchpath+'cterm.ini','PIRCH','PopUps',$check);|    $y:=iniread($pirchpath+$pops,'POPUPS','Total',$check);|    y:=strtoint($y);|    v:=listappend(popbut,'Add');|    v:=listappend(popbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$pops,'POPUPS','Title'+$w,$check);|        v:=listappend(popbut,$z);|    end;|    listclear(playtxt);|    $txts:=iniread($pirchpath+'cterm.ini','PIRCH','TxtFiles',$check);|    $y:=iniread($pirchpath+$txts,'TXTFILES','Total',$check);|    y:=strtoint($y);|    v:=listappend(playtxt,'Add');|    v:=listappend(playtxt,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$txts,'TXTFILES','Title'+$w,$check);|        v:=listappend(playtxt,$z);|    end;|    listclear(pilbut);|    $pils:=iniread($pirchpath+'cterm.ini','PIRCH','PILS',$check);|    $y:=iniread($pirchpath+$pils,'PILS','Total',$check);|    y:=strtoint($y);|    v:=listappend(pilbut,'Add');|    v:=listappend(pilbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$pils,'PILS','Title'+$w,$check);|        v:=listappend(pilbut,$z);|    end;|    listclear(sndbut);|    $snds:=iniread($pirchpath+'cterm.ini','PIRCH','Sounds',$check);|    $y:=iniread($pirchpath+$snds,'SOUNDS','Total',$check);|    y:=strtoint($y);|    v:=listappend(sndbut,'Add');|    v:=listappend(sndbut,'Edit');|    for w:= 1 to y do |    begin|        $w:=inttostr(w);|        $z:=iniread($pirchpath+$snds,'SOUNDS','Title'+$w,$check);|        v:=listappend(sndbut,$z);|    end;|    destroywindow(setting);|end;|if strupper($cmd) = 'HELP' then |begin|    command('/execute '+$pirchpath+'cterm.hlp');|end;|if strupper($cmd) = 'ABT' then |begin|    helpwin:=createwindow('Color Text Terminal - About CTERM Window',20,89,473,200);|    txthlp := creategadget(helpwin,7,5,16,457,155);|    abtwinhlp := creategadget(helpwin,4,5,0,100,16);|    setwindowtext(abtwinhlp,'ABOUT');|    setevent(abtwinhlp,1,'/runscript [cterm2] abthelp');|    verwinhlp := creategadget(helpwin,4,362,0,100,16);|    setwindowtext(verwinhlp,'VERSIONS');|    setevent(verwinhlp,1,'/runscript [cterm2] verhelp');|    command('/runscript [cterm2] abthelp');|end;|if strupper($cmd) = 'ABTHELP' then|begin|    $helper:='ABOUT';|    hct:=1;|    command('/runscript [cterm2] dohelper');|end;|if strupper($cmd) = 'VERHELP' then|begin|    $helper:='VERSIONS';|    hct:=1;|    command('/runscript [cterm2] dohelper');|end;|if strupper($cmd) = 'DOHELPER' then|begin|    if hct = 1 then |    begin|        listclear(txthlp);|        $total:=iniread($pirchpath+'cthelp.dat',$helper,'Total',$check);|        total:=strtoint($total);|        for w:= 1 to total do |        begin|            $w:=inttostr(w);|            v:=listappend(txthlp,iniread($pirchpath+'cthelp.dat',$helper,$w,$check));|        end;|    hct:=hct+1;|    end;|end;|if strupper($cmd) = 'CLOSE' then|begin|    winid := 0;|    command('/display > ',$activewin,' ',\7,'4Slobokan'+char(39)+'s Terminal de Color de Texto esta 4APAGADA.',\7);|end;
[CTLAURI]:{            Lauri's Protection Program Ver 2.2|                     ⌐ Copyright 1997 By Cat Technology|-|Note:  This PIL was origionally developed on 6/5/97 when lauri21 requested that I make her a PIL.  When I asked her|    what kind of PIL she would like, she responded that she would enjoy a PIL that would protect her from |    "everything out there".  Well, this PIL won't do that, of course, but it is a darn good protection PIL.  I hope|    that you enjoy using it.|        - Jengas|-|About:  This PIL currently protects you from: Port Bombs, HD Kills, and CTCP Floods|-|Feature in Progress:  Nuke detection/protection!|-|Updates:  New Features:|        1.  Protect against Multiple Clone Flooding|        2.  Ping Flood Button|        3.  Versoin Flood Button|        4.  Userinfo Flood Button|        5.  Cancel Floods Button|        6.  ClearCache Feature for Smoother Running|        7.  Flush Command|        8.  Routed Notice's to Active Window|        9.  Added Colors!|        10.  AutoOff Timing System|        11.  Reorganized Run Order for Ease of Operation|        12.  Added Window Events|-|Events:    DCC:/runscript [CTLAURI] DCCHECK $3 $4 $nick $address|    CLIENTINFO:/runscript [CTLAURI] CTCP CLIENTINFO $nick $address|    PING:/runscript [CTLAURI] CTCP PING $nick $address|    FINGER:/runscript [CTLAURI] CTCP FINGER $nick $address|    USERINFO:/runscript [CTLAURI] CTCP USERINFO $nick $address|    TIME:/runscript [CTLAURI] CTCP TIME $nick $address|    PAGE:/runscript [CTLAURI] CTCP PAGE $nick $address|    VERSION:/runscript [CTLAURI] CTCP VERSION $nick $address|-|Usage:  Event Activated|-|Written:  6/5/97|Last Update:  6/9/97|}|{-----------Note - Altering the code below this line may cause this PIL to damage your computer, or run improperly----------------------}|{-----------Warning - Cat Technology will take no responsibility for damages caused to your computer due to PIL alteration--------}|If StrUpper($1)='DCCHECK' then|begin|    $ctcheck1 := $2;|    $ctcheck2 := $3;|    $ctnick := $4;|    $ctaddress := $5;|    $ctstartdisp := 'Detected: ' + $ctnick + ' has DCC attacked you!';|    $ctwindow := $activewin;|    If $ctcheck1 = '3353362454' then |    begin|        Command('/close DCC-',$ctnick);|        Command('/flush');|        Command('/timer turnoff -1 120 /runscript [ctlauri] turnoff');|        Command('/runscript [CTLAURI] START');|    end;|    If $ctcheck2 = '19' then |    begin|        Command('/close DCC-',$ctnick);|        Command('/flush');|        Command('/timer turnoff -1 120 /runscript [ctlauri] turnoff');|        Command('/runscript [CTLAURI] START');|    end;|end;|If StrUpper($1)='CTCP' then|begin|    Command('/set ctcp off');|    Command('/timer turnonb -1 60 /runscript [ctlauri] turnon');|    Command('/timer turnoff -1 120 /runscript [ctlauri] turnoff');|    $ctwhat := $2;|    $ctnick := $3;|    $ctaddress := $4;|    $ctflood := 'YES';|    $ctwindow := $activewin;|    $ctstartdisp := 'Detected: ' + $ctnick + ' has CTCPd you - this May be Flooding!';|    If $ctrunning = '' then Command('/runscript [CTLAURI] START');|    $ctrunning := 'YES';|end;|If StrUpper($1)='START' then |begin|    StartupScreen := CreateWindow('CT Protection System 2.2 Startup Screen',200,200,300,100);|    SetWindowAttr(StartupScreen,12,2);|    SetEvent(StartupScreen,1,'/runscript [CTLAURI] XSTARTB');|    WLabel := CreateGadget(StartupScreen,2,5,5,280,15);|    SetWindowAttr(WLabel,1,0);|    SetWindowAttr(WLabel,2,66000);|    SetWindowText(WLabel,'WARNING! CT Protection System has been Activated!');|    ELabel := CreateGadget(StartupScreen,2,5,25,280,15);|    SetWindowAttr(ELabel,1,0);|    SetWindowAttr(ELabel,2,64000);|    SetWindowText(ELabel,$ctstartdisp);|    SAPanel := CreateGadget(StartupScreen,10,15,50,120,20);|    SetWindowText(SAPanel,'');|    AButton := CreateGadget(SAPanel,4,1,1,115,15);|    SetWindowText(AButton,'Continue');|    SetEvent(AButton,1,'/runscript [CTLAURI] CREATE');|    SBPanel := CreateGadget(StartupScreen,10,155,50,120,20);|    SetWindowText(SBPanel,'');|    BButton := CreateGadget(SBPanel,4,1,1,115,15);|    SetWindowText(BButton,'Exit');|    SetEvent(BButton,1,'/runscript [CTLAURI] XSTART');|end;|If StrUpper($1)='CREATE' then|begin|    DestroyWindow(StartupScreen);|    Command('/timer turnoff die');|    $ctdata1 := 'Not Detected';|    $ctdata2 := 'Not Detected';|    $ctdata3 := 'Not Detected';|    $ctdata4 := 'None';|    If $ctcheck1 = '3353362454' then $ctdata2 := 'Detected';|    If $ctcheck2 = '19' then $ctdata1 := 'Detected';|    If $ctflood = 'YES' then |    begin|        $ctdata3 := 'Detected';|        $ctdata4 := $ctwhat;|    end;|    $ctdisplay1 := 'Protection System has been Activated for: ' + $ctnick;|    $ctdisplay2 := 'Port 19 Flood(Port Bomb): ' + $ctdata1;|    $ctdisplay3 := 'Hard Drive Fill(HD Kill): ' + $ctdata2;|    $ctdisplay4 := 'CTCP Flood type: ' + $ctdata4 + ' is ' + $ctdata3;|    CTLauri := CreateWindow('CT Protection System Ver 2.2',100,100,350,250);|    SetWindowAttr(CTLauri,12,2);|    SetEvent(CTLauri,1,'/runscript [CTLAURI] CTLAURIXB');|    Label1 := CreateGadget(CTLauri,2,5,5,335,25);|    SetWindowAttr(Label1,1,0);|    SetWindowAttr(Label1,2,66000);|    SetWindowText(Label1,$ctdisplay1);|    Label2 := CreateGadget(CtLauri,2,5,35,335,25);|    SetWindowAttr(Label2,1,0);|    SetWindowAttr(Label2,2,64000);|    SetWindowText(Label2,$ctdisplay2);    |    Label3 := CreateGadget(CtLauri,2,5,65,335,25);|    SetWindowAttr(Label3,1,0);|    SetWindowAttr(Label3,2,64000);|    SetWindowText(Label3,$ctdisplay3);    |    Label4 := CreateGadget(CtLauri,2,5,95,335,25);|    SetWindowAttr(Label4,1,0);|    SetWindowAttr(Label4,2,64000);|    SetWindowText(Label4,$ctdisplay4);    |    Panel2:=CreateGadget(CTLauri,10,10,150,320,30);|    SetWindowText(Panel2,'');|    Button20:=CreateGadget(Panel2,4,1,1,79,25);|    SetWindowText(Button20,'Ping Flood');|    SetEvent(Button20,1,'/timer PFlood -1 5 /ctcp ' + $ctnick + ' ping');|    Button21:=CreateGadget(Panel2,4,80,1,79,25);|    SetWindowText(Button21,'Version Flood');|    SetEvent(Button21,1,'/timer VFlood -1 5 /ctcp ' + $ctnick + ' version');|    Button22:=CreateGadget(Panel2,4,160,1,79,25);|    SetWindowText(Button22,'Userinfo Flood');|    SetEvent(Button22,1,'/timer Tflood -1 5 /ctcp ' + $ctnick + ' userinfo');|    Button23:=CreateGadget(Panel2,4,240,1,76,25);|    SetWindowText(Button23,'Flood(s) Off');|    SetEvent(Button23,1,'/runscript [CTLAURI] FLOODOFF');|    APanel := CreateGadget(CTLauri,10,10,180,320,30);|    SetWindowText(APanel,'');|    AButton := CreateGadget(APanel,4,1,1,79,25);|    SetWindowText(AButton,'Ignore');|    SetEvent(AButton,1,'/ignore ' + $ctnick + '!' + $ctaddress + ' 3');|    BButton := CreateGadget(APanel, 4,80,1,79,25);|    SetWindowText(BButton,'Silence');|    SetEvent(BButton,1,'/silence ' + $ctnick + '!' + $ctaddress + ' 3');|    CButton := CreateGadget(APanel, 4,160,1,79,25);|    SetWindowText(CButton,'Insult');|    SetEvent(CButton,1,'/msg ' + $ctwindow + ' ' + $ctnick + ', you Slacker! Thanks to my Protection System, pathetic losers like yourself can no longer hurt me! Why dont you go attack yourself?  Then you just might have a chance! ⌐ 1997 Cat Technology ');|    CButton := CreateGadget(APanel,4,240,1,76,25);|    SetWindowText(CButton,'Exit');|    SetEvent(CButton,1,'/runscript [CTLAURI] CTLAURIX');|end;|If StrUpper($1)='CTLAURIX' then|begin|    $ctrunning := '';|    DestroyWindow(CTLauri);|    Command('/clearcache');|end;|If StrUpper($1)='TURNON' then|begin|    Command('/timer turnonb die');|    Command('/set ctcp on');|end;|If StrUpper($1)='FLOODOFF' then|begin|    Command('/timer pflood die');|    Command('/timer vflood die');|    Command('/timer tflood die');|end;|If StrUpper($1)='TURNOFF' then|begin|    Command('/timer turnoff die');|    DestroyWindow(StartupScreen);|    Command('/display > ',$ctwindow,' ',\9,' CT Protection System Ver 2.0 AutoOff');|end;|If StrUpper($1)='XSTART' then|begin|    Command('/timer turnoff die');|    $ctrunning := '';|    DestroyWindow(StartupScreen);|    Command('/clearcache');|end;|If StrUpper($1)='XSTARTB' then|begin|    Command('/timer turnoff die');|    $ctrunning := '';|end;    |If StrUpper($1)='CTLAURIXB' then|begin|    $ctrunning := '';|    Command('/timer pflood die');|    Command('/timer vflood die');|    Command('/timer tflood die');|end;
[DECRYPT]:key := 128;|$chan := $1;|$source := *2;|$target := '';|key := 128;|$target := '';|for i := 1 to strlen($source) do|begin|$c := strcopy($source,i,1);|if ord($c) > 32 then|$c := char(ord($c)-key); { simple encoding }|$target := $target + $c;|end;|command('/display > ',$audience,' **decrypted** ',$target);
[DIGILAG]:{ DIGILAG v1.0 written by Macro 11/12/96|This script is the LAGMETER script supplied with Pirch 0.85 modified|to show a digital display instead of the "bars"|usage: add the following alias: called DIGILAG|-------------------------------|/define lagmeter=0|/define lagstatus=0|/runscript [digilag] create|-------------------------------|then just type /digilag to open it|}|if *1 = 'create' then|begin|    if winid <> 0 then |    begin|        writeln(char(15),'MEDILAG ventana ya abierta');|        writeln('-');|        halt;|    end;|    winid := createwindow('Medi Lag',550,16,80,45); |    lagpanel := creategadget(winid,10,2,2,76,22);|    setevent(winid,1,'/runscript [digilag] close');|    setwindowattr(lagpanel,3,5);|    setwindowattr(lagpanel,1,rgb(0,0,0));|    lagmeter := creategadget(lagpanel,1,2,2,76,20);|    setwindowattr(lagmeter,2,rgb(255,0,0));|    command('/callback PONG [digilag]');|    command('/timer lagtimer -1 2 /runscript [digilag] ping');|end|else if *1 = 'close' then|begin|    winid := 0;|    command('/timer lagtimer die');|end|else if (*1 = 'ping') then|begin|    if lagstatus = 0 then|    begin|        lagstatus := 1;|        command('/verbose PING '+inttostr(unixtime));|    end;|end|else|begin|    $s := *1;|    p := strpos(':',$s);|    strdel($s,1,p);|    seconds := unixtime-strtoint($s);|    {writeln('computed seconds = ',seconds);}|    {if seconds > 10 then seconds := 10;|    if seconds < 0 then seconds := 0;}|    if seconds < 5 then setwindowattr(lagmeter,2,rgb(0,255,0))|    else if seconds < 10 then setwindowattr(lagmeter,2,rgb(255,255,0))|    else setwindowattr(lagmeter,2,rgb(255,0,0));|    $newlabel := '';|    if seconds = 1 then|    $newlabel := inttostr(seconds) + ' segundo'|    else $newlabel := inttostr(seconds) + ' segundos';|    setwindowtext(lagmeter,$newlabel);|    lagstatus := 0;|    scriptresult := 0;|end;
[ENCRYPT]:key := 128;|$source := *1;|$target := '';|for i := 1 to strlen($source) do|begin|    $c := strcopy($source,i,1);|    if ord($c) > 32 then|        $c := char(ord($c)+key); { simple encoding }|    $target := $target + $c|end;|command('/display > ',$audience,' <',$me,'> ',\3,'Encrypted ',\3,*1);|command('/verbose PRIVMSG ',$audience,' :Encrypted ',$target);
[ENROSCAR]:{----------------------------------------------------------------------------------------------------------|*** Script: Enroscar|*** Fecha: 5/1/1997|*** Modificado por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Enrosca el texto que se le envia.|Ej: /runscript [Enroscar] universidad|Resultado: UnIvErSiDaD}|$target := '';|$source := *1 ;|for i := 1 to strlen($source) do|    if i mod 2 = 0 then|        $target := $target+strlower(strcopy($source,i,1))        |    else|        $target := $target+strupper(strcopy($source,i,1));|command('/msg ',$audience,' ',$target);
[EZYSOUND]:{EZYSOUND.PIL v1.2 written by Macro 12 August 1997 ([e-mail])|This pil will handle almost any sound get or send.|File requests in the following format are catered for...|ON NOTICE: !dccsend, !tsend or !yournick (regardless of what your current nick is)|ON TEXT: !yournick (regardless of what your current nick is)|Will output send requests in both Pirch & Mirc formats as selected by the user.|You can store your sound files in different sub-directories of your main sound|directory and the pil will search the sub-directories to find them.|*** New for version 1.2 ***|History window added, will show a list of last 5 unknown sounds played. The "Ezysound"|button will appear with first unknown sound.  Click on "Ezysound" button to open list.|Select the file you want and click on F3 or F4 button in window to request it from user.|************ TO INSTALL **************|BE SURE TO DISABLE/REMOVE ALL OTHER SOUND RELATED EVENTS.|To stop the new events conflicting with other ON TEXT & ON NOTICE lines|make a NEW level called !EZYSOUND (note no level number)|Make sure you have *!*@* in the user list for this level & the level is enabled.|Add the following 3 events in the !EZYSOUND level|ON NOTICE:!*:*:/runscript [ezysound] send $nick *1|ON TEXT:!*:*:/runscript [ezysound] send $nick *1|ON NOSOUND:*.*:*:/runscript [ezysound] get $nick $filename #|Make 2 new aliases (F3 and F4)|F3: /runscript [ezysound] askm|F4: /runscript [ezysound] askp|========================================================}|$comm := strupper($1);|$tag := '  0,10=[8,10EzySounD0,10]=';|if strupper($comm) = 'GET' then|begin|    $whoget := $2;|    $whatget := $3;|    $whereget := $4;|    $newsnd := $whatget+' por '+$whoget+' en '+$whereget;|    command('/display > ',$activewin,' ',\11,\22,\3,4,' ',$whoget,\3,12,' acaba de tocar ',\3,\5,$whatget,\5,\3,12,' en ',\3,4,$whereget,\3,12,' si lo deseas teclea ',\3,4,'F3',\3,12,'(Mirc) o ',\3,4,'F4',\3,12,'(Pirch).');|    if Esguihide = 0 and Esgiuwin = 0 then |    begin|        Esguihide:=CreateWindow('',520,0,61,38);|        SetWindowAttr(Esguihide,12,4);|        Button4:=CreateGadget(Esguihide,4,0,0,55,16);|        SetWindowText(Button4,'Ezysound');|        SetEvent(Button4,1,'/runscript [ezysound] restore');|        Esguiwin:=CreateWindow('EzySounD History List',420,0,187,112);|        SetWindowAttr(Esguiwin,7,0);|        SetEvent(Esguiwin,1,'/runscript [ezysound] close');|        SndList:=CreateGadget(Esguiwin,7,0,0,180,70);|        a := ListInsert(SndList,1,$newsnd);|        Button1:=CreateGadget(Esguiwin,4,0,70,60,20);|        SetWindowText(Button1,'F3(Mirc)');|        SetEvent(Button1,1,'/runscript [ezysound] askmg');|        Button2:=CreateGadget(Esguiwin,4,60,70,60,20);|        SetWindowText(Button2,'Ocul');|        SetEvent(Button2,1,'/runscript [ezysound] hide');|        Button3:=CreateGadget(Esguiwin,4,120,70,60,20);|        SetWindowText(Button3,'F4(Pirch)');|        SetEvent(Button3,1,'/runscript [ezysound] askpg');|    end|    else|    begin|        a := ListInsert(SndList,1,$newsnd);|        t := ListCount(SndList);|        if t = 6 then t := ListDelete(SndList,6);|    end;|end|else if $comm = 'CLOSE' then|begin|    Esguihide := 0;|    Esguiwin := 0;|end|else if $comm = 'ASKMG' then|begin|    g := ListSelection(SndList);|    if g > 0 then|    begin|        $gs := ListGet(SndList,g);|        $whatget := strtoken($gs);|        $by := strtoken($gs);|        $whoget := strtoken($gs);|        $on := strtoken($gs);|        $whereget := $gs;|        command('/runscript [ezysound] askm');|    end|    else command('/beep');|end|else if $comm = 'ASKM' then|begin|    if $whoget > '' and $whatget > '' then|    begin|        command('/query ',$whereget,' !',$whoget,' ',$whatget);|    end;|end|else if $comm = 'ASKPG' then|begin|    g := ListSelection(SndList);|    if g > 0 then|    begin|        $gs := ListGet(SndList,g);|        $whatget := strtoken($gs);|        $by := strtoken($gs);|        $whoget := strtoken($gs);|        $on := strtoken($gs);|        $whereget := $gs;|        command('/runscript [ezysound] askp');|    end|    else command('/beep');|end|else if $comm = 'ASKP' then|begin|    if $whoget > '' and $whatget > '' then|    begin|        command('/notice ',$whoget,' !DCCSEND ',$whatget,' !TSEND ',$tag);|    end;|end|else if $comm = 'SEND' then|begin|    $whosend := $2;|    $line := *3;|    $word1 := strtoken($line);|    $word2 := strtoken($line);|    if $word2 <> '*.*' then begin|    $whatsend := whereis($word2,$soundpath);|    if $whatsend > '' then|    if strpos('!TSEND',strupper(*3)) > 0 then|    begin|        command('/verbose notice ',$whosend,' :',\2,\3,12,strupper($word2),' ',\2,' esta en camino! ',$tag);|        command('/dcc tsend ',$whosend,' ',$whatsend);|        halt;|    end|    else if strupper($word1) = '!DCCSEND' then|    begin|        command('/verbose notice ',$whosend,' :',\2,\3,12,strupper($word2),\2,' esta en camino!',$tag);|        command('/dcc send ',$whosend,' ',$whatsend);|    end|    else if strupper($word1) = '!' + strupper($me) then|    begin|        command('/verbose notice ',$whosend,' :',\2,\3,12,strupper($word2),\2,' esta en camino!',$tag);|        command('/dcc send ',$whosend,' ',$whatsend);|    end;|    end;|end|else if $comm = 'HIDE' then|begin|    SetWindowAttr(Esguiwin,7,0);|    SetWindowAttr(Esguihide,7,1);|end|else if $comm = 'RESTORE' then |begin|    if Esguiwin > 0 then begin|    SetWindowAttr(Esguihide,7,0);|    SetWindowAttr(Esguiwin,7,1);|    end|    else DestroyWindow(Esguihide);|end;
[FINDCLONE]:{ Clone Finder - Escrito por by GTi|Popups - Channel Main Pane|List All Clones|.List:/runscript [FINDCLONE] # No|.List to Channel:/runscript [FINDCLONE] # Yes|}|$all := *2;    |$clonefile := $pirchpath + 'fclone.ini';|if flag <> 1 then    |begin|    $cchan := $1;|    $sendto := $2;|    iniwrite($clonefile, 'CLONES', 'Num', '0');|    command('/callback 352 [FINDCLONE]');|    command('/callback 315 [FINDCLONE]');|    flag := 1;|    clonecount := 0;|    command('/who ',$cchan);|end;|$code := strtoken($all);|if $code = '352' then|begin|    $clonetmp := strtoken($all);|    $clonechn := strtoken($all);|    $clonename := strtoken($all);|    $cloneadd := strtoken($all);|    $cloneserver := strtoken($all);|    $clonenik := strtoken($all);|    $clonetmp := strtoken ($all);|    $clonehops := strtoken ($all);|    clonecount := clonecount + 1;|    $clonec := inttostr(clonecount);|    $clonew := $clonenik +  ' ' + $cloneadd;|    iniwrite($clonefile,'CLONES','Clone' + $clonec , $clonew);|    iniwrite($clonefile,'CLONES','Num',$clonec);|    halt;|    breathe;|end;|if $code = '315' then|begin|    command('/callback -d 315');|    command('/callback -d 352');|    flag := 0;|    clonecount := 0;|    numclones := 0;|$numclone := iniread($clonefile,'CLONES','Num','Nope');|number := strtoint($numclone);|$clones := '';|start := 2;|command('/display > ',$cchan,' ',\16,'2[---------------------------------------------------------------]');|if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :2[---------------------------------------------------------------]');|command('/display > ',$cchan,' ',\16,'4   Lista de Clones 2para 12', $cchan);|if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :4   Lista de Clones 2Para 12', $cchan);|for i := 1 to number do|        begin|            breathe;|            $search := iniread($clonefile,'CLONES','Clone'+inttostr(i),'Nope');|            $snick := strtoken($search);|            $sadd := $search;|            for j := start to number do|                        begin|                            breathe;|                            $compare := iniread($clonefile,'CLONES','Clone'+inttostr(j),'Nope');|                            $cnick := strtoken($compare);|                            $cadd := $compare;|                            if $sadd = $cadd  and $cnick <> 'Null' then|                                    begin|                                        if $clones <> '' then $clones := $clones + ' y ' + $cnick    |                                        else|                                        begin|                                            $clones := $cnick;|                                            numclones := numclones +1;|                                        end;|                                        iniwrite($clonefile,'CLONES','Clone'+inttostr(j),'Null');|                                        numclones := numclones + 1;|                                    end;|                        end;|            start := start + 1;|            if $clones <> '' then |                    begin|                        command('/display > ',$cchan,' ',\16,'12 ',$snick,' 2es un clone de 4',$clones,' 2desde12 ',$sadd);|                        if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :12 ',$snick,' 2es un clone de 4',$clones,' 2desde12 ',$sadd);|                        $clones := '';|                    end;|        end;|if numclones = 0 then |        begin|            command('/display > ',$cchan,' ',\16,'12No se encontraron clones.');|            if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :12No se encontraron clones.');|        end;|if numclones > 0 then |        begin|            command('/display > ',$cchan,' ',\16,'12N·mero total de Clones:2 ',inttostr(numclones));|            if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :2N·mero total de Clones:12 ',inttostr(numclones));|        end;|command('/display > ',$cchan,' ',\16,'4   Fin de la lista de Clones para 12',$cchan);|if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :4   Fin de la lista de Clones para 12',$cchan);|command('/display > ',$cchan,' ',\16,'2[---------------------------------------------------------------]');|if $sendto = 'Yes' then command('/verbose privmsg ',$cchan,' :2[---------------------------------------------------------------]');|$sendto := 'No';|end;
[GINVITE]:{Global Invite - Written by GTi|Needed Aliases - GINVITE        /runscript [GINVITE] $1 $2|This script does a /who and invited all of the people who meet the hostmask you input to the channel you input.|Syntax: /ginvite *.fbibbs.com #fbibbs|This would invite everyone on irc from fbibbs.com who is not +i to #fbibbs.  It also gives a tally of how many people were invited.|}|$all := *2;    |if flag <> 1 then    |begin|    $imask := $1;|    $sendto := $2;|    command('/callback 352 [GINVITE]');|    command('/callback 315 [GINVITE]');|    flag := 1;|    invitecount := 0;|    command('/who ',$imask);|end;|$code := strtoken($all);|if $code = '352' then|begin|    $invitetmp := strtoken($all);|    $invitechn := strtoken($all);|    $invitename := strtoken($all);|    $inviteadd := strtoken($all);|    $inviteserver := strtoken($all);|    $invitenik := strtoken($all);|    $invitetmp := strtoken ($all);|    $invitehops := strtoken ($all);|    command('/invite ',$invitenik,' ',$sendto);|    invitecount := invitecount + 1;|    halt;|    breathe;|end;|if $code = '315' then|begin|    command('/callback -d 315');|    command('/callback -d 352');|    $invitecount := inttostr(invitecount);|    command('/display > MyFaultStats ',\16,' 12Mass Invite Complete for 4',$imask);|    command('/display > MyFaultStats ',\16,' 12Total Invites:4 ',$invitecount);|    command('/display > ',$sendto,' ',\16,' 12Mass Invite Complete for 4',$imask);|    command('/display > ',$sendto,' ',\16,' 12Total Invites:4 ',$invitecount);|    flag := 0;|end;
[GUICLONE]:$ver:='v1.64';|{|GUI CloneTest v1.64 by binary (special thanks to StudNo1, SpunOne, and Prez)|--- USAGE ---|    /runscript [guiclone] create|--- AN EVENT (COMPLETELY OPTIONAL) ---|    ON SNOTICE:*Client connecting on port*:/runscript [guiclone] quiet2 $9 $10|--- POPUPS ---|Channel (Names List):|    set_guiclone_user:/runscript [guiclone] setuser $$1|Private Message/DCC Chat|    set_guiclone_user:/runscript [guiclone] setuser $nick|--- SCRIPTING WITH KILL MSGS ---|Kill messages can include the following variables:|    $cloneaddr    address of the clone you are killing (ie. ppp12.clone.com)|    $clonecount    clone # of current clone killing|    $totalkilled    total # of clones you have killed with this script|    $dayofweek    day of week in name format (ie. Thursday)|    $day        day of of the month in number format (ie. 6)|    $date        dat in mm/dd/yy format (ie. 3/6/97)|    $year        year in yyyy format (ie. 1997)|    $month        month in name format (ie. March)|    $hour        hour on a 24-hour time basis (ie. 23)|    $minute        number of minutes after the hour (ie. 4)|    $second        number of seconds after the minute (ie. 53)|    $time        time in hh:mm:ss AM/PM form (ie. 10:25:34 PM)|You may also use $+ for deleting spaces between parameters.|Also, you may edit the kill message suffix (by default, clone <$clonecount> $cloneaddr) by editing|    the killmsgsuffix= line in the guiclone.ini in your windows directory.|In addition, you can use the following for font styles:|    \2    bold (ctrl-b)|    \3    color (ctrl-k)|    \5    hilite|    \22    italic (ctrl-i)|    \31    underline (ctrl-u)|}|$cmd:=strlower($1);|if $cmd='create' then|begin|    clonewin:=createwindow('CloneTest '+$ver,10,170,520,158);|    setwindowattr(clonewin,7,0);|    setevent(clonewin,1,'/runscript [oper] winclosed clonewin');|    gobut:=creategadget(clonewin,4,450,110,60,20);|    klinebut:=creategadget(clonewin,4,450,85,60,20);|    userdesc:=creategadget(clonewin,1,5,113,30,10);|    userbox:=creategadget(clonewin,2,30,110,75,10);|    srvdesc:=creategadget(clonewin,1,110,113,40,10);|    srvbox:=creategadget(clonewin,2,145,110,95,10);|    rsndesc:=creategadget(clonewin,1,245,113,40,10);|    rsnbox:=creategadget(clonewin,2,285,110,160,10);|    stat:=creategadget(clonewin,13,5,5,440,100);|    killopt:=creategadget(clonewin,8,450,5,60,10);|    setwindowtext(userdesc,'user:');|    setwindowtext(srvdesc,'server:');|    setwindowtext(rsndesc,'reason:');|    setwindowtext(killopt,'kill-type');|    setwindowattr(gobut,9,1);|    setwindowtext(gobut,'GO');|    setevent(gobut,1,'/runscript [guiclone] go');|    setwindowtext(klinebut,'k:line');|    setevent(klinebut,1,'/runscript [guiclone] go kline');|    setwindowtext(userbox,'user');|    setwindowtext(srvbox,'any');|    $killmsg:=iniread('guiclone.ini','prefs','killmsg','NONE YET');|    if $killmsg='NONE YET' then|    begin|        iniwrite('guiclone.ini','prefs','killmsg','No clones allowed');|        $killmsg:='No clones allowed';|    end;|    setwindowtext(rsnbox,$killmsg);|    x:=listappend(killopt,'off');|    x:=listappend(killopt,'clones');|    x:=listappend(killopt,'all');|    x:=listappend(killopt,'min-3');|    x:=listappend(killopt,'min-4');|    x:=listappend(killopt,'min-5');|    x:=listappend(killopt,'min-6');|    x:=listappend(killopt,'min-7');|    x:=listappend(killopt,'min-8');|    x:=listappend(killopt,'min-9');|    x:=listappend(killopt,'min-10');|    setwindowattr(clonewin,7,1);|    halt;|end;|if $cmd='attr' then|begin|    setwindowattr(clonewin,strtoint($2),strtoint($3));|    halt;|end;|if $cmd='display' then|begin|    $t:=*2;|    x:=listappend(stat,$t);|end;|if $cmd='go' then|begin|    $usr:=getwindowtext(userbox);|    $srv:=getwindowtext(srvbox);|    $kt:=strlower(getwindowtext(killopt));|    $rsn:=getwindowtext(rsnbox);|    iniwrite('guiclone.ini','prefs','killmsg',$rsn);|    if (listsearch(killopt,$kt)=0) or ($kt='off') then|    begin|        $rsn:='';|        $kt:='off';|    end;|    if $srv='server' then|        $srv:='any';|    if strlower($2)='kline' then|    begin|        command('/runscript [guiclone] test ',$usr,' any kline ',$rsn);|        halt;|    end;|    if strpos('.',$usr) then|    begin|        command('/runscript [guiclone] test2 ai&2ui& ',$usr,' ',$srv,' ',$kt,' ',$rsn);|        halt;|    end;|    command('/runscript [guiclone] test ',$usr,' ',$srv,' ',$kt,' ',$rsn);|end;|if $cmd='setuser' then|begin|    setwindowtext(userbox,$2);|    halt;|end;|qinc:=1;|if strcopy($cmd,1,2)='q-' then|begin|    qinc:=0;|    surpassexec:=1;|    strdel($cmd,1,2);|end;|if ($cmd='test') or ($cmd='quiet') then|begin|    if ($2='') then|        halt;|    queue:=queue+qinc;|    if (queue>1) and (qinc=1) then|    begin|        $waiting:=$waiting+*1+char(124);|        halt;|    end;|    $nn:=$2;|    command('/verbose USERHOST ',$nn);|    $theserver:='any server';|    command('/callback 352 [guiclone]');|    command('/callback 315 [guiclone]');|    command('/callback 302 [guiclone]');|    startat:=8;|    $kill:='off';|    $kll:=strlower($4);|    if $kll='clones' then|    begin|        $kill:='clones';|        $reason:=*5;|    end;|    if $kll='all' then|    begin|        $kill:='all';|        $reason:=*5;|    end;|    if strcopy($kll,1,4)='min-' then|    begin|        $kill:=$kll;|        $reason:=*5;|        $startat:=strcopy($kll,5,strlen($kll)-4);|        startat:=strtoint($startat);|    end;|    if (strlower($3)<>'any') and ($3<>'') then|        $theserver:=strlower($3);|    if $kll='kline' then|    begin|        $kill:='kline';|        $reason:=*5;|    end;|    $detecttype:='2';|    $clonetestnick:=$nn;|    clonecount:=0;|    totalcount:=0;|    $theaddy:=$addy;|    addyfound:=0;|    quiet:=0;|    if $cmd='quiet' then|        quiet:=1;|    if quiet=0 then|        f:=listappend(stat,'- Looking up host for '+\2+$nn+\2);|    halt;|end;|if ($cmd='test2') or ($cmd='quiet2') then|begin|    if ($2='') or ($3='') then|        halt;|    queue:=queue+qinc;|    if queue>1 then|    begin|        $waiting:=$waiting+*1+char(124);|        halt;|    end;|    $addy:=$3;|    $nn:=$2;|    startat:=8;|    $theserver:='any server';|    $kill:='off';|    $kill:='off';|    $kll:=strlower($5);|    if $kll='clones' then|    begin|        $kill:='clones';|    $reason:=*6;|    end;|    if $kll='all' then|    begin|        $kill:='all';|        $reason:=*6;|    end;|    if strcopy($kll,1,4)='min-' then|    begin|        $kill:=$kll;|        $reason:=*6;|        $startat:=strcopy($kll,5,strlen($kll)-4);|        startat:=strtoint($startat);|    end;|    if $kll='kline' then|    begin|        $kill:='kline';|        $reason:=*6;|    end;|    if (strlower($4)<>'any') and ($4<>'') then|        $theserver:=strlower($4);|    if strcopy($addy,1,1)='(' then|        strdel($addy,1,1);|    if strcopy($addy,strlen($addy),1)=')' then|        strdel($addy,strlen($addy),1);|    stposat:=strpos('@',$addy);|    while stposat<>0 do|    begin|        stposat:=strpos('@',$addy);|        strdel($addy,1,stposat);|    end;|    command('/verbose WHO ',$addy);|    command('/callback 352 [guiclone]');|    command('/callback 315 [guiclone]');|    $detecttype:='1';|    $clonetestnick:=$nn;|    clonecount:=0;|    totalcount:=0;|    $theaddy:=$addy;|    addyfound:=1;|    quiet:=0;|    if $cmd='quiet2' then|        quiet:=1;|    if quiet=0 then|        f:=listappend(stat,'- Scanning '+\2+$nn+\2+' ('+$theaddy+') server='+\2+$theserver+\2+' kill='+\2+strupper($kill)+\2);|    halt;|end;|$s:=*1;|$it:=strtoken($s);|$it:=strtoken($s);|if $it='302' then|begin|    $it:=strtoken($s);|    if strcopy($s,1,1)=':' then|        strdel($s,1,1);|    pol:=strpos('=',$s);|    if strpos('not found',$s) or (pol=0) then|    begin|        $it:=strtoken($s);|        f:=listappend(stat,\15+'No such nick as '+\2+$clonetestnick+\2);|        clonecount:=0;|        totalcount:=0;|        $theaddy:='Zw3Ps6Ux0';|        queue:=queue-1;|        if queue>0 then|        begin|            pipeloc:=strpos(char(124),$waiting);|            $nxt:=strcopy($waiting,1,pipeloc-1);|            strdel($waiting,1,pipeloc);|            command('/callback -d 302');|            command('/runscript [guiclone] q-',$nxt);|            halt;|        end;|        if queue=0 then|        begin|            $waiting:='';|            command('/callback -d 302');|            command('/callback -d 352');|            command('/callback -d 315');|        end;|        halt;|    end;|    ifoper:=0;|    if strcopy($s,pol-1,1)='*' then|    begin|        strdel($s,pol-1,1);|        pol:=pol-1;|    end;|    $n:=strcopy($s,1,pol-1);|    strdel($s,1,pol+1);|    pol:=strpos('@',$s);|    while pol>0 do|    begin|        strdel($s,1,pol);|        pol:=strpos('@',$s);|    end;|    if strcopy($s,strlen($s),1)=' ' then|        strdel($s,strlen($s),1);|    command('/callback -d 302');|    $hst:=$s;|    $theaddy:=$hst;|    addyfound:=1;|    $clonetestnick:=$n;|    $theaddy:=$hst;|    if $kill='kline' then|    begin|        for pn:=1 to strlen($reason) do|            if strcopy($reason,pn,1)=' ' then|            begin|                strdel($reason,pn,1);|                strins('_',$reason,pn);|            end;|        f:=listappend(stat,'* K:Lining '+\2+'*@'+$theaddy+\2+' ('+$reason+')');|        command('/verbose KLINE *@',$theaddy,' ',$reason);|        clonecount:=0;|        totalcount:=0;|        $theaddy:='Zw3Ps6Ux0';|        queue:=queue-1;|        if queue>0 then|        begin|            pipeloc:=strpos(char(124),$waiting);|            $nxt:=strcopy($waiting,1,pipeloc-1);|            strdel($waiting,1,pipeloc);|            command('/callback -d 302');|            command('/runscript [guiclone] q-',$nxt);|            halt;|        end;|        if queue=0 then|        begin|            $waiting:='';|            command('/callback -d 302');|            command('/callback -d 352');|            command('/callback -d 315');|        end;|        halt;|    end;|    command('/verbose WHO ',$s);|    if quiet=0 then|        f:=listappend(stat,'- Scanning '+\2+$n+\2+' ('+$theaddy+') server='+\2+$theserver+\2+' kill='+\2+strupper($kill)+\2);|    $detecttype:='1';|    halt;|end;|if $it='352' then|begin|    scriptresult:=0;|    $it:=strtoken($s);|    $chan:=strtoken($s);|    $ident:=strtoken($s);|    $hst:=strtoken($s);|    $srvr:=strtoken($s);|    $n:=strtoken($s);|    $h:=strtoken($s);|    $num:=strtoken($s);|    $o:=\5+$n+\5+' '+$h+' '+$ident+'@'+$hst+$num+' '+$s+' ('+$chan+')';|    if (strlower($clonetestnick)=strlower($n)) and ($detecttype='2') then|    begin|        addyfound:=1;|        $clonetestnick:=$n;|        $theaddy:=$hst;|        if $kill='kline' then|        begin|            for pn:=1 to strlen($reason) do|                if strcopy($reason,pn,1)=' ' then|                begin|                    strdel($reason,pn,1);|                    strins('_',$reason,pn);|                end;|            f:=listappend(stat,'* K:Lining '+\2+'*@'+$theaddy+\2+' ('+$reason+')');|            command('/verbose KLINE *@',$theaddy,' ',$reason);|            halt;|        end;|        if quiet=0 then|            f:=listappend(stat,'- Scanning '+\2+$n+\2+' ('+$theaddy+') server='+\2+$theserver+\2+' kill='+\2+strupper($kill)+\2);|        command('/who *',$hst,'*');|        $detecttype:='1';|        halt;|    end;|    if strpos($theaddy,$hst) and $detecttype='1' then|    begin|        totalcount:=totalcount+1;|        clone:=0;|        if (strlower($n)<>strlower($clonetestnick)) and (strcopy($kill,1,4)<>'min-') then|            clone:=1;|        if $kill='all' then|            clone:=1;|        if (totalcount+1>startat) then|            clone:=1;|        if ($theserver<>'any server') and (strlower($srvr)<>$theserver) then|        begin|            clone:=0;|            totalcount:=totalcount-1;|        end;|        if clone=1 then|        begin|            clonecount:=clonecount+1;|            $o:='* '+\2+$n+\2+' on '+$srvr+' of '+\2+$clonetestnick+\2;|            if $kill<>'off' then|            begin|                $cloneskilled:=iniread('guiclone.ini','counters','cloneskilled','0');|                cloneskilled:=strtoint($cloneskilled);|                cloneskilled:=cloneskilled+1;|                $cloneskilled:=inttostr(cloneskilled);|                iniwrite('guiclone.ini','counters','cloneskilled',$cloneskilled);|                $killmsgsuffix:=iniread('guiclone.ini','prefs','killmsgsuffix','NONE SPECIFIED');|                if $killmsgsuffix='NONE SPECIFIED' then|                begin|                    $killmsgsuffix:='clone <$clonecount> \2 $+ $cloneaddr $+ \2';|                    iniwrite('guiclone.ini','prefs','killmsgsuffix','clone <$clonecount> $cloneaddr');|                end;|                $pp:=$reason+' ( $+ '+$killmsgsuffix+' $+ )';|                xx:=strpos('$clonecount',$pp);|                $clonecount:=inttostr(clonecount);|                while xx<>0 do|                begin|                    strdel($pp,xx,11);|                    strins($clonecount,$pp,xx);|                    xx:=strpos('$clonecount',$pp);|                end;|                xx:=strpos('$totalkilled',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,12);|                    strins($cloneskilled,$pp,xx);|                    xx:=strpos('$totalkilled',$pp);|                end;|                xx:=strpos('$dayofweek',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,10);|                    strins($day,$pp,xx);|                    xx:=strpos('$dayofweek',$pp);|                end;|                xx:=strpos('$me',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,3);|                    strins($day,$pp,xx);|                    xx:=strpos('$me',$pp);|                end;|                xx:=strpos('$nick',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,5);|                    strins($n,$pp,xx);|                    xx:=strpos('$nick',$pp);|                end;|                xx:=strpos('$day',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,4);|                    strins(unixtimetostr('d',unixtime),$pp,xx);|                    xx:=strpos('$day',$pp);|                end;|                xx:=strpos('$date',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,5);|                    strins($date,$pp,xx);|                    xx:=strpos('$date',$pp);|                end;|                xx:=strpos('$month',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,6);|                    strins(unixtimetostr('mmmm',unixtime),$pp,xx);|                    xx:=strpos('$month',$pp);|                end;|                xx:=strpos('$year',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,5);|                    strins(unixtimetostr('yyyy',unixtime),$pp,xx);|                    xx:=strpos('$year',$pp);|                end;|                xx:=strpos('$hour',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,5);|                    strins(unixtimetostr('h',unixtime),$pp,xx);|                    xx:=strpos('$hour',$pp);|                end;|                xx:=strpos('$minute',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,7);|                    strins(unixtimetostr('n',unixtime),$pp,xx);|                    xx:=strpos('$minute',$pp);|                end;|                xx:=strpos('$second',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,7);|                    strins(unixtimetostr('s',unixtime),$pp,xx);|                    xx:=strpos('$second',$pp);|                end;|                xx:=strpos('$time',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,5);|                    strins($time,$pp,xx);|                    xx:=strpos('$time',$pp);|                end;|                xx:=strpos('$cloneaddr',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,10);|                    strins($hst,$pp,xx);|                    xx:=strpos('$cloneaddr',$pp);|                end;|                xx:=strpos(' \2 ',$pp)+1;|                while xx<>1 do|                begin|                    strdel($pp,xx,2);|                    $xx:=\2;|                    strins($xx,$pp,xx);|                    xx:=strpos(' \2 ',$pp)+1;|                end;|                xx:=strpos(' \3 ',$pp)+1;|                while xx<>1 do|                begin|                    strdel($pp,xx,2);|                    $xx:=\3;|                    strins($xx,$pp,xx);|                    xx:=strpos(' \3 ',$pp)+1;|                end;|                xx:=strpos(' \5 ',$pp)+1;|                while xx<>1 do|                begin|                    strdel($pp,xx,2);|                    $xx:=\5;|                    strins($xx,$pp,xx);|                    xx:=strpos(' \5 ',$pp)+1;|                end;|                xx:=strpos(' \22 ',$pp)+1;|                while xx<>1 do|                begin|                    strdel($pp,xx,3);|                    $xx:=\22;|                    strins($xx,$pp,xx);|                    xx:=strpos(' \22 ',$pp)+1;|                end;|                xx:=strpos(' \31 ',$pp)+1;|                while xx<>1 do|                begin|                    strdel($pp,xx,3);|                    $xx:=\31;|                    strins($xx,$pp,xx);|                    xx:=strpos(' \31 ',$pp)+1;|                end;|                xx:=strpos(' $+ ',$pp);|                while xx<>0 do|                begin|                    strdel($pp,xx,4);|                    xx:=strpos(' $+ ',$pp);|                end;|                $o:='* Killing '+\2+$n+\2+' ('+$pp+')';|                command('/kill ',$n,' ',$pp);|            end;|            f:=listappend(stat,$o);|        end;|        halt;|    end;|    command('/display ',\16,$o);|    halt;|end;|if $it='315' then|begin|    $it:=strtoken($s);|    $it:=strtoken($s);|    $it:=strlower($it);|    if strpos(strlower($theaddy),$it) then|    begin|        if (clonecount=0) and (quiet=0) then|            f:=listappend(stat,\1+'No clones on '+$theserver+' for '+\2+$theaddy+\2);|        clonecount:=0;|        totalcount:=0;|        $theaddy:='Zw3Ps6Ux0';|        queue:=queue-1;|        if queue>0 then|        begin|            pipeloc:=strpos(char(124),$waiting);|            $nxt:=strcopy($waiting,1,pipeloc-1);|            strdel($waiting,1,pipeloc);|            command('/runscript [guiclone] q-',$nxt);|            halt;|        end;|        if queue=0 then|            $waiting:='';|        command('/callback -d 352');|        command('/callback -d 315');|        halt;|    end;|    command('/display ',\16,$it,' ',$s);|    halt;|end;
[HEARTS]:{Hearts pil by corVONero|usage /runscript [HEARTS] text}|$target := '';|$source := *1 ;|for i := 1 to strlen($source) do|begin|    $target := $target+'4,0 ⌐'+strcopy($source,i,1);|end;|command('/msg ',$audience,' ',$target,'4,0 ⌐');
[HOLA]:{----------------------------------------------------------------------------------------------------------|*** Script: Hola|*** Fecha: 28/12/1996|*** Modificado por Carlos Anibarro, pasado en el PIL MASSGREET|----------------------------------------------------------------------------------------------------------|Saluda a todo el canal}|$s := '';|opsonly := true;|k := strtoint($members);|for i := 1 to k do|begin|    $thisnick :=  nicklist($audience,i); |    if strlen($s+$thisnick) > 255 then|    begin|        command('/msg ',$audience,' Hola ',$s);|        $s := '';|    end;|    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then|    begin|        if strlen($s) > 0 then|            $s := $s + ', ';|        $s := $s + $thisnick;        |    end;|end;|if strlen($s) > 0 then|begin|    command('/msg ',$audience,' Hola ',$s);|end;
[INVITAR]:{----------------------------------------------------------------------------------------------------------|*** Script: Invitar|*** Fecha: 15/12/1996|*** Escrito por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Invita a los miembros del canal en que se se este|al canal enviado como parametro|uso: /runscript [invitar] #Bolivia}|$s := '';|$c:=*1;|opsonly := true;|k := strtoint($members);|for i := 1 to k do|begin|    $thisnick :=  nicklist($audience,i); |    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then|    begin|        command('/invite ',$thisnick, ' ',$c);|    end;|end;
[IRCOPSCAN]:{|-   IRCOPScan.pil by Kakaroth.|-   Extra scripting help by binary and Woof|-   -=Installation Instructions=-|-    *Add two aliases, one called 'ircopscang' (for a global search) and one 'ircopscanc' (for a search in the current channel only). |-      In the first alias, please include the following lines:|-|-           /display > $activewin \-16 \-2 -=ò[Global Visible IRCop Scan]ò=-|-           /callback 352 [IRCOPSCAN]|-           /callback 315 [IRCOPSCAN]|-           /who 0 o|-|-      In the second put this:|-|-           /display > $activewin \-16 \-2 -=ò[IRCop Scan for # ]ò=-|-           /callback 352 [IRCOPSCAN]|-           /callback 315 [IRCOPSCAN]|-           /who * o|Enjoy!!!|}|$msg := *1;|$sender := strtoken($msg);|$numeric := strtoken($msg);|$dest:=strtoken($msg);|$one:=strtoken($msg);|$two:=strtoken($msg);|$three:=strtoken($msg);|$four:=strtoken($msg);|$five:=strtoken($msg);|$six:=strtoken($msg);|if $numeric='352' then |begin|    tot := tot + 1;|    command('/display > ',$activewin,' ',\16,' ',\2,' ',tot,' ',\2,' - ',\3,'4 ',$five,' ',\3,' - ',\3,'12 ',$four);|end;|if $numeric='315' then|begin|    command('/callback -d 352');|    command('/callback -d 315');|    command('/display > ',$activewin,' ',\16,' ',\2,' -=ò[ Fin de la B·squeda de IRCops! Total: ',tot,' ]ò=-');|    tot:=0;|end;
[LAGMK2]:{ a combination of pils (Ptime by MtnMan,  and Gigmeter by Gigetto]|best parts of each combined by Koach on 02/22/97|for help with this pil, come to #koachsWorkshop, mic2.microsoft.com:6667|Shows ping responses to a channel or window in the form of a lagmeter.  |(you can use /ping #channel to ping the whole channel)|The line to send this as a notice instead is included but commented out, simply remove |curly brackets from notice line and include curly brackets on msg chan line|------- Add to events -----------------------------------------------------------------------------|ON CTCPREPLY:*:/runscript [lagmk2] $activewin $nick *1|}|$chan := $1|$n := $2|$cmd := $3|if $cmd = 'PING' then|begin|    $name := '11,1' + $n; |    Secs := unixtime - strtoint($4);|    $border:=' 14,14 15,15 0,0 15,15 14,14 '; |    if secs=0 then $bar:='3,1  lllllllllllll7,1llllllllll5,1lllllll  ';|    if secs=1 then $bar:='9,1  lll3,1llllllllll7,1llllllllll5,1lllllll  ';|    if secs=2 then $bar:='9,1  llllll3,1lllllll7,1llllllllll5,1lllllll  ';|    if secs=3 then $bar:='9,1  lllllllll3,1llll7,1llllllllll5,1lllllll  ';|    if secs=4 then $bar:='9,1  llllllllllll3,1l7,1llllllllll5,1lllllll  ';|    if secs=5 then $bar:='9,1  lllllllllllll8,1l7,1lllllllll5,1lllllll  ';|    if secs=6 then $bar:='9,1  lllllllllllll8,1llll7,1llllll5,1lllllll  ';|    if secs=7 then $bar:='9,1  lllllllllllll8,1lllllll7,1lll5,1lllllll  ';|    if secs=8 then $bar:='9,1  lllllllllllll8,1llllllllll4,1l5,1llllll  ';|    if secs=9 then $bar:='9,1  lllllllllllll8,1llllllllll4,1llll5,1lll  ';|    if secs=10 then $bar:='9,1  lllllllllllll8,1llllllllll4,1lllllll  ';|    if secs >10 then $bar:='9,1  lllllllllllll8,1llllllllll4,1lllllll  ';|    $secs := inttostr(secs) + 'Secs';|    command('/display > ', $chan , ' ', \11,$border+'13,1  Lag de ', $name, $border,$bar,$border, ' 9,1 ',secs, ' Segs', $border);|    command('/notice ', $n ,' ', \11,'  13,1  Lag de ', $name, $border,$bar,$border, ' 8,1 ',secs, ' Segs', $border);|    {command('/msg ', $chan , ' ', \11,$border+'13,1  LagMeter for ' ,$name, $border,$bar,$border,' 8,1 ',secs, ' Secs', $border );}|end;
[MASSINV]:{MassInvite - This script will invite all nicks that you have highlighted to a channel of your choosing.|Needed Popups - Invite:/runscript [massinv] # $$?="What channel to mass invite to?"|Pil by GTi  from Script: MyFault 1.0|Enjoy}|$chan := $1|$msg := *2|$s := ''|count := snickcount($chan)|i := 1|for i := 1 to count do|begin|$s := snicklist($chan,i);|    if  ($s <> $me) then|command('/invite ',snicklist($chan,i),' ',$msg)|end
[MASSMSG]:{Mass Msg - Send a message to all highlighted nicks.|A good way to do a Mass Msg,  Doesnt send an individual msg for each user, will cut down on Excess Floods|Usage: Add a popup .Message:/runscript [massmsg] # $$?="What text to mass message?"|This script written by GTi|}|$chan := $1|$msg := *2|x := 0|usercount := snickcount($chan);|$usr := '';|for i := 1 to usercount do|begin|    $s := snicklist($chan,i);|    if  ($s <> $me) then|begin|$usr := $usr + $s + ',';|x := x + 1;|if x = 6 then|begin|command('/verbose privmsg ',$usr,' :',$msg);|x := 0;|$usr := '';|end|end|end;|command('/verbose privmsg ',$usr,' :',$msg);
[MATH]:val1 := strtoint($1);|$type := $2;|val2 := strtoint($3);|done := 0|if $type = '+' then done := val1 + val2;|if $type = '-' then done := val1 - val2;|if $type = '*' then done := val1 * val2;|if $type = '/' then done := val1 / val2;|command('/msg ',$audience,' La respuesta es ',done);
[MDEOP]:{----------------------------------------------------------------------------------------------------------|*** Script: Mdeop|*** Fecha: 12/1/1997|*** Escrito por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Script que quita el grado de operador en todos los canales a todas las|personas excepto a uno mismo.}|$s := '';|$c:=*1;|opsonly := true;|k := strtoint($members);|for i := 1 to k do|begin|    $thisnick :=  nicklist($audience,i); |    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then|    begin|        command('/mode ',$c,' -o ',$thisnick);|    end;|end;
[MDEOP2]:{----------------------------------------------------------------------------------------------------------|*** Script: Mdeop2|*** Escrito por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Script que quita el +o a todoslos que tengan el nick sobresaltado|-Uso - /runscript [mdeop2] #|}|$chan := $1;|$reason := *2;|$s := '';|$k :='';|opsonly := true;|for x := 1 to snickcount($chan) do begin|    $thisnick :=  snicklist($chan,x); |    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then begin|        if strlen($thisnick) > 0 then begin|            $k := '/mode ' + $chan + ' -o ' + $thisnick + ' ';|        end;|        if strlen($thisnick) > 0 then begin|            command($k);|        end;|    end;|end;
[MDVOZ]:{----------------------------------------------------------------------------------------------------------|*** Script: Mvoz|*** Escrito por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Script que quita el +,a los que tengan el nick sobresaltado}|$chan := $1;|$reason := *2;|$s := '';|$k :='';|opsonly := true;|for x := 1 to snickcount($chan) do begin|    $thisnick :=  snicklist($chan,x); |    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then begin|        if strlen($thisnick) > 0 then begin|            $k := '/mode ' + $chan + ' +v ' + $thisnick + ' ';|        end;|        if strlen($thisnick) > 0 then begin|            command($k);|        end;|    end;|end;
[MENSAJE]:{----------------------------------------------------------------------------------------------------------|*** Script: Mensaje|*** Fecha: 8/1/1997|*** Escrito por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Envia un mensaje a todos los miembros del canal|uso: /runscript [mensaje] hola}|$s := '';|$c:=*1;|opsonly := true;|k := strtoint($members);|for i := 1 to k do|begin|    $thisnick :=  nicklist($audience,i); |    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then|    begin|        command('/notice ',$thisnick, ' ',$c);|    end;|end;
[MOP]:{----------------------------------------------------------------------------------------------------------|*** Script: Mop|*** Fecha: 12/1/1997|*** Escrito por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Script que quita el grado de operador en todos los canales a todas las|personas excepto a uno mismo.}|$s := '';|$c:=*1;|opsonly := true;|k := strtoint($members);|for i := 1 to k do|begin|    $thisnick :=  nicklist($audience,i); |    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then|    begin|        command('/mode ',$c,' +o ',$thisnick);|    end;|end;
[MOP2]:{----------------------------------------------------------------------------------------------------------|*** Script: Mop2|*** Escrito por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Script que da +O a todoslos que tengan el nick sobresaltado|-Uso - /runscript [mop2] #|}|$chan := $1;|$reason := *2;|$s := '';|$k :='';|opsonly := true;|for x := 1 to snickcount($chan) do begin|    $thisnick :=  snicklist($chan,x); |    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then begin|        if strlen($thisnick) > 0 then begin|            $k := '/mode ' + $chan + ' +o ' + $thisnick + ' ';|        end;|        if strlen($thisnick) > 0 then begin|            command($k);|        end;|    end;|end;
[MVOZ]:{----------------------------------------------------------------------------------------------------------|*** Script: Mvoz|*** Escrito por Carlos Anibarro|----------------------------------------------------------------------------------------------------------|Script que da +v a todoslos que tengan el nick sobresaltado|-Uso - /runscript [mvoz] #|}|$chan := $1;|$reason := *2;|$s := '';|$k :='';|opsonly := true;|for x := 1 to snickcount($chan) do begin|    $thisnick :=  snicklist($chan,x); |    if ($thisnick <> $me) and ($thisnick <> 'X') and ($thisnick <> 'W') then begin|        if strlen($thisnick) > 0 then begin|            $k := '/mode ' + $chan + ' +v ' + $thisnick + ' ';|        end;|        if strlen($thisnick) > 0 then begin|            command($k);|        end;|    end;|end;
[NEON1A]:{Neon1 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON1] <message>}|$target := '0,0';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'4'+strcopy($source,i,1);|    $target := $target+'12'+strcopy($source,i+1,1);|    $target := $target+'13'+strcopy($source,i+2,1);|    i:=i+3;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON2A]:{Neon2 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON2] <message>}|$target := '1,1';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'13'+strcopy($source,i,1);|    $target := $target+'11'+strcopy($source,i+1,1);|    $target := $target+'8'+strcopy($source,i+2,1);|    $target := $target+'4'+strcopy($source,i+3,1);|    $target := $target+'9'+strcopy($source,i+4,1);|    i:=i+5;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON3A]:{Neon3 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON3] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'1,4'+strcopy($source,i,1);|    $target := $target+'1,8'+strcopy($source,i+1,1);|    $target := $target+'1,9'+strcopy($source,i+2,1);|    $target := $target+'1,11'+strcopy($source,i+3,1);|    $target := $target+'1,13'+strcopy($source,i+4,1);|    i:=i+5;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON4A]:{Neon4 cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON4] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'4'+'['+'12'+strcopy($source,i,1)+'4'+']';|    i:=i+1;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON4T_1]:{Neon4t by cpw a combination of neon2,3,6,and 7}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON4t] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'13,1'+strcopy($source,i,1);|    $target := $target+'11,1'+strcopy($source,i+1,1);|    $target := $target+'8,1'+strcopy($source,i+2,1);|    $target := $target+'4,1'+strcopy($source,i+3,1);|    $target := $target+'9,1'+strcopy($source,i+4,1);|    i:=i+5;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'1,4'+strcopy($source,i,1);|    $target := $target+'1,8'+strcopy($source,i+1,1);|    $target := $target+'1,9'+strcopy($source,i+2,1);|    $target := $target+'1,11'+strcopy($source,i+3,1);|    $target := $target+'1,13'+strcopy($source,i+4,1);|    i:=i+5;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'13,11'+strcopy($source,i,1);|    $target := $target+'13,11'+strcopy($source,i+1,1);|    $target := $target+'4,11'+strcopy($source,i+2,1);|    $target := $target+'4,11'+strcopy($source,i+3,1);|    $target := $target+'4,12'+strcopy($source,i+4,1);|    $target := $target+'4,12'+strcopy($source,i+5,1);|    $target := $target+'0,12'+strcopy($source,i+6,1);|    $target := $target+'0,12'+strcopy($source,i+7,1);|    $target := $target+'0,2'+strcopy($source,i+8,1);|    $target := $target+'0,2'+strcopy($source,i+9,1);|    $target := $target+'13,2'+strcopy($source,i+10,1);|    $target := $target+'13,2'+strcopy($source,i+11,1);|    i:=i+12;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'8,2'+strcopy($source,i,1);|    $target := $target+'8,2'+strcopy($source,i+1,1);|    $target := $target+'8,2'+strcopy($source,i+2,1);|    $target := $target+'8,10'+strcopy($source,i+3,1);|    $target := $target+'8,10'+strcopy($source,i+4,1);|    $target := $target+'8,10'+strcopy($source,i+5,1);|    $target := $target+'8,3'+strcopy($source,i+6,1);|    $target := $target+'8,3'+strcopy($source,i+7,1);|    $target := $target+'8,3'+strcopy($source,i+8,1);|    $target := $target+'8,7'+strcopy($source,i+9,1);|    $target := $target+'8,7'+strcopy($source,i+10,1);|    $target := $target+'8,7'+strcopy($source,i+11,1);|    $target := $target+'8,6'+strcopy($source,i+12,1);|    $target := $target+'8,6'+strcopy($source,i+13,1);|    $target := $target+'8,6'+strcopy($source,i+14,1);|    i:=i+15;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON5A]:{Neon5  by cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON5] <message>}|$target := '0,10';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'4'+'*'+'0'+strcopy($source,i,1);|    $target := $target+'8'+'*'+'0'+strcopy($source,i+1,1);|    $target := $target+'9'+'*'+'0'+strcopy($source,i+2,1);|    $target := $target+'11'+'*'+'0'+strcopy($source,i+3,1);|    $target := $target+'13'+'*'+'0'+strcopy($source,i+4,1);|    i:=i+5;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON6A]:{Neon6  by cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON6] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'0,4'+strcopy($source,i,1);|    $target := $target+'12'+strcopy($source,i+1,1);|    $target := $target+'12,0'+strcopy($source,i+2,1);|    $target := $target+'4'+strcopy($source,i+3,1);|    $target := $target+'4,12'+strcopy($source,i+4,1);|    $target := $target+'0'+strcopy($source,i+5,1);|    i:=i+6;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NEON7A]:{Neon2 by cpw}|{Based on Neon.pil - now you can write words in tricolour :) }|{usage: /runscript [NEON7] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'8,2'+strcopy($source,i,1);|    $target := $target+strcopy($source,i+1,1);|    $target := $target+strcopy($source,i+2,1);|    $target := $target+'8,10'+strcopy($source,i+3,1);|    $target := $target+strcopy($source,i+4,1);|    $target := $target+strcopy($source,i+5,1);|    $target := $target+'8,3'+strcopy($source,i+6,1);|    $target := $target+strcopy($source,i+7,1);|    $target := $target+strcopy($source,i+8,1);|    $target := $target+'8,7'+strcopy($source,i+9,1);|    $target := $target+strcopy($source,i+10,1);|    $target := $target+strcopy($source,i+11,1);|    $target := $target+'8,6'+strcopy($source,i+12,1);|    $target := $target+strcopy($source,i+13,1);|    $target := $target+strcopy($source,i+14,1);|    i:=i+15;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[NICKCHECK]:$nick2check:=$1;|$channel:=$2;|if strmatch('*shit*',$nick2check) or strmatch('*fuck*',$nick2check) or|    strmatch('*cock*',$nick2check) or strmatch('*cunt*',$nick2check) or |    strmatch('*asshole*',$nick2check) or strmatch('*iamhorney*',$nick2check) or|    strmatch('*whore*',$nick2check) or strmatch('*slut*',$nick2check) or|    strmatch('*fukoff*',$nick2check) or strmatch('*nigger*',$nick2check) or|    strmatch('*puta*',$nick2check) or strmatch('*puto*',$nick2check) or|    strmatch('*pinga*',$nick2check) or strmatch('*mierda*',$nick2check) or|    strmatch('*carajo*',$nick2check) or strmatch('*fuck*',$nick2check) or|    strmatch('*dick*',$nick2check) or strmatch('*mierda*',$nick2check) or|    strmatch('*verga*',$nick2check) or strmatch('*pichi*',$nick2check) |then|begin|    command('/mode ',$channel,' +b ',$nick2check,'!*@*');|    command('/kick ',$channel,' ',$nick2check,' Nicks o idents abusivos no son tolerados en este canal.');|end;
[OPER]:$ver:='v1.46';|{|Updated to v.1.46 by CAESpock: Included callbacks and message from the Oper Window for ChatOps|Updated to v.1.45 by CAESpock: Included callbacks and message from the Oper Window for LocOps|Oper Center for PIRCH v1.44 by binary (special thanks to StudNo1, SpunOne, and Prez)|--- USAGE ---|/runscript [oper] start|--- EVENTS ---|    ON WALLOPS:*:/runscript [oper] display \10 $+ $nick $+ *1 :+|    ON SNOTICE:*:/runscript [oper] snotice *1|    ON TEXT:!csops-online*:*:/runscript [oper] csops send $nick|    ON NOTICE:!csops-online*:*:/runscript [oper] csops send $nick|    OSVER:/runscript [oper] version $nick|    GUICLONEVER:/runscript [oper] version $nick|--- ADDITIONAL PIL SCRIPTS ---|guiclone.pil|    NOTE: using /addpil does not save alias file so the mouse way is safer...even though it's a pain :(|---------- ========== ---------- |NOTE:     The definition of $connectwin shows which window which client connects/quits will be displayed in.|    'default' uses the server window.|}|$connectwin:='.';|$cmd:=strlower($1);|if $cmd='version' then|begin|    command('/verbose NOTICE ',$2,' :',\1,'OSVER OperCenter ',$ver,' by binary (special thanks to StudNo1, SpunOne, Prez and CAESpock)');|    halt;|end;|if $cmd='start' then|begin|    operwinvis:=0;|    operwinopen:=0;|    clonewinvis:=0;|    clonewinopen:=0;|    ctrlwin:=createwindow('Oper Center Script Selector',300,16,200,51);|    setwindowattr(ctrlwin,7,0);|    operstartbut:=creategadget(ctrlwin,4,5,5,90,20);|    setwindowtext(operstartbut,'OperCenter');|    setevent(operstartbut,1,'/runscript [oper] winselect oper');|    clonestartbut:=creategadget(ctrlwin,4,100,5,90,20);|    setwindowtext(clonestartbut,'CloneTest');|    setevent(clonestartbut,1,'/runscript [oper] winselect clonewin');|    setwindowattr(ctrlwin,7,1);|    halt;|end;    |if $cmd='create' then|begin|    operwinopen:=1;|    operwinvis:=1;|    mainwin:=createwindow('Oper Center '+$ver,10,10,600,152);|    setwindowattr(mainwin,7,0);|    setevent(mainwin,1,'/runscript [oper] winclosed oper');|    stat:=creategadget(mainwin,13,85,5,505,100);|    notetype:=creategadget(mainwin,8,85,105,110,21);|    servlist:=creategadget(mainwin,8,5,5,75,10);|    txt:=creategadget(mainwin,2,195,105,350,21);|    sendbut:=creategadget(mainwin,4,545,105,45,21);|    connectbut:=creategadget(mainwin,4,5,35,75,21);|    squitbut:=creategadget(mainwin,4,5,65,75,21);|    listcsopsbut:=creategadget(mainwin,4,5,105,75,21);|    setwindowtext(connectbut,'CONNECT');|    setwindowtext(squitbut,'SQUIT');|    setwindowtext(listcsopsbut,'List CSops');|    setwindowtext(servlist,'server');|    cnt:=1;|    while fileread($pirchpath+'servers.lst',cnt,$ooo) do|    begin|        cnt:=cnt+1;|        f:=listappend(servlist,$ooo);|    end;|    setwindowtext(notetype,'globops');|    f:=listappend(notetype,'globops');|    f:=listappend(notetype,'locops');|    f:=listappend(notetype,'wallops');|    f:=listappend(notetype,'chatops');|    f:=listappend(notetype,'global');|    f:=listappend(notetype,'$server');|    setwindowtext(sendbut,'SEND');|    setwindowattr(sendbut,9,1);|    setevent(sendbut,1,'/runscript [oper] send');|    setwindowtext(txt,'text');|    setevent(connectbut,1,'/runscript [oper] servercmd connect');|    setevent(squitbut,1,'/runscript [oper] servercmd squit');|    setevent(listcsopsbut,1,'/runscript [oper] csops');|    setwindowattr(mainwin,7,1);|    f:=listappend(stat,'NOTA: El error de lectura de archivo es normal. Por favor ignorarlo.');|    f:=listappend(stat,'Para minimizar, haga click sobre el boton OperCenter nuevamente.');|    halt;|end;|if $cmd='send' then|begin|    $s:=getwindowtext(txt);|    setwindowtext(txt,'');|    if strcopy($s,1,1)='/' then|    begin|        command($s);|        halt;|    end;|    $sel:=getwindowtext(notetype);|    $typ:='notice '+$sel+' [SERVER NOTICE] '+$s+' [PLEASE DO NOT RESPOND]';|    if $sel='globops' then|        $typ:='globops :'+$s;|    if $sel='locops' then|        $typ:='locops :'+$s;|    if $sel='chatops' then|        $typ:='chatops :'+$s;|    if $sel='wallops' then|        $typ:='wallops '+$s;|    if $sel='global' then|        $typ:='notice $*.* [GLOBAL NOTICE] '+$s+' [PLEASE DO NOT RESPOND]';|    command('/',$typ);|    halt;|end;|if $cmd='servercmd' then|begin|    $srvr:=strlower(getwindowtext(servlist));|    $exec:=strupper($2)+' '+$srvr;|    plac:=listsearch(servlist,$srvr);|    if plac=0 then|    begin|        f:=listinsert(servlist,1,$srvr);|        f:=filewrite($pirchpath+'servers.lst',1,$srvr);|    end;|    if plac<>0 then|    begin|        f:=listdelete(servlist,plac);|        f:=listinsert(servlist,1,$srvr);|        $ooo:=$srvr;|        for cnt:=1 to plac do|        begin|            f:=fileread($pirchpath+'servers.lst',cnt,$oop);|            f:=filewrite($pirchpath+'servers.lst',0-cnt,$ooo);|            $ooo:=$oop;|        end;|    end;|    if strupper($2)='SQUIT' then|    begin|        command('/write -C ',$pirchpath,'oper.tmp');|        command('/write -I ',$pirchpath,'oper.tmp /verbose SQUIT ',$srvr,' : $+ $?=" Reason "');|        command('/execread ',$pirchpath,'oper.tmp');|        command('/write -C ',$pirchpath,'oper.tmp');|        halt;|    end;|    command('/verbose ',$exec);|    halt;|end;|if $cmd='snotice' then|begin|    $ss:=*2;|    $jd:='*** Notice -- Received KILL message for ';|    if strcopy($ss,1,strlen($jd))=$jd then|    begin|        if strpos('.',$11) then|            halt;|        if $11='NickServ' then|            halt;|{        if strpos('clone',strlower($ss)) then|            if (not strpos('<1>',$ss)) and (not strpos('#1',$ss)) then|                halt;|        if strpos('cloning',strlower($ss)) then|            if (not strpos('<1>',$ss)) and (not strpos('#1',$ss)) then|                halt;}|        $killvictim:=$9;|        killvictimlen:=strlen($killvictim);|        if strcopy($killvictim,killvictimlen,1)='.' then|            strdel($killvictim,killvictimlen,1);|        $o:=\9+'[N] '+$11+' killed '+$killvictim+' '+*14;|        command('/display > server ',$o);|        f:=listappend(stat,$o);|        halt;|    end;|    $jd:='*** Global -- from ';|    if strcopy($ss,1,strlen($jd))=$jd then|    begin|        $o:=\9+'[G] '+*6;|        command('/display > server ',$o);|        f:=listappend(stat,$o);|        halt;|    end;|    $jd:='*** LocOps -- from ';|    if strcopy($ss,1,strlen($jd))=$jd then|    begin|        $o:=\9+'[L] '+*6;|        command('/display > server ',$o);|        f:=listappend(stat,$o);|        halt;|    end;|    $jd:='*** Notice -- ';|    if strcopy($ss,1,strlen($jd))=$jd then|    begin|        $oo:=*6;|        $jd:='added a temp k:line for';|        if strcopy($oo,1,strlen($jd))=$jd then|        begin|            $o:=\9+'[K] '+$5+' added k:line for '+$11+' ('+$12+')';|            command('/display > server.status ',$o);|            f:=listappend(stat,$o);|            halt;|        end;|        $oo:=*5;|        $tag:=\9;|        $wic:=\9+'[N]';|        $jd:='Client exiting';|        if strcopy($oo,1,strlen($jd))=$jd then|        begin|            if $connectwin<>'default' then|                command('/newwindow ',$connectwin);|            $o:='/display > '+$connectwin+' '+\7+*5;|            if $connectwin='default' then|                $o:='/display > server.status '+\9+'[Q] '+*5;|            command($o);|            halt;|        end;|        $jd:='Client connecting';|        if strcopy($oo,1,strlen($jd))=$jd then|        begin|            if $connectwin<>'default' then|                command('/newwindow ',$connectwin);|            $o:='/display > '+$connectwin+' '+\1+*5;|            if $connectwin='default' then|                $o:='/display > server.status '+\9+'[C] '+*5;|            command($o);|            halt;|        end;|        $o:=$wic+' '+*5;|        command('/display ',$o);|        halt;|    end;|    $jd:='*** HelpOp -- ';|    if strcopy($ss,1,strlen($jd))=$jd then|    begin|        $o:=\9+'[H] '+*6;|        command('/display > server.status ',$o);|        f:=listappend(stat,$o);|        halt;|    end;|    $jd:='*** ChatOps -- ';|    if strcopy($ss,1,strlen($jd))=$jd then|    begin|        $o:=\9+'[C] '+*6;|        command('/display > server.status ',$o);|        f:=listappend(stat,$o);|        halt;|    end;|    $o:=\9+*2;|    command('/display > server.status ',$o);|    f:=listappend(stat,$o);|    halt;|end;|if ($cmd='display') or ($cmd='echodisplay') or ($cmd='wallop') then|begin|    $o:=*2;|    if $cmd='wallop' then|    begin|        $iy:=*3;|        if strcopy($iy,1,1)=':' then|            strdel($iy,1,1);|        $o:=\10+$2+': '+$iy;|    end;|    f:=listappend(stat,$o);|    if $cmd='echodisplay' then|        command('/display ',$o);|    halt;|end;|if $cmd='winselect' then|begin|    $which:=strlower($2);|    if (clonewinopen=0) and ($which='clonewin') then|    begin|        command('/runscript [guiclone] create');|        clonewinopen:=1;|        clonewinvis:=1;|        halt;|    end;|    if (operwinopen=0) and ($which='oper') then|    begin|        command('/runscript [oper] create');|        operwinopen:=1;|        operwinvis:=1;|        halt;|    end;|    if $which='oper' then|    begin|        operwinvis:=1-operwinvis;|        setwindowattr(mainwin,7,operwinvis);|    end;|    if $which='clonewin' then|    begin|        clonewinvis:=1-clonewinvis;|        command('/runscript [guiclone] attr 7 ',clonewinvis);|    end;        |    halt;|end;|if $cmd='winclosed' then|begin|    if $2='clonewin' then|        clonewinopen:=0;|    if $2='oper' then|        operwinopen:=0;|    halt;|end;|if $cmd='winopened' then|begin|    if $2='clonewin' then|        clonewinopen:=1;|    halt;|end;|if $cmd='csops' then|begin|    domotd:=0;|    $opp:='to.console';|    if unixtime-lasttime>8192 then|    begin|        domotd:=1;|        lasttime:=unixtime;|        $output:='to.console';|        if $2='send' then|            $output:=$3;|    end;|    if $2='send' then|        $opp:=$3;|    if domotd=0 then|    begin|        csoplistyet:=0;|        csopstart:=0;|        command('/callback 303 [oper]');|        command('/callback PONG [oper]');|        command('/verbose PING CSopList.Start');|        command('/ison ',$csoplist);|        command('/verbose PING CSopList.End,',$opp);|        halt;|    end;|    $csoplist:='';|    command('/callback 372 [oper]');|    command('/callback 376 [oper]');|    csoplistyet:=0;|    csopsfound:=0;|    command('/motd services.dal.net');|    halt;|end;|$s:=*1;|$servsender:=strtoken($s);|$rplcode:=strtoken($s);|if $rplcode='372' and $servsender='services.dal.net' then|begin|    $it:=strtoken($s);|    $it:=strtoken($s);|    $ss:=$s;|    xx:=strpos(' ',$ss);|    while xx<>0 do|    begin|        strdel($ss,strpos(' ',$ss),1);|        xx:=strpos(' ',$ss);|    end;|    if strpos('Watch this space',$s) then|    begin|        csoplistyet:=0;|        csopstart:=0;|        command('/callback PONG [oper]');|        command('/verbose PING CSopList.Start');|        command('/ison ',$csoplist);|        command('/verbose PING CSopList.End,',$output);|        halt;|    end;|    if csoplistyet=1 then|    begin|        csopsfound:=1;|        if $ss<>'' then|            $csoplist:=$csoplist+$s+' ';|        halt;|    end;|    if $s='These people can help recover lost nickname and channel passwords:' then|    begin|        $csoplist:='';|        command('/callback 303 [oper]');|        csopsfound:=0;|        csoplistyet:=1;|    end;|    halt;|end;|if $rplcode='376' and $servsender='services.dal.net' then|begin|    command('/callback -d 372');|    command('/callback -d 376');|    halt;|end;|if $rplcode='PONG' then|begin|    $it:=strtoken($s);|    $it:=strtoken($s);|    if strpos(':CSopList.End,',$it) then|    begin|        strdel($it,1,14);|        $op:=$it;|        if $op<>'to.console' then|            command('/verbose NOTICE ',$op,' :CSops: ',$csops);|        command('/display > server.status ',\7,'CSops: ',$csops);|        csopstart:=0;|        $csops:='';|        halt;|    end;|    if $it=':CSopList.Start' then|    begin|        command('/callback 303 [oper]');|        $csops:='';|        csopstart:=1;|        halt;|    end;|    halt;|end;|if $rplcode='303' then|begin|    $it:=strtoken($s);|    if csopstart=1 then|    begin|        strdel($s,1,1);|        $csops:=$csops+$s;|        halt;|    end;|    halt;|end;|scriptresult:=1;
[OPERNOTICE]:{|OperNotice for PIRCH by binary|--- USAGE ---|    /runscript [opernotice] send <servermask> <text>|        ie.|    /runscript [opernotice] send *.us.dal.net hey all operators of US DALnet servers!|--- EVENTS ---|    ON NOTICE:[opers*:*:/runscript [opernotice] decode $nick *1|}|$s:=*1;|$cmd:=strlower(strtoken($s));|if $cmd='decode' then|begin|    $n:=strtoken($s);|    $ss:=strlower($s);|    if strpos(']',$ss) and (strpos('[opers',$ss)=1) then|    begin|        xx:=strpos(']',$ss);|        $xx:=strcopy($ss,1,xx);|        strdel($s,1,xx);|        xx:=strpos(' ',$xx);|        while xx<>0 do|        begin|            $pp:=strcopy($xx,1,xx);|            strdel($xx,1,xx);|             xx:=strpos(' ',$xx);|        end;|        strdel($xx,strlen($xx),1);|        if strcopy($s,1,1)=':' then|            strdel($s,1,1);|        while strcopy($s,1,1)=' ' do|            strdel($s,1,1);|        command('/display > server.status ',\10,'[opers on ',$xx,'] ',$n,': ',$s);|        halt;|    end;|    command('/display > ',$activewin,' ',\1,$n,': ',$s);|    halt;|end;|if $cmd='send' then|begin|    $serv:=strlower(strtoken($s));|    $txt:=$s;|    command('/callback 352 [opernotice]');|    command('/callback 315 [opernotice]');|    command('/display > server.status ',\10,'[opers on ',$serv,'] ',$me,': ',$txt);|    command('/who ',$serv,' o');|    halt;|end;|$it:=strtoken($s);|$pp:=inttostr(352);|if $it=$pp then|begin|    scriptresult:=0;|    $it:=strtoken($s);|    $chan:=strtoken($s);|    $ident:=strtoken($s);|    $hst:=strtoken($s);|    $srvr:=strlower(strtoken($s));|    $n:=strtoken($s);|    $h:=strtoken($s);|    if strmatch($serv,$srvr) and strpos('*',$h) and ($n<>$me) then|    begin|        command('/verbose NOTICE ',$n,' :[OPERS ON ',$serv,'] ',$txt);|        halt;|    end;|end;|if $it='315' then|begin|    $it:=strtoken($s);|    $it:=strtoken($s);|    if strlower($it)=strlower($serv) then|    begin|        command('/callback -d 352');|        command('/callback -d 315');|        halt;|    end;|    command('/display > server.status ',\16,$it,' ',$s);|    halt;|end;
[PIGLATIN]:{ usage: /runscript [piglatin] <text message> }|{ probably will want to make an alias like|- piglatin:/runscript [piglatin] *1 |}|$target := '';|$source := *1 ;|while strlen($source) > 0 do|begin|    $word := strtoken($source);|    $c := strcopy($word,1,1);|    if strpos(strupper($c),'AEIOU') = 0 then|    begin|        strdel($word,1,1);|        $word := $word+$c+'a';|    end;|    $target := $target + $word+' ';|end;|command('/msg ',$audience,' pirch latin: ',$target);
[PIRCHPOKER]:{ PIRCH Poker - ⌐ 1996 Northwest Computer Services }|{ Required event: }|{ This script shows numerous scripting techniques, including creation of windows and controls,|and running an interactive process witin a single script source. The entire game is processed|within this one file, and uses recursion to simulate calling sub procedures. You need to be careful|when using recursive calls since all variables within a script are global in scope. |Rename this script to [PIRCHPOKER]    (name is critical for this script)|usage: only to start a game with you as the dealer.|    /runscript [pirchpoker] yournick create yournick player2 player3 player4|required event:|ON NOTICE:-pirchpoker-*:*:/runscript [pirchpoker] $nick *2|:-|}|doupdate := false; |$nextproc := '';|$nick := $1;|$playcmd := $2;|$pokerdebug := 'debug';|$pokerdebug := '0';|if $playcmd = 'create' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[POKERSTART]: ',*1);|    command('/display ',\1,'Running PIRCH Poker v1.0 ⌐ Northwest Computer Services.. Please wait... establishing game');|    pokerante := 10;|    pokercall := 0;|    playercount := 0;|    discard := 0;|    $pokerplayers := *4+' '+$3;|    $pokerwaiting := $pokerplayers;|    $pokerin := $pokerplayers;|    $playerlist := $pokerplayers;|    $pokerdealer := $3;|    $s := $pokerplayers;|    while strlen($s) > 0 do|    begin|        $s1 := strtoken($s);|        playercount := playercount + 1;|    end;|    if $pokerdebug <> '0' then writeln('startup set dealer/players:',$pokerdealer,' ',$playerlist);|    winid := createwindow('PIRCH PIL Poker - '+$me+'   (Dealer is '+$pokerdealer+')',25,90,476,175);|    buttonpanel := creategadget(winid,10,1,1,80,50);|    setwindowattr(buttonpanel,3,4);|    statuspanel := creategadget(winid,10,170,110,80,25);|    setwindowattr(statuspanel,3,2);|    setwindowattr(statuspanel,1,rgb(0,128,0));|    Table := creategadget(winid,10,1,1,80,50);|    setwindowattr(Table,3,5);|    setwindowattr(Table,1,rgb(0,128,0));|    pokerstatus1 := creategadget(table,1,200,10,150,20);|    setwindowtext(pokerstatus1,'Pirch Poker');|    setwindowattr(pokerstatus1,2,rgb(255,255,0));|    pokerstatus2 := creategadget(table,1,200,25,150,20);|    setwindowattr(pokerstatus2,2,rgb(255,255,255));|    $bets := '';|    $pokernames := '';|    for i := 0 to 3 do|    begin|        $nick := strtoken($playerlist);|        x := (i mod 2) * 70;|        y := (i / 2) * 30;|        control := creategadget(table,1,200+x,60+y,65,20);|        $pokernames := $pokernames + inttostr(control)+' ';|        setwindowattr(control,2,rgb(255,255,0));|        setwindowtext(control,$nick);|        control := creategadget(table,1,200+x,75+y,65,20);|        $bets := $bets +inttostr(control)+' ';|        setwindowattr(control,2,rgb(255,255,255));|        setwindowtext(control,'$0');|        if $nick = $me then|            mybets := control|        else if $nick = '' then|            setwindowattr(control,7,0);|        if i = 0 then playerbet0 := control|        else if i = 1 then playerbet1 := control|        else if i = 2 then playerbet2 := control|        else if i = 3 then playerbet3 := control;|    end;|    $pokerbets := $bets;|    $labels := '&Bet/Raise &Call &Fold &Discard Chec&k Dea&l';|    $s := 'dobet docall dofold dodiscard docheck dealhand';|    $controls := '';|    $pokerbtns := '';|    for i := 0 to 5 do|    begin|        control := creategadget(buttonpanel,4,0,(21*i),76,20);|        setevent(control,1,'/runscript [pirchpoker] '+$me+' '+strtoken($s));|        $pokerbtns := $pokerbtns + inttostr(control)+' ';|        setwindowattr(control,6,0);|        setwindowtext(control,strtoken($labels));|        if i = 0 then betbtn := control|        else if i = 1 then callbtn := control|        else if i = 2 then foldbtn := control|        else if i = 3 then discardbtn := control|        else if i = 4 then checkbtn := control|        else dealbtn := control;|    end;|    if $pokerdealer=$me then setwindowattr(dealbtn,6,1);|    $cardcontrols := '';|    for i := 0 to 4 do|    begin|        control := creategadget(Table,11,5+(26*i),3,76,100);|        $cardcontrols := $cardcontrols + inttostr(control)+' ';|        setwindowattr(control,20,-1);|    end;|    control := creategadget(statuspanel,1,4,4,40,20);|    setwindowtext(control,'Holdings:');|    setwindowattr(Control,2,rgb(255,255,0));|    pokerholdings := creategadget(statuspanel,1,50,4,40,20);|    setwindowtext(pokerholdings,'$5000');|    setwindowattr(pokerholdings,2,rgb(255,255,255));|    control := creategadget(statuspanel,1,100,4,36,20);|    setwindowtext(control,'Betting:');|    setwindowattr(control,2,rgb(255,255,0));|    pokerbet := creategadget(statuspanel,1,138,4,40,20);|    setwindowtext(pokerbet,'$0');|    setwindowattr(pokerbet,2,rgb(255,255,255));|    control := creategadget(statuspanel,1,200,4,21,20);|    setwindowtext(control,'Pot:');|    setwindowattr(control,2,rgb(255,255,0));|    pokerpot := creategadget(statuspanel,1,222,4,40,20);|    setwindowtext(pokerpot,'$0');|    setwindowattr(pokerpot,2,rgb(255,255,255));|    $labels := '1 5 25 100 -0-';|    for i := 0 to 4 do|    begin|        control := creategadget(statuspanel,4,321+(29*i),0,29,21);|        $label := strtoken($labels);|        setevent(control,1,'/runscript [pirchpoker] '+$me+' setbet '+$label);|        setwindowtext(control,$label);|    end;|    if $pokerdealer = $me then command('/runscript [pirchpoker] ',$me,' msg startup ',*3);|    curplayer := 1;|    $pokerwaiting := $pokerplayers;|    $pokermode := 'ante';|    $pokerin := '-';|    command('/runscript [pirchpoker] ',$me,' ante ',pokerante);|end|else if $playcmd = 'msg' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[POKERMSG]: ',*1);|    $msg := *3;|    $cmd := $3;|    $msgplayers := '';|    $players := $pokerplayers;|    while strlen($players) > 0 do|    begin|        $nick := strtoken($players);|        if ($nick = $me) then|        begin|            if  ($cmd <> 'startup') then|                command('/runscript [pirchpoker] ',$me,' ',$msg);|        end|        else|        begin|            if strlen($msgplayers) > 0 then|                $msgplayers := $msgplayers+',';|            $msgplayers := $msgplayers+$nick;|        end;|    end;|    if $msgplayers <> '' then|        command('/verbose notice ',$msgplayers,' :-pirchpoker- ',$msg);|end|{|else if $playcmd = 'startgame' then|begin|    if $pokerdebug <> '0' then writeln(\5,'poker dealer is ',$pokerdealer);|    command('/runscript [pirchpoker] msg startup ',$parameters);|end }|else if $playcmd = 'startup' then|begin|    if $pokerdebug <> '0' then writeln('calling pokerstart');|    command('/runscript [pirchpoker] ',$nick,' create ',*3);|    if $me = $pokerdealer then|        command('/runscript [pirchpoker] msg ante ',$pokerante);|end|else if $playcmd = 'update' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[POKERUPDATE]: ',*1);|    $s := *3;|    p := strpos(char(135),$s);|    if p > 0 then|    begin|        $s2 := strcopy($s,p,512);|        strdel($s2,1,1);|        strdel($s,p,512);|    end;|    setwindowtext(pokerpot,'$'+strtoken($s));|    setwindowtext(playerbet0,'$'+strtoken($s));|    setwindowtext(playerbet1,'$'+strtoken($s));|    setwindowtext(playerbet2,'$'+strtoken($s));|    setwindowtext(playerbet3,'$'+strtoken($s));|    setwindowtext(pokerstatus1,$s);|    setwindowtext(pokerstatus2,$s2);|end|else if $playcmd = 'deal' then|begin|    $hand := $3;|    $controls := $cardcontrols;|    $cards := $cardcontrols;|    for i := 0 to 4 do|    begin|        $card := strtoken($cards);|        cardvalue := ord(strcopy($hand,i+1,1))-ord('A');|        control := strtoint(strtoken($controls));|        setwindowattr(control,7,1);|        setwindowattr(control,20,cardvalue);|    end;|    setwindowtext(pokerstatus1,'New hand has been dealt');|    setwindowtext(pokerstatus2,'');|end|else if $playcmd = 'draw' then|    setwindowattr(discardbtn,6,1)|else if $playcmd = 'drew' then|begin|    |    $hand := $3;|    $controls := $cardcontrols;|    for i := 1 to 5-strlen($hand) do |        $card := strtoken($controls);|    for i := 1 to strlen($hand) do|    begin|        |        cardvalue := ord(strcopy($hand,i,1))-ord('A');|        card := strtoint(strtoken($controls));|        setwindowattr(card,7,1);|        setwindowattr(card,20,cardvalue);|    end;|    |end|else if $playcmd = 'bet' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[POKERBET]: ',*1);|    setwindowattr(betbtn,6,1);|    setwindowattr(foldbtn,6,1);|    setwindowattr(checkbtn,6,$3='0');|    setwindowattr(callbtn,6,$3 <> '0');|{    call := strtoint($3)-strtoint(strcopy(getwindowtext(mybets),2,20)); }|    pokercall := strtoint($3);|end|else if $playcmd = 'betting' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[POKERBETTING]: ',*1);|    pot := strtoint(strcopy(getwindowtext(pokerpot),2,20));|    thisbet := strtoint($3);|    if $pokermode = 'ante' then|    begin|        pot := pot + thisbet;|        setwindowtext(pokerpot,'$'+inttostr(pot));|        $names := $pokernames;|        $bets := $pokerbets;|        $players := $pokerin;|        if $players = '-' then $players := '';|        if strpos($nick,$players)=0 then|            $players := $players+$nick+' ';|        $pokerin := $players;|        for i := 0 to 3 do|        begin|            namecontrol := strtoint(strtoken($names));|            control := strtoint(strtoken($bets));|            $name := getwindowtext(namecontrol);|            if ($name <> '') and ($name = $nick) then|                setwindowtext(control,'$'+inttostr(thisbet));|        end;|        halt;|    end;|    if (pot = 0) and (thisbet = 0) then|        $msg := 'has checked'        |    else if pot = 0 then |        $msg := 'has opened with '+$3|    else if thisbet > lastbet then|        $msg := 'has called and raised '+inttostr(thisbet-lastbet)|    else|        $msg := 'has called';|    pot := pot + thisbet;|    setwindowtext(pokerpot,'$'+inttostr(pot));|    control := 0;|    if curplayer = 1 then control := playerbet0|    else if curplayer = 2 then control := playerbet1|    else if curplayer = 3 then control := playerbet2|    else if curplayer = 4 then control := playerbet3;|    if control <> 0 then|    begin|        total := strtoint(strcopy(getwindowtext(control),2,20)) +thisbet;|        setwindowtext(control,'$'+inttostr(total));|    end;|    lastbet := lastbet+(thisbet-lastbet);|{    doupdate := true;}|    $pokerupdate := $nick+' '+$msg;|    $msg := $pokerupdate;|    $msg := strcopy(getwindowtext(pokerpot),2,20)+' '+|            strcopy(getwindowtext(playerbet0),2,20)+' '+|            strcopy(getwindowtext(playerbet1),2,20)+' '+|            strcopy(getwindowtext(playerbet2),2,20)+' '+|            strcopy(getwindowtext(playerbet3),2,20)+' '+|            $msg;|    curplayer := curplayer+1;|{    command('/runscript [pirchpoker] ',$me,' msg update ',$msg);}|    command('/runscript [pirchpoker] ',$me,' askbet');|end|else if $playcmd = 'folding' then|begin|    pot := strtoint(strcopy(getwindowtext(pokerpot),2,20));|    setwindowtext(pokerpot,'$'+inttostr(pot));|    $activeplayers := $pokerin;|    p := strpos(strlower($nick),strlower($activeplayers));|    if p > 0 then|        strdel($activeplayers,p,strlen($nick)+1);|    if $activeplayers = '' then $activeplayers := '-';|    $pokerin := $activeplayers;|    doupdate := true;|    update := true;|    $pokerupdate := $nick+' has folded';|    command('/runscript [pirchpoker] ',$me,' askbet');|end|else if $playcmd = 'discarding' then|begin|    pot := strtoint(strcopy(getwindowtext(pokerpot),2,20));|    cards := strtoint($3);|    $deck := $pokerdeck;|    $hand := strcopy($deck,1,cards);|    strdel($deck,1,cards);|    $pokerdeck := $deck;|    if $me = $nick then|        command('/runscript [pirchpoker] ',$me,' drew ',$hand)|    else|        command('/verbose notice ',$nick,' :-pirchpoker- drew ',$hand);|    doupdate := true;|    $pokerupdate := $nick+' has taken '+inttostr(cards)+' cards ';|    command('/runscript [pirchpoker] ',$me,' askdraw');|end|else if $playcmd = 'dobet' then|begin|    setwindowattr(betbtn,6,0);|    setwindowattr(callbtn,6,0);|    setwindowattr(foldbtn,6,0);|    setwindowattr(checkbtn,6,0);|    setwindowattr(callbtn,6,0);|    if getwindowtext(betbtn) = '&Ante' then|    begin|        amount := pokercall;|        setwindowtext(betbtn,'&Bet/Raise');|        setwindowtext(pokerstatus1,'Ante is in');|        setwindowtext(pokerstatus2,'Waiting for hand to be dealt...');|    end|    else|    begin|        amount := pokercall+strtoint(strcopy(getwindowtext(pokerbet),2,20));|        setwindowtext(pokerstatus1,'Placing the bet...');|        setwindowtext(pokerstatus2,'Waiting for dealer reply...');|    end;|    if $me <> $pokerdealer then|        setwindowtext(pokerpot,'$'+inttostr(strtoint(strcopy(getwindowtext(pokerpot),2,20))+amount));|    setwindowtext(mybets,'$'+inttostr(strtoint(strcopy(getwindowtext(mybets),2,20))+amount));|    setwindowtext(pokerholdings,'$'+inttostr(strtoint(strcopy(getwindowtext(pokerholdings),2,20))-amount));|    if $me = $pokerdealer then|        command('/runscript [pirchpoker] ',$me,' betting ',amount)|    else|        command('/verbose notice ',$pokerdealer,' :-pirchpoker- betting ',amount);|    |end|else if $playcmd = 'docall' then|begin|    setwindowattr(betbtn,6,0);|    setwindowattr(callbtn,6,0);|    setwindowattr(foldbtn,6,0);|    setwindowattr(checkbtn,6,0);|    setwindowattr(callbtn,6,0);|    if $me = $pokerdealer then|        command('/runscript [pirchpoker] ',$me,' betting ',pokercall)|    else|        command('/verbose notice ',$pokerdealer,' :-pirchpoker- betting ',pokercall);|    setwindowtext(pokerholdings,'$'+inttostr(strtoint(strcopy(getwindowtext(pokerholdings),2,20))-pokercall));|    setwindowtext(pokerstatus1,'Calling the bet...');|    setwindowtext(pokerstatus2,'Waiting for dealer reply...');|end|else if $playcmd = 'docheck' then|begin|    setwindowattr(betbtn,6,0);|    setwindowattr(callbtn,6,0);|    setwindowattr(foldbtn,6,0);|    setwindowattr(checkbtn,6,0);|    setwindowattr(callbtn,6,0);|    if $me = $pokerdealer then|        command('/runscript [pirchpoker] ',$me,' betting 0')|    else|        command('/verbose notice ',$pokerdealer,' :-pirchpoker- betting 0');|    setwindowtext(pokerstatus1,'Checking the bet...');|    setwindowtext(pokerstatus2,'Waiting for dealer reply...');|end|else if $playcmd = 'dofold' then|begin|    setwindowattr(betbtn,6,0);|    setwindowattr(callbtn,6,0);|    setwindowattr(foldbtn,6,0);|    setwindowattr(checkbtn,6,0);|    setwindowattr(callbtn,6,0);|    if $me = $pokerdealer then|        command('/runscript [pirchpoker] ',$me,' folding')|    else|        command('/verbose notice ',$pokerdealer,' :-pirchpoker- folding');|    setwindowtext(pokerstatus1,'Folding...');|    setwindowtext(pokerstatus2,'Waiting for dealer reply...');|end|else if $playcmd = 'dodiscard' then|begin|    setwindowattr(discardbtn,6,0);|    count := 0;|    $controls := $cardcontrols;|    haveace := false;|    { first determine if a legal discard }|    for i := 0 to 4 do|    begin|        cardcontrol := strtoint(strtoken($controls));|        cardvalue := getwindowattr(cardcontrol,20);|        selected := getwindowattr(cardcontrol,21);|        if selected then count := count + 1;|        if (cardvalue mod 13 = 0) and (not selected) then haveace := true;|    end;|    if  ((count < 4)) or ((count = 4) and haveace) then|    begin|        $controls := $cardcontrols;|        for i := 0 to 4 do|        begin|            cardcontrol := strtoint(strtoken($controls));|            selected := getwindowattr(cardcontrol,21);|            if selected then |                setwindowattr(cardcontrol,20,-1);|        end;|        $controls := $cardcontrols;|        $fidget := '';|        for i := 0 to 4 do|        begin|            cardcontrol := strtoint(strtoken($controls));|            card := getwindowattr(cardcontrol,20);|            if card <> -1 then|                $fidget := $fidget+char(card);|        end;|        $controls := $cardcontrols;|        for i := 0 to 4 do|        begin|            cardcontrol := strtoint(strtoken($controls));|            setwindowattr(cardcontrol, 21,0);|        end;|        $controls := $cardcontrols;|        for i := 1 to strlen($fidget) do|        begin|            cardcontrol := strtoint(strtoken($controls));|            cardvalue := ord(strcopy($fidget,i,1));|            setwindowattr(cardcontrol, 20,cardvalue);|            setwindowattr(cardcontrol, 7,1);|        end;|        while strlen($controls) > 0 do|        begin|            cardcontrol := strtoint(strtoken($controls));|            cardvalue := ord(strcopy($fidget,i,1));|            setwindowattr(cardcontrol,20,-1);|            setwindowattr(cardcontrol,7,0);|        end;|    end|    else|    begin|        command('/beep');|    end;|    |    if $me = $pokerdealer then|        command('/runscript [pirchpoker] ',$me,' discarding ',count)|    else|        command('/verbose notice ',$pokerdealer,' :-pirchpoker- discarding ',count);|    setwindowtext(pokerstatus1,'Discarding...');|    setwindowtext(pokerstatus2,'Waiting for new cards...');|end|else if $playcmd = 'setbet' then|begin|    if $3 = '-0-' then|        setwindowtext(pokerbet,'$0')|    else|    begin|        amount := strtoint($3);|        curbet := strtoint(strcopy(getwindowtext(pokerbet),2,20));|        setwindowtext(pokerbet,'$'+inttostr(curbet+amount));|    end;|end|else if $playcmd = 'ante' then|begin|    setwindowattr(betbtn,6,1);|    setwindowtext(betbtn,'&Ante');|    pokercall := strtoint($3);|{    if $pokerdealer = $me then|        setwindowtext(pokerstatus1,'Waiting on antes...')|    else|        setwindowtext(pokerstatus1,'Dealer is requesting antes...');}|    setwindowtext(pokerstatus2,'Ante for next hand is $'+$3);|end|else if $playcmd = 'won' then|begin|    pot := strtoint(strcopy(getwindowtext(pokerpot),2,20));|    setwindowtext(pokerpot,$0);|    holdings := strtoint(strcopy(getwindowtext(pokerholdings),2,20));|    setwindowtext(pokerholdings,'$'+inttostr(holdings+pot));|end|else if $playcmd = 'dealhand' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[DEALHAND]: ',*1);    |    $pokerdeck := '';  { Create a deck and quickly shuffle it }|    $pokerupdate := 'New hand has been dealt';|    shuffles := 7;|    for i := 0 to 51 do|        $pokerdeck := $pokerdeck+char(ord('A')+i);|    for i := 1 to shuffles do|    begin|        $newdeck := '';|        while strlen($pokerdeck) > 1 do|        begin|            n := random(strlen($pokerdeck)-1)+1;|            $newdeck := $newdeck+strcopy($pokerdeck,n,1);|            strdel($pokerdeck,n,1);|            breathe;|        end;|        strins($pokerdeck,$newdeck,random(strlen($newdeck)-1)+1);|        $pokerdeck := $newdeck;|    end;|    $pokermode := 'bet';|    $pokerin := $pokerplayers;|    $dealplayers := $pokerplayers;|    $deck := $pokerdeck;|    $betmode := 'bet';|    lastbet := 0;|    curplayer := 1;|    |    while strlen($dealplayers) > 0 do|    begin|        $nick := strtoken($dealplayers);|        $hand := strcopy($deck,1,5);|        strdel($deck,1,5);|        if $nick = $me then |            command('/runscript [pirchpoker] ',$me,' ','deal ',$hand)|        else|            command('/verbose notice ',$nick,' :-pirchpoker- ','deal ',$hand);|    end;|    $pokerdeck := $deck;|    $pokermode := 'deal';|    $pokerwaiting := $pokerplayers;|    command('/runscript [pirchpoker] ',$me,' askbet');|end|else if $playcmd = 'askbet' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[POKERASKBET]: ',*1);|    $playmode := $pokermode;|    if $pokermode='ante' then halt;|    if $pokerwaiting = '' then|    begin|        hasraises := false;|        $bets := $pokerbets;|        $names := $pokernames;|        hasraises := false;|        highestbet := -1;|        for i := 0 to 3 do|        begin|            |            namecontrol := strtoint(strtoken($names));|            control := strtoint(strtoken($bets));|            $name := getwindowtext(namecontrol);|            if ($name <> '') and (strpos($name,$pokerin) > 0) then|            begin|                thisbet := strtoint(strcopy(getwindowtext(control),2,20));|                if highestbet = -1 then|                    highestbet := thisbet|                else if thisbet <> highestbet then|                    hasraises := true;|            end;|        end;|        if hasraises then|        begin|            if $pokerdebug <> '0' then writeln(\2,'have entered raise mode');|            $pokerwaiting := $pokerin;|            $betmode := 'raise';|        end|        else|        begin|            if $playmode = 'deal' then|            begin|                lastbet := 0;|                $s := $pokerin;|                count := 0;|                while strlen($s) > 0 do|                begin|                    $s2 := strtoken($s);|                    count := count + 1;|                end;|                if count > 1 then|                begin|                    $pokermode := 'draw';|                    $pokerwaiting := $pokerin;|                    command('/runscript [pirchpoker] ',$me,' askdraw');|                end|                else|                begin|                    writeln('everyone is out except one');|                    $pokermode := 'lastbet';|                    command('/runscript [pirchpoker] ',$me,' askbet');|                end;|                halt;|            end|            else if $playmode = 'lastbet' then|            begin|                command('/runscript [pirchpoker] ',$me,' end');|                halt;|            end;|        end;|    end;|    playersin := 0;|    $s := $pokerin;|    while strlen($s) > 0 do|    begin|        $timmings := strtoken($s);|        playersin := playersin + 1;|    end;|    if playersin = 1 then|    begin|        command('/runscript [pirchpoker] ',$me,' end');|        halt;|    end;|    |    if $betmode ='raise' then|    begin|        found := false;|        highestbet := -1;|        $bets := $pokerbets;|        $names := $pokernames;|        for i := 0 to 3 do|        begin|            namecontrol := strtoint(strtoken($names));|            control := strtoint(strtoken($bets));|            $name := getwindowtext(namecontrol);|            if ($name <> '') and (strpos($name,$pokerin) > 0) then|            begin|                thisbet := strtoint(strcopy(getwindowtext(control),2,20));|                if highestbet = -1 then|                    highestbet := thisbet|                else if thisbet > highestbet then|                    highestbet := thisbet;|            end;|        end;|        while (not found) and strlen($pokerwaiting) > 0 do|        begin|            $player := strtoken($pokerwaiting);|            betcontrol := 0;|            $names := $pokernames;|            controlindex := 0;|            foundname := false;|            while (strlen($names) > 0) and (not foundname) do|            begin|                if getwindowtext(strtoint(strtoken($names))) <> $player then|                    controlindex := controlindex + 1|                else|                    foundname := true;|            end;|            if foundname then|            begin|                $s := $pokerbets;|                for i := 0 to controlindex-1 do|                    $trimmings := strtoken($s);|                thisbet := strtoint(strcopy(getwindowtext(strtoint(strtoken($s))),2,20));|                |                if thisbet < highestbet then|                begin|                    found := true;|                    lastbet := highestbet-thisbet;|                    curplayer := controlindex+1;|                end;|            |            end;|        end;|        if (strlen($players) = 0) and (not found) then|        begin|            if $pokerdebug <> '0' then writeln(\3,'have left raise mode--going back to normal bet mode');|            $pokerwaiting := ''; |            $betmode := 'bet'; |            command('/runscript [pirchpoker] ',$me,' askbet'); |            halt;|        end;|    end|    else|        $player := strtoken($pokerwaiting);|    pot := strtoint(strcopy(getwindowtext(pokerpot),2,20));|    if pot =0 then|        $action := 'open'|    else|        $action := 'bet';|    $msg := strcopy(getwindowtext(pokerpot),2,20)+' '+|        strcopy(getwindowtext(playerbet0),2,20)+' '+|        strcopy(getwindowtext(playerbet1),2,20)+' '+|        strcopy(getwindowtext(playerbet2),2,20)+' '+|        strcopy(getwindowtext(playerbet3),2,20)+' '+|        $pokerupdate;|    $msg := $msg+char(135)+'Waiting for '+$player+' to '+$action;|    command('/runscript [pirchpoker] ',$me,' msg update ',$msg);|    |    if $player = $me then|        command('/runscript [pirchpoker] ',$me,' bet ',lastbet)|    else|        command('/verbose notice ',$player,' :-pirchpoker- bet ',lastbet);|end|else if $playcmd = 'askdraw' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[POKERASKDRAW]: ',*1);|    $playmode := $pokermode;|    if $pokerwaiting = '' then|    begin|        if $playmode = 'draw' then|        begin|            $pokerwaiting := $pokerin;|            $pokermode := 'lastbet';|            curplayer := 1;|            command('/runscript [pirchpoker] ',$me,' askbet');|            halt;|        end;|    end; |    $player := strtoken($pokerwaiting);|    $msgplayers := $player;|    $msg := strcopy(getwindowtext(pokerpot),2,20)+' '+|            strcopy(getwindowtext(playerbet0),2,20)+' '+|            strcopy(getwindowtext(playerbet1),2,20)+' '+|            strcopy(getwindowtext(playerbet2),2,20)+' '+|            strcopy(getwindowtext(playerbet3),2,20)+' '+|            $pokerupdate;|    $msg := $msg+char(135)+'Waiting for '+$player+' to draw';|    command('/runscript [pirchpoker] ',$me,' msg update ',$msg);|    if $curplayer = $me then|        command('/runscript [pirchpoker] ',$me,' draw')|    else|        command('/verbose notice ',$player,' :-pirchpoker- draw');|end|else if $playcmd = 'end' then|begin|    if $pokerdebug <> '0' then writeln(\5,'[POKEREND]: ',*1);|    $winner := '';|    $s := $pokerin;|    count := 0;|    while strlen($s) > 0 do|    begin|        $s2 := strtoken($s);|        count := count + 1;|    end;|    if count = 1 then|        $winner := $pokerin|    else|        $winner := $me;|    if $winner <> '' then|    begin|        $pot := getwindowtext(pokerpot);|        $msg := $winner + ' has won  ('+$pot+')';|        if $pokerdealer = $me then|            command('/runscript [pirchpoker] ',$me,' won ',$pot)|        else|            command('/verbose notice ',$winner,' :-pirchpoker- won ',$pot);|        $msg := '0 0 0 0 0 '+$msg;|        $msg := $msg+char(135)+'Ante is $'+$pokerante+' for the next hand';|        command('/runscript [pirchpoker] ',$me,' msg update ',$msg);|    end;|    setwindowtext(pokerstatus2,'Ante && deal when ready...');|    curplayer := 1;|    $pokerwaiting := $pokerplayers;|    $pokermode := 'ante';|    $pokerin := '-';|    command('/runscript [pirchpoker] ',$me,' msg ante ',pokerante);|end|else|    writeln(char(1),'Error- unknown poker action:',*1);
[PROTECT]:{Pr0tect v1.0 by Rogue2}|$cmd := $1;|$nick := $2;|$chan := $3;|$ini := $pirchpath + 'protect.ini'|if $cmd = 'join' then begin|    $check := iniread($ini,'Join',$nick,'Nope');|    check := strtoint($check);|        if $check = 'Nope' then begin|            iniwrite($ini,'Join',$nick,'1');|            command('/timer ',$nick,' 1 10 /remini ',$ini,' Join ',$nick);|        end;|        if check < 5 then begin|            total := (check + 1);|            iniwrite($ini,'Join',$nick,inttostr(total));|            command('/timer ',$nick,' 1 10 /remini ',$ini,' Join ',$nick);|        end;|        if check = 5 then begin|            command('/kick ',$chan,' ',$nick,' Flood de Join/Part');|            command('/ignore ',$nick);|            command('/timer unig',$nick,' 1 10 /ignore -d ',$nick);|            command('/timer ',$nick,' 1 10 /remini ',$ini,' Join ',$nick);|        end;|        if check > 5 or check = 6 then begin|            command('/ban ',$chan,' ',$nick,' 3');|            command('/kick ',$chan,' ',$nick,' Flood de Join/Part');|            command('/ignore ',$nick);|            command('/timer unig',$nick,' 1 10 /ignore -d ',$nick);|            command('/timer ',$nick,' 1 10 /remini ',$ini,' Join ',$nick);|        end;|end;|if $cmd = 'text' then begin|    $check := iniread($ini,'Text',$nick,'Nope');|    check := strtoint($check);|        if $check = 'Nope' then begin|            iniwrite($ini,'Text',$nick,'1');|            command('/timer ',$nick,' 1 10 /remini ',$ini,' Text ',$nick);|        end;|        if check < 7 then begin|            total := (check + 1);|            iniwrite($ini,'Text',$nick,inttostr(total));|            command('/timer ',$nick,' 1 10 /remini ',$ini,' Text ',$nick);|        end;|        if check = 7 then begin|            command('/kick ',$chan,' ',$nick,' Flood de Texto');|            command('/ignore ',$nick);|            command('/timer unig',$nick,' 1 20 /ignore -d ',$nick);|            command('/timer ',$nick,' 1 10 /remini ',$ini,' Text ',$nick);|        end;|        if check > 7 or check = 8 then begin|            command('/ban ',$chan,' ',$nick,' 3');|            command('/kick ',$chan,' ',$nick,' Flood de Texto');|            command('/ignore ',$nick);|            command('/timer unig',$nick,' 1 20 /ignore -d ',$nick);|            command('/timer ',$nick,' 1 10 /remini ',$ini,' Text ',$nick);|        end;|end;|if $cmd = 'notice' then begin|    $check := iniread($ini,'Notice',$nick,'Nope');|    check := strtoint($check);|        if $check = 'Nope' then begin|            iniwrite($ini,'Notice',$nick,'1');|            command('/timer ',$nick,' 1 20 /remini ',$ini,' Notice ',$nick);|        end;|        if check < 5 then begin|            total := (check + 1);|            iniwrite($ini,'Notice',$nick,inttostr(total));|            command('/timer ',$nick,' 1 20 /remini ',$ini,' Notice ',$nick);|        end;|        if check = 5 then begin|            command('/kick ',$chan,' ',$nick,' Flood de Notice');|            command('/ignore ',$nick);|            command('/timer unig',$nick,' 1 20 /ignore -d ',$nick);|            command('/timer ',$nick,' 1 20 /remini ',$ini,' Notice ',$nick);|        end;|        if check > 5 or check = 6 then begin|            command('/ban ',$chan,' ',$nick,' 3');|            command('/kick ',$chan,' ',$nick,' Flood de Notice');|            command('/ignore ',$nick);|            command('/timer unig',$nick,' 1 20 /ignore -d ',$nick);|            command('/timer ',$nick,' 1 20 /remini ',$ini,' Notice ',$nick);|        end;|end;
[QUITS]:{ detect net-splits.  Feed from event:|ON QUIT:/runscript [quits] $nick $quitmsg|}|$cmdline := *1;|$snet := strlower(StrCopy($server, StrLen($server)-6,7));|$swho := strtoken($cmdline);|$sleft := strtoken($cmdline);|$sright := strtoken($cmdline);|{ check for split }|$slnet := strlower(StrCopy($sleft, StrLen($sleft)-6,7));|$srnet := strlower(StrCopy($sright, StrLen($sright)-6,7));|if ( $slnet = $snet) and ( $srnet = $snet) then begin|    { report net split }|    command('/timer splitdelay 1 6 /display ***2 NET-SPLIT DETECTADO ***3 entre '+$sleft+' y '+$sright);|end;
[RAINBOW1]:{Rainbowwords pil by cpw|usage /runscript [rainbowwords] text}|$target := '';|$source := *1 ;|$text:='startval'|while $text<>'' do|begin|    $text:=strtoken($source);|    color := random(14)+1;|    if color=8 then color:=4;|    if color=9 then color:=3;|    if color=11 then color:=12;|    $color := inttostr(color);|    $target := $target+''+$color+$text+'  ';|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[RAINNICK]:{|RainNick.pil v 1.0 === written by MtnMan 1/29/97 ====|Usage: For addressing your message to someone in a public|channel and preface the message with a rainbow colored nick|surrounded in brackets.|=|Execution:   Highlight the nick you want and type: /runscript [rainnick] <text to follow>|You can also create an alias called RN: /runscript [rainnick] *1|then just select a nick and type /RN <your message to follow>|=IMPORTANT NOTE: there can be problems with this when using % or $ vars or $1 in your text|eg.  %1 %2 $1 $2 .... try it.. you'll see what I mean.  :)|}|$newtext:='';|$msg := *1;|usercount := snickcount($audience);|$usr := '';|if usercount <> 0 then|begin|    $a := snicklist($audience,usercount);|    for i := 1 to strlen($a) do|    begin|        $chartemp:=strcopy($a,i,1);|        randcolor:=random(14)+1;|        if randcolor=8 then randcolor:=6;|        if randcolor=9 then randcolor:=3;|        if randcolor=11 then randcolor:=12;|        $randcolor:=inttostr(randcolor);|        $newtext:=$newtext+''+$randcolor+$chartemp;|    end;|    command('/msg ',$audience,' 12[1',$newtext,'12]:1 ',*1);|end|else|    writeln(char(15),'No nick selected');
[ROOM]:{Room is made by Taz1.  This PIL will allow the operator of a room to have|their own little op center to kick, ban, op, deop, and set channel modes of|the room they are in.  If there are any comments please e-mail me at [e-mail] |or you may find me at #Taz_Palace. Server you may find me on: |Anothernet: neato.ca.us.another.net:7000 To run this script, make a separate alias |called room and put the following command: /runscript [room] start. Also a popup|may be made. In your popup menu put:  room:/runscript [room] start. }|{===================DO NOT CHANGE ANYTHING BELOW THIS LINE===============}|$msg:=*1|$cmd:=strtoken($msg);|if $cmd='start' then|begin|{MAINWINDOW}|room:=createwindow('Room por Taz1',309, 115, 215, 138);|{GROUPING BOX}|modes:=creategadget(room,9,6,6,66,100);|setwindowtext(modes,'MODOS');|{INVITE}|invite:=creategadget(room,4,11,22,26,17);|setwindowtext(invite,'+i');|setevent(invite,1,'/runscript [room] invites');|invite2:=creategadget(room,4,39,22,26,17);|setwindowtext(invite2,'-i');|setevent(invite2,1,'/runscript [room] uninvites');|{PRIVATE}|private:=creategadget(room,4,11,40,26,17);|setwindowtext(private,'+p');|setevent(private,1,'/runscript [room] privates');|private2:=creategadget(room,4,39,40,26,17);|setwindowtext(private2,'-p');|setevent(private2,1,'/runscript [room] unprivates');|{SECRET}|secret:=creategadget(room,4,11,58,26,17);|setwindowtext(secret,'+s');|setevent(secret,1,'/runscript [room] secrets');|secret2:=creategadget(room,4,39,58,26,17);|setwindowtext(secret2,'-s');|setevent(secret2,1,'/runscript [room] unsecrets');|{MODERATED}|moderated:=creategadget(room,4,11,76,26,17);|setwindowtext(moderated,'+m');|setevent(moderated,1,'/runscript [room] moderates');|moderated2:=creategadget(room,4,39,76,26,17);|setwindowtext(moderated2,'-m');|setevent(moderated2,1,'/runscript [room] unmoderates');|{CHANNEL PANEL}|channel:=creategadget(room,10,80,12,90,20);|setwindowtext(channel,$audience);|setwindowattr(channel,2,16776960);|setwindowattr(channel,1,0);|{GROUP BOX2}|opbox:=creategadget(room,9,80,45,90,60);|setwindowtext(opbox,'CENTRO OP');|{OPCENTER BUTTONS}|op:=creategadget(room,4,85,60,40,20);|setwindowtext(op,'OP');|setevent(op,1,'/runscript [room] ops');|deop:=creategadget(room,4,125,60,40,20);|setwindowtext(deop,'DEOP');|setevent(deop,1,'/runscript [room] deops');|kick:=creategadget(room,4,85,80,40,20);|setwindowtext(kick,'KICK');|setevent(kick,1,'/runscript [room] kicks');|ban:=creategadget(room,4,125,80,40,20);|setwindowtext(ban,'BAN');|setevent(ban,1,'/runscript [room] bans');|{MINIMIZE BUTTON}|minimize:=creategadget(room,4,80,32,90,13);|setwindowtext(minimize,'MINIMIZAR');|setevent(minimize,1,'/runscript [room] minimizes');|end|{INVITE EVENTS}|else if $cmd = 'invites' then|begin|command('/mode ',$activewin,' +i ',);|end|else if $cmd = 'uninvites' then|begin|command('/mode ',$activewin,' -i ',);|end|{PRIVATE EVENTS}|else if $cmd = 'privates' then|begin|command('/mode ',$activewin,' +p ',);|end|else if $cmd = 'unprivates' then|begin|command('/mode ',$activewin,' -p ',);|end|{SECRET EVENTS}|else if $cmd = 'secrets' then|begin|command('/mode ',$activewin,' +s ',);|end|else if $cmd = 'unsecrets' then|begin|command('/mode ',$activewin,' -s ',);|end|{MODERATED EVENTS}|else if $cmd = 'moderates' then|begin|command('/mode ',$activewin,' +m ',);|end|else if $cmd = 'unmoderates' then|begin|command('/mode ',$activewin,' -m ',);|end|{OP EVENTS}|else if $cmd = 'ops' then|begin|opie:=0;|$chan := $activewin;|number:=snickcount($chan);|while opie <> number do|begin|opie:=opie+1;|$opies:=snicklist($chan,opie);|command('/mode ',$chan,' +o ',$opies);|end|end|else if $cmd = 'deops' then|begin|opie:=0;|$chan := $activewin;|number:=snickcount($chan);|while opie <> number do|begin|opie:=opie+1;|$opies:=snicklist($chan,opie);|command('/mode ',$chan,' -o ',$opies);|end |end|{KICK EVENTS}|else if $cmd = 'kicks' then|begin|kickie:=0;|$chan := $activewin;|number:=snickcount($chan);|while kickie <> number do|begin|kickie:=kickie+1;|$kickies:=snicklist($chan,kickie);|command('/kick ',$chan,' ',$kickies);|end|end|{BAN EVENTS}|else if $cmd = 'bans' then|begin|banroom:=createwindow('Ban Room',309,115,105,150);|ban1:=creategadget(banroom,4,5,5,90,20);|setwindowtext(ban1,'User');|setevent(ban1,1,'/runscript [room] one');|ban2:=creategadget(banroom,4,5,25,90,20);|setwindowtext(ban2,'IdentPortServer');|setevent(ban2,1,'/runscript [room] two');|ban3:=creategadget(banroom,4,5,45,90,20);|setwindowtext(ban3,'IdentServer');|setevent(ban3,1,'/runscript [room] three');|ban4:=creategadget(banroom,4,5,65,90,20);|setwindowtext(ban4,'PortServer');|setevent(ban4,1,'/runscript [room] four');|ban5:=creategadget(banroom,4,5,85,90,20);|setwindowtext(ban5,'Nick Only');|setevent(ban5,1,'/runscript [room] five');|ban6:=creategadget(banroom,4,5,105,90,20);|setwindowtext(ban6,'Server Only');|setevent(ban6,1,'/runscript [room] six');|end|else if $cmd = 'one' then|begin|banie:=0;|$chan := $activewin;|number:=snickcount($chan);|while banie <> number do|begin|banie:=banie+1;|$banies:=snicklist($chan,banie);|command('/ban ',$chan,' ',$banies,' 0');|end|end|else if $cmd = 'two' then|begin|banie:=0;|$chan := $activewin;|number:=snickcount($chan);|while banie <> number do|begin|banie:=banie+1;|$banies:=snicklist($chan,banie);|command('/ban ',$chan,' ',$banies,' 1');|end|end|else if $cmd = 'three' then|begin|banie:=0;|$chan := $activewin;|number:=snickcount($chan);|while banie <> number do|begin|banie:=banie+1;|$banies:=snicklist($chan,banie);|command('/ban ',$chan,' ',$banies,' 2');|end|end|else if $cmd = 'four' then|begin|banie:=0;|$chan := $activewin;|number:=snickcount($chan);|while banie <> number do|begin|banie:=banie+1;|$banies:=snicklist($chan,banie);|command('/ban ',$chan,' ',$banies,' 3');|end|end|else if $cmd = 'five' then|begin|banie:=0;|$chan := $activewin;|number:=snickcount($chan);|while banie <> number do|begin|banie:=banie+1;|$banies:=snicklist($chan,banie);|command('/ban ',$chan,' ',$banies,' 4');|end|end|else if $cmd = 'six' then|begin|banie:=0;|$chan := $activewin;|number:=snickcount($chan);|while banie <> number do|begin|banie:=banie+1;|$banies:=snicklist($chan,banie);|command('/ban ',$chan,' ',$banies,' 5');|end|end|else if $cmd = 'minimizes' then|begin|setwindowattr(room,7,0);|minimizewindow:=createwindow('Room',309,115,85,40);|maximizewindow:=creategadget(minimizewindow,4,0,0,80,19);|setwindowtext(maximizewindow,'MAXIMIZAR');|setevent(maximizewindow,1,'/runscript [room] maximizes');|end|else if $cmd = 'maximizes' then|begin|setwindowattr(room,7,1);|setwindowattr(minimizewindow,7,0);|end
[SPIL]:{Wampus made this in May 1997|if you have any problems then fix em.|/runscript [spil] go|get rid of the brackets on the browser you use}|{$browser :='NETSCAPE';}|$browser :='IEXPLORE';|$cmd := $1|if $cmd = 'go' then|begin|    {Window Setup}|    SearchWin := createwindow('Buscador por Wampus',1,1,340,165);|    setwindowattr(SearchWin,7,0);|    label1 := creategadget(SearchWin,1,5,8,55,18);|    setwindowtext(label1,'Buscar por:');|    inputfield := creategadget(SearchWin,2,60,5,200,18);|    Submit := creategadget(SearchWin,4,270,6,55,20);|    setwindowtext(Submit,'Buscar');|    setwindowattr(Submit,9,1);|    setevent(Submit,1,'/runscript [spil] getengine');|    label2 := creategadget(SearchWin,1,5,25,55,18);|    kill := creategadget(Searchwin,4,1,1,1,1);|    setwindowattr(kill,10,1);|    setwindowattr(kill,7,1);|    setevent(kill,1,'/runscript [spil] kill');|    setwindowtext(label2,'En:');|    Panel := creategadget(SearchWin,10,0,40,400,110);|    setwindowattr(panel,5,0);|    setwindowattr(panel,1,16777215);|    YahooButtn := creategadget(panel,6,5,10,25,25);|    YahooImgGad := creategadget(panel,14,30,15,74,17);|    YahooImg := loadfromfile(YahooImgGad,$pirchpath+'\yahoo.bmp');|    setwindowattr(YahooButtn,8,1);|    HotBotButtn := creategadget(panel,6,5,40,25,25);|    HotBotImgGad := creategadget(panel,14,30,42,80,20);|    HotBotImg := loadfromfile(HotBotImgGad,$pirchpath+'\hotbot.bmp');|    MagButtn := creategadget(panel,6,5,70,25,25);|    MagImgGad := creategadget(panel,14,30,72,80,20);|    MagImg := loadfromfile(MagImgGad,$pirchpath+'\magellan.bmp');|    ExciteButtn := creategadget(panel,6,115,10,25,25);|    ExciteImgGad := creategadget(panel,14,140,12,80,20);|    ExciteImg := loadfromfile(ExciteImgGad,$pirchpath+'\excite.bmp');|    WCButtn := creategadget(panel,6,115,40,25,25);|    WCImgGad := creategadget(panel,14,140,43,80,20);|    WCImg := loadfromfile(WCImgGad,$pirchpath+'\webcrawl.bmp');|    LycButtn := creategadget(panel,6,115,70,25,25);|    LycImgGad := creategadget(panel,14,140,73,80,20);|    LycImg := loadfromfile(LycImgGad,$pirchpath+'lycos.bmp');|    AVButtn := creategadget(panel,6,220,10,25,25);|    AVImgGad := creategadget(panel,14,245,10,80,20);|    AVImg := loadfromfile(AvImgGad,$pirchpath+'altavis.bmp');|    InfoButtn := creategadget(panel,6,220,40,25,25);|    InfoImgGad := creategadget(panel,14,245,42,80,20);|    InfoImg := loadfromfile(InfoImgGad,$pirchpath+'\infoseek.bmp');|    NGButtn := creategadget(panel,6,220,70,25,25);|    NGImgGad := creategadget(panel,14,245,72,80,20);|    NGImg := loadfromfile(NGImgGad,$pirchpath+'\netguide.bmp');|setwindowattr(SearchWin,7,1);|halt;|end;|if $cmd = 'getengine' then|begin|if getwindowattr(YahooButtn,8) = 1 then search := 1;|if getwindowattr(HotBotButtn,8)  = 1 then search := 2;|if getwindowattr(MagButtn,8) = 1 then search := 3;|if getwindowattr(ExciteButtn,8) = 1 then search := 4;|if getwindowattr(WCButtn,8) = 1 then search := 5;|if getwindowattr(LycButtn,8) = 1 then search := 6;|if getwindowattr(AvButtn,8) = 1 then search := 7;|if getwindowattr(InfoButtn,8) = 1 then search := 8;|if getwindowattr(NGButtn,8) = 1 then search := 9;|$newsearch := '';|$searchstring := getwindowtext(inputfield);|if strlen($searchstring) = 0 then halt;|for i := 1 to strlen($searchstring) do|    begin|        $chartemp:=strcopy($searchstring,i,1);|        if $chartemp=' ' then $chartemp:='+';|        $newsearch:=$newsearch+$chartemp;|        $chartemp:='';|    end;|if search = 1 then command('/ddepoke ',$browser,' WWW_OpenURL http://search.yahoo.com/bin/search?p=',$newsearch);|if search = 2 then command('/ddepoke ',$browser,' WWW_OpenURL http://www.hotbot.com/search.html?SM=MC&MT=',$newsearch);|if search = 3 then command('/ddepoke ',$browser,' WWW_OpenURL http://www.mckinley.com/search.gw?search=',$newsearch,'&c=web&look=magellan');|if search = 4 then command('/ddepoke ',$browser,' WWW_OpenURL http://www.excite.com/search.gw?collection=web&display=html2,lb&search=',$newsearch);|if search = 5 then command('/ddepoke ',$browser,' WWW_OpenURL http://webcrawler.com/cgi-bin/WebQuery?text=',$newsearch,'&src=ms-allinone');|if search = 6 then command('/ddepoke ',$browser,' WWW_OpenURL http://www.lycos.com/cgi-bin/pursuit?cat=lycos&query=',$newsearch);|if search = 7 then command('/ddepoke ',$browser,' WWW_OpenURL http://www.altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=.&q=',$newsearch);|if search = 8 then command('/ddepoke ',$browser,' WWW_OpenURLhttp://guide-p.infoseek.com/Titles?col=WW&sv=M1&lk=noframes&qt=',$newsearch);|if search = 9 then command('/ddepoke ',$browser,' WWW_OpenURL http://www.netguide.com/server-java/NGPage/Search.Results?Search.Query=',$newsearch,'&searchwhat=Search&x=12&y=1');|end;|if $cmd ='kill' then destroywindow(SearchWin);
[STAR1]:{this script should look like this *t*e*s*t* *t*e*s*t*  if you enter /runscript [star] test test}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    if strcopy($source,i,1) <> ' ' then|        $target := $target+'13*';|        $target := $target+'12'+strcopy($source,i,1);|    if strcopy($source,i,1) = ' ' then|         $target := $target+'13*'+strcopy($source,i,1)+' ';|    if strcopy($source,i+1,1) <> ' ' then|        $target := $target+ '13*';|        $target := $target+'4'+strcopy($source,i+1,1);|    if strcopy($source,i+1,1) = ' ' then|        $target := $target+'13*'+strcopy($source,i+1,1)+' ';|    i:=i+2;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[STRIPES]:{usage: /runscript [Stripes] <message>}|$target := '';|$source := *1|$target :=' 0,15 0,14 0,13 0,12 0,11 0,10 0,9 0,8 0,7 0,6 0,5 0,4 0,3 0,2 0,1 '+$source+'0,1 0,2 0,3 0,4 0,5 0,6 0,7 0,8 0,9 0,10 0,11 0,12 0,13 0,14 0,15 ';|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[STRYPE4]:{stryperword_r pil by cpw|usage /runscript [strype4] text}|$target := '';|$source := *1 ;|$text:='startval'|    b := random(7);    |        if b = 0 then bcolor := 0;|        if b = 1 then bcolor := 4;|         if b = 2 then bcolor := 8;|        if b = 3 then bcolor := 9;|        if b = 4 then bcolor := 11;|        if b = 5 then bcolor := 12;|        if b = 6 then bcolor := 13|        if b = 7 then bcolor := 15;|    $bcolor := inttostr(bcolor);|    f := random(7);|        if f = 0 then fcolor := 1;|        if f = 1 then fcolor := 2;|        if f = 2 then fcolor := 3;|        if f = 3 then fcolor := 5;|        if f = 4 then fcolor := 6;|        if f = 5 then fcolor := 7;|        if f = 6 then fcolor := 10;|        if f = 7 then fcolor := 14;|    $fcolor := inttostr(fcolor);|    while $text<>'' do|    begin|    $text:=strtoken($source);|    $target := $target+''+$fcolor+','+$bcolor+' '+$text+'  ';|    $text:=strtoken($source);|    $target := $target+''+$bcolor+','+$fcolor+' '+$text+'  ';|    end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|
[SYMBOL2]:{Symbol Text Translator v1.0 by Rogue2|------------------------------------------------------|Modified by Light Claw on 4-13-97|I modified this with the help of MtnMan on undernet.|Useful ONLY with Pirch 0.90a+!!|.|This is a simple but useful script that will|decode that annoying unreadable symbol|font in Pirch 0.90a. (CTRL+S).|.|You'll need to add the following events:|.|ON TEXT:**:*:/runscript [symbol2] $nick *1|ON NOTICE:**:*:/runscript [symbol2] $nick *1|}|$whosaidit := $1;|$text := *2;|len := strlen($text)|for i := 1 to len do |    begin |    index:=strpos('',$text);|    strdel($text,index,1);|    end;|    |    command('/display [Symbol Translation] <',$whosaidit,'> ',$text);
[TOOLBAR]:$cmd := $1;|{-------------------}|if strupper($cmd) = 'START' then|begin |$ONtime := $time;|OTime := 0;|Secs := 0;|Minutes := 0;|Hours := 0;|$Stime := '00:00:00';|Ontime := unixtime;|Toolwindow := createwindow('Barra de Informaci≤n v.1 (CaeScript)',2,16,270,60);|setevent(Toolwindow,1,'/runscript [toolbar] cleanup');|Timer := creategadget(Toolwindow,2,2,2,50,20);|Label := creategadget(Toolwindow,1,2,24,40,20);|setwindowtext(Label,'Conectado');|setwindowattr(Timer,1,0);|setwindowattr(Timer,2,64000);|setwindowtext(Timer,$Stime);|Label1 := creategadget(Toolwindow,1,54,24,40,20);|setwindowtext(Label1,' Hora Entrada');|SignON := creategadget(Toolwindow,2,53,2,70,20);|setwindowattr(SignON,1,0);|setwindowattr(SignON,2,64000);|setwindowtext(SignON,$ONtime);|    Label2 := creategadget(Toolwindow,1,130,24,48,20);|    setwindowtext(Label2,'Hora Actual');|    Curent := creategadget(Toolwindow,2,123,2,70,20);|    setwindowattr(Curent,1,0);|    setwindowattr(Curent,2,64000);|    setwindowtext(Curent,$time);|Label3 := creategadget(Toolwindow,1,210,24,20,20);|setwindowtext(Label3,'Fecha');|tDate := creategadget(Toolwindow,2,193,2,70,20);|setwindowattr(tDate,1,0);|setwindowattr(tDate,2,64000);|setwindowtext(tDate,$date);|command('/timer Ttimer -1 1 /runscript [toolbar] update');|command('/timer Ttimer -1 1 /runscript [toolbar] update');|end;|{--------Handle the updating-------}|if strupper($cmd) = 'UPDATE' then|begin|$Stime := '';|Secs := Secs +1;|        if Secs = 60 then|        begin|        Minutes := Minutes + 1;|        Secs := 0;|        end;|        if Minutes = 60 then |        begin|        Hours := Hours + 1;|        Minutes := 0;|        end;|if Hours < 10 then |$Stime := $Stime + '0' + inttostr(Hours) + ':'|else|$Stime := $Stime + inttostr(Hours) + ':';|if Minutes < 10 then|$Stime := $Stime + '0' + inttostr(Minutes) + ':'|else |$Stime := $Stime + inttostr(Minutes) + ':';|if Secs < 10 then|$Stime := $Stime + '0' + inttostr(Secs)|else|$Stime := $Stime + inttostr(Secs);|setwindowtext(Timer,$Stime);|setwindowtext(Curent,$time);|end;|{--------Cleanup-------}|if strupper($cmd) = 'CLEANUP' then|begin|command('/timer Ttimer die');|end;
[ULIST]:{Usage: Add the following alias called UWHO|-----------------------------------------|/runscript [ulist] create|-----------------------------------------|then type /ulist|}|$cmd := $1;|if $cmd = 'create' then|begin|    if winid <> 0 then |    begin|        writeln(char(15),'ULIST window already open');|        writeln('-');|        halt;|    end;|    winid := createwindow('Undernet Channel Lister',50,90,279,150);|    setevent(winid,1,'/runscript [ulist] close');|    control := creategadget(winid,1,5,8,50,18);|    $s := 'Minimum Maximum';|    for i := 0 to 1 do|    begin|        $label := strtoken($s);|        control := creategadget(winid, 1, 162 + (i * 50), 10, 50, 20);|        setwindowtext(control,$label);|    end;|    $editcontrols := '';|    $s := 'Channelámemberácount ChanneláAgeá(minutes) ChanneláTopicáAgeá(minutes)';|    for i := 0 to 2 do|    begin|        $label := strtoken($s);|        control := creategadget(winid,1,10,33+(20 * i),80,21);|        setwindowtext(control,$label);|        for k := 0 to 1 do|        begin|            control := creategadget(winid, 2, 160 + (k * 50), 30 + (20 * i) ,50, 20);|            $editcontrols := $editcontrols + inttostr(control)+' ';|        end;|    end;|    statuspanel := creategadget(winid,10,0,100,300,25);|    setwindowattr(statuspanel,3,2);|    $s := 'O&K C&lear &Cancel';|    $commands := 'ok clear cancel';|    w := 90;|    for i := 0 to 2 do|    begin|        $label := strtoken($s);|        control := creategadget(statuspanel, 4, 1+(i * w-2), 1, w, 20);|        setwindowtext(control,$label);|        setevent(control,1,'/runscript [ulist] '+strtoken($commands));|    end;|end|else if $cmd = 'ok' then|begin|    $s := '> < C> C< T> T<';|    $command := '';|    $controls := $editcontrols;|    for i := 1 to 6 do|    begin|        $param := strtoken($s);|        $entry := getwindowtext(strtoint(strtoken($controls)));|        if $entry <> '' then|        begin|            if strlen($command) > 0 then |                $command := $command+',';|            $command := $command + $param + $entry;|        end;|    end;|    if $command = '' then $command := '>1';|    command('/verbose LIST ',$command);|    if winid <> 0 then destroywindow(winid);|end|else if $cmd = 'cancel' then|begin|    if winid <> 0 then destroywindow(winid);|end|else if $cmd = 'close' then|begin|    winid := 0;|    $editcontrols := '';|end|else if $cmd = 'clear' then|begin|    $controls := $editcontrols;|    while strlen($controls) > 0 do|        setwindowtext(strtoint(strtoken($controls)),'');|end;
[UNCONTRARY]:{Contrary pil by Corvonero|usage /runscript [uncontrary] text|or better put this event in your events list|ON TEXT:--->Inverse*:#:/runscript [uncontrary] *1|it will translate for U only any text written with |contrary.pil made by me.}|$target := '';|$source := *1 ;|a := strlen($source)|b := strlen($source)|for i := 1 to a-11 do|begin|    $target := $target+strcopy($source,b,1);|    b :=b-1|end;|command('/display --->CoRrEcT is ',$target);
[VOTE]:{Vote v.1 by:eLiXiR (Thur Sept 5, 1996[08:03:45 AM]}|{USAGE: /runscript [vote] setup|Add these aliases.. |Noresult: /msg $1 Well I guess that topic wasn't very popular... =)|    /display > $1 Well I guess that topic wasn't very popular... =)|Yesresult: /msg $1 Well I guess I piked a geed topic.. |    /display > $1 Well I guess I piked a geed topic.. |Tieresult: /me $1 It's a tie.. wow.. should I reset the vote?|    /display > $1 It's a tie.. wow.. should I reset the vote?|NoVotes: /msg $1 Hmm.. no Votes.. I guess this Channel doesn't like these Pils.. |    /display > $1 Hmm.. no Votes.. I guess this Channel doesn't like these Pils.. |-------------------------------------------------|Add these popups (replace the level with your own)|Vote v.1|.VoteON:/enable 100 |/runscript [vote] setup|.VoteOFF:/disable 100|-------------------------------------------------|Add these aliases in the event level that is enabled by the popup above|ON TEXT:yes*:#:/runscript [vote] yesvote|ON TEXT:no*:#:/runscript [vote] novote|-------------------------------------------------|USE:|-StartButton: Starts the vote with the topic you typed in the topic box and the channel you typed in the channel box.|-before you start it you must enter a time in the timer.. this is the format Hours : Minutes : Seconds.|-StopButton: Stops the vote. and displays the numer voted. |-Yes/No Boxes: these boxes diplay the current vote count for that topic. |Use Aliases: You can customize these to your liking.. Send files.. sounds.. ect.. |------------eLiXiR--aka--Utopia43---------------}|$cmd := $1;|{----Start the Vote---}|if strupper($cmd) = 'SETUP' then|begin |$channel := '';|YesV := 0;|NoV := 0;|HoursV := 0;|MinutesV := 0;|SesondsV  := 0;|$STimeV := '--:--:-- --';|$VTbarV := '';|{--VoteWin--}|    VoteWin := createwindow('Votacion de CaeScript ',200,200,350,90); {200,200,350,90}|    setevent(VoteWin,1,'/runscript [vote] end');|{-VoteText-}|    VoteText := creategadget(VoteWin,2,1,1,343,17);|    setwindowattr(VoteText,1,0); |    setwindowattr(VoteText,2,65280);|    setwindowtext(VoteText,'El Topico de la Votacion va aca');|{-Yes-}|    YesLabel := creategadget(VoteWin,1,1,29,30,17); |    setwindowtext(YesLabel,'Favor:');|    YesBox := creategadget(VoteWin,2,25,25,25,17);      |    setwindowattr(YesBox,1,0); |    setwindowattr(YesBox,2,255);|    setwindowtext(YesBox,inttostr(YesV));|{-No-}|    NoLabel := creategadget(VoteWin,1,1,49,30,17); |    setwindowtext(NoLabel,'Contra:');|    NoBox := creategadget(VoteWin,2,25,45,25,17);      |    setwindowattr(NoBox,1,0); |    setwindowattr(NoBox,2,255);|    setwindowtext(NoBox,inttostr(NoV));|{-thingy-}|    Thingy := creategadget(VoteWin,10,50,21,4,48);|{-Hours-}  |    Thours := creategadget(VoteWin,2,56,25,20,17); setwindowattr(Thours,1,0); setwindowattr(Thours,2,65280); |    setwindowtext(Thours,'0' + inttostr(HoursV));|Sep1 := creategadget(VoteWin,1,79,25,3,17); setwindowtext(Sep1,':');    |    Tminutes := creategadget(VoteWin,2,85,25,20,17); setwindowattr(Tminutes,1,0); setwindowattr(Tminutes,2,65280); |    setwindowtext(Tminutes,'0' + inttostr(MinutesV));|Sep2 := creategadget(VoteWin,1,106,25,3,17); setwindowtext(Sep2,':');    |    Tseconds := creategadget(VoteWin,2,113,25,20,17); setwindowattr(Tseconds,1,0); setwindowattr(Tseconds,2,65280); |    setwindowtext(Tseconds,'0' + inttostr(SecondsV));|{-StartButton-} |    StartButton := creategadget(VoteWin,4,56,47,35,15); setwindowtext(StartButton,'Inicio');|    setevent(StartButton,1,'/runscript [vote] start');|{-StopButton-} |    StopButton := creategadget(VoteWin,4,98,47,35,15); setwindowtext(StopButton,'Parar');|    setevent(StopButton,1,'/runscript [vote] end');|{-thingy2-}|    Thingy2 := creategadget(VoteWin,10,137,21,4,48);|{-CounterBar-}|    CounterBar := creategadget(VoteWin,10,142,25,202,17); setwindowattr(CounterBar,1,0); |    ColorBar := creategadget(CounterBar,1,0,0,197,12); setwindowattr(ColorBar,1,65280); setwindowtext(ColorBar,'');|{-ChannelBar-}|    ChanLabel := creategadget(VoteWin,1,142,49,30,15); setwindowtext(ChanLabel,'Canal');|    ChannelBar := creategadget(VoteWin,2,185,45,158,20); setwindowattr(ChannelBar,1,0); setwindowattr(ChannelBar,2,65280);  |end;|{-Start-}|if strupper($cmd) = 'START' then|begin|YesV := 0;|NoV := 0;|setwindowtext(NoBox,inttostr(NoV));|setwindowtext(YesBox,inttostr(YesV));|{-Grab the values in the time boxes-}|    HoursV := strtoint(getwindowtext(Thours));|    MinutesV := strtoint(getwindowtext(Tminutes));|    SecondsV := strtoint(getwindowtext(Tseconds));|    $channel := getwindowtext(ChannelBar);|{-Grab the Vote Text-}|    $Vote := getwindowtext(VoteText);|{-Tell the channel about the vote-}|    command('/msg ',$channel,' Una votacion ha comenzado ',\3,'TOPICO: ',\3,\22,$Vote,\22,' Teclee ',\31,'favor',\31,' o ',\31,' contra ',\31,' para votar sobre el topico.');|    command('/msg ',$channel,' Usted tiene ',\22,HoursV,\22,' Horas ',\22,MinutesV,\22,' Minutos y ',\22,SecondsV,\22,' segundos para votar');|    command('/display > ',$channel,' Una votacion ha comenzado ',\3,'TOPICO: ',\3,\22,$Vote,\22,' Teclee ',\31,'favor',\31,' o ',\31,' contra ',\31,' para votar sobre el topico.');|    command('/display > ',$channel,' Usted tiene ',\22,HoursV,\22,' Horas ',\22,MinutesV,\22,' Minutos y ',\22,SecondsV,\22,' segundos para votar');|{-Run the timer-}|    command('/timer VoteTimer -1 1 /runscript [vote] timer');|end;|{-Take the votes-}|{-YesVote-}|if strupper($cmd) = 'YESVOTE' then|begin|YesV := YesV + 1;|    setwindowtext(YesBox,inttostr(YesV));|end;|{-NoVote-}|if strupper($cmd) = 'NOVOTE' then|begin|NoV := NoV + 1;|    setwindowtext(NoBox,inttostr(NoV));|end;|{-Resident timer routine-}|if strupper($cmd) = 'TIMER' then|begin|if SecondsV > 0 then SecondsV := SecondsV - 1;|{---}|if (SecondsV = 0) AND (MinutesV > 0) then |begin|        MinutesV := MinutesV - 1;|        SecondsV := 59;|end;|if (MinutesV = 0) AND (HoursV > 0) then |begin|        HoursV := HoursV - 1;|        MinutesV := 59;|end;|{---}|$vsecs := inttostr(SecondsV);|$vmin := inttostr(MinutesV);|$vhour := inttostr(HoursV);|if SecondsV < 10 then $vsecs := '0' + $vsecs;|if MinutesV < 10 then $vmin := '0' + $vmin;|if HoursV < 10 then $vhour := '0' + $vhour;|{-Put it the boxes-}|    if HoursV > 0 then setwindowtext(Thours,$vhour);|    if MinutesV > 0 then setwindowtext(Tminutes,$vmin);|setwindowtext(Tseconds,$vsecs);|{-Check the time-}|if (HoursV = 0) and (SecondsV = 0) and (SecondsV = 0) then|begin |command('/runscript [vote] end');|halt;|end;|end;|{-End of Voting-}|if strupper($cmd) = 'END' then |begin |command('/timer VoteTimer die');|$channel := getwindowtext(ChannelBar);|YN := YesV + NoV;|command('/timer VoteTimer die');|command('/msg ',$channel,'  ', YN ,' personas votaron en ',\22,$Vote,\22,' Favor[', YesV ,'] Contra[', NoV ,']');|command('/display > ',$channel,'  ', YN ,' personas votaron en ',\22,$Vote,\22,' Favor[', YesV ,'] Contra[', NoV ,']');|if YesV > NoV then command('/yesresult ',$channel);|if YesV < NoV then command('/noresult ',$channel);|if (YesV = NoV) and (YesV <> 0) then command('/tieresult ',$channel);|if (YesV = 0) and (NoV = 0) then command('/novotes ',$channel);|end;
[WAVE1]:{wave1 pil by cpw}|{Based on Neon.pil - now you can catch the wave :) }|{usage: /runscript [wave1] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'0,0'+strcopy($source,i,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+1,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+2,1);|    $target := $target+'0,0'+strcopy($source,i+3,1);|    $target := $target+'0,0'+strcopy($source,i+4,1);|    $target := $target+'4,0'+strcopy($source,i+5,1)+' ';|    $target := $target+'4,0'+strcopy($source,i+6,1)+' ';|    $target := $target+'4,0'+strcopy($source,i+7,1);|    $target := $target+'0,0'+strcopy($source,i+8,1);|    $target := $target+'0,0'+strcopy($source,i+9,1)+'';|    i:=i+10;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'0,0'+strcopy($source,i,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+1,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+2,1);|    $target := $target+'0,0'+strcopy($source,i+3,1);|    $target := $target+'4,0'+strcopy($source,i+4,1);|    $target := $target+'0,0'+strcopy($source,i+5,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+6,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+7,1);|    $target := $target+'4,0'+strcopy($source,i+8,1);|    $target := $target+'0,0'+strcopy($source,i+9,1)+'';|    i:=i+10;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'0,0'+strcopy($source,i,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+1,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+2,1);|    $target := $target+'4,0'+strcopy($source,i+3,1);|    $target := $target+'0,0'+strcopy($source,i+4,1);|    $target := $target+'0,0'+strcopy($source,i+5,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+6,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+7,1);|    $target := $target+'0,0'+strcopy($source,i+8,1);|    $target := $target+'4,0'+strcopy($source,i+9,1)+'';|    i:=i+10;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'4,0'+strcopy($source,i,1)+'á';|    $target := $target+'4,0'+strcopy($source,i+1,1)+' ';|    $target := $target+'4,0'+strcopy($source,i+2,1);|    $target := $target+'0,0'+strcopy($source,i+3,1);|    $target := $target+'0,0'+strcopy($source,i+4,1);|    $target := $target+'0,0'+strcopy($source,i+5,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+6,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+7,1);|    $target := $target+'0,0'+strcopy($source,i+8,1);|    $target := $target+'0,0'+strcopy($source,i+9,1)+'';|    i:=i+10;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[WAVE2A]:{wave2 pil by cpw}|{Based on Neon.pil - now you can catch the wave :) }|{usage: /runscript [wave2] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'0,0'+strcopy($source,i,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+1,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+2,1);|    $target := $target+'0,0'+strcopy($source,i+3,1);|    $target := $target+'12,0'+strcopy($source,i+4,1)+'á';|    $target := $target+'12,0'+strcopy($source,i+5,1)+'á';|    $target := $target+'12,0'+strcopy($source,i+6,1);|    $target := $target+'0,0'+strcopy($source,i+7,1)+'';|    i:=i+8;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'0,0'+strcopy($source,i,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+1,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+2,1);|    $target := $target+'12,0'+strcopy($source,i+3,1);|    $target := $target+'0,0'+strcopy($source,i+4,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+5,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+6,1);|    $target := $target+'12,0'+strcopy($source,i+7,1)+'';|    i:=i+8;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'12,0'+strcopy($source,i,1)+'á';|    $target := $target+'12,0'+strcopy($source,i+1,1)+'á';|    $target := $target+'12,0'+strcopy($source,i+2,1);|    $target := $target+'0,0'+strcopy($source,i+3,1);|    $target := $target+'0,0'+strcopy($source,i+4,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+5,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+6,1);|    $target := $target+'0,0'+strcopy($source,i+7,1)+'';|    i:=i+8;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[WAVE3A]:{wave3 pil by cpw}|{Based on Neon.pil - now you can catch the wave :) }|{usage: /runscript [wave3] <message>}|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'1,0'+strcopy($source,i,1)+'á';|    $target := $target+'1,0'+strcopy($source,i+1,1);|    $target := $target+'0,0'+strcopy($source,i+2,1)+' ';|    $target := $target+'0,0'+strcopy($source,i+3,1)+'';|    i:=i+4;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);|$target := '';|$source := *1 ;|i:=1;|while i<(strlen($source)+1) do|begin|    $target := $target+'0,0'+strcopy($source,i,1)+'á';|    $target := $target+'0,0'+strcopy($source,i+1,1);|    $target := $target+'1,0'+strcopy($source,i+2,1)+' ';|    $target := $target+'1,0'+strcopy($source,i+3,1)+'';|    i:=i+4;|end;|command('/verbose PRIVMSG ',$activewin,' :',$target);|command('/display > ',$activewin,' ','<',$me,'> ','',$target);
[WEEEEE]:{Weeeee pil by augie.  I can be found on neato.ca.us.another.net #shangrila |Based on wave pils by cpw. Usage: /runscript [weeeee] <size> <forecolor> <backcolor. <message>}|{example: /runscript [weeeee] 4  13 1 Weeee..catch the roller coaster }|{Popup usage: Weeeee:/runscript [weeeee] $$?="How big is this wave?" $$?="Enter forecolor" $$?="Enter backcolor" $$?="Enter Message" }|$m := '';|$size := $1|$fc := $2;|$bc := $3|$s := *4 ;|size := strtoint($size)|fc := strtoint($fc);|bc := strtoint($bc);|cs := size * 2|i:=1;|{ --------------------------------------------- }|if size = 2 then|begin;|    $m := '';|    $s := *4 ;|    i:=1;|    { Line One }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+2,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+3,1)+'';|        i:=i+cs;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Two }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$2+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$2+','+$3+strcopy($s,i+1,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1)+'';|        i:=i+cs;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|end;|{ --------------------------------------------- }|if size = 3 then|begin;|    $m := '';|    $s := *4 ;|    i:=1;|    { Line One }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+4,1)+'á';|        $m := $m+''+$2+','+$3+strcopy($s,i+5,1)+'á';|        $m := $m+''+$2+','+$3+strcopy($s,i+6,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1)+'';|        i:=i+8;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Two }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+7,1)+'';|        i:=i+8;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Three }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$2+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$2+','+$3+strcopy($s,i+1,1)+'á';|        $m := $m+''+$2+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1)+'';|        i:=i+8;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|end;|{ --------------------------------------------- }|if size = 4 then|begin|    $m := '';|    $s := *4 ;|    i:=1;|    { Line One }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1)+'';|        i:=i+10;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Two }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1)+'';|        i:=i+10;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Three }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+9,1)+'';|        i:=i+10;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Four }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$2+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$2+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1)+'';|        i:=i+10;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|end|{ --------------------------------------------- }|if size = 5 then|begin|    $m := '';|    $s := *4 ;|    i:=1;|    { Line One }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1)+'';|        i:=i+12;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Two }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1)+'';|        i:=i+12;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Three }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1)+'';|        i:=i+12;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Four }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+11,1)+'';|        i:=i+12;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Five }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$2+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$2+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1)+'';|        i:=i+12;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|end|{ --------------------------------------------- }|if size = 6 then|begin|    $m := '';|    $s := *4 ;|    i:=1;|    { Line One }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+12,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+13,1)+'';|        i:=i+14;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Two }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+12,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+13,1)+'';|        i:=i+14;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Three }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+11,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+12,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+13,1)+'';|        i:=i+14;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Four }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+12,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+13,1)+'';|        i:=i+14;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Five }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$3+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$3+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+12,1);|        $m := $m+''+$2+','+$3+strcopy($s,i+13,1)+'';|        i:=i+14;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|    $m := '';|    $s := *4 ;|    i:=1;|    { Line Six }|    while i<(strlen($s)+1) do|    begin|        $m := $m+''+$2+','+$3+strcopy($s,i,1)+'á';|        $m := $m+''+$2+','+$3+strcopy($s,i+1,1)+' ';|        $m := $m+''+$2+','+$3+strcopy($s,i+2,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+3,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+4,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+5,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+6,1)+' ';|        $m := $m+''+$3+','+$3+strcopy($s,i+7,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+8,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+9,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+10,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+11,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+12,1);|        $m := $m+''+$3+','+$3+strcopy($s,i+13,1)+'';|        i:=i+14;|    end;|    command('/verbose PRIVMSG ',$activewin,' :',$m);|    command('/display > ',$activewin,' ','<',$me,'> ','',$m);|end
[WHOIS2]:{ Written by markv (Mark Van Camp)|This script modifies the output of a /whois command|and pipes it to the current window (not including DCC Chat)|make the following an alias in your aliases:|/callback 301 [WHOIS2]|/callback 307 [WHOIS2]|/callback 308 [WHOIS2]|/callback 309 [WHOIS2]|/callback 310 [WHOIS2]|/callback 311 [WHOIS2]|/callback 312 [WHOIS2]|/callback 313 [WHOIS2]|/callback 317 [WHOIS2]|/callback 318 [WHOIS2]|/callback 319 [WHOIS2]|/callback 401 [WHOIS2]|/set debugwin #|/whois *1|}|$msg := *2;|$rplcode := strtoken($msg);|$x := strtoken($msg);|$nick := strtoken($msg);|code := strtoint($rplcode);|if code = 301 then|    begin|writeln(\17,$nick,' ',$msg);|    end|if code = 307 then|    begin|writeln(\16,$nick,' ',$msg);|    end|if code = 308 then|    begin|writeln(\16,$nick,' ',$msg);|    end|if code = 309 then|    begin|writeln(\16,$nick,' ',$msg);|    end|if code = 310 then|    begin|writeln(\16,$nick,' ',$msg);|    end|else if code = 311 then|    begin|$id := strtoken($msg);|$ps := strtoken($msg);|$x := strtoken($msg);|$name := $msg;|writeln(\16,$nick,' ',$id,'@',$ps,' ',$name);|    end|else if code = 312 then|    begin|$serv := strtoken($msg);|$dns := strtoken($msg);|writeln(\16,$nick,' ',$serv,' ',$dns,' ',$msg);|    end|else if code = 313 then|begin|writeln(\18,$nick,' ',$msg);|    end|else if code = 317 then|    begin|$idl := strtoken($msg);|$tm := strtoken($msg);|writeln(\16,$nick,' ',$idl,' seconds idle');|    end|else if code = 318 then|begin|writeln(\16,$nick,' ',$msg);|command('/callback -d 301');|command('/callback -d 307');|command('/callback -d 308');|command('/callback -d 309');|command('/callback -d 311');|command('/callback -d 312');|command('/callback -d 313');|command('/callback -d 317');|command('/callback -d 318');|command('/callback -d 319');|command('/callback -d 401');|command('/set debugwin');|halt;|end|else if code = 319 then|    begin|writeln(\16,$nick,' ',$msg);|    end|else if code = 401 then|begin|writeln(\15,$nick,' ',$msg);|end