Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uGears.pas
changeset 3039 057486a3a6c0
parent 3038 4e48c276a468
child 3042 872e5b3de293
equal deleted inserted replaced
3038:4e48c276a468 3039:057486a3a6c0 
   291                 end;
 
   291                 end;
 
   292          gtUFO: begin
 
   292          gtUFO: begin
 
   293                 gear^.Radius:= 5;
 
   293                 gear^.Radius:= 5;
 
   294                 gear^.Timer:= 500;
 
   294                 gear^.Timer:= 500;
 
   295                 gear^.RenderTimer:= true;
 
   295                 gear^.RenderTimer:= true;
 
   296                 gear^.Elasticity:= _0_9
 
   296                 gear^.Elasticity:= _0_9;
 
       
   297                 gear^.Tag:= getRandom(32);
 
   297                 end;
 
   298                 end;
 
   298  gtShotgunShot: begin
 
   299  gtShotgunShot: begin
 
   299                 gear^.Timer:= 900;
 
   300                 gear^.Timer:= 900;
 
   300                 gear^.Radius:= 2
 
   301                 gear^.Radius:= 2
 
   301                 end;
 
   302                 end;
 
  1590 
  1591 
  1591        gtHealthTag: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 
  1592        gtHealthTag: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 
  1592 
  1593 
  1593            gtGrave: DrawTextureF(PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex, 1, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks shr 7) and 7, 1, 32, 32);
 
  1594            gtGrave: DrawTextureF(PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex, 1, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks shr 7) and 7, 1, 32, 32);
 
  1594 
  1595 
  1595              gtUFO: DrawSprite(sprUFO, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, (GameTicks shr 7) mod 4);
 
  1596              gtUFO: DrawRotatedF(sprUFO, hwRound(Gear^.X) -16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, Gear^.Tag, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
 
  1596 
  1597 
  1597       gtPickHammer: DrawSprite(sprPHammer, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 50 + LongInt(((GameTicks shr 5) and 1) * 2) + WorldDy, 0);
 
  1598       gtPickHammer: DrawSprite(sprPHammer, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 50 + LongInt(((GameTicks shr 5) and 1) * 2) + WorldDy, 0);
 
  1598             gtRope: DrawRope(Gear);
 
  1599             gtRope: DrawRope(Gear);
 
  1599       gtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
 
  1600       gtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
 
  1600        gtExplosion: DrawSprite(sprExplosion50, hwRound(Gear^.X) - 32 + WorldDx, hwRound(Gear^.Y) - 32 + WorldDy, Gear^.State);
 
  1601        gtExplosion: DrawSprite(sprExplosion50, hwRound(Gear^.X) - 32 + WorldDx, hwRound(Gear^.Y) - 32 + WorldDy, Gear^.State);
hedgewars