sheepy-clone: comparison hedgewars/uVisualGears.pas

equal deleted inserted replaced

-:803b277e4894
+:3f21a9dc93d0
 unit uVisualGears;
 interface
 uses SDLh, uConsts, uFloat,
 {$IFDEF GLES11}
-	gles11;
+gles11;
 {$ELSE}
-	GL;
+GL;
 {$ENDIF}
 type PVisualGear = ^TVisualGear;
-	TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
+TVGearStepProcedure = procedure (Gear: PVisualGear; Steps: Longword);
-	TVisualGear = record
+TVisualGear = record
-		NextGear, PrevGear: PVisualGear;
+NextGear, PrevGear: PVisualGear;
-		Frame,
+Frame,
-		FrameTicks: Longword;
+FrameTicks: Longword;
-		X : hwFloat;
+X : hwFloat;
-		Y : hwFloat;
+Y : hwFloat;
-		dX: hwFloat;
+dX: hwFloat;
-		dY: hwFloat;
+dY: hwFloat;
-		mdY: QWord;
+mdY: QWord;
-		Timer: Longword;
+Timer: Longword;
-		Angle, dAngle: real;
+Angle, dAngle: real;
-		Kind: TVisualGearType;
+Kind: TVisualGearType;
-		doStep: TVGearStepProcedure;
+doStep: TVGearStepProcedure;
-		Tex: PTexture;
+Tex: PTexture;
 Hedgehog: pointer;
 Text: shortstring
-		end;
+end;
 procedure init_uVisualGears;
 procedure free_uVisualGears;
 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;
 uses uWorld, uMisc, uStore, uTeams, uSound;
 const cExplFrameTicks = 110;
 procedure AddDamageTag(X, Y, Damage, Color: LongWord);
 var s: shortstring;
-	Gear: PVisualGear;
+Gear: PVisualGear;
 begin
 if cAltDamage then
-	begin
+begin
-	Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
+Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
-	if Gear <> nil then
+if Gear <> nil then
-		with Gear^ do
+with Gear^ do
-			begin
+begin
-			str(Damage, s);
+str(Damage, s);
-			Tex:= RenderStringTex(s, Color, fntSmall);
+Tex:= RenderStringTex(s, Color, fntSmall);
-			end
+end
-	end
+end
 end;
 // ==================================================================
 procedure doStepFlake(Gear: PVisualGear; Steps: Longword);
 begin
 with Gear^ do
-	begin
+begin
-	inc(FrameTicks, Steps);
+inc(FrameTicks, Steps);
-	if FrameTicks > vobFrameTicks then
+if FrameTicks > vobFrameTicks then
-		begin
+begin
-		dec(FrameTicks, vobFrameTicks);
+dec(FrameTicks, vobFrameTicks);
-		inc(Frame);
+inc(Frame);
-		if Frame = vobFramesCount then Frame:= 0
+if Frame = vobFramesCount then Frame:= 0
-		end
+end
-	end;
+end;
 Gear^.X:= Gear^.X + (cWindSpeed * 200 + Gear^.dX) * Steps;
 Gear^.Y:= Gear^.Y + (Gear^.dY + cGravity * vobFallSpeed) * Steps;
 Gear^.Angle:= Gear^.Angle + Gear^.dAngle * Steps;
 var i: Longword;
 begin
 Gear^.X:= Gear^.X + (cWindSpeed * 200 + Gear^.dX) * Steps;
 for i:= 0 to Steps - 1 do
-	begin
+begin
-	if hwRound(Gear^.Y) > LAND_HEIGHT-1184 then // TODO - configure in theme
+if hwRound(Gear^.Y) > LAND_HEIGHT-1184 then // TODO - configure in theme
-		Gear^.dY:= Gear^.dY - _1div50000
+Gear^.dY:= Gear^.dY - _1div50000
-	else
+else
-		Gear^.dY:= Gear^.dY + _1div50000;
+Gear^.dY:= Gear^.dY + _1div50000;
-	Gear^.Y:= Gear^.Y + Gear^.dY
+Gear^.Y:= Gear^.Y + Gear^.dY
-	end;
+end;
 if hwRound(Gear^.X) < -cScreenWidth - 256 then Gear^.X:= int2hwFloat(cScreenWidth + LAND_WIDTH) else
 if hwRound(Gear^.X) > cScreenWidth + LAND_WIDTH then Gear^.X:= int2hwFloat(-cScreenWidth - 256)
 end;
 Gear^.Y:= Gear^.Y + Gear^.dY * Steps;
 //Gear^.dY:= Gear^.dY + cGravity;
 if Gear^.FrameTicks <= Steps then
