scripts single war

/*
•Di buat khusus untuk sahabat2ku Indonesia
•SenjataRahasia•
•Author: BeGunD4L
•mIRC version 6.16+
•Konfigurasi: single war
•Copyright © 2008 BeGunD4L
*/
alias f2 if (#) chanserv op # $me
alias f3 clear
alias f4 ctcp chanserv@services.dal.net ping | ctcp $me ping
alias pesan: { return 14,1[| 0,1•SMD|CREW• 512 |] ] }
alias smd|crew return 14,1[| 0,1•SMD|CREW• 512 |] ]
alias smd|crew return 14,1[| 0,1•test• 512 |]

raw 482:*: { haltdef }
raw 442:*: { haltdef }
raw 404:*: { haltdef }
raw 403:*: { haltdef }
raw 401:*:%musuh = $remtok(%musuh,$2,1,44) | haltdef
raw 441:*:%musuh = $remtok(%musuh,$2,1,44) | haltdef

#begunal on
raw 471:*: { rawstyle $2 471 }
raw 473:*: { rawstyle $2 473 }
raw 474:*: { rawstyle $2 474 }
raw 475:*: { rawstyle $2 475 }
raw 477:*: { rawstyle $2 477 }


alias rawstyle {
if ($2 == 474) {
chanserv unban $1
chanserv invite $1
}
else { chanserv invite $1 }
}

on ^*:notice:*has*deopped*:#: {
if ($nick == Chanserv) && ($4 == $me) {
if ($1 ison #) {
%armay = $addtok(%armay,$1,44)
%armax = $addtok(%armax,$1,44)
}
chanserv op # $me
}
}

on ^*:notice:*is*not*online:#: {
%perang = $remtok(%perang,$2,1,44)
%musuh = $remtok(%musuh,$2,1,44)
}

on ^*:invite:#: {
if ($nick == chanserv) {
if (%perang) {
%musuh = %perang
.timerdeop -m 1 1200 chanserv deop # $replace(%musuh,$chr(44),$chr(32))
.timerjoin -m 1 2000 join #
}
else join #
}
}

on ^*:kick:#: {
if ($knick == $me) {
inc %kick
if (!$istok(%musuh,$nick,44)) { %musuh = $addtok(%musuh,$nick,44) }
if (!$istok(%perang,$nick,44)) { %perang = $addtok(%perang,$nick,44) }
if (%kick == 3) { %join = $true | %kick = 0 }
if (%join) { join -n # }
if (%join) { %join = $false }
else { .timerrejoin 1 $r(9,15) cs invite # }
}
else { %musuh = $remtok(%musuh,$knick,1,44) }
}

on ^*:op:#: {
if ($opnick == $me) && (%musuh) {
var %n %musuh
while ($gettok(%n,1-4,44)) { kick # $v1 $smd|crew | %n = $deltok(%n,1-4,44) }
}
if ($opnick != $me) { if ($istok(%musuh,$opnick,44)) && ($me !isop #) chanserv deop # $opnick }
}

on !*:join:#: {
if ($istok(%perang,$nick,44)) {
%musuh = $addtok(%musuh,$nick,44)
if ($me isop #) kick # $gettok(%musuh,1-4,44) $414,1[| 0,1•BeGunD4L• 512 |]
}
}

#begundal end

on *:nick:{
%musuh = $reptok(%musuh,$nick,$newnick,1,44)
%perang = $reptok(%perang,$nick,$newnick,1,44)
}
================================================================================================
on *:start:{
.fullname 14,1[| 0,1•BeGunD4L• 512 |] | writeini popups.ini bpopup n0 414,1[| 14,1[| 0,1•SMD|CREW• 512 |] ]| .load -pm popups.ini
echo $colour(info) -a 11,1Terima Kasih Pada 14,1[| 0,1•SMD|CREW• 512 |] ]
echo $colour(topic) -a 11,1Dibuat oleh 2,4BeGunD4L | .titlebar 14,1[| 0,1•SMD|CREW• 512 |] ]|] By BeGunD4L
set %pesan
}
on *:connect: { .identd on begundal }
on *:load:{
if ($version < 6.17) {
.echo -a 15,1»14»15 dasar bodoh tolol Versi mIRC kamu lebih rendah atau tidak sesuai
.echo -a 15,1»14»15 Silahkan Download di http://www.mirc.com atau hubungin BeGunD4L
.echo -a 15,1»14»15 silahkan join di #droop-dead #bandunghackerlink #begundal #sumedang #tasikmalaya
.echo -a 15,1»14»15 Sementara Proses...
.unload -rs $nopath($script)
}
else { .echo -a 15,1»14» $pesan: 15,1Script sedang loading. }
}

on *:unload: {
.echo -a 15,1»14» $pesan: 15,1Script sudah di off kan.
.unset %*
}



menu menubar,channel,status {
-
$iif($group(#begundal) == mulai,Perang,Damai) War Mode:$iif($group(#begundal) == mulai,.aktifkan,.matikan) #armakicking
-
Clear list { unset %* | say 11,1sudah dibersihkan..!! [| 14,1[| 0,1•SMD|CREW• 512 |] ]}
-
}

menu nicklist,query {
-
14,1[| 0,1•SMD|CREW• 512 |] ]|]T
.Add $$1:%perang = $addtok(%perang,$1,44) | echo -a 8L13aporan: $$1 12,4masuk 4daftar6 bacok - $14,1[| 0,1•SMD|CREW• 512 |] ]
-
14,1[| 0,1•BeGunD4L• 512 |]:kick $chan $1 $14,1[| 0,1•SMD|CREW• 512 |] ]
}