rendered paste bodyalias 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 [C yberScri pt] 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