hedgewars/uVariables.pas
changeset 11154 1d08386a7c0f
parent 11151 5c40c65b619d
child 11161 ce19a557e3b4
child 11164 e19cf9459665
equal deleted inserted replaced
11152:3ac7f6d43200 11154:1d08386a7c0f
  2491     cTagsMask:= htTeamName or htName or htHealth;
  2491     cTagsMask:= htTeamName or htName or htHealth;
  2492 end;
  2492 end;
  2493 
  2493 
  2494 procedure initModule;
  2494 procedure initModule;
  2495 var s: shortstring;
  2495 var s: shortstring;
       
  2496     i: integer;
  2496 begin
  2497 begin
  2497     cLocale:= cLocaleFName;
  2498     cLocale:= cLocaleFName;
  2498     SplitByChar(cLocale, s, '.');
  2499     SplitByChar(cLocale, s, '.');
  2499 
  2500 
  2500     cFlattenFlakes      := false;
  2501     cFlattenFlakes      := false;
  2705     cStereoDepth:= 0;
  2706     cStereoDepth:= 0;
  2706     cViewLimitsDebug:= false;
  2707     cViewLimitsDebug:= false;
  2707     AprilOne := false;
  2708     AprilOne := false;
  2708 
  2709 
  2709     ChatPasteBuffer:= '';
  2710     ChatPasteBuffer:= '';
       
  2711 
       
  2712     // initialize pointers to nil
       
  2713     // (don't rely on implicit init of fpc, because that one only happens ONCE when used as lib)
       
  2714     CurAmmoGear:= nil;
       
  2715     lastGearByUID:= nil;
       
  2716     GearsList:= nil;
       
  2717     CurrentTeam:= nil;
       
  2718     PreviousTeam:= nil;
       
  2719     CurrentHedgehog:= nil;
       
  2720     FollowGear:= nil;
       
  2721     lastVisualGearByUID:= nil;
       
  2722 
       
  2723     ChefHatTexture:= nil;
       
  2724     CrosshairTexture:= nil;
       
  2725     GenericHealthTexture:= nil;
       
  2726     WeaponTooltipTex:= nil;
       
  2727     HHTexture:= nil;
       
  2728     LandBackSurface:= nil;
       
  2729     ConfirmTexture:= nil;
       
  2730     MissionIcons:= nil;
       
  2731     ropeIconTex:= nil;
       
  2732 
       
  2733     for i:= Low(ClansArray) to High(ClansArray) do
       
  2734         begin
       
  2735         ClansArray[i]:= nil;
       
  2736         end;
       
  2737 
       
  2738     for i:= Low(TeamsArray) to High(TeamsArray) do
       
  2739         begin
       
  2740         TeamsArray[i]:= nil;
       
  2741         end;
       
  2742 
       
  2743     for i:= Low(CountTexz) to High(CountTexz) do
       
  2744         begin
       
  2745         CountTexz[i]:= nil;
       
  2746         end;
       
  2747 
  2710 end;
  2748 end;
  2711 
  2749 
  2712 procedure freeModule;
  2750 procedure freeModule;
  2713 begin
  2751 begin
  2714 end;
  2752 end;