;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 }
  setupmenu.dib %apartado
  window -wa @setup

unset %tiksetup
  if (!$1) { sss wina }
}

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) 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 - }
  var %w = $width(%t,verdana,9,1) | %w = $calc(52 - (%w / 2)) | drawtext -rno @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 10 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) |148 124 maxi.win $s(83) |384 216 @noti/sskin_snoti $s(84) |148 148 focus $s(85) |148 172 priv.bu $s(86) |148 196 nlaccion $s(87) |148 100 #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)
    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
  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)
    %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 84 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 = 408 132 autobot $s(135) |408 152 bot.prv $s(136)
    %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 84 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.ls1 %setup.nlis
  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
  }
  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 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 }
  .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
