if reacting to ask then check_task;
if reacting to arrives then check_done;
if target of push then reset_pusher;
if reacting to wish then check_task;
if reacting to sings then continue_training;

##check_done:
find $loc, ancient relic;
if $found_id = 76697 then finish_it else not_done;
##finish_it:
set $found_id's loc to 76703;
msg $init_obj,0,0,0, "promptit","";
sayto $init_obj, "Here, take this for your help.";
$playerid = $init_obj;
$found_id = 76729;
copy $found_id;
call "drop $new_id";
call "give $new_id to $playerid";
relook $loc;
##not_done:
print "[$actor] says 'Could you please help me?'";

##reset_pusher:
mani $init_obj's pocket set first_training to "";
print "[$actor] says 'Have I seen you before? I can't quite remember.'";

##check_task:
mani $init_obj's pocket get first_training to $playertask;
if $playertask ne "" then continue_training else start_training;

##start_training:
print "[$actor] says 'You've got to help me! A thief ran off with a valuable artifact from this temple. I think his hideout is near the pyramids. Could you bring it back for me? I think you can get there by type: start type: go new bridge type: go old path type: go reality type: go vista type: go desert path";
find $actor, 76692;
$found_id = 76692;
if $found_id > 0 then give_first_task else no_tasks;

##give_first_task:
$playersname = $init_obj's name;
$player_id = $init_obj; // remember this as the CALLs below stomp over init_obj;
copy $found_id;
$start_task = $new_id;
update $start_task = "extra='for $playersname',pwd='',creator=$actor";
mani $init_obj's pocket set first_training to "started";
call "drop $start_task";
call "give $start_task to $player_id";
runsub continue_training;

##continue_training:
print "[$actor] says 'I see you still have a task to complete'";
// the task inside the player will react to this 'prompt';
msg $init_obj,0,0,0, "prompt","";


##no_tasks:
sayto $init_obj, "[$actor] appears confused and has no tasks to give you";