equal
deleted
inserted
replaced
777 end; |
777 end; |
778 |
778 |
779 procedure chWorldEdge(var s: shortstring); |
779 procedure chWorldEdge(var s: shortstring); |
780 begin |
780 begin |
781 WorldEdge:= TWorldEdge(StrToInt(s)) |
781 WorldEdge:= TWorldEdge(StrToInt(s)) |
|
782 end; |
|
783 |
|
784 procedure chAdvancedMapGenMode(var s:shortstring); |
|
785 begin |
|
786 cAdvancedMapGenMode:= true; |
782 end; |
787 end; |
783 |
788 |
784 procedure initModule; |
789 procedure initModule; |
785 begin |
790 begin |
786 //////// Begin top sorted by freq analysis not including chatmsg |
791 //////// Begin top sorted by freq analysis not including chatmsg |
862 RegisterVariable('+cur_r' , @chCurR_p , true ); |
867 RegisterVariable('+cur_r' , @chCurR_p , true ); |
863 RegisterVariable('-cur_r' , @chCurR_m , true ); |
868 RegisterVariable('-cur_r' , @chCurR_m , true ); |
864 RegisterVariable('campvar' , @chCampVar , true ); |
869 RegisterVariable('campvar' , @chCampVar , true ); |
865 RegisterVariable('record' , @chRecord , true ); |
870 RegisterVariable('record' , @chRecord , true ); |
866 RegisterVariable('worldedge',@chWorldEdge , false); |
871 RegisterVariable('worldedge',@chWorldEdge , false); |
|
872 RegisterVariable('advmapgen',@chAdvancedMapGenMode, false); |
867 end; |
873 end; |
868 |
874 |
869 procedure freeModule; |
875 procedure freeModule; |
870 begin |
876 begin |
871 end; |
877 end; |