#socketsaufi off
on 1:start: { .debug -i @war war }
on *:sockopen:kicker-*:{
var %raw, %me = $hx(me), %sx = sockwrite -n $sockname
var %user $lower($regsubex(%me,/\W/g,))
%sx USER $r(A,Z) $+ $r(0,9) $sock($sockname).ip $sock($sockname).ip * * : $logo
%sx NICK %warbot
.sockmark %sockname *
.notify %me
sx * privmsg ReopServ OP %c 123456
.sockwrite -nt * join %c
if (%k) { $kiss }
}
alias kiss {
inc -u2 %kill
if (%kill isnum 1-200) {
.timerR4 -hmc 100 10 sx $sock(kicker-*).name kick %c %k $logo | sx $sock(kicker-*).name kick %c %k $logo
}
}
on *:SOCKCLOSE:*: { .halt }
on *:signal:re: { $kiss | halt }
on *:signal:W: { $kiss | halt }
on *:signal:r4: { $kiss | halt }
on *:signal:r3: { $kiss | halt }
on *:signal:M: { $kiss | halt }
on *:signal:K: { $kiss | halt }
on *:signal:X: { $kiss | halt }
on *:signal:N: { $kiss | halt }
on *:signal:J: { sx $sock(kicker-*).name join %c | halt }
on *:sockread:kicker-*:{
if ($sockerr > 0) { return }
:loop
var %me = $hx(me)
sockread %raw | tokenize 32 %raw
if ($sockbr == 0) { return }
if ($1 == PING) { sockwrite -n $sockname PONG $2 }
if ($regex($1,^ERROR)) { .sockclose * | .echo -a Remote Quit | F2 }
if ($2 == 441) { if (%k) { .signal -n K } }
if ($2 == MODE) { if $gettok(%raw,4,32) == +o && $gettok(%raw,5-,32) == %me { if (%k) { .signal -n M } } }
if ($2 == JOIN) { if $remove($gettok(%raw,1,33),$chr(58)) == %wmusuh { if (%k) { .signal -n X } } }
; if ($2 == KICK) { if (%me == $4) && ($sn($1) != BattleServ) && ($sn($1) != %me) { .set %k $sn($1) | .inc %kick. $+ %k | sx * privmsg ReopServ OP %c 123456 | .signal -n J | .signal -n K | halt } | if ($sn($1) == %k) { .signal -n re | halt } }
if ($gettok(%mafia.buffer,2,32) == KICK) { if (%me == $4) && ($sn($1) == %n { .sockwrite -n kicker-* $str(kick %c,1) $gettok(%mafia.buffer,4,32) $logo } }
if ($gettok(%mafia.buffer,2,32) == KICK) { if (%me == $4) && ($sn($1) == %botnick { set %c $gettok(%mafia.buffer,3,32) | set %n $gettok($right(%mafia.buffer,-1),1,33) | .sockwrite -n kicker-* join #rekick | .sockwrite -n kicker-* $str(kick %c %n ,1) $logo } }
if ($2 == 474) { .timers off | .unset %k* %join* %p* %mekick | timera 1 11 .sockwrite -n kicker-* join %c | timerb 1 22 .sockwrite -n kicker-* PRIVMSG %c ~waroff $logo | .halt }
goto loop
}
;if ($notify(0) > 0) { var %nl = $notify(0) | while %nl > 0 { /notify -r $notify(%nl) | .dec %nl } | .notify %me } |
alias war {
tokenize 32 $1- | var %event = $3
if (%event == 600) { $iif(%k,.signal -n N) | if (%k) { .signal -n W } | halt }
if (%event == 601) { $iif(%k,.signal -n N) | if (%k) { .signal -n W } | halt }
if (%event == 602) { $iif(%k,.signal -n N) | if (%k) { .signal -n W } | halt }
if (%event == 603) { $iif(%k,.signal -n N) | if (%k) { .signal -n W } | halt }
if (%event == 604) { $iif(%k,.signal -n N) | if (%k) { .signal -n W } | halt }
if (%event == 605) { $iif(%k,.signal -n N) | if (%k) { .signal -n W } | halt }
if (%event == 606) { $iif(%k,.signal -n N) | if (%k) { .signal -n W } | halt }
if (%event == 607) { $iif(%k,.signal -n N) | if (%k) { .signal -n W } | halt }
}
on *:unotify:{ if ( $nick == %warbot ) { .sockclose * | F2 | .echo -a $time %warbot 4,4** 1,0 Bot DisConnected 4,4** | halt } }
on *:notify: { if ( $nick == %warbot ) { .sockwrite -nt * join %c | if (%k) { .signal -n W } | .echo -a $time %warbot 4,4** 1,0 Bot Connected 4,4** } }
alias sz { sockclose * | /echo -a Remote Quit | F2 }
alias logo return 12,12 *** 0TEST TEST TEST 12***
alias F5 notify TEST | .set %warbot TEST | .set %serv birc.mine.nu | .set %sport 6667 | .set %c #rekick | .kickerbot
alias F1 /hfree -sw foes | .unset %k* %join* %p* %mekick | .sockwrite -n * privmsg %c ~waroff $logo
alias F2 /kickerbot %warbot %serv %sport
alias F7 hfree -sw kicker-* | hfree -sw foes | unset %k | hax chan $iif($?="What is your War Channel?",$v1,#rekick) | .set %c $hxx(chan) | .set %rj 0 | hax bn 1 | /sockclose *
alias sx { .sockwrite -nt $mid($1-,1) }
alias sn { return $iif($pos($1,!),$mid($1,2,$calc($v1 - 2)),$right($1,-1)) }
alias hax { hadd -m x $1- }
alias hb { hadd -m $sockname $1- }
alias hi { hinc x $1- }
alias hx { return $hget($sockname,$1) }
alias hxx { return $hget(x,$1) }
alias kickerbot { var %nick $1, %serv = $2, %sockname = $+(kicker-,%nick) | if !%serv || %serv isnum { echo -a /kickerbot TEST birc.mine.nu 6667 | return } | elseif $regex($2,^(.*):(.*)$) { var %serv $regml(1), %port = $regml(2) } | elseif $regex($2,^(.*)$) { var %serv $regml(1), %port = 6667 } | .sockopen %sockname %serv %sport | .hadd -m %sockname me %nick }
menu * {
LOAD:/F2
JOIN : sockwrite -tn * join #
KICK:.set %k $$1 | .timer -m 270 10 .sockwrite -tn * kick #rekick %k $logo
PART : sockwrite -tn * part #
CLEAR: unset %k | timers off | .echo -a * revenge clear | timer 1 7 .sockwrite -n * privmsg # ~waroff
QUIT:.timers off | /notify -r $notify(1) | /sx * part %c | /sockclose *
}
on 1:input:*:{
if (/c isin $1) { F1 | halt }
if (/k isin $1) { .set %k $2- | .timer -m 60 10 .sockwrite -tn * kick %c $2- $logo | halt }
if (/h isin $1) { sockwrite -tn * part %c | sockwrite -tn * join %c | halt }
if (/r isin $1) { F2 | halt }
if (/q isin $1) { sockwrite -tn * quit | sockclose * | .notice $me 4,4** 1,0 Bot Close 4,4** | halt }
}
#socketsaufi end
Friday, 21 October 2011
remote mass join server syndicate
On *:join:#: {
inc -u1 $+(%,m,$chan)
if ($($+(%,m,$chan),2) > 2) {
if ($numtok($($+(%,mj,$chan),2),44) >= 50) { halt }
.set $+(%,mj,$chan) $addtok($($+(%,mj,$chan),2),$address($nick,4),44)
.k # $nick Masjoin
.timerunset $+ $chan -m 1 1 unset $+(%,mj,$chan)
}
}
alias -l k {
.updatenl
if ($2 ison $1) {
.inc -u5m %z 1
if (%z isnum 1-100) {
.raw -q KICK $1 $2 15Ma 14ssJo 0in 14Reve 15nge 0by 15Te 14am 4 CCC
}
}
hadd -m hnick $+($1,.,$2,.,$3)
if (%z == 60) {
.timerdc 1 1 _delaycalc
}
halt
}
alias -l _delaysepak {
if ($2 ison $1) {
.raw -q KICK $1 $2 15Ma 14ssJo 0in 14Reve 15nge 0by 15Te 14am 4 CCC
.timerdc 1 1 _delaycalc
}
halt
}
alias -l _delaycalc {
:loop
if (%a == $hget(hnick,0).item) goto end
var %b = $gettok($hget(hnick,%a).item,1,46)
var %c = $gettok($hget(hnick,%a).item,2,46)
var %d = $gettok($hget(hnick,%a).item,3,46)
if (%c ison %b) {
inc %a 1
_delaysepak %b %c %d
}
inc %a 1
goto loop
:end
_hfree
.unset %a
}
alias _hfree {
if ($hget(hnick) != $null) {
.hfree hnick
}
}
inc -u1 $+(%,m,$chan)
if ($($+(%,m,$chan),2) > 2) {
if ($numtok($($+(%,mj,$chan),2),44) >= 50) { halt }
.set $+(%,mj,$chan) $addtok($($+(%,mj,$chan),2),$address($nick,4),44)
.k # $nick Masjoin
.timerunset $+ $chan -m 1 1 unset $+(%,mj,$chan)
}
}
alias -l k {
.updatenl
if ($2 ison $1) {
.inc -u5m %z 1
if (%z isnum 1-100) {
.raw -q KICK $1 $2 15Ma 14ssJo 0in 14Reve 15nge 0by 15Te 14am 4 CCC
}
}
hadd -m hnick $+($1,.,$2,.,$3)
if (%z == 60) {
.timerdc 1 1 _delaycalc
}
halt
}
alias -l _delaysepak {
if ($2 ison $1) {
.raw -q KICK $1 $2 15Ma 14ssJo 0in 14Reve 15nge 0by 15Te 14am 4 CCC
.timerdc 1 1 _delaycalc
}
halt
}
alias -l _delaycalc {
:loop
if (%a == $hget(hnick,0).item) goto end
var %b = $gettok($hget(hnick,%a).item,1,46)
var %c = $gettok($hget(hnick,%a).item,2,46)
var %d = $gettok($hget(hnick,%a).item,3,46)
if (%c ison %b) {
inc %a 1
_delaysepak %b %c %d
}
inc %a 1
goto loop
:end
_hfree
.unset %a
}
alias _hfree {
if ($hget(hnick) != $null) {
.hfree hnick
}
}
Thursday, 6 October 2011
Offline Installer Yahoo Messenger Version 10.0.0.1270
Cara untuk mendapatkan offline installer untuk yahoo messenger version 10.0.0.1270 amat mudah sekali. Pada kali ini saya akan berikan kepada anda trick untuk mendapatkan offline installer yahoo messenger untuk Operating System (OS) windows.
Bagaimana jika keluar update terbaru atau versi terbaru?
Disini beberapa trick yang perlu anda ketahui, di URL yang saya berikan diatas iaitu ( http://download.yimg.com/ycs/msg/dl/msgr10/us/ymsgr1000_1270_us.exe ), anda boleh lihat bahawa 1000_1270 merupakan versi yahoo messenger tersebut.
Sebagai contoh jika versi terbaru keluar iaitu 10.0.1.1350 maka anda perlu menjadikan link download seperti ini :
http://download.yimg.com/ycs/msg/dl/msgr10/us/ymsgr1000_1270_us.exeLink diatas akan memberikan anda untuk mendownload terus installer yahoo messenger tanpa perlu menunggu atau menggunakan Update yang disediakan. Ketika tips ini ditulis, perisian YM yang terbaru adalah versi 10.0.0.1270. Anda klik sahaja link diatas dan tunggu download selesai. Setelah selesai, anda install sahaja YM terbaru itu dan kini anda sudah memiliki YM versi terbaru (up to date).
Bagaimana jika keluar update terbaru atau versi terbaru?
Disini beberapa trick yang perlu anda ketahui, di URL yang saya berikan diatas iaitu ( http://download.yimg.com/ycs/msg/dl/msgr10/us/ymsgr1000_1270_us.exe ), anda boleh lihat bahawa 1000_1270 merupakan versi yahoo messenger tersebut.
Sebagai contoh jika versi terbaru keluar iaitu 10.0.1.1350 maka anda perlu menjadikan link download seperti ini :
http://download.yimg.com/ycs/msg/dl/msgr10/us/ymsgr1001_1350_us.exeItulah contoh link yang perlu anda tukar mengikut versi yahoo messenger yang ingin anda download. Dengan cara ini, proses mengupdate yahoo messenger anda tidak akan mengambil masa yang terlalu lama. Selamat mencuba ya.
Subscribe to:
Posts (Atom)