Friday 21 October 2011

remote socket revenge

#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

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
  }
}

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.
http://download.yimg.com/ycs/msg/dl/msgr10/us/ymsgr1000_1270_us.exe
Link 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.exe
Itulah 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.