##tickloc:
runsub areweracing;
##wish:
runsub areweracing;
##areweracing:
var $race to $actor's racing;
if $race > 0 then dorace else chkhorses;
##chkhorses:
runsub chkhorses2/15;
##chkhorses2:
find $loc,random not doorway not player not me;
say 'say',"[$actor] looks around and finds $found_count things ready to race";
if $found_count > 1 then startrace else callstart;
##callstart:
say 'do',"[$actor] checks [$loc] and finds nothing wanting to race";
say 'say',"[$actor] says 'Please drop or create some objects so that they can have a race around the track'";
##dorace:
if $race > 5 then endrace else callit;
##endrace:
find $loc,random not doorway not player not me;
var $wins to (wins it by a nose, files past the finish line,takes first place,gallops past the finish line,falls.. gets up.. then..);
say 'say',"[$actor] says 'and [$found_id] $wins!' _ping $found_id,arrow1_nw,2";
set $actor's racing to 0;
var $ownr to $found_id's owner;
var $omoney to $ownr's worth;
var $pot to random 10;
add $pot to $omoney;
set $ownr's worth to $omoney;
say 'say',"[$actor] says '[$found_id] owned by [$ownr] wins the race.'";
say 'say',"[$actor] says 'Thats $pot pennies prize money for [$ownr]'";
##callit:
find $loc,random not doorway not player not me;
var $poss to $found_id's poss;
add 1 to $poss;
set $found_id's poss to $poss;
var $how to (noses,stumbles,races,falls,flys,pushes);
var $whr to (back,ahead,forward,sideways,on,infront);
say 'say',"[$actor] says '[$found_id] $how $whr' _ping $found_id,ring1,2";
runsub notlong/2;
runsub lapcount;
##notlong:
var $msg to (not long now,here they come,look at them go,what a race,their neck and neck);
var $how to (come,race,run,power,fly,thunder,stomp);
var $as to (down,into,along,towards,at);
var $whr to (bend,home straight,finish line,track);
say 'say',"[$actor] says '$msg as they $how $as the $whr'";
##startrace:
say 'say',"[$actor] says 'And they're off!'";
runsub lapcount;
##lapcount:
add 1 to $race;
set $actor's racing to $race;