hedgewars/PascalExports.pas
author koda
Thu, 08 Jul 2010 23:34:25 +0200
changeset 3631 159bc2fd7f68
parent 3626 19f78afa0188
child 3635 38d3e31556d3
permissions -rw-r--r--
fix land check
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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}
3063
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
    23
// retrieve protocol information
3245
252be02536ab fix an error in passing strings between ObjC and Pascal
koda
parents: 3063
diff changeset
    24
procedure HW_versionInfo(netProto: PShortInt; versionStr: Ppchar); cdecl; export;
2691
c0da3a98c01c initial support for engine protocol
koda
parents: 2690
diff changeset
    25
begin
3245
252be02536ab fix an error in passing strings between ObjC and Pascal
koda
parents: 3063
diff changeset
    26
// http://bugs.freepascal.org/view.php?id=16156
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    27
    if netProto <> nil then netProto^:= cNetProtoVersion;
3245
252be02536ab fix an error in passing strings between ObjC and Pascal
koda
parents: 3063
diff changeset
    28
    if versionStr <> nil then versionStr^:= cVersionString;
2691
c0da3a98c01c initial support for engine protocol
koda
parents: 2690
diff changeset
    29
end;
c0da3a98c01c initial support for engine protocol
koda
parents: 2690
diff changeset
    30
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    31
procedure HW_click; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    32
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    33
    leftClick:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    34
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    35
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    36
procedure HW_zoomIn; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    37
begin
3523
6592fbb969da fix zoom smoothness
koda
parents: 3463
diff changeset
    38
    if wheelDown = false then
6592fbb969da fix zoom smoothness
koda
parents: 3463
diff changeset
    39
        wheelUp:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    40
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    41
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    42
procedure HW_zoomOut; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    43
begin
3523
6592fbb969da fix zoom smoothness
koda
parents: 3463
diff changeset
    44
    if wheelUp = false then
6592fbb969da fix zoom smoothness
koda
parents: 3463
diff changeset
    45
        wheelDown:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    46
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    47
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    48
procedure HW_zoomReset; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    49
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    50
    middleClick:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    51
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    52
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    53
procedure HW_ammoMenu; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    54
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    55
    rightClick:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    56
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    57
3626
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    58
procedure HW_walkingKeysUp; cdecl; export;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    59
begin
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    60
    leftKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    61
    rightKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    62
    upKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    63
    downKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    64
end;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    65
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    66
procedure HW_otherKeysUp; cdecl; export;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    67
begin
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    68
    spaceKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    69
    enterKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    70
    backspaceKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    71
end;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    72
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    73
procedure HW_allKeysUp; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    74
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    75
    // set all keys to released
3040
3e7f4a30e18a Insert commit message here (to get along with palewolf)
koda
parents: 3015
diff changeset
    76
    uKeys.initModule;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    77
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    78
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    79
procedure HW_walkLeft; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    80
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    81
    leftKey:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    82
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    83
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    84
procedure HW_walkRight; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    85
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    86
    rightKey:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    87
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    88
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    89
procedure HW_aimUp; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    90
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    91
    upKey:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    92
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    93
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    94
procedure HW_aimDown; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    95
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    96
    downKey:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    97
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    98
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    99
procedure HW_shoot; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   100
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
   101
    spaceKey:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   102
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   103
3015
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   104
procedure HW_jump; cdecl; export;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   105
begin
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   106
    enterKey:= true;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   107
end;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   108
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   109
procedure HW_backjump; cdecl; export;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   110
begin
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   111
    backspaceKey:= true;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   112
end;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   113
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   114
procedure HW_chat; cdecl; export;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   115
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
   116
    chatAction:= true;
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   117
end;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   118
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   119
procedure HW_tab; cdecl; export;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   120
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
   121
    switchAction:= true;
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   122
end;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   123
2805
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2803
diff changeset
   124
procedure HW_pause; cdecl; export;
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2803
diff changeset
   125
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
   126
    pauseAction:= true;
2805
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2803
diff changeset
   127
end;
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2803
diff changeset
   128
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   129
procedure HW_cursorUp(coefficient:LongInt); cdecl; export;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   130
begin
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   131
    coeff:= coefficient;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   132
    cursorUp:= true;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   133
end;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   134
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   135
procedure HW_cursorDown(coefficient:LongInt); cdecl; export;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   136
begin
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   137
    coeff:= coefficient;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   138
    cursorDown:= true;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   139
end;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   140
3347
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   141
procedure HW_cursorLeft(coefficient:LongInt); cdecl; export;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   142
begin
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   143
    coeff:= coefficient;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   144
    cursorLeft:= true;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   145
end;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   146
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   147
procedure HW_cursorRight(coefficient:LongInt); cdecl; export;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   148
begin
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   149
    coeff:= coefficient;
5d0ac8197eb7 camera panning ftw
koda
parents: 3245
diff changeset
   150
    cursorRight:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   151
end;
3063
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   152
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   153
procedure HW_terminate(closeFrontend: boolean); cdecl; export;
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   154
begin
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   155
    isTerminated:= true;
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   156
    if closeFrontend then alsoShutdownFrontend:= true;
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   157
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
   158
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
   159
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
   160
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
   161
    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
   162
    begin
3463
23c50be687a9 update sdl functions to latest revision
koda
parents: 3405
diff changeset
   163
        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
   164
    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
   165
    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
   166
    begin
3463
23c50be687a9 update sdl functions to latest revision
koda
parents: 3405
diff changeset
   167
        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
   168
    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
   169
end;
3551
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   170
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   171
procedure HW_setCursor(x,y: LongInt); cdecl; export;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   172
begin
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   173
    CursorPoint.X:= x;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   174
    CursorPoint.Y:= y;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   175
end;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   176
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   177
function HW_isAmmoOpen:boolean; cdecl; export;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   178
begin
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   179
    exit(bShowAmmoMenu);
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   180
end;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   181
{$ENDIF}
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   182
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   183
end.
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   184