hedgewars/uCommandHandlers.pas
changeset 14468 bd1db668b7c0
parent 13867 0ecf77e203c0
child 14527 d0441c7e9000
--- a/hedgewars/uCommandHandlers.pas	Tue Dec 18 14:24:23 2018 +0100
+++ b/hedgewars/uCommandHandlers.pas	Tue Dec 18 15:21:23 2018 +0100
@@ -853,6 +853,11 @@
   CampaignVariable := s;
 end;
 
+procedure chMissVar(var s:shortstring);
+begin
+  MissionVariable := s;
+end;
+
 procedure chWorldEdge(var s: shortstring);
 begin
 WorldEdge:= TWorldEdge(StrToInt(s))
@@ -963,6 +968,7 @@
     RegisterVariable('+cur_r'  , @chCurR_p       , true );
     RegisterVariable('-cur_r'  , @chCurR_m       , true );
     RegisterVariable('campvar' , @chCampVar      , true );
+    RegisterVariable('missvar' , @chMissVar      , true );
     RegisterVariable('record'  , @chRecord       , true );
     RegisterVariable('worldedge',@chWorldEdge    , false);
     RegisterVariable('advmapgen',@chAdvancedMapGenMode, false);