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 8656 a8282143a8df
parent 8628 627e76986a08
child 8681 d0fc1dca739c
equal deleted inserted replaced
8655:9fa380a18a65 8656:a8282143a8df 
   240 
   240 
   241     defaultPos:= true;
 
   241     defaultPos:= true;
 
   242     HatVisible:= false;
 
   242     HatVisible:= false;
 
   243 
   243 
   244     if HH^.Effects[heFrozen] > 0 then
 
   244     if HH^.Effects[heFrozen] > 0 then
 
   245         if HH^.Effects[heFrozen] < 256 then
 
   245         if HH^.Effects[heFrozen] < 150000 then
 
   246             begin
 
   246             begin
 
   247             DrawHedgehog(sx, sy,
 
   247             DrawHedgehog(sx, sy,
 
   248                     sign,
 
   248                     sign,
 
   249                     0,
 
   249                     0,
 
   250                     0,
 
   250                     0,
 
   251                     0);
 
   251                     0);
 
   252             defaultPos:= false;
 
   252             defaultPos:= false;
 
   253             HatVisible:= true
 
   253             if HH^.Effects[heFrozen] < 256 then
 
       
   254                  HatVisible:= true
 
       
   255             else HatVisible:= false
 
   254             end
 
   256             end
 
   255         else 
   257         else 
   256             begin
 
   258             begin
 
   257             DrawHedgehog(sx, sy,
 
   259             DrawHedgehog(sx, sy,
 
   258                     sign,
 
   260                     sign,
 
   259                     2,
 
   261                     2,
 
   260                     4,
 
   262                     4,
 
   261                     0);
 
   263                     0);
 
   262             defaultPos:= false;
 
   264             defaultPos:= false;
 
   263             HatVisible:= false;
 
   265             HatVisible:= false
 
   264             exit
 
       
   265             end;
 
   266             end;
 
   266 
   267 
   267 
   268 
   268     if HH^.Effects[hePoisoned] <> 0 then
 
   269     if HH^.Effects[hePoisoned] <> 0 then
 
   269         begin
 
   270         begin
 
   942         begin
 
   943         begin
 
   943         Tint($FF, $FF, $FF, max($40, round($FF * abs(1 - ((RealTicks div 2 + Gear^.uid * 491) mod 1500) / 750))));
 
   944         Tint($FF, $FF, $FF, max($40, round($FF * abs(1 - ((RealTicks div 2 + Gear^.uid * 491) mod 1500) / 750))));
 
   944         DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
 
   945         DrawSprite(sprInvulnerable, sx - 24, sy - 24, 0);
 
   945         end;
 
   946         end;
 
   946 
   947 
   947     if HH^.Effects[heFrozen] = HH^.Effects[heFrozen] and $FF then
 
   948     if HH^.Effects[heFrozen] < 150000 then
 
   948         begin
 
   949         begin
 
   949        /// Tint($00, $FF, $40, $40);  (HH^.Effects[heFrozen] and $FF)
 
   950         if HH^.Effects[heFrozen] < 150000 then
 
   950         iceOffset:= trunc(HH^.Effects[heFrozen] / 256 * 64);
 
   951             Tint($FF, $FF, $FF, min(255,127+HH^.Effects[heFrozen] div 1200));
 
   951         Tint($FF, $FF, $FF, $FF);        
   952 
       
   953         iceOffset:= trunc(min(256,HH^.Effects[heFrozen]) / 256 * 64);
 
   952         r.x := 128;
 
   954         r.x := 128;
 
   953         r.y := 128 - iceOffset;
 
   955         r.y := 128 - iceOffset;
 
   954         r.w := 64;
 
   956         r.w := 64;
 
   955         r.h := iceOffset;
 
   957         r.h := iceOffset;
 
   956         //DrawTextureFromRect(sx-32, sy-iceoffset+32, @r, SpritesData[sprFrozenHog].texture);
 
   958         //DrawTextureFromRect(sx-32, sy-iceoffset+32, @r, SpritesData[sprFrozenHog].texture);
 
   957         DrawTextureFromRectDir(sx-16+sign*2, sy+48-iceoffset, r.w, r.h, @r, HHTexture, sign);
 
   959         DrawTextureFromRectDir(sx-16+sign*2, sy+48-iceoffset, r.w, r.h, @r, HHTexture, sign);
 
   958 
   960 
   959         Tint($FF, $FF, $FF, $FF);
 
   961         if HH^.Effects[heFrozen] < 150000 then
 
       
   962             Tint($FF, $FF, $FF, $FF);
 
   960         end;
 
   963         end;
 
   961 
   964 
   962 
   965 
   963     if cVampiric and
 
   966     if cVampiric and
 
   964     (CurrentHedgehog^.Gear <> nil) and
 
   967     (CurrentHedgehog^.Gear <> nil) and
hedgewars