By Master-Of-Death on Nov 28, 2009is calculates your sa, da, spy and sentry.
the script explains itself.
paste in your remotes and save then enjoy.
on *:TEXT:!csa*:#:{ if ($2 == Flaming) { set %calc $calc(( $3 *5*12000)*1.333)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa for Undead is: %calc3
}
elseif ($2 == Ballistas) { set %calc $calc(( $3 *5*12000)*1.667)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Battering) { set %calc $calc(( $3 *5*12000)*2)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Ladders) { Set %calc $calc(( $3 *5*12000)*2.333)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Trojan) { set %calc $calc(( $3 *5*12000)*2.667)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Catapults) { set %calc $calc(( $3 *5*12000)*3)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == War) { set %calc $calc(( $3 *5*12000)*3.333)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Siege) { set %calc $calc(( $3 *5*12000)*3.667)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Trebuchets) { set %calc $calc(( $3 *5*12000)*4)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Black) { set %calc $calc(( $3 *5*12000)*4.333)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Sappers) { set %calc $calc(( $3 *5*12000)*4.667)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Dynamite) { set %calc $calc(( $3 *5*12000)*5)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Greek) { set %calc $calc(( $3 *5*12000)*5.333)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
elseif ($2 == Cannons) { set %calc $calc(( $3 *5*12000)*5.667)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.3),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Sa with Other is: %calc4
.notice $nick Your Sa with Orcs is: %calc2
.notice $nick Your Sa with Undead is: %calc3
}
else { .notice $nick The Correct Syntax is: !csa <Siege Tech> <Num of BPM's>
}
}
on *:TEXT:!cda*:#:{ if ($2 == Camp) { set %calc $calc(( $3 *5*10000)*1)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Stockade) { set %calc $calc(( $3 *5*10000)*1.25)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc 8 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Rabid) { set %calc $calc(( $3 *5*10000)*1.5)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Walled) { set %calc $calc(( $3 *5*10000)*1.75)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Towers) { set %calc $calc(( $3 *5*10000)*2)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( 5calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Battlements) { set %calc $calc(( $3 *5*10000)*2.25)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Portcullis) { set %calc $calc(( $3 *5*10000)*2.5)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Boiling) { set %calc $calc( $3 *5*10000)*2.75)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Trenches) { set %calc $calc(( $3 *5*10000)*3)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Undead is: %calc3
}
elseif ($2 == Moat) { set %calc $calc(( $3 *5*10000)*3.25)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Drawbridge) { set %calc $calc(( $3 *5*10000)*3.5)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Fortress) { set %calc $calc(( $3 *5*10000)*3.75)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Stronghold) { set %calc $calc(( $3 *5*10000)*4)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc 8 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Palace) { set %calc $calc(( $3 *5*10000)*4.25)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( 5calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Keep) { set %calc $calc(( $3 *5*10000)*4.5)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Citadel) { set %calc $calc(( $3 *5*10000)*4.75)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
elseif ($2 == Hand) { set %calc $calc(( $3 *5*10000)*5)
set %calc2 $bytes($calc( %calc * 1.6),b)
set %calc3 $bytes($calc( %calc * 1.2),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Da with Other is: %calc4
.notice $nick Your Da with Dwarves is: %calc2
.notice $nick Your Da with Orcs is: %calc3
}
else { .notice $nick The Correct Syntax is: !cda <Fort Tech> <Num of IS>
}
}
on *:TEXT:!cspy*:#:{ if ($2 == 1) { set %calc $calc( $3 *100*2)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 2) { set %calc $calc( $3 *100*4)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 3) { set %calc $calc( $3 *100*8)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 4) { set %calc $calc( $3 *100*16)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 5) { set %calc $calc( $3 *100*32)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 6) { set %calc $calc( $3 *100*64)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 7) { set %calc $calc( $3 *100*128)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 8) { set %calc $calc( $3 *100*256)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 9) { set %calc $calc( $3 *100*512)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
elseif ($2 == 10) { set %calc $calc( $3 *100*1024)
set %calc2 $bytes($calc( %calc * 1.5),b)
set %calc3 $bytes($calc( %calc * 1.15),b)
set %calc4 $bytes( %calc,b)
.notice $nick Your Spy with Other is: %calc4
.notice $nick Your Spy with Elves is: %calc2
.notice $nick Your Spy with Humans is: %calc3
}
else { .notice $nick The Correct Syntax is: !cspy <Covert Level> <Num of NUNS>
}
}
on *:TEXT:!csentry*:#:{ if ($2 == 1) { set %calc $calc( $3 *60*2)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 2) { set %calc $calc( $3 *60*4)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 3) { set %calc $calc( $3 *60*8)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 4) { set %calc $calc( $3 *60*16)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 5) { set %calc $calc( $3 *60*32)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 6) { set %calc $calc( $3 *60*64)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 7) { set %calc $calc( $3 *60*128)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 8) { set %calc $calc( $3 *60*256)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 9) { set %calc $calc( $3 *60*512)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
elseif ($2 == 10) { set %calc $calc( $3 *60*1024)
set %calc2 $bytes($calc( %calc * 1.3),b)
set %calc3 $bytes( %calc,b)
.notice $nick Your Sentry with Other is: %calc3
.notice $nick Your Sentry with Undead is: %calc2
}
else { .notice $nick The Correct Syntax is: !csentry <Covert Level> <Num of LT's>
}
}
you should use /var as opposed to /set so there is no need to unset %calc*
you could save yourself a lot of lines if you use an alias to calc %calc2-4 instead
on *:TEXT:!csa*:#:{
if ($2 == Flaming) { noop $csa($calc(( $3 *5*12000)*1.333),$nick) }
elseif ($2 == Ballistas) { noop $csa($calc(( $3 *5*12000)*1.667),$nick) }
}
alias csa {
var %calc = $1,%calc2 = $bytes($calc( %calc * 1.5),b),%calc3 = $bytes($calc( %calc * 1.3),b),%calc4 = $bytes( %calc,b)
.notice $2 Your Sa with Other is: %calc4
.notice $2 Your Sa with Orcs is: %calc2
.notice $2 Your Sa with Undead is: %calc3
}
is an example it shouldn't be that hard to add the rest