COWbrowse

You are in a small beetle

my mission in life is to make new (logical) locations

How I think:
1) check for an object called 'indoors' (will be hidden from view) so I know if Im indoors or outdoors
2) if indoors then choose to make an indoor type object
3) if randomly we are to make a doorway then it has to be indoors to iether in or outdoors
4) if outdors do the same except outdor objects and outdoors to a new location

When I have made a new location I create a idden object within it if its an outdoor location

I prefer to make something more than move
I usually face doorways
I usually pose objects and put them on|beside etc.. other objects

Created by wolis, last updated 19 Apr 2008

Code

# this beetle randomly generates new locations;

if reacting to think then findspace;

# indoor -> indoor;
$newdoor = (passage,corridor,door,entrance,archway,curtain,bb,bb,bb,bb,bb);
$newloc = (kitchen,bedroom,study,livingroom,toilet,attic,cellar,basement);

# indoor -> outdoor;
$newdoor = (door,curtain,window,trapdoor,opending);
$newloc = (garden,field,valley,beach);

# outdoor -> outdoor;
$newdoor = (road,path,passage,walkway,track,bb,bb,bb,bb,bb);
$newloc = (garden,field,valley,beach);

# outdoor -> indoor;
$newdoor = (road,path,passage,walkway,track,bb,bb,bb,bb,bb);
$newloc = (house,cottage,cave,villa,mation,castle);

take 'bb' from $newdoor; # so sometimes we dont have a door;

# outdoor -> outdoor;

#indoor -> indoor;

##findspace:
$thisspace = 'outdoors';
find $loc,indoors;
if $found_id > 0 then weareindoors else weareoutdoors;
$newspace = (indoors,outdoors,obj,obj,obj,obj);
# make a string 'indoorsindoors' or 'indoorsoutdoors' or 'outdoorsobj' 6 combinations;

$newlocation = (door,obj

$thislist to "$thisspace$newspace"; # what list we are to use;

load $actor's $thislist;
say 'msg',"[$actor] pondors creating '$thislist' - $randomitem";

##weareindoors:
var $thisspace to 'indoors';

##moveme:
var $nogozone to 20672;
find $loc,random doorway;
say 'msg',"[$actor] thinks about leaving via [$found_id]";
if $found_id eq $nogozone then nogo else golocation;

##nogo:
say 'msg',"[$actor] decides not to do that";

##golocation:
call "go $found_id";

##makealoc:
# if we are indoors - build another indoors or an exit out..
# if we are outdoors - build another outdoors or a building to go in..
# this means we have 4 possible location types

# after building, go into the new location and srop the hidden 'indoors' if its an indor location

load $actor's simpleloclist;
var $thisface to (north,east,south,west,up,down);
var $facehow to (leading,heading,facing);
call "build $randomitem";
say 'msg',"[$actor] built [$target] [$new_id]";
cxall "paint $new_id as $thisclr";
cxall "face $new_id $facehow $thisface";

##makeanobj:
var $thisclr to (white,chocolate,teal,tomato,dodgerblue,limegreen,pink,yellow,silver);
load $actor's objectlist;
var $thispose to (sitting,standing,sleeping,dreaming,pondering,hiding,collapsed,growing,smiling,existing);
new $randomitem;
call "paint $new_id as $thisclr";
call "pose $new_id as $thispose";