COWbrowse

You are looking at a command called detect

detect life
detect code
detect boring

The detect life command scans your location and any adjacent one for signs of life. Each item shown has 'living' material and thus can be attacked.

The detect code command scans your location for items that are coded.

The detect boring command scans your location for items that you own that aren't written in and aren't coded, including the location itself. Future plans on this are to search code for missing reactions so you can make your objects even more interactive.

About life in COW:
To make a living creature, read the command called spawn;

If you are not alive, try cpr me.

If you create a creature and you want the creature to be alive, then cpr the creature. Note: creatures created by spawn are able to spontaneously return to life.

Created by thorn, last updated 26 Dec 2008

Code

get $text;

if $text eq 'life' then detectlife;
if $text eq 'code' then detectcode;
if $text eq 'boring' then detectboring;

##detectlife:
say 'msg',"[$init_obj] scans the area for signs of life.";
$info = '';
$totalive = 0;
$totdead = 0;
$room = $loc;
$pre = "In [$loc]";
runsub showlife;
foreach in $loc do collect doorway;
loop showlifedoor;

##collect:
loop paste $for_id;

##showlifedoor:
$info = '';
$totalive = 0;
$totdead = 0;
$link = $listitem's link;
$room = $link's loc;
$pre = "Beyond [$listitem]";
runsub showlife;

##showlife:
foreach in $room do dl2 not doorway;
say 'msg',"$pre: $info ($totalive alive, $totdead dead).";

##dl2:
if $for_id's material like living then dl3;

##dl3:
$vs = 'hidden';
if $for_id's pose like $vs then skip else dl4;

##dl4:
if $for_id's health > 0 then dl5 else dl6;

##dl5:
$info = "$info [$for_id] is alive,";
add 1 to $totalive;

##dl6:
$info = "$info [$for_id] was alive,";
add 1 to $totdead;

##detectcode:
$totcode = 0;
foreach in $loc do checkcode;
say 'msg',"[$init_obj] scans [$loc] for signs of mechanism.";
say 'msg',"Items: $info ($totcode coded).";

##checkcode:
if $for_id's code eq '' then skip else dc1;

##dc1:
$vs = 'hidden';
if $for_id's pose like $vs then skip else dc2;

##dc2:
$info = "$info [$for_id],";
add 1 to $totcode;

##detectboring:
$totbore = 0;
runsub checkboreloc;
foreach in $loc do checkboreitem not doorway not player;
getgender $init_obj;
say 'msg',"[$init_obj] scans [$loc] for signs of boredom on $hisher objects.";
sayto $init_obj,"Results: $info ($totbore are boring).";

##checkboreloc:
if $loc's owner eq $init_obj then cbl1;

##cbl1:
if $loc's info eq '' then cbl2 else skip;

##cbl2:
$info = "[$loc]: no info, ";

##checkboreitem:
if $for_id's owner eq $init_obj then db1;

##db1:
$info2 = "[$for_id]: ";
$tot = 0;
if $for_id's info eq '' then dcbinfo;
if $for_id's code eq '' then dcbcode else dcbreact;
if $tot > 0 then db2;

##db2:
$info = "$info $info2";
add 1 to $totbore;

##dcbinfo:
$info2 = "$info2 no info, ";
add 1 to $tot;

##dcbcode:
$info2 = "$info2 no code, ";
add 1 to $tot;

##dcbreact:
rem this will detect missing reactions;