IRcap — File Browser
ircap871-mircscripts_2799 / ircap871-mircscripts_2799 / s / setup.mrc
setup.mrc — 25.56 KB — Download this file
;IRcap8 cfc7b47003328f3b6ad0d61a5da6c584
on 1:load: vsetup
alias vsetup {
unset %setup.*
if (!$1) { window -c @setup | window -kpBhi +d @setup $cvent(594,335) @GUIMGEN }
.hmake -s setup | hload setup "lng\ $+ %idioma $+ \setup.lnh"
%setup.fondo = " $+ $mircdirskin\ $+ %skin $+ \setup.png"
drawpic -cn @setup 0 0 %setup.fondo
%setup.m = $s(m1) $+ setgeneral| $+ $s(m2) $+ setprotec| $+ $s(m3) $+ setaway| $+ $s(m4) $+ setskins| $+ $s(m5) $+ setsonido| $+ $s(m6) $+ setdcc| $+ $s(m7) $+ setescritu| $+ $s(m8) $+ setnetw| $+ $s(m9) $+ setvarios $+ %modsetup
if $isalias(%apartado) { %apartado } | else { .load -rs mod/ $+ $remove(%apartado,setup_) $+ / $+ %apartado $+ .mrc | %apartado }
%setup.cleartypebug = 1
setupmenu.dib %apartado
window -wa @setup
unset %tiksetup
if (!$1) { sss wina }
window -r @setup
}
alias -l S return $hget(setup,$1)
alias SETUPMENU.DIB {
var %colt = $gettok(%gui.cc,10,44) , %col1 = $gettok(%gui.cc,11,44) , %col2 = $gettok(%gui.cc,12,44)
var %l = $int($calc(256 / $numtok(%setup.m,124))) , %y = 60 , %i = 1 , %l2 = $calc((%l / 2) -6)
:L1
var %a = $gettok(%setup.m,%i,124) | if (!%a) { unset %setup.cleartypebug | return }
var %t = $gettok(%a,1,22)
if ($1 == $gettok(%a,2,22)) { kua @setup 24 %y 76 $calc(%l - 1) %col2 %col1 - } | else { kua @setup 24 %y 76 $calc(%l - 1) %col1 %col2 - }
if (%setup.cleartypebug) { var %w = $width(%t,verdana,9,1) | %w = $calc(52 - (%w / 2)) | drawtext -ron @setup %colt verdana 9 $calc(10 + %w) $calc(%y + %l2) %t }
inc %i | inc %y %l | goto L1
}
alias SETUPMENU.PUS {
if $inrect($mouse.x,$mouse.y,24,60,76,254) == $false return
var %l = $int($calc(256 / $numtok(%setup.m,124)))
var %i = $int($calc(($mouse.y - 60) / %l + 1))
if %i > $numtok(%setup.m,124) { %i = $numtok(%setup.m,124) }
%apartado = $gettok($gettok(%setup.m,%i,124),2,22)
setupmenu.dib %apartado | drawline @setup
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls* %setup.pñ* %setup.nlis %setup.tmp*
if $isalias(%apartado) { %apartado } | else { .load -rs mod/ $+ $remove(%apartado,setup_) $+ / $+ %apartado $+ .mrc | %apartado }
}
alias setGENERAL {
%setup.tmp1 = $iif(i isincs %umode,on,off)
%setup.tmp2 = $iif(w isincs %umode,on,off)
%setup.tmp3 = $iif(s isincs %umode,on,off)
%setup.tmpmox = $removecs(%umode,i,w,s)
%setup.tmpnic = $me
setup.cls
cuagr @setup 120 44 456 276
cuar @setup 136 60 215 115 - $s(1)
cuar @setup 136 176 215 96 -
cuar @setup 352 60 208 212 -
cuagi @setup 136 288 100 20 gui
cuagi @setup 248 288 100 20 gui
cuagi @setup 360 288 100 20 gui
%setup.op = 148 72 setup.tmp1/pmodo_i $s(2) |148 92 setup.tmp2/pmodo_w $s(3) |148 112 setup.tmp3/pmodo_s $s(4) |144 184 priv.no $s(5) |372 72 mlag/midelag_ex $s(6) |372 96 noidle $s(7) |372 120 ctcp.cloak $s(8) |372 144 #cuac $s(9) |372 168 reloca $s(10)
%setup.tx = 148 224 188 raznopriv $s(11) |164 148 48 setup.tmpmox $s(12) |304 248 30 lim_priv $s(13) |244 88 76 setup.tmpnic $s(14)
%setup.bt = 492 288 55 ircapweb_ayuda $s(15) |324 84 8 sgen_enic !
muestrasetup
}
alias setPROTEC {
setup.cls
%setup.pñ1 = 134 60 1 setProte2 $s(16) $+ $+ $s(17) $+ $gettok(%tabsetup.protec,1,124)
setprote2 1
}
alias setprote2 {
cuag @setup 122 60 458 262 $gettok(%gui.cc,1,32) | pestana @setup setup.pñ1
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls1 %setup.nlis
if $1 == 1 {
cuagr @setup 132 84 196 116 $s(18)
cuagr @setup 132 220 196 92 $s(19)
cuagr @setup 340 84 228 56 $s(20)
cuagr @setup 340 160 228 40 $s(21)
%setup.op = 144 96 pflood CTCP $s(22) |144 236 pflood.sil $s(23) |144 260 pflood.tsu $s(24) |144 284 pflood.tfn $s(25) |144 116 pflood.t $s(26) |144 136 pflood.d $s(27) |144 156 pflood.q $s(28) |144 176 pflood.2 $s(29) |352 96 pflood.ban $s(30) |352 116 pflood.bot $s(31)
%setup.tx = 384 176 164 pflood.no $s(32)
%setup.bt = 344 292 208 ircapweb_ayuda $s(33)
}
if $1 == 2 {
%setup.ls1 = 244 100 116 9 1 0 return @hash1 | window -c @hash1 | window -hls @hash1
cuagr @setup 132 84 264 224 $s(34)
cuagr @setup 400 84 168 224 $s(35)
cuagi @setup 140 264 244 36 gui $s(36)
%setup.op = 148 100 spam.usa $s(37) |148 130 spam.jix $s(38) |412 280 spam.quit $s(39) |152 276 spam.log $s(40) |412 96 spam.sex $s(41)
%setup.bt = 312 232 12 sgen_spam_+ +|348 232 12 sgen_spam_- -|228 272 52 vlog_spam $s(42) |304 272 56 write_-c_logs\spam.log $s(43)
var %i = $numtok(%spam.txt,22) | while (%i > 0) { aline @hash1 $gettok(%spam.txt,%i,22) | dec %i }
.timer -m 1 50 dibutext 140 @setup verdana 9 416 120 $s(45)
}
muestrasetup
}
alias setAWAY {
setup.cls
%setup.pñ1 = 134 60 1 setAway2 $s(46) $+ $+ $s(47) $+ $gettok(%tabsetup.away,1,124)
setaway2 1
}
alias SetAway2 {
%setup.tmp1 = off | unset %setup.tmp2 | %setup.tmp3 = $s(48) | if ($away) { %setup.tmp3 = $s(49) }
cuag @setup 122 60 458 262 $gettok(%gui.cc,1,32) | pestana @setup setup.pñ1
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls1 %setup.nlis
if $1 == 1 {
cuagr @setup 132 80 268 132
%setup.ls1 = 360 72 192 14 1 0 sgenaway @hash1
%setup.op = 144 88 away.cnick $s(50) |144 128 away.deop $s(51) |144 108 away.noti $s(52) |136 296 setup.tmp1 $s(53) |144 148 away.anun $s(54) |144 168 away.con $s(55) |144 188 away.nosoun $s(267)
%setup.tx = 252 88 80 away.nick|412 276 160 setup.tmp2 $s(56)
%setup.bt = 484 296 76 sgenAway %setup.tmp3 |360 296 8 sgen_rawa+ +|384 296 8 sgen_rawa- -|408 296 40 sgen_rawaed $s(57)
window -c @hash1 | window -hls @hash1 | var %f = usr/away.txt | if $file(%f).size != $null { var %i = 1 | :L1 | var %a = $read -l $+ %i %f | if %a != $null { aline @hash1 %a | inc %i | goto L1 } }
}
if $1 == 2 {
cuagr @setup 132 80 440 65 $s(58)
cuagr @setup 132 144 440 109 $s(59)
cuagr @setup 132 252 440 60 $s(60)
%setup.op = 140 156 away.anun $s(61) |140 92 away.con $s(62) |144 288 away.tray $s(63)
%setup.tx = 292 156 30 away.seg $s(64) |216 108 200 razcontes $s(65) |140 196 200 away.tx1 $s(66) |140 212 200 away.tx2|364 176 200 away.canal $s(67) |364 212 200 away.canalno $s(68) |268 260 32 autoaw $s(69) |364 276 200 away.aum $s(70)
%setup.bt = 428 104 55 vlog_contestador.log $s(71) |504 104 48 write_-c_logs\contestador.log $s(72) |312 256 20 sgen_awayoff $s(73)
}
muestrasetup
}
alias setSKINS {
setup.cls
%setup.skin.tm = on | %setup.skin.w = on | %setup.skin = %skin
%setup.wd = off | if (%wdonde == -a) { %setup.wd = on }
%setup.pñ1 = 134 60 1 setSKINS2 $s(74) $+ $+ $s(75) $+ $+ $s(76) $+ $+ $s(77) $+ $+ $s(78) $+ $+ $s(283) $+ $+ $+ $s(79) $+ $gettok(%tabsetup.skins,1,124)
setskins2 1
if (!$isalias(setSKINS3)) { .load -rs s/setup_skins.mrc }
}
alias setSKINS2 {
.timerINFOSKIN off
cuag @setup 122 60 458 262 $gettok(%gui.cc,1,32) | pestana @setup setup.pñ1
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls1 %setup.nlis %setup.pñ2
if $1 == 1 {
cuagr @setup 136 84 220 224 $s(80)
cuagr @setup 372 84 196 112 $s(81)
%setup.op = 148 220 #hotlwhois $s(82) |384 216 @noti/sskin_snoti $s(84) |148 148 focus $s(85) |148 172 priv.bu $s(86) |148 196 nlaccion $s(87) |148 124 #paner/sskin_paner $s(88) |148 244 tttip Tooltips|384 100 m.w $s(89) |384 124 m.ni $s(90) |384 148 m.n $s(91) |384 172 m.c $s(92)
%setup.tx = 384 252 168 sfiltro $s(93)
%setup.bt = 380 288 164 cambiafuente $s(94)
var %a = %modoventana , %b = $gettok($s(299),1,22) | if %a == mix { %b = $gettok($s(299),2,22) } | if %a == max { %b = $gettok($s(299),3,22) } | if %a == maxT { %b = $gettok($s(299),4,22) } | %setup.modven = %b
%setup.cb = 240 98 100 setup.modven $s(299) $+ $+ $s(300)
muestrasetup
}
if ($1 > 1) {
if ($1 <= 7) { setskins3 $1 }
else { var %tab = $gettok($gettok(%tabsetup.skins,2,124),$calc($1 - 7),22) | if $isalias(%tab) { %tab } | else { .load -rs mod/ $+ $remove(%tab,setup_) $+ / $+ %tab $+ .mrc | %tab } }
}
}
alias setSONIDO {
setup.cls
%setup.pñ1 = 134 60 1 setSonido2 $s(95) $+ $gettok(%tabsetup.sonido,1,124)
setsonido2 1
}
alias setsonido2 {
cuag @setup 122 60 458 262 $gettok(%gui.cc,1,32) | pestana @setup setup.pñ1
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls1 %setup.nlis
if $1 == 1 {
cuagi @setup 136 84 432 80 gui $s(96)
cuagi @setup 136 260 432 48 gui $s(97)
cuagi @setup 136 180 432 64 gui $s(98)
%setup.op = 148 96 sloc $s(99)
%setup.tx = 232 140 204 setup.tmp1 $s(100) |236 196 204 dir.audio $s(101) |236 216 204 dir.video $s(102)
%setup.bt = 364 276 84 setup.snd_guarda $s(103) |244 276 84 setup.snd_lee $s(104) |440 136 8 setup.snd_elige \|476 136 8 setup.snd_oir >|444 212 8 elid_dir.video \|444 192 8 elid_dir.audio \
var %n = $mg(slocal) , %a = bip,clon,ctcp,cuac,fallo,flod,join,clik,kick,cae,op,deop,priv,send,login,noti,ini,wina,winc , %i = 1 , %r
while ($gettok(%a,%i,44)) { %r = %r $+ $gettok(%n,%i,44) : $gettok(%a,%i,44) $+ | inc %i }
%setup.cb = 232 120 160 setup.tmpevento %r $+ $+ $s(264)
}
if $1 > 1 {
var %tab = $gettok($gettok(%tabsetup.sonido,2,124),$calc($1 - 1),22) | if $isalias(%tab) { %tab } | else { .load -rs mod/ $+ $remove(%tab,setup_) $+ / $+ %tab $+ .mrc | %tab }
}
muestrasetup
}
alias setDCC {
setup.cls
%setup.pñ1 = 134 60 1 setdcc2 DCC $+ $s(107) $+ $gettok(%tabsetup.dcc,1,124)
setDCC2 1
}
alias setDCC2 {
cuag @setup 122 60 458 262 $gettok(%gui.cc,1,32) | pestana @setup setup.pñ1
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls* %setup.nlis %setup.pñ2
if $1 == 1 {
%setup.dcc1 = off | if ($gettok($readini(mirc.ini,dccserver,n0),1,44) == 1) { %setup.dcc1 = on }
%setup.dcc2 = off | if ($passivedcc) { %setup.dcc2 = on }
cuagi @setup 130 74 248 176 gui $s(105)
%setup.ls1 = 140 106 52 8 1 0 setup.dcc @hash1 | window -c @hash1
%setup.ls2 = 218 106 52 8 1 0 setup.dcc @hash2 | window -c @hash2
%setup.ls3 = 296 106 52 8 1 0 setup.dcc @hash3 | window -c @hash3
%setup.op = 138 86 dcc.osi $s(108) |216 86 dcc.ono $s(109) |294 86 dcc.onos $s(110) |394 150 viserv $s(114) |394 170 dcc.query $s(115) |394 190 dcc.repide $s(116) |394 210 setup.dcc1/setup.dcc_mirc $s(111) |394 230 setup.dcc2/setup.dcc_pasv $s(295) |394 250 #dccque $s(294)
%setup.tx = 340 272 38 dcv.max $s(121) |340 292 38 dcv.min $s(122)
%setup.bt = 140 222 10 setup.dcc_d1_+ +|170 222 10 setup.dcc_d1_- -|218 222 10 setup.dcc_d2_+ +|248 222 10 setup.dcc_d2_- -|296 222 10 setup.dcc_d3_+ +|326 222 10 setup.dcc_d3_- -
%setup.cb = 394 86 130 dcc.auto $s(124) $+ $+ $s(125) |394 124 130 dcc.autoe $s(126) $+ ! $+ $s(127)
}
if $1 == 2 {
cuagr @setup 280 200 236 82
%setup.ls1 = 136 86 410 9 1 0 colaclik @hash1 0,22,100,348 | window -c @hash1 | window -hl @hash1
guitgrid @setup %setup.ls1 # $+ $s(293)
setupdccola | .timerSETUP.dccola -oi 0 3 setupdccola
%setup.tx = 230 230 24 fsn $s(117) |230 250 24 fsnu $s(118) |230 276 24 dcque.max $s(119) |230 296 24 dcque.umax $s(120) |472 296 44 dcv.tmin $s(296)
%setup.bt = 300 224 50 setupccola_su $s(212) |300 248 50 setupccola_ba $s(213) |400 224 80 setupccola_- $s(291) |400 248 80 setupccola_-- $s(292)
}
if $1 > 2 {
var %tab = $gettok($gettok(%tabsetup.dcc,2,124),$calc($1 - 2),22) | if $isalias(%tab) { %tab } | else { .load -rs mod/ $+ $remove(%tab,setup_) $+ / $+ %tab $+ .mrc | %tab }
}
muestrasetup
if $1 == 1 setup.dcc listas
}
alias setupdccola {
if (colaclik !isin %setup.ls1) { .timerSETUP.dccola off | return }
var %s = $sline(@hash1,1) , %i = 1 | clear @hash1
while ($line(@dccola,%i)) {
var %l = $ifmatch
aline @hash1 %i $+ $chr(8) $+ $gettok(%l,1,32) $+ $chr(8) $+ $nopath($gettok(%l,3-,32)) $+ $chr(8) $+ $replace($duration($calc($ctime - $gettok(%l,2,32))),mins,m,min,m,hrs,h,hr,h,secs,s,sec,s)
inc %i
}
if (%s) sline @hash1 %s
guilista @setup setup.ls1 | drawline @setup
}
alias colaclik {
var %a = $sline(@hash1,1).ln | if (!%a) return
if $1 == 1 .timerSETCO -m 1 300 tttip $gettok($line(@dccola,%a),3-,32)
if $1 == 2 { .timerSETCO off | var %f = $gettok($line(@dccola,%a),3-,32) | if ($right(%f,4) isin .mp3 .wav .mid .wma .ogg) { zplay - %f } | else rrun %f }
}
alias setupccola {
goto $1
:su | var %a = $sline(@hash1,1).ln | if %a > 1 { var %b = $line(@dccola,%a) | dline @dccola %a | iline @dccola $calc(%a - 1) %b | sline @hash1 $calc(%a - 1) } | goto f
:ba | var %a = $sline(@hash1,1).ln | if %a < $line(@hash1,0) { var %b = $line(@dccola,%a) | dline @dccola %a | iline @dccola $calc(%a + 1) %b | sline @hash1 $calc(%a + 1) } | goto f
:- | var %a = $sline(@hash1,1).ln | if (%a) { dline @dccola %a | sline -r @hash1 } | goto f
:-- | window -c @dccola
:f | setupdccola
}
alias setNETW {
%setup.tmp.red = $nnet
setup.cls
%setup.pñ1 = 134 60 1 setred2 $s(129) $+ $+ $s(130) $+ $+ $s(131) $+ $+ $s(132) $+ $gettok(%tabsetup.red,1,124)
setRed2 1
if (!$isalias(setRed3)) { .load -rs s/setup_red.mrc }
setup.net listared
%setup.cb = 144 85 120 setup.tmp.red %setup.tredes $+ $+ $s(133)
setup.net lee
}
alias setred2 {
cuag @setup 122 60 458 262 $gettok(%gui.cc,1,32) | pestana @setup setup.pñ1
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls1 %setup.nlis
if $1 == 1 {
cuagr @setup 132 188 252 104 $s(134)
cuagr @setup 132 116 252 60
cuagr @setup 132 68 440 40
%setup.op = 400 132 autobot $s(135) |400 152 bot.prv $s(136) |400 192 bot.def $s(301)
%setup.tx = 228 124 116 setup.tmp.botnombre $s(137) |252 140 92 setup.tmp.botfic $s(138) |252 156 92 setup.tmp.botpopup $s(140) |244 196 128 setup.tmp.botip $s(139) |220 216 152 setup.tmp.botn $s(141) |220 232 152 setup.tmp.botc $s(142) |220 248 152 setup.tmp.botm $s(143) |220 268 152 setup.tmp.botiden $s(144)
%setup.bt = 284 80 55 setup.net_nueva $s(145) |360 80 55 setup.net_borra $s(146) |132 296 240 setup.net_guarda $s(147) |348 136 8 setup.net_elinb \|472 296 84 ircapweb_ayuda $s(148)
%setup.cb = 144 85 120 setup.tmp.red %setup.tredes $+ $+ $s(133)
if ($isalias(setup.net)) setup.net lee
muestrasetup
}
if ($1 > 1) {
if ($1 <= 4) { setred3 $1 }
else { var %tab = $gettok($gettok(%tabsetup.red,2,124),$calc($1 - 4),22) | if $isalias(%tab) { %tab } | else { .load -rs mod/ $+ $remove(%tab,setup_) $+ / $+ %tab $+ .mrc | %tab } }
}
}
alias setVARIOS {
setup.cls
%setup.pñ1 = 134 60 1 setvarios2 $s(149) $+ $+ $s(150) $+ $gettok(%tabsetup.varios,1,124)
%setup.tmp.iditx = on
setvarios2 1
}
alias setvarios2 {
cuag @setup 122 60 458 262 $gettok(%gui.cc,1,32) | pestana @setup setup.pñ1
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls* %setup.nlis %setup.pñ2
if $1 == 1 {
cuag @setup 136 80 203 159 gui $s(151)
cuag @setup 136 240 203 72 gui $s(152)
cuag @setup 340 80 228 232 gui
cuari @setup 352 264 204 40 gui $s(153)
%setup.op = 148 248 au.op $s(154) |148 266 au.ba $s(155) |252 248 au.vo $s(156) |252 266 au.sh $s(157) |148 284 au.mop $s(158) |148 92 reban $s(159) |148 112 takop $s(160) |148 132 #contadorkicks $s(161) |348 160 tipofday $s(279)
%setup.tx = 284 172 30 ial.lim $s(162) |284 132 30 cckik|244 148 70 cckikt $s(163) |504 132 30 tsigue $s(164) |348 104 188 avp $s(165)
%setup.bt = 152 196 152 sgen_ccfg $s(166) |252 284 55 sgen_ulista $s(167) |540 100 8 elif_avp \|368 276 64 cfgguarda $s(168) |464 276 64 cfgrecup $s(169)
}
if $1 == 2 {
cuag @setup 132 92 416 148 gui Selecciona idioma - Select language - ....
%setup.ls1 = 144 112 116 8 1 0 sgen_idioma @hash1 0,24
%setup.op = 140 260 setup.tmp.iditx $s(265)
%setup.bt = 140 290 164 ircapweb_lang $s(266)
window -c @hash1 | window -hls @hash1 | var %i = 1 | :L1
var %a = $finddir($mircdirlng,*.,%i,1) | if (%a) {
aline -l @hash1 $nopath(%a) $+ $chr(8) $readini(%a $+ \ $+ $nopath(%a) $+ .id,lang,name) | inc %i | goto L1
}
guilista @setup setup.ls1
sgen idioma 1 1 %idioma
}
if $1 > 2 {
var %tab = $gettok($gettok(%tabsetup.varios,2,124),$calc($1 - 2),22) | if $isalias(%tab) { %tab } | else { .load -rs mod/ $+ $remove(%tab,setup_) $+ / $+ %tab $+ .mrc | %tab }
}
muestrasetup
}
alias SETESCRITU {
setup.cls
%setup.pñ1 = 134 60 1 setEscritu2 $s(170) $+ $+ $s(171) $+ $+ $s(172) $+ $+ $s(173) $+ $+ $s(174) $+ $gettok(%tabsetup.escritu,1,124)
setEscritu2 1
%setup.tmpconv = 10 dolares
if (!$isalias(setescritu3)) { .load -rs s/setup_escritu.mrc }
}
alias setescritu2 {
cuag @setup 122 60 458 262 $gettok(%gui.cc,1,32) | pestana @setup setup.pñ1
unset %setup.bt %setup.op %setup.tx %setup.cb %setup.ls1 %setup.nlis
if $1 == 1 {
cuagr @setup 132 84 176 228
cuagr @setup 316 84 252 64 $s(175)
cuagr @setup 316 164 252 68 $s(176)
cuagr @setup 316 248 252 64
%setup.op = 140 100 #mod^correc/cargacorrector $s(177) |140 124 #mod^conv $s(178) |140 148 #mod^crip/modoencripto $s(179) |140 172 #mod^ncomp $s(180) |140 196 #mod^ascii $s(181) |328 180 #mi^nick $s(182) |464 288 nick@ $s(183)
%setup.tx = 340 124 30 tma.n1 <|396 124 30 tma.n2 @|464 124 30 tma.n3 $s(184) |524 124 30 tma.n4 >|524 264 30 tma.tab $s(185) |340 208 30 tma.m1 <|396 208 30 tma.m2 @|464 208 30 tma.m3 $s(184) |524 208 30 tma.m4 >
%setup.bt = 140 244 144 cambiafuente $s(94) |140 276 144 pontimestamp $s(186)
ASCDIBNICK 1
muestrasetup
}
if ($1 > 1) {
if ($1 <= 5) { setescritu3 $1 }
else { var %tab = $gettok($gettok(%tabsetup.escritu,2,124),$calc($1 - 5),22) | if $isalias(%tab) { %tab } | else { .load -rs mod/ $+ $remove(%tab,setup_) $+ / $+ %tab $+ .mrc | %tab } }
}
}
alias SCLICK.@setup {
SETUPMENU.PUS
if %setup.nlis != $null {
var %x = $gettok(%setup.tmp1,1,32) , %y = $gettok(%setup.tmp1,2,32)
if $inrect($mouse.x,$mouse.y,%x,%y,100,160) {
%setup.nlw = $int($calc(($mouse.y - %y + 14) / 14)) | if %setup.nlw < 1 { %setup.nlw = 1 } | if %setup.nlw > 11 { %setup.nlw = 11 } | DIBNLIST
}
if $inrect($mouse.x,$mouse.y,$calc(%x + 116),%y,10,160) {
var %c = $int($calc(($mouse.y - %y) / 10))
if %setup.nlw == 11 { colour listbox text %c }
else { %skinl = $puttok(%skinl,%c,%setup.nlw,44) | tematxt cnick }
dibnlist
}
}
.signal -n SETUPCLICK $mouse.x $mouse.y
}
alias uCLICK.@setup {
.signal -n SETUPUCLICK $1-
}
alias rCLICK.@setup {
.signal -n SETUPrCLICK $1-
}
alias REFRES guidibtx @setup %setup.tx | drawline @setup
alias MUESTRAsetup {
if (%setup.ls1) guilista @setup setup.ls1
if (%setup.ls2) guilista @setup setup.ls2
if (%setup.ls3) guilista @setup setup.ls3
guidibop @setup %setup.op | guidibtx @setup %setup.tx | guidibcb @setup %setup.cb | guidibbt @setup %setup.bt
}
alias SETUP.CLS drawpic -cn @setup 120 0 120 0 470 335 %setup.fondo | if (%skinv < 3) { cuagi @setup 118 36 470 292 $gettok(%gui.cc,1,44) | return } | if (%skinv < 4) drawpic -cnt @setup 65280 546 5 253 0 40 13 skin\base\opt_alt.bmp
on 1:close:@setup: setup.cierra
alias SETUP.CIERRA {
.timerSETUP* off | unset %setup.* | window -c @hash1 | window -c @hash2 | window -c @hash3 | window -c @setup
var %i = 1 | :L1 | if ($script(%i) != $null) { if (setup_ isin $script(%i)) { .unload -rs " $+ $script(%i) $+ " | goto L1 } | inc %i | goto L1 }
hfree -w setup*
.unload -rs setup.mrc
}
alias onEDIT.@setup {
if $1 == dcv.max dcc maxcps $int($calc(%dcv.max * 1024))
if $1 == setup.tmpmox { %umode = $iif(%setup.tmp1 == on,i) $+ $iif(%setup.tmp2 == on,w) $+ $iif(%setup.tmp3 == on,s) $+ $remove(%setup.tmpmox,+) | pmodo }
if $1 == setup.tmpnic nick %setup.tmpnic
if $1 == setup.tmp.ajr ajoinmete
if $1 == setup.tmp1 && %apartado == setsonido { wrini ircap.ini wav $gettok(%setup.tmpevento,2,58) %setup.tmp1 }
.signal -n SETUPEDIT $1-
}
alias onCOMBO.@setup {
if $1 == setup.tmpevento {
%setup.tmp1 = $readini ircap.ini wav $gettok(%setup.tmpevento,2,58)
refres
.timer -m 1 150 sss $gettok(%setup.tmpevento,2,58)
}
if $1 == setup.tmp.red { setup.net lee | muestrasetup }
if $1 == setup.modven {
var %a = $findtok($s(299),%setup.modven,22) | if (%a) {
%modoventana = $gettok(libre mix max maxT,%a,32)
modoventana %modoventana
}
}
.signal -n SETUPCOMBO $1-
}
alias sGEN {
goto $1
:enic | loads listador | $listador($mg(nick1),$mg(nick2),$nofile(%perfil) $+ nicks.txt,nick <item>,1) | return
:spam | if $2 == + { var %a = $$?=" $mg(spam) " | if %a == $null return | %spam.txt = $addtok(%spam.txt,$+ * $+ %a $+ *,22) } | else { if ($sline(@hash1,1)) { %spam.txt = $remtok(%spam.txt,$ifmatch,1,22) } } | .timer -m 1 100 setprote2 2 | ggguilista reset @setup setup.ls1 | return
:awayoff | %autoaw = 0 | refres | return
:rawa+ | var %a = $$?=" $mg(away) " | if (%a) { write usr\away.txt %a | setaway2 1 } | return
:rawa- | var %a = $sline(@hash1,1).ln | if (%a) { dline @hash1 %a | writelista @hash1 usr\away.txt | setaway2 1 } | return
:rawaed | var %a = $sline(@hash1,1) | if (%a) { var %n = $input($mg(away),egdq,?,%a) | if (%n) { rline @hash1 $sline(@hash1,1).ln %n | writelista @hash1 usr\away.txt | setaway2 1 } } | return
:ccfg | _ca config <global> | return
:ulista | loadu g-ulista | return
:idioma | if (!$4) return
if ($2 == 2) { idioma cambia $gettok($4,1,8) | hfree setup | vsetup 0 | %setup.pñ1 = $puttok(%setup.pñ1,2,3,32) | setvarios2 2 | return }
var %i = $gettok($4,1,8)
cuagi @setup 300 112 230 114 gui
var %f = lng\ $+ %i $+ \ $+ %i $+ .id , %c = $gettok(%gui.cc,6,44) , %dt = drawtext -rcon @setup %c Arial 10 330
drawtext -rcon @setup %c Arial 11 320 120 204 22 $readini %f LANG name $iif(%i == %idioma ,( $mg(instal) ))
%dt 150 192 22 $mg(autor) $readini %f LANG author
%dt 170 192 99 $mg(temaver) IRcap $readini %f LANG scriptversion
%dt 190 192 99 $mg(fecha) $readini %f LANG date
drawline @setup
return
}
alias sgenaway {
if %setup.tmp1 == on { var %multi = scon -at1 }
if ($1 == 1) { if (!$away) { %setup.tmp2 = $sline(@hash1,1) | refres } | return }
if ($1 == 2) || (!$away) { if (%setup.tmp2 != $null) { %multi away %setup.tmp2 } | setup.cierra | return }
%multi away
}
alias SETUP.SND {
goto $1
:oir | if (!%setup.tmp1) return | if (:\ isin %setup.tmp1) .timer -m 1 100 splay %setup.tmp1 | else .timer -m 1 100 splay $mircdir $+ %setup.tmp1 | return
:elige | if (!%setup.tmpevento) return
var %b = $mircdirskin\ $+ %skin $+ \*.wav
var %a = $dir=" $mg(sonido) ' %setup.tmp1 ' " [ %b ] | if %a == $null return
%setup.tmp1 = $remove(%a,$mircdir) | refres | writeini ircap.ini wav $gettok(%setup.tmpevento,2,58) %setup.tmp1
goto oir
:lee | var %a = $sfile($mircdirskin\*.ewv,$mg(sonesq) ) | if (%a) { return $copiaini(%a,[wav],ircap.ini,[wav]) } | return
:guarda | var %a = $$?=" $mg(soniexp) " | %a = $mircdirskin\ $+ %a $+ .ewv | echo -s $copiaini(ircap.ini,[wav],%a,[wav])
}
alias SETUP.DCC {
if ($1 == 1) || ($1 == 2) return
goto $1
:listas
window -c @hash1 | window -hls @hash1 | window -c @hash2 | window -hls @hash2 | window -c @hash3 | window -hls @hash3
var %i = $numtok(%dcc.si,44) | if %i > 0 { :L1 | aline -l @hash1 $gettok(%dcc.si,%i,44) | dec %i | if %i > 0 goto L1 } | guilista @setup setup.ls1
var %i = $numtok(%dcc.no,44) | if %i > 0 { :L2 | aline -l @hash2 $gettok(%dcc.no,%i,44) | dec %i | if %i > 0 goto L2 } | guilista @setup setup.ls2
var %i = $numtok(%dcc.nos,44) | if %i > 0 { :L3 | aline -l @hash3 $gettok(%dcc.nos,%i,44) | dec %i | if %i > 0 goto L3 } | guilista @setup setup.ls3
drawline @setup | return
:d1 | if $2 == + { %dcc.si = %dcc.si $+ , $+ $$?=" $mg(dccext) " } | else { if ($sline(@hash1,1) != $null) { %dcc.si = $remtok(%dcc.si,$sline(@hash1,1),1,44) } } | .timer -m 1 100 setup.dcc listas | ggguilista reset @setup setup.ls1 | return
:d2 | if $2 == + { %dcc.no = %dcc.no $+ , $+ $$?=" $mg(dccext) " } | else { if ($sline(@hash2,1) != $null) { %dcc.no = $remtok(%dcc.no,$sline(@hash2,1),1,44) } } | .timer -m 1 100 setup.dcc listas | ggguilista reset @setup setup.ls2 | return
:d3 | if $2 == + { %dcc.nos = %dcc.nos $+ , $+ $$?=" $mg(dccext) " } | else { if ($sline(@hash3,1) != $null) { %dcc.nos = $remtok(%dcc.nos,$sline(@hash3,1),1,44) } } | .timer -m 1 100 setup.dcc listas | ggguilista reset @setup setup.ls3 | return
:mirc | dccserver +sc %setup.dcc1 59 | return
:pasv | .dcc passive %setup.dcc2
}
alias ASCDIBNICK {
cuagr @setup 418 92 140 25 | drawrect -fn @setup $colour(backgr) 1 424 98 130 15 | drawtext -pbnc @setup 1 $colour(back) Tahoma 11 426 98 126 14 %tma.n1 $+ %tma.n2 $+ @ $+ %tma.n3 $+ Nick $+ %tma.n4
cuagr @setup 418 174 140 25 | drawrect -fn @setup $colour(backgr) 1 424 180 130 15 | drawtext -pbnc @setup 1 $colour(back) Arial 11 426 180 126 14 %tma.m1 $+ %tma.m2 $+ @ $+ %tma.m3 $+ $me $+ %tma.m4
if (!$1) drawline @setup
}
alias CFGGUARDA {
var %dirg = $sdir=" $mg(expor1) " c:\
var %capf = $$?=" $mg(expor2) "
var %dirg = %dirg $+ %capf $+ .ca8
dina cfg.guarda %dirg
}
alias CFGRECUP dina cfg.lee $dir=" $mg(impor) " c:\*.ca8
alias ELIF var %fitip = c:\*.exe | if $2 != $Null { var %fitip = $2 } | var %fitemp = $dir=" $mg(efic) " [ %fitip ] | if %fitemp != $null { set % $+ [ $1 ] %fitemp | refres }
alias ELID var %fitemp = $sdir=" $mg(edir) " c:\ | if %fitemp != $null { set % $+ [ $1 ] %fitemp | refres }
alias BUSCAF {
var %fitemp = $findfile(c:\,$2-,1) | if %fitemp != $null goto L1
var %fitemp = $findfile(d:\,$2-,1) | if %fitemp != $null goto L1
var %fitemp = $findfile(e:\,$2-,1) | if %fitemp != $null goto L1
echo -se $logo $mg(enof) $2- | return
:L1
set % $+ [ $1 ] %fitemp | refres
}
alias -l MG return $replace($readini(lng\ $+ %idioma $+ \setup.ini,setup,$1),&1,$2,&2,$3,&3,$4,&4,$5)
;EOF-dt