equal
deleted
inserted
replaced
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; |