hedgewars-draft: hedgewars/uVisualGears.pas@5ea3d182415e (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
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	3	* Copyright (c) 2008 Andrey Korotaev <unC0Rr@gmail.com>
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;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	36	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	37
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	38	implementation
4390 f219628ed666 Move localization data to uVariables, some Uses cleanup unc0rr parents: 4380 diff changeset	39	uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils;
4368 b89235e401e5 uTeams unc0rr parents: 4361 diff changeset	40
1047 ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	41	const cExplFrameTicks = 110;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	42
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	43	{$INCLUDE "VGSHandlers.inc"}
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	44
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	45	procedure AddDamageTag(X, Y, Damage, Color: LongWord);
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	46	var s: shortstring;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	47	Gear: PVisualGear;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	48	begin
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	49	if cAltDamage then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	50	begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	51	Gear:= AddVisualGear(X, Y, vgtSmallDamageTag);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	52	if Gear <> nil then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	53	with Gear^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	54	begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	55	str(Damage, s);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	56	Tex:= RenderStringTex(s, Color, fntSmall);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	57	end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	58	end
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	59	end;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	60
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	61
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	62	// ==================================================================
2042 905c554d62e6 Move Speech to visual gears. This checkin CRASHES on deletion of visual gear outside the doStep nemo parents: 2014 diff changeset	63
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	64	// ==================================================================
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	65	const doStepHandlers: array[TVisualGearType] of TVGearStepProcedure =
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	66	(
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	67	@doStepFlake,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	68	@doStepCloud,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	69	@doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	70	@doStepExpl,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	71	@doStepFire,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	72	@doStepSmallDamage,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	73	@doStepTeamHealthSorter,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	74	@doStepSpeechBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	75	@doStepBubble,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	76	@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	77	@doStepAmmo,
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	78	@doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	79	@doStepSmoke,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	80	@doStepHealth,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	81	@doStepShell,
2974 f3fa665f0874 Engine: smxx parents: 2972 diff changeset	82	@doStepDust,
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	83	@doStepSplash,
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	84	@doStepDroplet,
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	85	@doStepSmokeRing,
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	86	@doStepBeeTrace,
3145 a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	87	@doStepEgg,
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	88	@doStepFeather,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	89	@doStepHealthTag,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	90	@doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	91	@doStepSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	92	@doStepExplosion,
3689 e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	93	@doStepBigExplosion,
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	94	@doStepChunk,
4279 b697a26ed538 Light trails for bullets Palewolf parents: 4159 diff changeset	95	@doStepNote,
4327 224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	96	@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	97	@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	98	@doStepCircle
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	99	);
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	100
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	101	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	102	const VGCounter: Longword = 0;
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	103	var gear: PVisualGear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	104	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	105	sp: real;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	106	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	107	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	108	if (Kind <> vgtCloud) and not Critical then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	109	begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	110	AddVisualGear:= nil;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	111	exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	112	end;
1642 177b440773de Disable visual gears when quick replaying unc0rr parents: 1505 diff changeset	113
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	114	if ((cReducedQuality and rqFancyBoom) <> 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	115	not Critical and
3447 2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	116	not (Kind in
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	117	[vgtTeamHealthSorter,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	118	vgtSmallDamageTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	119	vgtSpeechBubble,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	120	vgtHealthTag,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	121	vgtExplosion,
2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	122	vgtSmokeTrace,
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	123	vgtEvilTrace,
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	124	vgtNote]) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	125	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	126	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	127	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	128	end;
1812 3d4692e825e7 'Reduce quality' patch by nemo unc0rr parents: 1801 diff changeset	129
4422 5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation nemo parents: 4420 diff changeset	130	inc(VGCounter);
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	131	New(gear);
ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	132	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	133	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	134	gear^.Y:= real(Y);
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	135	gear^.Kind := Kind;
ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	136	gear^.doStep:= doStepHandlers[Kind];
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	137	gear^.State:= 0;
3475 95345f98da19 Engine: smxx parents: 3447 diff changeset	138	gear^.Tint:= $FFFFFFFF;
4422 5e8cfef25ccb add a uid to VGs for purpose of Lua manipulation nemo parents: 4420 diff changeset	139	gear^.uid:= VGCounter;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	140
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	141	with gear^ do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	142	case Kind of
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	143	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	144	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	145	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	146	tdY:= 0;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	147	FrameTicks:= random(vobFrameTicks);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	148	Frame:= random(vobFramesCount);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	149	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	150	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	151	dy:= 0.000003506096 * random(7000);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	152	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	153	dAngle:= (random(2) * 2 - 1) * (1 + random) * vobVelocity / 1000
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	154	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	155	vgtCloud: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	156	Frame:= random(4);
3994 486da687d76a fix/tweak let clouds reflect wind speed and direction again + stronger sheepluva parents: 3976 diff changeset	157	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	158	timer:= random(4096);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	159	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	160	vgtExplPart,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	161	vgtExplPart2: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	162	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	163	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	164	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	165	dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	166	if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	167	if random(2) = 0 then dy := -dy;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	168	Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	169	FrameTicks:= cExplFrameTicks
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	vgtFire: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	172	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	173	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	174	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	175	dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	176	if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	177	if random(2) = 0 then dy := -dy;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	178	FrameTicks:= 650 + random(250);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	179	Frame:= random(8)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	180	end;
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	181	vgtEgg: begin
831bd0f7050d Engine: smxx parents: 3096 diff changeset	182	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	183	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	184	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	185	dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	186	if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	187	if random(2) = 0 then dy := -dy;
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	188	FrameTicks:= 650 + random(250);
831bd0f7050d Engine: smxx parents: 3096 diff changeset	189	Frame:= 1
831bd0f7050d Engine: smxx parents: 3096 diff changeset	190	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	191	vgtShell: FrameTicks:= 500;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	192	vgtSmallDamageTag: begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	193	gear^.FrameTicks:= 1100
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	194	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	195	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	196	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	197	dy:= 0;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	198	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	199	FrameTicks:= 250 + random(1751);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	200	Frame:= random(5)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	201	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	202	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	203	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	204	dy:= 0.001 * (random(85) + 95);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	205	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	206	Frame:= 7 - random(3);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	207	FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	208	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	209	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	210	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	211	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	212	end;
3697 d5b30d6373fc remove trailing spaces from end of line koda parents: 3689 diff changeset	213	vgtSmokeWhite,
2713 71250942e95b Palewolf's smoke traces for fire. nemo parents: 2699 diff changeset	214	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	215	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	216	dy:= 0.0002 * (random(45) + 10);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	217	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	218	Frame:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	219	FrameTicks:= cExplFrameTicks * 2;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	220	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	221	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	222	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	223	dy:= 0.001 * (random(20) + 25);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	224	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	225	Frame:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	226	FrameTicks:= random(750) + 1250;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	227	end;
2848 8a1725b4f724 Engine: smxx parents: 2827 diff changeset	228	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	229	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	230	dy:= 0.001 * (random(40) + 20);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	231	if random(2) = 0 then dx := -dx;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	232	Frame:= 7 - random(2);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	233	FrameTicks:= random(20) + 15;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	234	end;
2974 f3fa665f0874 Engine: smxx parents: 2972 diff changeset	235	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	236	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	237	dy:= 0;
2974 f3fa665f0874 Engine: smxx parents: 2972 diff changeset	238	FrameTicks:= 740;
f3fa665f0874 Engine: smxx parents: 2972 diff changeset	239	Frame:= 19;
f3fa665f0874 Engine: smxx parents: 2972 diff changeset	240	end;
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	241	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	242	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	243	dy:= -0.001 * (random(80) + 120);
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	244	if random(2) = 0 then dx := -dx;
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	245	FrameTicks:= 250 + random(1751);
4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	246	Frame:= random(3)
4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	247	end;
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	248	vgtBeeTrace: begin
b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	249	FrameTicks:= 1000;
b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	250	Frame:= random(16);
b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	251	end;
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	252	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	253	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	254	dy:= 0;
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	255	FrameTicks:= 600;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	256	Timer:= 0;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	257	Frame:= 0;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	258	scale:= 0.6;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	259	alpha:= 1;
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	260	angle:= random(360);
9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	261	end;
3145 a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	262	vgtFeather: begin
a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	263	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	264	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	265	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	266	dy:= AngleCos(t).QWordValue/4294967296 * sp;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	267	if random(2) = 0 then dx := -dx;
978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	268	if random(2) = 0 then dy := -dy;
3145 a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	269	FrameTicks:= 650 + random(250);
a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	270	Frame:= 1
a9af6bf223cf Birdy's falling feathers mbait parents: 3118 diff changeset	271	end;
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	272	vgtHealthTag: begin
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	273	gear^.Timer:= 1500;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	274	//gear^.Z:= 2002;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	275	end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	276	vgtSmokeTrace,
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	277	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	278	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	279	gear^.Y:= gear^.Y - 16;
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	280	gear^.State:= 8;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	281	//gear^.Z:= cSmokeZ
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	282	end;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	283	vgtBigExplosion: begin
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	284	gear^.Angle:= random(360);
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	285	end;
3689 e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	286	vgtChunk: begin
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	287	gear^.Frame:= random(4);
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	288	t:= random(1024);
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	289	sp:= 0.001 * (random(85) + 47);
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	290	dx:= AngleSin(t).QWordValue/4294967296 * sp;
3706 a79784328c03 Engine: smaxx parents: 3704 diff changeset	291	dy:= AngleCos(t).QWordValue/4294967296 * sp * -2;
3689 e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	292	if random(2) = 0 then dx := -dx;
e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	293	end;
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	294	vgtNote: begin
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	295	dx:= 0.005 * (random(15) + 10);
3706 a79784328c03 Engine: smaxx parents: 3704 diff changeset	296	dy:= -0.001 * (random(40) + 20);
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	297	if random(2) = 0 then dx := -dx;
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	298	Frame:= random(4);
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	299	FrameTicks:= random(2000) + 1500;
ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	300	end;
4327 224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	301	vgtBulletHit: begin
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	302	dx:= 0;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	303	dy:= 0;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	304	FrameTicks:= 350;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	305	Frame:= 7;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	306	Angle := 0;
224efdd648e1 Small animation on bullet impact Palewolf parents: 4279 diff changeset	307	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	308	end;
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	309
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	310	if State <> 0 then gear^.State:= State;
dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3420 diff changeset	311
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	312	if VisualGearsList <> nil then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	313	begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	314	VisualGearsList^.PrevGear:= gear;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	315	gear^.NextGear:= VisualGearsList
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	316	end;
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	317	VisualGearsList:= gear;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	318
2695 ed789a7ef68d makes freepascal code compatible with OBJFPC mode koda parents: 2671 diff changeset	319	AddVisualGear:= gear;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	320	end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	321
1041 362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	322	procedure DeleteVisualGear(Gear: PVisualGear);
362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	323	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	324	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	325	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	326	Gear^.Tex:= nil;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1132 diff changeset	327
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	328	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	329	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	330	else VisualGearsList:= Gear^.NextGear;
1041 362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	331
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	332	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	333
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	334	Dispose(Gear);
1041 362b95d49cf4 - Fix previous commit unc0rr parents: 945 diff changeset	335	end;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	336
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	337	procedure ProcessVisualGears(Steps: Longword);
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	338	var Gear, t: PVisualGear;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	339	begin
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	340	if Steps = 0 then exit;
3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	341
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	342	t:= VisualGearsList;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	343	while t <> nil do
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	344	begin
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	345	Gear:= t;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	346	t:= Gear^.NextGear;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	347	Gear^.doStep(Gear, Steps)
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	348	end
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	349	end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	350
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	351	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	352	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	353	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	354	begin
3641 98319a621dc8 save the gl client state to get a nice 80% fps boost koda parents: 3616 diff changeset	355	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	356	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	357	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	358	begin
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	359	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	360	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	361	begin
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	362	// 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	363	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	364	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	365	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	366	Gear^.tdX:= 0.02 * dmg + 0.01;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	367	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	368	Gear^.tdY:= 0.02 * dmg + 0.01;
3597 978c30ef50fc visual gears: fixing nemo's c-style assignment/multiplications sheepluva parents: 3594 diff changeset	369	if Gear^.Y - Y < 0 then Gear^.tdY := -Gear^.tdY;
2986 c0c91cd3f423 Trying to tweak kicks a bit nemo parents: 2985 diff changeset	370	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	371	end
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	372	end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	373	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	374	end
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	375	end;
d268a7fbb868 Kick flakes a bit when an explosion is nearby. Needs testing / review by those more artistically inclined nemo parents: 2982 diff changeset	376
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1041 diff changeset	377	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	378	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	379	tinted: boolean;
4545 180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	380	tmp: real;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	381	begin
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	382	Gear:= VisualGearsList;
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1041 diff changeset	383	case Layer of
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	384	0: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	385	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	386	if Gear^.Tint <> $FFFFFFFF then Tint(Gear^.Tint);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	387	case Gear^.Kind of
3641 98319a621dc8 save the gl client state to get a nice 80% fps boost koda parents: 3616 diff changeset	388	vgtFlake: if vobVelocity = 0 then
4748 ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	389	if SuddenDeathDmg then
ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	390	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	391	else
ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	392	DrawSprite(sprFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame)
3641 98319a621dc8 save the gl client state to get a nice 80% fps boost koda parents: 3616 diff changeset	393	else
4748 ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	394	if SuddenDeathDmg then
ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	395	DrawRotatedF(sprSDFlake, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy + SkyOffset, Gear^.Frame, 1, Gear^.Angle)
ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	396	else
ce9b48de1f52 sudden death, now with visual and audial effects :D Henek parents: 4546 diff changeset	397	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	398	vgtCloud: if SuddenDeathDmg then
02370ca8e92c sudden death: now having theme support, still some work though with config Henek parents: 4748 diff changeset	399	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	400	else
02370ca8e92c sudden death: now having theme support, still some work though with config Henek parents: 4748 diff changeset	401	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	402	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	403	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	404	Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	405	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	406	1: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	407	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	408	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	409	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	410	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	411	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	412	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	413	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));
4521 96066d42c3f9 Add override for speech bubble position 0: default, 1: background/translucent 2: foreground/opaque nemo parents: 4475 diff changeset	414	vgtSpeechBubble: if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team <> CurrentTeam)) or (Gear^.State = 1)) then
4465 743673c67d0c Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number. nemo parents: 4452 diff changeset	415	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	416	tinted:= true;
4465 743673c67d0c Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number. nemo parents: 4452 diff changeset	417	Tint($FF, $FF, $FF, $66);
743673c67d0c Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number. nemo parents: 4452 diff changeset	418	DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
743673c67d0c Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number. nemo parents: 4452 diff changeset	419	end
3447 2f1c2b7215e6 make some of the newly migrated visual gears visible in reduced quality mode sheepluva parents: 3443 diff changeset	420	end;
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	421	if (cReducedQuality and rqFancyBoom) = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	422	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	423	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	424	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	425	vgtDust: DrawSprite(sprDust, round(Gear^.X) + WorldDx - 11, round(Gear^.Y) + WorldDy - 11, 7 - Gear^.Frame);
3148 3e28a12be5ac Feather: sprites was moved to another layer mbait parents: 3145 diff changeset	426	vgtFeather: begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	427	if Gear^.FrameTicks < 255 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	428	begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	429	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	430	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	431	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	432	DrawRotatedF(sprFeather, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
3148 3e28a12be5ac Feather: sprites was moved to another layer mbait parents: 3145 diff changeset	433	end;
3443 14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully sheepluva parents: 3440 diff changeset	434	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	435	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	436	Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	437	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	438	2: while Gear <> nil do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	439	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	440	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	441	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	442	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	443	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	444	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	445	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	446	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	447	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	448	end;
14d12df0d363 finishing the gtHealthTag -> vgtHealthTag, no segfaults and hogzombies no more, hopefully sheepluva parents: 3440 diff changeset	449	end;
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	450	if (cReducedQuality and rqFancyBoom) = 0 then
2047 805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality" nemo parents: 2045 diff changeset	451	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	452	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	453	vgtExplPart2: DrawSprite(sprExplPart2, round(Gear^.X) + WorldDx - 16, round(Gear^.Y) + WorldDy - 16, 7 - Gear^.Frame);
3751 a70c61c076ae Engine: smaxx parents: 3706 diff changeset	454	vgtFire: if (Gear^.State and gstTmpFlag) = 0 then
a70c61c076ae Engine: smaxx parents: 3706 diff changeset	455	DrawSprite(sprFlame, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy, (RealTicks shr 6 + Gear^.Frame) mod 8)
a70c61c076ae Engine: smaxx parents: 3706 diff changeset	456	else
a70c61c076ae Engine: smaxx parents: 3706 diff changeset	457	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);
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	458	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	459	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	460	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	461	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	462	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	463	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	464	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	465	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	466	vgtHealth: 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	467	tinted:= true;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	468	case Gear^.Frame div 10 of
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	469	0:Tint(0, $FF, 0, round(Gear^.FrameTicks * $FF / 1000));
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	470	1:Tint($FF, 0, 0, round(Gear^.FrameTicks * $FF / 1000));
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	471	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	472	DrawSprite(sprHealth, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, 0);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	473	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	474	vgtShell: begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	475	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	476	begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	477	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	478	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	479	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	480	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	481	end;
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	482	vgtEgg: begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	483	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	484	begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	485	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	486	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	487	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	488	DrawRotatedF(sprEgg, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
3115 831bd0f7050d Engine: smxx parents: 3096 diff changeset	489	end;
4782 603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated Henek parents: 4780 diff changeset	490	vgtSplash: if SuddenDeathDmg then
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated Henek parents: 4780 diff changeset	491	DrawSprite(sprSDSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37))
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated Henek parents: 4780 diff changeset	492	else
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated Henek parents: 4780 diff changeset	493	DrawSprite(sprSplash, round(Gear^.X) + WorldDx - 40, round(Gear^.Y) + WorldDy - 58, 19 - (Gear^.FrameTicks div 37));
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated Henek parents: 4780 diff changeset	494	vgtDroplet: if SuddenDeathDmg then
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated Henek parents: 4780 diff changeset	495	DrawSprite(sprSDDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame)
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated Henek parents: 4780 diff changeset	496	else
603916ddf4b6 added also splash and droplets to sd and refactored theme.cfg, not all themes updated Henek parents: 4780 diff changeset	497	DrawSprite(sprDroplet, round(Gear^.X) + WorldDx - 8, round(Gear^.Y) + WorldDy - 8, Gear^.Frame);
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	498	vgtBeeTrace: begin
3376 faee68a28b82 Engine: smxx parents: 3326 diff changeset	499	if Gear^.FrameTicks < $FF then
faee68a28b82 Engine: smxx parents: 3326 diff changeset	500	Tint($FF, $FF, $FF, Gear^.FrameTicks div 2)
3080 b7fa8ad60e3b Engine: smxx parents: 3062 diff changeset	501	else
3390 1d4926d10a9e Engine: smxx parents: 3376 diff changeset	502	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	503	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	504	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	505	end;
3032 9c190d3c165b Insert commit message here palewolf parents: 2986 diff changeset	506	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	507	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	508	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	509	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	510	end;
3689 e2be39ee19f0 Engine: smaxx parents: 3641 diff changeset	511	vgtChunk: DrawRotatedF(sprChunk, round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Frame, 1, Gear^.Angle);
3704 ed2b9c7fb260 Engine: smaxx parents: 3697 diff changeset	512	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	513	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	514	end;
805f7b62cff6 Allow speech bubble/small damage tags in "reduced quality" nemo parents: 2045 diff changeset	515	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	516	vgtSmallDamageTag: DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
4521 96066d42c3f9 Add override for speech bubble position 0: default, 1: background/translucent 2: foreground/opaque nemo parents: 4475 diff changeset	517	vgtSpeechBubble: if (Gear^.Tex <> nil) and (((Gear^.State = 0) and (Gear^.Hedgehog^.Team = CurrentTeam)) or (Gear^.State = 2)) then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
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	518	vgtHealthTag: if Gear^.Tex <> nil then DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex);
4545 180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	519	vgtCircle: if gear^.Angle = 1 then
180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	520	begin
180d703cfdd0 offset the sprite nemo parents: 4544 diff changeset	521	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	522	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	523	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	524	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	525	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	526	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	527	Gear:= Gear^.NextGear
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	528	end
4452 258945553b18 make Tint(longword) use RGBA nemo parents: 4451 diff changeset	529	end;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	530	end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	531
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	532	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	533	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	534	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	535	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	536	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	537	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	538	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	539	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	540	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	541	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	542	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	543	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	544	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	545	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	546	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	547	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	548	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	549	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	550	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	551	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	552	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	553	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	554
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	555	procedure AddClouds;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	556	var i: LongInt;
803 3f73901a350a - Use cloud as 'visual gear' unc0rr parents: 802 diff changeset	557	begin
1132 b4c0698fbb6b - Fix problem when clouds number is 0 unc0rr parents: 1079 diff changeset	558	for i:= 0 to cCloudsNumber - 1 do
3764 eb91c02f2d84 Engine: smaxx parents: 3754 diff changeset	559	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	560	end;
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	561
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	562	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	563	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	564	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	565	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	566	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	567	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	568	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	569	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	570	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	571	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	572	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	573	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	574	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	575	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	576	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	577	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	578	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	579
3038 4e48c276a468 In pascal unit is a namespace unc0rr parents: 3032 diff changeset	580	procedure initModule;
2699 249adefa9c1c replace initialization/finalization statements with custom init functions koda parents: 2695 diff changeset	581	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2941 diff changeset	582	VisualGearsList:= nil;
2699 249adefa9c1c replace initialization/finalization statements with custom init functions koda parents: 2695 diff changeset	583	end;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	584
3038 4e48c276a468 In pascal unit is a namespace unc0rr parents: 3032 diff changeset	585	procedure freeModule;
2715 0e4e0db79e2a Free up some unfreed memory. Needed for Koda's iphone lib work nemo parents: 2713 diff changeset	586	begin
3615 b78d7959540a further code cleanup and less redundancy koda parents: 3611 diff changeset	587	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	588	end;
802 ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	589
ed5450a89b96 Start implementing 'visual gears' - gears, that don't need to be synchronized (clouds and flakes) unc0rr parents: diff changeset	590	end.

author	koda
	Fri, 31 Dec 2010 03:29:41 +0100
changeset 4793	5ea3d182415e
parent 4792	68f9b331014a
child 4806	48c1a395f0a7
permissions	-rw-r--r--