hedgewars: hedgewars/uTouch.pas@9d66611e4d0a (annotated)

5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	1	{$INCLUDE "options.inc"}
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	2
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	3	unit uTouch;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	4
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	5	interface
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	6
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	7	uses sysutils, math, uConsole, uVariables, SDLh, uTypes, uFloat, uConsts, uIO, uCommands, GLUnit, uCommandHandlers;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	8
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	9	type
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	10	Touch_Finger = record
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	11	id : SDL_FingerId;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	12	x,y : LongInt;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	13	historicalX, historicalY : LongInt;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	14	timeSinceDown : Longword;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	15	end;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	16
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	17	procedure initModule;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	18
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	19
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	20	procedure ProcessTouch;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	21	procedure onTouchDown(x,y: Longword; pointerId: SDL_FingerId);
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	22	procedure onTouchMotion(x,y: Longword; dx,dy: LongInt; pointerId: SDL_FingerId);
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	23	procedure onTouchUp(x,y: Longword; pointerId: SDL_FingerId);
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	24	function convertToCursor(scale: LongInt; xy: LongInt): LongInt;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	25	function addFinger(x,y: Longword; id: SDL_FingerId): Touch_Finger;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	26	procedure deleteFinger(id: SDL_FingerId);
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	27	procedure onTouchClick(finger: Touch_Finger);
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	28
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	29	function findFinger(id: SDL_FingerId): Touch_Finger;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	30	procedure aim(finger: Touch_Finger);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	31	function isOnCurrentHog(finger: Touch_Finger): boolean;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	32	function isOnFireButton(finger: Touch_Finger): boolean;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	33	procedure convertToWorldCoord(var x,y: hwFloat; finger: Touch_Finger);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	34	function fingerHasMoved(finger: Touch_Finger): boolean;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	35	function calculateDelta(finger1, finger2: Touch_Finger): hwFloat;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	36	function getSecondFinger(finger: Touch_Finger): Touch_Finger;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	37	implementation
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	38
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	39	const
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	40	clicktime = 200;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	41	var
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	42	leftButtonBoundary : LongInt;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	43	rightButtonBoundary : LongInt;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	44	topButtonBoundary : LongInt;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	45
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	46	pointerCount : Longword;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	47	fingers: array of Touch_Finger;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	48	moveCursor : boolean;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	49
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	50	//Pinch to zoom
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	51	pinchSize : hwFloat;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	52	baseZoomValue: GLFloat;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	53
5589 b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	54	invertCursor : boolean;
b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	55
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	56	//aiming
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	57	aiming, movingCrosshair: boolean;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	58	crosshairCommand: ShortString;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	59	targetAngle: LongInt;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	60
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	61	stopFiring: boolean;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	62
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	63	//moving
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	64	stopLeft, stopRight, walkingLeft, walkingRight : boolean;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	65	procedure printFinger(finger: Touch_Finger);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	66	begin
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	67	WriteToConsole(Format('id:%d, (%d,%d), (%d,%d), time: %d', [finger.id, finger.x, finger.y, finger.historicalX, finger.historicalY, finger.timeSinceDown]));
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	68	end;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	69
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	70
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	71	procedure onTouchDown(x,y: Longword; pointerId: SDL_FingerId);
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	72	var
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	73	finger: Touch_Finger;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	74	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	75	finger:= addFinger(x,y,pointerId);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	76	finger.x := convertToCursor(cScreenWidth,x);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	77	finger.y := convertToCursor(cScreenHeight,y);
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	78
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	79	printFinger(finger);
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	80	case pointerCount of
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	81	1:
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	82	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	83	moveCursor:= false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	84	if bShowAmmoMenu then
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	85	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	86	moveCursor := true;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	87	exit;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	88	end;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	89
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	90	if isOnCurrentHog(finger) then
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	91	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	92	aiming:= true;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	93	exit;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	94	end;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	95
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	96	if isOnFireButton(finger) then
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	97	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	98	stopFiring:= false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	99	ParseCommand('+attack', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	100	exit;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	101	end;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	102	if finger.x < leftButtonBoundary then
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	103	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	104	ParseCommand('+left', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	105	walkingLeft := true;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	106	exit;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	107	end;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	108	if finger.x > rightButtonBoundary then
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	109	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	110	ParseCommand('+right', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	111	walkingRight:= true;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	112	exit;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	113	end;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	114	if finger.y < topButtonBoundary then
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	115	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	116	ParseCommand('hjump', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	117	exit;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	118	end;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	119	moveCursor:= true;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	120	end;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	121	2:
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	122	begin
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	123	aiming:= false;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	124	stopFiring:= true;
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	125
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	126	pinchSize := calculateDelta(finger, getSecondFinger(finger));
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	127	baseZoomValue := ZoomValue
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	128	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	129	end;//end case pointerCount of
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	130	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	131
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	132	procedure onTouchMotion(x,y: Longword;dx,dy: LongInt; pointerId: SDL_FingerId);
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	133	var
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	134	finger, secondFinger: Touch_Finger;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	135	currentPinchDelta, zoom : hwFloat;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	136	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	137	finger:= findFinger(pointerId);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	138	finger.x := convertToCursor(cScreenWidth, x);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	139	finger.y := convertToCursor(cScreenHeight, y);
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	140
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	141	case pointerCount of
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	142	1:
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	143	begin
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	144	if aiming then
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	145	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	146	aim(finger);
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	147	exit
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	148	end;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	149	if moveCursor then
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	150	if invertCursor then
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	151	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	152	CursorPoint.X := CursorPoint.X - convertToCursor(cScreenWidth,dx);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	153	CursorPoint.Y := CursorPoint.Y + convertToCursor(cScreenWidth,dy);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	154	end
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	155	else
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	156	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	157	CursorPoint.X := CursorPoint.X + convertToCursor(cScreenWidth,dx);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	158	CursorPoint.Y := CursorPoint.Y - convertToCursor(cScreenWidth,dy);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	159	end;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	160	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	161	2:
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	162	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	163	secondFinger := getSecondFinger(finger);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	164	currentPinchDelta := calculateDelta(finger, secondFinger)- pinchSize;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	165	zoom := currentPinchDelta/cScreenWidth;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	166	ZoomValue := baseZoomValue - ((hwFloat2Float(zoom) * cMinMaxZoomLevelDelta));
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	167	if ZoomValue < cMaxZoomLevel then ZoomValue := cMaxZoomLevel;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	168	if ZoomValue > cMinZoomLevel then ZoomValue := cMinZoomLevel;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	169	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	170	end; //end case pointerCount of
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	171	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	172
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	173	procedure onTouchUp(x,y: Longword; pointerId: SDL_FingerId);
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	174	begin
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	175	aiming:= false;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	176	stopFiring:= true;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	177	deleteFinger(pointerId);
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	178
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	179	if walkingLeft then
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	180	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	181	ParseCommand('-left', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	182	walkingLeft := false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	183	end;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	184
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	185	if walkingRight then
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	186	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	187	ParseCommand('-right', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	188	walkingRight := false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	189	end;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	190	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	191
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	192	procedure onTouchClick(finger: Touch_Finger);
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	193	begin
5589 b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	194	if bShowAmmoMenu then
b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	195	begin
b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	196	doPut(CursorPoint.X, CursorPoint.Y, false);
b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	197	exit
b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	198	end;
b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	199
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	200	if isOnCurrentHog(finger) then
5595 480d451152a5 open ammo when clicking the current hog Xeli parents: 5589 diff changeset	201	begin
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	202	bShowAmmoMenu := true;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	203	exit;
5595 480d451152a5 open ammo when clicking the current hog Xeli parents: 5589 diff changeset	204	end;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	205
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	206	if finger.y < topButtonBoundary then
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	207	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	208	ParseCommand('hjump', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	209	exit;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	210	end;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	211	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	212
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	213	function addFinger(x,y: Longword; id: SDL_FingerId): Touch_Finger;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	214	var
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	215	xCursor, yCursor, index : LongInt;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	216	begin
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	217	//Check array sizes
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	218	if length(fingers) < pointerCount then
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	219	begin
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	220	setLength(fingers, length(fingers)*2);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	221	for index := length(fingers) div 2 to length(fingers) do fingers[index].id := -1;
5589 b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	222	end;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	223
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	224
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	225	xCursor := convertToCursor(cScreenWidth, x);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	226	yCursor := convertToCursor(cScreenHeight, y);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	227
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	228	//on removing fingers all fingers are moved to the left, thus new fingers will be to the far right
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	229	//with dynamic arrays being zero based, 'far right' is the old pointerCount
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	230	fingers[pointerCount].id := id;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	231	fingers[pointerCount].historicalX := xCursor;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	232	fingers[pointerCount].historicalY := yCursor;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	233	fingers[pointerCount].x := xCursor;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	234	fingers[pointerCount].y := yCursor;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	235	fingers[pointerCount].timeSinceDown:= SDL_GetTicks;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	236
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	237	inc(pointerCount);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	238	addFinger:= fingers[pointerCount];
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	239	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	240
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	241	procedure deleteFinger(id: SDL_FingerId);
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	242	var
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	243	index : Longint;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	244	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	245
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	246	dec(pointerCount);
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	247	for index := 0 to pointerCount do
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	248	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	249	if fingers[index].id = id then
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	250	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	251	//Check for onTouchevent
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	252	if ((SDL_GetTicks - fingers[index].timeSinceDown) < clickTime) AND not(fingerHasMoved(fingers[index])) then
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	253	onTouchClick(fingers[index]);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	254	fingers[index].id := -1;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	255	break;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	256	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	257	end;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	258	//put the last finger into the spot of the finger to be removed, so that all fingers are packed to the far left
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	259	if fingers[pointerCount].id = -1 then
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	260	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	261	fingers[index] := fingers[pointerCount];
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	262	fingers[pointerCount].id := -1;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	263	end;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	264
5589 b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	265	end;
b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	266
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	267	procedure ProcessTouch;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	268	var
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	269	deltaAngle: LongInt;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	270	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	271	invertCursor := not(bShowAmmoMenu);
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	272	if aiming then
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	273	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	274	if CurrentHedgehog^.Gear <> nil then
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	275	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	276	deltaAngle:= CurrentHedgehog^.Gear^.Angle - targetAngle;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	277	if (deltaAngle <> 0) and not(movingCrosshair) then
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	278	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	279	ParseCommand('+' + crosshairCommand, true);
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	280	movingCrosshair := true;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	281	end
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	282	else
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	283	if movingCrosshair then
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	284	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	285	ParseCommand('-' + crosshairCommand, true);
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	286	movingCrosshair:= false;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	287	end;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	288	end;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	289	end
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	290	else if movingCrosshair then
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	291	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	292	ParseCommand('-' + crosshairCommand, true);
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	293	movingCrosshair := false;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	294	end;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	295
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	296	if stopFiring then
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	297	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	298	ParseCommand('-attack', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	299	stopFiring:= false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	300	end;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	301
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	302	if stopRight then
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	303	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	304	stopRight := false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	305	ParseCommand('-right', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	306	end;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	307
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	308	if stopLeft then
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	309	begin
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	310	stopLeft := false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	311	ParseCommand('-left', true);
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	312	end;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	313
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	314	end;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	315
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	316	function findFinger(id: SDL_FingerId): Touch_Finger;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	317	begin
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	318	for findFinger in fingers do
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	319	if (findFinger.id = -1) and (findFinger.id = id) then break;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	320	end;
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	321
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	322	procedure aim(finger: Touch_Finger);
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	323	var
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	324	hogX, hogY, touchX, touchY, deltaX, deltaY, tmpAngle: hwFloat;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	325	tmp: ShortString;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	326	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	327	if CurrentHedgehog^.Gear <> nil then
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	328	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	329	hogX := CurrentHedgehog^.Gear^.X;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	330	hogY := CurrentHedgehog^.Gear^.Y;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	331
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	332	convertToWorldCoord(touchX, touchY, finger);
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	333	deltaX := hwAbs(TouchX-HogX);
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	334	deltaY := (TouchY-HogY);
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	335
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	336	tmpAngle:= DeltaY / Distance(deltaX, deltaY) *_2048;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	337	targetAngle:= (hwRound(tmpAngle) + 2048) div 2;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	338
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	339	tmp := crosshairCommand;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	340	if CurrentHedgehog^.Gear^.Angle - targetAngle < 0 then crosshairCommand := 'down'
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	341	else crosshairCommand:= 'up';
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	342	if movingCrosshair and (tmp <> crosshairCommand) then
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	343	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	344	ParseCommand('-' + tmp, true);
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	345	movingCrosshair := false;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	346	end;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	347
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	348	end; //if CurrentHedgehog^.Gear <> nil
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	349	end;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	350
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	351	function convertToCursor(scale: LongInt; xy: LongInt): LongInt;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	352	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	353	convertToCursor := round(xy/32768*scale)
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	354	end;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	355
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	356	function isOnFireButton(finger: Touch_Finger): boolean;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	357	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	358	isOnFireButton:= (finger.x < 150) and (finger.y > 390);
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	359	end;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	360
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	361	function isOnCurrentHog(finger: Touch_Finger): boolean;
5595 480d451152a5 open ammo when clicking the current hog Xeli parents: 5589 diff changeset	362	var
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	363	x,y, fingerX, fingerY : hwFloat;
5595 480d451152a5 open ammo when clicking the current hog Xeli parents: 5589 diff changeset	364	begin
480d451152a5 open ammo when clicking the current hog Xeli parents: 5589 diff changeset	365	x := CurrentHedgehog^.Gear^.X;
480d451152a5 open ammo when clicking the current hog Xeli parents: 5589 diff changeset	366	y := CurrentHedgehog^.Gear^.Y;
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	367
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	368	convertToWorldCoord(fingerX, fingerY, finger);
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	369	isOnCurrentHog := Distance(fingerX-x, fingerY-y) < _20;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	370	end;
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	371
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	372	procedure convertToWorldCoord(var x,y: hwFloat; finger: Touch_Finger);
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	373	begin
2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	374	//if x <> nil then
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	375	x := int2hwFloat((finger.x-WorldDx) - (cScreenWidth div 2));
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	376	//if y <> nil then
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	377	y := int2hwFloat(finger.y-WorldDy);
5595 480d451152a5 open ammo when clicking the current hog Xeli parents: 5589 diff changeset	378	end;
480d451152a5 open ammo when clicking the current hog Xeli parents: 5589 diff changeset	379
5589 b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	380	//Method to calculate the distance this finger has moved since the downEvent
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	381	function fingerHasMoved(finger: Touch_Finger): boolean;
5589 b95d10c82f7f Now able to select a weapon Xeli parents: 5579 diff changeset	382	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	383	fingerHasMoved := trunc(sqrt(Power(finger.X-finger.historicalX,2) + Power(finger.y-finger.historicalY, 2))) > 330;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	384	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	385
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	386	function calculateDelta(finger1, finger2: Touch_Finger): hwFloat;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	387	begin
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	388	// calculateDelta := Distance(xyCoord[id22] - xyCoord[id12], xyCoord[id22+1] - xyCoord[id12+1]);
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	389	calculateDelta := int2hwFloat(trunc(sqrt(Power(finger2.x-finger1.x, 2) + Power(finger2.y-finger1.y, 2))));
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	390	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	391
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	392	// Under the premise that all pointer ids in pointerIds:SDL_FingerId are pack to the far left.
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	393	// If the pointer to be ignored is not pointerIds[0] the second must be there
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	394	function getSecondFinger(finger: Touch_Finger): Touch_Finger;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	395	begin
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	396	if fingers[0].id = finger.id then getSecondFinger := fingers[0]
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	397	else getSecondFinger := fingers[1];
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	398	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	399
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	400	procedure initModule;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	401	var
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	402	finger: Touch_Finger;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	403	begin
5599 2e4b90f33a83 aiming fixed, inverted cursor on ammo menu, added equal and isZero function to uFloat, changed the way ammo menu opens, you must now click on the hog rather than anywhere on the screen Xeli parents: 5595 diff changeset	404	movingCrosshair := false;
5605 31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	405	stopFiring:= false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	406	walkingLeft := false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	407	walkingRight := false;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	408
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	409	leftButtonBoundary := cScreenWidth div 4;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	410	rightButtonBoundary := cScreenWidth div 4*3;
31bd6e30df02 Added a hook to uGame which now allows uTouch to take action outside of SDL_Finger* events Xeli parents: 5599 diff changeset	411	topButtonBoundary := cScreenHeight div 6;
5609 9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	412
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	413	setLength(fingers, 5);
9d66611e4d0a Introduced a Touch_Finger type to replace the arrays with coords, makes cleaner code Xeli parents: 5605 diff changeset	414	for finger in fingers do finger.id := -1;
5579 3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	415	end;
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	416
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	417	begin
3176ee8a9d94 uTouch, has cursor move, zoom and click or tap to open the ammo menu Xeli parents: diff changeset	418	end.

author	Xeli
	Fri, 19 Aug 2011 17:21:18 +0200
branch	hedgeroid
changeset 5609	9d66611e4d0a
parent 5605	31bd6e30df02
child 5615	104f69e798bb
permissions	-rw-r--r--