hedgewars/uGears.pas
changeset 3080 b7fa8ad60e3b
parent 3072 b18038b3a0f4
child 3083 8da8f2515221
equal deleted inserted replaced
3079:8deb4e8f5172 3080:b7fa8ad60e3b
   136             @doStepBomb,
   136             @doStepBomb,
   137             @doStepHedgehog,
   137             @doStepHedgehog,
   138             @doStepGrenade,
   138             @doStepGrenade,
   139             @doStepHealthTag,
   139             @doStepHealthTag,
   140             @doStepGrave,
   140             @doStepGrave,
   141             @doStepUFO,
   141             @doStepBee,
   142             @doStepShotgunShot,
   142             @doStepShotgunShot,
   143             @doStepPickHammer,
   143             @doStepPickHammer,
   144             @doStepRope,
   144             @doStepRope,
   145             @doStepSmokeTrace,
   145             @doStepSmokeTrace,
   146             @doStepExplosion,
   146             @doStepExplosion,
   288                 end;
   288                 end;
   289        gtGrave: begin
   289        gtGrave: begin
   290                 gear^.Radius:= 10;
   290                 gear^.Radius:= 10;
   291                 gear^.Elasticity:= _0_6;
   291                 gear^.Elasticity:= _0_6;
   292                 end;
   292                 end;
   293          gtUFO: begin
   293          gtBee: begin
   294                 gear^.Radius:= 5;
   294                 gear^.Radius:= 5;
   295                 gear^.Timer:= 500;
   295                 gear^.Timer:= 500;
   296                 gear^.RenderTimer:= true;
   296                 gear^.RenderTimer:= true;
   297                 gear^.Elasticity:= _0_9;
   297                 gear^.Elasticity:= _0_9;
   298                 gear^.Tag:= getRandom(32);
   298                 gear^.Tag:= getRandom(32);
  1600 
  1600 
  1601        gtHealthTag: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
  1601        gtHealthTag: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
  1602 
  1602 
  1603            gtGrave: DrawTextureF(PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex, 1, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks shr 7) and 7, 1, 32, 32);
  1603            gtGrave: DrawTextureF(PHedgehog(Gear^.Hedgehog)^.Team^.GraveTex, 1, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks shr 7) and 7, 1, 32, 32);
  1604 
  1604 
  1605              gtUFO: DrawRotatedF(sprUFO, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tag, 0, DxDy2Angle(Gear^.dX, Gear^.dY) - GameTicks div 2);
  1605              gtBee: DrawRotatedF(sprBee, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (GameTicks shr 5) mod 2, 0, DxDy2Angle(Gear^.dY, Gear^.dX));
  1606 
  1606 
  1607       gtPickHammer: DrawSprite(sprPHammer, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 50 + LongInt(((GameTicks shr 5) and 1) * 2) + WorldDy, 0);
  1607       gtPickHammer: DrawSprite(sprPHammer, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 50 + LongInt(((GameTicks shr 5) and 1) * 2) + WorldDy, 0);
  1608             gtRope: DrawRope(Gear);
  1608             gtRope: DrawRope(Gear);
  1609       gtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
  1609       gtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
  1610        gtExplosion: DrawSprite(sprExplosion50, hwRound(Gear^.X) - 32 + WorldDx, hwRound(Gear^.Y) - 32 + WorldDy, Gear^.State);
  1610        gtExplosion: DrawSprite(sprExplosion50, hwRound(Gear^.X) - 32 + WorldDx, hwRound(Gear^.Y) - 32 + WorldDy, Gear^.State);