Post by koroku on Mar 30, 2010 13:50:41 GMT -6
It still is setting my HP to zero, so heres the whole part and maybe you can see whats wrong with it better:
}
:boost
set %current.level $readini($char($1), $2, Current) | set %max.level $readini($char($1), $2, Max) | inc %current.level 1
if (%current.level > %max.level) { $set_chr_name($1) | query %questchan 4Error: %real.name cannot boost any higher with $2 $+ !! | unset %real.name | unset %max.level | unset %current.level | halt }
else { $stam_boost($1 , %type)
writeini $char($1) $2 current %current.level
set %rage.bar $readini($char($1), Rage, RageBar) | inc %rage.bar $rand(1,5) | writeini $char($1) Rage RageBar %rage.bar | unset %rage.bar
set %hp.increase $readini(boosts.lst, %type, hp) | set %mp.increase $readini(boosts.lst, %type, mp) | set %ap.inc $readini(boosts.lst, %type, ap) | set %dp.inc $readini(boosts.lst, %type, dp) | set %cp.inc $readini(boosts.lst, %type, cp) | set %cd.inc $readini(boosts.lst, %type, cd) | set %eva.inc $readini(boosts.lst, %type, eva) | set %bp.inc $readini(boosts.lst, %type, bp) | set %time $readini($char($1), RT, Current) | dec %time $readini(boosts.lst, %type, time) | writeini $char($1) RT current %time
$set_chr_name($1) | set %desclevel level $+ %current.level $+ desc | query %questchan 15 $+ %real.name $+ $readini($char($1), $2, %desclevel)
unset %ap | unset %dp | unset %cp | unset %cd | unset %eva | unset %bp | unset %what | unset %check.have | unset %hp | unset %have.ssj | unset %RTready | unset %check | unset %type | unset time
unset %type | unset %stam.inc | unset %check.have | unset %current.level | unset %max.level | unset %RTready | unset %real.name | unset %time
goto finishboost
}
:finishboost
$battle_stats($1) | set %bp $readini($char($1), BattlePower, Current) | $raise_courage($1, 10)
%ap = $round($calc(%ap * %ap.inc),0) | writeini $char($1) Battle AP %ap
%dp = $round($calc(%dp * %dp.inc),0) | writeini $char($1) Battle DP %dp
%cp = $round($calc(%cp * %cp.inc),0) | writeini $char($1) Battle CP %cp
%cd = $round($calc(%cd * %cd.inc),0) | writeini $char($1) Battle Cd %cd
%eva = $round($calc(%eva * %eva.inc),0) | writeini $char($1) Battle EVA %eva
%bp = $round($calc(%bp * %bp.inc),0) | writeini $char($1) BattlePower Current %bp
%newhp = $round($calc(%currenthp * %hp.increase),0) | inc %currenthp %newhp | writeini $char($1) battle HP %newhp
%newmp = $round($calc(%currentmp * %mp.increase),0) | inc %currentmp %newmp | writeini $char($1) battle MP %newmp
var %currenthp $readini($char($1), battle, hp) | writeini $char($1) battle HP %currenthp
var %currentmp $readini($char($1), battle, mp) | writeini $char($1) battle MP %currentmp
set %Focus.level $readini($char($1), Focus, FocusLevel) | inc %Focus.level .1 | writeini $char($1) Focus FocusLevel %Focus.level | unset %Focus.level | set %chi $readini($char($1), Focus, chi) | inc %chi 10 | writeini $char($1) Focus Chi %chi | unset %chi
unset %ap.inc | unset %dp.inc | unset %cp.inc | unset %cd.inc | unset %eva.inc | unset %bp.inc
unset %ap | unset %dp | unset %cp | unset %cd | unset %eva | unset %bp | unset %what | unset %check.have | unset %hp | unset %have.ssj | unset %RTready | unset %check | unset %type | unset time | unset %desclevel
unset %type | unset %stam.inc | unset %check.have | unset %current.level | unset %max.level | unset %RTready | unset %real.name | unset %time | unset %ohp | unset %omp | unset %mp | goto bend
:bend
if (%battleis = on) { nextperson | halt }
if (%rt = on) { writeini $char($1) RT Bready no | .timer $+ $nick $+ .rrest 1 3 /rrest $nick | halt }
else { halt }
}
}
:boost
set %current.level $readini($char($1), $2, Current) | set %max.level $readini($char($1), $2, Max) | inc %current.level 1
if (%current.level > %max.level) { $set_chr_name($1) | query %questchan 4Error: %real.name cannot boost any higher with $2 $+ !! | unset %real.name | unset %max.level | unset %current.level | halt }
else { $stam_boost($1 , %type)
writeini $char($1) $2 current %current.level
set %rage.bar $readini($char($1), Rage, RageBar) | inc %rage.bar $rand(1,5) | writeini $char($1) Rage RageBar %rage.bar | unset %rage.bar
set %hp.increase $readini(boosts.lst, %type, hp) | set %mp.increase $readini(boosts.lst, %type, mp) | set %ap.inc $readini(boosts.lst, %type, ap) | set %dp.inc $readini(boosts.lst, %type, dp) | set %cp.inc $readini(boosts.lst, %type, cp) | set %cd.inc $readini(boosts.lst, %type, cd) | set %eva.inc $readini(boosts.lst, %type, eva) | set %bp.inc $readini(boosts.lst, %type, bp) | set %time $readini($char($1), RT, Current) | dec %time $readini(boosts.lst, %type, time) | writeini $char($1) RT current %time
$set_chr_name($1) | set %desclevel level $+ %current.level $+ desc | query %questchan 15 $+ %real.name $+ $readini($char($1), $2, %desclevel)
unset %ap | unset %dp | unset %cp | unset %cd | unset %eva | unset %bp | unset %what | unset %check.have | unset %hp | unset %have.ssj | unset %RTready | unset %check | unset %type | unset time
unset %type | unset %stam.inc | unset %check.have | unset %current.level | unset %max.level | unset %RTready | unset %real.name | unset %time
goto finishboost
}
:finishboost
$battle_stats($1) | set %bp $readini($char($1), BattlePower, Current) | $raise_courage($1, 10)
%ap = $round($calc(%ap * %ap.inc),0) | writeini $char($1) Battle AP %ap
%dp = $round($calc(%dp * %dp.inc),0) | writeini $char($1) Battle DP %dp
%cp = $round($calc(%cp * %cp.inc),0) | writeini $char($1) Battle CP %cp
%cd = $round($calc(%cd * %cd.inc),0) | writeini $char($1) Battle Cd %cd
%eva = $round($calc(%eva * %eva.inc),0) | writeini $char($1) Battle EVA %eva
%bp = $round($calc(%bp * %bp.inc),0) | writeini $char($1) BattlePower Current %bp
%newhp = $round($calc(%currenthp * %hp.increase),0) | inc %currenthp %newhp | writeini $char($1) battle HP %newhp
%newmp = $round($calc(%currentmp * %mp.increase),0) | inc %currentmp %newmp | writeini $char($1) battle MP %newmp
var %currenthp $readini($char($1), battle, hp) | writeini $char($1) battle HP %currenthp
var %currentmp $readini($char($1), battle, mp) | writeini $char($1) battle MP %currentmp
set %Focus.level $readini($char($1), Focus, FocusLevel) | inc %Focus.level .1 | writeini $char($1) Focus FocusLevel %Focus.level | unset %Focus.level | set %chi $readini($char($1), Focus, chi) | inc %chi 10 | writeini $char($1) Focus Chi %chi | unset %chi
unset %ap.inc | unset %dp.inc | unset %cp.inc | unset %cd.inc | unset %eva.inc | unset %bp.inc
unset %ap | unset %dp | unset %cp | unset %cd | unset %eva | unset %bp | unset %what | unset %check.have | unset %hp | unset %have.ssj | unset %RTready | unset %check | unset %type | unset time | unset %desclevel
unset %type | unset %stam.inc | unset %check.have | unset %current.level | unset %max.level | unset %RTready | unset %real.name | unset %time | unset %ohp | unset %omp | unset %mp | goto bend
:bend
if (%battleis = on) { nextperson | halt }
if (%rt = on) { writeini $char($1) RT Bready no | .timer $+ $nick $+ .rrest 1 3 /rrest $nick | halt }
else { halt }
}