hedgewars: hedgewars/uMobile.pas@634a8c8682de (annotated)

3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	1	(*
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	2	* Hedgewars, a free turn based strategy game
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	3	* Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	4	*
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	5	* This program is free software; you can redistribute it and/or modify
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	6	* it under the terms of the GNU General Public License as published by
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	7	* the Free Software Foundation; version 2 of the License
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	8	*
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	9	* This program is distributed in the hope that it will be useful,
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	10	* but WITHOUT ANY WARRANTY; without even the implied warranty of
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	11	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	12	* GNU General Public License for more details.
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	13	*
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	14	* You should have received a copy of the GNU General Public License
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	15	* along with this program; if not, write to the Free Software
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	16	* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	17	*)
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	18
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	19	{$INCLUDE "options.inc"}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	20
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	21	unit uMobile;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	22	interface
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	23
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	24	{$IFDEF IPHONEOS}
4034 634a8c8682de add some phone rumbling to big explosions, airbomb and sinegun koda parents: 3952 diff changeset	25	(* iOS calls written in ObjcExports.m *)
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	26	procedure clearView; cdecl; external;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	27	procedure startSpinning; cdecl; external;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	28	procedure stopSpinning; cdecl; external;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	29	procedure replayBegan; cdecl; external;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	30	procedure replayFinished; cdecl; external;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	31	procedure updateVisualsNewTurn; cdecl; external;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	32	function isApplePhone: Boolean; cdecl; external;
4034 634a8c8682de add some phone rumbling to big explosions, airbomb and sinegun koda parents: 3952 diff changeset	33	procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	34	{$ENDIF}
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	35	function isPhone: Boolean; inline;
4034 634a8c8682de add some phone rumbling to big explosions, airbomb and sinegun koda parents: 3952 diff changeset	36	procedure performRumble; inline;
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	37	procedure perfExt_AddProgress; inline;
24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	38	procedure perfExt_FinishProgress; inline;
24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	39	procedure perfExt_AmmoUpdate; // don't inline
24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	40	procedure perfExt_NewTurnBeginning; inline;
24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	41	procedure perfExt_SaveBeganSynching; inline;
24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	42	procedure perfExt_SaveFinishedSynching; inline;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	43
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	44	implementation
3952 d6412423da45 moved some utilities to a separate column with round buttons koda parents: 3948 diff changeset	45	uses uTeams, uConsole;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	46
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	47	function isPhone: Boolean; inline;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	48	begin
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	49	{$IFDEF IPHONEOS}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	50	exit(isApplePhone());
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	51	{$ENDIF}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	52	exit(false);
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	53	end;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	54
4034 634a8c8682de add some phone rumbling to big explosions, airbomb and sinegun koda parents: 3952 diff changeset	55	procedure performRumble; inline;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	56	begin
4034 634a8c8682de add some phone rumbling to big explosions, airbomb and sinegun koda parents: 3952 diff changeset	57	{$IFDEF IPHONEOS}
634a8c8682de add some phone rumbling to big explosions, airbomb and sinegun koda parents: 3952 diff changeset	58	// kSystemSoundID_Vibrate = $00000FFF
634a8c8682de add some phone rumbling to big explosions, airbomb and sinegun koda parents: 3952 diff changeset	59	AudioServicesPlaySystemSound($00000FFF);
634a8c8682de add some phone rumbling to big explosions, airbomb and sinegun koda parents: 3952 diff changeset	60	{$ENDIF}
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	61	end;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	62
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	63	procedure perfExt_AddProgress; inline;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	64	begin
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	65	{$IFDEF IPHONEOS}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	66	startSpinning();
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	67	{$ENDIF}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	68	end;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	69
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	70	procedure perfExt_FinishProgress; inline;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	71	begin
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	72	{$IFDEF IPHONEOS}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	73	stopSpinning();
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	74	{$ENDIF}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	75	end;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	76
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	77	procedure perfExt_AmmoUpdate; // don't inline
3935 5ca27a0e9a63 made the new menu toggable koda parents: 3928 diff changeset	78	begin
5ca27a0e9a63 made the new menu toggable koda parents: 3928 diff changeset	79	{$IFDEF IPHONEOS}
3940 cc29628976cc some optimizations to drawing and fetching data of new ammomenu koda parents: 3935 diff changeset	80	if (CurrentTeam^.ExtDriven) or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then
cc29628976cc some optimizations to drawing and fetching data of new ammomenu koda parents: 3935 diff changeset	81	exit(); // the other way around throws a compiler error
3935 5ca27a0e9a63 made the new menu toggable koda parents: 3928 diff changeset	82	updateVisualsNewTurn();
5ca27a0e9a63 made the new menu toggable koda parents: 3928 diff changeset	83	{$ENDIF}
5ca27a0e9a63 made the new menu toggable koda parents: 3928 diff changeset	84	end;
5ca27a0e9a63 made the new menu toggable koda parents: 3928 diff changeset	85
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	86	procedure perfExt_NewTurnBeginning; inline;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	87	begin
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	88	{$IFDEF IPHONEOS}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	89	clearView();
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	90	perfExt_AmmoUpdate();
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	91	{$ENDIF}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	92	end;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	93
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	94	procedure perfExt_SaveBeganSynching; inline;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	95	begin
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	96	{$IFDEF IPHONEOS}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	97	replayBegan();
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	98	{$ENDIF}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	99	end;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	100
3948 24daa33a3114 some rethinking of initial menu presentation and initial orientation (also merging images should be threadsafe now) koda parents: 3940 diff changeset	101	procedure perfExt_SaveFinishedSynching; inline;
3928 2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	102	begin
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	103	{$IFDEF IPHONEOS}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	104	replayFinished();
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	105	{$ENDIF}
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	106	end;
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	107
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	108
2560731c860d move all mobile-related functions in their own module, provides a structure for future mobile ports koda parents: diff changeset	109	end.

author	koda
	Sun, 31 Oct 2010 18:04:02 +0100
changeset 4034	634a8c8682de
parent 3952	d6412423da45
child 4359	83ef50815535
child 4362	8dae325dc625
permissions	-rw-r--r--