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 3447 2f1c2b7215e6
parent 3443 14d12df0d363
child 3475 95345f98da19
equal deleted inserted replaced
3446:1be74e601960 3447:2f1c2b7215e6 
   130         AddVisualGear:= nil;
 
   130         AddVisualGear:= nil;
 
   131         exit
 
   131         exit
 
   132         end;
 
   132         end;
 
   133 
   133 
   134 if cReducedQuality and
 
   134 if cReducedQuality and
 
   135    (Kind <> vgtTeamHealthSorter) and
 
   135    not (Kind in
 
   136    (Kind <> vgtSmallDamageTag) and
 
   136    [vgtTeamHealthSorter,
 
   137    (Kind <> vgtSpeechBubble) then
 
   137     vgtSmallDamageTag,
 
       
   138     vgtSpeechBubble,
 
       
   139     vgtHealthTag,
 
       
   140     vgtExplosion,
 
       
   141     vgtSmokeTrace,
 
       
   142     vgtEvilTrace]) then
 
   138     begin
 
   143     begin
 
   139     AddVisualGear:= nil;
 
   144     AddVisualGear:= nil;
 
   140     exit
 
   145     exit
 
   141     end;
 
   146     end;
 
   142 
   147 
   379             vgtFlake: if vobVelocity = 0 then
 
   384             vgtFlake: if vobVelocity = 0 then
 
   380                         DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
 
   385                         DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
 
   381                     else
 
   386                     else
 
   382                         DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
 
   387                         DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
 
   383             vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);
 
   388             vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);
 
   384             
   389             end;
 
       
   390         Gear:= Gear^.NextGear
 
       
   391         end;
 
       
   392     1: while Gear <> nil do
 
       
   393         begin
 
       
   394         case Gear^.Kind of
 
   385             vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
 
   395             vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
 
   386             vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
 
   396             vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.State);
 
   387             end;
 
   397         end;
 
   388         Gear:= Gear^.NextGear
 
       
   389         end;
 
       
   390     1: while Gear <> nil do
 
       
   391         begin
 
       
   392             if not cReducedQuality then
 
   398             if not cReducedQuality then
 
   393                 case Gear^.Kind of
 
   399                 case Gear^.Kind of
 
   394                     vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   400                     vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   395                     vgtSmokeWhite: DrawSprite(sprSmokeWhite, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   401                     vgtSmokeWhite: DrawSprite(sprSmokeWhite, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   396                     vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
 
   402                     vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
hedgewars