Макрос: Скока опыта я беза за n времени?

[Dima]

Этот макрос сделан тем кто играет в xkore1 для нихже
Необходимо наличие пати Для Отоброжения полученного опыта достаточно 1 раз написать в пати showexp

automacro opit {
party "showexp"
call {
log Включен Сщетчик опыта
}
call showexp1
}
macro showexp1 {
$a = @eval($::char->{exp})
$b = @eval($::char->{exp_job})
do exp reset
log Сброшет Отчет по опыту
#Пишем за какой промежуток времени в секундах############
pause 30
call showexp2
}
macro showexp2 {
$c = @eval($::char->{exp})
$e = @eval($::char->{exp_job})
$a1 = @eval($::char->{exp_max})
$a2 = @eval($::char->{exp_job_max})
$d = @eval($c - $a)
$d1 = @eval(($c - $a)/$a1)
$f = @eval($e - $b)
$f1 = @eval(($e - $b)/$a2)
if ($a2 < 400000000) goto end
$f1 = 0
:end
if ($a1 < 400000000) goto end2
$d1 = 0
:end2
if ($f != 0) goto end3
call showexp1
:end3
if ($d != 0) goto end4
call showexp1
:end4
do p База $d($d1%) Джоб $f($f1%)
pause 1
call showexp1
}


Добавлено через 1 минуту
pause 30 отображает полученный опыт 2 раза в минуту
поменять при необходимость и корекции под себя Меньше 20 Ставить не рекомендуется!!!
Включена защита от последнего лвл и джоба
Включена защита есть вы 1 цикл не получали опыт а потом продолжили
НЕ АКТУАЛЬНО ГДЕ РАБОТАЕТ КОМАНДА @SHOWEXP
http://smages.com/t/10/c5/10c5f11c1fcd544845882cbb1e016d42.jpg (http://smages.com/10/c5/10c5f11c1fcd544845882cbb1e016d42.jpg.htm)
П.С. не обращаем внимаение на бешенное число Джоба! Исправлено)

[Dima]

как бы теперь сделать скажем чтобы он округлял до 4 знаков после запетой...

[4epT]

найди в перле такую функцию :)