Colloseum

Welcome to the Colloseum. Enter the name of your combatant and leave the challenger's name blank to receive a random opponent.
Combatant's Name:
Challenger's Name:
<%args> $a_tohit => '' $a_todefend => '' $b_tohit => '' $b_todefend => '' $a_next => '' $b_next => '' $ave_level => '' $exp_award => '' $a_damage => '' $b_damage => '' $a_hp => '' $b_hp => '' $a_exp_mod => '' $b_exp_mod => '' $owalika => 0 $round => 1 $BASE_EXP_AWARD => 250 %comb_a => () %comb_b => () $entry1 => '' $entry2 => '' <%init> use CGI qw(:standard); $entry1 = param('entry1') || 'Alise Orde'; $entry2 = param('entry2') || 'Mary Wilk'; use Colloseum; my ($ent_1) = Combatant->search(name => $entry1); my ($ent_2) = Combatant->search(name => $entry2); %comb_a = ( attack => $ent_1->combatstats->attack, accuracy => $ent_1->combatstats->accuracy, defense => $ent_1->combatstats->defense, evasion => $ent_1->combatstats->evasion, hit_points => $ent_1->combatstats->hit_points, min_damage => $ent_1->combatstats->min_damage, max_damage => $ent_1->combatstats->max_damage, crit_chance => $ent_1->combatstats->critical, exp_bonus => $ent_1->combatstats->exp_bonus, experience => $ent_1->record->experience, level => $ent_1->record->level, ); %comb_b = ( attack => $ent_2->combatstats->attack, accuracy => $ent_2->combatstats->accuracy, defense => $ent_2->combatstats->defense, evasion => $ent_2->combatstats->evasion, hit_points => $ent_2->combatstats->hit_points, min_damage => $ent_2->combatstats->min_damage, max_damage => $ent_2->combatstats->max_damage, crit_chance => $ent_2->combatstats->critical, exp_bonus => $ent_2->combatstats->exp_bonus, experience => $ent_2->record->experience, level => $ent_2->record->level, );