sheepy-clone: comparison hedgewars/uGearsHedgehog.pas

equal deleted inserted replaced

-:43e106417a05
+:b5b79a8f9354
 unit uGearsHedgehog;
 interface
 uses uTypes;
 procedure doStepHedgehog(Gear: PGear);
 procedure AfterAttack;
 procedure HedgehogStep(Gear: PGear);
 procedure doStepHedgehogMoving(Gear: PGear);
 procedure HedgehogChAngle(HHGear: PGear);
 procedure PickUp(HH, Gear: PGear);
 procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);
 procedure CheckIce(Gear: PGear); inline;
 implementation
 uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions,
 uCommands, uLocale, uUtils, uVisualGears, uStats, uIO, uScript,
 uGearsList, uGears, uCollisions, uRandom, uStore, uTeams,
 uGearsUtils;
 var GHStepTicks: LongWord = 0;
 // Shouldn't more of this ammo switching stuff be moved to uAmmos ?
 else OnUsedAmmo(HHGear^.Hedgehog^)
 end;
 MultiShootAttacks:= 0;
 HHGear^.Message:= HHGear^.Message and (not (gmLJump or gmHJump));
 if Ammoz[CurAmmoType].Slot = slot then
 begin
 i:= 0;
 repeat
 inc(ammoidx);
 ammoidx:= -1;
 //TryDo(i < 2, 'Engine bug: no ammo in current slot', true)
 end;
 until (i = 1) or ((Ammo^[slot, ammoidx].Count > 0)
 and (Team^.Clan^.TurnNumber > Ammoz[Ammo^[slot, ammoidx].AmmoType].SkipTurns))
 end
 else
 begin
 i:= 0;
 // check whether there is ammo in slot
 while (i <= cMaxSlotAmmoIndex) and ((Ammo^[slot, i].Count = 0)
 LoadHedgehogHat(HHGear^.Hedgehog^, 'Reserved/chef')
 else if prevAmmo = amKnife then
 LoadHedgehogHat(HHGear^.Hedgehog^, Hat);
 end;
 // Try again in the next slot
 if CurAmmoType = prevAmmo then
 begin
 if slot >= cMaxSlotIndex then slot:= 0 else inc(slot);
 HHGear^.MsgParam:= slot;
 ChangeAmmo(HHGear)
 end
 Gear^.Hedgehog^ do
 begin
 if ((State and gstHHDriven) <> 0) and ((State and (gstAttacked or gstHHChooseTarget)) = 0) and (((State and gstMoving) = 0)
 or (Power > 0)
 or (CurAmmoType = amTeleport)
 or
 // Allow attacks while moving on ammo with AltAttack
 ((CurAmmoGear <> nil) and ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0))
 or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackInMove) <> 0))
 and ((TargetPoint.X <> NoPointX) or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) = 0)) then
 begin
 if  (CurAmmoGear <> nil)
 and ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0)
 and ((Gear^.Message and gmLJump) <> 0)
 and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
 begin
 newDx:= dX;
 newDy:= dY;
 altUse:= true
 end
 else
 begin
 amPickHammer: newGear:= AddGear(hwRound(lx), hwRound(ly) + cHHRadius, gtPickHammer, 0, _0, _0, 0);
 amSkip: ParseCommand('/skip', true);
 amRope: newGear:= AddGear(hwRound(lx), hwRound(ly), gtRope, 0, xx, yy, 0);
 amMine: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtMine, gstWait, SignAs(_0_02, dX), _0, 3000);
 amSMine: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSMine,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
 amKnife: begin
 newGear:= AddGear(hwRound(lx), hwRound(ly), gtKnife,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
 newGear^.State:= newGear^.State or gstMoving;
 newGear^.Radius:= 4 // temporarily shrink so it doesn't instantly embed in the ground
 end;
 amDEagle: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtDEagleShot, 0, xx * _0_5, yy * _0_5, 0);
 amSineGun: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSineGunShot, 0, xx * _0_5, yy * _0_5, 0);
 amPortalGun: begin
 newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6,
 // set selected color
 CurWeapon^.Pos);
 end;
 amSniperRifle: begin
 PlaySound(sndSniperReload);
 amLowGravity: begin
 PlaySound(sndLowGravity);
 cGravity:= cMaxWindSpeed;
 cGravityf:= 0.00025
 end;
 amExtraDamage: begin
 PlaySound(sndHellishImpact4);
 cDamageModifier:= _1_5
 end;
 amInvulnerable: Invulnerable:= true;
 amExtraTime: begin
 newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0);
 newGear^.SoundChannel := LoopSound(sndResurrector);
 end;
 //amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000);
 amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000);
