hedgewars/uGearsList.pas
changeset 7389 15c3fb4882df
parent 7366 e5a0856708dc
child 7393 3f203c62353b
equal deleted inserted replaced
7388:92535bc7e928 7389:15c3fb4882df
   458                 gear^.Timer:= 0;
   458                 gear^.Timer:= 0;
   459                 gear^.Tag:= TotalRounds + 3;
   459                 gear^.Tag:= TotalRounds + 3;
   460                 gear^.Pos:= 1;
   460                 gear^.Pos:= 1;
   461                 end;
   461                 end;
   462       gtIceGun: gear^.Health:= 1000;
   462       gtIceGun: gear^.Health:= 1000;
       
   463 gtGenericFaller:begin
       
   464                 gear^.AdvBounce:= 1;
       
   465                 gear^.Radius:= 1;
       
   466                 gear^.Elasticity:= _0_9;
       
   467                 gear^.Friction:= _0_995;
       
   468                 gear^.Density:= _1;
       
   469                 end;
   463     end;
   470     end;
   464 
   471 
   465 InsertGearToList(gear);
   472 InsertGearToList(gear);
   466 AddGear:= gear;
   473 AddGear:= gear;
   467 
   474 
   555                 FreeTexture(Team^.AIKillsTex);
   562                 FreeTexture(Team^.AIKillsTex);
   556                 Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16);
   563                 Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16);
   557                 end
   564                 end
   558         end;
   565         end;
   559 with Gear^ do
   566 with Gear^ do
       
   567     begin
   560     AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
   568     AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind));
   561 
   569     AddRandomness(X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac)
       
   570     end;
   562 if CurAmmoGear = Gear then
   571 if CurAmmoGear = Gear then
   563     CurAmmoGear:= nil;
   572     CurAmmoGear:= nil;
   564 if FollowGear = Gear then
   573 if FollowGear = Gear then
   565     FollowGear:= nil;
   574     FollowGear:= nil;
   566 if lastGearByUID = Gear then
   575 if lastGearByUID = Gear then