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

Example client: Avoid herps and corpses when fully fed, helps sustainability

Browse source
This commit is contained in:
Petr Baudis 2011-12-26 20:28:04 +01:00
parent a9884cf827
commit a565d5d81d
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
client/example.pl
View file

@ -4,7 +4,7 @@
#
# This client is meant only as an example of implementation of all
# the main features without sophisticated architecture or decision
# making strategies.
# making strategies. It should have some basic sustainability, though.
#
# Usage: example.pl [PORT [AGENTID [GENDER]]]
#
@ -159,12 +159,20 @@ sub take_action($$) {
if ($agent eq 'x') {
# Herp
$move[dirindex($dir)] += 2;
if ($state->{energy} < 18000) {
$move[dirindex($dir)] += 2;
} else {
$move[dirindex($dir)] -= 2;
}
}
if ($agent eq 'a') {
# Corpse
$move[dirindex($dir)] += 4;
if ($state->{energy} < 17000) {
$move[dirindex($dir)] += 4;
} else {
$move[dirindex($dir)] -= 4;
}
}
if ($agent eq 'A') {