diff -r ec26095f1bed -r 465e2ec8f05f hedgewars/uAIActions.pas
--- a/hedgewars/uAIActions.pas	Sun Jun 17 14:48:15 2007 +0000
+++ b/hedgewars/uAIActions.pas	Sun Jul 01 11:02:47 2007 +0000
@@ -39,6 +39,7 @@
       aia_LJump      = $8007;
       aia_Skip       = $8008;
       aia_Wait       = $8009;
+      aia_Put        = $800A;
 
       aim_push       = $8000;
       aim_release    = $8001;
@@ -176,6 +177,7 @@
             aia_HJump: ParseCommand('hjump', true);
             aia_LJump: ParseCommand('ljump', true);
              aia_Skip: ParseCommand('skip', true);
+              aia_Put: doPut(X, Y, true);
              end else
         begin
         s:= ActionIdToStr[Action];