-	if Gear^.Frame = 0 then DeleteVisualGear(Gear)
+if Gear^.Frame = 0 then DeleteVisualGear(Gear)
-	else
+else
-		begin
+begin
-		dec(Gear^.Frame);
+dec(Gear^.Frame);
-		Gear^.FrameTicks:= cExplFrameTicks
+Gear^.FrameTicks:= cExplFrameTicks
-		end
+end
-	else dec(Gear^.FrameTicks, Steps)
+else dec(Gear^.FrameTicks, Steps)
 end;
 procedure doStepFire(Gear: PVisualGear; Steps: Longword);
 begin
 Gear^.X:= Gear^.X + Gear^.dX * Steps;
 Gear^.dY:= Gear^.dY + cGravity * Steps;
 if Gear^.FrameTicks <= Steps then
 DeleteVisualGear(Gear)
 else
-	dec(Gear^.FrameTicks, Steps)
+dec(Gear^.FrameTicks, Steps)
 end;
 procedure doStepShell(Gear: PVisualGear; Steps: Longword);
 begin
 Gear^.X:= Gear^.X + Gear^.dX * Steps;
 Gear^.dY:= Gear^.dY + cGravity * Steps;
 Gear^.Angle:= round(Gear^.Angle + Steps) mod cMaxAngle;
 if Gear^.FrameTicks <= Steps then
-	DeleteVisualGear(Gear)
+DeleteVisualGear(Gear)
 else
-	dec(Gear^.FrameTicks, Steps)
+dec(Gear^.FrameTicks, Steps)
 end;
 procedure doStepSmallDamage(Gear: PVisualGear; Steps: Longword);
 begin
 Gear^.Y:= Gear^.Y - _0_02 * Steps;
 if Gear^.FrameTicks <= Steps then
-	DeleteVisualGear(Gear)
+DeleteVisualGear(Gear)
 else
-	dec(Gear^.FrameTicks, Steps)
+dec(Gear^.FrameTicks, Steps)
 end;
 procedure doStepBubble(Gear: PVisualGear; Steps: Longword);
 begin
-	Gear^.X:= Gear^.X + (cWindSpeed * 100 + Gear^.dX) * Steps;
+Gear^.X:= Gear^.X + (cWindSpeed * 100 + Gear^.dX) * Steps;
-	Gear^.Y:= Gear^.Y - cDrownSpeed * Steps;
+Gear^.Y:= Gear^.Y - cDrownSpeed * Steps;
-	if (Gear^.FrameTicks <= Steps) or (hwRound(Gear^.Y) < cWaterLine) then
+if (Gear^.FrameTicks <= Steps) or (hwRound(Gear^.Y) < cWaterLine) then
-		DeleteVisualGear(Gear)
+DeleteVisualGear(Gear)
-	else
+else
-		dec(Gear^.FrameTicks, Steps)
+dec(Gear^.FrameTicks, Steps)
 end;
 procedure doStepHealth(Gear: PVisualGear; Steps: Longword);
 begin
 Gear^.X:= Gear^.X + Gear^.dX * Steps;
 Gear^.Y:= Gear^.Y - Gear^.dY * Steps;
 if Gear^.FrameTicks <= Steps then
-	DeleteVisualGear(Gear)
+DeleteVisualGear(Gear)
 else
-	dec(Gear^.FrameTicks, Steps);
+dec(Gear^.FrameTicks, Steps);
 end;
 procedure doStepSteam(Gear: PVisualGear; Steps: Longword);
 begin
