Changeset 550 for trunk/GameServer.pas


Ignore:
Timestamp:
Apr 22, 2024, 10:17:01 PM (13 days ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/GameServer.pas

    r549 r550  
    27382738
    27392739  if (1 shl Player and (GAlive or GWatching) = 0) and
    2740     not((Command = sTurn) or (Command = sBreak) or (Command = sResign) or
     2740    not ((Command = sTurn) or (Command = sBreak) or (Command = sResign) or
    27412741    (Command = sGetAIInfo) or (Command = sGetAICredits) or
    27422742    (Command = sGetVersion) or (Command and $FF0F = sGetChart)) then
     
    27502750
    27512751  // check if command allowed now
    2752   if (Mode = moPlaying) and not((Command >= cClientEx) or (Command = sMessage)
     2752  if (Mode = moPlaying) and not ((Command >= cClientEx) or (Command = sMessage)
    27532753    or (Command = sSetDebugMap) or (Command = sGetDebugMap) or
    27542754    (Command = sGetAIInfo) or (Command = sGetAICredits) or
     
    27602760    (Command and $FF0F = sGetChart) or (Command and $FF0F = sSetAttitude))
    27612761  // commands always allowed
    2762     and not((Player = pTurn) and (Command < $1000))
     2762    and not ((Player = pTurn) and (Command < $1000))
    27632763  // info request always allowed for pTurn
    27642764    and ((pDipActive < 0) and (Player <> pTurn) // not his turn
     
    38703870            if 1 shl Domain and Feature[Subject].Domains = 0 then
    38713871              Result := eDomainMismatch
    3872             else if not((Feature[Subject].Preq = preNone) or
     3872            else if not ((Feature[Subject].Preq = preNone) or
    38733873              (Feature[Subject].Preq = preSun) and
    38743874              (GWonder[woSun].EffectiveOwner = Player) or
     
    42004200                  Result := eInvalid
    42014201                else if (NewProject and cpConscripts <> 0) and
    4202                   not((RW[Player].Tech[adConscription] >= tsApplicable) and
     4202                  not ((RW[Player].Tech[adConscription] >= tsApplicable) and
    42034203                  (RW[Player].Model[NewProject and cpIndex].Domain = dGround)
    42044204                  and (RW[Player].Model[NewProject and cpIndex].Kind < mkScout))
Note: See TracChangeset for help on using the changeset viewer.