hedgewars/uAI2.pas
branchtransitional_engine
changeset 16069 6c5b3c576fc6
parent 16068 a236360669cc
child 16078 db18f1a30b0c
--- a/hedgewars/uAI2.pas	Sun Oct 27 17:00:17 2024 +0100
+++ b/hedgewars/uAI2.pas	Fri Nov 22 17:29:30 2024 +0100
@@ -14,6 +14,7 @@
 procedure ai_clear_team(ai: pointer); cdecl; external;
 procedure ai_add_team_hedgehog(ai: pointer; x, y: real); cdecl; external;
 procedure ai_think(ai: pointer); cdecl; external;
+function ai_have_plan(): boolean; cdecl; external;
 procedure dispose_ai(ai: pointer); cdecl; external;
 
 var ai: pointer;
@@ -38,7 +39,6 @@
             end;
         itHedgehog:= Succ(itHedgehog) mod CurrentTeam^.HedgehogsNumber;
     until (itHedgehog = currHedgehogIndex);
-
 end;
 
 procedure initModule;