rendered paste body[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 >emp.getnew
n614= bwrite %gtemp.getfulldir -1 16384 >emp.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=}