Find
You are looking at an experimental weed killer
An odd kind of beetle genetically engineered to kill those nasty vines.
IN EXPERIMENTAL STAGE
Created by
Chaotic Bob
, last updated 03 Jul 2009
Code
# note to CB: when a trigger word runs a block of code it can only run one block and can not use 'or' or the /n chance of executing a block.
also it has to be 'runsub' not runblock or gosub or any of the other variants on that theme.
Also tick is very agressive.. every 20 seconds.. I have turned this off for now... until there is a desperate need for it.
##txick:runsub dosomethingnow;
##dosomethingnow:
runsub elsewhere or isthereweeds;
##use:
runsub whattodo;
##whattodo:
runsub isitme;
##isitme:
if $target eq $actor then isthereweeds else end;
##isthereweeds:
find $loc, vine;
if $found_id > 0 then eradicate else failure;
##eradicate:
call "delete $found_id";
say 'msg,"The weed writhes as if in agony...";
##failure:
say 'msg',"There are no weeds for [$actor] to kill";
##elsewhere:
call "roam";