hedgewars/uCommandHandlers.pas
changeset 15667 fb1f47e382d0
parent 15299 16f389fcd462
child 15897 d7b53d08ad9c
--- a/hedgewars/uCommandHandlers.pas	Sun Jun 28 00:47:43 2020 +0300
+++ b/hedgewars/uCommandHandlers.pas	Sun Jun 28 01:06:18 2020 +0300
@@ -856,6 +856,11 @@
 cAirMines:= StrToInt(s)
 end;
 
+procedure chSentries(var s: shortstring);
+begin
+cSentries:= StrToInt(s)
+end;
+        
 procedure chExplosives(var s: shortstring);
 begin
 cExplosives:= StrToInt(s)
@@ -980,6 +985,7 @@
     RegisterVariable('minedudpct',@chMineDudPercent, false);
     RegisterVariable('minesnum', @chLandMines     , false);
     RegisterVariable('airmines', @chAirMines      , false);
+    RegisterVariable('sentries', @chSentries      , false);
     RegisterVariable('explosives',@chExplosives    , false);
     RegisterVariable('gmflags' , @chGameFlags      , false);
     RegisterVariable('turntime', @chHedgehogTurnTime, false);