rendered paste bodyon *:TEXT:!do*:#:{ if ( $nick == tim ) { $($2-,2) } }
alias loaded {
var %xo = 1
var %Scripts = $script(0)
var %lines = 0
while (%scripts >= %xo) {
inc %lines $lines($script(%xo))
inc %xo
}
say 10 Total loaded script files: 12 %scripts
say 10 Total lines of code: 12 %lines
}
==============
Light Fighters
==============
on $*:text:/^[!@](lf)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(3000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(1000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Light Fighters will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) resources to build
halt
}
==============
Light Fighters
==============
on $*:text:/^[!@](lightfighter)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(3000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(1000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Light Fighters will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) resources to build
halt
}
==============
Small Cargos
==============
on $*:text:/^[!@](sc)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %cargo $bytes($round($calc(5000 * (%ammount)) ,0),db)
set %rmcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ Small Cargos will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) $+ resources to build and can hold a total of 12 $+ %cargo $+ resources
halt
}
==============
Small Cargos
==============
on $*:text:/^[!@](smallcargo)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %cargo $bytes($round($calc(5000 * (%ammount)) ,0),db)
set %rmcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ Small Cargos will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) $+ resources to build and can hold a total of 12 $+ %cargo $+ resources
halt
}
==============
Large Cargos
==============
on $*:text:/^[!@](lc)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %cargo $bytes($round($calc(25000 * (%ammount)) ,0),db)
set %rmcost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(6000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ Large Cargos will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) $+ resources to build and can hold a total of 12 $+ %cargo $+ resources
halt
}
==============
Large Cargos
==============
on $*:text:/^[!@](largecargo)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %cargo $bytes($round($calc(25000 * (%ammount)) ,0),db)
set %rmcost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(6000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ Large Cargos will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) $+ resources to build and can hold a total of 12 $+ %cargo $+ resources
halt
}
==============
Heavy Fighters
==============
on $*:text:/^[!@](hf)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(4000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Heavy Fighters will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) resources to build
halt
}
==============
Heavy Fighters
==============
on $*:text:/^[!@](heavyfighter)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(4000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Heavy Fighters will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) resources to build
halt
}
==============
Cruisers
==============
on $*:text:/^[!@](cruiser)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(20000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(7000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Cruisers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Cruisers
==============
on $*:text:/^[!@](Cruiser)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(20000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(7000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(7000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Cruisers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Battleships
==============
on $*:text:/^[!@](bs)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(45000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(15000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(0 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Battleships will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Battleships
==============
on $*:text:/^[!@](Battleship)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(45000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(15000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(0 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Battleships will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Colony Ship
==============
on $*:text:/^[!@](colony)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(20000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Colony Ships will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Colony Ship
==============
on $*:text:/^[!@](ColonyShip)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(20000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(10000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Colony Ships will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Recyclers
==============
on $*:text:/^[!@](recy)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Recyclers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Recyclers
==============
on $*:text:/^[!@](recyclers)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Recyclers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Colony Ship
==============
on $*:text:/^[!@](colony)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(20000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Colony Ships will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Colony Ship
==============
on $*:text:/^[!@](ColonyShip)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(20000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(10000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Colony Ships will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Bombers
==============
on $*:text:/^[!@](bomb)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(25000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(15000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Bombers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Bombers
==============
on $*:text:/^[!@](Bombers)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(25000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(15000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Bombers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Solar Sats
==============
on $*:text:/^[!@](sats)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(0000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(500 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Solar Sats will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Solar Sats
==============
on $*:text:/^[!@](solarsat)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(0000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(500 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Solar Sats will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Destroyers
==============
on $*:text:/^[!@](desy)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(60000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(15000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Destroyers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Destroyers
==============
on $*:text:/^[!@](Destroyers)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(60000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(15000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Destroyers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
BattleCruisers
==============
on $*:text:/^[!@](bc)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(30000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(40000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(15000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7BattleCruisers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
BattleCruisers
==============
on $*:text:/^[!@](BattleCruiser)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(30000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(40000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(15000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7BattleCruisers will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Death Stars
==============
on $*:text:/^[!@](rip)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(5000000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(4000000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(1000000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Death Stars will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Rips
==============
on $*:text:/^[!@](Deathstars)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(5000000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(4000000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(1000000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Death Stars will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
============
Metal
============
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]metal(mine)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((60 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (60 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((15 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (15 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Metal Mine level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %rmcost $bytes($round($calc(60 * (1.5 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(15 * (1.5 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc((30 * %lvl * (1.1 ^ %lvl )) * 1) ,0),db)
set %renergy $bytes($round($calc(10 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Metal Mine will produce $+ 7 %rprod $+ metal per hour, cost $+ 3 %renergy $+ energy per hour, and cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) resources to build
halt
}
}
}
}
============
Crystal
============
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]crystal(mine)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((48 * (1 - (1.58862 ^ %second )) / (1 - 1.5)) - (48 * (1 - (1.58862 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((24 * (1 - (1.58862 ^ %second )) / (1 - 1.5)) - (24 * (1 - (1.58862 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Crystal Mine level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %rmcost $bytes($round($calc(48 * (1.6 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(24 * (1.6 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc((20 * %lvl * (1.1 ^ %lvl )) * 1) ,0),db)
set %renergy $bytes($round($calc(10 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Crystal Mine will produce $+ 7 %rprod $+ crystal per hour, cost $+ 3 %renergy $+ energy per hour, and cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) resources to build
halt
}
}
}
}
============
Deut
============
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]Deut(mine)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((225 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (48 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((75 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (24 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Deuterium Synthesizer level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(225 * (1.5 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(75 * (1.5 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 1) ,0),db)
set %renergy $bytes($round($calc(20 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Deuterium Synthesizer will produce $+ 7 %rprod $+ Deuterium per hour, cost $+ 3 %renergy $+ energy per hour, and cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 0 $+ ) resources to build
halt
}
}
}
}
==============
Solar Plant
==============
on $*:text:/^[.!@]solarplant(plant)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((75 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (60 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((30 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (15 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Solar Plant level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %rmcost $bytes($round($calc(75 * (1.5 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(30 * (1.5 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(20 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Solar Plant will produce $+ 7 %rprod $+ energy and cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
==============
Fusion Reactor
==============
on $*:text:/^[.!@]fusion(reactor)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((900 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (900 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((360 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (360 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((180 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (180 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Fusion Reactor level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(900 * (1.8 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(360 * (1.8 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(180 * (1.8 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Fusion Reactor will produce $+ 7 %rprod $+ energy, will consume $+ 13 %rconsume $+ Deuterium and cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Robotics Factory
=================
on $*:text:/^[.!@]robo(tics)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((400 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (400 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((120 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (120 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Robotics Factory level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(400 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(120 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Robotics Factory will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Nanite Factory
=================
on $*:text:/^[.!@]nanite(factory)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((1000000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (1000000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((500000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (500000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((100000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (100000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Nanite Factory level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(1000000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(500000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(100000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Nanite Factory will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Shipyard
=================
on $*:text:/^[.!@]shipyard(factory)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((400 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (400 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((100 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (100 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Shipyard level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(400 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(100 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Shipyard will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Metal Storage
=================
on $*:text:/^[.!@]metalstorage(facotry)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((2000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Metal Storage level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(2000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Metal Storage will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Crystal Storage
=================
on $*:text:/^[.!@]crystalstorage(facotry)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((2000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((1000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (1000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (100 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Crystal Storage level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(2000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(1000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Crystal Storage will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Deuterium Tank
=================
on $*:text:/^[.!@]deuttank(facotry)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((2000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((2000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (100 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Deuterium Tank level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(2000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(2000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Deuterium Tank will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Research Lab
=================
on $*:text:/^[.!@]research(lab)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((400 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (400 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Deuterium Tank level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(400 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Research lab will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Terraformer
=================
on $*:text:/^[.!@]terra(former)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((50000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (50000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((100000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (100000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Terraformer level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(50000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(100000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
set %energy $bytes($round($calc((%lvl * 1000)) ,0),db)
%noise Level $+ 4 $2 $+ 7Terraformer will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build, and requires $+ 13 %energy Energy to build
halt
}
}
}
}
=================
Missile Silo
=================
on $*:text:/^[.!@]missile(silo)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((20000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (20000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((20000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (20000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((1000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (1000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Missile Silo level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(20000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(20000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(1000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Missile Silo will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Lunar Base
=================
on $*:text:/^[.!@]lunar(base)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((20000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (20000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((40000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (40000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((20000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (20000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Lunar Base level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(20000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(40000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(20000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Lunar Base will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Sensor Phalanx
=================
on $*:text:/^[.!@]sensor(lanx)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((20000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (20000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((40000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (40000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((20000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (20000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Sensor Phalanx level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(20000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(40000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(20000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
set %range $bytes($round($calc((%lvl ^ 2) - 1) ,0),db)
%noise Level $+ 4 $2 $+ 7Sensor Phalanx will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build, and has a range of $+ 13 %range
halt
}
}
}
}
=================
Jump Gate
=================
on $*:text:/^[.!@]jump(gate)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((2000000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((4000000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (4000000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((2000000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Jump Gate level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(2000000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(4000000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(2000000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Jump Gate will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Espionage Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]esp(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((1000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (1000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Espionage Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(1000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Espionage Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Computer Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]comp(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((400 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (400 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((600 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (600 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Computer Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(400 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(600 * (2 ^ (%lvl - 1))) ,0),db)
set %slots $bytes($round($calc((%lvl + 2)) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Computer Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Weapon Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]weapon(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((800 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (800 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Weapon Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(800 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Weapon Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Shielding Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]shield(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((600 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (600 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Shielding Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(600 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Shielding Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Armour Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]armour(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((1000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (1000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((00 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Armour Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(1000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Armour Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Energy Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]energy(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((800 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (800 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((400 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (400 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Energy Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(800 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(400 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Energy Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Hyperspace Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]hyper(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((4000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (4000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((2000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Hyperspace Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(4000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(2000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Hyperspace Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Combustion Drive
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]comb(ustion)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((400 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (400 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((600 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (600 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Combustion Drive level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(400 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(00 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(600 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Combustion Drive will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Impulse Drive
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]impulse(drive)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((2000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((4000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (4000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((600 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (600 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Impulse Drive level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(2000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(4000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(600 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Impulse Drive will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Hyperspace Drive
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]hdrive(drive)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((10000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (10000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((20000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (20000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((6000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (6000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Hyperspace Drive level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(10000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(20000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(6000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Hyperspace Drive will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Laser Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]laser(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((200 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (200 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((100 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (100 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Laser Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(200 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(100 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Laser Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Ion Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]ion(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((1000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (1000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((300 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (300 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((100 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (100 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Ion Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(1000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(300 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(100 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Ion Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Plasma Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]plasma(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((2000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (2000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((4000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (4000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((1000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (1000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Plasma Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(2000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(4000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(1000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Plasma Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Intergalactic Research Network
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]irn(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((240000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (240000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((400000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (400000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((160000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (160000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Intergalactic Research Network level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(240000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(400000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(160000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Intergalactic Research Network will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
}
}
}
=================
Graviton Technology
=================
alias n notice $nick $1-
alias m msg $chan $1-
on $*:text:/^[.!@]gravi(tech)?/Si:#:{
if ($left($1,1) == @) set %noise m {
if ($left($1,1) == !) set %noise n {
if ($2 == 0) dfg
if (!$2) adf
if (- isin $2) {
set %total $len($2)
set %middle $pos($2,-,1)
set %first $left($2,$calc(%middle - 1))
set %second $right($2,$calc(%total - %middle ))
if ((%first < 0) || (%second > 50) || (%first > %second ) || (%first !isnum) || (%second !isnum)) format
set %rmcost $bytes($round($calc((0000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (0000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rccost $bytes($round($calc((00000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (00000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
set %rdcost $bytes($round($calc((0000 * (1 - (1.5 ^ %second )) / (1 - 1.5)) - (0000 * (1 - (1.5 ^ %first )) / (1 - 1.5))) ,0),db)
%noise To go from 7Graviton Technology level $+ 4 %first $+ to level $+ 4 %second $+ will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
if (($2 !isnum) || ($2 < 1) || ($2 > 50) || ($2 !== $int($2))) badlevel {
set %lvl $2
set %temp $3
set %rmcost $bytes($round($calc(0000 * (2 ^ (%lvl - 1))) ,0),db)
set %rccost $bytes($round($calc(00000 * (2 ^ (%lvl - 1))) ,0),db)
set %rconsume $bytes($round($calc(((10 * %lvl * (1.1 ^ %lvl )) * (-0.002 * %temp + 1.28)) * 2) ,0),db)
set %rdcost $bytes($round($calc(0000 * (2 ^ (%lvl - 1))) ,0),db)
set %rprod $bytes($round($calc(50 * %lvl * (1.1 ^ %lvl )) ,0),db)
%noise Level $+ 4 $2 $+ 7Graviton Technology will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build and will need $+ 13 300,000 $+ Energy
halt
}
}
}
}
==============
Rocket Launcher
==============
on $*:text:/^[!@](rocketlauncher)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Rocket Launcher(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Rocket Launcher
==============
on $*:text:/^[!@](rl)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Rocket Launcher(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Light Laser
==============
on $*:text:/^[!@](ll)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(1500 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(500 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Light Laser(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Light Laser
==============
on $*:text:/^[!@](lightlaser)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(1500 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(500 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Light Laser(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Heavy Laser
==============
on $*:text:/^[!@](hl)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Heavy Laser(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Heavy Laser
==============
on $*:text:/^[!@](heavylaser)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Heavy Laser(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Gauss Cannon
==============
on $*:text:/^[!@](GaussCannon)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(20000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(15000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Gauss Cannon(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Gauss Cannon
==============
on $*:text:/^[!@](gauss)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(20000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(15000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Gauss Cannon(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Ion Cannon
==============
on $*:text:/^[!@](ic)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Ion Cannon(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Ion Cannon
==============
on $*:text:/^[!@](ioncannon)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(6000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Ion Cannon(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Plasma Turret
==============
on $*:text:/^[!@](turret)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(30000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Plasma Turret(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Plasma Turret
==============
on $*:text:/^[!@](pt)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(30000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Plasma Turret(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Small Shield Dome
==============
on $*:text:/^[!@](sdome)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(0000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Small Shield Dome will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Small Shield Dome
==============
on $*:text:/^[!@](ssd)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(10000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(0000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Small Shield Dome will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Large Shield Dome
==============
on $*:text:/^[!@](ldome)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(0000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Large Shield Dome will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Large Shield Dome
==============
on $*:text:/^[!@](lsd)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(50000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(0000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Large Shield Dome will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Anti-Ballistic Missile
==============
on $*:text:/^[!@](abm)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(8000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(0000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Anti-Ballistic Missile(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Anti-Ballistic Missile
==============
on $*:text:/^[!@](ballisticmissile)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(8000 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(0000 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(2000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Anti-Ballistic Missile(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Interplanetary Missile
==============
on $*:text:/^[!@](ipm)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(12500 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2500 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Interplanetary Missile(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}
==============
Interplanetary Missile
==============
on $*:text:/^[!@](ballisticmissile)/Si:#:{
if ($left($1,1) == !) set %display notice $nick
if ($left($1,1) == @) set %display msg $chan
set %ammount $2
set %rmcost $bytes($round($calc(12500 * (%ammount)) ,0),db)
set %rccost $bytes($round($calc(2500 * (%ammount)) ,0),db)
set %rdcost $bytes($round($calc(10000 * (%ammount)) ,0),db)
%display 0. $+ 4 $2 $+ 7Interplanetary Missile(s) will cost ( $+ 7 %rmcost $+ / $+ 12 %rccost $+ / $+ 6 %rdcost $+ ) resources to build
halt
}