[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=}