2
* Hedgewars, a free turn based strategy game
3
* Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>
5
* This program is free software; you can redistribute it and/or modify
6
* it under the terms of the GNU General Public License as published by
7
* the Free Software Foundation; version 2 of the License
9
* This program is distributed in the hope that it will be useful,
10
* but WITHOUT ANY WARRANTY; without even the implied warranty of
11
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
* GNU General Public License for more details.
14
* You should have received a copy of the GNU General Public License
15
* along with this program; if not, write to the Free Software
16
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19
{$INCLUDE "options.inc"}
25
(* iOS calls written in ObjcExports.m *)
26
procedure clearView; cdecl; external;
27
procedure startSpinning; cdecl; external;
28
procedure stopSpinning; cdecl; external;
29
procedure replayBegan; cdecl; external;
30
procedure replayFinished; cdecl; external;
31
procedure updateVisualsNewTurn; cdecl; external;
32
function isApplePhone: Boolean; cdecl; external;
33
procedure AudioServicesPlaySystemSound(num: LongInt); cdecl; external;
35
function isPhone: Boolean; inline;
36
procedure performRumble; inline;
37
procedure perfExt_AddProgress; inline;
38
procedure perfExt_FinishProgress; inline;
39
procedure perfExt_AmmoUpdate; // don't inline
40
procedure perfExt_NewTurnBeginning; inline;
41
procedure perfExt_SaveBeganSynching; inline;
42
procedure perfExt_SaveFinishedSynching; inline;
45
uses uTeams, uConsole;
47
function isPhone: Boolean; inline;
55
procedure performRumble; inline;
58
// kSystemSoundID_Vibrate = $00000FFF
59
AudioServicesPlaySystemSound($00000FFF);
63
procedure perfExt_AddProgress; inline;
70
procedure perfExt_FinishProgress; inline;
77
procedure perfExt_AmmoUpdate; // don't inline
80
if (CurrentTeam^.ExtDriven) or (CurrentTeam^.Hedgehogs[0].BotLevel <> 0) then
81
exit(); // the other way around throws a compiler error
82
updateVisualsNewTurn();
86
procedure perfExt_NewTurnBeginning; inline;
94
procedure perfExt_SaveBeganSynching; inline;
101
procedure perfExt_SaveFinishedSynching; inline;