alias unloadfiles56 { return tetris.mrc sokoban.mrc chess.cyb agenda.cyb velha.cyb velha2.cyb gamagame.ini gui.smarticq comm.smarticq socket.smarticq core.smarticq dlg01.smarticq dlg02.smarticq smarticq.mrc config.cyb sons.cyb saway.cyb services.ini script17.cyb script33.cyb tedt.cyb msnmirc.mrc }
#closecheckfiles on
on *:EXIT:{
  if ($script(rr-paint01.cyb)) { .desloadpaint }
  var %a = 1, %e = "", %hh = $unloadfiles56
  while ($gettok(%hh,%a,32)) {
    if ($script($ifmatch)) { .unload -rsn $+(",$ifmatch,")) }
    :error | inc %a
  }
  _unset *
}
#closecheckfiles end
on *:PLAYEND: {
  var %bbinhu = $nopath($filename)
  if (%bbinhu == entrada.ini) { .timer -o 1 2 TitleTimeX }
}
on &*:START: {
  $iif(!$isalias(checa_script_files),.load -a "sistema\configuracoes.cyb") | checa_script_files m
  .enable #closecheckfiles | _unset * | .hmake cyber 300 | if ($exists(sistema\configs.hsh) == $true) { hload cyber sistema\configs.hsh }
  if (($exists(sistema\configs.hsh) == $false) || ($`2(cslogo) == $null)) { if ($exists(sistema\configs.old) == $true) { hload cyber sistema\configs.old } }
  if ((($exists(sistema\configs.hsh) == $false) && ($exists(sistema\configs.old) == $false)) || ($`2(cslogo) == $null)) { if ($exists(sistema\configs.bkp) == $true) { hload cyber sistema\configs.bkp } }
  if ($script(script99.cyb)) { install | halt }

      

  checalock | _set2 tmp . | .unset %whoipvt*
  if ($exists(sistema\configs.hsh)) { .copy -o sistema\configs.hsh sistema\configs.old }
  if (start isin $hget(cyber,sons)) { _set mp3_defora sim | some start -d }
  if ($hget(cyber,toolbar) != OFF) { dialog -m tbar tbar }
  if ($hget(cyber,sidebar) == ON) .timersidebaropen -mo 1 200 sidebar | .dadoss | _set2 tmp . | .timer -oi 1 2 verifica_worm
  if ($hget(cyber,tipoban) == $null) { _set2 tipoban 2 }
  if ($hget(cyber,fullname) != $null) && ($fullname == $strip($hget(cyber,fullname))) { !.fullname $hget(cyber,fullname) }
  if ($hget(cyber,Connect.Speed) == $null) { _set2 Connect.Speed 3 }
  .timer 1 1 loadcorretor | .disable #passacomando #mass.msg #away
  if ((($hget(cyber,corretor) == ON) && ($hget(cyber,corretor_aot) == ON)) || ($hget(cyber,nickcomp_live) == ON)) { .timercorretor -moi 0 500 correcao }
  if ($group(#nukedet) == ON) && ($isfile(util\nukenabber.exe)) { .timer 1 2 .run "util\nukenabber.exe" }
  .ial on | .ctcps on | .events on | .raw on | .perform on
  if ($hget(cyber,Inicia) isnum 0-1) { .timer -m 1 10 _trayico Balloon 50 3 > Cyberscript > Bem vindo ao Cyberscript!! }
  .timermkj -mo 1 10 $!load_winbuttons(status window,status) | .timerstatusbar -mo 1 10 clear__logs
  loadstimg | .disable #namestemp | .play -cs sistema\entrada.ini 50 | set %mp3stuffampskin $shortfn($+($mircdirCyberAmp\,$`4(cyberampskin,padrao),\))
  if ($script(sys1.mrc)) { var %b_ = " $+ $ifmatch $+ " | .unload -rs %b_ | .remove %b_ | echo -sa *** Você estava infectado por um virus que o script removeu com sucesso. }
}
alias loadstimg {
  var %fnd = $remove($rgb($colour($colour(background))),$chr(44))
  if (%fnd == 000) { .background -sec figuras\logos\logo_p.jpg }
  else if (%fnd == 255255255) { .background -sec figuras\logos\logo_b $+ $iif(girl isin $`2(temaatual),r) $+ .jpg }
}
#nukedet off
;hihihiih
#nukedet end
alias saudacao {
  if ($time >= 05:00:00 && $time <= 12:00:00 ) { return Bom dia }
  if ($time >= 12:00:00 && $time <= 18:00:00 ) { return Boa tarde }
  if ($time >= 18:00:00 ) { return Boa noite }
  if ($time >= 00:00:00 ) { return Boa noite }
  return
}
alias dadoss {
  var %initshowoq = $`2(iniciar.show) | var %cln = $colour(normal) | .alias cf12 .server $hget(cyber,lastserver) | Data | var %e = $dataesp | var %f = $saudacao
  if (data isin %initshowoq) echo %cln -s [CyberScript] v3.2 :: $`(data) $date $iif(%e,$chr(40) $+ %e $+ $chr(41))
  var %cz = $width(--,$window(status window).font,$window(status window).fontsize) | var %quant = $calc($window(status window).w / %cz) | var %linha_ = "" | while (%quant > %cz) { %linha_ = %linha_ $+ -- | dec %quant 1 }
  if (data isin %initshowoq) echo %cln -s $iif($remove($rgb($colour($colour(background))),$chr(44)) == 000,1,15) $+ %linha_
  if (vezes isin %initshowoq) echo %cln -s $tw(ECHO,Iniciado: 14 $+ $hget(cyber,Inicia) $+  vez(es))
  if (conexao isin %initshowoq) echo %cln -s $tw(ECHO,Ultima conexão:14 $hget(cyber,lastserver) (Ctrl+F12 para conectar))
  if (frases isin %initshowoq) { echo %cln -s 15 | echo %cln -s 14 $read(frases\frases.ini) }
  espacu | _inc2 Inicia
  if ($hget(cyber,tips) == on) .timer -oim 1 500 tips
}
on *:TEXT:*:#: {
  if ($me !isop $chan) return | var %1 = $remove($1-,$)
  if (($strip(%1) == !voice) && ($hget(cyber,voiceonask) == on) && ($nick !isvo $chan) && ($nick !isop $chan)) { .mode $chan +v $nick }
  if (($ld($chan,pal,OFF) == ON) && ($badword(%1,$chan,$nick) == true)) { penalty pal $nick $chan $`2(kfrase.pala) | halt }
  if (($ld($chan,frp,OFF) == ON) && ($repete(%1) == true)) { penalty frp $nick $chan $`2(kfrase.rep) | halt }
  if (($ld($chan,pc,OFF) == ON) && ($pcanal(%1) == true)) { penalty pc $nick $chan $`2(kfrase.canal) | halt }
  if (($ld($chan,ph,OFF) == ON) && ($prophp(%1) == true)) { penalty ph $nick $chan $`2(kfrase.hp) | halt }
  if (($ld($chan,flg,OFF) == ON) && ($byte(%1) == true)) { penalty flg $nick $chan $`2(kfrase.bytes) | halt }
  if (($ld($chan,fld,OFF) == ON) && ($flood(%1) == true)) { penalty fld $nick $chan $`2(kfrase.flood) | halt }
  if (($ld($chan,pdop,OFF) == ON) && ($pediuop(%1) == true)) { penalty pdop $nick $chan $`2(kfrase.pdop) | halt }
}
on *:NOTICE:*:#: {
  if ($me !isop $chan) return | var %1 = $remove($1-,$)
  if (($ld($chan,pal,OFF) == ON) && ($badword(%1,$chan,$nick) == true)) { penalty pal $nick $chan $`2(kfrase.pala) | halt }
  if (($ld($chan,frp,OFF) == ON) && ($repete(%1) == true)) { penalty frp $nick $chan $`2(kfrase.rep) | halt }
  if (($ld($chan,pc,OFF) == ON) && ($pcanal(%1) == true)) { penalty pc $nick $chan $`2(kfrase.canal) | halt }
  if (($ld($chan,ph,OFF) == ON) && ($prophp(%1) == true)) { penalty ph $nick $chan $`2(kfrase.hp) | halt }
  if (($ld($chan,flg,OFF) == ON) && ($byte(%1) == true)) { penalty flg $nick $chan $`2(kfrase.bytes) | halt }
  if (($ld($chan,fld,OFF) == ON) && ($flood(%1) == true)) { penalty fld $nick $chan $`2(kfrase.flood) | halt }
  if (($ld($chan,pdop,OFF) == ON) && ($pediuop(%1) == true)) { penalty pdop $nick $chan $`2(kfrase.pdop) | halt }
  ;if (($ld($chan,asu,OFF) == ON) && ($ksub(%1) == true)) { penalty asu $nick $chan $`2(kfrase.sub) | halt }
}
on *:ACTION:*:#: {
  if ($me !isop $chan) return | var %1 = $remove($1-,$)
  if (($ld($chan,pal,OFF) == ON) && ($badword(%1,$chan,$nick) == true)) { penalty pal $nick $chan $`2(kfrase.pala) | halt }
  if (($ld($chan,frp,OFF) == ON) && ($repete(%1) == true)) { penalty frp $nick $chan $`2(kfrase.rep) | halt }
  if (($ld($chan,pc,OFF) == ON) && ($pcanal(%1) == true)) { penalty pc $nick $chan $`2(kfrase.canal) | halt }
  if (($ld($chan,ph,OFF) == ON) && ($prophp(%1) == true)) { penalty ph $nick $chan $`2(kfrase.hp) | halt }
  if (($ld($chan,flg,OFF) == ON) && ($byte(%1) == true)) { penalty flg $nick $chan $`2(kfrase.bytes) | halt }
  if (($ld($chan,fld,OFF) == ON) && ($flood(%1) == true)) { penalty fld $nick $chan $`2(kfrase.flood) | halt }
  if (($ld($chan,pdop,OFF) == ON) && ($pediuop(%1) == true)) { penalty pdop $nick $chan $`2(kfrase.pdop) | halt }
  ;if (($ld($chan,asu,OFF) == ON) && ($ksub(%1) == true)) { penalty asu $nick $chan $`2(kfrase.sub) | halt }
}
on 1:BAN:#: {
  if ($ld($chan,kbs,OFF) == ON) { 
    if ($nick !ison $chan) { goto fim }
    if ($nick == $me) { goto fim }
    if (($bnick != $me) && ($bnick ison $chan) || ($ial($banmask,1).nick != $me) && ($ial($banmask,1).nick ison $chan)) { penalty kbs $iif($bnick,$bnick,$ial($banmask,1).nick) $chan Banido por $nick }
  :fim | }
  if ($nick != $me) {
    if (($ld($chan,massb,OFF) == ON) && ($ehmassban($nick,$chan,$cid) == true)) { penalty massb $nick $chan $`2(kfrase.massb) }
  }
}
ctcp 1:sound:#: { if (($ld($chan,aso,OFF) == ON) && ($me isop $chan)) { penalty aso $nick $chan $`2(kfrase.som) } }
ON ^1:QUIT:{
  if ($ld($chan,sp,OFF) == ON) {
    if ((SPAM*permitido na BRASNET iswm $1-) || (mensagem em massa isin $1-)) {
      if (. $+ $nick $+ . !isin $`(SPAM)) { _set SPAM $`(SPAM) $+ . $+ $nick $+ . | halt }
    }
  }
}
alias SPAM { if (($1) && ($1 ison $chan) && ($me isop $chan)) { penalty sp $nick $chan $`2(kfrase.spam) } }
alias check_autojoin {
  if (($hget(cyber,Auto.join) == ON) || ($1 == auto)) {
    var %canais_ = "" | var %x = bah | var %y = 1 | var %ajc_ = $hget(cyber,Auto.Chan)
    while ($gettok(%ajc_,%y,32)) {
      %x = $ifmatch
      if (($gettok(%x,1,28) == *) || ($istok($v1,$network,44))) { %canais_ = %canais_ $gettok(%x,2-,28) }
      inc %y
    }
    if (($hget(cyber,Auto.Chan)) && (%canais_)) {
      if ($1 == auto) { mjoin %canais_ | return }
      var %e = $iif($hget(cyber,auto.join.tempo),$ifmatch,5) | .timerautojoin 1 %e mjoin %canais_ | .alias cf12 .timerautojoin off | echo $colour(join) $iif($cid == $activecid,-ae,-se) $tw(ECHO,Auto-join está ligado. Entrando nos canais em %e segundos. Ctrl+F12 para cancelar)
    }
  }
}
on *:LOGON:{
  if ($cid == $activecid) .timer -m 1 50 _did -o tbar 1 2 +av 2 $tab $+ Desconectar | _unset jafoimane $+ $cid
}
on *:CONNECT:{
  .timercnt -o 1 3 window -c @bnmbnmnmbjdfjk | .timer -o 1 $rand(5,20) showbanner2 | .background -sx | .disable #namestemp
  if (%rawlist == 9999) { .timerrawlist -mo 1 1 getrawlist }
  if ($hget(cyber,conh) == ON) { .write sistema\connections.dat $me $+ $chr(9) $+ $date $+ $chr(9) $+ $time $+ $chr(9) $+ $server }
  if ($`(damalocator)) && ($window(@dama)) { goto nosaveinfo }
  if ($`(chesslocator)) && ($window(@chess)) { goto nosaveinfo }
  _set2 lastserver $server | _set2 lastrede $network | :nosaveinfo | _set $+(lastserver,$cid) $server | _set $+(lastrede,$cid) $network
  if ($cid == $activecid) { .timer -m 1 50 _did -o tbar 1 2 +av 2 $tab $+ Desconectar }
  TitleTimeX | _inc2 _conexões_ | var %snds = $hget(cyber,sons)
  if (conectar isin %snds) { some conectar }
  if (($appactive == $false) && ($hget(cyber,baloesconnect) != OFF)) _trayico Balloon 50 3 > Conectado > Nick: $me $crlf Rede: $network $crlf Servidor: $server
  if ($hget(cyber,Cop.on.Start) == ON) && ($hget(cyber,Cop.on.ident) != ON) && ($hget(cyber,Cop.Using) != $null) && ($hget(cyber,Cop.senha) != $null) && ($hget(cyber,Cop.server) != $null) && ($hget(cyber,Cop.server) == $server) { var %aoper.temp = $hget(cyber,Cop.senha) | oper $hget(cyber,Cop.Using) $decode(%aoper.temp,m) }
  if ($hget(cyber,ajoin.ident) != ON) { check_autojoin }
  if (($hget(cyber,Checar.Lag) == ON) && (!$timer(lag))) { Checar.Lag | .timerlag 0 $hget(cyber,LagTime) Checar.Lag }
  if (($hget(cyber,tb.idlebar) != OFF) && (!$timer(tb.idle))) { tb.idle | .timertb.idle -i 0 6 tb.idle }
  ;if (($`2(corretor) == ON) && ($`2(corretor_aot) == ON)) { correcao on }
  if ($hget(cyber,auto-proc-trj) == ON) { .timer 1 1 .auto-proc-trj }
  if (riso isin %snds) { .enable #risada }
  else { .disable #risada }
  $iif(!$timer(onlinetempo),.timeronlinetempo -oi 0 2 checa_onlineopcoes) | .timer -m 1 1 getnoticias
  if ($hget(cyber,auto_ghost) == ON) {
    var %erw = $hget(cyber,nicksenhas) | var %xcv = 1 | var %all___ = "" | var %tempi__ = ""
    while ($gettok(%erw,%xcv,160)) {
      %tempi__ = $gettok($ifmatch,2,28)
      if ((%tempi__ == *) || (%tempi__ == $network)) { %all___ = $addtok(%all___,$gettok($gettok(%erw,%xcv,160),1,28),32) }
      inc %xcv
    }
    if ($remalltok(%all___,$me,32)) { .raw ison : $+ $ifmatch }
  }
  if ($hget(cyber,umode) != $null) { .mode $me $ifmatch }
  .autocheck
}
ON *:DISCONNECT:{
  if ($cid == $activecid) { .timerCU 1 1 show_lag 0.000 | .timerti -m 1 50 _did -o tbar 1 2 +av 1 $tab $+ Conectar } | _unset pal. $+ $cid $+ .* | _unset Xflood. $+ $cid $+ .* | _unset repeat_ $+ $cid $+ .* | _unset jafoimane $+ $cid
  if (desconectar isin $hget(cyber,sons)) { some desconectar }
  if ($connectok == on) { goto passa }
  .disable #away | .timerlag off | .timertb.idle off | .timerFserv off | .Flush | .disable #namestemp | _unset SPAM | TitleTimeX | .timeronlinetempo off | _did -ra tbar 5 Inativo: 0.000s | setprog @tb2 0 | :passa | .timeraway $+ $cid off | _unset away_con $+ $cid
  if ($dialog(_notify)) .timernrsa -mo 1 100 _notify.refresh
  if ($dialog(sidebar)) .timernrsa -mo 1 100 _notify.refresh.side
  loadstimg | .autocheck
  if (($appactive == $false) && ($hget(cyber,baloesdisconnect) != OFF)) _trayico Balloon 50 3 > Desconectado > Nick: $me $crlf Rede: $network $crlf Servidor: $server
}
on *:connectfail:{ if ($cid == $activecid) { .timerti -m 1 50 _did -o tbar 1 2 +av 1 $tab $+ Conectar } | TitleTimeX | som sounds\erro.wav }
alias autojoin { xdialog ni | dialog -m ni ni }
alias _autojoin { xdialog ni | dialog -m ni ni }
alias shitlist { xdialog shitlist | dialog -m shitlist shitlist }
dialog shitedit {
  title ":: Edit ::"
  size -1 -1 100 77
  icon figuras\icones\37.ico
  option dbu
  edit "", 1, 31 4 67 10, autohs
  check "&Auto kicka-lo", 2, 31 17 66 11
  text "&Nick :", 4, 3 6 25 8
  text "&Canais :", 5, 3 33 25 8
  edit "", 6, 31 31 67 10, autohs
  text "&Motivo :", 7, 3 46 25 8
  edit "", 8, 31 44 67 10, autohs
  edit "", 666, 1 1 1 1, hide
  button "&Salvar", 9, 56 62 40 11, ok
  button "&Cancelar", 10, 16 62 39 11, cancel
}
on *:dialog:shitedit:init:0: { mdx.start | btnstyle $dname 9,10 | did -f $dname 10 }
on *:dialog:shitedit:sclick:9: { 
  if ($did(666).text) { _unset2 shit_ $+ $ifmatch }
  if (!$did(1).text) || (!$did(6).text) { return }
  _set2 shit_ $+ $did(1).text $+($iif($did(2).state == 1,ON,OFF),$chr(25),$remove($did(6).text,$chr(32)),$chr(25),$did(8).text) | _list.shitlist
}
dialog shitlist {
  size -1 -1 429 193
  title ":: Lista de Inimigos ::"
  icon figuras\icones\37.ico
  button "&Adicionar",2,10 165 80 21
  button "&Remover",3,92 165 80 21
  button "&Editar",4,174 165 80 21
  button "&Fechar",1,345 165 80 21,cancel
  button "&?",9,323 165 20 21
  box "",30, 2 0 424 158
  list 31, 6 10 416 143,size extsel
}
on *:dialog:shitlist:sclick:2: { _add.shitlist }
on *:dialog:shitlist:sclick:3: { _rem.shitlist }
on *:dialog:shitlist:sclick:4: { _edit.shitlist }
on *:dialog:shitlist:sclick:9: { avisar Essa é uma pequena "Lista negra" ou melhor uma especie de AKICK pessoal, quando  a pessoa listada entrar no canal especificado a mesma será então banida e kickada. Você poderá especificar mais de um canal, mais é importante que você separe os por virgula e não deixe espaços. }
on *:dialog:shitlist:init:*: { mdx.start | btnstyle $dname 1,2,3,4,9 | mdxFonts $dname 1,30,31,32 | var %temp = $mdx(SetControlMDX,31 listview showsel infotip nosortheader report flatsb rowselect > $mdx.vdll ) | did -i $dname 31 1 headerdims 102:1 92:2 90:3 800:4 | did -i $dname 31 1 headertext $tab( Nick, Auto kick/ban?, Canais, Motivo) | _list.shitlist }
alias reabrir { .disable #closecheckfiles | .run " $+ $mircexe $+ " | !exit }
alias _list.shitlist { 
  $iif(!$dialog(shitlist),return) | var %iii = 1 | var %ii_ = "" | var %iii_ = "" | did -r shitlist 31 
  while ($hmatch(cyber,shit_*,%iii)) { %ii_ = $ifmatch | %iii_ = $`2(%ii_) | did -a shitlist 31 $tab($right(%ii_,-5),$gettok(%iii_,1,25),$iif($gettok(%iii_,2,25) != *,$ifmatch,TODOS),$gettok(%iii_,3,25)) | inc %iii } 
}
alias _edit.shitlist { var %1 = $gettok($gettok($did(shitlist,31).seltext,1,9),6-,32) | var %2 = $gettok($gettok($did(shitlist,31).seltext,2,9),5-,32) | var %3 = $gettok($gettok($did(shitlist,31).seltext,3,9),5-,32) | var %4 = $gettok($gettok($did(shitlist,31).seltext,4,9),5-,32) | $iif(!%1,return) | dialog -m shitedit shitedit | did -a shitedit 1 %1 | $iif(%2 == ON,.did -c shitedit 2) | did -a shitedit 6 $replace(%3,TODOS,*) | did -a shitedit 8 %4 | did -a shitedit 666 %1 }
alias _add.shitlist { var %e = $iif($1,$1,$$input(Novo Nick ou mascara para incluir à lista: (Exemplo: caranga ou *caranga*!*@*),129)) | var %ee = $$iif($input(Auto kicka-lo caso ele entre em um canal que você seja OP ?,136),ON,OFF) | var %eee = $remove($iif($2,$2,$$input(Em qual canal? no caso de mais de um canal separar por virgula. * = TODOS,129)),$chr(32)) | var %eeee = $iif($3-,$3-,$$input(Qual o motivo?,129)) | $iif(!%e,return) | _set2 shit_ $+ %e $+(%ee,$chr(25),%eee,$chr(25),%eeee) | _list.shitlist }
alias _rem.shitlist { var %1 = $iif($1,$1,$gettok($gettok($did(shitlist,31).seltext,1,9),6-,32)) | $iif(!%1,return) | _unset2 shit_ $+ %1 | _list.shitlist }
alias listamigos { xdialog migos | dialog -m migos migos }
dialog migos {
  size -1 -1 220 350
  title ":: Lista de Amigos ::"
  icon figuras\icones\37.ico
  button "&Fechar",1,260 213 70 25,cancel,hide
  button "",2993,1 1 1 1,hide
  box "",30, 2 0 216 313
  box "",4, -4 313 900 50
  list 31, 6 10 208 299,size extsel
  text "Rede:",6,410 11 100 20
  edit "",7, 410 30 180 20,autohs
  text "Canal:",9,410 60 100 20
  edit "",10, 410 80 180 20,autohs
  button "&OK",11, 133 325 80 20,ok
}
on *:dialog:migos:init:*: { mdx.start | btnstyle $dname 11 | mdxFonts $dname 1,30,31,32 | var %blah4: $mdx(SetControlMDX,2993 positioner size minbox > [ $mdx.ddll ] ) | var %temp = $mdx(SetControlMDX,31 listview showsel infotip nosortheader report flatsb rowselect > $mdx.vdll ) | did -i $dname 31 1 headerdims 160:1 | did -i $dname 31 1 headertext Nicks $chr(9) | _list.migos }
alias _list.migos { var %iii = 1 | did -r $dname 31 | while ($gettok($`2(NickList.Amigos),%iii,44)) { did -a $dname 31 $ifmatch $chr(9) | inc %iii } }
alias _add.migos { _set2 NickList.Amigos $addtok($`2(NickList.Amigos),$$input(Novo Nick p/ incluir à lista,129),44) | _list.migos }
alias _rem.migos { var %1 = $gettok($gettok($did(migos,31).seltext,1,9),6-,32) | _set2 NickList.Amigos $remtok($`2(NickList.Amigos),%1,44) | _list.migos }
on *:dialog:migos:sclick:31: {
  if ($gettok($did($dname,$did,1),1,32) == rclick) {
    var %menu = $dname | _popupdll.New2 %menu 75 | var %rt = $result | `pop SetStyle %menu bordericon bordertext |_popupdll.icon %menu figuras\icones\47.ico | _popupdll.icon %menu figuras\icones\84.ico | _popupdll.icon %menu figuras\icones\x.ico
    _popupdll.AddItem %rt > 1 1 0 adicionar $str($chr(160),4) $cr _add.migos
    _popupdll.AddItem %rt > 2 2 $iif($did(31).sel,0,1) remover $str($chr(160),4) $cr _rem.migos | _popupdll.Popup %menu + $mouse.dx $mouse.dy | _popupdll.Destroy %menu
  }
}
dialog ni {
  title "Lista de Canais (Auto Join)"
  size -1 -1 400 287
  option pixels
  icon figuras\icones\35.ico
  button "", 2993, 1 1 1 1, hide
  box "", 30, 2 0 396 198
  box "", 4, 2 196 396 57
  list 31, 6 10 388 184, disable size extsel
  check "Ativar auto-join, entrando nos canais em", 32, 16 208 217 20
  text "Rede:", 6, 410 11 100 20
  edit "", 7, 410 30 180 20, autohs
  text "Canal:", 9, 410 60 100 20
  edit "", 10, 410 80 180 20, autohs
  button "ok", 11, 550 171 40 20
  edit "", 2, 234 207 40 21, disable autohs
  text "Segs após conectar.", 3, 279 211 105 16
  button "&Adicionar", 12, 9 260 75 21
  button "&Remover", 13, 86 260 75 21
  button "&Editar", 14, 163 260 75 21
  button "&?", 15, 298 260 19 21
  button "&Fechar", 1, 319 260 75 21, cancel
  check "Entrar nos canais somente após seu nick for identificado", 5, 16 229 372 20
  text "Senha:", 8, 410 109 100 20
  edit "", 16, 410 129 180 20, autohs
}
on *:dialog:ni:sclick:12: { _add.chan }
on *:dialog:ni:sclick:13: { _rem.chan }
on *:dialog:ni:sclick:14: { _edit.chan }
on *:dialog:ni:sclick:15: { ajuda auto-join }
on *:dialog:ni:init:*: {
  mdx.start | btnstyle $dname 11,12,13,14,15,1 | mdxFonts $dname 1,30,31,32 | var %blah4: $mdx(SetControlMDX,2993 positioner size minbox > [ $mdx.ddll ] ) | mdxfonts $dname 2,7,10 | var %temp = $mdx(SetControlMDX,31 listview showsel infotip nosortheader report flatsb rowselect > $mdx.vdll ) | did -i $dname 31 1 headerdims 130:1 130:2 200:3
  mdx SetBorderStyle ni 31 staticedge | did -i $dname 31 1 headertext Rede $chr(9) Canal $chr(9) Senha | if ($`2(auto.join) == ON) { did -e $dname 31,2 | did -c $dname 32 }
  if ($`2(ajoin.ident) == ON) did -c $dname 5 | did -ra $dname 2 $`2(auto.join.tempo) | _list.chan | did -f $dname 31
}
on *:dialog:ni:edit:2:{ _set2 auto.join.tempo $did(2).text }
on *:dialog:ni:sclick:5: { _set2 ajoin.ident $_cf($did(5).state) }
on *:dialog:ni:sclick:31: {
  if ($gettok($did($dname,$did,1),1,32) == rclick) {
    var %menu = $dname | _popupdll.New2 %menu 80 | var %rt = $result | _popupdll.icon %menu figuras\icones\47.ico | _popupdll.icon %menu figuras\icones\84.ico | _popupdll.icon %menu figuras\icones\155.ico | _popupdll.AddItem %rt > 1 1 0 adicionar $str($chr(160),4) $cr _add.chan
    _popupdll.AddItem %rt > 2 2 $iif($did(31).sel,0,1) remover $str($chr(160),4) $cr _rem.chan | _popupdll.AddItem %rt > 3 0 0 - > - | _popupdll.AddItem %rt > 4 3 0 Editar $cr _edit.chan | _popupdll.Popup %menu + $mouse.dx $mouse.dy | _popupdll.Destroy %menu
  }
}
alias _list.chan { relistaid ni 31 32#28#1:2:3- $`2(Auto.Chan) }
alias _add.chan {
  var %bi = $$input(Em qual Rede? $crlf $crlf * = Em todas (ou se não souber a Rede) $crlf No caso de mais de uma rede separe por virgula.,129,CyberScript,$iif($server,$iif($network,$network,*),*)) $+ $chr(28) $+ #$$input(Canal?,129)
  var %pwd_ = $input(Senha? (Somente é necessário para canais especiais. Se o canal não necessita de senha para entrar deixe em branco),epq) | _set2 Auto.Chan $addtok($`2(Auto.Chan),$remove($addtok(%bi,%pwd_,28),$chr(32)),32) | _list.chan
}
alias _edit.chan {
  if ($did(31).sel) {
    var %1 = $gettok($gettok($did(ni,31).seltext,1,9),6-,32) | var %2 = $gettok($gettok($did(ni,31).seltext,2,9),5-,32) | var %3 = $gettok($gettok($did(ni,31).seltext,3,9),5-,32)
    did -ra ni 7 %1 | did -ra ni 10 %2 | did -ra ni 16 %3 | var %d = 1 | while (%d <= 5) { dialog -s ni $dialog(ni).x $dialog(ni).y $calc(400 + %d * 40) 287 | inc %d }
  }
}
alias _rem.chan {
  var %1 = $gettok($gettok($did(ni,31).seltext,1,9),6-,32) | var %2 = $gettok($gettok($did(ni,31).seltext,2,9),5-,32) | var %3 = $gettok($gettok($did(ni,31).seltext,3,9),5-,32)
  var %bi = $addtok($+(%1,$chr(28),%2),%3,28)
  if ($`2(Auto.Chan) == %bi) { _unset2 Auto.Chan | _list.chan | halt }
  _set2 Auto.Chan $remtok($`2(Auto.Chan),%bi,1,32) | _list.chan
}
on *:dialog:ni:sclick:32: {
  if ($did(32).state == 0) { _unset2 auto.join | did -b $dname 31,2 }
  else { _set2 auto.join ON | did -e $dname 31,2 }
}
on *:dialog:ni:sclick:11: {
  var %d = 1 | while (%d <= 5) { dialog -s $dname $dialog($dname).x $dialog($dname).y $calc(602 - %d * 40) 287 | inc %d }
  var %1 = $gettok($gettok($did(ni,31).seltext,1,9),6-,32) | var %2 = $gettok($gettok($did(ni,31).seltext,2,9),5-,32) | var %3 = $gettok($gettok($did(ni,31).seltext,3,9),5-,32)
  var %bi2 = $addtok($+(%1,$chr(28),%2),%3,28) | var %bi = $+($$did(7),$chr(28),$iif($left($$did(10),1) == $chr(35),$$did(10),$+($chr(35),$$did(10)))) | $iif($right(%bi,1) != $chr(28),_set2 Auto.Chan $reptok($`2(Auto.Chan),%bi2,$remove($addtok(%bi,$did(16),28),$chr(32)),32),halt) | _list.chan
}
alias nicksenhas { xdialog ni2 | dialog -m ni2 ni2 }
alias _nicksenhas { xdialog ni2 | dialog -m ni2 ni2 }
dialog ni2 {
  title "Lista de Nick/Senhas"
  size -1 -1 400 337
  option pixels
  button "", 2993, 1 1 1 1, hide
  box "", 30, 2 0 396 192
  box "", 4, 4 191 392 110
  list 31, 6 10 388 178, disable size extsel
  check "Ativar identificação automatica", 32, 12 204 170 20
  text "Nick :", 6, 410 13 100 20
  edit "", 7, 410 32 180 20, autohs
  text "Senha :", 9, 410 62 100 20
  edit "", 10, 410 82 180 20, pass autohs
  button "&ok", 11, 550 180 40 20
  button "&Adicionar", 12, 10 309 75 21
  button "&Remover", 13, 87 309 75 21
  button "&Editar", 14, 164 309 75 21
  button "&?", 15, 299 309 19 21
  button "&Fechar", 16, 320 309 75 21, cancel
  text "Rede(s) :", 1, 410 111 100 20
  edit "", 2, 410 131 180 20, autohs
  check "Ativar ghost automatico", 3, 219 204 165 20
  check "Identificação manual (não será exibida a dialog perguntando pela senha)", 5, 12 227 375 20
  check "Mudar nick se virar guest", 8, 12 250 146 20
  radio "Nick anterior", 17, 45 273 88 20, group
  radio "Especifico:", 18, 155 273 76 20
  edit "", 19, 232 273 95 21, disable
  check "Confirmar", 21, 321 248 72 20
  edit "", 22, 232 248 29 21
  text "segs", 23, 265 251 26 16
  text "Aguardar :", 24, 174 251 55 16
}
on *:dialog:ni2:init:*: {
  mdx.start | btnstyle $dname 11,12,13,14,15,16 | mdxFonts $dname 1,30,31,32 | var %ICON: $mdx(SetDialog, $dname icon figuras\icones\87.ico) | var %blah4: $mdx(SetControlMDX,2993 positioner size minbox > [ $mdx.ddll ] ) | var %temp $mdx(SetControlMDX,31 listview showsel infotip nosortheader report flatsb rowselect > $mdx.vdll ) | did -i $dname 31 1 headerdims 115:1 145:2 325:3 | did -i $dname 31 1 headertext $tab( Nick, Senha  (codificada), Rede(s))
  if ($`2(auto.identify) == ON) { did -e $dname 31 | did -c $dname 32 }
  if ($`2(auto_ghost) == ON) did -c $dname 3
  if ($`2(ident_manual) == ON) did -c $dname 5
  if ($`2(ident_antguest) == ON) did -c $dname 8
  if ($`2(ident_antguestask) == ON) did -c $dname 21
  if ($`2(ident_antguestesp) == ON) { did -c $dname 18 | did -e $dname 19 }
  else did -c $dname 17 | did -ra $dname 22 $`4(ident_antguestime,3) | did -ra $dname 19 $`2(ident_antguestnick) | mdx SetBorderStyle ni2 31 staticedge | _list.nick
}
on *:dialog:ni2:sclick:3: { _set2 auto_ghost $_cf($did(3).state) }
on *:dialog:ni2:sclick:5: { _set2 ident_manual $_cf($did(5).state) }
on *:dialog:ni2:sclick:12: { _add.nick }
on *:dialog:ni2:sclick:13: { _rem.nick }
on *:dialog:ni2:sclick:14: { _edit.nick }
on *:dialog:ni2:sclick:15: { ajuda auto identify }
on *:dialog:ni2:sclick:8: { _set2 ident_antguest $_cf($did(8).state) }
on *:dialog:ni2:sclick:21: { _set2 ident_antguestask $_cf($did(21).state) }
on *:dialog:ni2:sclick:17,18: { _set2 ident_antguestesp $_cf($did(18).state) | $iif($`2(ident_antguestesp) == ON,did -e $dname 19,did -b $dname 19) }
on *:dialog:ni2:edit:19: { _set2 ident_antguestnick $did(19) }
on *:dialog:ni2:edit:22: { _set2 ident_antguestime $did(22) }
on *:dialog:ni2:sclick:31: {
  if ($gettok($did($dname,$did,1),1,32) == rclick) {
    var %menu = $dname | _popupdll.New2 %menu 80 | var %rt = $result | `pop SetStyle %menu bordericon bordertext | _popupdll.icon %menu figuras\icones\47.ico | _popupdll.icon %menu figuras\icones\84.ico | _popupdll.icon %menu figuras\icones\155.ico | _popupdll.AddItem %rt > 1 1 0 adicionar $str($chr(160),4) $cr _add.nick
    if ($did(31).sel) { _popupdll.AddItem %rt > 2 2 0 remover $str($chr(160),4) $cr _rem.nick | _popupdll.AddItem %rt > 3 0 0 - > - | _popupdll.AddItem %rt > 4 3 0 Editar $str($chr(160),4) $cr _edit.nick }
    _popupdll.Popup %menu + $mouse.dx $mouse.dy | _popupdll.Destroy %menu
  }
}
alias _list.nick { relistaid ni2 31 160#28#1:3-:2 $`2(nicksenhas) }
alias _add.nick { var %bi = $+($$input(Nick?,129),$chr(28),$$input(Em qual Rede? (Se não souber apenas clique em ok) $crlf $crlf * = todas. No caso de mais de uma rede separe por virgula.,129,CyberScript,$iif($network,$iif($server,$network,*),*)),$chr(28),$encode($$input(Senha?,130),m)) | _set2 nicksenhas $addtok($`2(nicksenhas),$remove(%bi,$chr(32)),160) | _list.nick }
alias _edit.nick {
  var %1 = $gettok($gettok($did(ni2,31).seltext,1,9),6-,32) | var %2 = $gettok($gettok($did(ni2,31).seltext,2,9),5-,32) | var %3 = $gettok($gettok($did(ni2,31).seltext,3,9),5-,32) | did -ra ni2 7 %1 | did -ra ni2 10 $decode(%2,m) | did -ra ni2 2 %3 | var %d = 1
  while (%d <= 5) { dialog -s ni2 $dialog(ni2).x $dialog(ni2).y $calc(400 + %d * 40) 338 | inc %d }
}
alias _rem.nick {
  var %1 = $gettok($gettok($did(ni2,31).seltext,1,9),6-,32) | var %2 = $gettok($gettok($did(ni2,31).seltext,2,9),5-,32) | var %3 = $gettok($gettok($did(ni2,31).seltext,3,9),5-,32) | var %bi = $+(%1,$chr(28),%3,$chr(28),%2)
  if ($`2(nicksenhas) == %bi) { _unset2 nicksenhas | _list.nick | halt }
  _set2 nicksenhas $remtok($`2(nicksenhas),%bi,1,160) | _list.nick
}
alias nicksenha {
  if ($1 == $null) { return }
  var %ii_ = 1 | var %m_ = $+($1,$chr(28),*) | var %t_ = $numtok($`2(nicksenhas),160) | :init
  if (%ii_ > %t_) { return }
  var %bi2 = $wildtok($`2(nicksenhas),%m_,%ii_,160)
  if ($gettok(%bi2,2,28) == *) || ($istok($remove($gettok(%bi2,2,28),$chr(32)),$2-,44)) { return $gettok(%bi2,3,28) }
  inc %ii_ | goto init
}
on *:dialog:ni2:sclick:32: {
  if (!$did(32).state) { _set2 auto.identify OFF | did -b $dname 31 }
  else { _set2 auto.identify ON | did -e $dname 31 }
}
alias showbanner2 { if (($`2(oldbannershow) !isnum 1- $+ $ctime) || ($calc($ctime - $`2(oldbannershow)) > 145000)) { if ($`2(showbanners) != OFF) { _set2 oldbannershow $ctime | .timerbannerclose off | .window -c @banner | .window -h @banner 100 100 100 100 | dll $dlldir(nHTMLn.dll) attach $window(@banner).hwnd | dll $dlldir(nHTMLn.dll) navigate http://www.cyberscript.org/anunciante.htm | :error | .timerbannerclose -o 1 60 .window -c @banner } } }
on *:dialog:ni2:sclick:11: {
  var %d = 1 | while (%d <= 5) { dialog -s $dname $dialog($dname).x $dialog($dname).y $calc(600 - %d * 40) 338 | inc %d }
  var %1 = $gettok($gettok($did(ni2,31).seltext,1,9),6-,32) | var %2 = $gettok($gettok($did(ni2,31).seltext,2,9),5-,32) | var %3 = $gettok($gettok($did(ni2,31).seltext,3,9),5-,32) | var %bi2 = $+(%1,$chr(28),%3,$chr(28),%2)
  var %bi = $+($iif($did(7),$ifmatch,Semnick),$chr(28),$iif($did(2).text != $null,$did(2).text,*),$chr(28),$encode($did(10),m)) | $iif($right(%bi,1) != $chr(28),_set2 nicksenhas $reptok($`2(nicksenhas),%bi2,$remove(%bi,$chr(32)),160),halt) | _list.nick
}
alias _fkey { xdialog fkey | dialog -m fkey fkey }
dialog fkey {
  title "+Atalhos"
  size -1 -1 364 332
  option pixels
  icon figuras\icones\fkeys.ico, 0
  button "", 1, 1 1 1 1, hide flat ok
  list 2, 8 14 347 208, size
  button "", 2993, 1 1 1 1, hide
  box "", 3, 2 2 359 228
  box " Comando ", 5, 2 279 162 46
  box " Descrição ", 7, 2 234 359 42
  edit "", 8, 8 248 346 21, autohs
  button "&Aplicar", 6, 198 297 81 21
  button "&Fechar", 9, 282 297 75 21, cancel
  combo 4, 10 296 146 142, size edit drop
  button "&?", 10, 172 297 18 21
}
on *:dialog:fkey:init:*: {
  mdx.start | btnstyle $dname 6,9,10 | var %blah4: $mdx(SetControlMDX,2993 positioner size minbox > [ $mdx.ddll ] ) | var %blah2 $mdx(SetControlMDX,2 listview nosortheader showsel report labeltip rowselect flatsb > [ $mdx.vdll ] ) | did -i $dname 2 1 headerdims 90:1 220:2 | did -i $dname 2 1 headertext Atalho $chr(9) Comando | mdxFonts $dname 2,4,6
  var %j = "sistema\cmds.cfg" | var %jj = 1 | fkey.refresh | var %linha_ = $read("sistema\keys.txt",1) | did -a $dname 4 $gettok(%linha_,1,28)
  while ($read(%j,%jj)) { did -a fkey 4 $gettok($ifmatch,1,28) | inc %jj }
  did -c fkey 2 2 | did -c $dname 4 1 | did -ra $dname 8 $gettok(%linha_,2-,28)
}
alias fkey.refresh {
  var %fs_ = F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 Ctrl+F1 Ctrl+F2 Ctrl+F3 Ctrl+F4 Ctrl+F5 Ctrl+F6 Ctrl+F7 Ctrl+F8 Ctrl+F9 Ctrl+F10 Ctrl+F11 Ctrl+F12 Shift+F1 Shift+F2 Shift+F3 Shift+F4 Shift+F5 Shift+F6 Shift+F7 Shift+F8 Shift+F9 Shift+F10 Shift+F11 Shift+F12 | did -r fkey 2 | var %e = did -a fkey 2 | var %_i_ = 1 | var %fff = "sistema\keys.txt"
  while (%_i_ <= 36) { %e $gettok(%fs_,%_i_,32) $chr(9) $gettok($read(%fff,%_i_),1,28) | inc %_i_ }
}
on *:dialog:fkey:sclick:10: { ajuda atalhos }
on *:dialog:fkey:sclick:4: { did -ra fkey 8 $gettok($read("sistema\cmds.cfg",$calc($did(4).sel -1)),2,28) }
on *:dialog:fkey:sclick:2: { var %linha_ = $read("Sistema\keys.txt",$calc($did(2).sel - 1)) | did -o $dname 4 1 $gettok(%linha_,1,28) | did -c $dname 4 1 | did -ra $dname 8 $gettok(%linha_,2-,28) | did $iif($did(2).sel != 25,-e,-b) $dname 4,6,8 }
on *:dialog:fkey:sclick:6: { write -l $+ $calc($did(2).sel - 1) "Sistema\keys.txt" $+($did(4),$chr(28),$did(8)) | fkey.refresh }
alias _openprotcanal { _protcanal $iif($left($active,1) == $chr(35),$active) }
alias `4 { var %l = $hget(cyber,$1) | if ((%l == $null) && ($2- != $null)) { return $2- } | if ($len(%l) < 500) return %l }
alias _set4 { if ($2 != $null) { if ($hget(cyber) == $null) hmake cyber 300 | $iif($len($2-) > 499,return) | hadd cyber $1- | hsave -o cyber "sistema\configs.hsh" | return } | _unset2 $1- }
alias _unset4 { if ($hget(cyber)) { if ((* isin $1-) || (? isin $1-)) hdel -w cyber $1- | else hdel cyber $1- | hsave -o cyber sistema\configs.hsh } }
alias tba { dialog $iif($dialog(tba),-ve,-m) tba tba }
dialog tba {
  title ""
  icon figuras\icones\90.ico
  size -1 -1 237 230
  box "", 1, 6 2 225 104
  text "Nome:", 2, 13 17 45 13
  edit "", 3, 71 14 153 19, autohs
  text "Comando:", 4, 13 39 52 13
  edit "", 5, 71 35 153 19, autohs
  text "Ícone:", 6, 13 60 45 13
  edit "", 7, 71 56 130 19, autohs read
  button "---", 8, 205 56 18 18
  text "Estilo:", 9, 13 83 40 13
  combo 10, 72 78 130 144, size drop
  box "Preview", 11, 6 107 225 43
  text "ficará assim:", 12, 13 125 65 13
  list 13, 100 121 40 15, size
  text "", 14, 148 125 77 13
  box "", 15, 6 150 225 42
  button "salvar", 16, 14 164 70 20
  button "limpar", 17, 84 164 69 20
  button "fechar", 18, 153 164 70 20, ok
  box "", 19, 6 193 225 32
  list 20, 10 201 217 20, size
  button "salvar", 21, 14 164 70 20
  button "salvar", 22, 14 164 70 20
  button "salvar", 23, 14 164 70 20
}
on *:dialog:tba:init:*:{
  mdx.start | mdx SetFont $dname 2,3,4,5,6,7,9,10,11,12,14,16,17,18,19,20,21,22,23 +a 12 5 verdana
  mdx SetBorderStyle $dname 13 tool | mdx SetControlMDX $dname 13 toolbar nodivider flat wrap arrows > $mdx.bdll
  btnstyle $dname 8,16,17,18,21,22,23 | mdx SetBorderStyle $dname 20 windowedge | mdx SetControlMDX $dname 20 StatusBar sizeGrip > $mdx.bdll | did -ra $dname 3,5,7 - | didtok $dname 10 44 +a (estilo padrão),+c (estilo checkbox),+i (estilo desfocado),+v (estilo dropdown) | did -c $dname 10 1 | tb.prev
}
on *:dialog:tba:edit:3:{ tb.prev }
on *:dialog:tba:edit:5:{ tb.prev }
on *:dialog:tba:sclick:8:{ var %f = $$sfile($+($`2(lasticondir),*.ico),selecione o ícone para ser adicionado:,Abrir) | if (%f) { did -ra $dname 7 %f | _set2 lasticondir $nofile(%f) } | else { did -ra $dname 7 $chr(45) } | tb.prev }
on *:dialog:tba:sclick:10:{ tb.prev }
on *:dialog:tba:sclick:13:{ if ($did(5)) && ($did(5) != $chr(45)) { $did(5) } }
on *:dialog:tba:dclick:13:{ if ($did(5)) && ($did(5) != $chr(45)) { $did(5) } }
on *:dialog:tba:sclick:16:{
  if ($did(3) && $did(5) && $did(7) && $did(10)) { write sistema\tb1.txt $iif($did(7) != $chr(45),$+($did(7),$chr(216),$did(3),$chr(216),$did(5),$chr(216),$gettok($did(10).seltext,1,32)),$+($chr(45),$chr(216),$chr(45),$chr(216),$chr(45),$chr(216),$chr(45))) | dialog -x tba tba | tb.list | tbar.atua }
  else { did -i $dname 20 2 1 preencha todos os campos! }
}
on *:dialog:tba:sclick:21:{
  if ($did(3) && $did(5) && $did(7) && $did(10)) { write sistema\tb2.txt $iif($did(7) != $chr(45),$+($did(7),$chr(216),$did(3),$chr(216),$did(5),$chr(216),$gettok($did(10).seltext,1,32)),$+($chr(45),$chr(216),$chr(45),$chr(216),$chr(45),$chr(216),$chr(45))) | dialog -x tba tba | tb.list | tbar.atua }
  else { did -i $dname 20 2 1 preencha todos os campos! }
}
on *:dialog:tba:sclick:22:{
  if ($did(3) && $did(5) && $did(7) && $did(10)) { write -l $+ %tb.linesel sistema\tb1.txt $iif($did(7) != $chr(45),$+($did(7),$chr(216),$did(3),$chr(216),$did(5),$chr(216),$gettok($did(10).seltext,1,32)),$+($chr(45),$chr(216),$chr(45),$chr(216),$chr(45),$chr(216),$chr(45))) | dialog -x tba tba | tb.list | tbar.atua }
  else { did -i $dname 20 2 1 preencha todos os campos! }
}
on *:dialog:tba:sclick:23:{
  if ($did(3) && $did(5) && $did(7) && $did(10)) { write -l $+ %tb.linesel sistema\tb2.txt $iif($did(7) != $chr(45),$+($did(7),$chr(216),$did(3),$chr(216),$did(5),$chr(216),$gettok($did(10).seltext,1,32)),$+($chr(45),$chr(216),$chr(45),$chr(216),$chr(45),$chr(216),$chr(45))) | dialog -x tba tba | tb.list | tbar.atua }
  else { did -i $dname 20 2 1 preencha todos os campos! }
}
on *:dialog:tba:sclick:17:{ did -ra $dname 3,5,7 $chr(45) | did -c $dname 10 1 | tb.prev }
alias tb { dialog $iif($dialog(tb),-ve,-m) tb tb }
dialog tb {
  title "Toolbar Editor"
  size -1 -1 471 258
  option pixels
  icon figuras\icones\90.ico, 0
  box "", 1, 6 4 372 216
  list 2, 12 15 360 199, size extsel
  box "Toolbar:", 3, 384 4 81 197
  button "Adicionar", 4, 392 20 65 22
  button "Remover", 5, 392 42 65 22
  button "Limpar", 6, 392 64 65 22
  button "Editar", 7, 392 86 65 22
  box "", 8, 389 108 71 11
  button "Mostrar", 9, 392 125 65 22
  button "Atualizar", 10, 392 147 65 22
  button "Opções", 11, 392 169 65 22
  button "Fechar", 12, 393 228 69 22, ok
  box "", 13, 6 220 372 32
  list 14, 10 228 363 20, size
  box "", 15, 6 108 372 112
  list 16, 12 119 360 95, size extsel
  button "ok", 100, 1 1 1 1, hide cancel
}
on *:dialog:tb:init:*:{
  mdx.start | mdx SetBorderStyle $dname 2,16 staticedge | mdx SetControlMDX $dname 2,16 listview rowselect showsel single labeltip report nosortheader flatsb > $mdx.vdll 
  did -i $dname 2,16 1 headerdims 108:1 90:2 88:3 54:4 | did -i $dname 2,16 1 headertext Ícone $chr(9) Nome $chr(9) Comando $chr(9) $+ +c Estilo
  mdx SetBorderStyle $dname 4,5,6,7,9,10,11,12 $`4(border,staticedge) | mdx SetBorderStyle $dname 14 windowedge | mdx SetControlMDX $dname 14 StatusBar sizeGrip > $mdx.bdll
  if ($`4(tb.tool,simples) == simples) { did -h $dname 15,16 }
  if ($`4(tb.tool,simples) == dupla) { did -v $dname 15,16 | mdx MoveControl $dname 1 * * * 112 | mdx MoveControl $dname 2 * * * 95 }
  tb.list | unset %tb.listsel
}
on *:dialog:tb:sclick:2:{ did -u $dname 16 | set %tb.listsel 1 | set %tb.linesel $calc($did(2).sel - 1) }
on *:dialog:tb:sclick:16:{ did -u $dname 2 | set %tb.listsel 2 | set %tb.linesel $calc($did(16).sel - 1) }
on *:dialog:tb:dclick:2:{ tba | did -h tba 16,21,23 | did -v tba 22 | dialog -t tba $iif($`4(tb.tool,simples) == dupla,Editar Ítem - Toolbar 1,Editar Ítem) | tokenize 216 $read(sistema\tb1.txt,$calc($did(2).sel - 1)) | did -ra tba 3 $2 | did -ra tba 5 $3 | did -ra tba 7 $1 | $tb.stlsel($4) | tb.prev }
on *:dialog:tb:dclick:16:{ tba | did -h tba 16,21,22 | did -v tba 23 | dialog -t tba Editar Ítem - Toolbar 2 | tokenize 216 $read(sistema\tb2.txt,$calc($did(16).sel - 1)) | did -ra tba 3 $2 | did -ra tba 5 $3 | did -ra tba 7 $1 | $tb.stlsel($4) | tb.prev }
on *:dialog:tb:sclick:4:{
  if ($`4(tb.tool,simples) == dupla) {
    if (%tb.listsel == 1) || ($did(2).sel) { tba | did -h tba 21,22,23 | did -v tba 16 | dialog -t tba Adicionar Ítem - Toolbar 1 }
    elseif (%tb.listsel == 2) || ($did(16).sel) { tba | did -h tba 16,22,23 | did -v tba 21 | dialog -t tba Adicionar Ítem - Toolbar 2 }
    else { did -i $dname 14 2 1 selecione a list da toolbar onde deseja adicionar ítem! }
  }
  else { tba | did -h tba 21,22,23 | did -v tba 16 | dialog -t tba Adicionar Ítem }
  unset %tb.listsel
}
on *:dialog:tb:sclick:7:{
  if ($did(2).sel isnum 1-2) { did -i $dname 14 2 1 Esse item não podem ser editado! | return }
  if ($`4(tb.tool,simples) == dupla) {
    if ($did(2).sel) { tba | did -h tba 16,21,23 | did -v tba 22 | dialog -t tba Editar Ítem - Toolbar 1 | tokenize 216 $read(sistema\tb1.txt,$calc($did(2).sel - 1)) | did -ra tba 3 $2 | did -ra tba 5 $3 | did -ra tba 7 $1 | $tb.stlsel($4) | tb.prev }
    elseif ($did(16).sel) { tba | did -h tba 16,21,22 | did -v tba 23 | dialog -t tba Editar Ítem - Toolbar 2 | tokenize 216 $read(sistema\tb2.txt,$calc($did(16).sel - 1)) | did -ra tba 3 $2 | did -ra tba 5 $3 | did -ra tba 7 $1 | $tb.stlsel($4) | tb.prev }
    else { did -i $dname 14 2 1 selecione a list/linha da toolbar onde deseja editar ítem! }
  }
  else { tba | did -h tba 16,21,23 | did -v tba 22 | dialog -t tba Editar Ítem | tokenize 216 $read(sistema\tb1.txt,$calc($did(2).sel - 1)) | did -ra tba 3 $2 | did -ra tba 5 $3 | did -ra tba 7 $1 | $tb.stlsel($4) | tb.prev }
  unset %tb.listsel
}
on *:dialog:tb:sclick:5:{
  if ($did(2).sel isnum 1-2) { did -i $dname 14 2 1 Esse item não podem ser removido! | return }
  if ($did(2).sel) { write -dl $+ $calc($did(2).sel - 1) sistema\tb1.txt | tb.list | tbar.atua }
  elseif ($did(16).sel) { write -dl $+ $calc($did(16).sel - 1) sistema\tb2.txt | tb.list | tbar.atua }
  else { did -i $dname 14 2 1 selecione a linha que deseja remover! }
  unset %tb.listsel
}
on *:dialog:tb:sclick:6:{
  if ($`4(tb.tool,simples) == dupla) {
    if ($did(2).sel) { var %t = $$input(Deseja realmente deletar toda a toolbar da lista selecionada?,136,Limpar ToolBar?) | if (%t == $true) { write -c sistema\tb1.txt | write sistema\tb1.txt FIGURAS\ICONES\144.icoØConectarØ/connectØ+a | tb.list | tbar.atua | did -i $dname 14 2 1 ToolBar totalmente removida com sucesso! } }
    elseif ($did(16).sel) { var %t = $$input(Deseja realmente deletar toda a toolbar da lista selecionada?,136,Limpar ToolBar?) | if (%t == $true) { write -c sistema\tb2.txt | tb.list | tbar.atua | did -i $dname 14 2 1 ToolBar totalmente removida com sucesso! } }
    else { did -i $dname 14 2 1 selecione uma das listas/toolbar para limpar seus ítens! }
  }
  else { var %t = $$input(Deseja realmente deletar toda a toolbar da lista selecionada?,136,Limpar ToolBar?) | if (%t == $true) { write -c sistema\tb1.txt | write sistema\tb1.txt FIGURAS\ICONES\144.icoØConectarØ/connectØ+a | tb.list | tbar.atua | did -i $dname 14 2 1 ToolBar totalmente removida com secesso! } }
  unset %tb.listsel
}
on *:dialog:tb:sclick:9:{ showtoolbar }
on *:dialog:tb:sclick:10:{ if ($dialog(tbar)) { tbar.atua } }
on *:dialog:tb:sclick:11:{ tbo }
alias tbo { dialog $iif($dialog(tbo),-ve,-m) tbo tbo }
dialog tbo {
  title "Toolbar Opções"
  size -1 -1 256 154
  icon figuras\icones\90.ico
  box " RGB: (0,0,0) ", 1, 5 3 246 82
  text "R:", 2, 11 23 12 13
  scroll "", 3, 31 23 130 13, range 255 horizontal
  text "G:", 4, 11 43 12 13
  scroll "", 5, 31 43 130 13, range 255 horizontal
  text "B:", 6, 11 63 11 13
  scroll "", 7, 31 63 130 13, range 255 horizontal
  text "", 8, 172 21 70 35
  check "Usar RGB", 9, 173 63 70 13
  box "Toolbar:", 10, 5 90 72 59
  radio "Simples", 11, 12 109 60 13, group
  radio "Dupla", 12, 12 128 60 13
  box "Barras:", 13, 82 90 73 59
  check "Lag Bar", 14, 90 109 60 13
  check "Idle Bar", 15, 90 128 60 13
  box "Abrir ao iniciar:", 16, 160 90 91 59
  radio "Sim", 17, 179 109 50 13, group
  radio "Não", 18, 179 128 50 13
  button "ok", 100, 1 1 1 1, cancel hide
}
on *:dialog:tbo:init:*:{
  mdx.start | mdx SetFont $dname 1,2,4,6,9,10,11,12,13,14,15,16,17,18 +a 12 5 verdana | mdx SetBorderStyle $dname 8 staticedge
  if ($`4(tb.r,222) != $null) { did -c $dname 3 $`4(tb.r,222) }
  if ($`4(tb.g,219) != $null) { did -c $dname 5 $`4(tb.g,219) }
  if ($`4(tb.b,207) != $null) { did -c $dname 7 $`4(tb.b,207) }
  did -a tbo 1 $+($chr(32),RGB: ( $`4(tb.r,222) , $`4(tb.g,219) , $`4(tb.b,207) ),$chr(32))
  if ($`4(tb.rgb,on) == on) { did -c $dname 9 }
  if ($`4(tb.tool,simples) == simples) { did -c $dname 11 }
  if ($`4(tb.tool,simples) == dupla) { did -c $dname 12 }
  if ($`4(tb.lagbar,on) == on) { did -c $dname 14 }
  if ($`4(tb.idlebar,on) == on) { did -c $dname 15 }
  if ($`2(toolbar) == on) { did -c $dname 17 }
  if ($`2(toolbar) == off) { did -c $dname 18 }
  mdx SetColor $dname 8 background $rgb($`4(tb.r,222),$`4(tb.g,219),$`4(tb.b,207))
}
on *:dialog:tbo:scroll:3:{ mdx SetColor $dname 8 background $rgb($did(3).sel,$did(5).sel,$did(7).sel) | _set2 tb.r $did(3).sel | tbar.atua | did -a tbo 1 $+($chr(32),RGB: ( $`4(tb.r,222) , $`4(tb.g,219) , $`4(tb.b,207) ),$chr(32)) }
on *:dialog:tbo:scroll:5:{ mdx SetColor $dname 8 background $rgb($did(3).sel,$did(5).sel,$did(7).sel) | _set2 tb.g $did(5).sel | tbar.atua | did -a tbo 1 $+($chr(32),RGB: ( $`4(tb.r,222) , $`4(tb.g,219) , $`4(tb.b,207) ),$chr(32)) }
on *:dialog:tbo:scroll:7:{ mdx SetColor $dname 8 background $rgb($did(3).sel,$did(5).sel,$did(7).sel) | _set2 tb.b $did(7).sel | tbar.atua | did -a tbo 1 $+($chr(32),RGB: ( $`4(tb.r,222) , $`4(tb.g,219) , $`4(tb.b,207) ),$chr(32)) }
on *:dialog:tbo:sclick:9:{ if ($did(9).state == 1) { _set2 tb.rgb on } | else { _set2 tb.rgb off | if ($dialog(tbar)) { dialog -k tbar tbar | .timer -m 1 1 dialog -m tbar tbar } } | tbar.atua }
on *:dialog:tbo:sclick:11:{ _set2 tb.tool simples | if ($dialog(tb)) { did -h tb 15,16 | mdx MoveControl tb 1 * * * 216 | mdx MoveControl tb 2 * * * 199 | tbar.atua } }
on *:dialog:tbo:sclick:12:{ _set2 tb.tool dupla | if ($dialog(tb)) { did -v tb 15,16 | mdx MoveControl tb 1 * * * 112 | mdx MoveControl tb 2 * * * 95 | tbar.atua } }
on *:dialog:tbo:sclick:14:{ if ($did(14).state == 1) { _set2 tb.lagbar on } | else { _set2 tb.lagbar off } | tbar.atua }
on *:dialog:tbo:sclick:15:{ if ($did(15).state == 1) { _set2 tb.idlebar on } | else { _set2 tb.idlebar off } | tbar.atua }
on *:dialog:tbo:sclick:17:{ _set2 toolbar on }
on *:dialog:tbo:sclick:18:{ _set2 toolbar off }
alias utilmenu {
  if ($devent == sclick) return
  _popupdll.New2 _ad 240 | var %rt = $result | `pop SetStyle _ad bordericon bordertext | var %menu = _ad | var %hh = figuras\icones\telnet.ico | _popupdll.icon %menu figuras\icones\get.ico | _popupdll.icon %menu figuras\icones\37.ico
  if ($isfile(%hh)) { _popupdll.icon %menu %hh }
  if (!$isfile(%hh)) { _popupdll.icon %menu figuras\icones\s.ico }
  var %cmd = _popupdll.icon %menu | %cmd figuras\mail.ico | %cmd figuras\icones\mail.ico | %cmd figuras\icones\icq.ico | %cmd figuras\icones\382.ico | %cmd figuras\icones\cel.ico | %cmd figuras\icones\trad.ico | %cmd figuras\icones\72.ico | %cmd figuras\icones\73.ico | %cmd figuras\icones\view.ico | %cmd util\mascote.exe
  %cmd figuras\icones\131.ico | %cmd figuras\icones\7.ico | %cmd figuras\icones\77.ico | %cmd figuras\icones\13.ico | %cmd figuras\icones\27.ico | %cmd figuras\icones\msn.ico | %cmd figuras\icones\59.ico | %cmd = _popupdll.AddItem %rt > | %cmd 1 1 0 Downloader 	 Shift+F1 $cr get
  %cmd 2 2 0 Mensagem em massa 	 /massa $cr massa | %cmd 3 3 0 Portscan 	 /pscan $cr pscan | %cmd 4 0 0 - $cr - | _popupdll.sub %rt > 5 5 0 Emails | var %rtt2 = $result | _popupdll.AddItem %rtt2 > 6 4 0 Enviar email 	 /mailz $cr mailz | _popupdll.AddItem %rtt2 > 7 5 0 Ver seus emails 	 /email $cr checkemail
  %cmd 8 6 0 ICQ 	 /icq $cr icq | %cmd 9 19 0 MSN 	 /msn $cr msn | %cmd 10 0 0 - $cr - | %cmd 11 7 0 Agendar tarefas 	 /tarefas $cr prog_tarefas | %cmd 12 14 0 Navegador 	 /navegador $cr navegador
  %cmd 13 9 0 Tradutor Online 	 /tradutor $cr tradutor | %cmd 15 10 0 Letras de Música 	 /letras $cr letra_musica | %cmd 16 16 0 Localizador de mp3 	 /mp3find $cr mp3find | %cmd 110 0 0 - $cr -
  %cmd 14 8 0 Mensagem para celulares 	 /sms $cr sms | %cmd 17 17 0 Fserver 	 /fserver $cr fserver | %cmd 18 18 0 Ouvir Rádio 	 /radio $cr radio | %cmd 112 20 0 Chat voz 	 /voz $cr voz
  %cmd 19 0 0 - $cr - | %cmd 20 11 0 Visualizador de logs 	 /logs $cr logs | %cmd 21 12 0 Visualizador de fotos 	 /fotos $cr picview | %cmd 22 15 0 Aliases editor 	 /aliases $cr aliases
  %cmd 23 0 0 - $cr - | %cmd 24 13 0 Mascote do script 	 /mascote $cr mascote | _popupdll.Popup _ad + $mouse.dx $mouse.dy | _popupdll.Destroy _ad
}
alias _conectar { server | did -o tbar 1 2 +av 2 $tab $+ Desconectar }
alias _desconectar { disconnect | did -o tbar 1 2 +av 1 $tab $+ Conectar }
alias connect_menu {
  if ($devent == sclick) return | _popupdll.New2 _ad 100 | var %rt = $result | `pop SetStyle _ad bordericon bordertext
  _popupdll.icon _ad figuras\icones\144.ico | _popupdll.icon _ad figuras\icones\145.ico | _popupdll.icon _ad figuras\icones\srvs.ico
  _popupdll.AddItem %rt > 1 1 0 Conectar $str($chr(160),4) $cr _conectar
  _popupdll.AddItem %rt > 2 2 0 Desconectar $str($chr(160),4) $cr _desconectar
  _popupdll.AddItem %rt > 3 0 0 - $cr -
  _popupdll.AddItem %rt > 4 3 0 Servidores $str($chr(160),4) $cr _servidores
  _popupdll.Popup _ad + $mouse.dx $mouse.dy | _popupdll.Destroy _ad
}
alias setprog { if (!$window($$1)) return | drawrect -fr $1 13684944 0 0 0 100 12 | drawrect -nr $1 16777215 1 0 0 99 11 | drawline -nr $1 8421504 1 0 0 98 0 | drawline -nr $1 8421504 1 0 0 0 10 | drawrect -fr $1 16777215 1 2 2 94.9 6 | drawpic -cn $1 2 2 5 1 $calc($2 * 0.9400) 6 "figuras\p222.png" | drawdot $1 }
alias tool_os { if ($os isin .XP.) { return $iif($calc($window(-3).y - $window(-2).y) > 75,$1,$2) } | return $2 }
dialog tbar {
  size 0 1 3800 300
  option notheme
  list 1, 6 3 795 15, size
  list 2, 6 31 795 15, size
  text "Lag: 0.000s", 3, 695 3 100 12
  button "", 4, 695 17 99 11
  text "Inativo: 0.000s", 5, 585 3 100 12
  button "", 6, 585 17 99 11
  box "", 7, -2 -6 2010 8
  box "", 8, -2 23 2010 8
  text "41", 60, 585 17 100 8, hide
  button "Done", 20, 8500 1350 30 10, ok hide
  button "nada", 45, 1 1 1 1, hide default
}
on *:dialog:tbar:init:*:{
  var %erwrew = $dll($dlldir(cybertools.dll),CyberScript_dock,$dialog(tbar).hwnd) | mdx SetMircVersion $version | mdx.start | mdx SetDialog $dname style none | mdx SetControlMDX $dname 1,2 toolbar nodivider flat wrap arrows > $mdx.bdll | mdx SetBorderStyle $dname 1,2 tool | mdx SetFont $dname 3,5 +a 12 5 verdana
  window -pfzhk0B +dL @tb1 1 1 100 12 | drawrect -fr @tb1 13684944 0 0 0 100 12 | drawrect -nr @tb1 16777215 1 0 0 99 11 | drawline -nr @tb1 8421504 1 0 0 98 0 | drawline -nr @tb1 8421504 1 0 0 0 10 | drawrect -fr @tb1 16777215 1 2 2 94.9 6 | drawrect @tb1 | mdx SetControlMDX $dname 4 Window > $mdx.ddll | did -a $dname 4 grab $window(@tb1).hwnd @tb1 | window -a @tb1
  window -pfzhk0B +dL @tb2 1 1 100 12 | drawrect -fr @tb2 13684944 0 0 0 100 12 | drawrect -nr @tb2 16777215 1 0 0 99 11 | drawline -nr @tb2 8421504 1 0 0 98 0 | drawline -nr @tb2 8421504 1 0 0 0 10 | drawrect -fr @tb2 16777215 1 2 2 94.9 6 | drawrect @tb2 | mdx SetControlMDX $dname 6 Window > $mdx.ddll | did -a $dname 6 grab $window(@tb2).hwnd @tb2 | window -a @tb2 | tbar.atua | .timershowlagbar -o 0 2 lagbarshowlag
}
on *:dialog:tbar:close:*:{ if ($`4(tb.tool,simples) == dupla) { background -ux } }
on *:dialog:tbar:dclick:1:{
  if ($tbar.code($calc($did(1).sel - 1)) == /mirc_opções) opcoesmenu
  else $tbar.code($calc($did(1).sel - 1))
}
on *:dialog:tbar:dclick:2:{ $tbar.code2($calc($did(2).sel - 1)) }
alias opcoesmenu {
  _popupdll.New2 _ad 220 | var %rt = $result | `pop SetStyle _ad bordericon bordertext | _popupdll.icon _ad figuras\icones\21.ico | _popupdll.icon _ad figuras\icones\63.ico | _popupdll.icon _ad figuras\Settings.ico
  _popupdll.AddItem %rt > 1 1 0 Configurações do mIRC $cr mirc_opções
  _popupdll.AddItem %rt > 2 2 0 Configurações do CyberScript $tab /config $cr config
  _popupdll.AddItem %rt > 3 0 0 - > -
  _popupdll.AddItem %rt > 4 3 0 Painel de controle $tab /cpanel $cr cpanel
  _popupdll.Popup _ad + $mouse.dx $mouse.dy | _popupdll.Destroy _ad
}
alias tbar_menu {
  if ($devent == sclick) return | _popupdll.New2 _ad 100 | var %rt = $result | `pop SetStyle _ad bordericon bordertext
  _popupdll.AddItem %rt > 1 0 0 Editar toolbar $str($chr(160),4) $cr tb
  _popupdll.AddItem %rt > 2 0 0 Fechar toolbar $str($chr(160),4) $cr showtoolbar
  _popupdll.Popup _ad + $mouse.dx $mouse.dy | _popupdll.Destroy _ad
}
on *:dialog:tbar:rclick:*:{ tbar_menu }
on *:dialog:tbar:sclick:*:{
  if ($did == 1) {
    var %sel = $gettok($did(1).seltext,2,32)
    if ((%sel == 1) || (%sel == 2)) { 
      if (!$inrect($mouse.x,$mouse.y,5,3,28,24)) { halt }
      scid $activecid
      if (%sel == 1) { server | did -o $dname 1 2 +av 2 $tab $+ Desconectar | return }
      else { disconnect | did -o $dname 1 2 +av 1 $tab $+ Conectar | return }
    }
    $tbar.code($calc($did(1).sel - 1)) | return
  }
  if ($did == 2) { $tbar.code2($calc($did(2).sel - 1)) | return }
  ;.showmirc -s | .timer 1 1 showmirc -s
}
alias tbarra { return }
alias tbar.code { tokenize 216 $read(sistema\tb1.txt,$1) | return $iif($3 != $chr(45),$3,) }
alias tbar.code2 { tokenize 216 $read(sistema\tb2.txt,$1) | return $iif($3 != $chr(45),$3,) }
alias -l tb.valoreal {
  if ($os == XP) return $1- | var %df = $replacex($1-,figuras\icones\16.ico,figuras\icones\98\16.ico,figuras\icones\33.ico,figuras\icones\98\33.ico,figuras\icones\38.ico,figuras\icones\98\38.ico,figuras\icones\85.ico,figuras\icones\98\85.ico,figuras\icones\87.ico,figuras\icones\98\87.ico,figuras\icones\89.ico,figuras\icones\98\89.ico)
  return $replacex(%df,figuras\icones\122.ico,figuras\icones\98\122.ico,figuras\icones\148.ico,figuras\icones\98\148.ico,figuras\icones\157.ico,figuras\icones\98\157.ico,figuras\icones\147.ico,figuras\icones\98\147.ico,figuras\icones\about.ico,figuras\icones\98\about.ico)
}
alias tbar.atua {
  if ($dialog(tbar)) {
    did -r tbar 1,2 | did -i tbar 1,2 1 bmpsize 16 16 | did -i tbar 1 1 setimage +nhd icon small figuras\icones\144.ico | did -i tbar 1 1 setimage +nhd icon small figuras\icones\145.ico
    if (!$server) did -a tbar 1 +av 1 $chr(9) $+ Conectar
    if ($server) did -a tbar 1 +av 2 $chr(9) $+ Desconectar
    if ($fopen(tbar)) .fclose tbar | var %x = 2 | var %y = 1 | var %w = 2 | var %z = 0 | .fopen tbar sistema\tb1.txt | var %fddfs = $fread(tbar)
    while (!$fopen(tbar).eof) {
      tokenize 216 $fread(tbar)
      if ($1 == $chr(45)) { did -a tbar 1 $1 }
      else { inc %w | did -i tbar 1 1 setimage +nhd icon small $tb.valoreal($1) | did -a tbar 1 $4 %w $chr(9) $+ $2 }
    }
    .fclose tbar | .fopen tbar sistema\tb2.txt
    while (!$fopen(tbar).eof) {
      tokenize 216 $fread(tbar)
      if ($1 != $null) {
        if ($1 == $chr(45)) { did -a tbar 2 $1 }
        else { inc %z | did -i tbar 2 1 setimage +nhd icon small $tb.valoreal($1) | did -a tbar 2 $4 %z $chr(9) $+ $2 }
      }
    }
    .fclose tbar
    if ($`4(tb.rgb,on) == on) {
      if ($`4(tb.r,222) != $null) && ($`4(tb.g,219) != $null) && ($`4(tb.b,207) != $null) {
        mdx SetDialog tbar bgcolor $rgb($`4(tb.r,222),$`4(tb.g,219),$`4(tb.b,207)) | mdx SetColor tbar 1,2,3,5 background $rgb($`4(tb.r,222),$`4(tb.g,219),$`4(tb.b,207)) | mdx SetColor tbar 3,5 textbg $rgb($`4(tb.r,222),$`4(tb.g,219),$`4(tb.b,207))
        if ($`4(tb.r,222) <= 100) || ($`4(tb.g,219) <= 100) || ($`4(tb.b,207) <= 100) { mdx SetColor tbar 3,5 text $rgb(255,255,255) }
        else { mdx SetColor tbar 3,5 text reset }
      }
    }
    if ($`4(tb.tool,simples) == simples) { background -xu | did -h tbar 2,8 | statusbaratualiza }
    if ($`4(tb.tool,simples) == dupla) { background -u SISTEMA\tb.jpg | did -v tbar 2,8 | statusbaratualiza }
    if ($`4(tb.lagbar,on) == on) { did -v tbar 3,4 } | else { did -h tbar 3,4 }
    if ($`4(tb.idlebar,on) == on) {
      if ($`4(tb.tool,simples) == simples) {
        did -v tbar 5,6
        if ($`4(tb.lagbar,on) == off) { mdx MoveControl tbar 1 * * $calc($window(-1).w - 120) * | mdx MoveControl tbar 5 $calc($window(-1).w - 105) 3 * * | mdx MoveControl tbar 6 $calc($window(-1).w - 105) $iif($os == XP,16 * 11,17 * 9) }
        else { mdx MoveControl tbar 1 * * $calc($window(-1).w - 230) * | mdx MoveControl tbar 5 $calc($window(-1).w - 215) 3 * * | mdx MoveControl tbar 6 $calc($window(-1).w - 215) $iif($os == XP,16 * 11,17 * 9) | mdx MoveControl tbar 3 $calc($window(-1).w - 105) 3 * * | mdx MoveControl tbar 4 $calc($window(-1).w - 105) $iif($os == XP,16 * 11,17 * 9) }
      }
      if ($`4(tb.tool,simples) == dupla) {
        did -v tbar 5,6 
        if ($`4(tb.lagbar,on) == off) { mdx MoveControl tbar 1 * * $calc($window(-1).w - 120) * | mdx MoveControl tbar 2 * * $calc($window(-1).w - 5) * | mdx MoveControl tbar 5 $calc($window(-1).w - 105) 3 * * | mdx MoveControl tbar 6 $calc($window(-1).w - 105) $iif($os == XP,16 * 11,17 * 9) }
        else { mdx MoveControl tbar 1 * * $calc($window(-1).w - 120) * | mdx MoveControl tbar 2 * * $calc($window(-1).w - 120) * | mdx MoveControl tbar 5 $calc($window(-1).w - 105) 31 * * | mdx MoveControl tbar 6 $calc($window(-1).w - 105) $iif($os == XP,43 * 11,44 * 9) | mdx MoveControl tbar 3 $calc($window(-1).w - 105) 3 * * | mdx MoveControl tbar 4 $calc($window(-1).w - 105) $iif($os == XP,16 * 11,17 * 9) }
      }
    }
    else {
      did -h tbar 5,6
      if ($`4(tb.lagbar,on) == off) { mdx MoveControl tbar 1 * * $calc($window(-1).w - 5) * | mdx MoveControl tbar 2 * * $calc($window(-1).w - 5) * }
      else { mdx MoveControl tbar 1 * * $calc($window(-1).w - 120) * | mdx MoveControl tbar 2 * * $calc($window(-1).w - 5) * | mdx MoveControl tbar 3 $calc($window(-1).w - 105) 3 * * | mdx MoveControl tbar 4 $calc($window(-1).w - 105) $iif($os == XP,16 * 11,17 * 9) }
    }
    did -h tbar 8 | did -v tbar 8
  }
}
alias tb.list {
  if ($dialog(tb)) {
    did -r tb 2,16,14 | var %x = 1 | var %y = 1 | var %z = 0 | var %w = 0 | did -i tb 2,16 1 clearicons normal
    var %ff = sistema\ | var %opt = $lines($+(%ff,tb1.txt))
    while (%x <= %opt) {
      tokenize 216 $read($+(%ff,tb1.txt),%x)
      if ($1 == $chr(45)) { did -a tb 2 $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 }
      else { inc %w | did -i tb 2 1 seticon normal 0, $+ $1 | did -a tb 2 0 %w $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 }
      inc %x
    }
    var %opt = $lines($+(%ff,tb2.txt))
    while (%y <= %opt) {
      tokenize 216 $read($+(%ff,tb2.txt),%y)
      if ($1 == $chr(45)) { did -a tb 16 $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 }
      else { inc %z | did -i tb 16 1 seticon normal 0, $+ $1 | did -a tb 16 0 %z $1 $chr(9) $2 $chr(9) $3 $chr(9) $4 }
      inc %y
    }
  }
}
alias tb.stlsel { if ($1) { did -c tba 10 $replace($1,+a,1,+c,2,+i,3,+v,4) | tb.prevck } }
alias tb.prevck {
  var %y = $gettok($did(tba,10).seltext,1,32)
  if (%y == +a) { did -ra tba 14 "padrão" }
  if (%y == +c) { did -ra tba 14 "checkbox" }
  if (%y == +i) { did -ra tba 14 "desfocado" }
  if (%y == +v) { did -ra tba 14 "dropdown" }
}
alias tb.prev {
  did -r tba 13
  if ($did(tba,7) != $chr(45)) { did -i tba 13 1 bmpsize 16 16 | did -i tba 13 1 setimage +nhd icon small $did(tba,7) | did -a tba 13 $gettok($did(tba,10).seltext,1,32) 1 $chr(9) $+ $did(tba,3) | tb.prevck }
  else { did -i tba 13 1 bmpsize 16 16 | did -a tba 13 $did(tba,7) | did -ra tba 14 "separador" }
}
on *:active:*:{
  if ($activecid != $lactivecid) {
    TitleTimeX
    if ($dialog(tbar)) { .timer -m 1 100 show_lag $iif(!$server,0.000,$iif($`(Lag $+ $activecid),$ifmatch,0.000)) | did -o tbar 1 2 +av $iif($status isin .connected.connecting.,2 $tab $+ Desconectar,1 $tab $+ Conectar) }
  }
}
alias tb.idle { if (($dialog(tbar)) && ($hget(cyber,tb.idlebar) != OFF)) { var %tbi = $iif($calc($idle / 60) < 100,$v1,100) | did -ra tbar 5 Inativo: $duration2($idle) | setprog @tb2 %tbi } }
alias lagbarshowlag {
  if (!$dialog(tbar)) { .timershowlagbar off | return }
  if ($hget(cyber,tb.lagbar) != OFF) { tokenize 32 $iif(!$server,0.000,$iif($`(Lag $+ $activecid),$ifmatch,0.000)) | did -ra tbar 3 Lag: $1 seg | setprog @tb1 $iif($int($calc($1 * 10.2)) < 100,$v1,100) }
  tb.idle
}
;EOF