COWbrowse

You are in a test trainer

push the test trainer to start the training.

The messages are very simple but at least this little guy remembers what you have done and does not repeat on you.

This code demonstrates some funky concepts like the use of $lac and running variable named blocks of code.

Maybe this requires a very simple quest material concept:


perform a command in my location and I will print some messages and trigger a new quest.

oh my.. theres a thought.. a personal trainer that follows you around until you tell it to stop.. and its constantly prompting and guiding.

think like a monkey on your back
say Hi, Im Eddy your personal trainer.. let me show you around cow..

Created by wolis, last updated 18 Mar 2008

Code

##txickloc: runsub chkmsg;
if txarget of push then starttask;
if rxeacting to say then checktask;
if rxeacting to shout then checktask;
if rxeacting to think then checktask;
if rxeacting to create then checktask;

##starttask:
$nexttask = "say";
$thismsg = "Hello! welcome to cow...";
set $actor's current to $actor's training_intro;
runsub settask;
runsub chkmsg;

##checktask:
// $lac is the 'last action' ..basically the action which got us to this bit of code;

mani $init_obj's pocket get traintask1 to $playertask;
if $playertask = $lac then welldone else chkwait;

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

##promptthem:
print "[$actor] waits for [$init_obj] to $playertask something 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:
$thismsg = "Well done, I could hear you quiet well";
set $actor's current to $actor's training_shoutintro;
$nexttask = "shout";
runsub settask;

##theyshout:
$thismsg = "Good job, everyone could hear you then";
set $actor's current to $actor's training_thinkintro;
$nexttask = "think";
runsub settask;

##theythink:
$thismsg = "Nice one, I could see you were deep in thought";
set $actor's current to $actor's training_createintro;
$nexttask = "create";
runsub settask;

##theycreate:
$thismsg = "Fantastic! Your first creation in cow";
set $actor's current to $actor's training_endintro;
runsub settask;

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

##settask:
print "[$actor] says '$thismsg'";
set $actor's counter = 0;
mani $init_obj's pocket set traintask1 to $nexttask;

##printout:
$pok = $init_obj's pocket;
print "[$init_obj] pocket = $pok";

##chkmsg:
if $actor's counter < 99 then saycurrent;

##saycurrent:
load $actor's current;
var $list_counter to $actor's counter;
runsub getnextline;
runsub getnextline;
runsub getnextline;
set $actor's counter to $list_counter;
if $list_counter > $list_count then resetcounter;

##resetcounter:
set $actor's counter = 99;

##getnextline:
load increment; rem step on to next list item;
print "[$actor] says '$listitem'";