just for fun......

Android Warscript

Lets Play war kicking games at our server jaguar team....

here are the list of server and ports

Serverlist

208.116.46.14
204.188.201.126
89.149.203.238
74.55.41.134

Portlist

4090
7000
6668
6667
at Mirc
/server 204.188.201.126 4090

and join channel #war

Android Warscript (War kicking Script)

;-----------------------------------------------------------------------------------------------;
; Script name : JaGuaR (Android) Technology ;
; Script description : Modern one Against all (Renovation) ;
; Script copy : © 2002-2011 ;
; Scripter : Ritchel a.k.a ^DaRk^SoUl^ ;
;-----------------------------------------------------------------------------------------------;
; Script Message : This is my last Script Made at (Unreal Ircd - Jaguar Server) ;
;-----------------------------------------------------------------------------------------------;
; Script Dedicated : Hex Niel Alter (My one and Only Son) ;
;-----------------------------------------------------------------------------------------------;

;=============================<------Script starts here------>===================================
on @darklist:join:%chan: {
if ($hsh(warmodex)) && (!$istok(%ally,$nick,32)) {
if (%imop) { sockwrite -nt $sock(*,%next) kick $hsh(chan) $nick 14,1-15-An0D4R0oi15D-14- }
if (($hsh(deopx) == $true)) { android deop $hsh(chan) $nick }
if (!$hfind(foes,$nick,0,W)) { hadd -m foes $nick }
}
haltdef
}
on 1:kick:%chan: {
if ($hsh(warmodeX) == $true) && ($knick == $sock(*,%next)) { .auser darklist $wildsite }
haltdef
}
on *:op:%chan: {
if ($hsh(warmodex) == $true) && ($hsh(deopx) == $true) {
var %rawlist = $nick($hsh(chan),0)
while %rawlist {
if (($hfind(foes,$nick($hsh(chan),%rawlist),0,W)) && ($nick($hsh(chan),%rawlist) != $gettok($sockname,%next,32))) { android deop $hsh(chan) $nick($hsh(chan),%rawlist) }
dec %rawlist
}
}
haltdef
}
on *:sockopen:*: {
if (!$sockerr) {
SET -u %S $SOCKNAME
sockwrite -nt $sockname USER $rn $right($rn,-3) $left($rn,-3) * * 14,1-15-An0D4R0oi15D-14-
sockwrite -nt $sockname NICK %s
sockwrite -nt $sockname MODE +iR
se info $sockname is registering to %serv
}
}
on *:sockread:*: {
if ($sockerr) { return } | var %read | sockread %read
if (!$sockbr) { return }
tokenize 32 %read
if ($regex($1,^ERROR)) { sockclose $sockname }
elseif ($regex($1,^PING$)) { sockwrite -nt $sockname PONG $2 }
elseif ($regex($2,^(432|433)$)) { sockwrite -nt $sockname NICK $rn }
elseif ($regex($2,^NICK$)) { sr $sockname $1- }
elseif ($regex($2,^001$)) { sc $sockname $1- }
elseif ($regex($2,^(303|401|441|404|372|406|481|482|375|409|442|484|403|notice)$)) { haltdef }
elseif ($regex($2,^(471|473|474|475|477)$)) { if ($hsh(warmodex)) && ($hsh(antiban)) { sockwrite -nt $sock(*,%attacker) cs invite $4 | sockwrite -nt $sock(*,%attacker) cs unban $4 | sock.shift } }
else {
if ($hsh(warmodex)) {
var %g goto end
if ($istok(%trig,$2,46)) { goto $left($2,3) } | %g
:kic | hshadd dongskie kick | hexnielalter $sockname $1- | %g
:mod | hshadd dongskie mode | hexnielalter $sockname $1- | %g
:joi | hshadd dongskie join | hexnielalter $sockname $1- | %g
:par | hshadd dongskie part | hexnielalter $sockname $1- | %g
:353 | hshadd dongskie 353 | hexnielalter $sockname $1- | %g
:367 | hshadd dongskie 367 | hexnielalter $1- | %g
:368 | hshadd dongskie 368 | hexnielalter $1- | %g
:346 | hshadd dongskie 346 | hexnielalter $1- | %g
:348 | hshadd dongskie 348 | hexnielalter $1- | %g
:end
}
}
}
;===============================< Alias Multiple Socket Reading >========================================
alias hexnielalter {
if ($hsh(dongskie) == 353) {
set %imop $true
var %nicklist = $numtok($7-,32)
while %nicklist >= 0 {
if ($hfind(foes,$remove($gettok($7-,%nicklist,32),@),0,W)) {
sockwrite -tn $sock(*,%next) kick $hsh(chan) $remove($gettok($7-,%nicklist,32),@) 14,1-15-An0D4R0oi15D-14-
android deop $hsh(chan) $remove($gettok($7-,%nicklist,32),@)
}
dec %nicklist
}
if ($hsh(banning) == $true) {
if (%wban) { sockwrite -nt $sock(*,%next) mode $hsh(chan) $+(+,$str(b,$numtok(%wban,32))) %wban }
if (%nvxa) { sockwrite -nt $sock(*,%next) mode $hsh(chan) $+(-,%nvxa) %nvxb }
}
if ($hsh(antiban)) { sockwrite -nt $sock(*,%next) mode $hsh(chan) +Ie %my.ip %my.ip }
if ($hsh(android.360) == $true) { sockwrite -nt $sock(*,%next) part $hsh(chan) } | halt
}
elseif ($hsh(dongskie) == mode) {
var %n $sn($2), %sockets $left($5,2)
if (%sockets == -o) && ($6 == $1) {
unset %imop
if ($hsh(striker) == $true) { sockwrite -nt $sock(*,%next) part $hsh(chan) }
}
elseif (%sockets == +o) && ($6 == $1) {
if ($hsh(warfreak) == $true) { sockwrite -nt $sock(*,%next) part $hsh(chan) }
}
elseif (%f == -b) && ($wildtok(%dark,$6,1,32)) && ($hsh(banning) == $true) {
var %b $v1
set %wban $addtok(%wban,%b,32)
if (%imop) { sockwrite -nt $sock(*,%next) mode $4 +b %b }
}
else {
var %temp.foes = $nick($hsh(chan),0)
while %temp.foes {
if (($hfind(foes,$nick($hsh(chan),%temp.foes),0,W)) && ($nick($hsh(chan),%temp.foes) != $gettok($sockname,%next,32))) { android deop $hsh(chan) $nick($hsh(chan),%temp.foes) }
dec %temp.foes
}
}
se mode %n sets mode: $5-
}
elseif ($hsh(dongskie) == join) {
var %c $right($4,-1), %n $sn($2)
if (!$istok(%ally,%n,32)) && ($istok(%dark,$mask($2,2),32)) && ($1 != %n) && (%c == %chan) {
if (%imop) { sockwrite -nt $1 kick %c %n 14,1-15-An0D4R0oi15D-14- }
if (%n) { android deop %c %n }
if (!$hfind(foes,%n,0,W)) { hadd -m foes %n }
}
if ($hfind(foes,%n,0,W)) { android deop %c %n }
if ($1 == %n) && (%c == %chan) { if (!$istok(%my.ip,$mask($2,2),32)) { set %my.ip $addtok(%my.ip,$mask($2,2),32) } }
se join %n joins %c
}
elseif ($hsh(dongskie) == kick) {
var %n $sn($2), %p $right($4-,-1)
if ($5 == $1) && (!$istok(%ally,%n,32)) {
if ($hsh(transformer) == $true) { sockwrite -nt $sock(*,%next) nick $rn }
if (!$hfind(foes,%n,0,W)) { hadd -m foes %n }
if (!$istok(%dark,$mask($2,2),32)) { set %dark $addtok(%dark,$mask($2,2),32) }
if ($hsh(banning) == $true) { set %rban $true | set %wban %dark }
unset %nvxa %nvxb
sock.timer
;clear %chan
hshinc km 1
inc %next 1
%attacker = $calc(%number_of_kickerx / 2)
if (%next > %attacker) { %next = 1 }
sockwrite -nt $sock(*,%next) join $hsh(chan)
}
else {
if ($1 == %n) {
hshinc kt 1
if ($hsh(android.360) == $false) { sockwrite -nt $sock(*,%next) part $hsh(chan) }
}
}
se kick $iif($5 == $1,4You were,$5 was) kicked from $4 by %n $+($chr(40),$iif($left($6,1) == :,$right($6-,-1),$6-),,$chr(41))
}
elseif ($hsh(dongskie) == part) {
var %n $sn($2), %c $right($4,-1),
if (%n == $1) {
unset %nvxa %nvxb | if ($hsh(banning) == $true) { set %rban $true | set %wban %dark }
if ($hsh(transformer) == $true) { sockwrite -nt $sock(*,%next) nick $rn }
set %number_of_kickerx $sock(*,0)
inc %next 1
%attacker = $calc(%number_of_kickerx / 2)
if (%next > %attacker) { %next = 1 }
sockwrite -nt $sock(*,%next) join $hsh(chan)
}
se part %n parts %c
}
elseif ($hsh(dongskie) == 367) { if (%rban) { rb $5 } }
elseif ($hsh(dongskie) == 368) { if (%rban) { rb } }
elseif ($hsh(dongskie) == 346) || ($hsh(dongskie) == 348) {
if ($4 == %chan) {
if ($left($6,$calc($pos($6,!) - 1)) != $sock(*,%next)) && ($istok(346.348,$2,46)) {
if ($len(%nvxa) < 6) {
set %nvxa $+(%nvxa,$iif($2 == 346,I,e))
set %nvxb %nvxb $5
}
}
}
}
}
;==========-----------==========< Various Aliases of the script >=======----------------================
alias sock.timer {
inc -u2 %antiflood
if (%antiflood < 2) && (%rest == $true) {
unset %rest
clear @Timer
.echo @Timer 4,1Timer Start now
.timerpingmaster 1 60 pingmaster
;--------------------------------------------------------------------------;
;auto clear enemy list in 5 minutes has been disabled due to public demand ;
;.timerclearfoes 1 600 clearfoes ;
;--------------------------------------------------------------------------;
}
haltdef
}
alias clearfoes {
if ($hget(foes)) { hfree foes }
.echo @Log 13,1Auto War List Clear

}
alias pingmaster {
ping $me
.echo @Log 8,1Auto Ping Master Nick
set %rest $true
}
alias rb {
if ($1) { if ($wildtok(%dark,$mask($1,2),1,32)) { set %wban $remtok(%wban,$v1,1,32) } }
else { unset %rban }
}

