if target of examines then starttraining;

if reacting to arrives then greetthem;
if reacting to say then checktask;
if reacting to shout then checktask;
if reacting to think then checktask;
if reacting to create then checktask;
if reacting to paint then checktask;
if reacting to put then checktask;
if reacting to get then checktask;
if reacting to leaves then checktask;


if reacting to trainer then trainmsg;

##greetthem:
mani $init_obj's pocket get traintask1 to $playertask;
if $playertask ne "" then waslastgo else starttraining;

##waslastgo:
if $playertask = "leaves" then resetplayer else continuetraining;

##resetplayer:
print "[$actor] blinks at [$init_obj]";
print "[$actor] says 'I dont think I can teach you anything new.'";
print "[$actor] says 'Click on a page to start your revision.'";

##continuetraining:
print "[$actor] turns towards [$init_obj]";
print "[$actor] says 'Welcome back. Here to finish off your training?'";
runsub promptthem;

##starttraining:
call "touch the page about saying";


##trainmsg:
call "touch $init_obj";

##checktask:
// $lac is the 'last action' ..basically the action which got us to this bit of code;
$pok = $init_obj's pocket;
// print "[$init_obj] pocket = $pok and lac = $lac";
mani $init_obj's pocket get traintask1 to $playertask;
//mani $init_obj's pocket set traintask1 to "";
if $playertask = $lac then welldone else chkwait;

##chkwait:
if $playertask ne "" then promptthem;

##promptthem:
print "[$actor] waits for [$init_obj] to $playertask something.";
print "type: read the command called $playertask";

##welldone:
// notice how we can combine static text with variables to make a block name to run.. what fun!;

runsub "they$lac";

## ------------------------------------------------- ##

##theysay:
print "[$actor] says 'Well done, I could hear you quiet well'";
call "point at page about shouting";

##theyshout:
print "[$actor] says 'Good job, everyone could hear you then'";
call "point at page about doing";

##theythink:
print "[$actor] says 'Nice one, I could see you were deep in thought'";
call "point at page about creating";

##theycreate:
print "[$actor] says 'Fantastic! Your first creation in cow'";
call "point at page about painting";

##theypaint:
print "[$actor] says 'Beautiful colour choice!'";
call "point at page about putting";

##theyput:
print "[$actor] says 'Ha! That looks rather funny there'";
call "point at page about getting";

##theyget:
print "[$actor] says 'Brilliant! Its yours to drop anywhere you like'";
call "point at page about moving";

##theyleaves:
sayto $init_obj, "[$init_obj] shouts 'Have fun out there. Come back for more training any time.'";


##ssayit:
print "[$actor] says '$thismsg'";