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