hedgewars/uGears.pas
changeset 8161 0b8beacff8a5
parent 8127 cffa2c8275e0
child 8204 9a6030d96273
equal deleted inserted replaced
8159:e226be871b6e 8161:0b8beacff8a5
   675             gtMine,
   675             gtMine,
   676             gtSMine,
   676             gtSMine,
   677             gtKnife,
   677             gtKnife,
   678             gtCase,
   678             gtCase,
   679             gtTarget,
   679             gtTarget,
   680             gtExplosives,
   680             gtExplosives: begin//,
   681             gtStructure: begin
   681 //            gtStructure: begin
   682 //addFileLog('ShotgunShot radius: ' + inttostr(Gear^.Radius) + ', t^.Radius = ' + inttostr(t^.Radius) + ', distance = ' + inttostr(dist) + ', dmg = ' + inttostr(dmg));
   682 //addFileLog('ShotgunShot radius: ' + inttostr(Gear^.Radius) + ', t^.Radius = ' + inttostr(t^.Radius) + ', distance = ' + inttostr(dist) + ', dmg = ' + inttostr(dmg));
   683                     dmg:= 0;
   683                     dmg:= 0;
   684                     r:= Gear^.Radius + t^.Radius;
   684                     r:= Gear^.Radius + t^.Radius;
   685                     dx:= Gear^.X-t^.X;
   685                     dx:= Gear^.X-t^.X;
   686                     dx.isNegative:= false;
   686                     dx.isNegative:= false;
   775             gtMine,
   775             gtMine,
   776             gtSMine,
   776             gtSMine,
   777             gtKnife,
   777             gtKnife,
   778             gtTarget,
   778             gtTarget,
   779             gtCase,
   779             gtCase,
   780             gtExplosives,
   780             gtExplosives: //,
   781             gtStructure:
   781             //gtStructure:
   782             begin
   782             begin
   783             if (Ammo^.Kind = gtDrill) then
   783             if (Ammo^.Kind = gtDrill) then
   784                 begin
   784                 begin
   785                 Ammo^.Timer:= 0;
   785                 Ammo^.Timer:= 0;
   786                 exit;
   786                 exit;
  1361             @doStepHammerHit,
  1361             @doStepHammerHit,
  1362             @doStepResurrector,
  1362             @doStepResurrector,
  1363             @doStepNapalmBomb,
  1363             @doStepNapalmBomb,
  1364             @doStepSnowball,
  1364             @doStepSnowball,
  1365             @doStepSnowflake,
  1365             @doStepSnowflake,
  1366             @doStepStructure,
  1366             //@doStepStructure,
  1367             @doStepLandGun,
  1367             @doStepLandGun,
  1368             @doStepTardis,
  1368             @doStepTardis,
  1369             @doStepIceGun,
  1369             @doStepIceGun,
  1370             @doStepAddAmmo,
  1370             @doStepAddAmmo,
  1371             @doStepGenericFaller,
  1371             @doStepGenericFaller,