понедельник, 17 августа 2009 г.

Расчёт стоимости заточки предметов в atlantica onlin

item=:4000    NB.  item - стоимость базоваго предмета
stone=:1000   NB.  stone - стоимость mana stone
n=:7               NB.  n - уровень улучшения

+/(item*2^n),(stone*+/(2^i.n)*>:i.-n)    NB. общая  стоимость


2^n                      NB. кол-во базовых предметов

+/(2^i.n)*>:i.-n                 NB. кол-во mana stone