brmlab/brmlife
4
0
Fork 0
mirror of https://github.com/brmlab/brmlife.git synced 2025-08-02 18:03:37 +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 # This client is meant only as an example of implementation of all
# the main features without sophisticated architecture or decision # 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]]] # Usage: example.pl [PORT [AGENTID [GENDER]]]
# #
@ -159,12 +159,20 @@ sub take_action($$) {
if ($agent eq 'x') { if ($agent eq 'x') {
# Herp # Herp
$move[dirindex($dir)] += 2; if ($state->{energy} < 18000) {
$move[dirindex($dir)] += 2;
} else {
$move[dirindex($dir)] -= 2;
}
} }
if ($agent eq 'a') { if ($agent eq 'a') {
# Corpse # Corpse
$move[dirindex($dir)] += 4; if ($state->{energy} < 17000) {
$move[dirindex($dir)] += 4;
} else {
$move[dirindex($dir)] -= 4;
}
} }
if ($agent eq 'A') { if ($agent eq 'A') {