author | koda |
Sat, 17 Jul 2010 06:56:39 +0200 (2010-07-17) | |
changeset 3648 | 2477029463ed |
parent 3638 | 33ee433749ba |
child 3649 | bc35f8fee587 |
permissions | -rw-r--r-- |
2690 | 1 |
(* |
2 |
* PascalExports.pas |
|
3 |
* hwengine |
|
4 |
* |
|
5 |
* Created by Vittorio on 09/01/10. |
|
6 |
* Copyright 2009 __MyCompanyName__. All rights reserved. |
|
7 |
* |
|
8 |
*) |
|
9 |
||
10 |
||
11 |
{$INCLUDE "options.inc"} |
|
12 |
||
13 |
unit PascalExports; |
|
14 |
||
15 |
interface |
|
3648 | 16 |
uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, hwengine; |
2690 | 17 |
|
2924 | 18 |
{$INCLUDE "config.inc"} |
2691 | 19 |
|
2690 | 20 |
implementation |
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 | 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 | 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 | 31 |
end; |
32 |
||
2690 | 33 |
procedure HW_click; cdecl; export; |
34 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
35 |
leftClick:= true; |
2690 | 36 |
end; |
37 |
||
38 |
procedure HW_zoomIn; cdecl; export; |
|
39 |
begin |
|
3523 | 40 |
if wheelDown = false then |
41 |
wheelUp:= true; |
|
2690 | 42 |
end; |
43 |
||
44 |
procedure HW_zoomOut; cdecl; export; |
|
45 |
begin |
|
3523 | 46 |
if wheelUp = false then |
47 |
wheelDown:= true; |
|
2690 | 48 |
end; |
49 |
||
50 |
procedure HW_zoomReset; cdecl; export; |
|
51 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
52 |
middleClick:= true; |
2690 | 53 |
end; |
54 |
||
55 |
procedure HW_ammoMenu; cdecl; export; |
|
56 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
57 |
rightClick:= true; |
2690 | 58 |
end; |
59 |
||
3626 | 60 |
procedure HW_walkingKeysUp; cdecl; export; |
61 |
begin |
|
62 |
leftKey:= false; |
|
63 |
rightKey:= false; |
|
64 |
upKey:= false; |
|
65 |
downKey:= false; |
|
66 |
end; |
|
67 |
||
68 |
procedure HW_otherKeysUp; cdecl; export; |
|
69 |
begin |
|
70 |
spaceKey:= false; |
|
71 |
enterKey:= false; |
|
72 |
backspaceKey:= false; |
|
73 |
end; |
|
74 |
||
2690 | 75 |
procedure HW_allKeysUp; cdecl; export; |
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 | 79 |
end; |
80 |
||
81 |
procedure HW_walkLeft; cdecl; export; |
|
82 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
83 |
leftKey:= true; |
2690 | 84 |
end; |
85 |
||
86 |
procedure HW_walkRight; cdecl; export; |
|
87 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
88 |
rightKey:= true; |
2690 | 89 |
end; |
90 |
||
91 |
procedure HW_aimUp; cdecl; export; |
|
92 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
93 |
upKey:= true; |
2690 | 94 |
end; |
95 |
||
96 |
procedure HW_aimDown; cdecl; export; |
|
97 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
98 |
downKey:= true; |
2690 | 99 |
end; |
100 |
||
101 |
procedure HW_shoot; cdecl; export; |
|
102 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
103 |
spaceKey:= true; |
2690 | 104 |
end; |
105 |
||
3015 | 106 |
procedure HW_jump; cdecl; export; |
107 |
begin |
|
108 |
enterKey:= true; |
|
109 |
end; |
|
110 |
||
111 |
procedure HW_backjump; cdecl; export; |
|
112 |
begin |
|
113 |
backspaceKey:= true; |
|
114 |
end; |
|
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 |
|
3648 | 121 |
procedure HW_chatEnd; cdecl; export; |
122 |
begin |
|
123 |
KeyPressChat(27); // esc - cleans buffer |
|
124 |
KeyPressChat(13); // enter - removes chat |
|
125 |
end; |
|
126 |
||
2754
ad4f81fbfb76
touchinput works, invisible buttons added and initial support for chat
koda
parents:
2716
diff
changeset
|
127 |
procedure HW_tab; cdecl; export; |
ad4f81fbfb76
touchinput works, invisible buttons added and initial support for chat
koda
parents:
2716
diff
changeset
|
128 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
129 |
switchAction:= true; |
2754
ad4f81fbfb76
touchinput works, invisible buttons added and initial support for chat
koda
parents:
2716
diff
changeset
|
130 |
end; |
ad4f81fbfb76
touchinput works, invisible buttons added and initial support for chat
koda
parents:
2716
diff
changeset
|
131 |
|
2805 | 132 |
procedure HW_pause; cdecl; export; |
133 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2924
diff
changeset
|
134 |
pauseAction:= true; |
2805 | 135 |
end; |
136 |
||
3347 | 137 |
procedure HW_cursorUp(coefficient:LongInt); cdecl; export; |
138 |
begin |
|
139 |
coeff:= coefficient; |
|
140 |
cursorUp:= true; |
|
141 |
end; |
|
142 |
||
143 |
procedure HW_cursorDown(coefficient:LongInt); cdecl; export; |
|
2690 | 144 |
begin |
3347 | 145 |
coeff:= coefficient; |
146 |
cursorDown:= true; |
|
147 |
end; |
|
2690 | 148 |
|
3347 | 149 |
procedure HW_cursorLeft(coefficient:LongInt); cdecl; export; |
150 |
begin |
|
151 |
coeff:= coefficient; |
|
152 |
cursorLeft:= true; |
|
153 |
end; |
|
154 |
||
155 |
procedure HW_cursorRight(coefficient:LongInt); cdecl; export; |
|
156 |
begin |
|
157 |
coeff:= coefficient; |
|
158 |
cursorRight:= true; |
|
2690 | 159 |
end; |
3063 | 160 |
|
161 |
procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
|
162 |
begin |
|
163 |
isTerminated:= true; |
|
164 |
if closeFrontend then alsoShutdownFrontend:= true; |
|
165 |
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
|
166 |
|
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 |
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
|
168 |
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
|
169 |
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
|
170 |
begin |
3463 | 171 |
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
|
172 |
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
|
173 |
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
|
174 |
begin |
3463 | 175 |
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
|
176 |
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
|
177 |
end; |
3551 | 178 |
|
179 |
procedure HW_setCursor(x,y: LongInt); cdecl; export; |
|
180 |
begin |
|
181 |
CursorPoint.X:= x; |
|
182 |
CursorPoint.Y:= y; |
|
183 |
end; |
|
184 |
||
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
|
185 |
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
|
186 |
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
|
187 |
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
|
188 |
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
|
189 |
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
|
190 |
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
|
191 |
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
|
192 |
else |
3637
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
193 |
begin |
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
|
194 |
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
|
195 |
yy:= CursorPoint.Y; |
3637
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
196 |
end; |
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
|
197 |
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
|
198 |
|
3637
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
199 |
function HW_isAmmoOpen: boolean; cdecl; export; |
3551 | 200 |
begin |
201 |
exit(bShowAmmoMenu); |
|
202 |
end; |
|
3637
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
203 |
|
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
204 |
function HW_isWeaponRequiringClick: boolean; cdecl; export; |
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
205 |
begin |
3638
33ee433749ba
touch overlay reworked, improvements to zoom and confirmation
koda
parents:
3637
diff
changeset
|
206 |
exit( (CurrentHedgehog^.Gear^.State and gstHHChooseTarget) <> 0 ) |
3637
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
207 |
end; |
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
208 |
|
0db298524c3d
implement the check on the type of ammo requiring a second tap to confirm
koda
parents:
3635
diff
changeset
|
209 |
//amSwitch |
2690 | 210 |
{$ENDIF} |
211 |
||
212 |
end. |
|
213 |