849 end; |
849 end; |
850 |
850 |
851 procedure chCampVar(var s:shortstring); |
851 procedure chCampVar(var s:shortstring); |
852 begin |
852 begin |
853 CampaignVariable := s; |
853 CampaignVariable := s; |
|
854 end; |
|
855 |
|
856 procedure chMissVar(var s:shortstring); |
|
857 begin |
|
858 MissionVariable := s; |
854 end; |
859 end; |
855 |
860 |
856 procedure chWorldEdge(var s: shortstring); |
861 procedure chWorldEdge(var s: shortstring); |
857 begin |
862 begin |
858 WorldEdge:= TWorldEdge(StrToInt(s)) |
863 WorldEdge:= TWorldEdge(StrToInt(s)) |
961 RegisterVariable('+cur_l' , @chCurL_p , true ); |
966 RegisterVariable('+cur_l' , @chCurL_p , true ); |
962 RegisterVariable('-cur_l' , @chCurL_m , true ); |
967 RegisterVariable('-cur_l' , @chCurL_m , true ); |
963 RegisterVariable('+cur_r' , @chCurR_p , true ); |
968 RegisterVariable('+cur_r' , @chCurR_p , true ); |
964 RegisterVariable('-cur_r' , @chCurR_m , true ); |
969 RegisterVariable('-cur_r' , @chCurR_m , true ); |
965 RegisterVariable('campvar' , @chCampVar , true ); |
970 RegisterVariable('campvar' , @chCampVar , true ); |
|
971 RegisterVariable('missvar' , @chMissVar , true ); |
966 RegisterVariable('record' , @chRecord , true ); |
972 RegisterVariable('record' , @chRecord , true ); |
967 RegisterVariable('worldedge',@chWorldEdge , false); |
973 RegisterVariable('worldedge',@chWorldEdge , false); |
968 RegisterVariable('advmapgen',@chAdvancedMapGenMode, false); |
974 RegisterVariable('advmapgen',@chAdvancedMapGenMode, false); |
969 RegisterVariable('+mission', @chShowMission_p, true); |
975 RegisterVariable('+mission', @chShowMission_p, true); |
970 RegisterVariable('-mission', @chShowMission_m, true); |
976 RegisterVariable('-mission', @chShowMission_m, true); |