-	Gear^.X:= Gear^.X + (cWindSpeed * 100 + Gear^.dX) * Steps;
+Gear^.X:= Gear^.X + (cWindSpeed * 100 + Gear^.dX) * Steps;
-	Gear^.Y:= Gear^.Y - cDrownSpeed * Steps;
+Gear^.Y:= Gear^.Y - cDrownSpeed * Steps;
-	if Gear^.FrameTicks <= Steps then
+if Gear^.FrameTicks <= Steps then
-		if Gear^.Frame = 0 then DeleteVisualGear(Gear)
+if Gear^.Frame = 0 then DeleteVisualGear(Gear)
-		else
+else
-			begin
+begin
-			if Random(2) = 0 then dec(Gear^.Frame);
+if Random(2) = 0 then dec(Gear^.Frame);
-			Gear^.FrameTicks:= cExplFrameTicks
+Gear^.FrameTicks:= cExplFrameTicks
-			end
+end
-		else dec(Gear^.FrameTicks, Steps)
+else dec(Gear^.FrameTicks, Steps)
 end;
 procedure doStepSmoke(Gear: PVisualGear; Steps: Longword);
 begin
-	Gear^.X:= Gear^.X + (cWindSpeed + Gear^.dX) * Steps;
+Gear^.X:= Gear^.X + (cWindSpeed + Gear^.dX) * Steps;
-	Gear^.Y:= Gear^.Y - (cDrownSpeed + Gear^.dY) * Steps;
+Gear^.Y:= Gear^.Y - (cDrownSpeed + Gear^.dY) * Steps;
-	Gear^.dX := Gear^.dX + (cWindSpeed * _0_3 * Steps);
+Gear^.dX := Gear^.dX + (cWindSpeed * _0_3 * Steps);
-	//Gear^.dY := Gear^.dY - (cDrownSpeed * _0_995);
+//Gear^.dY := Gear^.dY - (cDrownSpeed * _0_995);
-	if Gear^.FrameTicks <= Steps then
+if Gear^.FrameTicks <= Steps then
-		if Gear^.Frame = 0 then DeleteVisualGear(Gear)
+if Gear^.Frame = 0 then DeleteVisualGear(Gear)
-		else
+else
-			begin
+begin
-			if Random(2) = 0 then dec(Gear^.Frame);
+if Random(2) = 0 then dec(Gear^.Frame);
-			Gear^.FrameTicks:= cExplFrameTicks
+Gear^.FrameTicks:= cExplFrameTicks
-			end
+end
-		else dec(Gear^.FrameTicks, Steps)
+else dec(Gear^.FrameTicks, Steps)
 end;
 procedure doStepDust(Gear: PVisualGear; Steps: Longword);
 begin
-	Gear^.X:= Gear^.X + (cWindSpeed + (cWindSpeed * _0_03 * Steps) + Gear^.dX) * Steps;
+Gear^.X:= Gear^.X + (cWindSpeed + (cWindSpeed * _0_03 * Steps) + Gear^.dX) * Steps;
-	Gear^.Y:= Gear^.Y - (Gear^.dY) * Steps;
+Gear^.Y:= Gear^.Y - (Gear^.dY) * Steps;
-	Gear^.dX := Gear^.dX - (Gear^.dX * _0_005 * Steps);
+Gear^.dX := Gear^.dX - (Gear^.dX * _0_005 * Steps);
-	Gear^.dY := Gear^.dY - (cDrownSpeed * _0_001 * Steps);
+Gear^.dY := Gear^.dY - (cDrownSpeed * _0_001 * Steps);
-	if Gear^.FrameTicks <= Steps then
+if Gear^.FrameTicks <= Steps then
-		if Gear^.Frame = 0 then DeleteVisualGear(Gear)
+if Gear^.Frame = 0 then DeleteVisualGear(Gear)
-		else
+else
-			begin
+begin
-			dec(Gear^.Frame);
+dec(Gear^.Frame);
-			Gear^.FrameTicks:= cExplFrameTicks
+Gear^.FrameTicks:= cExplFrameTicks
-			end
+end
-		else dec(Gear^.FrameTicks, Steps)
+else dec(Gear^.FrameTicks, Steps)
 end;
 ////////////////////////////////////////////////////////////////////////////////
 const cSorterWorkTime = 640;
 var thexchar: array[0..cMaxTeams] of
