hedgewars: comparison hedgewars/uGears.pas

equal deleted inserted replaced

-:5ef5415c4ee1
+:20b982afbe6e
 implementation
 uses uStore, uSound, uTeams, uRandom, uCollisions, uIO, uLandGraphics,
 uAIMisc, uLocale, uAI, uAmmos, uStats, uVisualGears, uScript, GLunit, uMobile, uVariables,
-uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug;
+uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture;
 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward;
 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask, Tint: LongWord); forward;
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward;
 @doStepPoisonCloud,
 @doStepHammer,
 @doStepHammerHit,
 @doStepResurrector,
 @doStepNapalmBomb,
-@doStepSnowball
+@doStepSnowball,
+@doStepSnowflake
 );
 procedure InsertGearToList(Gear: PGear);
 var tmp, ptmp: PGear;
 begin
 gear^.nImpactSounds:= 1;
 gear^.AdvBounce:= 1;
 gear^.Radius:= 5;
 gear^.Elasticity:= _0_8;
 gear^.Friction:= _0_8;
+gear^.Density:= _1_5;
 gear^.RenderTimer:= true;
 if gear^.Timer = 0 then gear^.Timer:= 3000
 end;
 gtWatermelon: begin
 gear^.ImpactSound:= sndMelonImpact;
 gear^.nImpactSounds:= 1;
 gear^.AdvBounce:= 1;
 gear^.Radius:= 6;
 gear^.Elasticity:= _0_8;
 gear^.Friction:= _0_995;
+gear^.Density:= _2;
 gear^.RenderTimer:= true;
 if gear^.Timer = 0 then gear^.Timer:= 3000
+end;
+gtMelonPiece: begin
+gear^.Density:= _2;
 end;
 gtHedgehog: begin
 gear^.AdvBounce:= 1;
 gear^.Radius:= cHHRadius;
 gear^.Elasticity:= _0_35;
 gear^.Friction:= _0_999;
 gear^.Angle:= cMaxAngle div 2;
+gear^.Density:= _3;
 gear^.Z:= cHHZ;
 if (GameFlags and gfAISurvival) <> 0 then
 if gear^.Hedgehog^.BotLevel > 0 then
 gear^.Hedgehog^.Effects[heResurrectable] := true;
 end;
 gtShell: begin
 gear^.Radius:= 4;
+gear^.Density:= _1;
 end;
 gtSnowball: begin
 gear^.Radius:= 4;
 gear^.Elasticity:= _1;
 gear^.Friction:= _1;
+gear^.Density:= _0_5;
+end;
+gtFlake: begin
+with Gear^ do
+begin
+DirAngle:= random * 360;
+dx.isNegative:= GetRandom(2) = 0;
+dx.QWordValue:= GetRandom(100000000);
+dy.isNegative:= false;
+dy.QWordValue:= GetRandom(70000000);
+if GetRandom(2) = 0 then dx := -dx;
+Health:= random(vobFrameTicks);
+Timer:= random(vobFramesCount);
+Angle:= (random(2) * 2 - 1) * (1 + random(10000)) * vobVelocity
+end
 end;
 gtGrave: begin
 gear^.ImpactSound:= sndGraveImpact;
 gear^.nImpactSounds:= 1;
 gear^.Radius:= 10;
 gear^.Health:= 10;
 gear^.State:= gear^.State or gstMoving;
 gear^.Radius:= 2;
 gear^.Elasticity:= _0_55;
 gear^.Friction:= _0_995;
+gear^.Density:= _0_9;
 if cMinesTime < 0 then
 gear^.Timer:= getrandom(51)*100
 else
 gear^.Timer:= cMinesTime;
 end;
 gear^.Health:= 10;
 gear^.State:= gear^.State or gstMoving;
 gear^.Radius:= 2;
 gear^.Elasticity:= _0_55;
 gear^.Friction:= _0_995;
+gear^.Density:= _0_9;
 gear^.Timer:= 500;
 end;
 gtCase: begin
 gear^.ImpactSound:= sndGraveImpact;
 gear^.nImpactSounds:= 1;
 gear^.ImpactSound:= sndGrenadeImpact;
 gear^.nImpactSounds:= 1;
 gear^.Radius:= 16;
 gear^.Elasticity:= _0_4;
 gear^.Friction:= _0_995;
+gear^.Density:= _6;
 gear^.Health:= cBarrelHealth
 end;
 gtDEagleShot: begin
 gear^.Radius:= 1;
 gear^.Health:= 50
 end;
 gtDynamite: begin
 gear^.Radius:= 3;
 gear^.Elasticity:= _0_55;
 gear^.Friction:= _0_03;
+gear^.Density:= _2;
 gear^.Timer:= 5000;
 end;
 gtCluster: begin
 gear^.Radius:= 2;