alias fx { return $right($1,$calc($len($1) - 1)) }
alias rn { return $+(|[,AndRoiD,]|,$r(A,Z),x,$r(10,99),$r(A,Z),$r(a,z)) }
alias sx { sockwrite -nt $1- }
alias se { echo -ct $1 @Warfield * $2- }
alias sn { return $iif($pos($1,!),$mid($1,2,$calc($v1 - 2)),$right($1,-1)) }
alias f12 { if (!$dialog(hex.niel.alter.android)) dialog -m hex.niel.alter.android hex.niel.alter.android }
alias hsh { return $hget(hashdatax,$1) }
alias spac { return $+($1,$str($chr(160),$calc(30 - $len($1)))) }
alias hshadd { hadd hashdatax $1- }
alias hshdel { hdel hashdatax $1 }
alias hshdec { hdec hashdatax $1- }
alias hshinc { hinc hashdatax $1- }
alias spac { return $+($1,$str($chr(160),$calc(30 - $len($1)))) }
alias hex.niel.alter.android { $iif(!$dialog(hex.niel.alter.android),dialog -m hex.niel.alter.android hex.niel.alter.android,dialog -v hex.niel.alter.android hex.niel.alter.android) }
alias mixhybrid {
hshadd sock_nick1 ]xXx[
hshadd bpass1 xclshex
hshadd chan #war
hshadd warmodex $false
hshadd Striker $true
hshadd antiban $true
hshadd deopx $true
hshadd serv 204.188.201.126
hshadd port 4090
hshadd number_of_kicker 20
window -en @Warfield
window -en @Sockstats
window -en @Log
hshadd km 0
hshadd kt 0
hshadd serverlist 208.116.46.14,204.188.201.126,89.149.203.238,74.55.41.134
hshadd portlist 4090,7000,6668,6667
}
alias hybrid {
if ($hget(hashdatax)) { hfree hashdatax | hmake hashdatax }
else { hmake hashdatax }
mixhybrid
}
alias sr {
var %n $sn($2), %nn $right($4,-1)
if ($1 == %n) {
sockrename %n %nn
set %ally $reptok(%ally,%n,%nn,1,32)
}
elseif ($istok(%ally,%n,32)) { set %ally $reptok(%ally,%n,$4,1,44) }
else { if ($hfind(foes,%n,44)) { hshadd foes $reptok($hsh(foes),%n,$4,1,44) } }
.echo @Sockstats 2[Sockets Stats]10 nick %n is now known as %nn $+ .10 Socket
return
}
alias sc {
var %n $sn($2), %px $hsh(bpass1)
sx $1 ns identify $hsh(sock_nick1) $hsh(bpass1) | .echo @warfield 4,1nick $1 already Identified 9,1Password: 
sx $1 nick $r_nick
set %number_of_kickerx $sock(*,0)
inc %number_of_kickerx 1
if (%number_of_kickerx <= $hsh(number_of_kicker)) {
sockopen $rn $hsh(serv) $hsh(port)
se info $sockname is now trying to connect $hsh(serv)
se notice $1 is now connected on server $hsh(serv)
clear @Sockstats
}
if ($1 == $sockname) && (!$istok(%ally,$1,32)) { set %ally $addtok(%ally,$1,32) }
if (!$istok(%ally,$me,32)) { set %ally $addtok(%ally,$me,32) }
}