-			record
+record
-			dy, ny, dw: LongInt;
+dy, ny, dw: LongInt;
-			team: PTeam;
+team: PTeam;
-			SortFactor: QWord;
+SortFactor: QWord;
-			end;
+end;
 currsorter: PVisualGear = nil;
 procedure doStepTeamHealthSorterWork(Gear: PVisualGear; Steps: Longword);
 var i, t: LongInt;
 begin
 for t:= 1 to Steps do
-	begin
+begin
-	dec(Gear^.Timer);
+dec(Gear^.Timer);
-	if (Gear^.Timer and 15) = 0 then
+if (Gear^.Timer and 15) = 0 then
-		for i:= 0 to Pred(TeamsCount) do
+for i:= 0 to Pred(TeamsCount) do
-			with thexchar[i] do
+with thexchar[i] do
-				begin
+begin
-				{$WARNINGS OFF}
+{$WARNINGS OFF}
-				team^.DrawHealthY:= ny + dy * Gear^.Timer div 640;
+team^.DrawHealthY:= ny + dy * Gear^.Timer div 640;
-				team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * Gear^.Timer div cSorterWorkTime;
+team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * Gear^.Timer div cSorterWorkTime;
-				{$WARNINGS ON}
+{$WARNINGS ON}
-				end;
+end;
-	if (Gear^.Timer = 0) or (currsorter <> Gear) then
+if (Gear^.Timer = 0) or (currsorter <> Gear) then
-		begin
+begin
-		if currsorter = Gear then currsorter:= nil;
+if currsorter = Gear then currsorter:= nil;
-		DeleteVisualGear(Gear);
+DeleteVisualGear(Gear);
-		exit
+exit
-		end
+end
-	end
+end
 end;
 procedure doStepTeamHealthSorter(Gear: PVisualGear; Steps: Longword);
 var i: Longword;
-	b: boolean;
+b: boolean;
-	t: LongInt;
+t: LongInt;
 begin
 for t:= 0 to Pred(TeamsCount) do
-	with thexchar[t] do
+with thexchar[t] do
-		begin
+begin
-		dy:= TeamsArray[t]^.DrawHealthY;
+dy:= TeamsArray[t]^.DrawHealthY;
-		dw:= TeamsArray[t]^.TeamHealthBarWidth - TeamsArray[t]^.NewTeamHealthBarWidth;
+dw:= TeamsArray[t]^.TeamHealthBarWidth - TeamsArray[t]^.NewTeamHealthBarWidth;
-		team:= TeamsArray[t];
+team:= TeamsArray[t];
-		SortFactor:= TeamsArray[t]^.Clan^.ClanHealth;
+SortFactor:= TeamsArray[t]^.Clan^.ClanHealth;
-		SortFactor:= (SortFactor shl  3) + TeamsArray[t]^.Clan^.ClanIndex;
+SortFactor:= (SortFactor shl  3) + TeamsArray[t]^.Clan^.ClanIndex;
-		SortFactor:= (SortFactor shl 30) + TeamsArray[t]^.TeamHealth;
+SortFactor:= (SortFactor shl 30) + TeamsArray[t]^.TeamHealth;
-		end;
+end;
 if TeamsCount > 1 then
-	repeat
+repeat
-	b:= true;
+b:= true;
-	for t:= 0 to TeamsCount - 2 do
+for t:= 0 to TeamsCount - 2 do
-		if (thexchar[t].SortFactor > thexchar[Succ(t)].SortFactor) then
+if (thexchar[t].SortFactor > thexchar[Succ(t)].SortFactor) then
-			begin
+begin
-			thexchar[cMaxTeams]:= thexchar[t];
+thexchar[cMaxTeams]:= thexchar[t];
-			thexchar[t]:= thexchar[Succ(t)];
+thexchar[t]:= thexchar[Succ(t)];
-			thexchar[Succ(t)]:= thexchar[cMaxTeams];
+thexchar[Succ(t)]:= thexchar[cMaxTeams];
-			b:= false
+b:= false
-			end
+end
-	until b;
+until b;
 t:= - 4;
 for i:= 0 to Pred(TeamsCount) do
