--------------------------------------------------------
on *:sockopen:%sock_nick: {
if (!$sockerr) {
sx $sockname USER $rn * * : 4,4_ 0m|®¢ 4,4_ 0®ëd 4,4_ 0åñd 4,4_ 0Whitë 4,4_
sx $sockname NICK %sock_nick
se info 4 $+ $sockname still try to connect...
}
}
on *:sockread:%sock_nick: {
if ($sockerr) { return } | var %read | sockread %read
if (!$sockbr) { return }
tokenize 32 %read
if ($regex($1,^ERROR)) { sockclose $sockname }
elseif ($regex($1,^PING$)) { sx $sockname PONG $2 }
elseif ($regex($2,^(432|433)$)) { sx $sockname NICK $rn }
elseif ($regex($2,^NICK$)) { sr $sockname $1- }
elseif ($regex($2,^001$)) { sc $sockname $1- }
else {
if (%warmodeX) {
var %g goto g
if ($istok(%trig,$2,46)) { goto $left($2,3) } | %g
:kic | on:kick $sockname $1- | %g
:inv | on:invi $sockname $1- | %g
:346 | raw:nvx $1- | %g
:348 | raw:nvx $1- | %g
:353 | raw:353 $5- | %g
:303 | raw:303 $1- | %g
:461 | raw:461 $1- | %g
:367 | raw:367 $1- | %g
:368 | raw:368 $1- | %g
:401 | raw:401 $3 | %g
:441 | raw:441 $3 | %g
:par | on:part $1- | %g
:qui | on:quit $1- | %g
:mod | on:mode $sockname $1- | %g
:not | on:noti $sockname $1- | %g
:joi | on:join $sockname $1- | %g
:471 | raw:loc $sockname $4 l | %g
:473 | raw:loc $sockname $4 i | %g
:474 | raw:loc $sockname $4 b | %g
:475 | raw:loc $sockname $4 k | %g
:477 | raw:loc $sockname $4 R | :g
}
}
}
alias rn { return unrealx }
alias sx { sockwrite -nt $1- }
alias se { echo -ct $1 @PlayGround * $2- }
alias sn { return $iif($pos($1,!),$mid($1,2,$calc($v1 - 2)),$right($1,-1)) }
alias sl { return $right($1,$calc($len($1) - 1)) }
alias sr {
var %n $sn($2), %nn $right($4,-1)
if ($1 == %n) {
sockrename $1 %nn
set %sock_nick %nn
set %ally $reptok(%ally,%n,%nn,1,32)
set %name $reptok(%name,%n,%nn,1,32)
}
elseif ($istok(%ally,%n,32)) { %ally = $reptok(%ally,%n,$4,1,44) }
else { if ($istok(%foes,%n,44)) { %foes = $reptok(%foes,%n,$4,1,44) } }
se nick %n is now known as %nn
}
alias sc {
set %serv $sn($2)
set %myip $mask($11,2)
se info 14,1 $1 14,1 connected on server 14 %serv
ident_sock
}
alias _replace { return $replace(%foes,$chr(44),$chr(32)) }
alias chnick { if (%imop) { sx %sock_nick nick $rn } }
alias on:kick {
if ($4 == %chan) {
var %n = $sn($2)
set %name $remtok(%name,$5,1,32)
if ($5 == $1) && (!$istok(%ally,%n,32)) {
set %foes $addtok(%foes,%n,44)
set %dark $addtok(%dark,$mask($2,2),32)
set %fast $iif(%fast,0,0)
set %imop $false
unset %kick %nvxa %nvxb
if (%pkmsg) { set %pick_kmsg $replace($sl($6-),$chr(32),$chr(160)) }
if (%fjdeop) {
sx $1 cs deop %chan $_replace
}
sx $1 $iif(%fast,join,cs invite) $4
}
else {
set %kick $remtok(%kick,$5,1,44)
if ($1 == %n) {
}
if ($1 == %n) && (%chk) && (!%chn) { set -u5 %chn ! | chnick }
}
}
se kick $iif($5 == $1,You were,$5 was) kicked from $4 by %n $+($chr(40),$iif($left($6,1) == :,$right($6-,-1),$6-),,$chr(41))
}
alias on:invi {
var %c $right($5,-1)
if (%c == %chan) && ($istok(%ally,$sn($2),32)) {
unset %nvxa %nvxb
set %r303 $true
set %rban $true
set %wban %dark
sx $1 ison $replace(%foes,$chr(44),$chr(32))
if (%wideban) { sx $1 mode %c +b }
if (%invexremover) {
sx $1 mode %c +I
sx $1 mode %c +e
}
}
}
alias raw:303 { if (%r303) { io $1- } }
alias raw:461 { if (%r303) { io $1- } }
alias io {
if ($4 != ISON) {
var %p $right($4-,-1)
.timerdeop -m 1 $calc(%join %sign %jvar) sx %sock_nick cs deop %chan %p
.set %foes $replace(%p,$chr(32),$chr(44))
}
else { unset %foes }
.timerjoin -m 1 %join sx %sock_nick join %chan
.set %r303 $false
}
alias raw:367 { if (%rban) { rb $5 } }
alias raw:368 { if (%rban) { rb } }
alias rb {
if ($1) { if ($wildtok(%dark,$mask($1,2),1,32)) { set %wban $remtok(%wban,$v1,1,32) } }
else { set %rban $false }
}
alias raw:nvx {
if ($4 == %chan) {
if ($left($6,$calc($pos($6,!) - 1)) != %sock_nick) && ($istok(346.348,$2,46)) {
if ($len(%nvxa) < 6) {
set %nvxa $+(%nvxa,$iif($2 == 346,I,e))
set %nvxb %nvxb $5
}
}
}
}
alias on:mode {
var %n $sn($2), %f $left($5,2)
if (%f == +o) {
if ($6 == $1) {
if (%n == Chanserv) {
set %reopex $true
if (%kick) { sx $1 kick $4 %kick $kmsg }
if ($gettok(%kick,5-8,44)) { sx $1 kick $4 $v1 $kmsg }
if ($gettok(%kick,9-12,44)) { sx $1 kick $4 $v1 $kmsg }
if (%modeplusie) { sx $1 mode $4 +Ie %myip %myip }
if (%wideban) {
if (%wban) { sx $1 mode $4 $+(+,$str(b,$numtok(%wban,32)),-,bb) %wban %sock_nick * $me }
}
if (%invexremover) {
if (%nvxa) { sx $1 mode $4 $+(-,%nvxa) %nvxb }
elseif (%wex) { sx $1 mode $4 $+(-,$str(e,$numtok(%wex,32))) %wex | unset %wex }
}
}
set %imop $true
}
}
elseif (%f == -o) && ($6 == $1) {
set %imop $false
unset %nvxa %nvxb
}
elseif (%f == +e) && (%invexremover) && ($istok(%foes,%n,44)) {
var %ex $6
if (%imop) { sx $1 mode $4 -e %ex }
else { set %wex $addtok(%wex,%ex,32) }
unset %ex
}
elseif (%f == -b) && ($wildtok(%dark,$6,1,32)) {
var %b $v1
set %wban $addtok(%wban,%b,32)
if (%banlocker) {
if (%imop) { sx $1 mode $4 +b %b }
}
}
else { if (%f == +b) && ($wildtok(%dark,$6,1,32)) { set %wban $remtok(%wban,$v1,1,32) } }
se mode %n sets mode: $5-
}
alias on:noti {
var %n $sn($2), %p $right($5-,-1)
if (%n == Chanserv) {
if ($7 == deopped) && ($4 == %chan) {
if ($8 == $1) {
var %d $right($5,-1)
if ($istok(%name,%d,32)) {
if (%onopdeop) { sx $1 cs deop $4 %d }
set %foes $addtok(%foes,%d,44)
set %kick $addtok(%kick,%d,44)
}
if (%reopex) { sx $1 cs op $4 $1 }
if (%ondeopchk) && (!%chnk) { set -u5 %chnk ! | chnick }
}
}
else {
if (*is not online* iswm %p) {
set %foes $remtok(%foes,$strip($6),1,44)
set %kick $remtok(%kick,$strip($6),1,44)
}
}
}
if (*Too many nick changes* iswm %p) {
if (%ondeopchk) { set %ondeopchk $false | .timerchk 1 25 set %ondeopchk $true }
if (%chk) { set %chk $false | .timerchk 1 25 set %chk $true }
}
if ($regex($4,^#)) { se notice $+(-,%n,:,$4,-) %p }
else { se notice $+(-,%n,-) %p }
}
alias catX {
if (%logoX == $false) { return }
elseif (%kicklogo.1) { return 4,4_ 0m|®¢ 4,4_ 0®ëd 4,4_ 0åñd 4,4_ 0Whitë 4,4_ | halt }
}
alias kmsg { return $iif(%pick_kmsg,%pick_kmsg,$kik_msg) }
alias on:join {
var %c = $right($4,-1), %n = $sn($2)
if (!$istok(%ally,%n,32)) && ($istok(%dark,$mask($2,2),32)) && ($1 != %n) && (%c == %chan) {
set %reopex $true
if (%ojdeop) { sx $1 cs deop %chan %n }
;sockwrite -tn $1 cs op %chan %sock_nick
if (%imop) { sx $1 kick %c %n $kmsg }
if (%ojban) { sx %sock_nick mode %c +b %n }
set %kick $addtok(%kick,%n,44)
set %foes $addtok(%foes,%n,44)
}
if (!$istok(%ally,%n,32)) { set %name $addtok(%name,%n,32) }
se join %n joins %c
}
alias raw:loc {
if ($2 == %chan) {
if ($2 == %chan) {
sx $1 cs invite $2
if ($3 === b) { .timerunban -m 1 %join sx %sock_nick cs unban $2 }
}
}
}
alias on:part { if ($3 == %chan) { pq $1 part $3 } }
alias on:quit { pq $1 quit }
alias pq {
var %n $sn($1)
set %foes $remtok(%foes,%n,1,44)
set %kick $remtok(%kick,%n,1,44)
set %name $remtok(%name,%n,1,44)
se part %n $2 $+ s $iif($3,$3,IRC)
}
alias raw:401 { set %foes $remtok(%foes,$1,1,44) }
alias raw:441 { set %kick $remtok(%kick,$1,1,44) }
alias raw:353 {
if ($1 == %chan) {
set %name $remove($3-,@,+)
set %temp $numtok(%foes,44)
while (%temp) {
set %woes $gettok(%foes,%temp,44)
dec %temp
if ($istok(%name,%woes,32)) && (!$istok(%ally,%woes,32)) { set %kick $addtok(%kick,%woes,44) }
}
unset %temp %woes
}
}
alias fmsg { return 4,4_ 0m|®¢ 4,4_ 0®ëd 4,4_ 0åñd 4,4_ 0Whitë 4,4_ }
alias setX { return 4,4_ 0m|®¢ 4,4_ 0®ëd 4,4_ 0åñd 4,4_ 0Whitë 4,4_ }
alias kik_msg { return $iif(%kick.msg,$setX(%kick.msg),$catX) }
alias quit_sock { sx %sock_nick quit $kmsg }
alias warbot {
if ($dialog(warbot) == $null) { dialog -m warbot warbot | vibrator warbot warbot }
}
alias f1 warbot
alias f2 { sx %sock_nick join %chan }
alias sf2 { sx %sock_nick part %chan }
alias f3 {
if (%sock_name) { echo 4 -a * Socket with nick %sock_nick still connecting | return }
set %warmodeX $true
if (%reconn) { unset %reconn | goto next }
if (%^serv == $true) %serv = $?="type irc.dal.net"
:next | if (%serv) {
if (%sock_nick) { sockopen %sock_nick %serv 6667 | echo -a 4,4- 0,4INFO 4,4- 8,8- 1,8Socket with nick 4,8 %sock_nick 1is connecting to server 12 %serv }
else { echobot ctcp Choose a nick for your socket }
}
;elseif ($$?="ketik
window -e @PlayGround
var %i $replace($v1,:,$chr(32)), %s $gettok(%i,1,32)
;sockopen %sock_nick %s $iif($gettok(%i,2,32),$v1,6667)
se info 4 $+ %sock_nick 7initialized connection to 11 %serv
set %serv %i
elseif (%serv) {
if (%sock_nick) { sockopen %sock_nick %serv %port }
else { se info You Must Set A Value In 4 %sock_nick }
}
else { se info No Server Is Specified }
}
alias sf3 { set %ojdeop $iif(%ojdeop,$false,$true) } | echo -a 0,4 On-Join Deop 1,8 $iif(%ojdeop,ENABLE ,DISABLE )
alias f4 { addfoes $$1 | cline 9 $iif(%chan,%chan) $$1 | echo -a 0,4 $$1 1,8 added on enemies list }
alias sf4 { set %fjdeop $iif(%fjdeop,$false,$true) } | echo -a 0,4 Fast-Rejoin Deop 1,8 $iif(%fjdeop,ENABLE ,DISABLE )
alias f5 { set %warmodeX $iif(%warmodeX,$false,$true) } | echo -a 0,4 WarMode 0,12 $iif(%warmodeX,ENABLE ,DISABLE ) | sx %sock_nick privmsg %chan : $+ 14War $iif(%warmodeX,Enable,Disable)
alias sf5 { set %onopdeop $iif(%onopdeop,$false,$true) } | echo -a 0,4 On-Op Deop 1,8 $iif(%onopdeop,ENABLE ,DISABLE )
alias f6 {
if (#$?="Enter WarChan") { %chan = $v1 | echo -act info 0,12 WarChan 0,4 $v1 }
else { echo -act info 1,15 « No WarChan Specified » }
}
alias sf6 { set %ondeopchk $iif(%ondeopchk,$false,$true) } | echo -a 0,4 On-Deop Change Nick 1,8 $iif(%ondeopchk,ENABLE ,DISABLE )
alias f7 { sx %sock_nick join %chan }
alias sf7 { set %ojban $iif(%ojban,$false,$true) } | echo -a 0,4 On-Join Ban 1,8 $iif(%ojban,ENABLE ,DISABLE )
alias f8 { unset %foes %dark %wban | echo -act info 0,4 INFO 0,12 Enemies Has Been Cleared | sx %sock_nick privmsg %chan : $+ 14Enemies Cleared }
alias sf8 { set %banlocker $iif(%banlocker,$false,$true) } | echo -a 0,4 Ban-Locker 1,8 $iif(%banlocker,ENABLE ,DISABLE )
alias f9 { set %wideban $iif(%wideban,$false,$true) | set %banlocker $iif(%banlocker,$false,$true) } | echo -a 0,4 Mode-Ban 1,8 $iif(%wideban,ENABLE ,DISABLE )
alias sf9 { sx %sock_nick nick $rn }
alias f10 { set %chk $iif(%chk,$false,$true) } | echo -a 0,4 Nick-Changer 1,8 $iif(%chk,ENABLE ,DISABLE )
alias sf10 { set %logoX $iif(%logoX,$false,$true) | set %pkmsg $iif(%pkmsg,$false,$true) | unset %pick_kmsg } | echo -a 0,4 Pick-Kick Message 1,8 $iif(%pkmsg,ENABLE ,DISABLE )
alias f11 { quit_sock } | echo -a 0,4 ALERT 1,8 Socket With Nick 4 %sock_nick 1Has Been Disconnected
on *:load: {
if ($version < 6.21) {
.echo -ac ctcp This script could not run on mIRC version $version due to
.echo -ac ctcp dialog features only supported on versions 6.21 onwards.
.echo -ac ctcp Please download the latest mIRC at www.mirc.com
.unload -rs $nopath($script) $kmsg
}
else { echo -ac info $nopath($script) $kmsg is now loaded. }
}
alias sf11 { set %antichk $iif(%antichk,$false,$true) } | echo -a 0,4 Anti-Nick Changer 1,8 $iif(%antichk,ENABLE ,DISABLE )
alias f12 { enemylistx }
alias enemylistx { echo -a 1,15 Enemies 4 $numtok(%foes,44) 1,15: 12 $sorttok(%foes,44) }
on ^1:OP:%chan:{ if ($istok(%dark,$address($opnick,2),32)) { cline 9 %chan $opnick } }
on *:unload: {
unset %pass %sock_nick %sock_user %join %jvar %sign %warmodeX %serv %port %chan %ally %trig
echo -ac info $nopath($script) $kmsg has been unloaded.
}
on *:part:#:{ if ($nick == $me) { part # } }
on *:start: { scriptset | fkeys }
alias scriptset {
set %chk $false
set %ojban $false
set %ojdeop $true
set %fjdeop $true
set %wideban $false
set %banlocker $false
set %modeplusie $false
set %invexremover $false
set %ondeopchk $false
set %onopdeop $false
set %antichk $true
set %pkmsg $false
set %logoX $true
set %join 15000
set %jvar 300
set %sign -
set %kicklogo.1 ok
set %warmodeX $true
set %trig kick.invite.mode.notice.join.nick.part.quit.303.461.471.473.474.475.477.441.401.353.367.368.346.348
set %serv swiftco.dal.net
set %port 6667
set %ally Chanserv
unset %foes | unset %dark | unset %kick | unset %wban | unset %sock_nick | unset %sock_user | unset %pass | unset %myip | unset %chan | unset %name
.identd on $rn
.fullname $fmsg
}
alias fkeys {
;echo -a
echo -a 9---------------------------------------------------------------------------------
echo -a 9- 8Just Press 4F1 8To Open Dialog Menu
echo -a 9- 8Right Click On Channel Window
echo -a 9---------------------------------------------------------------------------------
}
alias ident_sock { sx %sock_nick identify %pass }
alias addfoes { set %foes $addtok(%foes,$1,44) | set %dark $addtok(%dark,$address($1,2),32) }
alias delfoes { set %foes $remtok(%foes,$1,1,44) | set %dark $remtok(%dark,$address($1,2),1,32) }
on *:nick:{
if (%antichk == $true) {
if ($istok(%foes,$nick,44) == $true) {
set %foes $reptok(%foes,$nick,$newnick,44)
}
}
}
on !*:JOIN:#:{
if ($regex($wildsite,/ninja.staff|staff.Dalnet|dalnet|127.0.0.11|dal.net|staff.dal.net/)) {
if (!$window(ircop_alert!!)) { window -aboCk0+df @ircop_alert!! -1 -1 600 100 tahoma 18 }
aline -hp 4 @ircop_alert!! 14,1 WARNING: IRCop join on 4 $upper($chan) 1,8detected on Nick : 12 $upper($nick)
.msg %chan IRCop join on $chan detected on Nick : 4 $nick
.timerpart 1 2 part %chan im.leaving.from.this.planet...
.nick $anick
.timerchangenick 1 5 nick $+($anick,$r(10,99))
if ($sock(*,0)) {
aline -hp 4 @ircop_alert!! 0,4 Now Auto Quitting The WarBot
sockwrite -tn * quit : 13stupid fuckin` idiot staff in here
}
}
}
menu nicklist {
-
» Sock-Ctrl
.» Op: { if (%sock_nick isop $chan) { sx %sock_nick mode $chan +o $$1 } | else { sx %sock_nick cs op $chan $$1 } }
.» Deop: { if (%sock_nick isop $chan) { sx %sock_nick mode $chan -o $$1 } | else { sx %sock_nick cs deop $chan $$1 } }
.-
.$iif(%sock_nick isop $chan,» Voice) : { sx %sock_nick mode $chan -o+v $$1 $$1 }
.» Devoice: { sx %sock_nick mode $chan -v $$1 }
.-
.» Ban: { sx %sock_nick ban $chan $$1 $kmsg }
.» Ban Ip: { sx %sock_nick mode $chan +b $address($$1,2) $kmsg }
.-
.» Kick (why):{ sx %sock_nick kick $chan $$1 $$?="Reason:" }
.-
.» Slap:{ sx %sock_nick privmsg %chan : action slaps $$1 around a bit with a large trout }
-
» Add $$1:{ addfoes $$1 | sx %sock_nick kick %chan $1 $kmsg } | echo -a 14,1 $$1 14,1 Adding!!
» Del $$1:{ delfoes $$1 }
-
}
menu channel {
-
««-|[ Unrealx ]|-»»:f1
-
Join WarChan:{ sx %sock_nick join %chan }
Part WarChan:{ sx %sock_nick part %chan $kmsg }
-
Invex-Rem ( $+ $iif(%invexremover,On,Off)$+ ) :{ set %invexremover $iif(%invexremover,$false,$true) | set %modeplusie $false } | echo -a 0,4 Invex-Remover 1,8 $iif(%invexremover,ON ,OFF )
Mode +Ie ( $+ $iif(%modeplusie,On,Off) $+ ) :{ set %modeplusie $iif(%modeplusie,$false,$true) } | echo -a 0,4 Mode +Ie 1,8 $iif(%modeplusie,ON ,OFF )
-
Random Nick:{ sx %sock_nick nick $rn }
-
Change Nick:{ sx %sock_nick nick : $+ $$?="Type Your New Sock_Nick" }
Ident Pass:{ sx %sock_nick identify : $+ $$?="Type Your Sock_Nick Password" }
-
Enemies List:{ f12 }
Clear All Enemies:{ f8 }
-
WarBot Talk:{ sx %sock_nick privmsg %chan : $+ $$?="type your message here" }
-
Quit WarBot: { quit_sock }
}
alias vibrator {
var %d $1
if ($dialog(%d)) {
.dialog -v %d
var %x $dialog(%d).x, %y $dialog(%d).y, %w $calc($dialog(%d).w - 6), %h $calc($dialog(%d).h - 25), %i 1
while (%i <= 400) {
.dialog -s %d $rand($calc(%x - 10),$calc(%x + 10)) $rand($calc(%y - 10),$calc(%y + 10)) %w %h
inc %i
}
.dialog -s %d %x %y %w %h
}
}
on *:INPUT:#:{
if ($left($1,1) == x) {
if ($right($1,-1) == part) { sx %sock_nick part %chan %kmsg }
if ($right($1,-1) == join) { if %sock_nick && (%chan) { sx %sock_nick join %chan } }
if ($right($1,-1) == say) { sx %sock_nick privmsg $active : $+ $2-100 }
if ($right($1,-1) == query) { sx %sock_nick privmsg $2 : $+ $3-100 }
if ($right($1,-1) == kick) { sx %sock_nick kick %chan $2 $3 }
if ($right($1,-1) == add) { addfoes $2 | echo -a 0,4 $2 1,8 has been Added to Enemy List }
if ($right($1,-1) == del) { %dark = $remtok(%dark,$address($$2,2),32) | %foes = $remtok(%foes,$$2,44) | echo -a 14,1- 14 $+ $$2 0 $address($$2,2),32) 14,1 Delete!! }
if ($right($1,-1) == quit) { quit_sock }
if ($right($1,-1) == op) { sx %sock_nick mode # +o $2 }
if ($right($1,-1) == deop) { sx %sock_nick mode # -o $2 }
if ($right($1,-1) == vo) { sx %sock_nick mode # +v $2 }
if ($right($1,-1) == devo) { sx %sock_nick mode # -v $2 }
if ($right($1,-1) == ban) { sx %sock_nick mode # +b $2 }
if ($right($1,-1) == unban) { sx %sock_nick mode # -b $2 }
if ($right($1,-1) == clear) { unset %foes %dark %wban | echo -act info 0,4 INFO 14,1 Enemies Cleared | sx %sock_nick privmsg %chan : $+ 14,1Enemies Cleared }
if ($right($1,-1) == mode) { sx %sock_nick mode # +ntps-Mij }
}
}
--------------------------------------------------------------------
Tips biar menang main war kick pakai script Silveraldo ini:
1.Disable Opsi Fast Join Deop Supaya nilai meng-kick lebih besar daripada dikick sehingga dapat mengoptimisasi score
2.Bandwith dan Laju Koneksi harus kencang
Tips untuk mengoptimalisasi Bandwith dengan cara:
a. Open Start - All Programs - Accessories - Command Prompt
b. Type gpedit.msc terus enter
c. Setelah masuk pada Group Policy pada Computer Configuration pilih Administrator Template
d. Pilih Folder Network - Qos Packet Scheduler - Limit Reservable Bandwith
e. Pilih Opsi Enable ( di Centang ) kemudian 20% ganti dengan 0%
f. Silahkan melakukan Ping terhadap DNS anda jika terdapat ping 19-25 ms maka anda kemungkinan war kick bisa menang.
Have fun
ref: dari berbagai sumber
0 komentar:
Posting Komentar