(*

 *  PascalExports.pas

 *  hwengine

 *

 *  Created by Vittorio on 09/01/10.

 *  Copyright 2009 __MyCompanyName__. All rights reserved.

 *

 *)

{$INCLUDE "options.inc"}

unit PascalExports;

interface

uses uKeys, uConsole;

{$IFDEF IPHONEOS}

// called by pascal code, they deal with the objc code

function  IPH_getDocumentsPath: PChar; cdecl; external;

procedure IPH_showControls; cdecl; external;

// called by the touch functions (SDL_uikitview.m)

// they emulate user interaction from mouse or keyboard

procedure HW_click; cdecl; export;

procedure HW_zoomIn; cdecl; export;

procedure HW_zoomOut; cdecl; export;

procedure HW_zoomReset; cdecl; export;

procedure HW_ammoMenu; cdecl; export;

procedure HW_allKeysUp; cdecl; export;

procedure HW_walkLeft; cdecl; export;

procedure HW_walkRight; cdecl; export;

procedure HW_aimUp; cdecl; export;

procedure HW_aimDown; cdecl; export;

procedure HW_shoot; cdecl; export;

procedure HW_whereIsHog; cdecl; export;

{$ENDIF}

implementation

{$IFDEF IPHONEOS}

procedure HW_click; cdecl; export;

begin

	WriteLnToConsole('HW - left click');

	leftClick:= true;

	exit

end;

procedure HW_zoomIn; cdecl; export;

begin

	WriteLnToConsole('HW - zooming in');

	wheelUp:= true;

	exit

end;

procedure HW_zoomOut; cdecl; export;

begin

	WriteLnToConsole('HW - zooming out');

	wheelDown:= true;

	exit

end;

procedure HW_zoomReset; cdecl; export;

begin

	WriteLnToConsole('HW - reset zoom');

	middleClick:= true;

	exit

end;

procedure HW_ammoMenu; cdecl; export;

begin

	WriteLnToConsole('HW - right click');

	rightClick:= true;

	exit

end;

procedure HW_allKeysUp; cdecl; export;

begin

	WriteLnToConsole('HW - resetting keyboard');

	upKey:= false;

	downKey:= false;

	leftKey:= false;

	rightKey:= false;

	spaceKey:= false;

	exit

end;

procedure HW_walkLeft; cdecl; export;

begin

	WriteLnToConsole('HW - walking left');

	leftKey:= true;

	exit

end;

procedure HW_walkRight; cdecl; export;

begin

	WriteLnToConsole('HW - walking right');

	rightKey:= true;

	exit

end;

procedure HW_aimUp; cdecl; export;

begin

	WriteLnToConsole('HW - aiming upwards');

	upKey:= true;

	exit

end;

procedure HW_aimDown; cdecl; export;

begin

	WriteLnToConsole('HW - aiming downwards');

	downKey:= true;

	exit

end;

procedure HW_shoot; cdecl; export;

begin

	WriteLnToConsole('HW - shooting');

	spaceKey:= true;

	exit

end;

procedure HW_whereIsHog; cdecl; export;

var Xcoord, Ycoord: LongInt;

begin

	//Xcoord:= Gear^.dX + WorldDx;

	WriteLnToConsole('HW - hog is at x: ' + ' y:');

	exit

end;

{$ENDIF}

end.