+gear^.Density:= _1_5;
 gear^.RenderTimer:= true
 end;
 gtShover: gear^.Radius:= 20;
 gtFlame: begin
 gear^.Tag:= GetRandom(32);
 gear^.Radius:= 1;
 gear^.Health:= 5;
+gear^.Density:= _1;
 if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then
 begin
 gear^.dY:= (getrandom - _0_8) * _0_03;
 gear^.dX:= (getrandom - _0_5) * _0_4
 end
 gear^.Radius:= 15;
 gear^.Tag:= Y
 end;
 gtAirBomb: begin
 gear^.Radius:= 5;
+gear^.Density:= _2;
 end;
 gtBlowTorch: begin
 gear^.Radius:= cHHRadius + cBlowTorchC;
 gear^.Timer:= 7500
 end;
 gear^.Timer:= 0
 end;
 gtMortar: begin
 gear^.Radius:= 4;
 gear^.Elasticity:= _0_2;
-gear^.Friction:= _0_08
+gear^.Friction:= _0_08;
+gear^.Density:= _1;
 end;
 gtWhip: gear^.Radius:= 20;
 gtHammer: gear^.Radius:= 20;
 gtKamikaze: begin
 gear^.Health:= 2048;
 gear^.nImpactSounds:= 4;
 gear^.AdvBounce:= 1;
 gear^.Radius:= 4;
 gear^.Elasticity:= _0_5;
 gear^.Friction:= _0_96;
+gear^.Density:= _1_5;
 gear^.RenderTimer:= true;
 gear^.Timer:= 5000
 end;
 gtDrill: begin
 gear^.Timer:= 5000;
-gear^.Radius:= 4
+gear^.Radius:= 4;
+gear^.Density:= _1;
 end;
 gtBall: begin
 gear^.ImpactSound:= sndGrenadeImpact;
 gear^.nImpactSounds:= 1;
 gear^.AdvBounce:= 1;
 gear^.Radius:= 5;
 gear^.Tag:= random(8);
 gear^.Timer:= 5000;
 gear^.Elasticity:= _0_7;
 gear^.Friction:= _0_995;
+gear^.Density:= _1_5;
 end;
 gtBallgun: begin
 gear^.Timer:= 5001;
 end;
 gtRCPlane: begin
 gear^.Health:= 2000;
 gear^.Damage:= 100
 end;
 gtMolotov: begin
 gear^.Radius:= 6;
+gear^.Density:= _2;
 end;
 gtBirdy: begin
 gear^.Radius:= 16; // todo: check
 gear^.Timer:= 0;
 gear^.Health := 2000;
 end;
 gtEgg: begin
 gear^.Radius:= 4;
 gear^.Elasticity:= _0_6;
 gear^.Friction:= _0_96;
+gear^.Density:= _1;
 if gear^.Timer = 0 then gear^.Timer:= 3000
 end;
 gtPortal: begin
 gear^.ImpactSound:= sndMelonImpact;
 gear^.nImpactSounds:= 1;
 gear^.Timer:= 15000;
 gear^.RenderTimer:= false;
 gear^.Health:= 100;
 end;
 gtPiano: begin
-gear^.Radius:= 32
+gear^.Radius:= 32;
+gear^.Density:= _50;
 end;
 gtSineGunShot: begin
 gear^.Radius:= 5;
 gear^.Health:= 6000;
 end;
 gear^.Tag := 47;
 end;
 gtNapalmBomb: begin
 gear^.Timer:= 1000;
 gear^.Radius:= 5;
+gear^.Density:= _1_5;
 end;
 end;
 InsertGearToList(gear);
 AddGear:= gear;
 t: PGear;
 begin
 SpeechText:= ''; // in case it has not been consumed
 if (GameFlags and gfLowGravity) = 0 then
+begin
 cGravity:= cMaxWindSpeed * 2;
+cGravityf:= 0.00025 * 2
+end;
 if (GameFlags and gfVampiric) = 0 then
 cVampiric:= false;
 cDamageModifier:= _1;
 Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0);
 FindPlace(Gear, false, 0, LAND_WIDTH);
 end;
 if (GameFlags and gfLowGravity) <> 0 then
+begin
 cGravity:= cMaxWindSpeed;
+cGravityf:= 0.00025
+end;
 if (GameFlags and gfVampiric) <> 0 then
 cVampiric:= true;
 Gear:= GearsList;
 if (GameFlags and gfLaserSight) <> 0 then
 cLaserSighting:= true;
 if (GameFlags and gfArtillery) <> 0 then
-cArtillery:= true
+cArtillery:= true;
+if (Theme = 'Snow') or (Theme = 'Christmas') then
+for i:= 0 to Pred(vobCount*2) do
+AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0);
 end;
 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord);
 begin
 doMakeExplosion(X, Y, Radius, Mask, $FFFFFFFF);

changeset 4647	20b982afbe6e
parent 4641	43d17e3b81de
child 4669	296dbccdf376