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

Merge branch 'master' of ssh://github.com/brmlab/brmlife

Browse source
This commit is contained in:
Petr Baudis 2011-12-09 01:37:55 +01:00
commit 2b8a07dee6
13 changed files with 427 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

12
client/example.pl
View file

@ -120,6 +120,7 @@ sub take_action($$) {
} else {
print $socket "move_dir $max->[0] $max->[1]\r\n";
}
print $socket "secrete 65536 1\r\n";
print $socket "\r\n";
}
@ -139,9 +140,14 @@ $socket = IO::Socket::INET->new(
print "[ii] connected\r\n";
# negotiate attributs
print $socket "move 1.0\r\n";
print $socket "attack 1.0\r\n";
print $socket "defense 1.0\r\n";
if ($ARGV[1]) {
print "[ii] recovering agent $ARGV[1]\r\n";
print $socket "agent_id $ARGV[1]\r\n";
} else {
print $socket "move 1.0\r\n";
print $socket "attack 1.0\r\n";
print $socket "defense 1.0\r\n";
}
print $socket "\r\n";
print "[ii] agent created\r\n";