[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=setconfig#canal {
n14=  dialog -t config# Consola del canal: %winactive
n15=  pathconfig# %winactive
n16=}
n17=;protecciones y configuraciones para config canal===========
n18=ponvarconfig# {
n19=  setvaloresconfig#users $1
n20=  addvaloresconfig# $1
n21=}
n22=obteniendo valores=======
n23=getvarconfig# {
n24=  unset %rutagetconfig# %g %z
n25=  pathconfig# $1
n26=  if ($exists(%pathconfig#) == $true) {
n27=    %rutagetconfig# = $1 $read -s $+ $2 %pathconfig# 
n28=    if (%rutagetconfig# != $null) { return $gettok(%rutagetconfig#,2-,61)  }
n29=    unset %rutagetconfig# %g %pathconfig#  %z  
n30=  }
n31=}
n32=;cambiando valores======
n33=setvarconfig# {
n34=  pathconfig# $1 
n35=  if ($exists(%pathconfig#) == $true) { 
n36=    %r2 = $read -s $+ $2 %pathconfig# 
n37=    if (%r2 != $null) {  write -s $+ $2 %pathconfig# $2 = $+ $3- }
n38=  }
n39=  unset %r2 %pathconfig# 
n40=}
n41=
n42=setvaloresconfig#users { 
n43=  if ($dialog(config#) != $null) { did -r config# 15 }    
n44=  if ($me ison $1) {  
n45=    setvarconfig# $1 statnusers $nick($1,0)
n46=    setvarconfig# $1 statnops $nick($1,0,o)
n47=    setvarconfig# $1 statnvoi $nick($1,0,v)
n48=    setvarconfig# $1 statnnoopv $nick($1,0,a,ov)  
n49=    autonicksnotify cuenta $1
n50=  }
n51=}  
n52=;añadiendo valore a dialog=======
n53=addvaloresconfig# {
n54=  if ($dialog(config#) != $null) {
n55=    did -u config# 45,46,47,48,49,50,51,52,53,54,55,66,67,68,70,91,98,100,300
n56=    did -r config# 56,57,58,59,71,63,64,85,87,89,92,95,97,99,32,33,34,35,36,37,38,39,40,41,42,43
n57=    if ($getvarconfig#($1,statnusers) != $null) { did -a config# 32 $getvarconfig#($1,statnusers) }
n58=    if ($getvarconfig#($1,statnops) != $null) { did -a config# 33 $getvarconfig#($1,statnops) }
n59=    if ($getvarconfig#($1,statnvoi) != $null)  { did -a config# 34 $getvarconfig#($1,statnvoi) }
n60=    if ($getvarconfig#($1,statnnoopv) != $null) { did -a config# 35 $getvarconfig#($1,statnnoopv) }
n61=    if ($getvarconfig#($1,statusernotify) != $null) { did -a config# 36 $getvarconfig#($1,statusernotify) }
n62=    if ($getvarconfig#($1,statalljoin) != $null) { did -a config# 37 $getvarconfig#($1,statalljoin) }
n63=    if ($getvarconfig#($1,statallpart) != $null) { did -a config# 38 $getvarconfig#($1,statallpart) }
n64=    if ($getvarconfig#($1,statallquit) != $null) { did -a config# 39 $getvarconfig#($1,statallquit) }
n65=    if ($getvarconfig#($1,statallops) != $null)  { did -a config# 40 $getvarconfig#($1,statallops) }
n66=    if ($getvarconfig#($1,statalldeops) != $null)  { did -a config# 41 $getvarconfig#($1,statalldeops) }
n67=    if ($getvarconfig#($1,statallkicks) != $null)  { did -a config# 42 $getvarconfig#($1,statallkicks) }
n68=    if ($getvarconfig#($1,statallbans) != $null)  { did -a config# 43 $getvarconfig#($1,statallbans) }
n69=    if ($getvarconfig#($1,actantideop) == on)  { did -c config# 45 }
n70=    if ($getvarconfig#($1,actantikick) == on)   { did -c config# 46 }
n71=    if ($getvarconfig#($1,actantiban) == on)  { did -c config# 47 }
n72=    if ($getvarconfig#($1,actanticlones)  == on)  { did -c config# 48 }
n73=    if ($getvarconfig#($1,actanticolores) == on)   { did -c config# 49 }
n74=    if ($getvarconfig#($1,actantispan#protek) == on)  { did -c config# 50 }
n75=    if ($getvarconfig#($1,actantisettopic) == on)   { did -c config# 51 }
n76=    if ($getvarconfig#($1,actantimode) == on)   { did -c config# 52 }
n77=    if ($getvarconfig#($1,actantiflodlineal) == on)  { did -c config# 53 }
n78=    if ($getvarconfig#($1,actantiflodtamaño) == on)   { did -c config# 54 }
n79=    if ($getvarconfig#($1,actantiflodrepitline) == on)    { did -c config# 55 }
n80=    ; if ($getvarconfig#($1,protcanalclonesini) != $null)   { did -a config# 56  $getvarconfig#($1,protcanalclonesini) }
n81=    if ($getvarconfig#($1,maxnumlinerepit#) != $null)   { did -a config# 57  $getvarconfig#($1,maxnumlinerepit#) }
n82=    if ($getvarconfig#($1,maxcaracters#) != $null)   { did -a config# 58  $getvarconfig#($1,maxcaracters#) }
n83=    if ($getvarconfig#($1,maxlinerepit) != $null)   { did -a config# 59 $getvarconfig#($1,maxlinerepit) }
n84=    if ($getvarconfig#($1,protekatakkick) == on)   { did -c config# 66 }
n85=    if ($getvarconfig#($1,protekatakban) == on)   { did -c config# 67 }
n86=    if ($getvarconfig#($1,protekatakbantime) == on)   { did -c config# 68 }
n87=    if ($getvarconfig#($1,protekataktbop) == on)   { did -c config# 70 }
n88=    if ($getvarconfig#($1,timerbantime) != $null)  { did -a config# 71 $getvarconfig#($1,timerbantime) }
n89=    if ($getvarconfig#($1,protekatakmsgkick) != $null)   { did -a config#  63 $getvarconfig#( $1,protekatakmsgkick) }
n90=    if ($getvarconfig#($1,protekatakmsgban) != $null)  { did -a config#  64 $getvarconfig#( $1,protekatakmsgban) }
n91=    if ($getvarconfig#($1,prtek#tpic) != $null)   { did -a config#  85 $getvarconfig#($1,prtek#tpic) }
n92=    if ($getvarconfig#($1,protek#text) != $null)  { did -a config#  87 $getvarconfig#($1,protek#text) } 
n93=    if ($getvarconfig#($1,protek#modos) != $null)  { did -a config#  89 $getvarconfig#($1,protek#modos) }
n94=    if ($getvarconfig#($1,protek#salunotify) != $null)  { did -a config#  92 $getvarconfig#($1,protek#salunotify) }
n95=    if ($getvarconfig#($1,protek#salumass) == on)  { did -c config# 91 }
n96=    if ($getvarconfig#($1,protek#msgwelcome) != $null)  { did -a config#  95 $getvarconfig#($1,protek#msgwelcome) }
n97=    if ($getvarconfig#($1,protek#msgpart) != $null) { did -a config#  97 $getvarconfig#($1,protek#msgpart) }
n98=    if ($getvarconfig#($1,protek#autoidentify) == on)  { did -c config# 98 }
n99=    if ($getvarconfig#($1,protek#autoidentifypass) != $null) { did -a config#  99 $getvarconfig#($1,protek#autoidentifypass) }
n100=    if ($getvarconfig#($1,protek#autoop) == on) { did -c config# 100 }
n101=    if ($getvarconfig#($1,protek#autodeop) == on) { did -c config# 300 }    
n102=    unset $1 %t $1 $1 
n103=  }
n104=}
n105=#protekatak {  
n106=  pathconfig# $2  
n107=  if ($3 != $me) && ($4 != $3) && (!$redbot($3)) && ($getvarconfig#($2,$5) == on) && ($exists(%pathconfig#) != $false) && ($me isop $2) {  
n108=    echo $oriontheme(sSeparadorLine)  
n109=    echo -s 0,15 0,14 0,140,150,140,1 Ataque 15,2 $1 0,140,150,140,1 Canal 15,2 $2 0,140,150,140,1 Atacante 15,2 $3 0,14 0,15 9,99
n110=    echo $oriontheme(sSeparadorLine)  
n111=    sorion part
n112=    msg $3 %txtscript 1[2 Protección4 $1 1]         
n113=    if ($1 == deop) { mode $2 +o $4 }
n114=    if ($1 == ban) { mode $2 -b $6 }
n115=    if ($1 == CambioMODE) {  
n116=      mode $2 -iklmnpst
n117=      mode $2 $getvarconfig#($2,modecanal) 
n118=    }
n119=    if ($1 == Flood) { 
n120=      unset %fnickconfig %fcanalconfig %ftxtconfig %fcontconfig 
n121=      unset %fnickconfig2 %fcanalconfig2 %ftxtconfig2 %fcontconfig2 
n122=    }      
n123=    if ($3 isop $2) {    
n124=      if ($getvarconfig#($2,protekataktbop) == on)  {
n125=        if ($getvarconfig#($2,protekatakkick) == on) { kick $2 $3 $getvarconfig#($2,protekatakmsgkick) }
n126=        if ($getvarconfig#($2,protekatakban) == on) { mode $2 +b $address($3,2) | kick $2 $3 $getvarconfig#($2,protekatakmsgban) }
n127=        if ($getvarconfig#($2,protekatakbantime) == on) { kick $2 $3 $getvarconfig#($2,protekatakmsgban) | %#timeb = $2 | %nicktimeb = $3 | %timeb = %#pataktimeban | bantime }
n128=      }
n129=    }    
n130=    else {     
n131=      if ($getvarconfig#($2,protekatakkick) == on) { kick $2 $3 $getvarconfig#($2,protekatakmsgkick)  }
n132=      if ($getvarconfig#($2,protekatakban) == on) { mode $2 +b $address($3,2) | kick $2 $3 $getvarconfig#($2,protekatakmsgban) }
n133=      if ($getvarconfig#($2,protekatakbantime) == on) { kick $2 $3 $getvarconfig#($2,protekatakmsgban) | %#timeb = $2 | %nicktimeb = $3 | %timeb = %#pataktimeban | bantime }
n134=    }
n135=  }
n136=}
n137=statconfig# {
n138=  pathconfig# $1  
n139=  if ($exists(%pathconfig#) == $true) { 
n140=    %x2 = $getvarconfig#($1,$2) 
n141=    inc %x2
n142=    setvarconfig# $1 $2 %x2
n143=  }
n144=}
n145=
n146=createconfig# {
n147=  var %r 
n148=  %r = $mircdirsistema\config#\ $+ $1 $+ .txt
n149=  write %r namecanal = $+ $1
n150=  write %r createdate = $+ $date
n151=  write %r  createtime = $+ $time
n152=  write %r modecanal =-psiklm+nt
n153=  write %r actantideop =off
n154=  write %r actantikick =off 
n155=  write %r  actantiban =off 
n156=  write %r  actanticlones =off
n157=  write %r  actanticolores =off
n158=  write %r  actantispan#protek =off 
n159=  write %r  actantisettopic =off 
n160=  write %r  actantimode =off 
n161=  write %r  actantiflodlineal =off 
n162=  write %r  actantiflodtamaño =off 
n163=  write %r  actantiflodrepitline =off  
n164=  write %r  protcanalclonesini =5  
n165=  write %r  maxnumlinerepit# =10  
n166=  write %r  maxcaracters# =400 
n167=  write %r  maxlinerepit =10
n168=  write %r  protekatakkick =on
n169=  write %r  protekatakban =off  
n170=  write %r  protekatakbantime =off 
n171=  write %r  protekataktbop =off 
n172=  write %r  timerbantime =0
n173=  write %r  protekatakmsgkick = 14ProteccióN
n174=  write %r  protekatakmsgban = 14ProteccióN
n175=  write %r  prtek#tpic =off   
n176=  write %r  protek#text =off 
n177=  write %r  protek#modos =off 
n178=  write %r  protek#salunotify =off 
n179=  write %r  protek#salumass =off 
n180=  write %r  protek#msgwelcome =off 
n181=  write %r  protek#msgpart =off 
n182=  write %r  protek#autoidentify =off
n183=  write %r  protek#autoidentifypass =off 
n184=  write %r  protek#autoop =off 
n185=  write %r  protek#autodeop =off  
n186=  write %r  statnusers =0
n187=  write %r  statnops =0
n188=  write %r  statnvoi =0 
n189=  write %r  statnnoopv =0
n190=  write %r  statusernotify =0
n191=  write %r  statalljoin =0
n192=  write %r  statallpart =0 
n193=  write %r  statallquit =0
n194=  write %r  statallops =0  
n195=  write %r  statalldeops =0 
n196=  write %r  statallkicks =0 
n197=  write %r  statallbans =0 
n198=  write %r  topic1 =PreTopic1
n199=  write %r  topic2 =PreTopic2
n200=  write %r  topic3 =PreTopic3
n201=  write %r  topic4 =PreTopic4
n202=  write %r  topic5 =PreTopic5
n203=  write %r  topic6 =PreTopic6
n204=}
n205=
n206=showstatconfig# {
n207=  %c = $did(config#,9,$did(config#,9).sel)  
n208=  %pathconfig# = $mircdirsistema\config#\ $+ $did(config#,9,$did(config#,9).sel) $+ .ini    
n209=  if ($1 == 1) {  
n210=    msg $2 %txtscript    
n211=    .timer 1 1 msg $2 2Canal:1 [4 %c 1]
n212=    .timer 1 2 msg $2 2Usuarios: 14Total1 $+ [4 $getvarconfig#($2,statnusers) 1], 14OPs1 $+ [4 $getvarconfig#($2,statnops) 1], 14VOZs1 $+ [4 $getvarconfig#($2,statnvoi) 1], 14Resto1 $+ [4 $getvarconfig#($2,statnnoopv) 1].
n213=    %x = 0 
n214=    %c = 2
n215=    :ini
n216=    inc %x 
n217=    inc %c 
n218=    if ($did(config#,15,%x) != $null) {
n219=      .timer 1 %c msg $2 2Clon %x $+ : 1[4 $did(config#,15,%x) 1]
n220=      goto ini 
n221=    }
n222=    unset %x %c
n223=  }
n224=  if ($1 == 2) {
n225=    .timer 1 1 msg $2 8(0,8(7,8(8,7(4,7(7,4(5,4(4,5(1,5(5,1(11,1 ØrïøN5,1)1,5)4,5)5,4)7,4)4,7)8,7)7,8)0,8)8)1,99
n226=    .timer 1 2 msg $2 2Estadisticas:1[4 %c 1] 2Desde:1[14 Fecha:4 $getvarconfig#($2,createdate) 1] [14 Hora:4 $getvarconfig#($2,createtime) 1] 
n227=    .timer 1 3 msg $2 2Entradas:1[4 $getvarconfig#($2,statalljoin) 1] 2Salidas:1[4  $getvarconfig#($2,statallpart) 1] 2+Voices:1[4 $getvarconfig#($2,statallquit) 1] 2+Ops:1[4 $getvarconfig#($2,statallops) 1] 2-Ops:1[4 $getvarconfig#($2,statalldeops) 1] 2Kicks:1[4 $getvarconfig#($2,statallkicks) 1] 2Bans:1[4 $getvarconfig#($2,statallbans) 1]
n228=    .timer 1 4 msg $2 1Fin de estadisticas
n229=  }
n230=}
n231=pathconfig# { 
n232=  if ($1 == d) {
n233=    %pathconfig# = $mircdirsistema\config#\ $+ $did(config#,9,$did(config#,9).sel) $+ .txt 
n234=  }
n235=  else { %pathconfig# = $mircdirsistema\config#\ $+ $1 $+ .txt }
n236=}
n237=floodprotekconfig# { 
n238=  if ($len($3) >= $getvarconfig#(#,maxcaracters#)) { #protekatak Flood # $nick canal actantiflodtamaño  } 
n239=  if (%fnickconfig == $null) { %fnickconfig = $2 | %fcanalconfig  = $1 | %ftxtconfig = $3 }
n240=  if (%fnickconfig == $2) && (%fcanalconfig == $1) && (%ftxtconfig == $3) { inc %fcontconfig }
n241=  if (%fcontconfig >= $getvarconfig#(#,maxnumlinerepit#)) {  #protekatak Flood $1 $2 canal actantiflodlineal  }
n242=  if (%fnickconfig2 == $null) { %fnickconfig2 = $2 | %fcanalconfig2  = $1 | %ftxtconfig2 = $3 }
n243=  if (%fnickconfig2 == $2) && (%fcanalconfig2 == $1)  { inc %fcontconfig2 }
n244=  if (%fnickconfig2 != $2) { %fcontconfig2 = 0 }
n245=  if (%fcontconfig2 >= $getvarconfig#(#,maxlinerepit)) { #protekatak Flood $1 $2 canal actantiflodrepitline  }
n246=  var %x %z
n247=  :ini
n248=  inc %x
n249=  %z = $read -l $+ %x $mircdirsistema\txts\spam.txt
n250=  if (%z != $null) {
n251=    if (%z isin $3-) { #protekatak SpaN $1 $2 el_mismo actantispan#protek }
n252=    else { goto ini }
n253=  }
n254=}
n255=;redireccionamientos para dialog=======================
n256=redirelogwin {
n257=  if ($1 == on) { 
n258=    %winrediretxt1 = $2
n259=    %winrediretxt2 = $3
n260=    .enable #redirelogwin
n261=    msg %winrediretxt2 %txtscript 1[2 Redireccionando 7log2:4 %winrediretxt1 1]
n262=  }
n263=  else {
n264=    .disable #redirelogwin
n265=    msg %winrediretxt2 1[2 Redireccionamiento 7log1 (4OFF1) ] 
n266=    unset %winrediretxt1 %winrediretxt2
n267=  }
n268=}
n269=
n270=
n271=;sacar esperas de busquequeda============================================
n272=sacobusca {
n273=  dialog -mo busca busca | did -r busca 4 | did -a busca 4 $1- | sorion conex
n274=  %z = 1
n275=  while (%z < 10) {
n276=    %d = $orionskin(busco $+ $iif($calc(%z % 2) == 0,1,2) $+ .ico)     
n277=    inc %z
n278=  }
n279=}
n280=
n281=;F-SERVER=============================================================
n282=;anunciar mi fserver.......................
n283=anunciafserver { 
n284=  if (%contenidofserver == $null) { amsg 0,15 0,14 0,1 F-§êRvEr 11,4 ON 1,14 0,15 9,99 1,99[10 Escribe4 %passfserver 10para entrar 1] }
n285=  else { amsg 0,15 0,14 0,1 F-§êRvEr 11,4 ON 1,14 0,15 9,99 1,99[10 Escribe4 %passfserver 10para entrar 1] [10 Contenido:14 %contenidofserver 1 ] }
n286=}
n287=;entrar canales en dialog whois=============================================
n288=joinwcanal {
n289=  set %li $did(whois,24).sel
n290=  if ($chr(64) isin $did(whois,24,%li).text) { join $gettok($did(whois,24,%li).text,1,64) }
n291=  if ($chr(43) isin $did(whois,24,%li).text) {  join $gettok($did(whois,24,%li).text,1,43) }
n292=  else { join $did(whois,24,%li).text }
n293=  unset %li
n294=} 
n295=joinwcanales {
n296=  :ini
n297=  inc %x
n298=  if ($did(whois,24,%x).text != $null) {
n299=    if ($chr(64) isin $did(whois,24,%x).text) { join $gettok($did(whois,24,%x).text,1,64) }
n300=    if ($chr(43) isin $did(whois,24,%x).text) {  join $gettok($did(whois,24,%x).text,1,43) }
n301=    else { join $did(whois,24,%x).text }
n302=  goto ini }
n303=  elseif ($did(whois,24,%x).text == $null) { unset %x | halt }
n304=} 
n305=;averiguar script en whois de dialog whois=====================================
n306=adivinoscript {
n307=  if (quasi isin %txtuserid) { did -a whois 23 OrioN-ScripT | did -e whois 30  |  halt }
n308=  if (OrioN isin %txtuserid) { did -a whois 23 OrioN-ScripT | did -e whois 30  |  halt }
n309=  if (O31 isin %txtuserid) { did -a whois 23 OrioN-ScripT | did -e whois 30  |  halt }
n310=  if (O32 isin %txtuserid) { did -a whois 23 OrioN-ScripT | did -e whois 30  |  halt }
n311=  if (mesias isin %txtuserid) { did -a whois 23 MeSiAs | did -e whois 30  |  halt }
n312=  if (X-CRiPt isin %txtuserid) { did -a whois 23  X-cript  | did -e whois 30 | halt }
n313=  if (anthrax isin %txtuserid) { did -a whois 23 AnThRaX | halt }
n314=  if (Cosa Nostra S@ript isin %txtuserid) { did -a whois 23 Cosa Nostra S@ript | halt }
n315=  if (Dark NiNJa isin %txtuserid) { did -a whois 23 Dark NiNJa | halt }
n316=  if (El Brûjõ isin %txtuserid) { did -a whois 23 El Brûjõ | halt }
n317=  if (PoDeR oSCuRo isin %txtuserid) { did -a whois 23 eL PoDeR oSCuRo | halt }
n318=  if (GaMeOvEr isin %txtuserid) { did -a whois 23 GaMeOvEr | halt }
n319=  if (IRcap isin %txtuserid) { did -a whois 23 IRcap  | did -e whois 30 | halt }
n320=  if (killer  isin %txtuserid) { did -a whois 23  killerzombi | halt  }
n321=  if (Orbital isin %txtuserid) { did -a whois 23 Orbital Script | halt }
n322=  if (7th Sphere isin %txtuserid) { did -a whois 23 7th Sphere | halt }
n323=  else { did -a whois 23 Desconocido }
n324=}
n325=;sobreescribir canales en dialog "protcanal"================================
n326=socanal {
n327=  if ($1 == %protcanal1) { set %protcanal1 #$$?="Escribe un canal (con #)"  |  did -o protcanal  58  $did(protcanal,58).sel %protcanal1 } 
n328=  if ($1 == %protcanal2) { set %protcanal2 #$$?="Escribe un canal (con #)"  |  did -o protcanal  58  $did(protcanal,58).sel %protcanal2 }
n329=} 
n330=;codigos para dialog de musica ==========================
n331=playmusi {
n332=  if (mp3 isin %extmusi) { 
n333=    if (%actpropimusi == shuffle) { 
n334=      set %n  0
n335=      :ini  
n336=      inc %n 
n337=      if ($did(musica,2,%n).text == $null) { goto fin }
n338=      else { 
n339=        .splay -q $findfile(%dirmusi,$did(musica,2,%n).text,1) 
n340=        goto ini 
n341=      }
n342=      :fin 
n343=      unset %n | halt 
n344=    }
n345=    if (%actpropimusi == repetir) { 
n346=      set %n 1
n347=      while (%n < %nºrepetirmusi) {
n348=        .splay -q " $+ $did(musica,6) $+ " 
n349=        inc %n
n350=      }  
n351=    }
n352=    .splay -q " $+ $did(musica,6) $+ " 
n353=  }
n354=  if (wav isin %extmusi) { 
n355=    if (%actpropimusi == shuffle) { 
n356=      set %n  0
n357=      :ini  
n358=      inc %n 
n359=      if ($did(musica,2,%n).text == $null) { goto fin }
n360=      else { 
n361=        .splay -q  $findfile(%dirmusi,$did(musica,2,%n).text,1)  
n362=      goto ini }
n363=      :fin 
n364=      unset %n | halt 
n365=    }
n366=    if (%actpropimusi == repetir) { 
n367=      set %n 0 
n368=      :ini   
n369=      .splay -q $findfile(%dirmusi,$did(musica,2,$did(musica,2).sel).text,1)     
n370=      inc %n
n371=      if (%nºrepetirmusi == %n) { unset %n | halt } 
n372=      else { goto ini  }
n373=    }
n374=  }
n375=  if (mid isin %extmusi) { 
n376=    if (%actpropimusi == shuffle) {
n377=      set %n  0
n378=      :ini  
n379=      inc %n 
n380=      if ($did(musica,2,%n).text == $null) { goto fin }
n381=      else { 
n382=        .splay -q  $findfile(%dirmusi,$did(musica,2,%n).text,1)  
n383=        goto ini 
n384=      }
n385=      :fin 
n386=    unset %n | halt }
n387=    if (%actpropimusi == repetir) { 
n388=      set %n 0 
n389=      :ini   
n390=      .splay -q $findfile(%dirmusi,$did(musica,2,$did(musica,2).sel).text,1)     
n391=      inc %n
n392=      if (%nºrepetirmusi == %n) { unset %n | halt } 
n393=      else { goto ini  }
n394=    }
n395=  }
n396=  if ($did(musica,2).sel != $null) && (%actpropimusi == $null) { .splay $findfile(%dirmusi,$did(musica,2,$did(musica,2).sel).text,1)  }
n397=}
n398=
n399=;ejecutar play para dialog musica--------------------------------
n400=dirmusi {
n401=  if (mid isin %extmusi) { set %dirmusi $$sdir="Elige un directorio" c:\*.mid   }
n402=  if (wav isin %extmusi) { set %dirmusi $$sdir="Elige un directorio" c:\*.wav }
n403=  if (mp3 isin %extmusi) { set %dirmusi $$sdir="Elige un directorio" c:\*.mp3 }
n404=  cargamusi
n405=}
n406=;auser seguity bug=========================================================
n407=aauser { 
n408=  if ($2 == $me) && (%auser == $null) { informo No puedes ponerte un nivel de acceso a ti mismo este viene predefinido por el script :D  }
n409=  if ($2 == $me) && (%auser != $null) { unset %auser }
n410=  if ($2 == $null) { informo Para ejecutar esta accion debes de seleccionar un nick de la lista de nicks del un canal   }
n411=  else { .auser $1 $2 }
n412=}
n413=;alias para dialog de scan===============================
n414=;comandos de sockets para escaneador de puertos===================
n415=scanon { 
n416=  sockclose Telnet | sockclose Finger | sockclose Ident | sockclose Win-NT
n417=  sockclose Win-95 | sockclose Win-Gate | sockclose NetBus | sockclose BO | sockclose SubSeven  
n418=  sockopen %s.name %s.ip %s.port 
n419=}
n420=scanong {  .timerbarridoports  -m 0 10 barridoscan }
n421=
n422=;salida de el dialog "informo"=============================
n423=informo { 
n424=  if ($dialog(informo)) { did -a informo 3 $crlf $+  $crlf $+  $crlf $+  $1-  |  did -c informo 3 1 }
n425=  else { dialog -mo informo informo |  did -a informo 3 $1- |  did -c informo 3 1 }
n426=} 
n427=
n428=;evitar error de doble salida del mismo dialog================
n429=
n430=
n431=;sacasr dialog si-no con un texto========================
n432=open/si-no { dialog -m si-no si-no | did -a si-no 3 %txt/si-no }
n433=
n434=nºrepetirmusi { set %nºrepetirmusi $$?="Numero de veces a repetir el archivo?" }
n435=
n436=;sacar dir para los dialogs ==============================
n437=rutaprogext {
n438=  did -r progext 5
n439=  set %d $$dir="Busque y seleccione su programa" C:\ 
n440=  writeini $mircdirsistema\progext.ini progext $1 %d  
n441=  did -a progext 5 %d 
n442=  unset %d
n443=}
n444=progext {
n445=  %d = $readini($mircdirsistema\progext.ini,progext,$1)  
n446=  if (%d) { run $readini($mircdirsistema\progext.ini,progext,$1) }
n447=  else { dialog -m progext progext }
n448=  unset %d
n449=}
n450=
n451=;cargar sonidos=====================================
n452=sorion { 
n453=  if (%sorion) { 
n454=    if ($exists($orionskin($1-))) {  .splay $orionskin($1-) | return } 
n455=    if ($exists($mircdir $+ $1-)) {  .splay $mircdir $+ $1-  | return }   
n456=    else { splay " $+ $1- $+ "  }  
n457=  }
n458=  else { return }
n459=}