-amIceGun: begin
+amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0);
-newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0);
-newGear^.radius := 8;
-end;
 end;
 if altUse and (newGear <> nil) then
 begin
 newGear^.dX:= newDx / newGear^.Density;
 newGear^.dY:= newDY / newGear^.Density
 end;
 case CurAmmoType of
 amGrenade, amMolotov,
 amClusterBomb, amGasBomb,
 amBazooka, amSnowball,
 amBee, amSMine,
 amMortar, amWatermelon,
 amHellishBomb, amDrill: FollowGear:= newGear;
 amShotgun, amPickHammer,
 amFlamethrower, amLandGun,
 amResurrector, //amStructure,
 amTardis, amPiano,
 amIceGun: CurAmmoGear:= newGear;
 end;
 if ((CurAmmoType = amMine) or (CurAmmoType = amSMine)) and (GameFlags and gfInfAttack <> 0) then
 newGear^.FlightTime:= GameTicks + 1000
 else if CurAmmoType = amDrill then
 newGear^.FlightTime:= GameTicks + 250;
 if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
 if elastic < _1 then
 newGear^.Elasticity:= newGear^.Elasticity * elastic
 else if elastic > _1 then
 newGear^.Elasticity:= _1 - ((_1-newGear^.Elasticity) / elastic);
 (* Experimented with friction modifier. Didn't seem helpful
 fric:= int2hwfloat(CurWeapon^.Bounciness) / _250;
 if fric < _1 then newGear^.Friction:= newGear^.Friction * fric
 else if fric > _1 then newGear^.Friction:= _1 - ((_1-newGear^.Friction) / fric)*)
 end;
 and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then
 SendIPC(_S'a');
 AfterAttack;
 end
 end
 else
 Message:= Message and (not gmAttack);
 end;
 TargetPoint.X := NoPointX;
 ScriptCall('onHogAttack');
 end;
 a:= CurAmmoType;
 if HHGear <> nil then HHGear^.State:= HHGear^.State and (not gstAttacking);
 if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then
 begin
 Inc(MultiShootAttacks);
 if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) then
 begin
 s:= inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1);
 AddCaption(format(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate);
 end;
 if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks)
 or ((GameFlags and gfMultiWeapon) <> 0) then
 begin
 isInMultiShoot:= true
 end
 begin
 if TagTurnTimeLeft = 0 then
 TagTurnTimeLeft:= TurnTimeLeft;
 TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 100;
 end;
 if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (HHGear <> nil) then
 HHGear^.State:= HHGear^.State or gstAttacked;
 if (Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) <> 0 then
 ApplyAmmoChanges(CurrentHedgehog^)
 end;
 end
 begin
 AllInactive:= false;
 dec(Gear^.Timer);
 if (Gear^.Timer mod frametime) = 0 then
 inc(Gear^.Pos)
 end
 else if Gear^.Timer = 1 then
 begin
 Gear^.State:= Gear^.State or gstNoDamage;
 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound);
 AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
 DeleteGear(Gear);
 SetAllToActive
 end
 else // Gear^.Timer = 0
 begin
 AllInactive:= false;
 Gear^.Z:= cCurrHHZ;
 RemoveGearFromList(Gear);
 vga: PVisualGear;
 begin
 if cnt <> 0 then AddAmmo(HH, ammo, cnt)
 else AddAmmo(HH, ammo);
 if (not (HH.Team^.ExtDriven
 or (HH.BotLevel > 0)))
 or (HH.Team^.Clan^.ClanIndex = LocalClan)
 or (GameType = gmtDemo)  then
 begin
 if cnt <> 0 then
 else
 case Gear^.Pos of
 posCaseUtility,
 posCaseAmmo: begin
 PlaySound(sndShotgunReload);
 if Gear^.AmmoType <> amNothing then
 begin
 AddPickup(HH^.Hedgehog^, Gear^.AmmoType, Gear^.Power, hwRound(Gear^.X), hwRound(Gear^.Y));
 end
 else
 begin
 // Add spawning here...
 AddRandomness(GameTicks);
 gi := GearsList;
 while gi <> nil do
 begin
 if (gi^.Kind = gtGenericFaller) and (gi^.State and gstInvisible <> 0) then
 begin
 PrevdX:= hwSign(Gear^.dX);
 if (Gear^.Message and gmLeft  )<>0 then
 Gear^.dX:= -cLittle else
 if (Gear^.Message and gmRight )<>0 then
 Gear^.dX:=  cLittle
 else exit;
 StepSoundTimer:= cHHStepTicks;
 GHStepTicks:= cHHStepTicks;
 begin
 if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then
 Gear^.dY:= _0;
 Gear^.State:= Gear^.State or gstMoving;
 if (CurrentHedgehog^.Gear = Gear)
 and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then
 begin
 // TODO: why so aggressive at setting FollowGear when falling?
 FollowGear:= Gear;
 end;
 if isUnderwater then
 if ((GameFlags and gfMoreWind) <> 0) and (((Gear^.Damage <> 0)
 or ((CurAmmoGear <> nil) and ((CurAmmoGear^.AmmoType = amJetpack) or (CurAmmoGear^.AmmoType = amBirdy)))
 or ((Gear^.dY.QWordValue + Gear^.dX.QWordValue) > _0_55.QWordValue))) then
 Gear^.dX := Gear^.dX + cWindSpeed / Gear^.Density
 end
 end
 else
 begin
 land:= TestCollisionYwithGear(Gear, 1);
 if ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_55.QWordValue) and ((land and lfIce) = 0)
 and ((Gear^.State and gstHHJumping) <> 0) then
 (TestCollisionYwithXYShift(Gear, hwSign(Gear^.dX) - hwRound(Gear^.dX), -1, -1))) then
 begin
 Gear^.X:= Gear^.X + Gear^.dX;
 Gear^.dX:= Gear^.dX * _0_93;
 Gear^.Y:= Gear^.Y - _2
 end
 else
 if not (TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -3, hwSign(Gear^.dX)) or
 (TestCollisionYwithXYShift(Gear, hwSign(Gear^.dX) - hwRound(Gear^.dX), -1, -1))) then
 begin
 Gear^.X:= Gear^.X + Gear^.dX;
 begin
 Gear^.State:= Gear^.State and (not gstAnimation);
 // ARTILLERY but not being moved by explosions
 Gear^.X:= Gear^.X + Gear^.dX;
 Gear^.Y:= Gear^.Y + Gear^.dY;
 if (not Gear^.dY.isNegative) and (not TestCollisionYKick(Gear, 1))
 and TestCollisionYwithXYShift(Gear, 0, 1, 1) then
 begin
 CheckHHDamage(Gear);
 Gear^.dY:= _0;
 Gear^.Y:= Gear^.Y + _1
 if (CurAmmoGear = nil) then
 if (((HHGear^.Message and gmAttack) <> 0)
 or ((HHGear^.State and gstAttacking) <> 0)) then
 Attack(HHGear) // should be before others to avoid desync with '/put' msg and changing weapon msgs
 else
 else
 with Hedgehog^ do
 if ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0)
 and ((HHGear^.Message and gmLJump) <> 0)
 and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
 begin
 Gear^.Hedgehog^.Effects[hePoisoned] := 0;
 if Gear^.Hedgehog^.Effects[heResurrectable] <> 0 then
 begin
 ResurrectHedgehog(Gear);
 end
 else
 begin
 Gear^.State:= (Gear^.State or gstHHDeath) and (not gstAnimation);
 Gear^.doStep:= @doStepHedgehogDead;
 // Death message
 AddCaption(Format(GetEventString(eidDied), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage);
 end;
 procedure CheckIce(Gear: PGear); inline;
 (*
 var x,y,tx,ty: LongInt;
 tdX, tdY, slope: hwFloat;
 land: Word; *)
 var slope: hwFloat;
 begin
 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0)
 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0)
 and ((Gear^.Hedgehog = nil) or ((Gear^.Hedgehog^.Effects[heFrozen] = 0) or (Gear^.Hedgehog^.Effects[heFrozen] > 255)))
 and (not Gear^.dY.isNegative) and (TurnTimeLeft > 0) and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then
 DeleteGear(Gear);
 exit
 end;
 if GameTicks mod 100 = 0 then CheckIce(Gear);
 (*
 if Gear^.Hedgehog^.Effects[heFrozen] > 0 then
 begin
 if (Gear^.Hedgehog^.Effects[heFrozen] > 256) and (CurrentHedgehog^.Team^.Clan <> Gear^.Hedgehog^.Team^.Clan) then
 dec(Gear^.Hedgehog^.Effects[heFrozen])
 else if GameTicks mod 10 = 0 then
 dec(Gear^.Hedgehog^.Effects[heFrozen])
 end;
 *)
 if (GameTicks mod 10 = 0) and (Gear^.Hedgehog^.Effects[heFrozen] > 0) and (Gear^.Hedgehog^.Effects[heFrozen] < 256) then
 dec(Gear^.Hedgehog^.Effects[heFrozen]);
 if (Gear^.State and gstHHDriven) = 0 then
 doStepHedgehogFree(Gear)
 else
 begin

changeset 8795	b5b79a8f9354
parent 8774	39754516eee6
child 8818	8f317ba10675