hedgewars/uTypes.pas
changeset 8204 9a6030d96273
parent 8161 0b8beacff8a5
child 8330 aaefa587e277
child 8359 9a7024b2a4d3
equal deleted inserted replaced
8203:2c98ec41697a 8204:9a6030d96273
   397             ClanIndex: LongInt;
   397             ClanIndex: LongInt;
   398             TurnNumber: LongWord;
   398             TurnNumber: LongWord;
   399             Flawless: boolean;
   399             Flawless: boolean;
   400             end;
   400             end;
   401 
   401 
       
   402      cdeclPtr = procedure; cdecl;
       
   403      cdeclIntPtr = procedure(num: LongInt); cdecl;
       
   404      functionDoublePtr = function: Double;
       
   405 
       
   406      TMobileRecord = record
       
   407                      getScreenDPI: functionDoublePtr;
       
   408                      PerformRumble: cdeclIntPtr;
       
   409                      GameLoading: cdeclPtr;
       
   410                      GameLoaded: cdeclPtr;
       
   411                      SaveLoadingEnded: cdeclPtr;
       
   412                      end;
       
   413 
   402      TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidBee, sidShotgun,
   414      TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidBee, sidShotgun,
   403             sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,
   415             sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle,
   404             sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds,
   416             sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds,
   405             sidParachute, sidAirAttack, sidMineStrike, sidBlowTorch,
   417             sidParachute, sidAirAttack, sidMineStrike, sidBlowTorch,
   406             sidGirder, sidTeleport, sidSwitch, sidMortar, sidWhip,
   418             sidGirder, sidTeleport, sidSwitch, sidMortar, sidWhip,