Example client: Fix secrete command issue

This commit is contained in:
Petr Baudis 2011-12-23 17:57:08 +01:00
parent df066955cd
commit 11511840bd

View file

@ -137,7 +137,7 @@ sub take_action($$) {
} }
# We unconditionally secrete this pheromone for identification # We unconditionally secrete this pheromone for identification
# by others of our kin. # by others of our kin.
print $socket "secrete 65536 1\r\n"; print $socket $state->{tick}." secrete 65536 1\r\n";
print $socket "\r\n"; print $socket "\r\n";
} }