hedgewars: hedgewars/PascalExports.pas@38d3e31556d3 (annotated)

2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	1	(*
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	2	* PascalExports.pas
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	3	* hwengine
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	4	*
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	5	* Created by Vittorio on 09/01/10.
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	6	* Copyright 2009 __MyCompanyName__. All rights reserved.
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	7	*
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	8	*)
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	9
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	10
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	11	{$INCLUDE "options.inc"}
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	12
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	13	unit PascalExports;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	14
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	15	interface
3551 d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	16	uses uKeys, GLunit, uWorld, uMisc, uConsole, hwengine;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	17
2924 908851e59958 Engine: smxx parents: 2905 diff changeset	18	{$INCLUDE "config.inc"}
2691 c0da3a98c01c initial support for engine protocol koda parents: 2690 diff changeset	19
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	20	implementation
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	21
2803 1f446fc5c8ec allow to compile engine as library with HWLIBRARY symbol koda parents: 2799 diff changeset	22	{$IFDEF HWLIBRARY}
3635 38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	23	var xx, yy: LongInt;
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	24
3063 0092dc37fbd6 reworked interaction of engine/frontend when closing koda parents: 3040 diff changeset	25	// retrieve protocol information
3245 252be02536ab fix an error in passing strings between ObjC and Pascal koda parents: 3063 diff changeset	26	procedure HW_versionInfo(netProto: PShortInt; versionStr: Ppchar); cdecl; export;
2691 c0da3a98c01c initial support for engine protocol koda parents: 2690 diff changeset	27	begin
3245 252be02536ab fix an error in passing strings between ObjC and Pascal koda parents: 3063 diff changeset	28	// http://bugs.freepascal.org/view.php?id=16156
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	29	if netProto <> nil then netProto^:= cNetProtoVersion;
3245 252be02536ab fix an error in passing strings between ObjC and Pascal koda parents: 3063 diff changeset	30	if versionStr <> nil then versionStr^:= cVersionString;
2691 c0da3a98c01c initial support for engine protocol koda parents: 2690 diff changeset	31	end;
c0da3a98c01c initial support for engine protocol koda parents: 2690 diff changeset	32
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	33	procedure HW_click; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	34	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	35	leftClick:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	36	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	37
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	38	procedure HW_zoomIn; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	39	begin
3523 6592fbb969da fix zoom smoothness koda parents: 3463 diff changeset	40	if wheelDown = false then
6592fbb969da fix zoom smoothness koda parents: 3463 diff changeset	41	wheelUp:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	42	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	43
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	44	procedure HW_zoomOut; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	45	begin
3523 6592fbb969da fix zoom smoothness koda parents: 3463 diff changeset	46	if wheelUp = false then
6592fbb969da fix zoom smoothness koda parents: 3463 diff changeset	47	wheelDown:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	48	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	49
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	50	procedure HW_zoomReset; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	51	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	52	middleClick:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	53	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	54
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	55	procedure HW_ammoMenu; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	56	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	57	rightClick:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	58	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	59
3626 19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	60	procedure HW_walkingKeysUp; cdecl; export;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	61	begin
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	62	leftKey:= false;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	63	rightKey:= false;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	64	upKey:= false;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	65	downKey:= false;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	66	end;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	67
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	68	procedure HW_otherKeysUp; cdecl; export;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	69	begin
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	70	spaceKey:= false;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	71	enterKey:= false;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	72	backspaceKey:= false;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	73	end;
19f78afa0188 fix the multitouch shooting and moving koda parents: 3551 diff changeset	74
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	75	procedure HW_allKeysUp; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	76	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	77	// set all keys to released
3040 3e7f4a30e18a Insert commit message here (to get along with palewolf) koda parents: 3015 diff changeset	78	uKeys.initModule;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	79	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	80
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	81	procedure HW_walkLeft; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	82	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	83	leftKey:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	84	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	85
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	86	procedure HW_walkRight; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	87	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	88	rightKey:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	89	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	90
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	91	procedure HW_aimUp; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	92	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	93	upKey:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	94	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	95
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	96	procedure HW_aimDown; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	97	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	98	downKey:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	99	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	100
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	101	procedure HW_shoot; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	102	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	103	spaceKey:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	104	end;
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	105
3015 20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	106	procedure HW_jump; cdecl; export;
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	107	begin
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	108	enterKey:= true;
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	109	end;
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	110
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	111	procedure HW_backjump; cdecl; export;
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	112	begin
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	113	backspaceKey:= true;
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	114	end;
20a9c8160e82 add jump and backjump controls koda parents: 2948 diff changeset	115
2754 ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat koda parents: 2716 diff changeset	116	procedure HW_chat; cdecl; export;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat koda parents: 2716 diff changeset	117	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	118	chatAction:= true;
2754 ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat koda parents: 2716 diff changeset	119	end;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat koda parents: 2716 diff changeset	120
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat koda parents: 2716 diff changeset	121	procedure HW_tab; cdecl; export;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat koda parents: 2716 diff changeset	122	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	123	switchAction:= true;
2754 ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat koda parents: 2716 diff changeset	124	end;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat koda parents: 2716 diff changeset	125
2805 36a8cebb91e8 new menupage ingame for common actions koda parents: 2803 diff changeset	126	procedure HW_pause; cdecl; export;
36a8cebb91e8 new menupage ingame for common actions koda parents: 2803 diff changeset	127	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2924 diff changeset	128	pauseAction:= true;
2805 36a8cebb91e8 new menupage ingame for common actions koda parents: 2803 diff changeset	129	end;
36a8cebb91e8 new menupage ingame for common actions koda parents: 2803 diff changeset	130
3347 5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	131	procedure HW_cursorUp(coefficient:LongInt); cdecl; export;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	132	begin
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	133	coeff:= coefficient;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	134	cursorUp:= true;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	135	end;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	136
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	137	procedure HW_cursorDown(coefficient:LongInt); cdecl; export;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	138	begin
3347 5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	139	coeff:= coefficient;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	140	cursorDown:= true;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	141	end;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	142
3347 5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	143	procedure HW_cursorLeft(coefficient:LongInt); cdecl; export;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	144	begin
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	145	coeff:= coefficient;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	146	cursorLeft:= true;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	147	end;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	148
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	149	procedure HW_cursorRight(coefficient:LongInt); cdecl; export;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	150	begin
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	151	coeff:= coefficient;
5d0ac8197eb7 camera panning ftw koda parents: 3245 diff changeset	152	cursorRight:= true;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	153	end;
3063 0092dc37fbd6 reworked interaction of engine/frontend when closing koda parents: 3040 diff changeset	154
0092dc37fbd6 reworked interaction of engine/frontend when closing koda parents: 3040 diff changeset	155	procedure HW_terminate(closeFrontend: boolean); cdecl; export;
0092dc37fbd6 reworked interaction of engine/frontend when closing koda parents: 3040 diff changeset	156	begin
0092dc37fbd6 reworked interaction of engine/frontend when closing koda parents: 3040 diff changeset	157	isTerminated:= true;
0092dc37fbd6 reworked interaction of engine/frontend when closing koda parents: 3040 diff changeset	158	if closeFrontend then alsoShutdownFrontend:= true;
0092dc37fbd6 reworked interaction of engine/frontend when closing koda parents: 3040 diff changeset	159	end;
3395 095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	160
095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	161	procedure HW_setLandscape(landscape: boolean); cdecl; export;
095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	162	begin
095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	163	if landscape then
095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	164	begin
3463 23c50be687a9 update sdl functions to latest revision koda parents: 3405 diff changeset	165	cOffsetY:= 0;
3395 095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	166	end
095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	167	else
095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	168	begin
3463 23c50be687a9 update sdl functions to latest revision koda parents: 3405 diff changeset	169	cOffsetY:= 120;
3395 095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	170	end;
095273ad0e08 adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits) koda parents: 3347 diff changeset	171	end;
3551 d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	172
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	173	procedure HW_setCursor(x,y: LongInt); cdecl; export;
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	174	begin
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	175	CursorPoint.X:= x;
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	176	CursorPoint.Y:= y;
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	177	end;
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	178
3635 38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	179	procedure HW_saveCursor(reset: boolean); cdecl; export;
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	180	begin
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	181	if reset then
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	182	begin
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	183	CursorPoint.X:= xx;
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	184	CursorPoint.Y:= yy;
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	185	end
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	186	else
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	187	xx:= CursorPoint.X;
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	188	yy:= CursorPoint.Y;
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	189	end;
38d3e31556d3 improvements to touch interface (tap to select weap, don't move camera for spourious taps, ask for confirmation when using click-weapons) koda parents: 3626 diff changeset	190
3551 d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	191	function HW_isAmmoOpen:boolean; cdecl; export;
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	192	begin
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	193	exit(bShowAmmoMenu);
d4de36b3801a moar zoom, fixed fort mode, other glitches koda parents: 3523 diff changeset	194	end;
2690 8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	195	{$ENDIF}
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	196
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	197	end.
8e83c7e31720 move mixed functions in PascalExports koda parents: diff changeset	198

author	koda
	Sat, 10 Jul 2010 18:42:47 +0200
changeset 3635	38d3e31556d3
parent 3626	19f78afa0188
child 3637	0db298524c3d
permissions	-rw-r--r--