-	with thexchar[i] do
+with thexchar[i] do
-		begin
+begin
-		dec(t, team^.HealthTex^.h + 2);
+dec(t, team^.HealthTex^.h + 2);
-		ny:= t;
+ny:= t;
-		dy:= dy - ny
+dy:= dy - ny
-		end;
+end;
 Gear^.Timer:= cSorterWorkTime;
 Gear^.doStep:= @doStepTeamHealthSorterWork;
 currsorter:= Gear;
 //doStepTeamHealthSorterWork(Gear, Steps)
 procedure doStepSpeechBubbleWork(Gear: PVisualGear; Steps: Longword);
 begin
 if Gear^.Timer > Steps then dec(Gear^.Timer, Steps) else Gear^.Timer:= 0;
 if (PHedgehog(Gear^.Hedgehog)^.Gear <> nil) then
-	begin
+begin
-	Gear^.X:= PHedgehog(Gear^.Hedgehog)^.Gear^.X + int2hwFloat(Gear^.Tex^.w div 2  - Gear^.FrameTicks);
+Gear^.X:= PHedgehog(Gear^.Hedgehog)^.Gear^.X + int2hwFloat(Gear^.Tex^.w div 2  - Gear^.FrameTicks);
-	Gear^.Y:= PHedgehog(Gear^.Hedgehog)^.Gear^.Y - int2hwFloat(16 + Gear^.Tex^.h);
+Gear^.Y:= PHedgehog(Gear^.Hedgehog)^.Gear^.Y - int2hwFloat(16 + Gear^.Tex^.h);
-	end;
+end;
 if Gear^.Timer = 0 then
-	begin
+begin
-	if PHedgehog(Gear^.Hedgehog)^.SpeechGear = Gear then
+if PHedgehog(Gear^.Hedgehog)^.SpeechGear = Gear then
-		PHedgehog(Gear^.Hedgehog)^.SpeechGear:= nil;
+PHedgehog(Gear^.Hedgehog)^.SpeechGear:= nil;
-	DeleteVisualGear(Gear)
+DeleteVisualGear(Gear)
-	end;
+end;
 end;
 procedure doStepSpeechBubble(Gear: PVisualGear; Steps: Longword);
 begin
 with PHedgehog(Gear^.Hedgehog)^ do
 Gear^.Y:= Gear^.Y - int2hwFloat(Gear^.Tex^.h)
 end;
 // ==================================================================
 const doStepHandlers: array[TVisualGearType] of TVGearStepProcedure =
-		(
+(
-			@doStepFlake,
+@doStepFlake,
-			@doStepCloud,
+@doStepCloud,
-			@doStepExpl,
+@doStepExpl,
-			@doStepExpl,
+@doStepExpl,
-			@doStepFire,
+@doStepFire,
-			@doStepSmallDamage,
+@doStepSmallDamage,
-			@doStepTeamHealthSorter,
+@doStepTeamHealthSorter,
-			@doStepSpeechBubble,
+@doStepSpeechBubble,
-			@doStepBubble,
+@doStepBubble,
-			@doStepSteam,
+@doStepSteam,
-			@doStepSmoke,
+@doStepSmoke,
-			@doStepSmoke,
+@doStepSmoke,
-			@doStepHealth,
+@doStepHealth,
-			@doStepShell,
+@doStepShell,
-			@doStepDust
+@doStepDust
-		);
+);
 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;
 var gear: PVisualGear;
-	t: Longword;
+t: Longword;
-	sp: hwFloat;
+sp: hwFloat;
 begin
 if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then // we are scrolling now
-	if Kind <> vgtCloud then
+if Kind <> vgtCloud then
-		begin
+begin
-		AddVisualGear:= nil;
+AddVisualGear:= nil;
-		exit
+exit
-		end;
+end;
 if cReducedQuality and
 (Kind <> vgtTeamHealthSorter) and
 (Kind <> vgtSmallDamageTag) and
 (Kind <> vgtSpeechBubble) then
