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

##reset_pusher:
mani $init_obj's pocket set medium_training to "";
print "Letters rearrange themselves on [$actor] saying 'Whoops.. I have forgotten if you have had training or not. Next time you come in here (or wish) I will probably give you a medium task";
set $actor's info to 'Whoops.. I have forgotten if you have had training or not. Next time you come in here (or wish) I will probably give you a medium task';

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

##start_training:
print "[$actor]'s letters rearrange themselves to say 'Hello [$init_obj] .. welcome to cow.";
set $actor's info to 'Hello [$init_obj] .. welcome to cow.';
//find $actor, 76282;
$found_id = 76383;
if $found_id > 0 then give_first_task else no_tasks;

##give_first_task:
$playersname = $init_obj's name;
$player_id = $init_obj;
copy $found_id;
$start_task = $new_id;
update $start_task = "extra='for $playersname',pwd='',creator=$actor";
mani $init_obj's pocket set medium_training to "started";
call "drop $start_task";
call "give $start_task to $player_id";
runsub continue_training;

##continue_training:
print "[$actor] rearranges itself into 'I see you still have a task to complete'";
set $actor's info to 'I see you still have a task to complete';
msg $init_obj,0,0,0, "prompt","";

##no_tasks:
sayto $init_obj, "[$actor] forms the words 'Sorry, I don't have any tasks to give you'";
set $actor's info to 'Sorry, I don't have any tasks to give you';