You are looking at a coding lesson four

Lets interact with random objects in cow

Use the 'foreach' statement to check each object in a location. Here is an object which looks at each object inits location:

##think:runsub checkall;
##checkall:
foreach in $loc do lookatit;

##lookatit:
say 'msg',"[$actor] looks at [$for_id]";


'foreach' will run the block lookatit fore every object you can see in a location (including invisible objects!) and sets these variables:
$for_id = the current object
$for_link = the objtct it is linked to (if any)
$for_class = the objects class name (eg cat, chair)
$for_name = the objects specific name (eg brian)
$for_extra = extra description for this object
$for_info = the text written in the object
$for_code = the code of the current object
$for_host = the object this is hosted by (eg behind a box)

If you want to get any other property of an object you can use the standard $for_id's colour or $for_id's qty. The above simple save a little bit of processing time.

You can limit what objects are checked by adding filters at the end of the the foreach statement:
  • doorways
  • not doorways
  • players
  • not players
  • locked
  • not locked
  • not me

    So to look at only players we do this:
    foreach in $loc do checkit,players not me;

    To find all unlocked doorways do this:
    foreach in $loc do checkit,not locked doorways;
    or
    foreach in $loc do checkit,doorways not locked;

    You can combine them in any way you like however it is assume you wil only have one of each fiter type and you wont try any find all locked and unlocked at once - just dont bother filtering in that case.

    Now lets choose a random object in this location to jump onto:


    ##think:runsub checkall;
    ##checkall:
    foreach in $loc do lookatit;
    find $loc,random;
    set $actor's pose to 'jumping';
    set $actor's hosthow to 'on';
    set $actor's host to $found_id;
    say 'jumps',"[$actor] chooses to jump on [$found_id]";
    msg 0,$actor,0,0,'force',"force:look $loc";

    ##lookatit:
    say 'msg',"[$actor] looks at [$for_id]";


    We use the 'find' statement to location an object in a location.

    Find has threemain ways of operating:
    find $loc the cat; = to find a specificly named object
    find where {SQL_stament} = find anything using SQL
    find $loc random,{filters} = find a random object

    The first method of exact object finding is pretty self explanetory.
    The second method of finding using SQL is too complext to go into right now
    The third finds a random object in the location, and you can apply the same filters as you did in the 'foreach' above.

    So to make your object jump only on players you would use this find statement:
    find $loc,random players;
    or to find any object which is not a doorway and not the current actor you would do this:
    find $loc,not doorway not me;

    Notice that we are not just saying the object jumps, we actually manipulate it so it is 'on' the found object and posed as jumping and we force a look so everyone gets to see this new arrangment.

    Created by wolis, last updated 07 Feb 2012