-	begin
+begin
-	AddVisualGear:= nil;
+AddVisualGear:= nil;
-	exit
+exit
-	end;
+end;
 New(gear);
 FillChar(gear^, sizeof(TVisualGear), 0);
 gear^.X:= int2hwFloat(X);
 gear^.Y:= int2hwFloat(Y);
 gear^.Kind := Kind;
 gear^.doStep:= doStepHandlers[Kind];
 with gear^ do
-	case Kind of
+case Kind of
-	vgtFlake: begin
+vgtFlake: begin
-				FrameTicks:= random(vobFrameTicks);
+FrameTicks:= random(vobFrameTicks);
-				Frame:= random(vobFramesCount);
+Frame:= random(vobFramesCount);
-				Angle:= random * 360;
+Angle:= random * 360;
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dx.QWordValue:= random(100000000);
+dx.QWordValue:= random(100000000);
-				dy.isNegative:= false;
+dy.isNegative:= false;
-				dy.QWordValue:= random(70000000);
+dy.QWordValue:= random(70000000);
-				dAngle:= (random(2) * 2 - 1) * (1 + random) * vobVelocity / 1000
+dAngle:= (random(2) * 2 - 1) * (1 + random) * vobVelocity / 1000
-				end;
+end;
-	vgtCloud: begin
+vgtCloud: begin
-				Frame:= random(4);
+Frame:= random(4);
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dx.QWordValue:= random(214748364);
+dx.QWordValue:= random(214748364);
-				dy.isNegative:= random(2) = 0;
+dy.isNegative:= random(2) = 0;
-				dy.QWordValue:= 21474836 + random(64424509);
+dy.QWordValue:= 21474836 + random(64424509);
-				mdY:= dy.QWordValue
+mdY:= dy.QWordValue
-				end;
+end;
-	vgtExplPart,
+vgtExplPart,
-	vgtExplPart2: begin
+vgtExplPart2: begin
-				t:= random(1024);
+t:= random(1024);
-				sp:= _0_001 * (random(95) + 70);
+sp:= _0_001 * (random(95) + 70);
-				dx:= AngleSin(t) * sp;
+dx:= AngleSin(t) * sp;
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dy:= AngleCos(t) * sp;
+dy:= AngleCos(t) * sp;
-				dy.isNegative:= random(2) = 0;
+dy.isNegative:= random(2) = 0;
-				Frame:= 7 - random(3);
+Frame:= 7 - random(3);
-				FrameTicks:= cExplFrameTicks
+FrameTicks:= cExplFrameTicks
-				end;
+end;
-		vgtFire: begin
+vgtFire: begin
-				t:= random(1024);
+t:= random(1024);
-				sp:= _0_001 * (random(85) + 95);
+sp:= _0_001 * (random(85) + 95);
-				dx:= AngleSin(t) * sp;
+dx:= AngleSin(t) * sp;
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dy:= AngleCos(t) * sp;
+dy:= AngleCos(t) * sp;
-				dy.isNegative:= random(2) = 0;
+dy.isNegative:= random(2) = 0;
-				FrameTicks:= 650 + random(250);
+FrameTicks:= 650 + random(250);
-				Frame:= random(8)
+Frame:= random(8)
-				end;
+end;
-		vgtShell: FrameTicks:= 500;
+vgtShell: FrameTicks:= 500;
-	vgtSmallDamageTag: begin
+vgtSmallDamageTag: begin
-				gear^.FrameTicks:= 1100
+gear^.FrameTicks:= 1100
-				end;
+end;
-	vgtBubble: begin
+vgtBubble: begin
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dx.QWordValue:= random(100000000);
+dx.QWordValue:= random(100000000);
-				dy:= _0_001 * (random(85) + 95);
+dy:= _0_001 * (random(85) + 95);
-				dy.isNegative:= false;
+dy.isNegative:= false;
-				FrameTicks:= 250 + random(1751);
+FrameTicks:= 250 + random(1751);
-				Frame:= random(5)
+Frame:= random(5)
-				end;
+end;
-	vgtSteam: begin
+vgtSteam: begin
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dx.QWordValue:= random(100000000);
+dx.QWordValue:= random(100000000);
-				dy:= _0_001 * (random(85) + 95);
+dy:= _0_001 * (random(85) + 95);
-				dy.isNegative:= false;
+dy.isNegative:= false;
-				Frame:= 7 - random(3);
+Frame:= 7 - random(3);
-				FrameTicks:= cExplFrameTicks * 2;
+FrameTicks:= cExplFrameTicks * 2;
-				end;
+end;
 vgtSmokeWhite,
 vgtSmoke: begin
