43 

    43 

    44     GameState       : TGameState;

    44     GameState       : TGameState;

    45     GameType        : TGameType;

    45     GameType        : TGameType;

    46     InputMask       : LongWord;

    46     InputMask       : LongWord;

    47     GameFlags       : Longword;

    47     GameFlags       : Longword;

    49     TurnTimeLeft    : Longword;

    48     TurnTimeLeft    : Longword;

    50     ReadyTimeLeft   : Longword;

    49     ReadyTimeLeft   : Longword;

    51     cSuddenDTurns   : LongInt;

    50     cSuddenDTurns   : LongInt;

    52     cDamagePercent  : LongInt;

    51     cDamagePercent  : LongInt;

    53     cMineDudPercent : LongWord;

    52     cMineDudPercent : LongWord;

    74 

    73 

    75     cWaterLine       : LongInt;

    74     cWaterLine       : LongInt;

    76     cGearScrEdgesDist: LongInt;

    75     cGearScrEdgesDist: LongInt;

    77 

    76 

    78     GameTicks   : LongWord;

    77     GameTicks   : LongWord;

    86 

    78 

    87     // originally from uConsts

    79     // originally from uConsts

    88     Pathz: array[TPathType] of shortstring;

    80     Pathz: array[TPathType] of shortstring;

    89     CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;

    81     CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;

    90     LAND_WIDTH       : LongInt;

    82     LAND_WIDTH       : LongInt;

  2052     KilledHHs: Longword;

  2044     KilledHHs: Longword;

  2053     SuddenDeath: Boolean;

  2045     SuddenDeath: Boolean;

  2054     SuddenDeathDmg: Boolean;

  2046     SuddenDeathDmg: Boolean;

  2055     SpeechType: Longword;

  2047     SpeechType: Longword;

  2056     SpeechText: shortstring;

  2048     SpeechText: shortstring;

  2058     skipFlag: boolean;

  2049     skipFlag: boolean;

  2059     PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress

  2050     PlacingHogs: boolean; // a convenience flag to indicate placement of hogs is still in progress

  2060     StepSoundTimer: LongInt;

  2051     StepSoundTimer: LongInt;

  2061     StepSoundChannel: LongInt;

  2052     StepSoundChannel: LongInt;

  2062 

  2053 

  2213 

  2204 

  2214     // int, longint longword and byte

  2205     // int, longint longword and byte

  2215     CursorMovementX     := 0;

  2206     CursorMovementX     := 0;

  2216     CursorMovementY     := 0;

  2207     CursorMovementY     := 0;

  2217     GameTicks           := 0;

  2208     GameTicks           := 0;

  2224     cWaterLine          := LAND_HEIGHT;

  2209     cWaterLine          := LAND_HEIGHT;

  2225     cGearScrEdgesDist   := 240;

  2210     cGearScrEdgesDist   := 240;

  2226 

  2211 

  2227     InputMask           := $FFFFFFFF;

  2212     InputMask           := $FFFFFFFF;

  2228     GameFlags           := 0;

  2213     GameFlags           := 0;

  2230     TurnTimeLeft        := 0;

  2214     TurnTimeLeft        := 0;

  2231     cSuddenDTurns       := 15;

  2215     cSuddenDTurns       := 15;

  2232     cDamagePercent      := 100;

  2216     cDamagePercent      := 100;

  2233     cRopePercent        := 100;

  2217     cRopePercent        := 100;

  2234     cMineDudPercent     := 0;

  2218     cMineDudPercent     := 0;