alias sock.shift {
if ($hsh(warmodex) == $true) {
set %number_of_kickerx $sock(*,0)
if (%number_of_kickerx <= $hsh(number_of_kicker)) { sockopen $rn $hsh(serv) $hsh(port) }
}
inc %next 1
%attacker = $calc(%number_of_kickerx / 2)
if (%next > %attacker) { %next = 1 }
sockwrite -nt $sock(*,%next) join $hsh(chan)
}
alias android {
inc %helper
if (%helper > $sock(*,0)) { set %helper $calc(%attacker + 1) }
sockwrite -nt $sock(*,%helper) cs $1 $2 $replace($3-,$chr(44),$chr(32))
}
alias list_ally: {
did -r $dname $1
var %n = $numtok(%ally,32)
while (%n) {
did -a $dname $1 $gettok(%ally,%n,32)
dec %n
}
did -z $dname $1
}
alias list_ip: {
did -r $dname $1
var %n = $numtok(%dark,32)
while (%n) {
did -a $dname $1 $gettok(%dark,%n,32)
dec %n
}
did -z $dname $1
}
alias list_enemy: {
did -r $dname $1
var %n = $hget(foes,0).item
while (%n) {
did -a $dname $1 $hget(foes,%n).item
dec %n
}
did -z $dname $1
}
alias sockcon {
sockopen $rn $1 $2
set %cserv $1
se info $sockname initialized connection to $1 $+(:,$2)
}
;================================< here are the Script dialog codes >========================================
dialog hex.niel.alter.android {
title "Android WarScript (Renovation)"
size -1 -1 152 133
option dbu
tab "Configuration", 1, 4 2 144 112
check "War Mode", 6, 13 24 58 10, tab 1 push
check "Warfreak (Level 2)", 7, 11 53 63 10, tab 1 push
check "Android 360 (Level 3)", 8, 11 63 63 10, tab 1 push
check "Striker (Level 1)", 44, 11 42 63 10, tab 1 push
check "Nick Transformer", 9, 80 38 62 10, tab 1 push
edit "", 10, 13 82 50 10, tab 1 autohs
box "", 4, 7 18 138 93, tab 1
box "Channel", 13, 8 74 59 20, tab 1
box "War Style", 11, 9 35 66 39, tab 1
check "Deop ON OP (DeOP-X)", 35, 80 62 62 10, tab 1 push
check "IPs Ban Locker", 22, 80 26 62 10, tab 1 push
check "Anti Ban (Invex)", 14, 80 50 62 10, tab 1 push
button "Attack", 12, 9 96 29 12, tab 1
button "Part", 15, 39 96 29 12, tab 1
button "Score", 16, 74 80 29 12, tab 1
button "Timer Data", 18, 110 80 29 12, tab 1
button "Hastable", 19, 74 94 29 12, tab 1
box "", 24, 70 72 73 36, tab 1
button "Thanks to:", 23, 110 94 29 12, tab 1
tab "Database", 2
box "", 25, 8 18 137 93, tab 2
list 30, 10 34 42 66, tab 2 size hsbar vsbar
list 34, 56 34 42 66, tab 2 size hsbar vsbar
list 37, 102 34 42 66, tab 2 size hsbar vsbar
text "Ip's List", 38, 104 24 25 8, tab 2
text "Ally's List", 40, 20 24 25 8, tab 2
text "Nick's List", 39, 58 24 25 8, tab 2
button "Default", 41, 16 100 29 8, tab 2
button "Clear", 43, 108 100 29 8, tab 2
button "Clear", 42, 64 100 29 8, tab 2
tab "Socket Portal", 3
combo 47, 74 24 55 42, tab 3 size drop
box "Port's", 48, 72 16 66 34, tab 3
box "Server's", 49, 72 58 66 34, tab 3
box "Nick Access", 54, 8 16 58 26, tab 3
edit "", 55, 10 26 52 10, tab 3 multi
button "Connect", 58, 8 80 58 12, tab 3
button "Disconnect", 59, 8 96 58 12, tab 3
combo 50, 74 66 56 66, tab 3 size drop
edit "", 57, 10 60 52 10, tab 3 pass multi
box "Nick Pass", 56, 8 50 58 26, tab 3
edit "", 20, 112 96 26 10, tab 3
text "Total Socket", 45, 75 96 33 8, tab 3
tab "Account", 400
box "About", 26, 8 18 137 41, tab 400
text "AndroiD (Renovation)", 27, 11 25 131 9, tab 400 center
text "^DaRk^SoUl^", 28, 11 42 131 8, tab 400 center
text "All Rights Reserved © November 2011", 29, 11 49 131 8, tab 400 center
text "Stat,Insomnia,Ramzkie, Kenneth", 31, 11 70 131 8, tab 400 center
box "Updates, Questions and Script Requests", 33, 8 90 137 21, tab 400
text "The Hex Niel Alter Learner Materials", 21, 11 32 131 8, tab 400 center
box "Testers/Evaluators", 17, 8 60 137 29, tab 400
link "rate_sale@yahool.com", 36, 46 99 59 8, tab 400
text "Fredfoxs,Nelfoxs", 32, 11 77 131 8, tab 400 center
button "Close Dialog", 5, 99 118 41 12, flat ok
}
on 1:dialog:hex.niel.alter.android:*:*:{
var %x = $dname, %y = $did
if ($devent == init) {
if ($hsh(warmodeX) == $true) { did -c %x 6 } | else { did -u %x 6 }
if ($hsh(warfreak) == $true) { hshadd warstyle warfreak | did -ec %x 7 | did -b %x 8 | did -b %x 44 } | else { did -u %x 7 }
if ($hsh(android.360) == $true) { hshadd warstyle Android360 | did -ec %x 8 | did -b %x 7 | did -b %x 44 } | else { did -u %x 8 }
if ($hsh(striker) == $true) { hshadd warstyle Striker | did -ec %x 44 | did -b %x 8 | did -b %x 7 } | else { did -u %x 44 }
if ($hsh(transformer) == $true) { did -c %x 9 } | else { did -u %x 9 }
if ($hsh(chan) != $null) { did -a %x 10 $hsh(chan) }
if ($hsh(antiban) == $true) { did -c %x 14 } | else { did -u %x 14 }
if ($hsh(number_of_kicker) != $null) { did -a %x 20 $hsh(number_of_kicker) }
if ($hsh(banning) == $true) { did -c %x 22 } | else { did -u %x 22 }
if ($hsh(deopx) == $true) { did -c %x 35 } | else { did -u %x 35 }
if ($hsh(sock_nick1) != $null) { did -a %x 55 $hsh(sock_nick1) }
if ($hsh(bpass1) != $null) { did -a %x 57 $hsh(bpass1) }
list_ally: 30 | list_enemy: 34 | list_ip: 37
hshadd serverlist $remtok($hsh(serverlist),$hsh(serv),1,44)
hshadd portlist $remtok($hsh(portlist),$hsh(port),1,44)
didtok %x 50 44 $hsh(serverlist)
didtok %x 47 44 $hsh(portlist)
did -ca %x 47 $hsh(port)
did -ca %x 50 $hsh(serv)
hshadd serverlist $addtok($hsh(serverlist),$hsh(serv),44)
hshadd portlist $addtok($hsh(portlist),$hsh(port),44)
}
if ($devent == sclick) {
if (%y == 35) { hshadd deopx $iif($hsh(deopx),$false,$true) | echo -act info 4,1* Deop On Mode is9,1 $hsh(deopx) | return }
if (%y == 50) { hshadd serv $$did(50).seltext | return }
if (%y == 47) { hshadd port $$did(47).seltext | return }
if (%y == 6) { hshadd warmodex $iif($hsh(warmodex),$false,$true) | echo -act info 4,1* War Mode is9,1 $hsh(warmodex) | return }
if (%y == 9) { hshadd transformer $iif($hsh(transformer),$false,$true) | echo -act info 4,1* Nick Transformer Mode is9,1 $hsh(transformer) | return }
if (%y == 22) { hshadd banning $iif($hsh(banning),$false,$true) | echo -act info 4,1* Ip's Banlocker Mode is9,1 $hsh(banning) | return }
if (%y == 7) { hshadd warfreak $iif($hsh(warfreak),$false,$true) | echo -act info 4,1* WarFreak Style is9,1 $hsh(warfreak) | dialog -x hex.niel.alter.android | f12 | return }
if (%y == 8) { hshadd android.360 $iif($hsh(android.360),$false,$true) | echo -act info 4,1* Android 360 Style is9,1 $hsh(android.360) | dialog -x hex.niel.alter.android | f12 | return }
if (%y == 44) { hshadd striker $iif($hsh(striker),$false,$true) | echo -act info 4,1* Striker Style is9,1 $hsh(striker) | dialog -x hex.niel.alter.android | f12 | return }
if (%y == 12) {
if ($input(Do you want to attack chan)) {
.echo -act ctcp * Attacking $hsh(chan) in 5 seconds...
set %chan $hsh(chan)
set %next 1
sockwrite -nt $sock(*,1) Join $hsh(chan)
}
else { echo -act ctcp * Attacking channel $hsh(chan) was cancelled }
return
}
if (%y == 15) {
if ($hget(foes)) { hfree -w foes }
unset %dark | rlevel darklist * | sockwrite -nt $sock * Part $hsh(chan) 4,1|Warlist||Clear|
return
}
if (%y == 16) {
window -ae @Score
clear @Score
var %e echo -t @Score, %z $calc($hsh(km) - ($hsh(kt) + $hsh(kt))), %y $calc($hsh(km) - ($hsh(kt)))
%e $str(=,58)
%e $str($chr(160),13) 4Stats Report
%e $str(=,58)
var %x 97
while (%x < 123) {
if ($hsh($chr(%x)) || ($v1 == 0)) { %e $+($chr(%x),:) $v1 }
inc %x
}
%e *.. 4You have connected $sock(*,0) sockets.
%e *..
%e *.. 12You have been kicked $+(04,$hsh(km),12 time,$iif($hsh(km) != 1,s.))
%e *.. 12You have kicked $+(04,$hsh(kt),12 opponent,$iif($hsh(kt) != 1,s.))
%e ..
%e *.. 14You are $iif(%y > 0,losing by $+(04,$v1,)4 14kicks,$iif(%y == 0,tied with others,winning by $+(04,$abs($v1),) 14kicks.))
%e *.. 14Your enemy is $iif(%y > 0,winning by $+(04,$v1,)4 14kicks,$iif(%y == 0,tied with others,losing by $+(04,$abs($v1),) 14kicks.))
%e $str(=,58)
%e $str($chr(160),13) 4End of Report
%e $str(=,58)
return
}
if (%y == 18) { dialog -x hex.niel.alter.android | dialog -m timers timers | return }
if (%y == 19) {
dialog -x hex.niel.alter.android
var %e echo @Info
window -ae @Info
font -a 7 fixedsys
clear @Info
%e $str(=,92)
%e                            HYBRID HASHTABLE INFORMATION
%e $str(=,92)
%e 10WarBot Nick Now            :6 $hsh(sock_nick1)
%e 10WarBot Password Now        :6 $hsh(bpass1)
%e 10War Channel                :6 $hsh(CHAN)
%e 10Server Set                 :6 $hsh(SERV)
%e 10Port Set                   :6 $hsh(PORT)
%e 10War Style                  :6 $hsh(warstyle)
%e $str(=,92)
%e 10War Mode                   : $iif($hsh(WARMODEX) == $true,12True,4False)
%e 10Nick Transformer         : $iif($hsh(tranformer) == $true,12True,4False)
%e 10Striker Mode          : $iif($hsh(striker) == $true,12True,4False)
%e 10Warfreak Mode         : $iif($hsh(warfreak) == $true,12True,4False)
%e 10Android 360 Mode         : $iif($hsh(android.360) == $true,12True,4False)
%e 10Anti Banlocker         : $iif($hsh(antiban) == $true,12True,4False)
%e 10Ip's Banlocker         : $iif($hsh(banning) == $true,12True,4False)
%e $str(=,92)
if ($hget(foes)) {
%e 10 War listed Enemy Nick 12
var %shift.g = $hget(foes,0).item
while (%shift.g) { %e 4,1 $hget(foes,%shift.g).item | dec %shift.g }
}
%e $str(=,92)
return
}
if (%y == 23) {
dialog -x hex.niel.alter.android
var %e echo @Thanks
window -ae @Thanks
font -a 7 fixedsys
clear @Thanks
%e $str(=,92)
%e 10;-----------------------------------------------------------------------------------------------;
%e 10;                            ANDROID SCRIPT INFORMATION ;
%e 10; ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Script name : JaGuaR (Android) Technology ;
%e 10; Script description : Modern one Against all (Renovation) ;
%e 10; Script copy : © 2002-2011 ;
%e 10; Scripter : Ritchel a.k.a ^DaRk^SoUl^ - (Script Manager)-(hehehehe ayaw na palag!) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Script Message : This is my last Script Made at (Unreal Ircd - Jaguar Server) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Special Thanks : Henry a.k.a Bestwar (My Bestfriend) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Special Thanks : VeiZeix (Author of WarframeX, my MASTER:> ) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Special Thanks : Raymund a.k.a Insomnia (AndroiD Script Techniques Idea) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Special Thanks : Frederic a.k.a Fredfoxs (My Kumpare) - (Server Manager) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Special Thanks : Rhea a.k.a Aikes (My Kumare) - (Finance Manager) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Special Thanks : Ryan a.k.a Stats (My Bestfriend) - (My Loyal Tester) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Special Thanks : Ronelo a.k.a Nelfoxs (My Kumpare) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e 10; Special Thanks : Chito a.k.a Lil`bone (My Kumpare) ;
%e 10;-----------------------------------------------------------------------------------------------;
%e $str(=,92)
return
}
if (%y == 41) {
unset %ally
set %ally VHOST $ME SEXYBOT
var %x 1
while ($sock(*,%x)) { set %ally $addtok(%ally,$v1,32) | inc %x }
list_ally: 30
.echo $hsh(chan) 4,1|Ally List||Set To Default|
return
}
if (%y == 42) {
if ($hget(foes)) { hfree -w foes } | .echo $hsh(chan) 4,1|Enemy List||Clear|
list_enemy: 34 | did -b %x 34
return
}
if (%y == 43) {
unset %dark | rlevel darklist *
.echo $hsh(chan) 4,1|Host Enemy List||Clear|
list_ip: 37 | did -b %x 37
return
}
}
if (%y == 58) {
{ sockcon $$did(50).seltext $$did(47).seltext | return }
return
}
if (%y == 59) { sockclose * | unset %ally | SET %ALLY VHOST $ME SEXYBOT | return }
if ($devent == edit) {
if (%y == 10) { hshadd chan $did(10) }
if (%y == 20) { hshadd number_of_kicker $did(20) }
if (%y == 55) { hshadd sock_nick1 $did(55) }
if (%y == 57) { hshadd bpass1 $did(57) }
}
}
dialog -l timers {
title "TIMERS Settings By: Ritchel"
size -1 -1 218 75
option dbu
list 1, 2 8 70 50, size
list 2, 74 8 70 50, size
list 3, 146 8 70 50, size
text "Name", 5, 2 0 14 8
text "Command", 6, 74 0 24 8
text "Time", 7, 146 0 24 8
button "Refresh", 8, 38 60 35 12
button "Info", 9, 74 60 35 12
button "Kill", 10, 110 60 35 12
button "Close", 4, 146 60 35 12, ok
}
dialog -l info {
title "Timer Info By: Ritchel"
size -1 -1 93 190
option dbu
text "Additional Info", 26, 24 3 35 8
text "Name:", 13, 5 15 22 8
text "Timer ID:", 14, 5 25 22 8
text "Reps:", 15, 5 35 14 8
text "Delay", 16, 5 45 14 8
text "Type:", 17, 5 55 14 8
text "Remaining:", 18, 5 65 27 8
text "Multimedia Timer:", 19, 5 75 42 8
text "anysc:", 20, 5 85 16 8
text "WID:", 211, 5 95 13 8
text "CID:", 22, 5 105 11 8
text "HWND:", 23, 5 115 18 8
text "", 1, 55 15 31 8
text "", 2, 55 25 31 8
text "", 3, 55 35 31 8
text "", 4, 55 45 31 8
text "", 5, 55 55 31 8
text "", 6, 55 65 31 8
text "", 7, 55 75 31 8
text "", 8, 55 85 31 8
text "", 9, 55 95 31 8
text "", 10, 55 105 31 8
text "", 11, 55 115 31 8
box "Command", 24, 4 129 85 44
button "DONE", 25, 27 176 37 12, ok
text "", 12, 6 138 78 31
}
alias -l ref {
.timerttime 0 1 /ttime
did -r timers 1-3
var %td = $timer(0)
var %t2 = 1
while (%t2 <= %td) {
did -a timers 1 $timer(%t2)
did -a timers 2 $timer(%t2).com
did -a timers 3 $duration($timer(%t2).secs,3)
inc %t2
}
}
alias -l ttime {
var %t = $did(timers,1).lines
var %n = 1
while (%n <= %t) {
did -o timers 3 %n $duration($timer($did(timers,1,%n)).secs,3)
inc %n
}
did -c timers 3 $did(timers,1).sel
}
on *:dialog:timers:init:*: {
ttime
.timerttime 0 1 /ttime
ref
}
on *:dialog:timers:sclick:*: {
if ($did == 1) {
did -c timers 2 $did(timers,1).sel
did -c timers 3 $did(timers,1).sel
}
elseif ($did == 2) {
did -c timers 1 $did(timers,2).sel
did -c timers 3 $did(timers,2).sel
}
elseif ($did == 3) {
did -c timers 1 $did(timers,3).sel
did -c timers 2 $did(timers,3).sel
}
elseif ($did == 8) { ref }
elseif ($did == 9) {
set %ti $did(timers,1,$did(timers,1).sel).text
dialog -m info info
}
elseif ($did == 10) {
timer [ $+ [ $did(timers,1,$did(timers,1).sel).text ] ] off
ref
}
}
on *:dialog:timers:close:*: {
.timerttime off
}
on *:dialog:info:init:*: {
var %n = %ti
unset %ti
did -a info 1 %n
did -a info 2 $timer(%n)
did -a info 3 $timer(%n).reps
if ($timer(%n).mmt) {
did -a info 4 $duration($calc($timer(%n).delay / 1000),3)
}
else {
did -a info 4 $duration($timer(%n).delay,3)
}
did -a info 5 $timer(%n).type
did -a info 6 $duration($timer(%n).secs,3)
did -a info 7 $iif($timer(%n).mmt,Yes,No)
did -a info 8 $iif($timer(%n).anysc,Yes,No)
did -a info 9 $timer(%n).wid
did -a info 10 $timer(%n).cid
did -a info 11 $timer(%n).hwnd
did -a info 12 $timer(%n).com
}
;====================< here are the Script Menu Pop-up codes >=======================
menu * {
-
x--AndroiD Warscript--x
.Configure Dialog : f12
.-
.Add to Darklist & kick :{
hadd -m foes $$1 | guser darklist $$1 2
sockwrite -nt * kick $hsh(chan) $$1 4,1Testing..
}
.-
.Show Kick Status : {
window -ae @Score
clear @Score
var %e echo -t @Score, %z $calc($hsh(km) - ($hsh(kt) + $hsh(kt))), %y $calc($hsh(km) - ($hsh(kt)))
%e $str(=,58)
%e $str($chr(160),13) 4Stats Report
%e $str(=,58)
var %x 97
while (%x < 123) {
if ($hsh($chr(%x)) || ($v1 == 0)) { %e $+($chr(%x),:) $v1 }
inc %x
}
%e *.. 4You have connected $sock(*,0) sockets.
%e *..
%e *.. 12You have been kicked $+(04,$hsh(km),12 time,$iif($hsh(km) != 1,s.))
%e *.. 12You have kicked $+(04,$hsh(kt),12 opponent,$iif($hsh(kt) != 1,s.))
%e ..
%e *.. 14You are $iif(%y > 0,losing by $+(04,$v1,)4 14kicks,$iif(%y == 0,tied with others,winning by $+(04,$abs($v1),) 14kicks.))
%e *.. 14Your enemy is $iif(%y > 0,winning by $+(04,$v1,)4 14kicks,$iif(%y == 0,tied with others,losing by $+(04,$abs($v1),) 14kicks.))
%e $str(=,58)
%e $str($chr(160),13) 4End of Report
%e $str(=,58)
}
.-
.Show Sockets Status : {
window -ae @Sockstats
clear @Sockstats
.echo @Sockstats 2[Sockets Stats]10 You Have Connected4 $sock(*,0) $+ .10 Sockets
}
.-
.Reset Kick Status : { hshadd kt 0 | hshadd km 0 }
.-
.clear all Darklist : { hfree foes | unset %dark | rlevel darklist * }
.-
.Part Warbot on Channel:{ sockwrite -nt $sock(*,%next) Part $hsh(chan) 4,1|10Jaguar4|1,10Robo10,1tics4,1|10Technoloy }
.-
}
;===============================< here are the Script Normal Event >====================================
on *:start: {
hybrid
window -e @Warfield
window -e @Sockstats
.fullname 1,10AND10,1ROID
.identd on Ritchel
.emailaddr Ritchel
.mnick ^DaRk^SoUl^
.anick Ritchel
set %trig kick.mode.join.nick.353.part.367.368
writeini popups.ini bpopup n0 [ JAGUAR ANDROID TECHNOLOGY ] | .load -pm popups.ini
writeini mirc.ini fonts fstatus Courier New,412,0,0
writeini mirc.ini fonts fquery Courier New,412,0
writeini mirc.ini fonts fchannel Courier New,411,0,0
.echo -a 4,1|10Jaguar4|1,10AND10,1ROID4,1|10Technoloy 0Loaded..
.echo -a -
.echo -a 0,1This War Script is a property of JTI team, Made by Ritchel.
.echo -a -
.echo -a 0,1This War Script is Dedicated to my Son (Hex Niel Alter)
.echo -a -
.echo -a Don't try to rip it!! The risk will be yours... You have been warned...
.echo -a -
set %rest $true
}
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) 14,1-15-An0D4R0oi15D-14-
}
else { echo -ac info $nopath($script) 14,1-15-An0D4R0oi15D-14- is now loaded.
}
}
on *:unload: { unset %* | hfree hashdatax | sockclose * | echo -ac info $nopath($script) $logo has been unloaded. }
on *:disconnect: { hshadd warmodex $false }
on *:connect: {
join -n #enforce
join -n #war
if (!$istok(%ally,$me,32)) { set %ally $addtok(%ally,$me,32) }
.ignore -wd * | flood 300 30 4 0
}
on *:part:#enforce:{ if ($nick == $me) { .timerj -m 1 2 join #enforce | .timerjx -m 1 6 msg #enforce I'm Using 14,1-15-An0D4R0oi15D-14- } }
on *:join:#enforce: {
if ($nick == $me) { halt }
else {
inc -u2 %antiflood
if (%antiflood < 2) {
msg #enforce 4,1GREAT TEAMS, NOT GREAT INDIVIDUALS, BRING GREAT RESULTS!  8,1JAGUAR RULEs...!!!
if ($me isop #enforce) { cs protect #enforce $nick }
msg #enforce 14,1-15-An0D4R0oi15D-14-
}
}
}

;====================< Script Ends here >==================================

;---------------------------------------------------------------------------;
; ^DaRk^SoUl^ ;
; 2002-2011 ;
; Jaguar Team Interactive WarScript ;
;---------------------------------------------------------------------------;

:D

Android Warscript

heheehehhehe no more comments
just play war at /server 211.35.19.15 5090
and join #war channel

TO: lllogicTC PEACE...!!! i'm war

" .echo -a Don't try to rip it!! The risk will be yours... You have been warned...
"

What's with that line? He's threatening us! In a script! :O Blasphemy


well i'm not threatening all the people.... in a script way.. i'm just warning all my co-teammate.. in our script history in dalnet server some member used the my script and rip then they claim that they are the script author welll.... nevermind its just a brag of script... Bro... PEACE...!!!!

well... finaly i speak out.. about this Script leak for me.. nevermind about who leak the script and who use the script... in my side i just want to help my co-teamate as we play war kicking games in irc server...... and to the traitor member i know who you are... PEACE...!!!!