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/uVisualGears.pas
changeset 4279 b697a26ed538
parent 4159 64e677349124
child 4327 224efdd648e1
equal deleted inserted replaced
4277:d699d23a6e1d 4279:b697a26ed538 
   115             @doStepSmokeTrace,
 
   115             @doStepSmokeTrace,
 
   116             @doStepSmokeTrace,
 
   116             @doStepSmokeTrace,
 
   117             @doStepExplosion,
 
   117             @doStepExplosion,
 
   118             @doStepBigExplosion,
 
   118             @doStepBigExplosion,
 
   119             @doStepChunk,
 
   119             @doStepChunk,
 
   120             @doStepNote
 
   120             @doStepNote,
 
       
   121             @doStepLineTrail
 
   121         );
 
   122         );
 
   122 
   123 
   123 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0): PVisualGear;
 
   124 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0): PVisualGear;
 
   124 var gear: PVisualGear;
 
   125 var gear: PVisualGear;
 
   125     t: Longword;
 
   126     t: Longword;
 
   404         begin
 
   405         begin
 
   405         Tint(Gear^.Tint);
 
   406         Tint(Gear^.Tint);
 
   406         case Gear^.Kind of
 
   407         case Gear^.Kind of
 
   407             vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
 
   408             vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
 
   408             vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
 
   409             vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
 
       
   410             vgtLineTrail: DrawLine(Gear^.X, Gear^.Y, Gear^.dX, Gear^.dY, 1.0, $FF, min(Gear^.Timer, $C0), min(Gear^.Timer, $80), min(Gear^.Timer, $FF));
 
   409         end;
 
   411         end;
 
   410             if (cReducedQuality and rqFancyBoom) = 0 then
 
   412             if (cReducedQuality and rqFancyBoom) = 0 then
 
   411                 case Gear^.Kind of
 
   413                 case Gear^.Kind of
 
   412                     vgtSmoke: DrawSprite(sprSmoke, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   414                     vgtSmoke: DrawSprite(sprSmoke, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   413                     vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   415                     vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
hedgewars