[aliases] n0=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx n1=; 1.- Nombre: OrioN n2=; 2.- Versiķn: v5.9 n3=; 3.- Autor: Javier Fernández Rivera n4=; 4.- Web: http://www.ircorion.net n5=; 5.- Mail: script@ircorion.net n11=;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx n12= n13=;massivos=============================================================== n14=massop { n15= set %nicksop n16= set %nē.nick 0 n17= set %conter 0 n18= %mass# = %winactive n19= :ini n20= if (%conter == 3) { mode %mass# +ooo %nicksop | set %conter 0 | unset %nicksop | goto ini } n21= else { n22= inc %nē.nick n23= if ($nick(%mass#,%nē.nick) == $null) { mode %mass# +ooo %nicksop | unset %nicksop %nē.nick %conter | halt } n24= else { n25= if ($nick(%mass#,%nē.nick) !isop $chan) { inc %conter | %nicksop = %nicksop $nick(%mass#,%nē.nick) | goto ini } n26= else { goto ini } n27= } n28= } n29=} n30=massdeop { n31= set %nicksop n32= set %nē.nick 0 n33= set %conter 0 n34= %mass# = %winactive n35= echo -s %mass# n36= :ini n37= if (%conter == 3) { mode %mass# -ooo %nicksop | set %conter 0 | unset %nicksop | goto ini } n38= else { n39= inc %nē.nick n40= if ($nick(%mass#,%nē.nick) == $null) { mode %mass# -ooo %nicksop | unset %nicksop %nē.nick %conter | halt } n41= else { n42= if ($nick(%mass#,%nē.nick) isop $chan) && ($nick(%mass#,%nē.nick) != $me) { inc %conter | %nicksop = %nicksop $nick(%mass#,%nē.nick) | goto ini } n43= else { goto ini } n44= } n45= } n46=} n47=massvoz { n48= set %nicksdeop n49= set %nē.nick 0 n50= set %conter 0 n51= set %mass# %winactive n52= :ini n53= if (%conter == 3) { mode %mass# +vvv %nicksdeop | set %conter 0 | unset %nicksdeop | goto ini } n54= else { n55= inc %nē.nick n56= if ($nick(%mass#,%nē.nick) == $null) { mode %mass# +vvv %nicksdeop | unset %nicksdeop %nē.nick %conter | halt } n57= else { n58= if ($nick(%mass#,%nē.nick) !isop %winactive) { inc %conter | %nicksdeop = %nicksdeop $nick(%mass#,%nē.nick) | goto ini } n59= else { goto ini } n60= } n61= } n62=} n63=massdevoz { n64= set %nē.nick 0 n65= set %conter 0 n66= set %mass# %winactive n67= :ini n68= if (%conter == 3) { mode %mass# -vvv %nicksdv | set %conter 0 | unset %nicksdv | goto ini } n69= else { n70= inc %nē.nick n71= if ($vnick(%mass#,%nē.nick) == $null) { mode %mass# -vvv %nicksdv | unset %nicksdv %nē.nick %conter } n72= else { n73= if ($vnick(%mass#,%nē.nick) isvo %mass#) { n74= if ($vnick(%mass#,%nē.nick) == $me) { goto ini } n75= else { n76= inc %conter | %nicksdv = %nicksdv $vnick(%mass#,%nē.nick) | goto ini } n77= else { goto ini } n78= } n79= } n80= } n81=} n82=masskick { n83= set %nickskick n84= set %nē.nick 0 n85= set %conter 0 n86= set %mass# %winactive n87= :ini n88= if (%conter == 1) { kick %mass# %nickskick | set %conter 0 | unset %nickskick | goto ini } n89= else { n90= inc %nē.nick n91= if ($nick(%mass#,%nē.nick) == $null) { unset %nickskick %nē.nick %conter | halt } n92= else { n93= if ($nick(%mass#,%nē.nick) != $me) { inc %conter | %nickskick = %nickskick $nick(%mass#,%nē.nick) | goto ini } n94= else { goto ini } n95= } n96= } n97=} n98=massban { n99= set %nickskick n100= set %nē.nick 0 n101= set %conter 0 n102= set %mass# %winactive n103= :ini n104= if (%conter == 1) { mode %mass# +bbb $address(%nickskick,2) | set %conter 0 | unset %nickskick | goto ini } n105= else { n106= inc %nē.nick n107= if ($nick(%mass#,%nē.nick) == $null) { unset %nickskick %nē.nick %conter | halt } n108= else { n109= if ($nick(%mass#,%nē.nick) != $me) { inc %conter | %nickskick = %nickskick $nick(%mass#,%nē.nick) | goto ini } n110= else { goto ini } n111= } n112= } n113=} n114=massdccsend { n115= set %nicksmsg n116= set %nē.nick 0 n117= set %conter 0 n118= set %mass# %winactive n119= set %msg $$?="Mensaje a mandar?" n120= :ini n121= inc %nē.nick n122= if ($nick(%mass#,%nē.nick) == $null) { n123= echo -s 8,2 Lanzado Mensaje massivo 0,4 %winactive 9,99 n124= unset %nicksmsg %nē.nick %conter | halt n125= } n126= else { n127= if ($nick(%mass#,%nē.nick) != $me) { .msg $nick(%mass#,%nē.nick) %msg } n128= goto ini n129= } n130=} n131=massmsg { n132= set %nicksmsg n133= set %nē.nick 0 n134= set %conter 0 n135= set %mass# %winactive n136= set %msg $$?="Mensaje a mandar?" n137= :ini n138= inc %nē.nick n139= if ($nick(%mass#,%nē.nick) == $null) { n140= echo -s 8,2 Lanzado Mensaje massivo 0,4 %winactive 9,99 n141= unset %nicksmsg %nē.nick %conter | halt n142= } n143= else { n144= if ($nick(%mass#,%nē.nick) != $me) { .timer 1 %nē.nick .msg $nick(%mass#,%nē.nick) %msg } n145= goto ini n146= } n147=} n148=massbankick { n149= .timermassb 1 1 massban n150= .timermassk 1 3 masskick n151=} n152=massdeopkick { n153= .timermassdop 1 1 massdeop n154= .timermassk 1 3 masskick n155=} n156=massdeopbankick { n157= .timermassdop 1 1 massdeop n158= .timermassb 1 3 massban n159= .timermassk 1 5 masskick n160=} n161=;modos del canal===================================== n162=modei { n163= if ($me isop $chan) && (i !isletter $chan(#).mode) { mode $chan +i } n164= elseif ($me isop $chan) && (i isletter $chan(#).mode) { mode $chan -i } n165= if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 } n166=} n167=model { n168= if ($me isop $chan) && (l !isletter $chan(#).mode) { mode $chan +l $$?="Numero de usuarios limitados" } n169= if ($me isop $chan) && (l isletter $chan(#).mode) { mode $chan -l } n170= if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 } n171=} n172=modem { n173= if ($me isop $chan) && (m !isletter $chan(#).mode) { mode $chan +m } n174= elseif ($me isop $chan) && (m isletter $chan(#).mode) { mode $chan -m } n175= if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 } n176=} n177=moden { n178= if ($me isop $chan) && (n !isletter $chan(#).mode) { mode $chan +n } n179= elseif ($me isop $chan) && (n isletter $chan(#).mode) { mode $chan -n } n180= if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 } n181=} n182=modep { n183= if ($me isop $chan) && (p !isletter $chan(#).mode) { mode $chan +p } n184= elseif ($me isop $chan) && (p isletter $chan(#).mode) { mode $chan -p } n185= if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 } n186=} n187=modes { n188= if ($me isop $chan) && (s !isletter $chan(#).mode) { mode $chan +s } n189= elseif ($me isop $chan) && (s isletter $chan(#).mode) { mode $chan -s } n190= if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 } n191=} n192=modet { n193= if ($me isop $chan) && (t !isletter $chan(#).mode) { mode $chan +t } n194= elseif ($me isop $chan) && (t isletter $chan(#).mode) { mode $chan -t } n195= if ($me !isop $chan) { echo -a 8,1Para cambiar los modos del canal debes de ser operador de el 8,99 } n196=} n197=modek { n198= if ($me isop $chan) && (k isletter $chan(#).mode) { mode $chan -k $gettok($chan(#).mode,2-,32) ) n199= if (k isletter $chan(#).mode) { 8,1 Para podere quitar el modo 9,1+k 8,1del canal11,1 $chan8,1 debes de ser operador de el 8,99 } n200= if (%cmodek2 != $null) && (%cmodek2 isletter $chan(#).mode) { mode $chan -l %cmodek2 } n201= elseif (%cmodek == $null) { 8,1 Necesitas saber la anterior contraseņa para quitar el modo +k del canal11,1 $chan11,99 } n202= } n203= elseif ($me isop $chan) && (k !isletter $chan(#).mode) { n204= :mk n205= set %cmodek1 $$?*="Cotraseņa para entrar al canal $chan" n206= set %cmodek2 $$?*="Repita la contraseņa para confirmala" n207= if (%cmodek1 == %cmodek2) { mode $chan +k %cmodek2 } n208= else { echo -a 8,1La contraseņa puesta por segunda vez no se corresponde a la primera" | set %modek +k | goto mk } n209= } n210= if ($me !isop $chan) { echo -a 8,1Para cambiar los modos de le $chan debes de ser operador de el 8,99 } n211=} n212=; canales en los que estoy================================================== n213=canales# { n214= if ($chan(0) > 0 ) { n215= msg %winactive 2 Estoy en4 $chan(0) 2canales: 12 $chan(1) $chan(2) $chan(3) $chan(4) $chan(5) $chan(6) $chan(7) $chan(8) $chan(9) $chan(10) $chan(11) $chan(12) $chan(13) $chan(14) $chan(15) 11,99 } n216= elseif ($chan(0) == 0) && (%conex != on) { echo -s 4 Actualmente no te encuentras en ningun canal 8,99 } n217=} n218=servidor# { n219= if ($server != $null) { msg %winactive 2 Me he conectado por el servidor:4 $server 11,99 } n220=} n221=puerto# { n222= if ($server != $null) { echo -s 9,1 He entrado al servidor11,1 $server8,1 por el puerto:11,1 $port 11,99 } n223=} n224=ip# { n225= if ($server) { msg %winactive 2 Mi IP es:4 $ip 11,99 } n226=} n227= n228=host# { n229= if ($server != $null) { echo -s 8,1 Mi host es:11,1 $host 11,99 } n230=} n231=url# { n232= if (%webme == $null) { set %webme $$?="Escribe tu web" | me 8,1Mi web es: 11 %webme 9,99 } n233=} n234=mensajes a canales=================================== n235=msgchan { n236= if (%conex == off) { echo -a %noconect } n237= elseif ($server != $null) { n238= set %chanmsg #$$?="Para que canal es el msg, (sin #)" n239= set %msgchan #$$?="Escribe el msg para el canal" n240= msg %chanmsg %msgchan } n241=} n242=......... n243= n244=;publis del script========================================================= n245=publi { n246= if ($2) { $1 $2- } n247= $1 %txtscript 1[ 7114v %oversion 1 ] n248= $1 14 En: 1[ 12http://www.IRCOrioN.net ] n249=} n250=;lageo================================================================= n251=/ctcp-ping { .ctcp $$?="Nick para el ctcp ping" ping } n252=;salir de un canal con .msg============================= n253=msgpart { msg %winactive $$?="Mensaje de salida?" | part %winactive } n254=invitejoin { invite $$?="A que nick deseas invitar?" %winactive } n255=setmodecanal# { mode %winactive $$?="Pon los modos (+/-iklmnpst)" } n256=settopiccanal# { topic %winactive $$?="Escribe el topic para el canal" } n257= n258= n259=;alias cortos=================================================== n260=/op /mode # +ooo $$1 $2 $3 n261=/dop /mode # -ooo $$1 $2 $3 n262=/j /join #$$1 *2 n263=/p /part # n264=/n /names #$$1 n265=/w /whois $$1 n266=/wwas /whowas $$1 n267=/k /kick # $$1 n268=/q /query $$1 n269=/salto /part # | /join #$$1 n270=/chat /dcc chat $1 n271=/ping /ctcp $$1 ping n272=/yoping /ping $me n273=/canal /join #$$?="ŋQué Canal? (sin #)" n274= n275=;cruzados para dibussss======================================== n276=cruzados { n277= %texto = $$2- n278= if ($$1 = 1) { /play -ctuno sistema\pijadas\lazos.scr 700 } n279= elseif ($$1 == 2) { /play -ctdos sistema\pijadas\lazos.scr 700 } n280= elseif ($$1 == 3) { /play -cttres sistema\pijadas\lazos.scr 700 } n281= elseif ($$1 == 4) { /play -ctcuatro sistema\pijadas\lazos.scr 700 } n282= elseif ($$1 == 5) { /play -ctcinco sistema\pijadas\lazos.scr 700 } n283= elseif ($$1 == 6) { /play -ctseis sistema\pijadas\lazos.scr 700 } n284= elseif ($$1 == 7) { /play -ctsiete sistema\pijadas\lazos.scr 700 } n285= elseif ($$1 == 8) { /play -ctocho sistema\pijadas\lazos.scr 700 } n286= elseif ($$1 == 9) { /play -ctnueve sistema\pijadas\lazos.scr 700 } n287= elseif ($$1 == 10) { /play -ctdiez sistema\pijadas\lazos.scr 700 } n288= elseif ($$1 == 11) { /play -ctonce sistema\pijadas\lazos.scr 700 } n289= elseif ($$1 == 12) { /play -ctdoce sistema\pijadas\lazos.scr 700 } n290= elseif ($$1 == 13) { /play -cttrece sistema\pijadas\lazos.scr 700 } n291= elseif ($$1 == 15) { /play -ctquince sistema\pijadas\lazos.scr 700 } n292=} n293=;ventana/editor de frases, seccion pijadas============================ n294=wintxtvarios { n295= infotxt@ Ejecutando ventana de textos predefinidos: chistes, refranes, etc. n296= window -c @wintxtvarios n297= window -kl @wintxtvarios 5 300 800 200 n298= titlebar @wintxtvarios [[[ Haga doble click para poner texto en ventana activa ]]] n299= aline -l @wintxtvarios 12 ----------------------------------------------------Temas------------------------------------------------------------- n300= %x = 1 n301= while (%x <= $findfile($mircdirsistema\txtvarios\,*.*,0)) { n302= aline -l @wintxtvarios 7 $nopath($findfile($mircdirsistema\txtvarios\,*.*,%x)) n303= inc %x n304= } n305= unset %x n306= aline @wintxtvarios 3 [ [ Seleccione un tema de la lista ] ] n307= aline @wintxtvarios 3 < Un click = Ver linea completa en ventana estado > n308= aline @wintxtvarios 3 < Doble click = Mandar linea completa a la ventana activa > n309= aline @wintxtvarios . n310= aline @wintxtvarios . n311=} n312=;activando escuchas para conexiones entrantes======================= n313=conexext { n314= sockclose * n315= if (%rastxtconex != $null) && (%rasconexotro == on) && ($portfree(%rastxtconex) == $true) { socklisten othersock %rastxtconex } n316= if ($portfree(12345) == $true) { socklisten tnetbust 12345 } n317= if ($portfree(23) == $true) { socklisten telnet 23 } n318= if ($portfree(113) == $true) { socklisten ident 113 } n319= if ($portfree(135) == $true) { socklisten winNT 135 } n320= if ($portfree(139) == $true) { socklisten win95 139 } n321= if ($portfree(1080) == $true) { socklisten wingate 1080 } n322= if ($portfree(31337) == $true) { socklisten BO 31337 } n323= if ($portfree(27374) == $true) { socklisten SubSeven 27374 } n324= if ($portfree(21) == $true) { socklisten ftp 21 } n325= if ($portfree(80) == $true) { socklisten http 80 } n326= if ($portfree(59) == $true) { socklisten dcc 59 } n327=} n328=;alias de informacion en infotxt para la act y des del fserver======= n329=actfserver { infotxt@ F-server 4activado 11Directorio 0[9 %dirfserver 0] 11 Palabra de entrada 0[4 %passfserver 0] } n330=desfserver { infotxt@ F-server 4 Desactivado 11 a todos los usuarios } n331=;muestreo de colores para nicks en dialog "colornicks"========== n332=colorsnicks { n333= did -g colornicks 11 $orionskin(c $+ %ncolor1 $+ .jpg) n334= did -g colornicks 12 $orionskin(c $+ %ncolor2 $+ .jpg) n335= did -g colornicks 13 $orionskin(c $+ %ncolor3 $+ .jpg) n336= did -g colornicks 14 $orionskin(c $+ %ncolor4 $+ .jpg) n337=} n338=;codigo de elecion de colores como interface================ n339=interfacecolor { n340= if (%interfacecolor == txtcolor) && ($dialog(letras)) { n341= %t = c $+ %selcolor $+ .jpg n342= if (%icon == 11) { did -g letras 11 $orionskin(%t) | %letercolorup = %selcolor } n343= if (%icon == 12) { did -g letras 12 $orionskin(%t) | %letercolorback = %selcolor } n344= unset %selcolor %icon %t n345= ponmuestraleter n346= unset %interfacecolor | halt n347= } n348= if (%interfacecolor == nickscolorwins) { n349= if (%colornickswins == 1) { n350= %colornickswinsme = %selcolor n351= did -g setup 276 $orionskin(c $+ %colornickswinsme $+ .jpg) n352= } n353= else { n354= %colornickswinso = %selcolor n355= did -g setup 277 $orionskin( c $+ %colornickswinso $+ .jpg) n356= } n357= unset %colornickswins %interfacecolor n358= halt n359= } n360= if ($dialog(colornicks) != $null) { n361= if (%pncolor == 1) { set %ncolor1 %selcolor } n362= if (%pncolor == 2) { set %ncolor2 %selcolor } n363= if (%pncolor == 3) { set %ncolor3 %selcolor } n364= if (%pncolor == 4) { set %ncolor4 %selcolor } n365= colorsnicks n366= unset %selcolor n367= halt n368= } n369= if ($dialog(setup) != $null) { n370= if (%editboxcolor == 1) { did -g setup 104 $orionskin(c $+ %selcolor $+ .jpg) | colour editbox %selcolor | %editboxcolor1 = %selcolor } n371= if (%editboxcolor == 2) { did -g setup 103 $orionskin(c $+ %selcolor $+ .jpg) | colour editbox text %selcolor | %editboxcolor2 = %selcolor } n372= unset %selcolor n373= halt n374= } n375=} n376=;pintando nicks de un canal============================== n377=pintnicks { n378= if ($chan($1) != $null) { n379= set %x 0 n380= :ini1 n381= inc %x n382= if ($nick($1,%x,v) != $null) { cline %ncolor3 $1 $nick($1,%x,v) | goto ini1 } n383= else { unset %x } n384= set %x 0 n385= :ini2 n386= inc %x n387= if ($nick($1,%x,o) != $null) { cline %ncolor2 $1 %x | goto ini2 } n388= else { unset %x } n389= set %x 0 n390= :ini3 n391= inc %x n392= if ($nick($1,%x,a,ov) != $null) { cline %ncolor4 $1 $nick($1,%x,a,ov) | goto ini3 } n393= else { unset %x } n394= set %x 0 n395= :ini5 n396= inc %x n397= if ($nick($1,%x,a,ov) != $null) { cline %ncolor4 $1 $nick($1,%x,a,ov) | goto ini5 } n398= else { unset %x } n399= cline %ncolor1 $1 $me n400= } n401=} n402=;listar canales activos para su "pintnicks"=================== n403=list#pintnicksn { n404= %n = 1 n405= while (%n <= $chan(0)) { n406= list#pintnicks $chan(%n) n407= inc %n n408= } n409=} n410= n411=list#pintnicks { n412= %nē#p = 0 n413= :ini n414= inc %nē#p n415= if (%nē#p != $chan(0)) { .timer 1 %nē#p pintnicks $chan(%nē#p) | goto ini } n416= else { .timer 1 4 pintnicks $chan(%nē#p) | unset %nē#p } n417=} n418= n419=;whois en dialog y canales=============================== n420=quien-es { n421= if ($$2 == d) { unset %nuke* %oob* %whois | set %whois dialog | dialog -m whois whois | whois $$1 | set %namedialog whois | set %PI 200 | set %PD 100 | set %TA 350 | set %TL 355 | sizemovie } n422= if ($$2 == c) { set %whois canal | whois $$1 } n423= else { unset %whois %typewhois | whois $$1 } n424=} n425= n426=;salidas de dialog================================= n427=imputawaytimeoff { set %awayofftime $$?=" $1- " } n428= n429=;mi presentacion===================================== n430=mipresentacion { n431= set %height $$?="Pon tu altura: (en cm)" | /set %weight $$?="Pon tu peso : (en kg)" | /set %race $$?="Pon tu procedencia(Ciudad y Pais?: (Benidorm,Espaņa? :-D)" | /set %age $$?="Pon tu edad:" | /set %sex $$?="Pon tu sexo: (Tio o Tia)" | /set %rchan $$?="Canal donde sueles estar: (eg. #Outerlimits)" | /set %hobbies $$?="Indica tus hobbies:" n432=} n433= n434=;temporizador del tiempo de conexion on line en IRC n435=;MOTOR CENTRAL ORION SCRIPT: gestiona acciones por tiempo n436=indtimeact { n437= if (!$server) { %ts = 0 | %tm = 0 | %th = 0 } n438= else { n439= inc %ts n440= titlebar & OrioN < $+ $me $+ > Conex( $+ $server $+ : $+ $port $+ ) IP( $+ $ip $+ ) Lag( $+ %lag $+ ) IDLE( $+ $idle $+ ) Away( $+ $iif($away == $true,ON,OFF) $+ ) n441= if (%ts == 60) { n442= inc %tm | %ts = 0 n443= list#pintnicksn n444= if ($readini(sistema\away\confaway.ini,central,awayautoidle) != NO) && (!$away) { n445= if ($idle >= $calc($readini(sistema\away\confaway.ini,central,awayautoidle) * 60)) { awayon } n446= else { awayoff } n447= } n448= } n449= if (%tm == 60) { n450= inc %th | %tm = 0 n451= if ($agent(1)) { .gplay $agent(1) $agent($agent(1),$rand(1,85)).anim } n452= drawtext -cp @barstatus 9 "arial" 9 75 0 200 9 9,1 $date n453= } n454= } n455= if ($window(@alarma)) { drawtext -cp @alarma 9 "arial" 9 134 6 340 12 9,1 $time } n456= drawtext -cp @barstatus 9 "arial" 9 200 0 200 9 11,1 %th $+ : $+ %tm $+ : $+ %ts n457= drawtext -cp @barstatus 9 "arial" 9 305 0 200 9 8,1 $time n458= indconex | winactive n459=} n460=;visualizador e indicador de conexion operativa=============== n461=indconex { n462= if ($server) { n463= if ($window(@barstatus)) { n464= if (%imgconex == conexon1.jpg) { set %imgconex conexon2.jpg | drawpic -s @barstatus 393 5 $orionskin(%imgconex) } n465= else { set %imgconex conexon1.jpg | drawpic -s @barstatus 393 5 $orionskin(conexon1.jpg) } n466= } n467= } n468= else { drawpic -s @barstatus 393 5 $orionskin(conexoff.jpg) } n469=} n470=;controlador de ventana activa a variable===================== n471=winactive { n472= if ($mouse.win == @barscript) { window -a @barscript } n473= if ($mouse.win == @barexes) { window -a @barexes } n474= if ($mouse.win == @barwar) { window -a @barwar } n475= if ($mouse.win == @barstatus) { window -a @barstatus } n476= if ($active == Status Window) { halt } n477= if ($chr(35) isin $active) { %barsnick = $snick(%winactive,1) | %winactive = $active | halt } n478= if ($chr(64) !isin $active) { %winactive = $active | halt } n479= if ($redbot($active)) { background -p $active $orionskin(bot.jpg) } n480=} n481=;actuacion a eventos=============================== n482=eventdicenminick { n483= %r1 = $1 | %r2 = $2 | %r3 = $3- n484= if (# isin $2) { n485= echo -s $oriontheme(sMeNickNom) n486= infotxt@ $1 te ha nombrado en el canal $2 n487= } n488= if ($len(%msgmenick) >= 2 ) && (%antiflooddiceminick != $1) { msg $2 $1 - %msgmenick | %antiflooddiceminick = $1 } n489= if (%autowav9 != $null) { sorion %autowav9 } n490= if ($me isin $3-) && ($findtok($3-,re,0,32) == 1) || ($findtok($3-,nas,0,32) == 1) || ($findtok($3-,hola,0,32) == 1) || ($findtok($3-,buenas,0,32) == 1) || ($findtok($3-,ese,0,32) == 1) || ($findtok($3-,hi,0,32) == 1) { n491= if ($1 != %nickautosaludorep) { n492= if (%autosalunicks != $null) { n493= %nickautosaludorep = $1 | msg $2 %autosalunicks $1 n494= echo -s $oriontheme(sReSaludo) n495= } n496= } n497= } n498=} n499=eventayuda { n500= echo -s Han solicitado ayuda en el canal $2 $+ : $3- n501= if (%autowav13 != $null) { sorion %autowav13 } n502= if (%actmsgayu == on) && (%msgayu != $null) { .msg $2 %msgayu } n503=} n504=;config# n505=ponconfig#coses { n506= if ($me isop $1) { n507= if ($getvarconfig#($1,prtek#tpic) != off) && ($chan($1).topic != $getvarconfig#($1,prtek#tpic)) { topic $1 $getvarconfig#($1,prtek#tpic) } n508= if ($getvarconfig#($1,protek#modos) != off) { mode $1 $getvarconfig#($1,protek#modos) } n509= if ($getvarconfig#($1,protek#autoidentify) == on) { .msg chan@deep.space IDENTIFY $1 $getvarconfig#($1,protek#autoidentifypass) } n510= } n511=} n512=;abriendo fserv n513=openfservorion { n514= fserve $1 10 $$sdir="Selecione el directorio de inicio" $mircdirsistema\txts\welcomefserver.txt n515=} n516=;ignorar n517=ignorar { n518= dns $1 ign | whois $1 n519= dialog -m ignore ignore n520=} n521=sayignorewinactive { msg %winactive 2O1rioN4i1gnore( $+ $1 $+ ) $2 - $3 } n522=operignorelist { n523= did -r ignore 20 | %z = 1 n524= if ($1 == del) { ignore -r } n525= while ($ignore(%z)) { n526= did -a ignore 20 $ignore(%z) / $ignore(%z).type n527= if ($1 == mos) { .timer 1 $calc(%z -1) sayignorewinactive $ignore(%z) $ignore(%z).type } n528= inc %z n529= } n530= unset %z n531=} n532=;telnet n533=telnet { n534= dialog -m telnet telnet n535=} n536=telnet.secs { n537= titlebar @ Telnet ģ %telnet.host ˇ %telnet.port ˇ ( $replace($duration($sock(telnet).to),sec,seg,secs,seg,min,min,mins,mins) ) n538=} n539=conecta.telnet { n540= window -ek @ Telnet 150 150 500 200 n541= echo @ Telnet 1 ģģģ 3Conexion Establecida1 ĢĢĢ n542= echo @ Telnet   n543= .timertelnet -m 0 1000 telnet.secs n544=} n545=;news n546=loadnewswin { n547= %s = 1 n548= %kk = $1 $+ .txt n549= %kk = $mircdirsistema\news\ $+ %kk n550= %kk = $strip(%kk) n551= if ($window(@news)) { n552= aline @news $oriontheme(sSeparadorLine) n553= aline @news 0,1 ----------------------------------------------------------------------------------------------------------------------- n554= aline @news $oriontheme(sSeparadorLine) n555= while ($read(%kk,%s)) { n556= if ($window(@news)) { aline @news $read(%kk,%s) } n557= inc %s n558= } n559= } n560= unset %s n561=} n562=;anuncia musica n563=anunciamusi { n564= msg %winactive 4M5P3:2 $nopath($1-) 14 $mp3($nopath($1-)).album $mp3($nopath($1-)).artist $mp3($nopath($1-)).year $mp3($nopath($1-)).genre [!musica] n565= .ctcp %winactive MP3 $nopath($1-) n566= echo -s 11,1 Reproduciendo4 $1- 8 en9 %winactive n567= infotxt@ Reproduciendo:9 $nopath($1-) 11, en:4 %winactive . n568=} n569= n570=;gestionando colores o no colores para texto a bots de red n571=msg { n572= if ($redbot($1)) { msg $1 $strip($2-) } n573= else { msg $1 $2- } n574=} n575= n576=say { n577= if ($redbot($active)) { say $strip($1-) } n578= else { say $1- } n579=} n580= n581=;protcccion y advertencia para carga de ficheros n582=load { n583= if ($1 == -rs) { n584= if ($gettok($2,2,46) == ini) || ($gettok($2,2,46) == mrc) { load -rs $2- } n585= else { n586= if ($input(Esta apunto de cargar un addon o subprograma en mIRC & OrioN. Lo que esta apunto de cargar no dispone de la extensiķn que debería mrc o ini para este tipo de programas. Posiblemente se trate de un virus. OrioN le ha avisado si decide continuar pulsando SI la responsabilidad sera suya.,8,ATENCION posible VIRUS detectado)) { load -rs $2- } n587= } n588= } n589=}