brmlab/brmlife
4
0
Fork 0
mirror of https://github.com/brmlab/brmlife.git synced 2025-08-03 10:23:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

Example client: Implement fleeing

Browse source
This commit is contained in:
Petr Baudis 2011-12-23 18:48:29 +01:00
parent f2d3cfad0d
commit 60989d7588
1 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
client/example.pl
View file

@ -21,7 +21,7 @@ $/ = "\r\n";
# The example agent does most of its decision making in the # The example agent does most of its decision making in the
# take_action() subroutine. Its policy is to (in this order): # take_action() subroutine. Its policy is to (in this order):
# #
# * Attack any other agents encountered. # * Attack any other agents encountered (unless low on energy).
# * Eat flowers if in immediate vicinity. # * Eat flowers if in immediate vicinity.
# * Roam around semi-aimlessly, trying to look for food. # * Roam around semi-aimlessly, trying to look for food.
# #
@ -124,6 +124,9 @@ sub take_action($$) {
# Default direction in case of nothing interesting in the vicinity # Default direction in case of nothing interesting in the vicinity
# is [1, -1]. # is [1, -1].
# In the case of shortage of resources, prefer fleeing to fighting.
my $flee = ($state->{energy} < 10000);
# Examine our neighborhood and adjust preference for each direction # Examine our neighborhood and adjust preference for each direction
# based on what we sense. # based on what we sense.
for my $i (0..$#{$state->{visual}}) { for my $i (0..$#{$state->{visual}}) {
@ -148,8 +151,12 @@ sub take_action($$) {
if ($agent eq 'A') { if ($agent eq 'A') {
# Agent # Agent
if (not $flee) {
$move[dirindex($dir)] += 7; $move[dirindex($dir)] += 7;
$attack[dirindex($dir)] += 1; $attack[dirindex($dir)] += 1;
} else {
$move[dirindex($dir)] -= 7;
}
} }
if ($move[dirindex($dir)] > $move[dirindex($max)] or if ($move[dirindex($dir)] > $move[dirindex($max)] or