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/uGearsRender.pas
changeset 4810 76315fdfb7a5
parent 4808 7c3e5b52344a
child 4881 35e6269227b6
equal deleted inserted replaced
4809:9c7d5f802618 4810:76315fdfb7a5 
   184     sign:= hwSign(Gear^.dX);
 
   184     sign:= hwSign(Gear^.dX);
 
   185 
   185 
   186     if (Gear^.State and gstHHDeath) <> 0 then
 
   186     if (Gear^.State and gstHHDeath) <> 0 then
 
   187         begin
 
   187         begin
 
   188         DrawSprite(sprHHDeath, ox - 16, oy - 26, Gear^.Pos);
 
   188         DrawSprite(sprHHDeath, ox - 16, oy - 26, Gear^.Pos);
 
   189         Tint(HH^.Team^.Clan^.Color);
 
   189         Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
 
   190         DrawSprite(sprHHDeath, ox - 16, oy - 26, Gear^.Pos + 8);
 
   190         DrawSprite(sprHHDeath, ox - 16, oy - 26, Gear^.Pos + 8);
 
   191         Tint($FF, $FF, $FF, $FF);
 
   191         Tint($FF, $FF, $FF, $FF);
 
   192         exit
 
   192         exit
 
   193         end
 
   193         end
 
   194     else if (Gear^.State and gstHHGone) <> 0 then
 
   194     else if (Gear^.State and gstHHGone) <> 0 then
 
   351                             begin
 
   351                             begin
 
   352                             DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, ox, oy, 0, i, 32, 32,
 
   352                             DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, ox, oy, 0, i, 32, 32,
 
   353                                 i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
 
   353                                 i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
 
   354                             if HatTex^.w > 64 then
 
   354                             if HatTex^.w > 64 then
 
   355                                 begin
 
   355                                 begin
 
   356                                 Tint(HH^.Team^.Clan^.Color);
 
   356                                 Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
 
   357                                 DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, ox, oy, 32, i, 32, 32,
 
   357                                 DrawRotatedTextureF(HatTex, 1.0, -1.0, -6.0, ox, oy, 32, i, 32, 32,
 
   358                                     i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
 
   358                                     i*DxDy2Angle(CurAmmoGear^.dY, CurAmmoGear^.dX) + hAngle);
 
   359                                 Tint($FF, $FF, $FF, $FF)
 
   359                                 Tint($FF, $FF, $FF, $FF)
 
   360                                 end
 
   360                                 end
 
   361                             end
 
   361                             end
 
   381                                 sign,
 
   381                                 sign,
 
   382                                 32,
 
   382                                 32,
 
   383                                 32);
 
   383                                 32);
 
   384                             if HatTex^.w > 64 then
 
   384                             if HatTex^.w > 64 then
 
   385                                 begin
 
   385                                 begin
 
   386                                 Tint(HH^.Team^.Clan^.Color);
 
   386                                 Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
 
   387                                 DrawTextureF(HatTex,
 
   387                                 DrawTextureF(HatTex,
 
   388                                     1,
 
   388                                     1,
 
   389                                     sx,
 
   389                                     sx,
 
   390                                     sy - 5,
 
   390                                     sy - 5,
 
   391                                     32,
 
   391                                     32,
 
   703                     sign,
 
   703                     sign,
 
   704                     32,
 
   704                     32,
 
   705                     32);
 
   705                     32);
 
   706                 if HatTex^.w > 64 then
 
   706                 if HatTex^.w > 64 then
 
   707                     begin
 
   707                     begin
 
   708                     Tint(HH^.Team^.Clan^.Color);
 
   708                     Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
 
   709                     DrawTextureF(HatTex,
 
   709                     DrawTextureF(HatTex,
 
   710                         HatVisibility,
 
   710                         HatVisibility,
 
   711                         sx,
 
   711                         sx,
 
   712                         sy - 5,
 
   712                         sy - 5,
 
   713                         (RealTicks div 128 + Gear^.Pos) mod 19 + 32,
 
   713                         (RealTicks div 128 + Gear^.Pos) mod 19 + 32,
 
   727                     sign*m,
 
   727                     sign*m,
 
   728                     32,
 
   728                     32,
 
   729                     32);
 
   729                     32);
 
   730                 if HatTex^.w > 64 then
 
   730                 if HatTex^.w > 64 then
 
   731                     begin
 
   731                     begin
 
   732                     Tint(HH^.Team^.Clan^.Color);
 
   732                     Tint(HH^.Team^.Clan^.Color shl 8 or $FF);
 
   733                     DrawTextureF(HatTex,
 
   733                     DrawTextureF(HatTex,
 
   734                         HatVisibility,
 
   734                         HatVisibility,
 
   735                         sx,
 
   735                         sx,
 
   736                         sy - 5,
 
   736                         sy - 5,
 
   737                         32,
 
   737                         32,
hedgewars