IRcap — File Browser
ircap871-mircscripts_2799 / ircap871-mircscripts_2799 / s / setup_escritu.mrc
setup_escritu.mrc — 11.81 KB — Download this file
;IRcap8 dbe2d410b5a00d815e6c317870c92576
alias -l S return $hget(setup,$1)
alias -l MG return $replace($readini(lng\ $+ %idioma $+ \setup.ini,setup,$1),&1,$2,&2,$3,&3,$4,&4,$5)
alias setescritu3 {
if $1 == 2 {
%setup.tmpknick1 = $gettok(%mod^ncomp,1,8)
%setup.tmpknick2 = $gettok(%mod^ncomp,2,8)
cuag @setup 152 228 224 48 $gettok(%gui.cc,1,32)
cuag @setup 132 92 268 152 gui $s(221)
%setup.ls1 = 412 96 136 13 1 0 NCOMPlistador @hash1
%setup.op = 144 108 #mod^ncomp $s(222)
%setup.tx = 288 152 100 setup.tmpknick1 $s(223) |288 196 100 setup.tmpknick2 $s(224)
%setup.bt = 140 192 88 cnctilo $s(225) |140 148 88 cncsepa $s(226) |444 288 76 NCOMPlistador_borra -|196 248 112 NCOMPlistador_guarda $s(227)
setscritulista nickc
ASCPREVIO nickc
}
if $1 == 3 {
cuagr @setup 156 100 340 123 $s(228)
cuagr @setup 328 124 96 40 $s(229)
cuagr @setup 428 124 96 36 $s(230)
cuag @setup 188 204 150 36 gui $s(231)
%setup.ls1 = 324 132 200 10 1 0 correc.s @hash1 0,100
%setup.op = 168 116 #mod^correc/cargacorrector $s(232) |168 140 corrector.may $s(233) |168 164 corrector.url $s(234)
%setup.bt = 204 212 33 correc.s_+ +|264 212 33 correc.s_- -
cargacorrector
setscritulista corrector
}
if $1 == 4 {
cuagr @setup 132 76 436 232
%setup.op = 148 96 #mod^conv $s(235)
%setup.tx = 180 190 336 setup.tmpconv $s(236) |268 268 60 dolar $s(237)
%setup.bt = 400 264 100 ircapweb_ayuda $s(281)
dibutext 320 @setup verdana 9 230 96 $s(239)
ASCPREVIO conv
}
if $1 == 5 {
ESTILOrvar
cuagr @setup 128 124 280 140 $s(240)
%setup.ls1 = 416 128 136 11 1 0 festilo_click @hash1
%setup.op = 136 80 #mod^ascii $s(241) |136 240 setup.tmpcolores/ESTILOpvar $s(242) |136 208 setup.tmpnegrita/ESTILOpvar $s(243) |220 208 setup.tmpsubraya/ESTILOpvar $s(244) |136 176 setup.tmpadorno/ESTILOpvar $s(245)
%setup.tx = 220 176 90 setup.tmpad1|312 176 90 setup.tmpad2|136 296 140 mod^estilo $s(246)
%setup.bt = 136 140 112 ESTILOT $s(247) |276 140 112 ESTILOC $s(248) |280 292 12 festilo_cambia !|456 292 20 festilo_+ +|500 292 20 festilo_- -|310 292 84 ircapweb_addons $s(249)
setscritulista ascii
DIBESTILO
}
muestrasetup
}
alias setscritulista {
goto $1
:NICKC
window -c @hash1 | window -hl @hash1 | var %f = usr/nickcompletion.txt | var %i = 1 | :L1
var %a = $read -l $+ %i %f | if %a != $null {
var %ez = nick
if ($gettok(%a,3,8) != off) { %ez = $ [ $+ [ $replace($ifmatch,<t>,%ez) ] ] }
%ez = $gettok(%a,1,8) $+ %ez $+ $+ $gettok(%a,2,8) $+
aline @hash1 %ez
inc %i | goto L1
}
return
:CORRECTOR | window -c @hash1 | window -hls @hash1 | var %i = 1 | :L2 | var %a = $hget(corrector,%i).item | if (!%a) { return } | aline @hash1 %a $+ $chr(8) $+ $hget(corrector,%a) | inc %i | goto L2
:ASCII
if (%exists(usr\ $+ %mod^estilo $+ .eti) == $false) { %mod^estilo = IRcapEstilos }
window -c @hash1 | window -hl @hash1
var %n = 1
:L3
var %a = $read -l $+ %n usr\ $+ %mod^estilo $+ .eti
if %a == $null return
var %t = $gettok(%a,10-,8)
%t = $replace(%t,$chr(44),$chr(30))
if ($gettok(%a,1,8) != off) { %t = $ [ $+ [ $replace($ifmatch,<t>,%t) ] ] }
if ($gettok(%a,2,8) != off) { %t = $ [ $+ [ $replace($ifmatch,<t>,%t) ] ] }
%t = $replace(%t,$chr(30),$chr(44))
if ($gettok(%a,3,8) == on) { var %b = $+ $gettok(%a,4,8) | if ($gettok(%a,5,8) != off) { %b = %b $+ , $+ $ifmatch } | %t = %b $+ %t }
if ($gettok(%a,6,8) != off) { %t = $ifmatch $+ %t }
if ($gettok(%a,7,8) == on) { %t = $gettok(%a,8,8) $+ %t $+ $+ $gettok(%a,9,8) }
aline @hash1 %t
inc %n | goto L3
}
alias ASCPREVIO {
goto $1
:nickc
%setup.tmpknick1 = $gettok(%mod^ncomp,1,8)
%setup.tmpknick2 = $gettok(%mod^ncomp,2,8)
var %ez = nick
if ($gettok(%mod^ncomp,3,8) != off) { %ez = $ [ $+ [ $replace($ifmatch,<t>,%ez) ] ] }
%ez = $gettok(%mod^ncomp,1,8) $+ %ez $+ $+ $gettok(%mod^ncomp,2,8) $+
cuagr @setup 225 102 168 26
drawrect -fn @setup $colour(backgr) 1 232 108 156 16
drawtext -cpbn @setup 1 $colour(backgr) Tahoma 11 236 108 150 16 %ez
.timer -m 1 100 drawline @setup
return
:conv
cuag @setup 180 210 336 20 $gettok(%gui.cc,1,32) | if %setup.tmpconv == $null return
drawtext -crn @setup $gettok(%gui.cc,2,44) verdana 10 184 214 330 24 $strip($uniconv($replace(%setup.tmpconv,$chr(32),&))) | return
:ascii
}
alias CNCTILO smenu cnctilo2 100 $mg(est1)
alias CNCTILO2 {
var %e = off qq1(<t>) mcolor(<t>) rr1(<t>) mcolor($ $+ rr1(<t>)) ddd(<t>) ll1(<t>) mm1(<t>) tt1(1,<t>) tt1(2,<t>) tt1(3,<t>) tt1(4,<t>) tt1(5,<t>)
%mod^ncomp = $puttok(%mod^ncomp,$gettok(%e,$1,32),3,8)
ascprevio nickc
}
alias CNCSEPA smenu cncsepa2 100 $mg(est0) $+ ><((((º>(¯`·. .·´¯)( : : [] : : )<@ @>7°UP~~(¸¸ ¸¸ºº> Fairy þ·<{ }>·.oO Oo.[ TNT ]---`,'.-·.¸¸.·´¯`>
alias CNCSEPA2 {
.timer -m 1 50 ascprevio nickc | .timer -m 1 100 guidibtx @setup %setup.tx
goto $$1
:1 | %mod^ncomp = 4[4]off | return
:2 | %mod^ncomp = 12><((312((º>off | return
:3 | %mod^ncomp = 4(¯`·.73.·´¯)off | return
:4 | %mod^ncomp = 0,7( : : [0,7] : : )15,15·off | return
:5 | %mod^ncomp = 7,1<4@ 9 4,1 @7>15,15·off | return
:6 | %mod^ncomp = 0,150,3 74°0 0,3 0,15off | return
:7 | %mod^ncomp = 5~~( 5)ºº>off | return
:8 | %mod^ncomp = 0,158,3 3,3 3,0þoff | return
:9 | %mod^ncomp = 6·7<4{64}7>6·off | return
:10 | %mod^ncomp = 1.10o12O 412 O10o1.off | return
:11 | %mod^ncomp = 4[0,4 80,4 4]1---4`,'.7-off | return
:12 | %mod^ncomp = 4 ·.¸¸.·´¯`>off | return
}
alias NCOMPlistador {
if $1 == guarda { write usr\nickcompletion.txt %mod^ncomp | setscritulista nickc | muestrasetup | return }
if $1 == borra { write -dl $+ $sline(@hash1,1).ln usr\nickcompletion.txt | setscritulista nickc | muestrasetup | return }
if $1 == 2 { %mod^ncomp = $read(usr\nickcompletion.txt,$sline(@hash1,1).ln) | setescritu3 2 | return }
}
alias CORREC.s {
goto $1
:1 | return
:2 | return
:+ | var %a = $$?=" $mg(correc1) " | var %b $$?=" $mg(correc2) " | hadd corrector $gettok(%a,1,32) %b | goto ref
:- | if $slinean(%setup.ls1) < 1 return | hdel corrector $gettok($slinea(%setup.ls1),1,8) | goto ref
:ref | ggguilista reset @setup setup.ls1 | setscritulista corrector | guidibbt @setup %setup.bt | hsave -o corrector usr/corrector.hash | muestrasetup | return
}
alias CONVER {
}
alias DIBESTILO {
var %x = 220 , %y = 90
var %t = Texto de Prueba 123
%t = $replace(%t,$chr(44),$chr(30))
if ($gettok(%mod^texto,1,8) != off) { %t = $ [ $+ [ $replace($ifmatch,<t>,%t) ] ] }
if ($gettok(%mod^texto,2,8) != off) { %t = $ [ $+ [ $replace($ifmatch,<t>,%t) ] ] }
%t = $replace(%t,$chr(30),$chr(44))
if ($gettok(%mod^texto,3,8) == on) { var %a = $+ $gettok(%mod^texto,4,8) | if ($gettok(%mod^texto,5,8) != off) { %a = %a $+ , $+ $ifmatch } | %t = %a $+ %t }
if ($gettok(%mod^texto,6,8) != off) { %t = $ifmatch $+ %t }
if ($gettok(%mod^texto,7,8) == on) { %t = $gettok(%mod^texto,8,8) $+ %t $+ $+ $gettok(%mod^texto,9,8) }
cuagi @setup $calc(%x - 10) $calc(%y - 18) 362 42 gui
drawrect -fn @setup $colour(backgr) 1 %x %y 344 20
drawtext -cpbn @setup 1 $colour(backgr) Tahoma 11 $calc(%x + 6) $calc(%y + 3) 332 14 %t
drawtext -crn @setup $gettok(%gui.cc,2,44) verdana 10 $calc(%x + 6) $calc(%y - 16) 240 24 Estilo: $gettok(%mod^texto,10-,8)
DIBCOLORES
}
alias ESTILOT {
if $1 != $null {
var %mod = offçrr1(<t>)çqq1(<t>)çmalaorto(<t>)çddd(<t>)çmm1(<t>)
%mod^texto = $gettok(%mod,$1,231) $+ $chr(8) $+ $deltok(%mod^texto,1,8)
dibestilo | drawline @setup
return
}
smenu estilot 90 $mg(est2)
}
alias ESTILOC {
if $1 != $null {
var %mod = offçmcolor(<t>)çll1(<t>)çtt1(1,<t>)çtt1(2,<t>)çtt1(3,<t>)çtt1(4,<t>)çtt1(5,<t>)
%mod^texto = $puttok(%mod^texto,$gettok(%mod,$1,231),2,8)
dibestilo | drawline @setup
return
}
smenu estiloc 100 $mg(est3)
}
alias ESTILOrvar {
%setup.tmpcolores = $gettok(%mod^texto,3,8)
%setup.tmpadorno = $gettok(%mod^texto,7,8)
%setup.tmptinta = $gettok(%mod^texto,4,8)
%setup.tmpfondo = $gettok(%mod^texto,5,8)
%setup.tmpnegrita = off | if ( isin $gettok(%mod^texto,6,8)) { %setup.tmpnegrita = on }
%setup.tmpsubraya = off | if ( isin $gettok(%mod^texto,6,8)) { %setup.tmpsubraya = on }
%setup.tmpad1 = $gettok(%mod^texto,8,8)
%setup.tmpad2 = $gettok(%mod^texto,9,8)
}
alias ESTILOpvar {
if (%setup.tmpad1 == $null) { %setup.tmpad1 = }
if (%setup.tmpad2 == $null) { %setup.tmpad2 = }
%mod^texto = $puttok(%mod^texto,%setup.tmpcolores,3,8)
%mod^texto = $puttok(%mod^texto,%setup.tmpadorno,7,8)
%mod^texto = $puttok(%mod^texto,%setup.tmpad1,8,8)
%mod^texto = $puttok(%mod^texto,%setup.tmpad2,9,8)
%mod^texto = $puttok(%mod^texto,%setup.tmptinta,4,8)
%mod^texto = $puttok(%mod^texto,%setup.tmpfondo,5,8)
var %a = off | if %setup.tmpnegrita == on { %a = } | if %setup.tmpsubraya == on { %a = $remove(%a,off) $+ } | %mod^texto = $puttok(%mod^texto,%a,6,8)
dibestilo | drawline @setup
}
alias DIBCOLORES {
var %x = 240 , %y = 240
if ($gettok(%mod^texto,5,8) == off) { drawrect -efnr @setup $gettok(%gui.cc,1,32) 1 %x %y 28 16 | drawrect -en @setup $gettok(%mod^texto,4,8) 1 %x %y 28 16 } | else drawrect -efn @setup $gettok(%mod^texto,5,8) 1 %x %y 28 16
drawrect -efn @setup $gettok(%mod^texto,4,8) 1 $calc(%x + 6) $calc(%y + 3) 10 10
}
alias CAMBIACOLOR {
if $1 == 1 {
var %a = $$?=" $mg(color1,%setup.tmptinta) " | %setup.tmptinta = $right(00 $+ %a,2)
}
if $1 == 2 {
var %a = $?=" $mg(color2,%setup.tmpfondo) "
if (%a != $null) { %setup.tmpfondo = $right(00 $+ %a,2) }
else { %setup.tmpfondo = off }
}
estilopvar | diBcolores | drawline @setup
}
alias FESTILO {
goto $1
:+ | var %a = $$?=" $mg(nestil) " | write "usr\ $+ %mod^estilo $+ .eti" $puttok(%mod^texto,%a,10,8) | setscritulista ascii | muestrasetup | return
:- | if $sline(@hash1,1).ln { write -dl $+ $ifmatch "usr\ $+ %mod^estilo $+ .eti" | setscritulista ascii | muestrasetup } | return
:cambia | var %a = $dir=" $mg(efic) " [ usr\*.eti ] | if (%a != $null) { %mod^estilo = $gettok($nopath(%a),1,46) | setscritulista ascii | muestrasetup } | return
:click | if $2 == 2 { %mod^texto = $read -l $+ $sline(@hash1,1).ln usr\ $+ %mod^estilo $+ .eti | estilorvar | dibestilo | muestrasetup } | return
:borra | write -dl $+ $sline(@estilostexto,1).ln usr\ $+ %mod^estilo $+ .eti | setscritulista ascii
}
alias MODOENCRIPTO {
return
if $group(#encripto) == off { unset %ncrip | return }
encrip $$?="Activar encriptador en qué ventana (nick o #canal) ?"
}
alias PONTIMESTAMP {
if $1 == $null { smenu pontimestamp 140 Timestamp Global ( on )------------------------Timestamp Global ( off ) | return }
if $1 == 1 { timestamp on }
if $1 == 3 { timestamp off }
}
alias cargacorrector if (!$hget(corrector)) { hmake corrector | hload corrector usr/corrector.hash }
on 1:signal: setupedit: {
if (tma. isin $1) && (tma.tab !isin $1) ASCDIBNICK
if setup.tmpknick isin $1 { if %setup.tmpknick1 == $null { %setup.tmpknick1 = [ } | if %setup.tmpknick2 == $null { %setup.tmpknick2 = ] } | %mod^ncomp = %setup.tmpknick1 $+ $chr(8) $+ %setup.tmpknick2 $+ $chr(8) $+ $gettok(%mod^ncomp,3,8) | ascprevio nickc }
if setup.tmpconv isin $1 { ASCPREVIO conv | drawline @setup }
if (setup.tmpad isin $1) { ESTILOpvar }
if ($1 == mod^estilo) { setscritulista ascii | muestrasetup }
}
on 1:signal: setupclick: {
if (%apartado == setescritu) {
if ($gettok(%setup.pñ1,3,32) == 5) {
var %x = 240 , %y = 240
if $inrect($1,$2,246,244,10,10) == $true { cambiacolor 1 }
else if $inrect($1,$2,256,240,28,15) == $true { cambiacolor 2 }
}
}
}
;EOF-dt