hedgewars/PascalExports.pas
author nemo
Sun, 25 Jul 2010 10:16:34 -0400
changeset 3669 19be65b12c43
parent 3668 3f7a95234d8a
child 3672 f225b94a4411
permissions -rw-r--r--
merge. forgot again.
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
3668
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
    16
uses uKeys, GLunit, uWorld, uMisc, uConsole, uTeams, uConsts, uChat, uGears, uSound, 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
3063
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
    24
// retrieve protocol information
3650
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
    25
procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export;
2691
c0da3a98c01c initial support for engine protocol
koda
parents: 2690
diff changeset
    26
begin
3245
252be02536ab fix an error in passing strings between ObjC and Pascal
koda
parents: 3063
diff changeset
    27
// http://bugs.freepascal.org/view.php?id=16156
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    28
    if netProto <> nil then netProto^:= cNetProtoVersion;
3245
252be02536ab fix an error in passing strings between ObjC and Pascal
koda
parents: 3063
diff changeset
    29
    if versionStr <> nil then versionStr^:= cVersionString;
2691
c0da3a98c01c initial support for engine protocol
koda
parents: 2690
diff changeset
    30
end;
c0da3a98c01c initial support for engine protocol
koda
parents: 2690
diff changeset
    31
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    32
procedure HW_click; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    33
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    34
    leftClick:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    35
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    36
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    37
procedure HW_zoomIn; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    38
begin
3523
6592fbb969da fix zoom smoothness
koda
parents: 3463
diff changeset
    39
    if wheelDown = false then
6592fbb969da fix zoom smoothness
koda
parents: 3463
diff changeset
    40
        wheelUp:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    41
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    42
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    43
procedure HW_zoomOut; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    44
begin
3523
6592fbb969da fix zoom smoothness
koda
parents: 3463
diff changeset
    45
    if wheelUp = false then
6592fbb969da fix zoom smoothness
koda
parents: 3463
diff changeset
    46
        wheelDown:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    47
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    48
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    49
procedure HW_zoomReset; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    50
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    51
    middleClick:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    52
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    53
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    54
procedure HW_ammoMenu; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    55
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
    56
    rightClick:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    57
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    58
3626
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    59
procedure HW_walkingKeysUp; cdecl; export;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    60
begin
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    61
    leftKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    62
    rightKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    63
    upKey:= false;
19f78afa0188 fix the multitouch shooting and moving
koda
parents: 3551
diff changeset
    64
    downKey:= false;
3649
bc35f8fee587 aim now starts slow and then moves faster
koda
parents: 3648
diff changeset
    65
    preciseKey:= false;
3626
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
3649
bc35f8fee587 aim now starts slow and then moves faster
koda
parents: 3648
diff changeset
    91
procedure HW_preciseSet(status:boolean); cdecl; export;
bc35f8fee587 aim now starts slow and then moves faster
koda
parents: 3648
diff changeset
    92
begin
bc35f8fee587 aim now starts slow and then moves faster
koda
parents: 3648
diff changeset
    93
    preciseKey:= status;
bc35f8fee587 aim now starts slow and then moves faster
koda
parents: 3648
diff changeset
    94
end;
bc35f8fee587 aim now starts slow and then moves faster
koda
parents: 3648
diff changeset
    95
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
    96
procedure HW_aimUp; 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
    upKey:= 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_aimDown; 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
    downKey:= 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
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   106
procedure HW_shoot; cdecl; export;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   107
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
   108
    spaceKey:= true;
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   109
end;
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   110
3015
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   111
procedure HW_jump; 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
    enterKey:= 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
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   116
procedure HW_backjump; cdecl; export;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   117
begin
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   118
    backspaceKey:= true;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   119
end;
20a9c8160e82 add jump and backjump controls
koda
parents: 2948
diff changeset
   120
3651
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   121
procedure HW_tab; cdecl; export;
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   122
begin
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   123
    tabKey:= true;
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   124
end;
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   125
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   126
procedure HW_chat; cdecl; export;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   127
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
   128
    chatAction:= true;
2754
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   129
end;
ad4f81fbfb76 touchinput works, invisible buttons added and initial support for chat
koda
parents: 2716
diff changeset
   130
3648
2477029463ed some further chat polishing
koda
parents: 3638
diff changeset
   131
procedure HW_chatEnd; cdecl; export;
2477029463ed some further chat polishing
koda
parents: 3638
diff changeset
   132
begin
2477029463ed some further chat polishing
koda
parents: 3638
diff changeset
   133
    KeyPressChat(27); // esc - cleans buffer
2477029463ed some further chat polishing
koda
parents: 3638
diff changeset
   134
    KeyPressChat(13); // enter - removes chat
2477029463ed some further chat polishing
koda
parents: 3638
diff changeset
   135
end;
2477029463ed some further chat polishing
koda
parents: 3638
diff changeset
   136
2805
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2803
diff changeset
   137
procedure HW_pause; cdecl; export;
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2803
diff changeset
   138
begin
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2924
diff changeset
   139
    pauseAction:= true;
2805
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2803
diff changeset
   140
end;
36a8cebb91e8 new menupage ingame for common actions
koda
parents: 2803
diff changeset
   141
3063
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   142
procedure HW_terminate(closeFrontend: boolean); cdecl; export;
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   143
begin
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   144
    isTerminated:= true;
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   145
    if closeFrontend then alsoShutdownFrontend:= true;
0092dc37fbd6 reworked interaction of engine/frontend when closing
koda
parents: 3040
diff changeset
   146
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
   147
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
   148
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
   149
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
   150
    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
   151
    begin
3463
23c50be687a9 update sdl functions to latest revision
koda
parents: 3405
diff changeset
   152
        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
   153
    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
   154
    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
   155
    begin
