equal
deleted
inserted
replaced
794 end; |
794 end; |
795 |
795 |
796 procedure chCampVar(var s:shortstring); |
796 procedure chCampVar(var s:shortstring); |
797 begin |
797 begin |
798 CampaignVariable := s; |
798 CampaignVariable := s; |
|
799 end; |
|
800 |
|
801 procedure chWorldEdge(var s: shortstring); |
|
802 begin |
|
803 WorldEdge:= TWorldEdge(StrToInt(s)) |
799 end; |
804 end; |
800 |
805 |
801 procedure initModule; |
806 procedure initModule; |
802 begin |
807 begin |
803 //////// Begin top sorted by freq analysis not including chatmsg |
808 //////// Begin top sorted by freq analysis not including chatmsg |
881 RegisterVariable('-cur_l' , @chCurL_m , true ); |
886 RegisterVariable('-cur_l' , @chCurL_m , true ); |
882 RegisterVariable('+cur_r' , @chCurR_p , true ); |
887 RegisterVariable('+cur_r' , @chCurR_p , true ); |
883 RegisterVariable('-cur_r' , @chCurR_m , true ); |
888 RegisterVariable('-cur_r' , @chCurR_m , true ); |
884 RegisterVariable('campvar' , @chCampVar , true ); |
889 RegisterVariable('campvar' , @chCampVar , true ); |
885 RegisterVariable('record' , @chRecord , true ); |
890 RegisterVariable('record' , @chRecord , true ); |
|
891 RegisterVariable('worldedge',@chWorldEdge , false); |
886 end; |
892 end; |
887 |
893 |
888 procedure freeModule; |
894 procedure freeModule; |
889 begin |
895 begin |
890 end; |
896 end; |