-				dx:= _0_0002 * (random(45) + 10);
+dx:= _0_0002 * (random(45) + 10);
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dy:= _0_0002 * (random(45) + 10);
+dy:= _0_0002 * (random(45) + 10);
-				dy.isNegative:= false;
+dy.isNegative:= false;
-				Frame:= 7 - random(2);
+Frame:= 7 - random(2);
-				FrameTicks:= cExplFrameTicks * 2;
+FrameTicks:= cExplFrameTicks * 2;
-				end;
+end;
-	vgtHealth: begin
+vgtHealth: begin
-				dx:= _0_001 * random(45);
+dx:= _0_001 * random(45);
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dy:= _0_001 * (random(20) + 25);
+dy:= _0_001 * (random(20) + 25);
-				Frame:= 0;
+Frame:= 0;
-				FrameTicks:= random(750) + 1250;
+FrameTicks:= random(750) + 1250;
-				end;
+end;
 vgtDust: begin
-				dx:= _0_005 * (random(15) + 10);
+dx:= _0_005 * (random(15) + 10);
-				dx.isNegative:= random(2) = 0;
+dx.isNegative:= random(2) = 0;
-				dy:= _0_001 * (random(40) + 20);
+dy:= _0_001 * (random(40) + 20);
-				Frame:= 7 - random(2);
+Frame:= 7 - random(2);
-				FrameTicks:= random(20) + 15;
+FrameTicks:= random(20) + 15;
-				end;
+end;
-		end;
+end;
 if VisualGearsList <> nil then
-	begin
+begin
-	VisualGearsList^.PrevGear:= gear;
+VisualGearsList^.PrevGear:= gear;
-	gear^.NextGear:= VisualGearsList
+gear^.NextGear:= VisualGearsList
-	end;
+end;
 VisualGearsList:= gear;
 AddVisualGear:= gear;
 end;
 procedure DeleteVisualGear(Gear: PVisualGear);
 begin
 if Gear^.Tex <> nil then
-	FreeTexture(Gear^.Tex);
+FreeTexture(Gear^.Tex);
 if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear;
 if Gear^.PrevGear <> nil then Gear^.PrevGear^.NextGear:= Gear^.NextGear
 else VisualGearsList:= Gear^.NextGear;
 procedure DrawVisualGears(Layer: LongWord);
 var Gear: PVisualGear;
 begin
 Gear:= VisualGearsList;
 case Layer of
