if target of talk then loadskills;
if reacting to pose then loadskills;

##loadskills:
print "[$actor] looks [$init_obj] over.";
include 58416;
multivar $skiller=$init_obj,$skillname='aim';
runsub getskillvalue;
runsub getskillcap;
multivar $aim=$skillvalue,$aimcap=$skillcap;
$skillname = 'dodge';
runsub getskillvalue;
runsub getskillcap;
multivar $dodge=$skillvalue,$dodgecap=$skillcap;
if $aim < 30 then aimlow else checkacap;

##aimlow:
print "[$actor] says to [$init_obj], 'I am here to evaluate students. Come back when you have worked more on your aiming skill.'";
##checkacap:
if $aimcap == 30 then checkdodge else welcomeback;
##checkdodge:
if $dodge < 30 then dodgelow else checkdcap;
##welcomeback:
print "[$actor] and [$init_obj] talk about life in general";
##dodgelow:
print "[$actor] says to [$init_obj], 'I am here to evaluate students. Come back when you have worked more on your dodging skill.'";
##checkdcap:
if $dodgecap == 30 then skillsgood;
##skillsgood:
runsub checkquest;
if $quest == 0 then suggestquest else checkpose;
##suggestquest:
print "[$actor] says to [$init_obj], 'I see that you are well skilled and ready perform the final quest'";
call "say The journey begins in the room to the east",6;
call "say There are four figurines, each held by a different opponent",12;
call "say Kill them and carry the figurines back here",18;
call "say Then gather your friends and talk to me for the final graduation ceremony",24;
call "say You may go now",30;
##checkpose:
$pose = $init_obj's pose;
if $pose == '' then suggestpose else advance;
##suggestpose:
print "[$actor] says to [$init_obj], 'I see that you have all the right skills'";
call "say And you have completed your quest",6;
call "say Now before we complete your graduation",12;
call "say Please pose for the statue that will be constructed in your honor",18;
##advance:
say 'diequest',"[$actor] places the flat of his sword upon [$init_obj]'s head";
print "[$actor] says, '[$init_obj], I hereby congratulate you on completing your training at the combat school'";
multivar $skillname='aim',$skillcap=40,$skilltipobj=64912;
runsub setskillcap;
multivar $skillname='dodge',$skillcap=40,$skilltipobj=64913;
runsub setskillcap;
set $init_obj's healthmax to 40;
print "[$actor] then raises his sword high and shouts a battle cry!";
new "statue";
$name = $init_obj's name;
$info = "You see a statue of $name, $pose. Underneath, a plaque reads: Graduated on $adelaide_date";
set $new_id's name to $name;
set $new_id's pose to $pose;
set $new_id's info to $info;
set $new_id's pwd to 'qwerty';
set $new_id's loc to 56239;
set $new_id's colour to 'lightgrey';
print "You hear the frenzy of construction to the south, sounds of hammers on rock, the grind of marble on tile, the scurry of many little feet, then silence";
print "[$actor] says, 'Go now and may you find honor and greatness in life!'";


##checkskills:
print "[$actor] smiles at [$init_obj], 'I see you have obtained all of the items from your quest. Well done!'";
if $aimcap == 30 then checkaim;
if $advance
##checkaim:
multivar $skillname='aim',$skilltipobj=???;
if $aim == 30 then advance;
if $dodgecap == 30 then

##checkquest:
$quest = 0;
$items = "green figurine|blue figurine|yellow figurine|red figurine";
foreach in $loc do checkitem;
if $items == '' then questdone;
##checkitem:
if $for_id's creator == 51288 then checkitem2;
##checkitem2:
if $for_id's host == $init_obj then checkitem3;
##checkitem3:
$class = $for_id's class;
swap $items take $class;
##questdone:
$quest = 1;