on *: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
}