hedgewars-draft: hedgewars/uVisualGears.pas@4b5d62ac01f7 (annotated)

802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	1	(*
1066 1f1b3686a2b0 Update copyright headers a bit unc0rr parents: 1047 diff changeset	2	* Hedgewars, a free turn based strategy game
4976 088d40d8aba2 Happy 2011 :) koda parents: 4818 diff changeset	3	* Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	4	*
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	5	* This program is free software; you can redistribute it and/or modify
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	6	* it under the terms of the GNU General Public License as published by
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	7	* the Free Software Foundation; version 2 of the License
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	8	*
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	9	* This program is distributed in the hope that it will be useful,
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	10	* but WITHOUT ANY WARRANTY; without even the implied warranty of
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	11	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	12	* GNU General Public License for more details.
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	13	*
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	14	* You should have received a copy of the GNU General Public License
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	15	* along with this program; if not, write to the Free Software
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	16	* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	17	*)
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	18
2599 c7153d2348f3 move compiler directives to standard pascal koda parents: 2587 diff changeset	19	{$INCLUDE "options.inc"}
2587 0dfa56a8513c fix a segfault in the iphone simulator by moving options.inc at the beginning of the file koda parents: 2428 diff changeset	20
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	21	unit uVisualGears;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	22	interface
4379 6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency unC0Rr parents: 4378 diff changeset	23	uses uConsts, uFloat, GLunit, uTypes;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	24
3038 4e48c276a468 In pascal unit is a namespace unc0rr parents: 3032 diff changeset	25	procedure initModule;
4e48c276a468 In pascal unit is a namespace unc0rr parents: 3032 diff changeset	26	procedure freeModule;
2716 b9ca1bfca24f complete the replacement of init/free wrappers for every unit koda parents: 2715 diff changeset	27
4420 6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created. nemo parents: 4390 diff changeset	28	function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	29	procedure ProcessVisualGears(Steps: Longword);
3083 8da8f2515221 Eliminate flake kick on themes with no flakes, more than 200 flakes (city) or explosions of 25 or smaller nemo parents: 3080 diff changeset	30	procedure KickFlakes(Radius, X, Y: LongInt);
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1041 diff changeset	31	procedure DrawVisualGears(Layer: LongWord);
1041 362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	32	procedure DeleteVisualGear(Gear: PVisualGear);
4443 d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	33	function VisualGearByUID(uid : Longword) : PVisualGear;
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	34	procedure AddClouds;
4792 68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	35	procedure ChangeToSDClouds;
4806 48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	36	procedure AddFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	37	procedure ChangeToSDFlakes;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	38	procedure AddDamageTag(X, Y, Damage, Color: LongWord);
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	39
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	40	implementation
4390 f219628ed666 Move localization data to uVariables, some Uses cleanup unc0rr parents: 4380 diff changeset	41	uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils;
4368 b89235e401e5 uTeams unc0rr parents: 4361 diff changeset	42
1047 ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	43	const cExplFrameTicks = 110;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	44
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	45	{$INCLUDE "VGSHandlers.inc"}
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	46
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	47	procedure AddDamageTag(X, Y, Damage, Color: LongWord);
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	48	var s: shortstring;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	49	Gear: PVisualGear;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	50	begin
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	51	if cAltDamage then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	52	begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	53	Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	54	if Gear <> nil then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	55	with Gear^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	56	begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	57	str(Damage, s);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	58	Tex:= RenderStringTex(s, Color, fntSmall);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	59	end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	60	end
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	61	end;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	62
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	63
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	64	// ==================================================================
2042 905c554d62e6 Move Speech to visual gears. This checkin CRASHES on deletion of visual gear outside the doStep nemo parents: 2014 diff changeset	65
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	66	// ==================================================================
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	67	const doStepHandlers: array[TVisualGearType] of TVGearStepProcedure =
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	68	(
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	69	@doStepFlake,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	70	@doStepCloud,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	71	@doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	72	@doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	73	@doStepFire,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	74	@doStepSmallDamage,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	75	@doStepTeamHealthSorter,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	76	@doStepSpeechBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	77	@doStepBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	78	@doStepSteam,
2972 82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate unc0rr parents: 2948 diff changeset	79	@doStepAmmo,
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	80	@doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	81	@doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	82	@doStepHealth,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	83	@doStepShell,
2974 f3fa665f0874 Engine: smxx parents: 2972 diff changeset	84	@doStepDust,
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	85	@doStepSplash,
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	86	@doStepDroplet,
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	87	@doStepSmokeRing,
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	88	@doStepBeeTrace,
3145 a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	89	@doStepEgg,
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	90	@doStepFeather,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	91	@doStepHealthTag,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	92	@doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	93	@doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	94	@doStepExplosion,
3689 e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	95	@doStepBigExplosion,
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	96	@doStepChunk,
4279 b697a26ed538 Light trails for bullets Palewolf parents: 4159 diff changeset	97	@doStepNote,
4327 224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	98	@doStepLineTrail,
4420 6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created. nemo parents: 4390 diff changeset	99	@doStepBulletHit,
6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created. nemo parents: 4390 diff changeset	100	@doStepCircle
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	101	);
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	102
4420 6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created. nemo parents: 4390 diff changeset	103	function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType; State: LongWord = 0; Critical: Boolean = false): PVisualGear;
4422 5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation nemo parents: 4420 diff changeset	104	const VGCounter: Longword = 0;
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	105	var gear: PVisualGear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	106	t: Longword;
4379 6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency unC0Rr parents: 4378 diff changeset	107	sp: real;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	108	begin
2671 7e0f88013fe8 smaller patches, one missing Sky-lowres, IMG_Init and Mix_Init (might require newer libraries), updates to SDL bindings, code cleanup, new compile flags koda parents: 2599 diff changeset	109	if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then // we are scrolling now
4420 6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created. nemo parents: 4390 diff changeset	110	if (Kind <> vgtCloud) and not Critical then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	111	begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	112	AddVisualGear:= nil;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	113	exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	114	end;
1642 177b440773de Disable visual gears when quick replaying unc0rr parents: 1505 diff changeset	115
4809 9c7d5f802618 rearrange quality flags a little, disable snow rendering on rqLowRes koda parents: 4806 diff changeset	116	if ((cReducedQuality and rqAntiBoom) <> 0) and
4420 6be946bcd17a Add a visual gear for drawing circles. Intent is to allow specifying areas on map for lua scripts (such as to indicate a location to go to). Could also be used to, say, circle a hog in CTF. Also add a "Critical" flag for visual gears so a gear flagges as such will always be created. nemo parents: 4390 diff changeset	117	not Critical and
3447 2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	118	not (Kind in
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	119	[vgtTeamHealthSorter,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	120	vgtSmallDamageTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	121	vgtSpeechBubble,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	122	vgtHealthTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	123	vgtExplosion,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	124	vgtSmokeTrace,
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	125	vgtEvilTrace,
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	126	vgtNote]) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	127	begin
3594 aeca3d8f1b29 turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend) koda parents: 3593 diff changeset	128	AddVisualGear:= nil;
aeca3d8f1b29 turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend) koda parents: 3593 diff changeset	129	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	130	end;
1812 3d4692e825e7 'Reduce quality' patch by nemo unc0rr parents: 1801 diff changeset	131
4422 5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation nemo parents: 4420 diff changeset	132	inc(VGCounter);
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	133	New(gear);
ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	134	FillChar(gear^, sizeof(TVisualGear), 0);
4379 6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency unC0Rr parents: 4378 diff changeset	135	gear^.X:= real(X);
6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency unC0Rr parents: 4378 diff changeset	136	gear^.Y:= real(Y);
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	137	gear^.Kind := Kind;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	138	gear^.doStep:= doStepHandlers[Kind];
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	139	gear^.State:= 0;
3475 95345f98da19 Engine: smxx parents: 3447 diff changeset	140	gear^.Tint:= $FFFFFFFF;
4422 5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation nemo parents: 4420 diff changeset	141	gear^.uid:= VGCounter;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	142
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	143	with gear^ do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	144	case Kind of
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	145	vgtFlake: begin
2985 d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	146	Timer:= 0;
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	147	tdX:= 0;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	148	tdY:= 0;
4806 48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	149	if SuddenDeathDmg then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	150	begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	151	FrameTicks:= random(vobSDFrameTicks);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	152	Frame:= random(vobSDFramesCount);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	153	end
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	154	else
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	155	begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	156	FrameTicks:= random(vobFrameTicks);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	157	Frame:= random(vobFramesCount);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	158	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	159	Angle:= random * 360;
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	160	dx:= 0.0000038654705 * random(10000);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	161	dy:= 0.000003506096 * random(7000);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	162	if random(2) = 0 then dx := -dx;
4806 48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	163	if SuddenDeathDmg then dAngle:= (random(2) * 2 - 1) * (1 + random) * vobSDVelocity / 1000
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	164	else dAngle:= (random(2) * 2 - 1) * (1 + random) * vobVelocity / 1000
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	165	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	166	vgtCloud: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	167	Frame:= random(4);
3994 486da687d76a fix/tweak let clouds reflect wind speed and direction again + stronger sheepluva parents: 3976 diff changeset	168	dx:= 0.5 + 0.1 * random(5); // how much the cloud will be affected by wind
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	169	timer:= random(4096);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	170	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	171	vgtExplPart,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	172	vgtExplPart2: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	173	t:= random(1024);
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	174	sp:= 0.001 * (random(95) + 70);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	175	dx:= AngleSin(t).QWordValue/4294967296 * sp;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	176	dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	177	if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	178	if random(2) = 0 then dy := -dy;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	179	Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	180	FrameTicks:= cExplFrameTicks
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	181	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	182	vgtFire: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	183	t:= random(1024);
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	184	sp:= 0.001 * (random(85) + 95);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	185	dx:= AngleSin(t).QWordValue/4294967296 * sp;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	186	dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	187	if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	188	if random(2) = 0 then dy := -dy;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	189	FrameTicks:= 650 + random(250);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	190	Frame:= random(8)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	191	end;
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	192	vgtEgg: begin
831bd0f7050d Engine: smxx parents: 3096 diff changeset	193	t:= random(1024);
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	194	sp:= 0.001 * (random(85) + 95);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	195	dx:= AngleSin(t).QWordValue/4294967296 * sp;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	196	dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	197	if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	198	if random(2) = 0 then dy := -dy;
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	199	FrameTicks:= 650 + random(250);
831bd0f7050d Engine: smxx parents: 3096 diff changeset	200	Frame:= 1
831bd0f7050d Engine: smxx parents: 3096 diff changeset	201	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	202	vgtShell: FrameTicks:= 500;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	203	vgtSmallDamageTag: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	204	gear^.FrameTicks:= 1100
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	205	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	206	vgtBubble: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	207	dx:= 0.0000038654705 * random(10000);
3909 4ba25a3d15af remove windspeed from bubbles, remove initial dY from bubbles, apply dY/dX to bubbles, correct offsets on flying saucer flame graphics, add bubbles when flying saucer thrusts underwater, make flying saucer sink more slowly underwater nemo parents: 3836 diff changeset	208	dy:= 0;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	209	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	210	FrameTicks:= 250 + random(1751);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	211	Frame:= random(5)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	212	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	213	vgtSteam: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	214	dx:= 0.0000038654705 * random(10000);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	215	dy:= 0.001 * (random(85) + 95);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	216	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	217	Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	218	FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	219	end;
2972 82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate unc0rr parents: 2948 diff changeset	220	vgtAmmo: begin
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate unc0rr parents: 2948 diff changeset	221	alpha:= 1.0;
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate unc0rr parents: 2948 diff changeset	222	scale:= 1.0
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate unc0rr parents: 2948 diff changeset	223	end;
3697 d5b30d6373fc remove trailing spaces from end of line koda parents: 3689 diff changeset	224	vgtSmokeWhite,
2713 71250942e95b Palewolf's smoke traces for fire. nemo parents: 2699 diff changeset	225	vgtSmoke: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	226	dx:= 0.0002 * (random(45) + 10);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	227	dy:= 0.0002 * (random(45) + 10);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	228	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	229	Frame:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	230	FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	231	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	232	vgtHealth: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	233	dx:= 0.001 * random(45);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	234	dy:= 0.001 * (random(20) + 25);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	235	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	236	Frame:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	237	FrameTicks:= random(750) + 1250;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	238	end;
2848 8a1725b4f724 Engine: smxx parents: 2827 diff changeset	239	vgtDust: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	240	dx:= 0.005 * (random(15) + 10);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	241	dy:= 0.001 * (random(40) + 20);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	242	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	243	Frame:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	244	FrameTicks:= random(20) + 15;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	245	end;
2974 f3fa665f0874 Engine: smxx parents: 2972 diff changeset	246	vgtSplash: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	247	dx:= 0;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	248	dy:= 0;
2974 f3fa665f0874 Engine: smxx parents: 2972 diff changeset	249	FrameTicks:= 740;
f3fa665f0874 Engine: smxx parents: 2972 diff changeset	250	Frame:= 19;
f3fa665f0874 Engine: smxx parents: 2972 diff changeset	251	end;
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	252	vgtDroplet: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	253	dx:= 0.001 * (random(75) + 15);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	254	dy:= -0.001 * (random(80) + 120);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	255	if random(2) = 0 then dx := -dx;
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	256	FrameTicks:= 250 + random(1751);
4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	257	Frame:= random(3)
4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	258	end;
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	259	vgtBeeTrace: begin
b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	260	FrameTicks:= 1000;
b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	261	Frame:= random(16);
b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	262	end;
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	263	vgtSmokeRing: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	264	dx:= 0;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	265	dy:= 0;
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	266	FrameTicks:= 600;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	267	Timer:= 0;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	268	Frame:= 0;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	269	scale:= 0.6;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	270	alpha:= 1;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	271	angle:= random(360);
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	272	end;
3145 a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	273	vgtFeather: begin
a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	274	t:= random(1024);
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	275	sp:= 0.001 * (random(85) + 95);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	276	dx:= AngleSin(t).QWordValue/4294967296 * sp;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	277	dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	278	if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	279	if random(2) = 0 then dy := -dy;
3145 a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	280	FrameTicks:= 650 + random(250);
a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	281	Frame:= 1
a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	282	end;
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	283	vgtHealthTag: begin
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	284	gear^.Timer:= 1500;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	285	//gear^.Z:= 2002;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	286	end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	287	vgtSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	288	vgtEvilTrace: begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	289	gear^.X:= gear^.X - 16;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	290	gear^.Y:= gear^.Y - 16;
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	291	gear^.State:= 8;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	292	//gear^.Z:= cSmokeZ
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	293	end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	294	vgtBigExplosion: begin
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	295	gear^.Angle:= random(360);
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	296	end;
3689 e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	297	vgtChunk: begin
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	298	gear^.Frame:= random(4);
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	299	t:= random(1024);
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	300	sp:= 0.001 * (random(85) + 47);
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	301	dx:= AngleSin(t).QWordValue/4294967296 * sp;
3706 a79784328c03 Engine: smaxx parents: 3704 diff changeset	302	dy:= AngleCos(t).QWordValue/4294967296 * sp * -2;
3689 e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	303	if random(2) = 0 then dx := -dx;
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	304	end;
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	305	vgtNote: begin
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	306	dx:= 0.005 * (random(15) + 10);
3706 a79784328c03 Engine: smaxx parents: 3704 diff changeset	307	dy:= -0.001 * (random(40) + 20);
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	308	if random(2) = 0 then dx := -dx;
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	309	Frame:= random(4);
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	310	FrameTicks:= random(2000) + 1500;
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	311	end;
4327 224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	312	vgtBulletHit: begin
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	313	dx:= 0;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	314	dy:= 0;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	315	FrameTicks:= 350;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	316	Frame:= 7;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	317	Angle := 0;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	318	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	319	end;
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	320
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	321	if State <> 0 then gear^.State:= State;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	322
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	323	if VisualGearsList <> nil then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	324	begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	325	VisualGearsList^.PrevGear:= gear;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	326	gear^.NextGear:= VisualGearsList
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	327	end;
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	328	VisualGearsList:= gear;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	329
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	330	AddVisualGear:= gear;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	331	end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	332
1041 362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	333	procedure DeleteVisualGear(Gear: PVisualGear);
362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	334	begin
3513 f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive) koda parents: 3475 diff changeset	335	if Gear^.Tex <> nil then
f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive) koda parents: 3475 diff changeset	336	FreeTexture(Gear^.Tex);
f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive) koda parents: 3475 diff changeset	337	Gear^.Tex:= nil;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	338
3513 f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive) koda parents: 3475 diff changeset	339	if Gear^.NextGear <> nil then Gear^.NextGear^.PrevGear:= Gear^.PrevGear;
f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive) koda parents: 3475 diff changeset	340	if Gear^.PrevGear <> nil then Gear^.PrevGear^.NextGear:= Gear^.NextGear
f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive) koda parents: 3475 diff changeset	341	else VisualGearsList:= Gear^.NextGear;
1041 362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	342
4780 8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	343	if lastVisualGearByUID = Gear then lastVisualGearByUID:= nil;
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	344
3513 f589230fa21b now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive) koda parents: 3475 diff changeset	345	Dispose(Gear);
1041 362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	346	end;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	347
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	348	procedure ProcessVisualGears(Steps: Longword);
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	349	var Gear, t: PVisualGear;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	350	begin
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	351	if Steps = 0 then exit;
3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	352
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	353	t:= VisualGearsList;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	354	while t <> nil do
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	355	begin
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	356	Gear:= t;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	357	t:= Gear^.NextGear;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	358	Gear^.doStep(Gear, Steps)
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	359	end
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	360	end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	361
3083 8da8f2515221 Eliminate flake kick on themes with no flakes, more than 200 flakes (city) or explosions of 25 or smaller nemo parents: 3080 diff changeset	362	procedure KickFlakes(Radius, X, Y: LongInt);
2985 d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	363	var Gear, t: PVisualGear;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	364	dmg: LongInt;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	365	begin
3641 98319a621dc8 save the gl client state to get a nice 80% fps boost koda parents: 3616 diff changeset	366	if (vobCount = 0) or (vobCount > 200) then exit;
2985 d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	367	t:= VisualGearsList;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	368	while t <> nil do
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	369	begin
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	370	Gear:= t;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	371	if Gear^.Kind = vgtFlake then
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	372	begin
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	373	// Damage calc from doMakeExplosion
4379 6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency unC0Rr parents: 4378 diff changeset	374	dmg:= Min(101, Radius + cHHRadius div 2 - LongInt(abs(round(Gear^.X) - X) + abs(round(Gear^.Y) - Y)) div 5);
2985 d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	375	if dmg > 1 then
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	376	begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	377	Gear^.tdX:= 0.02 * dmg + 0.01;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	378	if Gear^.X - X < 0 then Gear^.tdX := -Gear^.tdX;
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	379	Gear^.tdY:= 0.02 * dmg + 0.01;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	380	if Gear^.Y - Y < 0 then Gear^.tdY := -Gear^.tdY;
2986 c0c91cd3f423 Trying to tweak kicks a bit nemo parents: 2985 diff changeset	381	Gear^.Timer:= 200
2985 d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	382	end
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	383	end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	384	t:= Gear^.NextGear
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	385	end
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	386	end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	387
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1041 diff changeset	388	procedure DrawVisualGears(Layer: LongWord);
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	389	var Gear: PVisualGear;
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	390	tinted: boolean;
4545 180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	391	tmp: real;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	392	begin
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	393	Gear:= VisualGearsList;
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1041 diff changeset	394	case Layer of
4818 202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	395	// this level is very distant in the background when stereo
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	396	0: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	397	begin
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	398	if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	399	case Gear^.Kind of
4806 48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	400	vgtFlake: if SuddenDeathDmg then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	401	if vobSDVelocity = 0 then
4748 ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	402	DrawSprite(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	403	else
4806 48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	404	DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
3641 98319a621dc8 save the gl client state to get a nice 80% fps boost koda parents: 3616 diff changeset	405	else
4806 48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	406	if vobVelocity = 0 then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	407	DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
4748 ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	408	else
ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	409	DrawRotatedF(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle);
4772 02370ca8e92c sudden death: now having theme support, still some work though with config Henek parents: 4748 diff changeset	410	vgtCloud: if SuddenDeathDmg then
02370ca8e92c sudden death: now having theme support, still some work though with config Henek parents: 4748 diff changeset	411	DrawSprite(sprSDCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
02370ca8e92c sudden death: now having theme support, still some work though with config Henek parents: 4748 diff changeset	412	else
02370ca8e92c sudden death: now having theme support, still some work though with config Henek parents: 4748 diff changeset	413	DrawSprite(sprCloud, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	414	end;
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	415	if Gear^.Tint <> $FFFFFFFF then Tint($FF,$FF,$FF,$FF);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	416	Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	417	end;
4818 202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	418	// this level is on the land one when stereo
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	419	1: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	420	begin
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	421	tinted:= false;
54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	422	if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
3447 2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	423	case Gear^.Kind of
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	424	vgtSmokeTrace: if Gear^.State < 8 then DrawSprite(sprSmokeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	425	vgtEvilTrace: if Gear^.State < 8 then DrawSprite(sprEvilTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State);
4279 b697a26ed538 Light trails for bullets Palewolf parents: 4159 diff changeset	426	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));
3447 2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	427	end;
4809 9c7d5f802618 rearrange quality flags a little, disable snow rendering on rqLowRes koda parents: 4806 diff changeset	428	if (cReducedQuality and rqAntiBoom) = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	429	case Gear^.Kind of
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	430	vgtSmoke: DrawSprite(sprSmoke, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	431	vgtSmokeWhite: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	432	vgtDust: DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
4818 202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	433	vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	434	DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	435	else
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	436	DrawTextureF(SpritesData[sprFlame].Texture, Gear^.FrameTicks / 900, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, (RealTicks shr 7 + Gear^.Frame) mod 8, 1, 16, 16);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	437	vgtSplash: if SuddenDeathDmg then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	438	DrawSprite(sprSDSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37))
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	439	else
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	440	DrawSprite(sprSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37));
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	441	vgtDroplet: if SuddenDeathDmg then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	442	DrawSprite(sprSDDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame)
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	443	else
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	444	DrawSprite(sprDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	445	vgtChunk: DrawRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
3443 14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully sheepluva parents: 3440 diff changeset	446	end;
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	447	if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	448	Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	449	end;
4818 202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	450	// this level is on the screen plane when stereo (depth = 0)
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	451	3: while Gear <> nil do
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	452	begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	453	tinted:= false;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	454	if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	455	case Gear^.Kind of
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	456	vgtSpeechBubble: begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	457	if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team <> CurrentTeam)) or (Gear^.State = 1)) then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	458	begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	459	tinted:= true;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	460	Tint($FF, $FF, $FF, $66);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	461	DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	462	end
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	463	else if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team = CurrentTeam)) or (Gear^.State = 2)) then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	464	DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	465	end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	466	vgtSmallDamageTag: DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	467	vgtHealthTag: if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	468	vgtHealth: begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	469	tinted:= true;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	470	case Gear^.Frame div 10 of
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	471	0:Tint(0, $FF, 0, round(Gear^.FrameTicks * $FF / 1000));
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	472	1:Tint($FF, 0, 0, round(Gear^.FrameTicks * $FF / 1000));
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	473	end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	474	DrawSprite(sprHealth, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, 0);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	475	end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	476	end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	477	if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	478	Gear:= Gear^.NextGear
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	479	end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	480	// this level is outside the screen when stereo
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	481	2: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	482	begin
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	483	tinted:= false;
54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	484	if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
3443 14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully sheepluva parents: 3440 diff changeset	485	case Gear^.Kind of
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	486	vgtExplosion: DrawSprite(sprExplosion50, round(Gear^.X) - 32 + WorldDx, round(Gear^.Y) - 32 + WorldDy, Gear^.State);
3443 14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully sheepluva parents: 3440 diff changeset	487	vgtBigExplosion: begin
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	488	tinted:= true;
4379 6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency unC0Rr parents: 4378 diff changeset	489	Tint($FF, $FF, $FF, round($FF * (1 - power(Gear^.Timer / 250, 4))));
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	490	DrawRotatedTextureF(SpritesData[sprBigExplosion].Texture, 0.85 * (-power(2, -10 * Int(Gear^.Timer)/250) + 1) + 0.4, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 385, 385, Gear^.Angle);
3443 14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully sheepluva parents: 3440 diff changeset	491	end;
14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully sheepluva parents: 3440 diff changeset	492	end;
4809 9c7d5f802618 rearrange quality flags a little, disable snow rendering on rqLowRes koda parents: 4806 diff changeset	493	if (cReducedQuality and rqAntiBoom) = 0 then
2047 805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality" nemo parents: 2045 diff changeset	494	case Gear^.Kind of
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	495	vgtExplPart: DrawSprite(sprExplPart, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	496	vgtExplPart2: DrawSprite(sprExplPart2, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	497	vgtBubble: DrawSprite(sprBubbles, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);//(RealTicks div 64 + Gear^.Frame) mod 8);
3754 cb42d83587f5 Engine: smaxx parents: 3751 diff changeset	498	vgtSteam: DrawSprite(sprSmokeWhite, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
2972 82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate unc0rr parents: 2948 diff changeset	499	vgtAmmo: begin
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	500	tinted:= true;
4379 6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency unC0Rr parents: 4378 diff changeset	501	Tint($FF, $FF, $FF, round(Gear^.alpha * $FF));
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	502	DrawTextureF(ropeIconTex, Gear^.scale, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 32, 32);
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	503	DrawTextureF(SpritesData[sprAMAmmos].Texture, Gear^.scale * 0.90, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame - 1, 1, 32, 32);
2972 82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate unc0rr parents: 2948 diff changeset	504	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	505	vgtShell: begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	506	if Gear^.FrameTicks < $FF then
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	507	begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	508	Tint($FF, $FF, $FF, Gear^.FrameTicks);
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	509	tinted:= true
54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	510	end;
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	511	DrawRotatedF(sprShell, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	512	end;
4818 202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	513	vgtFeather: begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	514	if Gear^.FrameTicks < 255 then
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	515	begin
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	516	Tint($FF, $FF, $FF, Gear^.FrameTicks);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	517	tinted:= true
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	518	end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	519	DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	520	end;
202eef454354 rename "frame alternate" to "wiggle" as it's more appropriate koda parents: 4809 diff changeset	521	vgtEgg: begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	522	if Gear^.FrameTicks < $FF then
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	523	begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	524	Tint($FF, $FF, $FF, Gear^.FrameTicks);
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	525	tinted:= true
54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	526	end;
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	527	DrawRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	528	end;
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	529	vgtBeeTrace: begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	530	if Gear^.FrameTicks < $FF then
faee68a28b82 Engine: smxx parents: 3326 diff changeset	531	Tint($FF, $FF, $FF, Gear^.FrameTicks div 2)
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	532	else
3390 1d4926d10a9e Engine: smxx parents: 3376 diff changeset	533	Tint($FF, $FF, $FF, $80);
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	534	tinted:= true;
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	535	DrawRotatedF(sprBeeTrace, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, (RealTicks shr 4) mod cMaxAngle);
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	536	end;
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	537	vgtSmokeRing: begin
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	538	tinted:= true;
4379 6cd6b77df8b8 No need for Extended data type just to draw some visual gears. It's a shame we have Math unit dependency unC0Rr parents: 4378 diff changeset	539	Tint($FF, $FF, $FF, round(Gear^.alpha * $FF));
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3592 diff changeset	540	DrawRotatedTextureF(SpritesData[sprSmokeRing].Texture, Gear^.scale, 0, 0, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, 0, 1, 200, 200, Gear^.Angle);
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	541	end;
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	542	vgtNote: DrawRotatedF(sprNote, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
4327 224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	543	vgtBulletHit: DrawRotatedF(sprBulletHit, round(Gear^.X) + WorldDx - 0, round(Gear^.Y) + WorldDy - 0, 7 - (Gear^.FrameTicks div 50), 1, Gear^.Angle);
2047 805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality" nemo parents: 2045 diff changeset	544	end;
805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality" nemo parents: 2045 diff changeset	545	case Gear^.Kind of
4545 180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	546	vgtCircle: if gear^.Angle = 1 then
180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	547	begin
180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	548	tmp:= Gear^.State / 100;
4546 a6402b8c2b24 oops, forgot world offset, also add a kind of hack to the already hackish set function for visual gears nemo parents: 4545 diff changeset	549	DrawTexture(round(Gear^.X-24tmp) + WorldDx, round(Gear^.Y-24tmp) + WorldDy, SpritesData[sprVampiric].Texture, tmp)
4545 180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	550	end
4544 d999e3221e3d If this works right, setting Angle (yeah, yeah) switches between an aura circle and a drawn circle. aura is scaled at size 100 being 100% - 200, 200% etc. nemo parents: 4521 diff changeset	551	else DrawCircle(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.State, Gear^.Timer);
2047 805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality" nemo parents: 2045 diff changeset	552	end;
4475 54e78c40970b rendering optimisations. remove the recursive flames in explosions (might need more due to the gravity change in the new flames) but more usefully, eliminate a number of redundant Tint calls nemo parents: 4465 diff changeset	553	if (Gear^.Tint <> $FFFFFFFF) or tinted then Tint($FF,$FF,$FF,$FF);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	554	Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	555	end
4452 258945553b18 make Tint(longword) use RGBA nemo parents: 4451 diff changeset	556	end;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	557	end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	558
4443 d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	559	function VisualGearByUID(uid : Longword) : PVisualGear;
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	560	var vg: PVisualGear;
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	561	begin
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	562	VisualGearByUID:= nil;
4780 8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	563	if uid = 0 then exit;
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	564	if (lastVisualGearByUID <> nil) and (lastVisualGearByUID^.uid = uid) then
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	565	begin
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	566	VisualGearByUID:= lastVisualGearByUID;
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	567	exit
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	568	end;
4443 d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	569	vg:= VisualGearsList;
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	570	while vg <> nil do
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	571	begin
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	572	if vg^.uid = uid then
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	573	begin
4780 8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	574	lastVisualGearByUID:= vg;
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	575	VisualGearByUID:= vg;
8571151411b3 add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes nemo parents: 4772 diff changeset	576	exit
4443 d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	577	end;
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	578	vg:= vg^.NextGear
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	579	end
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	580	end;
d393b9ccd328 Add an extra pass in FindPlace for AI resurrection mode to try to make it unwinnable, add DeleteGear, DeleteVisualGear, AddVisualGear, GetVisualGearValues, SetVisualGearValues to Lua nemo parents: 4422 diff changeset	581
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	582	procedure AddClouds;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	583	var i: LongInt;
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	584	begin
1132 b4c0698fbb6b - Fix problem when clouds number is 0 unc0rr parents: 1079 diff changeset	585	for i:= 0 to cCloudsNumber - 1 do
3764 eb91c02f2d84 Engine: smaxx parents: 3754 diff changeset	586	AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud)
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	587	end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	588
4792 68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	589	procedure ChangeToSDClouds;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	590	var i: LongInt;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	591	vg, tmp: PVisualGear;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	592	begin
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	593	if cCloudsNumber = cSDCloudsNumber then exit;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	594	vg:= VisualGearsList;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	595	while vg <> nil do
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	596	if vg^.Kind = vgtCloud then
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	597	begin
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	598	tmp:= vg^.NextGear;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	599	DeleteVisualGear(vg);
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	600	vg:= tmp
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	601	end
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	602	else vg:= vg^.NextGear;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	603	for i:= 0 to cSDCloudsNumber - 1 do
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	604	AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cSDCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud)
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	605	end;
68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4782 diff changeset	606
4806 48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	607	procedure AddFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	608	var i: LongInt;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	609	begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	610	if (cReducedQuality and rqKillFlakes) <> 0 then exit;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	611
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	612	if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	613	for i:= 0 to Pred(vobCount) do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	614	AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake)
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	615	else
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	616	for i:= 0 to Pred(vobCount div 3) do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	617	AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	618	end;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	619
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	620	procedure ChangeToSDFlakes;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	621	var i: LongInt;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	622	vg, tmp: PVisualGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	623	begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	624	if (cReducedQuality and rqKillFlakes) <> 0 then exit;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	625	if vobCount = vobSDCount then exit;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	626	vg:= VisualGearsList;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	627	while vg <> nil do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	628	if vg^.Kind = vgtFlake then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	629	begin
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	630	tmp:= vg^.NextGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	631	DeleteVisualGear(vg);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	632	vg:= tmp
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	633	end
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	634	else vg:= vg^.NextGear;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	635	if ((GameFlags and gfBorder) <> 0) or ((Theme <> 'Snow') and (Theme <> 'Christmas')) then
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	636	for i:= 0 to Pred(vobSDCount) do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	637	AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake)
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	638	else
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	639	for i:= 0 to Pred(vobSDCount div 3) do
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	640	AddVisualGear(cLeftScreenBorder + random(cScreenSpace), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake);
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	641	end;
48c1a395f0a7 added flake configuration also in sudden death and SDClouds for underwater Henek parents: 4792 diff changeset	642
3038 4e48c276a468 In pascal unit is a namespace unc0rr parents: 3032 diff changeset	643	procedure initModule;
2699 249adefa9c1c replace initialization/finalization statements with custom init functions koda parents: 2695 diff changeset	644	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	645	VisualGearsList:= nil;
2699 249adefa9c1c replace initialization/finalization statements with custom init functions koda parents: 2695 diff changeset	646	end;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	647
3038 4e48c276a468 In pascal unit is a namespace unc0rr parents: 3032 diff changeset	648	procedure freeModule;
2715 0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work nemo parents: 2713 diff changeset	649	begin
3615 b78d7959540a further code cleanup and less redundancy koda parents: 3611 diff changeset	650	while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList);
2715 0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work nemo parents: 2713 diff changeset	651	end;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	652
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	653	end.

author	unc0rr
	Sun, 06 Mar 2011 21:55:44 +0300
changeset 4990	4b5d62ac01f7
parent 4976	088d40d8aba2
child 5014	adc340265ccf
permissions	-rw-r--r--