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 2047 805f7b62cff6
parent 2045 b0588498bc3a
child 2051 949fe7df09b6
equal deleted inserted replaced
2046:57fb5673ff17 2047:805f7b62cff6 
   301 		begin
 
   301 		begin
 
   302 		AddVisualGear:= nil;
 
   302 		AddVisualGear:= nil;
 
   303 		exit
 
   303 		exit
 
   304 		end;
 
   304 		end;
 
   305 
   305 
   306 if cReducedQuality and (Kind <> vgtTeamHealthSorter) and (Kind <> vgtSpeechBubble) then
 
   306 if cReducedQuality and 
       
   307    (Kind <> vgtTeamHealthSorter) and 
       
   308    (Kind <> vgtSmallDamageTag) and 
       
   309    (Kind <> vgtSpeechBubble) then
 
   307 	begin
 
   310 	begin
 
   308 	AddVisualGear:= nil;
 
   311 	AddVisualGear:= nil;
 
   309 	exit
 
   312 	exit
 
   310 	end;
 
   313 	end;
 
   311 
   314 
   414 			end;
 
   417 			end;
 
   415 		Gear:= Gear^.NextGear
 
   418 		Gear:= Gear^.NextGear
 
   416 		end;
 
   419 		end;
 
   417 	1: while Gear <> nil do
 
   420 	1: while Gear <> nil do
 
   418 		begin
 
   421 		begin
 
   419 		case Gear^.Kind of
 
   422         if not cReducedQuality then
 
   420 			vgtExplPart: DrawSprite(sprExplPart, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 7 - Gear^.Frame);
 
   423             case Gear^.Kind of
 
   421 			vgtExplPart2: DrawSprite(sprExplPart2, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 7 - Gear^.Frame);
 
   424                 vgtExplPart: DrawSprite(sprExplPart, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 7 - Gear^.Frame);
 
   422 			vgtFire: DrawSprite(sprFlame, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (RealTicks div 64 + Gear^.Frame) mod 8);
 
   425                 vgtExplPart2: DrawSprite(sprExplPart2, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 7 - Gear^.Frame);
 
   423 			vgtSmallDamageTag: DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 
   426                 vgtFire: DrawSprite(sprFlame, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, (RealTicks div 64 + Gear^.Frame) mod 8);
 
       
   427             end;
 
       
   428         case Gear^.Kind of
 
       
   429             vgtSmallDamageTag: DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 
   424             vgtSpeechBubble: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 
   430             vgtSpeechBubble: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 
   425 			end;
 
   431         end;
 
   426 		Gear:= Gear^.NextGear
 
   432 		Gear:= Gear^.NextGear
 
   427 		end
 
   433 		end
 
   428 	end
 
   434 	end
 
   429 end;
 
   435 end;
 
   430 
   436
hedgewars