Android Warscript

Published  Dec 30, 2011
Updated  Dec 30, 2011

Description

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

Screenshots

Download

Filename
Size
Date
Downloads
  ANDROID RENOVATION.zip
8.49 KB
Dec 30, 2011
320
Sign in to comment.
D3M0N   -  Nov 28, 2013

This script looks VERY similar to the ClonesXs script that was made years ago....

 Respond  
Ritchel   -  Dec 30, 2011

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

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.