hedgewars/uVariables.pas
changeset 7007 0ccdff4ae8e9
parent 6982 8d41d22a291d
child 7021 0c75512a8920
equal deleted inserted replaced
7004:45d43f372107 7007:0ccdff4ae8e9
  2303             isDamaging: true;
  2303             isDamaging: true;
  2304             SkipTurns: 0;
  2304             SkipTurns: 0;
  2305             PosCount: 1;
  2305             PosCount: 1;
  2306             PosSprite: sprWater;
  2306             PosSprite: sprWater;
  2307             ejectX: 0; //20;
  2307             ejectX: 0; //20;
       
  2308             ejectY: -3),
       
  2309 // Freezer
       
  2310             (NameId: sidIceGun;
       
  2311             NameTex: nil;
       
  2312             Probability: 20;
       
  2313             NumberInCase: 1;
       
  2314             Ammo: (Propz: ammoprop_ForwMsgs or 
       
  2315                           ammoprop_NeedUpDown or
       
  2316                           ammoprop_DontHold;
       
  2317                 Count: 1;
       
  2318                 NumPerTurn: 0;
       
  2319                 Timer: 5001;
       
  2320                 Pos: 0;
       
  2321                 AmmoType: amFlamethrower;
       
  2322                 AttackVoice: sndNone;
       
  2323                 Bounciness: 1000);
       
  2324             Slot: 2;
       
  2325             TimeAfterTurn: 0;
       
  2326             minAngle: 0;
       
  2327             maxAngle: 0;
       
  2328             isDamaging: true;
       
  2329             SkipTurns: 0;
       
  2330             PosCount: 1;
       
  2331             PosSprite: sprWater;
       
  2332             ejectX: 0; //20;
  2308             ejectY: -3)
  2333             ejectY: -3)
  2309         );
  2334         );
  2310 
  2335 
  2311 const
  2336 const
  2312     GearKindAmmoTypeMap : array [TGearType] of TAmmoType = (    
  2337     GearKindAmmoTypeMap : array [TGearType] of TAmmoType = (    
  2370 (*       gtSnowball *) , amSnowball
  2395 (*       gtSnowball *) , amSnowball
  2371 (*          gtFlake *) , amNothing
  2396 (*          gtFlake *) , amNothing
  2372 (*      gtStructure *) , amStructure  // TODO - This will undoubtedly change once there is more than one structure
  2397 (*      gtStructure *) , amStructure  // TODO - This will undoubtedly change once there is more than one structure
  2373 (*        gtLandGun *) , amLandGun
  2398 (*        gtLandGun *) , amLandGun
  2374 (*         gtTardis *) , amTardis
  2399 (*         gtTardis *) , amTardis
       
  2400 (*         gtIceGun *) , amIceGun
  2375     );
  2401     );
  2376 
  2402 
  2377 var
  2403 var
  2378     Land: TCollisionArray;
  2404     Land: TCollisionArray;
  2379     LandPixels: TLandArray;
  2405     LandPixels: TLandArray;