atk.time {
var %atk.time = $bot_stats(Moves,$1,time)
return %atk.time
}
kiattack {
var %power = $stats($2,Stats,power)
set %power $calc(%power + ($stats($2,stats,power) * .8))
var %speed2 = $stats($2,stats,speed)
var %speed3 = $stats($3,stats,speed)
var %speed = $calc(%speed2 - %speed3)
if (%speed < 0) { var %speed = 1 }
set %power $round($calc(%power - ($stats($3,stats,defense) / 2)),0)
var %power = $rand($calc(%power - 10),%power)
if (%power < 1) { var %power = 0 }
if (%power == $null) { var %power = 0 }}
var %rander = $rand(1,15)
var %ender = $round($calc($stats($2,stats,luck) * .5 * .5 * .5 + 1),0)
if (%rander <= %ender) { var %power = %power * 3) | var %critical = 7,1( 8,1C11,1ritical 7,1) }
var %gexp = $round($calc(%power / 5),0)
if (%gexp <= 0) { var %gexp = 5) }
set %chp.defense $stats($3,Stats,Defense)
set %chp.defense %power
wini $3 Stats Chp %power
set %atking $stats($2,Status,Atking)
set %atking No
wini $2 Status Atking %Atking
if (%gexp == 0) { msg %DiGiT $2 %msg $3 and did %power damage. }
if (%gexp != 0) {
msg %DiGiT $2 hit $3 and did %power damage. $2 gained %gexp experience!. %critical
wini $2 stats kiexp %gexp
}
/deadcheck $3 $2
}
}
deadcheck {
if ($stats($1,Stats,Chp) < 1) && ($stats($1,Status,Entered == Yes) {
var %zenny = $stats($2,Stats,Zenny)
var %zenny.rand = $rand(11,21)
inc %zenny %zenny.rand
wini $2 Stats Zenny %zenny
msg %DiGi 4 $+ $1 10was Destroyed by4 $2
wini $1 Status Entered no
wini $1 Status Atking no
wini $1 Stats Chp 0
}
}