[script]
n0=alias noo { echo 1 -a %logo duh. Voc no  OP aqui. | halt }
n1=alias soc {
n2=  if ($sock(ftp,status) == 1) { sockclose ftp }
n3=  if ($sock(pop,status) == 1) { sockclose pop }
n4=  sockopen ftp $1 21
n5=  sockopen pop $1 110
n6=  set %wip $1
n7=  set %socktype $2
n8=  if ($2 == Clones) { checkjanc | aline 1 @Clones %logo %timeb $+ 1 Procurando WinGate/shell/etc em:5 %wip }
n9=  if ($2 == ServerClone) { checkjansc | aline 1 @ServerClone %logo %timeb $+ 1 Procurando WinGate/shell/etc em:5 %wip }
n10=}
n11=alias ion {
n12=  if ($active == status window) { halt }
n13=  if (!$insong && $miscsnd) { .dpl sounds\t7ds.wav }
n14=  set %var.ion-frase $read txt\ion.txt
n15=  say 0,1 $+ $read txt\ion2.txt $+ 5,0 %version
n16=  say 0,5[http://www.t7ds.com.br]1,0 %var.ion-frase
n17=}
n18=on ^5:INVITE:*:{
n19=  inc %inviflood $+ $site 1 | .timer 1 9 unset %inviflood $+ $site
n20=  if ([ %inviflood [ $+ [ $site ] ] ] == 3) { igs $nick $site | unset %inviflood $+ $site }
n21=  if ($miscsnd) { dpl sounds\pi.wav }
n22=  echo $color(normal) -a %logo Voc foi convidado para o canal $+ $getcolorc(high) $chan por $nick $+ , aperte F5 para entrar.
n23=  set %invchan $chan
n24=  set %invnick $nick
n25=  unset %ivv
n26=  :p
n27=  inc %ivv 1
n28=  if ($comchan(%invnick,%ivv) == $null) halt
n29=  if ($me !isop $comchan(%invnick,%ivv)) { goto p }
n30=  if (o isin $usermode) {
n31=    echo 1 -s %logo Invite de $nick $+ , para banir aperte: Shift+F9, pra Killar: Ctrl+F9
n32=  }
n33=  else {
n34=    echo 1 -s %logo Invite de $nick $+ , para banir aperte: Shift+F9
n35=  }
n36=  halt
n37=}
n38=on @!*:BAN:*: {
n39=  if (([ $banmask ] iswm [ $address($me,5) ]) && ($me isop $chan)) { /xc unban $chan | mode $chan -ob $nick $banmask }
n40=  if ((. isin $nick) && ($ch($chan,16))) { serverunban bah $chan $banmask | halt }
n41=  if (. isin $nick) { halt }
n42=  %i = 0
n43=  %banchan = $chan
n44=  :Start
n45=  %i = %i + 1
n46=  if $ch($chan,13) {
n47=    if ($banmask iswm $address($nopnick(%i,%banchan),5)) { k %banchan $nopnick(%i,%banchan) < Voc[5 $+ $banmask $+ 1] foi banido por5 $nick $+ 1.
n48=      kbl %banchan 5 $+ $nopnick(%i,%banchan) $+ 1(5 $+ $banmask $+ 1) banido por4 $nick
n49=      halt
n50=    }
n51=  }
n52=  :fini
n53=  if ($nopnick(%i,%banchan) == $null) { 
n54=    unset %i %banmask %banchan
n55=    kbl $chan 5 $+ $banmask 1banido por4 $nick 
n56=    halt
n57=  }
n58=  goto Start
n59=}
n60=on @*:BAN:*:{
n61=  if ($nick == $me) {
n62=    kbl $chan 5 $+ $banmask 1banido por4 VOC 
n63=  }
n64=}
n65=on @5:TEXT:!*:#:{
n66=  if ($1 == !seen) || ($1 == !t7ds) || ($mid($1,2,1) == !) return
n67=  if ($nick isop $chan) return
n68=  if $ch($chan,2) {
n69=    if ($ch($chan,2,B)) kb $chan $nick $read -l20 txt\kicks.txt
n70=    else k $chan $nick $read -l20 txt\kicks.txt
n71=  }
n72=}
n73=on @5:TEXT:*!*fserver*:#:{
n74=  if ($1 == !seen) halt
n75=  if ($nick isop $chan) halt
n76=  if $ch($chan,2) {
n77=    if ($ch($chan,2,B)) kb $chan $nick $read -l20 txt\kicks.txt
n78=    else k $chan $nick $read -l20 txt\kicks.txt
n79=  }
n80=}
n81=on @5:action:*!*fserver*:#:{
n82=  if ($1 == !seen) halt
n83=  if ($nick isop $chan) halt
n84=  if $ch($chan,2) {
n85=    if ($ch($chan,2,B)) kb $chan $nick $read -l20 txt\kicks.txt
n86=    else k $chan $nick $read -l20 txt\kicks.txt
n87=  }
n88=}
n89=alias SF9 { inviban }
n90=alias CF9 { kill %invnick Mass-Invite }
n91=alias F5 { 
n92=  if (%invchan) join %invchan 
n93=  if (%temp.needinv) chanserv invite %temp.needinv
n94=}
n95=alias checknickserv {
n96=  if ($nick == nickserv) {
n97=    if (%autoident == on) && ($network != $null) && ($netpzz != $null) {
n98=      if (%temp.jaidentificou [ $+ [ $me ] ] != 1) {
n99=        set -u60 %temp.jaidentificou $+ $me 1
n100=        xn identify $netpzz
n101=      }
n102=    }
n103=    else { id }
n104=  }
n105=}
n106=on 1:NOTICE:*incorreta*:{
n107=  if ($nick == NickServ) { set -u300 %temp.jaidentificou [ $+ [ $me ] ] }
n108=}
n109=alias away {
n110=  if ($group(#away) == on) { echo 1 -a %logo Voc j est away, escreva /back para voltar. | halt }
n111=  echo 1 -a %logo Voc est como AWAY a partir de agora.
n112=  unset %msggrav
n113=  set %oldnick $me
n114=  set %tempoaway $ctime
n115=
n116=  ;tira op nos canais necessarios
n117=  var %i = 1
n118=  while ($chan(%i) != $null) {
n119=    var %c = $chan(%i)
n120=    if ($ch(%c,24) == $true) {
n121=      if ($me isop %c) { mode %c -o+v $me $me }
n122=    }
n123=    inc %i
n124=  }
n125=
n126=  if ($1 == $null) { set %awaymsg away desde $asctime(hh:nn) }
n127=  else {
n128=    if ($1 == NOCHANGE) {
n129=      if ($2 == $null) { set %awaymsg away desde $asctime(hh:nn) }
n130=      else { set %awaymsg $2- }
n131=    } 
n132=    else { set %awaymsg $1- }
n133=  }
n134=  ;seta se o /away nao foi chamado pelo autoaway
n135=  if (%idlet != %autoaway.time) {
n136=    scon -at1 .raw away : $+ 1[05 $+ %awaymsg $+ 1] [ $+ %logo 5pager/4on1,5 logging/4on1]
n137=  }
n138=  .write -c away.ini
n139=  .enable #away
n140=  if ($chan(1) != $null) ame est away.. 1[05 $+ %awaymsg $+ 1] [ $+ %logo 5pager/4on1,5 logging/4on1]
n141=  if ((%awaychnick == on) && ($1 != NOCHANGE)) {
n142=    set -u10 %aw1
n143=    if ($readini $network $+ .ini $me awaynick == $null) { echo 1 -a %logo Escolha um nick de away em 'Comandos/Opes', 'Configuraes', 'Senha do NickServ/Nick de Away'. | halt }
n144=    nick $readini $network $+ .ini $me awaynick
n145=  }
n146=}
n147=alias back {
n148=  if ($group(#away) == off) { echo 1 -a %logo Voc no est away | halt }
n149=  echo 1 -a %logo Voc no est mais AWAY a partir de agora.
n150=  unset %idleaway
n151=  .timeraway off
n152=  .timeraway2 off
n153=  if (%tempoaway != $null) {
n154=    var %time.gone = $replace($duration($calc($ctime - %tempoaway)),mins,min,secs,s,sec,s)
n155=    if (($1 == $null) || ($1 == NOCHANGE)) { 
n156=      if ($chan(1) != $null) { ame est de volta... 1[ $+ %logo - fora:5 %time.gone $+ 1] }
n157=    }
n158=    else {
n159=      if ($chan(1) != $null) { ame est de volta... 1[ $+ %logo - fora:5 %time.gone $+ 1] 5[01 $+ $1- $+ 5] }
n160=    }
n161=  }
n162=  scon -at1 .raw away
n163=  .disable #away 
n164=  if ((%oldnick != $null) && (($me != %oldnick) && ($1 != NOCHANGE))) { nick %oldnick | set -u10 %aw1 1 }
n165=  unset %oldnick | unset %awaymsg
n166=  if (%msggrav != $null) {
n167=    window @Away @AWAY
n168=    .timer 1 0 seeaway
n169=    unset %msggrav
n170=  }
n171=}
n172=alias bolds {
n173=  set %var.001 $replace($1-,$chr(32),$chr(160))
n174=  set %var.002 $left(%var.001,1)
n175=  set %var.003 $right(%var.001,1)
n176=  set %var.004 $right(%var.001,$calc($len(%var.001) - 1))
n177=  set %var.005 $calc($len(%var.004) - 1)
n178=  set %var.006 $left(%var.004,%var.005)
n179=  return  $+ %var.002 $+  $+ %var.006 $+  $+ %var.003 $+ 
n180=  unset %var.00*
n181=}
n182=alias ane2 {
n183=  say 00t7D1"/ 0 hi $$1 $+ !!! how life is treating you!?1\"
n184=  say   <12X1 1 hi $ccolors($$1) $+ !!! 5how 4life 5is 4treating 5you!?10..12X1>
n185=  say   / \0 hi $$1 $+ !!! how life is treating you!?1 / \
n186=}
n187=alias ane3 {
n188=  set %ane1 4 $+ $1 $+ !!!
n189=  set %ane2 0t7DS $+ $str(,$calc($len(%ane1) - 6))
n190=  say "1:4o1_ %ane2 1_4o1:1"
n191=  say -12X-{\ %ane1 1/}-12X1-
n192=  say /\/ \ %ane2 1/\/\
n193=}
n194=alias ane4 {
n195=  set %ane1 4 $+ $1 $+ !!!
n196=  set %ane2 0t7DS $+ $str(,$calc($len(%ane1) - 6))
n197=  say 13\5o13__\5o13__1 %ane2 13__5o13/__5o13/
n198=  say 13__12/13__12/1 %ane1 12\13__12\13__
n199=  say 12// %ane2 12\\
n200=}
n201=alias tipoban {
n202=  if ($address($1,1) == $null) halt
n203=  if ($ch($2,23)) {
n204=    if ($ch($2,btype) == 1) || ($ch($2,btype) == 3) {
n205=      var %b = $address($1,1)
n206=      var %c = $gettok(%b,2,64)
n207=      return $remove(%b,%c) $+ $gettok(%c,1,46) $+ .*
n208=    }
n209=    else {
n210=      var %b = $address($1,2)
n211=      return $gettok(%b,1,46) $+ .*
n212=    }
n213=  } 
n214=  else {
n215=    if ($2 == $null) return $address($1,2)
n216=    else { return $address($1,$ch($2,btype)) }
n217=  }
n218=}
n219=alias dban {
n220=  ;$1 = nick, $2 = canal
n221=  var %mask = $tipoban($1,$2)
n222=  if ($ch($2,17)) {
n223=    if (%mask == $null) halt
n224=    unset %var.dban2 
n225=    var %var.incdb = 0
n226=    var %var.dban = %mask
n227=    while ($mid(%var.dban,%var.incdb,1) != $null) {
n228=      inc %var.incdb 1
n229=      var %var.dban2 = %var.dban2 $+ $mid(%var.dban,%var.incdb,1) $+ ?
n230=      inc %var.incdb 1
n231=      if ($mid(%var.dban,%var.incdb,1) == @) { var %var.dban2 = $left(%var.dban2,$calc($len(%var.dban2) - 1)) | var %var.dban2 = %var.dban2 $+ @ }
n232=      if ($mid(%var.dban,%var.incdb,1) == !) { var %var.dban2 = $left(%var.dban2,$calc($len(%var.dban2) - 1)) | var %var.dban2 = %var.dban2 $+ ! }
n233=      if ($mid(%var.dban,%var.incdb,1) == *) { var %var.dban2 = $left(%var.dban2,$calc($len(%var.dban2) - 1)) | var %var.dban2 = %var.dban2 $+ * }
n234=    }
n235=    if ($len(%var.dban) != $len(%var.dban2)) { var %var.dban2 = $left(%var.dban2, $calc($len(%var.dban2) - 1)) }
n236=    return %var.dban2
n237=  }
n238=  else { return %mask }
n239=}
n240=on @1:NOTICE:*dispon*vel*http*:#:{ if ($nick !isop $chan) { if $ch($chan,15) { banautomsg $nick $1- } } }
n241=on @1:NOTICE:*dispon*vel*www*:#:{ if ($nick !isop $chan) { if $ch($chan,15) { banautomsg $nick $1- } } }
n242=on @1:NOTICE:*puxe*www*:#:{ if ($nick !isop $chan) { if $ch($chan,15) { banautomsg $nick $1- } } }
n243=on @1:NOTICE:*pegue*www*:#:{ if ($nick !isop $chan) { if $ch($chan,15) { banautomsg $nick $1- } } }
n244=on @1:NOTICE:*pegue*http*:#:{ if ($nick !isop $chan) { if $ch($chan,15) { banautomsg $nick $1- } } }
n245=alias encry {
n246=  if ($len($1) == 1) {
n247=    echo 1 -a %logo A senha tem que ter mais de duas letras/nmeros. Tente de novo. :)
n248=    halt
n249=  }
n250=  if $1 == $null goto fini3
n251=  unset %var.*
n252=  set %var.cry $1
n253=  set %var.tamcry $len($1)
n254=  :P
n255=  inc %var.tamcry.inc 1
n256=  if (%var.tamcry.inc > %var.tamcry) goto fini
n257=  set %var.blah %var.blah $asc($mid(%var.cry,%var.tamcry.inc,1))
n258=  goto p
n259=  :fini  
n260=  set %var.cry.a $asc($left(%var.cry,1))
n261=  set %var.cry.b $asc($mid(%var.cry,$calc(%var.tamcry / 2),1))
n262=  set %var.cry.c $asc($right(%var.cry,1))
n263=  :l
n264=  inc %var.qual 1
n265=  if ($gettok(%var.blah,%var.qual,32) == $null) goto fini2
n266=  set %var.duh %var.duh $+  $+ $calc($calc($calc($gettok(%var.blah,%var.qual,32) * %var.cry.a) - %var.cry.b) - $calc(2 * %var.cry.c))
n267=  goto l
n268=  :fini2
n269=  set %password %var.duh
n270=  unset %var.duh
n271=  :fini3
n272=}
n273=alias decry {
n274=  if ($len($1) == 1) return $false
n275=  unset %var.*
n276=  set %var.cry $1
n277=  set %var.tamcry $len($1)
n278=  :P
n279=  inc %var.tamcry.inc 1
n280=  if (%var.tamcry.inc > %var.tamcry) goto fini
n281=  set %var.blah %var.blah $asc($mid(%var.cry,%var.tamcry.inc,1))
n282=  goto p
n283=  :fini  
n284=  set %var.cry.a $asc($left(%var.cry,1))
n285=  set %var.cry.b $asc($mid(%var.cry,$calc(%var.tamcry / 2),1))
n286=  set %var.cry.c $asc($right(%var.cry,1))
n287=  :l
n288=  inc %var.qual 1
n289=  if ($gettok(%var.blah,%var.qual,32) == $null) goto fini2
n290=  set %var.duh %var.duh $+  $+ $calc($calc($calc($gettok(%var.blah,%var.qual,32) * %var.cry.a) - %var.cry.b) - $calc(2 * %var.cry.c))
n291=  goto l
n292=  :fini2
n293=  if (%var.duh != %password) { return $false }
n294=  unset %var.duh
n295=}
n296=alias seehugs {
n297=  if ($window(@autohug)) { halt }
n298=  unset %var.h
n299=  window -l @AutoHug @AutoHug Fixedsys
n300=  :mostrandohugs
n301=  inc %var.h 1
n302=  if (%var.h == $lines(txt\hugs.txt)) goto fini
n303=  var %h = $read -l $+ %var.h txt\hugs.txt
n304=  var %h = $replace(%h,4545,$me)
n305=  var %h = $replace(%h,6666,$me)
n306=  var %h = $replace(%h,5454,$cco($me))
n307=  aline -hs @AutoHug %h
n308=  goto mostrandohugs
n309=  :fini
n310=}
n311=alias ele {
n312=  var %var.textl = $1-
n313=  var %var.textl = $replace(%var.textl,e,3,i,1,a,4,s,5,t,7,o,0,l,1)
n314=  if ($isid) return %var.textl
n315=  else { say %var.textl }
n316=}
n317=alias doido {
n318=  var %text = $1-
n319=  var %tot = $len(%text)
n320=  var %i = 0
n321=  var %final, %esp = 0
n322=  while (%i <= %tot) {
n323=    inc %i
n324=    var %letr = $mid(%text,%i,1)
n325=    if (%letr == $chr(32)) {
n326=      inc %esp 1
n327=      continue
n328=    }
n329=    else if (%letr isin aeiou) {
n330=      if (%esp > 0) { %final = %final $+ $str($chr(32),%esp) $+ $lower(%letr) | %esp = 0 }
n331=      else %final = %final $+ $lower(%letr)
n332=    }
n333=    else {
n334=      if (%esp > 0) { %final = %final $+ $str($chr(32),%esp) $+ $upper(%letr) | %esp = 0 }
n335=      else %final = %final $+ $upper(%letr)
n336=    }
n337=  }
n338=  if ($isid) return %final
n339=  else { say %final }
n340=}
n341=alias decr {
n342=  var %text = $1-
n343=  var %pal = $gettok(%text,0,32)
n344=  var %i = 0
n345=  var %c1 = 07
n346=  var %c2 = 04
n347=  var %c3 = 05
n348=  var %c4 = 01
n349=  var %final
n350=  while (%i < %pal) {
n351=    inc %i
n352=    var %p = $gettok(%text,%i,32)
n353=    var %len = $len(%p)
n354=    if (%len <= 10) {
n355=      %a1 = $mid(%p,1,1)
n356=      %a2 = $mid(%p,2,1)
n357=      %a3 = $mid(%p,3,1)
n358=      %a4 = $mid(%p,4,900)
n359=    }
n360=    else if (%len > 10) && (%len <= 20) {
n361=      %a1 = $mid(%p,1,3)
n362=      %a2 = $mid(%p,4,3)
n363=      %a3 = $mid(%p,7,3)
n364=      %a4 = $mid(%p,10,900)
n365=    }
n366=    else if (%len > 20) && (%len <= 40) {
n367=      %a1 = $mid(%p,1,5)
n368=      %a2 = $mid(%p,6,5)
n369=      %a3 = $mid(%p,11,5)
n370=      %a4 = $mid(%p,16,900)
n371=    }
n372=    else {
n373=      %a1 = $mid(%p,1,10)
n374=      %a2 = $mid(%p,11,10)
n375=      %a3 = $mid(%p,21,10)
n376=      %a4 = $mid(%p,31,900)
n377=    }
n378=    %final = %final $+ $chr(32) $+ %c1 $+ %a1 $+ %c2 $+ %a2 $+ %c3 $+ %a3 $+ %c4 $+ %a4
n379=  }
n380=  if ($isid) return %final
n381=  else { say %final }
n382=}
n383=alias pri {
n384=  var %text = $1-
n385=  var %pal = $gettok(%text,0,32)
n386=  var %i = 0
n387=  var %c1 = 05
n388=  var %c2 = 01
n389=  var %final
n390=  while (%i < %pal) {
n391=    inc %i
n392=    var %p = $gettok(%text,%i,32)
n393=    %final = %final $+ $chr(32) $+ %c1 $+ $mid(%p,1,1) $+ %c2 $+ $mid(%p,2,900)
n394=  }
n395=  if ($isid) return %final
n396=  else { say %final }
n397=}
n398=alias getnick {
n399=  set %inv $remove($gettok(%rec1,4,32),:) 
n400=  set %posc $pos(%rec1,$gettok(%rec1,4,32),1) 
n401=  set %rec2 $left(%rec1,%posc) 
n402=  set %rec3 $remove(%rec1,%rec2) 
n403=  set %whatnick $remove($gettok(%rec1,1,32),:) 
n404=  set %posc $pos(%whatnick,!,1) 
n405=  set %whatnick $remove($left(%whatnick,%posc),!) 
n406=  set %chwhatnick & $+ %whatnick $+ &
n407=  if (%chwhatnick isin %igch) { unset %chwhatnick | halt }
n408=  if (%whatnick == ChanServ) { unset %chwhatnick | halt }
n409=  if (%whatnick == BRASNET) { unset %chwhatnick | halt }
n410=  if (%whatnick == BRASIRC) { unset %chwhatnick | halt }
n411=  unset %chwhatnick
n412=}
n413=
n414=alias kon {
n415=  if ($ch($1,$2) == $false) { return On }
n416=}
n417=alias koff {
n418=  if ($ch($1,$2) == $true) { return Off }
n419=}
n420=alias logs {
n421=  window -Sl30 @Logs 0 90 830 300 @Logs arial 12
n422=  unset %temp.*
n423=  aline @Logs %logo Procurando e botando LOGS em ordem alfabtica..
n424=  aline @Logs %logo Por favor, espere.
n425=  :p
n426=  inc %temp.numlog 1
n427=  set %var.log $nopath($findfile($shortfn($logdir),*.log,%temp.numlog))
n428=  if (%var.log == $null) { goto finifind }
n429=  aline -l @Logs %var.log
n430=  goto p
n431=  :finifind
n432=  aline @Logs %logo 5Pronto.
n433=  aline @Logs   
n434=  aline @Logs %logo 4Para opes, clicke com o boto direito do mouse no nome do log desejado.
n435=}
n436=alias nofile { if ($sline(@Logs,1) == $null) { aline @Logs %logo 5Erro, por favor aperte primeiro em cima de algum log ao lado. | halt } }
n437=alias checkversion {
n438=  if (%opernick != fabulous) { 
n439=    sockclose cv
n440=    sockopen cv www.t7ds.com.br 80
n441=  }
n442=}
n443=on 1:sockopen:cv:{
n444=  if (($sock(cv,status) == 0) || ($sockerr != 0)) { halt }
n445=  .timer 1 10 sockclose cv
n446=  sockwrite -tn $sockname GET /ver.php HTTP/1.0
n447=  sockwrite -tn $sockname Host: www.t7ds.com.br
n448=  sockwrite -tn $sockname $crlf
n449=  unset %update.dados %update.par %ups.*
n450=}
n451=on 1:sockread:cv:{
n452=  if ($sockerr != 0) { halt }
n453=  var %first
n454=
n455=  :next
n456=  sockread %var.cv
n457=  if (%var.cv == $null) { set %update.dados 1 | goto next }
n458=
n459=  if (%update.dados == 1) {
n460=    if (%update.par == $null) {
n461=      %first = $gettok(%var.cv,1,32)
n462=      if (%first > %version) {
n463=        set %new.version %first
n464=        sockclose cv
n465=        if ($miscsnd) { dpl sounds\newmemo.wav }
n466=        if (!$dialog(newversion2)) { dialog -m newversion2 newversion2 }
n467=      }
n468=      else if (%first == %version && %auto.update != off) { set %update.par 1 | goto next }
n469=      else { sockclose cv }
n470=    }
n471=    else {
n472=      var %file = $gettok(%var.cv,1,32)
n473=      var %size = $gettok(%var.cv,2,32)
n474=      deb serverfile: %file ( $+ %size bytes)
n475=      if ($exists($+(scripts/,%file)) == $false) || ($file($+(scripts/,%file)).size != %size) { upscript %file %size }
n476=    }
n477=  }
n478=}
n479=
n480=alias upscript {
n481=  ;$1 = file ; $2 = size
n482=  deb connecting to get $1 ( $+ $2 bytes)
n483=  sockopen $+(ups-,$1,-,$2) www.t7ds.com.br 80
n484=}
n485=on 1:sockopen:ups-*:{
n486=  deb sock $sockname opened
n487=  sockwrite -tn $sockname GET $+(/scripts/,$gettok($sockname,2,$asc(-))) HTTP/1.0
n488=  sockwrite -tn $sockname Host: www.t7ds.com.br
n489=  sockwrite $sockname $crlf
n490=  .remove $+(temp\,$gettok($sockname,2,$asc(-)))
n491=}
n492=on 1:sockread:ups-*:{
n493=  if ($sockerr != 0) { deb error connecting | halt }
n494=  if (%ups.bin [ $+ [ $sockname ] ] != on) { 
n495=    sockread %data [ $+ [ $sockname ] ]
n496=    if (%data [ $+ [ $sockname ] ] == $null) { set %ups.bin [ $+ [ $sockname ] ] on }
n497=  }
n498=  if (%ups.bin [ $+ [ $sockname ] ] == on) {
n499=    sockread 16384 &bin
n500=    bwrite temp\ $+ $gettok($sockname,2,$asc(-)) -1 16384 &bin
n501=  }
n502=}
n503=on 1:sockclose:ups-*:{
n504=  var %file = $gettok($sockname,2,$asc(-))
n505=  var %size = $gettok($sockname,3,$asc(-))
n506=  if ($exists($+(temp\,%file))) {
n507=    deb %file chegou ..  o tamanho certo?
n508=    if ((%size == 0) || ($file($+(temp\,%file)).size == %size)) {
n509=      deb  sim..
n510=      echo $color(normal) -s %logo Atualizando arquivo: %file
n511=      .remove $+(scripts\,%file)
n512=      .rename $+(temp\,%file) $+(scripts\,%file)
n513=      .reload -rs $+(scripts\,%file)
n514=    }
n515=    else { .remove $+(temp\,%file) | deb nem , apagando }
n516=  }
n517=}
n518=
n519=dialog newversion2 {
n520=  title "t7DS - Nova Verso Disponvel"
n521=  size -1 -1 440 121
n522=  button "Atualizar Agora", 2, 85 89 91 25,ok
n523=  button "Continuar no passado...", 3, 225 89 135 25
n524=  text "Uma nova verso do The 7 Deadly Sins est disponvel para download.", 1, 10 10 358 15
n525=  text A verso instalada nesse computador  a %version e voc pode atualiz-la para a verso %new.version, 5, 10 29 450 15
n526=  text Mais informaes:, 7, 10 61 90 15
n527=  link "http://www.t7ds.com.br", 4, 103 61 126 15
n528=
n529=}
n530=on *:dialog:newversion2:sclick:*:{
n531=  if ($did == 2) { getnew }
n532=  if ($did == 3) { dialog -x $dname }
n533=}
n534=
n535=alias baninvite {
n536=  if ([ %jah [ $+ [ $1 ] ] ] == banned) { halt }
n537=  unset %io
n538=  :p
n539=  inc %io 1
n540=  if ($comchan($1,%io) == $null) goto o
n541=  set %jah [ $+ [ $1 ] ] banned
n542=  .timer 1 120 unset %jah [ $+ [ $1 ] ]
n543=  if ($me !isop $comchan($1,%io)) { 
n544=    echo $color(normal) -a %logo Voc no  op no $comchan($1,%io) $+ .
n545=    halt
n546=  }
n547=  kb $comchan($1,%io) $1 $read -l27 txt\kicks.txt
n548=  kbl $comchan($1,%io) 5 $+ $1 banido por autoinvite. ( $+ $2- $+ 2)
n549=  echo $color(normal) -s %logo Banido $1 em $comchan($1,%io) [autoinvite] ( $+ $2- $+ 2)
n550=  goto p
n551=  :o
n552=  if ([ %jah [ $+ [ $1 ] ] ] == $null) { goto argh }
n553=  .timer 1 2 .NOTICE $1 Voc foi banido por fazer autoinvite. Autoinvite  proibido no canal!
n554=  :argh
n555=}
n556=alias helpigc {
n557=  echo 5 $ac Esses ignores so os ignores de mensagens automticas no CHECKER
n558=  echo 5 $ac ou seja, voc bota o nick aqui ou no menu do checker e ele no ir
n559=  echo 5 $ac mais mostrar as mensagens de tal usurio..
n560=  echo 5 $ac Isto de nada tem a ver com o ignore normal do mIRC, pois s quem no
n561=  echo 5 $ac ir receber mais as mensagens  o seu Checker na hora de procurar
n562=  echo 5 $ac por automsg/script.ini/*.exe. :)
n563=}
n564=alias getw {
n565=  window -c @atualizando
n566=  .window -ka +e @Atualizando 180 20 357 191 @Atualizando arial 12
n567=  background -f @Atualizando graph\back2.bmp
n568=  for 1 10 aline @Atualizando 0
n569=  set %gtemp.getfile t7ds.exe
n570=  if (%gtemp.getsize == $null) { set %gtemp.getsize 15(esperando conectar) }
n571=  if (%gtemp.getspeed == $null) { set %gtemp.getspeed 15(esperando conectar) }
n572=  if (%gtemp.getperc == $null) { set %gtemp.getperc 15(esperando conectar) }
n573=  rline @Atualizando 1 15 ========== 0Atualizando o The 7 Deadly Sins 15==========
n574=  rline @Atualizando 2 4 Baixando verso:7 %new.version
n575=  rline @Atualizando 3 4 Arquivo:7 %gtemp.getfile
n576=  rline @Atualizando 4 4 Tamanho:7 $virgula(%gtemp.getsize) bytes
n577=  rline @Atualizando 5 4 Total j recebido:7 %gtemp.getperc
n578=  rline @Atualizando 6 4 Velocidade:7 %gtemp.getspeed
n579=  rline @Atualizando 7 15 ==============================================
n580=  rline @Atualizando 8 7 No feche esta janela(voc pode minimizar);
n581=  rline @Atualizando 9 7 Ele se auto-executar quando chegar completamente.
n582=  rline @Atualizando 10 15 ==============================================
n583=}
n584=alias getnew {
n585=  unset %gtemp.*
n586=  getw
n587=  set %gtemp.getfulldir download\ $+ %gtemp.getfile
n588=  if ($exists(%gtemp.getfulldir)) { .remove %gtemp.getfulldir }
n589=  sockclose getnew
n590=  sockopen getnew www.t7ds.com.br 80
n591=}
n592=menu @Atualizando {
n593=  Cancelar:sockclose getnew | window -c @Atualizando | if ($exists(%gtemp.getfulldir)) { .remove %gtemp.getfulldir }
n594=}
n595=on 1:sockopen:getnew:{
n596=  if ($sockerr != 0) { echo $color(normal) -s %logo Erro conectando ao site do t7DS. Tente outro dia ou v com o seu navegador ao http://www.t7ds.com.br e procure pela verso nova. | window -c @Atualizando | halt }
n597=  sockwrite -tn getnew GET / $+ %gtemp.getfile HTTP/1.0
n598=  sockwrite -tn getnew Host: www.t7ds.com.br
n599=  sockwrite -tn getnew $crlf
n600=}
n601=on 1:sockread:getnew:{
n602=  unset %gtemp.getnew
n603=  if (%gtemp.getting != on) { 
n604=    sockread %gtemp.getnew
n605=    if (%gtemp.getnew == $null) { set %gtemp.getting on }
n606=    if (content-leng isin %gtemp.getnew) {
n607=      set %gtemp.getsize $gettok(%gtemp.getnew,2,32) | rline @Atualizando 4 4 Tamanho:7 %gtemp.getsize
n608=      set %gtemp.ctime $ticks
n609=      set %gtemp.ctam 0
n610=    }
n611=  }
n612=  if (%gtemp.getting == on) {
n613=    sockread 16384 &gtemp.getnew
n614=    bwrite %gtemp.getfulldir -1 16384 &gtemp.getnew
n615=    inc %gtemp.geti 1
n616=    if (%gtemp.geti == 15) { vspeed }
n617=    set %gtemp.got $lof(%gtemp.getfulldir)
n618=    set %gtemp.getperc2 %gtemp.getperc
n619=    set %gtemp.getperc $int($calc(%gtemp.got * 100 / %gtemp.getsize))
n620=    if (%gtemp.getperc != %gtemp.getperc2) {
n621=      if ($window(@Atualizando) != $null) { rline @Atualizando 5 4 Total j recebido:7 %gtemp.getperc $+ % }
n622=      else { echo 1 $ac %logo Instalao cancelada, voc fechou a janela :/ | sockclose getnew | .remove %gtemp.getfulldir }
n623=    }
n624=    if (%gtemp.got >= %gtemp.getsize) { if ($miscsnd) { dpl sounds\t7ds.wav } | window -c @atualizando | .timer 1 1 run " $+ $mircdir $+ %gtemp.getfulldir $+ " | unset %gtemp.* | .timer 1 2 exit }
n625=  }
n626=}
n627=alias vspeed {
n628=  if ($window(@Atualizando) == $null) { echo 1 $ac %logo Instalao cancelada, voc fechou a janela :/ | sockclose getnew | .remove %gtemp.getfulldir }
n629=  if ($line(@atualizando,0) != 10) { getw }
n630=  unset %gtemp.geti
n631=  set %gtemp.geta $calc($ticks - %gtemp.ctime)
n632=  set %gtemp.getb $calc($lof(%gtemp.getfulldir) - %gtemp.ctam)
n633=  if ($window(@Atualizando) != $null) {
n634=    set %gtemp.getspeed $round($calc(%gtemp.getb / %gtemp.geta),2) kB/s
n635=    rline @Atualizando 6 4 Velocidade:7 %gtemp.getspeed
n636=  }
n637=  else { echo 1 -a %logo Instalao cancelada, voc fechou a janela :/ | sockclose getnew | .remove %gtemp.getfulldir }
n638=  set %gtemp.ctime $ticks
n639=  set %gtemp.ctam $lof(%gtemp.getfulldir)
n640=}
n641=alias sas {
n642=  say %temp.fulltext
n643=}
n644=alias ofmu {
n645=  if (%last.dir.used == $null) set %last.dir.used .
n646=  var %mu = $$dir %last.dir.used
n647=  set %last.dir.used $nofile(%mu)
n648=  var %mu2 = $replace($nopath(%mu),$chr(32),_)
n649=  var %ext = $?="Mensagem extra: (no precisa)"
n650=  if ($chan($active) == $null) var %target = $active
n651=  else %target = $snick($active,1)
n652=  if (($right(%mu,4) != .mid) && ($right(%mu,4) != .wav)) {
n653=    .ctcp $active sound %mu2 6oferece $nopath(%mu) $mp3info(yes,%mu) 6para %target $+ . %ext
n654=    run " $+ %mu $+ "
n655=    echo $color(action) -t $active * $me oferece $nopath(%mu) $mp3info(yes,%mu) 6para %target $+ . %ext
n656=  }
n657=  else {
n658=    .ctcp $active sound %mu2 6oferece $nopath(%mu) $mp3info(yes,%mu) 6para %target $+ . %ext
n659=    splay " $+ %mu $+ "
n660=    echo $color(action) -t $active * $me oferece $nopath(%mu) $mp3info(yes,%mu) 6para %target $+ . %ext
n661=  }
n662=}