-	0: while Gear <> nil do
+0: while Gear <> nil do
-		begin
+begin
-		case Gear^.Kind of
+case Gear^.Kind of
-			vgtFlake: if vobVelocity = 0 then
+vgtFlake: if vobVelocity = 0 then
-						DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame)
+DrawSprite(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame)
-					else
+else
-						DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
+DrawRotatedF(sprFlake, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
-			vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame);
+vgtCloud: DrawSprite(sprCloud, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame);
-			end;
+end;
-		Gear:= Gear^.NextGear
+Gear:= Gear^.NextGear
-		end;
+end;
-	1: while Gear <> nil do
+1: while Gear <> nil do
-		begin
+begin
-			if not cReducedQuality then
+if not cReducedQuality then
-				case Gear^.Kind of
+case Gear^.Kind of
-					vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
+vgtSmoke: DrawSprite(sprSmoke, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
-					vgtSmokeWhite: DrawSprite(sprSmokeWhite, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
+vgtSmokeWhite: DrawSprite(sprSmokeWhite, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
-					vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
+vgtDust: DrawSprite(sprDust, hwRound(Gear^.X) + WorldDx - 11, hwRound(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
-				end;
+end;
-		Gear:= Gear^.NextGear
+Gear:= Gear^.NextGear
-		end;
+end;
-	2: while Gear <> nil do
+2: while Gear <> nil do
-		begin
+begin
 if not cReducedQuality then
 case Gear^.Kind of
 vgtExplPart: DrawSprite(sprExplPart, hwRound(Gear^.X) + WorldDx - 16, hwRound(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
 vgtExplPart2: DrawSprite(sprExplPart2, hwRound(Gear^.X) + WorldDx - 16, hwRound(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
 vgtFire: DrawSprite(sprFlame, hwRound(Gear^.X) + WorldDx - 8, hwRound(Gear^.Y) + WorldDy, (RealTicks div 64 + Gear^.Frame) mod 8);
-				vgtBubble: DrawSprite(sprBubbles, hwRound(Gear^.X) + WorldDx - 8, hwRound(Gear^.Y) + WorldDy - 8, Gear^.Frame);//(RealTicks div 64 + Gear^.Frame) mod 8);
+vgtBubble: DrawSprite(sprBubbles, hwRound(Gear^.X) + WorldDx - 8, hwRound(Gear^.Y) + WorldDy - 8, Gear^.Frame);//(RealTicks div 64 + Gear^.Frame) mod 8);
-				vgtSteam: DrawSprite(sprExplPart, hwRound(Gear^.X) + WorldDx - 16, hwRound(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
+vgtSteam: DrawSprite(sprExplPart, hwRound(Gear^.X) + WorldDx - 16, hwRound(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
-				vgtHealth:  begin
+vgtHealth:  begin
-							case Gear^.Frame div 10 of
+case Gear^.Frame div 10 of
-								0:glColor4f(0, 1, 0, Gear^.FrameTicks / 1000);
+0:glColor4f(0, 1, 0, Gear^.FrameTicks / 1000);
-								1:glColor4f(1, 0, 0, Gear^.FrameTicks / 1000);
+1:glColor4f(1, 0, 0, Gear^.FrameTicks / 1000);
-							end;
+end;
-							DrawSprite(sprHealth, hwRound(Gear^.X) + WorldDx - 8, hwRound(Gear^.Y) + WorldDy - 8, 0);
+DrawSprite(sprHealth, hwRound(Gear^.X) + WorldDx - 8, hwRound(Gear^.Y) + WorldDy - 8, 0);
-							glColor4f(1, 1, 1, 1);
+glColor4f(1, 1, 1, 1);
-							end;
+end;
-				vgtShell: begin
+vgtShell: begin
-							if Gear^.FrameTicks < 250 then
+if Gear^.FrameTicks < 250 then
-								glColor4f(1, 1, 1, Gear^.FrameTicks / 250);
+glColor4f(1, 1, 1, Gear^.FrameTicks / 250);
-							DrawRotatedF(sprShell, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
+DrawRotatedF(sprShell, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
-							if Gear^.FrameTicks < 250 then
+if Gear^.FrameTicks < 250 then
-								glColor4f(1, 1, 1, 1);
+glColor4f(1, 1, 1, 1);
-							end;
+end;
 end;
 case Gear^.Kind of
 vgtSmallDamageTag: DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 vgtSpeechBubble: if Gear^.Tex <> nil then DrawCentered(hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, Gear^.Tex);
 end;
-		Gear:= Gear^.NextGear
+Gear:= Gear^.NextGear
-		end
+end
-	end
+end
 end;
 procedure AddClouds;
 var i: LongInt;
 begin
 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + (LAND_WIDTH+256)) div (cCloudsNumber + 1)), LAND_HEIGHT-1184, vgtCloud)
 end;
 procedure init_uVisualGears;
 begin
-	VisualGearsList:= nil;
+VisualGearsList:= nil;
 end;
 procedure free_uVisualGears;
 begin
-	while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList);
+while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList);
 end;
 end.

changeset 2948	3f21a9dc93d0
parent 2941	566f967ec22f
child 2972	82828fd23dea