3463
23c50be687a9 update sdl functions to latest revision
koda
parents: 3405
diff changeset
   156
        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
   157
    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
   158
end;
3551
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   159
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   160
procedure HW_setCursor(x,y: LongInt); cdecl; export;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   161
begin
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   162
    CursorPoint.X:= x;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   163
    CursorPoint.Y:= y;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   164
end;
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   165
3661
2378ada8a6ee i can haz panning
koda
parents: 3651
diff changeset
   166
procedure HW_getCursor(x,y: PLongInt); cdecl; export;
2378ada8a6ee i can haz panning
koda
parents: 3651
diff changeset
   167
begin
2378ada8a6ee i can haz panning
koda
parents: 3651
diff changeset
   168
    x^:= CursorPoint.X;
2378ada8a6ee i can haz panning
koda
parents: 3651
diff changeset
   169
    y^:= CursorPoint.Y;
2378ada8a6ee i can haz panning
koda
parents: 3651
diff changeset
   170
end;
2378ada8a6ee i can haz panning
koda
parents: 3651
diff changeset
   171
3668
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   172
procedure HW_setPianoSound(snd: LongInt); cdecl; export;
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   173
var CurSlot, CurAmmo: LongWord;
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
   174
begin
3668
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   175
    CurSlot:= CurrentHedgehog^.CurSlot;
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   176
    CurAmmo:= CurrentHedgehog^.CurAmmo;
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   177
    // this most likely won't work in network game
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   178
    if (CurrentHedgehog^.Ammo^[CurSlot, CurAmmo].AmmoType = amPiano) then
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   179
        case snd of 
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   180
            0: PlaySound(sndPiano0);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   181
            1: PlaySound(sndPiano1);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   182
            2: PlaySound(sndPiano2);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   183
            3: PlaySound(sndPiano3);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   184
            4: PlaySound(sndPiano4);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   185
            5: PlaySound(sndPiano5);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   186
            6: PlaySound(sndPiano6);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   187
            7: PlaySound(sndPiano7);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   188
            else PlaySound(sndPiano8);
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   189
        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
   190
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
   191
3637
0db298524c3d implement the check on the type of ammo requiring a second tap to confirm
koda
parents: 3635
diff changeset
   192
function HW_isAmmoOpen: boolean; cdecl; export;
3551
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   193
begin
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   194
    exit(bShowAmmoMenu);
d4de36b3801a moar zoom, fixed fort mode, other glitches
koda
parents: 3523
diff changeset
   195
end;
3637
0db298524c3d implement the check on the type of ammo requiring a second tap to confirm
koda
parents: 3635
diff changeset
   196
0db298524c3d implement the check on the type of ammo requiring a second tap to confirm
koda
parents: 3635
diff changeset
   197
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
   198
begin
3662
a44406f4369b polish polish polish polish (also: panning horizontal fix, panning momentum, settings page reworked yet again, memory leaks, crashes, segfaults)
koda
parents: 3661
diff changeset
   199
    if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) then
a44406f4369b polish polish polish polish (also: panning horizontal fix, panning momentum, settings page reworked yet again, memory leaks, crashes, segfaults)
koda
parents: 3661
diff changeset
   200
        exit( (CurrentHedgehog^.Gear^.State and gstHHChooseTarget) <> 0 )
a44406f4369b polish polish polish polish (also: panning horizontal fix, panning momentum, settings page reworked yet again, memory leaks, crashes, segfaults)
koda
parents: 3661
diff changeset
   201
    else
a44406f4369b polish polish polish polish (also: panning horizontal fix, panning momentum, settings page reworked yet again, memory leaks, crashes, segfaults)
koda
parents: 3661
diff changeset
   202
        exit(false);
3637
0db298524c3d implement the check on the type of ammo requiring a second tap to confirm
koda
parents: 3635
diff changeset
   203
end;
0db298524c3d implement the check on the type of ammo requiring a second tap to confirm
koda
parents: 3635
diff changeset
   204
3650
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   205
function HW_isWeaponTimerable: boolean; cdecl; export;
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   206
var CurSlot, CurAmmo: LongWord;
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   207
begin
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   208
    CurSlot:= CurrentHedgehog^.CurSlot;
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   209
    CurAmmo:= CurrentHedgehog^.CurAmmo;
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   210
    exit( (CurrentHedgehog^.Ammo^[CurSlot, CurAmmo].Propz and ammoprop_Timerable) <> 0)
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   211
end;
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   212
3651
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   213
function HW_isWeaponSwitch: boolean cdecl; export;
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   214
begin
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   215
    if CurAmmoGear <> nil then
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   216
        exit(CurAmmoGear^.AmmoType = amSwitch) 
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   217
    else
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   218
        exit(false)
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   219
end;
7058ca178f3b switching hogs now works
koda
parents: 3650
diff changeset
   220
3668
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   221
function HW_isPaused: boolean; cdecl; export;
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   222
begin
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   223
    exit( isPaused );
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   224
end;
3f7a95234d8a tap to play piano notes, fix for audio and pause glitch
koda
parents: 3662
diff changeset
   225
3650
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   226
procedure HW_setGrenadeTime(time: LongInt); cdecl; export;
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   227
begin
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   228
    ParseCommand('/timer ' + inttostr(time), true);
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   229
end;
ec90e573f47a add a timer selection for grenades
koda
parents: 3649
diff changeset
   230
3637
0db298524c3d implement the check on the type of ammo requiring a second tap to confirm
koda
parents: 3635
diff changeset
   231
//amSwitch
2690
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   232
{$ENDIF}
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   233
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   234
end.
8e83c7e31720 move mixed functions in PascalExports
koda
parents:
diff changeset
   235