hedgewars/uWorld.pas
changeset 942 b41af014d85e
parent 883 07a568ba44e0
child 956 19003f7fc174
equal deleted inserted replaced
941:b5222ddafe1f 942:b41af014d85e
    37     bShowFinger: boolean = false;
    37     bShowFinger: boolean = false;
    38     Frames: Longword = 0;
    38     Frames: Longword = 0;
    39 
    39 
    40 implementation
    40 implementation
    41 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, GL,
    41 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, GL,
    42      uAmmos, uVisualGears;
    42      uAmmos, uVisualGears, uChat;
    43 const FPS: Longword = 0;
    43 const FPS: Longword = 0;
    44       CountTicks: Longword = 0;
    44       CountTicks: Longword = 0;
    45       SoundTimerTicks: Longword = 0;
    45       SoundTimerTicks: Longword = 0;
    46       prevPoint: TPoint = (X: 0; Y: 0);
    46       prevPoint: TPoint = (X: 0; Y: 0);
    47 
    47 
   331    end;
   331    end;
   332 
   332 
   333 // AmmoMenu
   333 // AmmoMenu
   334 if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface);
   334 if (AMxCurr < cScreenWidth) or bShowAmmoMenu then ShowAmmoMenu(Surface);
   335 
   335 
       
   336 DrawChat;
       
   337 
   336 // Cursor
   338 // Cursor
   337 if isCursorVisible then
   339 if isCursorVisible then
   338    begin
   340    begin
   339    if not bShowAmmoMenu then
   341    if not bShowAmmoMenu then
   340      with CurrentHedgehog^ do
   342      with CurrentHedgehog^ do