hedgewars/uGearsHedgehog.pas
author unc0rr
Tue, 28 Aug 2012 20:30:57 +0400
changeset 7615 b39beffcf05e
parent 7602 a620319d377e
parent 7503 deaeac102355
child 7623 addc5b262617
permissions -rw-r--r--
Merge Stepik-777's video recording gsoc project
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
     1
(*
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
     2
 * Hedgewars, a free turn based strategy game
6700
e04da46ee43c the most important commit of the year
koda
parents: 6581
diff changeset
     3
 * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com>
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
     4
 *
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
     8
 *
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    12
 * GNU General Public License for more details.
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    13
 *
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    14
 * You should have received a copy of the GNU General Public License
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    15
 * along with this program; if not, write to the Free Software
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    17
 *)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    18
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    19
{$INCLUDE "options.inc"}
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    20
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    21
unit uGearsHedgehog;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    22
interface
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    23
uses uTypes;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    24
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    25
procedure doStepHedgehog(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    26
procedure AfterAttack; 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    27
procedure HedgehogStep(Gear: PGear); 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    28
procedure doStepHedgehogMoving(Gear: PGear); 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    29
procedure HedgehogChAngle(HHGear: PGear); 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    30
procedure PickUp(HH, Gear: PGear);
7389
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
    31
procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    32
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    33
implementation
6992
b8f3d8991e92 marked a couple of functions as inline
koda
parents: 6982
diff changeset
    34
uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, 
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    35
    uCommands, uLocale, uUtils, uVisualGears, uStats, uIO, uScript,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    36
    uGearsList, uGears, uCollisions, uRandom, uStore, uTeams, 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    37
    uGearsUtils;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    38
7028
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
    39
var GHStepTicks: LongWord = 0;
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
    40
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    41
// Shouldn't more of this ammo switching stuff be moved to uAmmos ?
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    42
function ChangeAmmo(HHGear: PGear): boolean;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    43
var slot, i: Longword;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    44
    ammoidx: LongInt;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    45
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    46
ChangeAmmo:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    47
slot:= HHGear^.MsgParam;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    48
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    49
with HHGear^.Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    50
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    51
    HHGear^.Message:= HHGear^.Message and (not gmSlot);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    52
    ammoidx:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    53
    if ((HHGear^.State and (gstAttacking or gstAttacked)) <> 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    54
    or ((MultiShootAttacks > 0) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) = 0))
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    55
    or ((HHGear^.State and gstHHDriven) = 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    56
        exit;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    57
    ChangeAmmo:= true;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    58
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    59
    while (ammoidx < cMaxSlotAmmoIndex) and (Ammo^[slot, ammoidx].AmmoType <> CurAmmoType) do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    60
        inc(ammoidx);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    61
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    62
    if ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) and (MultiShootAttacks > 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    63
        OnUsedAmmo(HHGear^.Hedgehog^);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    64
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    65
    MultiShootAttacks:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    66
    HHGear^.Message:= HHGear^.Message and (not (gmLJump or gmHJump));
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    67
    
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    68
    if Ammoz[CurAmmoType].Slot = slot then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    69
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    70
        i:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    71
        repeat
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    72
        inc(ammoidx);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    73
        if (ammoidx > cMaxSlotAmmoIndex) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    74
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    75
            inc(i);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    76
            CurAmmoType:= amNothing;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    77
            ammoidx:= -1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    78
            //TryDo(i < 2, 'Engine bug: no ammo in current slot', true)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    79
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    80
        until (i = 1) or ((Ammo^[slot, ammoidx].Count > 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    81
        and (Team^.Clan^.TurnNumber > Ammoz[Ammo^[slot, ammoidx].AmmoType].SkipTurns))
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    82
        
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    83
        end 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    84
    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    85
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    86
        i:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    87
        // check whether there is ammo in slot
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    88
        while (i <= cMaxSlotAmmoIndex) and ((Ammo^[slot, i].Count = 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    89
        or (Team^.Clan^.TurnNumber <= Ammoz[Ammo^[slot, i].AmmoType].SkipTurns))
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    90
            do inc(i);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    91
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    92
        if i <= cMaxSlotAmmoIndex then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    93
            ammoidx:= i
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    94
        else ammoidx:= -1
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    95
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    96
        if ammoidx >= 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    97
            CurAmmoType:= Ammo^[slot, ammoidx].AmmoType;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    98
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
    99
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   100
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   101
procedure HHSetWeapon(HHGear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   102
var t: LongInt;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   103
    weap: TAmmoType;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   104
    Hedgehog: PHedgehog;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   105
    s: boolean;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   106
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   107
s:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   108
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   109
weap:= TAmmoType(HHGear^.MsgParam);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   110
Hedgehog:= HHGear^.Hedgehog;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   111
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   112
if Hedgehog^.Team^.Clan^.TurnNumber <= Ammoz[weap].SkipTurns then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   113
    exit; // weapon is not activated yet
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   114
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   115
HHGear^.MsgParam:= Ammoz[weap].Slot;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   116
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   117
t:= cMaxSlotAmmoIndex;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   118
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   119
HHGear^.Message:= HHGear^.Message and (not gmWeapon);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   120
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   121
with Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   122
    while (CurAmmoType <> weap) and (t >= 0) do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   123
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   124
        s:= ChangeAmmo(HHGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   125
        dec(t)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   126
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   127
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   128
if s then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   129
    ApplyAmmoChanges(HHGear^.Hedgehog^)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   130
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   131
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   132
procedure HHSetTimer(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   133
var CurWeapon: PAmmo;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   134
    color: LongWord;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   135
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   136
Gear^.Message:= Gear^.Message and (not gmTimer);
6924
57b66ee3bff3 Get rid of overloaded functions in uAmmo
unc0rr
parents: 6700
diff changeset
   137
CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   138
with Gear^.Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   139
    if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   140
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   141
        color:= Gear^.Hedgehog^.Team^.Clan^.Color;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   142
        case Gear^.MsgParam of
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   143
            1: begin
7069
bcf9d8e64e92 pas2c stuff again
unc0rr
parents: 7067
diff changeset
   144
               AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   145
               CurWeapon^.Bounciness:= 350;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   146
               end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   147
            2: begin
7069
bcf9d8e64e92 pas2c stuff again
unc0rr
parents: 7067
diff changeset
   148
               AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   149
               CurWeapon^.Bounciness:= 700;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   150
               end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   151
            3: begin
7069
bcf9d8e64e92 pas2c stuff again
unc0rr
parents: 7067
diff changeset
   152
               AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   153
               CurWeapon^.Bounciness:= 1000;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   154
               end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   155
            4: begin
7069
bcf9d8e64e92 pas2c stuff again
unc0rr
parents: 7067
diff changeset
   156
               AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   157
               CurWeapon^.Bounciness:= 2000;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   158
               end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   159
            5: begin
7069
bcf9d8e64e92 pas2c stuff again
unc0rr
parents: 7067
diff changeset
   160
               AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   161
               CurWeapon^.Bounciness:= 4000;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   162
               end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   163
            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   164
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   165
    else if (CurWeapon^.Propz and ammoprop_Timerable) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   166
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   167
        CurWeapon^.Timer:= 1000 * Gear^.MsgParam;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   168
        with CurrentTeam^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   169
            ApplyAmmoChanges(Hedgehogs[CurrHedgehog]);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   170
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   171
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   172
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   173
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   174
procedure Attack(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   175
var xx, yy, newDx, newDy, lx, ly: hwFloat;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   176
    speech: PVisualGear;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   177
    newGear:  PGear;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   178
    CurWeapon: PAmmo;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   179
    altUse: boolean;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   180
    elastic: hwFloat;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   181
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   182
newGear:= nil;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   183
bShowFinger:= false;
6924
57b66ee3bff3 Get rid of overloaded functions in uAmmo
unc0rr
parents: 6700
diff changeset
   184
CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   185
with Gear^,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   186
    Gear^.Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   187
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   188
        if ((State and gstHHDriven) <> 0) and ((State and (gstAttacked or gstHHChooseTarget)) = 0) and (((State and gstMoving) = 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   189
        or (Power > 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   190
        or (CurAmmoType = amTeleport)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   191
        or 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   192
        // Allow attacks while moving on ammo with AltAttack
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   193
        ((CurAmmoGear <> nil) and ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0))
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   194
        or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackInMove) <> 0))
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   195
        and ((TargetPoint.X <> NoPointX) or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) = 0)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   196
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   197
            State:= State or gstAttacking;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   198
            if Power = cMaxPower then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   199
                Message:= Message and (not gmAttack)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   200
            else if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   201
                Message:= Message and (not gmAttack)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   202
            else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   203
                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   204
                if Power = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   205
                    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   206
                    AttackBar:= CurrentTeam^.AttackBar;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   207
                    PlaySound(sndThrowPowerUp)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   208
                    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   209
                inc(Power)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   210
                end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   211
        if ((Message and gmAttack) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   212
            exit;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   213
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   214
        if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   215
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   216
            StopSound(sndThrowPowerUp);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   217
            PlaySound(sndThrowRelease);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   218
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   219
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   220
        xx:= SignAs(AngleSin(Angle), dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   221
        yy:= -AngleCos(Angle);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   222
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   223
        lx:= X + int2hwfloat(round(GetLaunchX(CurAmmoType, hwSign(dX), Angle)));
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   224
        ly:= Y + int2hwfloat(round(GetLaunchY(CurAmmoType, Angle)));
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   225
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   226
        if ((Gear^.State and gstHHHJump) <> 0) and (not cArtillery) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   227
            xx:= - xx;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   228
        if Ammoz[CurAmmoType].Ammo.AttackVoice <> sndNone then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   229
            AddVoice(Ammoz[CurAmmoType].Ammo.AttackVoice, CurrentTeam^.voicepack);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   230
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   231
// Initiating alt attack
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   232
        if  (CurAmmoGear <> nil)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   233
        and ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   234
        and ((Gear^.Message and gmLJump) <> 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   235
        and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   236
            begin
7602
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   237
            newDx:= dX / CurAmmoGear^.stepFreq; 
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   238
            newDy:= dY / CurAmmoGear^.stepFreq;
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   239
            altUse:= true
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   240
            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   241
        else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   242
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   243
            newDx:= xx*Power/cPowerDivisor;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   244
            newDy:= yy*Power/cPowerDivisor;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   245
            altUse:= false
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   246
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   247
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   248
             case CurAmmoType of
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   249
                      amGrenade: newGear:= AddGear(hwRound(lx), hwRound(ly), gtGrenade,         0, newDx, newDy, CurWeapon^.Timer);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   250
                      amMolotov: newGear:= AddGear(hwRound(lx), hwRound(ly), gtMolotov,      0, newDx, newDy, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   251
                  amClusterBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtClusterBomb,  0, newDx, newDy, CurWeapon^.Timer);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   252
                      amGasBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtGasBomb,      0, newDx, newDy, CurWeapon^.Timer);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   253
                      amBazooka: newGear:= AddGear(hwRound(lx), hwRound(ly), gtShell,        0, newDx, newDy, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   254
                     amSnowball: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSnowball,     0, newDx, newDy, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   255
                          amBee: newGear:= AddGear(hwRound(lx), hwRound(ly), gtBee,          0, newDx, newDy, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   256
                      amShotgun: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   257
                                 PlaySound(sndShotgunReload);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   258
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtShotgunShot,  0, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   259
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   260
                   amPickHammer: newGear:= AddGear(hwRound(lx), hwRound(ly) + cHHRadius, gtPickHammer, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   261
                         amSkip: ParseCommand('/skip', true);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   262
                         amRope: newGear:= AddGear(hwRound(lx), hwRound(ly), gtRope, 0, xx, yy, 0);
7602
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   263
                         amMine: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtMine, gstWait, SignAs(_0_02, dX), _0, 3000);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   264
                        amSMine: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSMine,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   265
                       amDEagle: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtDEagleShot, 0, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   266
                      amSineGun: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSineGunShot, 0, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   267
                    amPortalGun: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   268
                                 newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6, 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   269
                                 // set selected color
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   270
                                 CurWeapon^.Pos);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   271
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   272
                  amSniperRifle: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   273
                                 PlaySound(sndSniperReload);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   274
                                 newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSniperRifleShot, 0, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   275
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   276
                     amDynamite: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtDynamite, 0, SignAs(_0_03, dX), _0, 5000);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   277
                    amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   278
                         amWhip: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   279
                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   280
                                 PlaySound(sndWhipCrack)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   281
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   282
                       amHammer: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   283
                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtHammer, 0, SignAs(_1, dX), - _0_8, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   284
                                 PlaySound(sndWhack)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   285
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   286
                  amBaseballBat: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   287
                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtShover, gsttmpFlag, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   288
                                 PlaySound(sndBaseballBat) // TODO: Only play if something is hit?
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   289
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   290
                    amParachute: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   291
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtParachute, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   292
                                 PlaySound(sndParachute)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   293
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   294
                    // we save CurWeapon^.Pos (in this case: cursor direction) by using it as (otherwise irrelevant) X value of the new gear.
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   295
                    amAirAttack: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   296
                   amMineStrike: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 1, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   297
                  amDrillStrike: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 3, _0, _0, CurWeapon^.Timer);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   298
                       amNapalm: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 2, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   299
                    amBlowTorch: newGear:= AddGear(hwRound(lx), hwRound(ly), gtBlowTorch, 0, SignAs(_0_5, dX), _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   300
                       amGirder: newGear:= AddGear(0, 0, gtGirder, CurWeapon^.Pos, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   301
                     amTeleport: newGear:= AddGear(CurWeapon^.Pos, 0, gtTeleport, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   302
                       amSwitch: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSwitcher, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   303
                       amMortar: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   304
                                 playSound(sndMortar);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   305
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtMortar,  0, xx*cMaxPower/cPowerDivisor, yy*cMaxPower/cPowerDivisor, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   306
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   307
                      amRCPlane: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   308
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtRCPlane,  0, xx * cMaxPower / cPowerDivisor / 4, yy * cMaxPower / cPowerDivisor / 4, 0);
7053
8c9dcaedc7a8 Make pas2c happier with uSound
unc0rr
parents: 7028
diff changeset
   309
                                 newGear^.SoundChannel:= LoopSound(sndRCPlane)
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   310
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   311
                     amKamikaze: newGear:= AddGear(hwRound(lx), hwRound(ly), gtKamikaze, 0, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   312
                         amCake: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 3, hwRound(ly), gtCake, 0, xx, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   313
                    amSeduction: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSeduction, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   314
                   amWatermelon: newGear:= AddGear(hwRound(lx), hwRound(ly), gtWatermelon,  0, newDx, newDy, CurWeapon^.Timer);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   315
                  amHellishBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtHellishBomb,    0, newDx, newDy, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   316
                        amDrill: newGear:= AddGear(hwRound(lx), hwRound(ly), gtDrill, 0, newDx, newDy, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   317
                      amBallgun: newGear:= AddGear(hwRound(X), hwRound(Y), gtBallgun,  0, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   318
                      amJetpack: newGear:= AddGear(hwRound(lx), hwRound(ly), gtJetpack, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   319
                        amBirdy: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   320
                             PlaySound(sndWhistle);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   321
                             newGear:= AddGear(hwRound(lx), hwRound(ly) - 32, gtBirdy, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   322
                             end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   323
                   amLowGravity: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   324
                                 PlaySound(sndLowGravity);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   325
                                 cGravity:= cMaxWindSpeed;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   326
                                 cGravityf:= 0.00025
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   327
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   328
                  amExtraDamage: begin 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   329
                                 PlaySound(sndHellishImpact4);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   330
                                 cDamageModifier:= _1_5
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   331
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   332
                 amInvulnerable: Invulnerable:= true;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   333
                    amExtraTime: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   334
                                 PlaySound(sndSwitchHog);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   335
                                 TurnTimeLeft:= TurnTimeLeft + 30000
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   336
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   337
                   amLaserSight: cLaserSighting:= true;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   338
                     amVampiric: begin
7053
8c9dcaedc7a8 Make pas2c happier with uSound
unc0rr
parents: 7028
diff changeset
   339
                                 PlaySoundV(sndOw1, Team^.voicepack);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   340
                                 cVampiric:= true;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   341
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   342
                        amPiano: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   343
                                 // Tuck the hedgehog away until the piano attack is completed
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   344
                                 Unplaced:= true;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   345
                                 X:= _0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   346
                                 Y:= _0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   347
                                 newGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   348
                                 PauseMusic
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   349
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   350
                 amFlamethrower: newGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   351
                      amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun,  0, xx * _0_5, yy * _0_5, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   352
                  amResurrector: begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   353
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   354
                                 newGear^.SoundChannel := LoopSound(sndResurrector);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   355
                                 end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   356
                    amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   357
                       amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000);
7010
10a0a31804f3 Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents: 6992
diff changeset
   358
                       amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   359
             end;
7602
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   360
             if altUse then
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   361
                begin
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   362
                newGear^.dX:= newDx / newGear^.Density;
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   363
                newGear^.dY:= newDY / newGear^.Density
a620319d377e Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents: 7598
diff changeset
   364
                end;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   365
             
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   366
             case CurAmmoType of
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   367
                      amGrenade, amMolotov, 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   368
                  amClusterBomb, amGasBomb, 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   369
                      amBazooka, amSnowball, 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   370
                          amBee, amSMine,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   371
                       amMortar, amWatermelon,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   372
                  amHellishBomb, amDrill: FollowGear:= newGear;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   373
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   374
                      amShotgun, amPickHammer,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   375
                         amRope, amDEagle,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   376
                      amSineGun, amSniperRifle,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   377
                    amFirePunch, amWhip,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   378
                       amHammer, amBaseballBat,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   379
                    amParachute, amBlowTorch,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   380
                       amGirder, amTeleport,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   381
                       amSwitch, amRCPlane,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   382
                     amKamikaze, amCake,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   383
                    amSeduction, amBallgun,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   384
                      amJetpack, amBirdy,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   385
                 amFlamethrower, amLandGun,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   386
                  amResurrector, amStructure,
7010
10a0a31804f3 Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents: 6992
diff changeset
   387
                       amTardis, amPiano,
10a0a31804f3 Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents: 6992
diff changeset
   388
                       amIceGun: CurAmmoGear:= newGear;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   389
             end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   390
             
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   391
            if ((CurAmmoType = amMine) or (CurAmmoType = amSMine)) and (GameFlags and gfInfAttack <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   392
                newGear^.FlightTime:= GameTicks + 1000
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   393
            else if CurAmmoType = amDrill then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   394
                newGear^.FlightTime:= GameTicks + 250;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   395
        if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   396
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   397
            newGear^.Target.X:= TargetPoint.X;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   398
            newGear^.Target.Y:= TargetPoint.Y
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   399
            end;
7272
71df899c4163 Second part of the change. Make collision check use the new mask bit.
nemo
parents: 7187
diff changeset
   400
        if newGear <> nil then newGear^.CollisionMask:= $FF7F;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   401
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   402
        // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   403
        if altUse then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   404
            FollowGear:= nil;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   405
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   406
        if (newGear <> nil) and ((Ammoz[newGear^.AmmoType].Ammo.Propz and ammoprop_SetBounce) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   407
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   408
            elastic:=  int2hwfloat(CurWeapon^.Bounciness) / _1000;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   409
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   410
            if elastic < _1 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   411
                newGear^.Elasticity:= newGear^.Elasticity * elastic
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   412
            else if elastic > _1 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   413
                newGear^.Elasticity:= _1 - ((_1-newGear^.Elasticity) / elastic);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   414
(* Experimented with friction modifier. Didn't seem helpful 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   415
            fric:= int2hwfloat(CurWeapon^.Bounciness) / _250;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   416
            if fric < _1 then newGear^.Friction:= newGear^.Friction * fric
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   417
            else if fric > _1 then newGear^.Friction:= _1 - ((_1-newGear^.Friction) / fric)*)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   418
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   419
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   420
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   421
        uStats.AmmoUsed(CurAmmoType);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   422
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   423
        if not (SpeechText = '') then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   424
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   425
            speech:= AddVisualGear(0, 0, vgtSpeechBubble);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   426
            if speech <> nil then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   427
                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   428
                speech^.Text:= SpeechText;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   429
                speech^.Hedgehog:= Gear^.Hedgehog;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   430
                speech^.FrameTicks:= SpeechType;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   431
                end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   432
            SpeechText:= ''
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   433
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   434
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   435
        Power:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   436
        if (CurAmmoGear <> nil)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   437
            and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) = 0){check for dropping ammo from rope} then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   438
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   439
            Message:= Message or gmAttack;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   440
            CurAmmoGear^.Message:= Message
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   441
            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   442
        else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   443
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   444
            if not CurrentTeam^.ExtDriven
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   445
            and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then
7067
f98ec3aecf4e A solution to char vs string problem: mark single-letter strings with _S macro
unc0rr
parents: 7053
diff changeset
   446
                SendIPC(_S'a');
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   447
            AfterAttack;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   448
            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   449
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   450
    else 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   451
        Message:= Message and (not gmAttack);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   452
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   453
    TargetPoint.X := NoPointX;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   454
    ScriptCall('onHogAttack');
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   455
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   456
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   457
procedure AfterAttack;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   458
var s: shortstring;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   459
    a: TAmmoType;
7459
8511a3f899d3 Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents: 7426
diff changeset
   460
    HHGear: PGear;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   461
begin
7459
8511a3f899d3 Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents: 7426
diff changeset
   462
with CurrentHedgehog^ do
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   463
    begin
7459
8511a3f899d3 Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents: 7426
diff changeset
   464
    HHGear:= Gear;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   465
    a:= CurAmmoType;
7459
8511a3f899d3 Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents: 7426
diff changeset
   466
    if HHGear <> nil then HHGear^.State:= HHGear^.State and (not gstAttacking);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   467
    if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   468
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   469
        Inc(MultiShootAttacks);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   470
        
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   471
        if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   472
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   473
            s:= inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   474
            AddCaption(format(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   475
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   476
        
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   477
        if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   478
        or ((GameFlags and gfMultiWeapon) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   479
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   480
            isInMultiShoot:= true
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   481
            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   482
        else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   483
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   484
            OnUsedAmmo(CurrentHedgehog^);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   485
            if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (((GameFlags and gfInfAttack) = 0) or PlacingHogs) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   486
                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   487
                if TagTurnTimeLeft = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   488
                    TagTurnTimeLeft:= TurnTimeLeft;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   489
                TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 100;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   490
                end;
7459
8511a3f899d3 Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents: 7426
diff changeset
   491
            if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (HHGear <> nil) then 
7462
nemo
parents: 7459
diff changeset
   492
                HHGear^.State:= HHGear^.State or gstAttacked;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   493
            if (Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   494
                ApplyAmmoChanges(CurrentHedgehog^)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   495
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   496
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   497
    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   498
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   499
        OnUsedAmmo(CurrentHedgehog^);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   500
        ApplyAmmoChanges(CurrentHedgehog^);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   501
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   502
    AttackBar:= 0
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   503
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   504
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   505
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   506
////////////////////////////////////////////////////////////////////////////////
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   507
procedure doStepHedgehogDead(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   508
const frametime = 200;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   509
      timertime = frametime * 6;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   510
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   511
if Gear^.Hedgehog^.Unplaced then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   512
    exit;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   513
if Gear^.Timer > 1 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   514
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   515
    AllInactive:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   516
    dec(Gear^.Timer);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   517
    if (Gear^.Timer mod frametime) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   518
        inc(Gear^.Pos)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   519
    end 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   520
else if Gear^.Timer = 1 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   521
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   522
    Gear^.State:= Gear^.State or gstNoDamage;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   523
    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   524
    AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   525
    DeleteGear(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   526
    SetAllToActive
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   527
    end 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   528
else // Gear^.Timer = 0
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   529
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   530
    AllInactive:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   531
    Gear^.Z:= cCurrHHZ;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   532
    RemoveGearFromList(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   533
    InsertGearToList(Gear);
7053
8c9dcaedc7a8 Make pas2c happier with uSound
unc0rr
parents: 7028
diff changeset
   534
    PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   535
    Gear^.Pos:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   536
    Gear^.Timer:= timertime
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   537
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   538
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   539
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   540
////////////////////////////////////////////////////////////////////////////////
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   541
procedure doStepHedgehogGone(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   542
const frametime = 65;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   543
      timertime = frametime * 11;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   544
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   545
if Gear^.Hedgehog^.Unplaced then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   546
    exit;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   547
if Gear^.Timer > 1 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   548
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   549
    AllInactive:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   550
    dec(Gear^.Timer);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   551
    if (Gear^.Timer mod frametime) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   552
        inc(Gear^.Pos)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   553
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   554
else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   555
if Gear^.Timer = 1 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   556
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   557
    DeleteGear(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   558
    SetAllToActive
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   559
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   560
else // Gear^.Timer = 0
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   561
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   562
    AllInactive:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   563
    Gear^.Z:= cCurrHHZ;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   564
    RemoveGearFromList(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   565
    InsertGearToList(Gear);
7053
8c9dcaedc7a8 Make pas2c happier with uSound
unc0rr
parents: 7028
diff changeset
   566
    PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   567
    PlaySound(sndWarp);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   568
    Gear^.Pos:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   569
    Gear^.Timer:= timertime
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   570
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   571
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   572
7389
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   573
procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   574
var s: shortstring;
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   575
    vga: PVisualGear;
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   576
begin
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   577
    if cnt <> 0 then AddAmmo(HH, ammo, cnt)
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   578
    else AddAmmo(HH, ammo);
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   579
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   580
    if (not (HH.Team^.ExtDriven 
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   581
    or (HH.BotLevel > 0)))
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   582
    or (HH.Team^.Clan^.ClanIndex = LocalClan)
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   583
    or (GameType = gmtDemo)  then
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   584
        begin
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   585
        if cnt <> 0 then
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   586
            s:= trammo[Ammoz[ammo].NameId] + ' (+' + IntToStr(cnt) + ')'
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   587
        else
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   588
            s:= trammo[Ammoz[ammo].NameId] + ' (+' + IntToStr(Ammoz[ammo].NumberInCase) + ')';
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   589
        AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo);
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   590
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   591
        // show ammo icon
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   592
        vga:= AddVisualGear(X, Y, vgtAmmo);
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   593
        if vga <> nil then
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   594
            vga^.Frame:= Longword(ammo);
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   595
        end;
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   596
end;
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   597
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   598
////////////////////////////////////////////////////////////////////////////////
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   599
procedure PickUp(HH, Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   600
var s: shortstring;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   601
    a: TAmmoType;
7406
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   602
    i: LongInt;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   603
    vga: PVisualGear;
7406
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   604
    ag, gi: PGear;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   605
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   606
Gear^.Message:= gmDestroy;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   607
if (Gear^.Pos and posCaseExplode) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   608
    if (Gear^.Pos and posCasePoison) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   609
        doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   610
    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   611
        doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   612
else if (Gear^.Pos and posCasePoison) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   613
    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned + EXPLNoDamage)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   614
else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   615
case Gear^.Pos of
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   616
       posCaseUtility,
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   617
       posCaseAmmo: begin
7597
1ef520fea21c make cheating a bit easier (mikade insisted). Also, try flipping dust for a bit more variety.
nemo
parents: 7462
diff changeset
   618
                    PlaySound(sndShotgunReload);
7389
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   619
                    if Gear^.AmmoType <> amNothing then 
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   620
                        begin
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   621
                        AddPickup(HH^.Hedgehog^, Gear^.AmmoType, Gear^.Power, hwRound(Gear^.X), hwRound(Gear^.Y));
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   622
                        end
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   623
                    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   624
                        begin
7389
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   625
// Add spawning here...
7409
fd91aa100ce0 Avoid desync playing back demos
nemo
parents: 7406
diff changeset
   626
                        AddRandomness(GameTicks);
7406
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   627
                        
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   628
                        gi := GearsList;
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   629
                        while gi <> nil do
7391
588eabb4b384 Apparently order of multiple getrandom in params is undefined. Also remove broken and pointless getrandom call.
nemo
parents: 7389
diff changeset
   630
                            begin
7406
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   631
                            if gi^.Kind = gtGenericFaller then
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   632
                                begin
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   633
                                gi^.Active:= true;
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   634
                                gi^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX);
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   635
                                gi^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY);
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   636
                                gi^.dX:= _90-(GetRandomf*_360);
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   637
                                gi^.dY:= _90-(GetRandomf*_360)
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   638
                                end;
1fe2c821f9bf Try avoiding spamming the log by retaining the gears. untested.
nemo
parents: 7391
diff changeset
   639
                            gi := gi^.NextGear
7391
588eabb4b384 Apparently order of multiple getrandom in params is undefined. Also remove broken and pointless getrandom call.
nemo
parents: 7389
diff changeset
   640
                            end;
7598
f06d8603097c let's see if mikade will still accept this at least
nemo
parents: 7597
diff changeset
   641
                        ag:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAddAmmo, gstInvisible, _0, _0, GetRandom(125)+25);
7389
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   642
                        ag^.Pos:= Gear^.Pos;
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   643
                        ag^.Power:= Gear^.Power
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   644
                        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   645
                    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   646
     posCaseHealth: begin
7389
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
   647
                    PlaySound(sndShotgunReload);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   648
                    inc(HH^.Health, Gear^.Health);
7010
10a0a31804f3 Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents: 6992
diff changeset
   649
                    HH^.Hedgehog^.Effects[hePoisoned] := 0;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   650
                    str(Gear^.Health, s);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   651
                    s:= '+' + s;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   652
                    AddCaption(s, HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   653
                    RenderHealth(HH^.Hedgehog^);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   654
                    RecountTeamHealth(HH^.Hedgehog^.Team);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   655
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   656
                    i:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   657
                    while i < Gear^.Health do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   658
                        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   659
                        vga:= AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtStraightShot);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   660
                        if vga <> nil then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   661
                            with vga^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   662
                                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   663
                                Tint:= $00FF00FF;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   664
                                State:= ord(sprHealth)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   665
                                end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   666
                        inc(i, 5);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   667
                        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   668
                    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   669
     end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   670
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   671
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   672
procedure HedgehogStep(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   673
var PrevdX: LongInt;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   674
    CurWeapon: PAmmo;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   675
begin
6924
57b66ee3bff3 Get rid of overloaded functions in uAmmo
unc0rr
parents: 6700
diff changeset
   676
CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   677
if ((Gear^.State and (gstAttacking or gstMoving)) = 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   678
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   679
    if isCursorVisible then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   680
        with Gear^.Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   681
            with CurWeapon^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   682
                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   683
                if (Gear^.Message and gmLeft  ) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   684
                    Pos:= (Pos - 1 + Ammoz[AmmoType].PosCount) mod Ammoz[AmmoType].PosCount
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   685
                else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   686
                    if (Gear^.Message and gmRight ) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   687
                        Pos:= (Pos + 1) mod Ammoz[AmmoType].PosCount
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   688
    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   689
        exit;
7028
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
   690
    GHStepTicks:= 200;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   691
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   692
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   693
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   694
    if ((Gear^.Message and gmAnimate) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   695
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   696
        Gear^.Message:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   697
        Gear^.State:= Gear^.State or gstAnimation;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   698
        Gear^.Tag:= Gear^.MsgParam;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   699
        Gear^.Timer:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   700
        Gear^.Pos:= 0
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   701
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   702
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   703
    if ((Gear^.Message and gmLJump ) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   704
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   705
        Gear^.Message:= Gear^.Message and (not gmLJump);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   706
        DeleteCI(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   707
        if TestCollisionYwithGear(Gear, -1) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   708
            if not TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   709
                Gear^.Y:= Gear^.Y - _2
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   710
            else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   711
                if not TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   712
                    Gear^.Y:= Gear^.Y - _1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   713
            if not (TestCollisionXwithGear(Gear, hwSign(Gear^.dX))
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   714
            or   (TestCollisionYwithGear(Gear, -1) <> 0)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   715
                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   716
                Gear^.dY:= -_0_15;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   717
                if not cArtillery then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   718
                    Gear^.dX:= SignAs(_0_15, Gear^.dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   719
                Gear^.State:= Gear^.State or gstMoving or gstHHJumping;
7053
8c9dcaedc7a8 Make pas2c happier with uSound
unc0rr
parents: 7028
diff changeset
   720
                PlaySoundV(sndJump1, Gear^.Hedgehog^.Team^.voicepack);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   721
        exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   722
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   723
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   724
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   725
    if ((Gear^.Message and gmHJump ) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   726
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   727
        DeleteCI(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   728
        Gear^.Message:= Gear^.Message and (not gmHJump);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   729
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   730
        Gear^.dY:= -_0_2;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   731
        SetLittle(Gear^.dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   732
        Gear^.State:= Gear^.State or gstMoving or gstHHJumping;
7053
8c9dcaedc7a8 Make pas2c happier with uSound
unc0rr
parents: 7028
diff changeset
   733
        PlaySoundV(sndJump3, Gear^.Hedgehog^.Team^.voicepack);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   734
        exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   735
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   736
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   737
    PrevdX:= hwSign(Gear^.dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   738
    if (Gear^.Message and gmLeft  )<>0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   739
        Gear^.dX:= -cLittle else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   740
    if (Gear^.Message and gmRight )<>0 then
7187
aff30d80bd7b - Allow camera movement while current hedgehog is falling
unc0rr
parents: 7164
diff changeset
   741
        Gear^.dX:=  cLittle 
aff30d80bd7b - Allow camera movement while current hedgehog is falling
unc0rr
parents: 7164
diff changeset
   742
        else exit;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   743
7187
aff30d80bd7b - Allow camera movement while current hedgehog is falling
unc0rr
parents: 7164
diff changeset
   744
    StepSoundTimer:= cHHStepTicks;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   745
   
7028
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
   746
    GHStepTicks:= cHHStepTicks;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   747
    if PrevdX <> hwSign(Gear^.dX) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   748
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   749
        FollowGear:= Gear;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   750
        exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   751
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   752
    DeleteCI(Gear); // must be after exit!! (see previous line)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   753
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   754
    Gear^.Hedgehog^.visStepPos:= (Gear^.Hedgehog^.visStepPos + 1) and 7;
7164
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   755
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   756
    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then if (TestCollisionYwithGear(Gear, -1) = 0) then
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   757
        begin
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   758
        Gear^.Y:= Gear^.Y - _1;
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   759
    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then if (TestCollisionYwithGear(Gear, -1) = 0) then
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   760
        begin
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   761
        Gear^.Y:= Gear^.Y - _1;
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   762
    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then if (TestCollisionYwithGear(Gear, -1) = 0) then
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   763
        begin
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   764
        Gear^.Y:= Gear^.Y - _1;
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   765
    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then if (TestCollisionYwithGear(Gear, -1) = 0) then
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   766
        begin
7164
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   767
        Gear^.Y:= Gear^.Y - _1;
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   768
    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then if (TestCollisionYwithGear(Gear, -1) = 0) then
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   769
        begin
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   770
        Gear^.Y:= Gear^.Y - _1;
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   771
    if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then if (TestCollisionYwithGear(Gear, -1) = 0) then
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   772
        begin
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   773
        Gear^.Y:= Gear^.Y - _1;
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   774
        if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   775
            Gear^.Y:= Gear^.Y + _6
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   776
        end else Gear^.Y:= Gear^.Y + _5 else
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   777
        end else Gear^.Y:= Gear^.Y + _4 else
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   778
        end else Gear^.Y:= Gear^.Y + _3 else
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   779
        end else Gear^.Y:= Gear^.Y + _2 else
fad64b97947e Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents: 7069
diff changeset
   780
        end else Gear^.Y:= Gear^.Y + _1
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   781
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   782
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   783
    if (not cArtillery) and ((Gear^.Message and gmPrecise) = 0) and (not TestCollisionXwithGear(Gear, hwSign(Gear^.dX))) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   784
        Gear^.X:= Gear^.X + SignAs(_1, Gear^.dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   785
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   786
   SetAllHHToActive;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   787
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   788
    if TestCollisionYwithGear(Gear, 1) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   789
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   790
        Gear^.Y:= Gear^.Y + _1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   791
    if TestCollisionYwithGear(Gear, 1) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   792
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   793
        Gear^.Y:= Gear^.Y + _1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   794
    if TestCollisionYwithGear(Gear, 1) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   795
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   796
        Gear^.Y:= Gear^.Y + _1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   797
    if TestCollisionYwithGear(Gear, 1) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   798
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   799
        Gear^.Y:= Gear^.Y + _1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   800
    if TestCollisionYwithGear(Gear, 1) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   801
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   802
        Gear^.Y:= Gear^.Y + _1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   803
    if TestCollisionYwithGear(Gear, 1) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   804
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   805
        Gear^.Y:= Gear^.Y + _1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   806
    if TestCollisionYwithGear(Gear, 1) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   807
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   808
        Gear^.Y:= Gear^.Y - _6;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   809
        Gear^.dY:= _0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   810
        Gear^.State:= Gear^.State or gstMoving;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   811
        exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   812
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   813
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   814
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   815
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   816
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   817
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   818
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   819
    AddGearCI(Gear)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   820
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   821
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   822
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   823
procedure HedgehogChAngle(HHGear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   824
var da: LongWord;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   825
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   826
with HHGear^.Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   827
    if ((CurAmmoType = amRope) and ((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving))
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   828
    or ((CurAmmoType = amPortalGun) and ((HHGear^.State and gstMoving) <> 0)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   829
        da:= 2
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   830
    else da:= 1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   831
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   832
if (((HHGear^.Message and gmPrecise) = 0) or ((GameTicks mod 5) = 1)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   833
    if ((HHGear^.Message and gmUp) <> 0) and (HHGear^.Angle >= CurMinAngle + da) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   834
        dec(HHGear^.Angle, da)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   835
    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   836
        if ((HHGear^.Message and gmDown) <> 0) and (HHGear^.Angle + da <= CurMaxAngle) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   837
            inc(HHGear^.Angle, da)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   838
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   839
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   840
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   841
////////////////////////////////////////////////////////////////////////////////
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   842
procedure doStepHedgehogMoving(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   843
var isFalling, isUnderwater: boolean;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   844
    land: Word;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   845
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   846
land:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   847
isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   848
if Gear^.dX.QWordValue > 8160437862 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   849
    Gear^.dX.QWordValue:= 8160437862;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   850
if Gear^.dY.QWordValue > 8160437862 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   851
    Gear^.dY.QWordValue:= 8160437862;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   852
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   853
if Gear^.Hedgehog^.Unplaced then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   854
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   855
    Gear^.dY:= _0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   856
    Gear^.dX:= _0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   857
    Gear^.State:= Gear^.State and (not gstMoving);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   858
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   859
    end;
7426
55b49cc1f33a Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents: 7409
diff changeset
   860
isFalling:= (Gear^.dY.isNegative) or (not TestCollisionYKick(Gear, 1));
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   861
if isFalling then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   862
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   863
    if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   864
        Gear^.dY:= _0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   865
    Gear^.State:= Gear^.State or gstMoving;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   866
    if (CurrentHedgehog^.Gear = Gear)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   867
        and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   868
        begin
7187
aff30d80bd7b - Allow camera movement while current hedgehog is falling
unc0rr
parents: 7164
diff changeset
   869
        // TODO: why so aggressive at setting FollowGear when falling?
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   870
        FollowGear:= Gear;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   871
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   872
    if isUnderwater then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   873
       Gear^.dY:= Gear^.dY + cGravity / _2
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   874
    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   875
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   876
        Gear^.dY:= Gear^.dY + cGravity;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   877
// this set of circumstances could be less complex if jumping was more clearly identified
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   878
        if ((GameFlags and gfMoreWind) <> 0) and (((Gear^.Damage <> 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   879
        or ((CurAmmoGear <> nil) and ((CurAmmoGear^.AmmoType = amJetpack) or (CurAmmoGear^.AmmoType = amBirdy)))
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   880
        or ((Gear^.dY.QWordValue + Gear^.dX.QWordValue) > _0_55.QWordValue))) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   881
            Gear^.dX := Gear^.dX + cWindSpeed / Gear^.Density
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   882
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   883
    end 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   884
else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   885
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   886
    land:= TestCollisionYwithGear(Gear, 1);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   887
    if ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_55.QWordValue) and ((land and lfIce) = 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   888
    and ((Gear^.State and gstHHJumping) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   889
        SetLittle(Gear^.dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   890
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   891
    if not Gear^.dY.isNegative then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   892
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   893
        CheckHHDamage(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   894
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   895
        if ((Gear^.State and gstHHHJump) <> 0) and (not cArtillery)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   896
        and (Gear^.dX.QWordValue < _0_02.QWordValue) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   897
            Gear^.dX.isNegative:= not Gear^.dX.isNegative; // landing after high jump
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   898
        Gear^.State:= Gear^.State and (not (gstHHJumping or gstHHHJump));
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   899
        Gear^.dY:= _0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   900
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   901
    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   902
        Gear^.dY:= Gear^.dY + cGravity;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   903
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   904
    if ((Gear^.State and gstMoving) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   905
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   906
        if land and lfIce <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   907
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   908
            Gear^.dX:= Gear^.dX * (_1 - (_1 - Gear^.Friction) / _2)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   909
            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   910
        else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   911
            Gear^.dX:= Gear^.dX * Gear^.Friction;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   912
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   913
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   914
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   915
if (Gear^.State <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   916
    DeleteCI(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   917
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   918
if isUnderwater then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   919
   begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   920
   Gear^.dY:= Gear^.dY * _0_999;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   921
   Gear^.dX:= Gear^.dX * _0_999;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   922
   end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   923
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   924
if (Gear^.State and gstMoving) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   925
    if TestCollisionXKick(Gear, hwSign(Gear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   926
        if not isFalling then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   927
            if hwAbs(Gear^.dX) > _0_01 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   928
                if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -1, hwSign(Gear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   929
                    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   930
                    Gear^.X:= Gear^.X + Gear^.dX;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   931
                    Gear^.dX:= Gear^.dX * _0_96;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   932
                    Gear^.Y:= Gear^.Y - _1
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   933
                    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   934
                else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   935
                    if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -2, hwSign(Gear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   936
                        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   937
                        Gear^.X:= Gear^.X + Gear^.dX;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   938
                        Gear^.dX:= Gear^.dX * _0_93;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   939
                        Gear^.Y:= Gear^.Y - _2
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   940
                        end 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   941
                    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   942
                        if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -3, hwSign(Gear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   943
                        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   944
                        Gear^.X:= Gear^.X + Gear^.dX;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   945
                        Gear^.dX:= Gear^.dX * _0_9 ;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   946
                        Gear^.Y:= Gear^.Y - _3
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   947
                        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   948
                    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   949
                        if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -4, hwSign(Gear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   950
                            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   951
                            Gear^.X:= Gear^.X + Gear^.dX;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   952
                            Gear^.dX:= Gear^.dX * _0_87;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   953
                            Gear^.Y:= Gear^.Y - _4
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   954
                            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   955
                    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   956
                        if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -5, hwSign(Gear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   957
                            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   958
                            Gear^.X:= Gear^.X + Gear^.dX;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   959
                            Gear^.dX:= Gear^.dX * _0_84;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   960
                            Gear^.Y:= Gear^.Y - _5
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   961
                            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   962
                    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   963
                        if hwAbs(Gear^.dX) > _0_02 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   964
                            Gear^.dX:= -Gear^.Elasticity * Gear^.dX
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   965
                        else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   966
                            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   967
                            Gear^.State:= Gear^.State and (not gstMoving);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   968
                            while TestCollisionYWithGear(Gear,1) = 0 do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   969
                                Gear^.Y:= Gear^.Y+_1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   970
                            SetLittle(Gear^.dX)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   971
                            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   972
            else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   973
                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   974
                Gear^.State:= Gear^.State and (not gstMoving);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   975
                while TestCollisionYWithGear(Gear,1) = 0 do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   976
                    Gear^.Y:= Gear^.Y+_1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   977
                SetLittle(Gear^.dX)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   978
                end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   979
        else if (hwAbs(Gear^.dX) > cLittle)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   980
        and ((Gear^.State and gstHHJumping) = 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   981
            Gear^.dX:= -Gear^.Elasticity * Gear^.dX
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   982
        else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   983
            SetLittle(Gear^.dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   984
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   985
if (not isFalling)
7362
53bcfc714cb3 Fix rare condition when hog's gear stucks in an infinite loop which adds 1 to its Y coordinate not checking for drowning
unc0rr
parents: 7339
diff changeset
   986
  and (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   987
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   988
    Gear^.State:= Gear^.State and (not gstWinner);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   989
    Gear^.State:= Gear^.State and (not gstMoving);
7426
55b49cc1f33a Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents: 7409
diff changeset
   990
    while (TestCollisionYWithGear(Gear,1) = 0) and (not CheckGearDrowning(Gear)) do
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   991
        Gear^.Y:= Gear^.Y+_1;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   992
    SetLittle(Gear^.dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   993
    Gear^.dY:= _0
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   994
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   995
else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   996
    Gear^.State:= Gear^.State or gstMoving;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   997
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   998
if (Gear^.State and gstMoving) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
   999
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1000
    Gear^.State:= Gear^.State and (not gstAnimation);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1001
// ARTILLERY but not being moved by explosions
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1002
    Gear^.X:= Gear^.X + Gear^.dX;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1003
    Gear^.Y:= Gear^.Y + Gear^.dY;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1004
    if (not Gear^.dY.isNegative) and (not TestCollisionYKick(Gear, 1)) 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1005
    and TestCollisionYwithXYShift(Gear, 0, 1, 1) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1006
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1007
        CheckHHDamage(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1008
        Gear^.dY:= _0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1009
        Gear^.Y:= Gear^.Y + _1
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1010
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1011
    CheckGearDrowning(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1012
    // hide target cursor if current hog is drowning
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1013
    if (Gear^.State and gstDrowning) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1014
        if (CurrentHedgehog^.Gear = Gear) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1015
            isCursorVisible:= false
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1016
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1017
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1018
if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1019
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1020
    inc(Gear^.FlightTime);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1021
    if Gear^.FlightTime = 3000 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1022
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1023
        AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1024
        PlaySound(sndHomerun)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1025
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1026
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1027
else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1028
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1029
    uStats.hedgehogFlight(Gear, Gear^.FlightTime);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1030
    Gear^.FlightTime:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1031
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1032
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1033
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1034
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1035
procedure doStepHedgehogDriven(HHGear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1036
var t: PGear;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1037
    wasJumping: boolean;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1038
    Hedgehog: PHedgehog;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1039
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1040
Hedgehog:= HHGear^.Hedgehog;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1041
if isInMultiShoot then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1042
    HHGear^.Message:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1043
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1044
if ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Utility) <> 0) and isInMultiShoot then 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1045
    AllInactive:= true
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1046
else if not isInMultiShoot then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1047
    AllInactive:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1048
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1049
if (TurnTimeLeft = 0) or (HHGear^.Damage > 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1050
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1051
    if TagTurnTimeLeft = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1052
        TagTurnTimeLeft:= TurnTimeLeft;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1053
    TurnTimeLeft:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1054
    isCursorVisible:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1055
    HHGear^.State:= HHGear^.State and (not (gstHHDriven or gstAnimation or gstAttacking));
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1056
    AttackBar:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1057
    if HHGear^.Damage > 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1058
        HHGear^.State:= HHGear^.State and (not (gstHHJumping or gstHHHJump));
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1059
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1060
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1061
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1062
if (HHGear^.State and gstAnimation) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1063
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1064
    HHGear^.Message:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1065
    if (HHGear^.Pos = Wavez[TWave(HHGear^.Tag)].VoiceDelay) and (HHGear^.Timer = 0) then
7053
8c9dcaedc7a8 Make pas2c happier with uSound
unc0rr
parents: 7028
diff changeset
  1066
        PlaySoundV(Wavez[TWave(HHGear^.Tag)].Voice, Hedgehog^.Team^.voicepack);
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1067
    inc(HHGear^.Timer);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1068
    if HHGear^.Timer = Wavez[TWave(HHGear^.Tag)].Interval then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1069
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1070
        HHGear^.Timer:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1071
        inc(HHGear^.Pos);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1072
        if HHGear^.Pos = Wavez[TWave(HHGear^.Tag)].FramesCount then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1073
            HHGear^.State:= HHGear^.State and (not gstAnimation)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1074
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1075
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1076
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1077
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1078
if ((HHGear^.State and gstMoving) <> 0)
7028
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
  1079
or (GHStepTicks = cHHStepTicks)
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1080
or (CurAmmoGear <> nil) then // we are moving
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1081
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1082
    with Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1083
        if (CurAmmoGear = nil)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1084
        and (HHGear^.dY > _0_39)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1085
        and (CurAmmoType = amParachute) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1086
            HHGear^.Message:= HHGear^.Message or gmAttack;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1087
    // check for case with ammo
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1088
    t:= CheckGearNear(HHGear, gtCase, 36, 36);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1089
    if t <> nil then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1090
        PickUp(HHGear, t)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1091
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1092
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1093
if (CurAmmoGear = nil) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1094
    if (((HHGear^.Message and gmAttack) <> 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1095
    or ((HHGear^.State and gstAttacking) <> 0)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1096
        Attack(HHGear) // should be before others to avoid desync with '/put' msg and changing weapon msgs
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1097
    else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1098
else 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1099
    with Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1100
        if ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1101
        and ((HHGear^.Message and gmLJump) <> 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1102
        and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1103
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1104
            Attack(HHGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1105
            HHGear^.Message:= HHGear^.Message and (not gmLJump)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1106
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1107
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1108
if (CurAmmoGear = nil)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1109
or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0) 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1110
or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1111
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1112
    if ((HHGear^.Message and gmSlot) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1113
        if ChangeAmmo(HHGear) then ApplyAmmoChanges(Hedgehog^);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1114
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1115
    if ((HHGear^.Message and gmWeapon) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1116
        HHSetWeapon(HHGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1117
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1118
    if ((HHGear^.Message and gmTimer) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1119
        HHSetTimer(HHGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1120
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1121
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1122
if CurAmmoGear <> nil then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1123
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1124
    CurAmmoGear^.Message:= HHGear^.Message;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1125
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1126
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1127
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1128
if not isInMultiShoot then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1129
    HedgehogChAngle(HHGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1130
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1131
if (HHGear^.State and gstMoving) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1132
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1133
    wasJumping:= ((HHGear^.State and gstHHJumping) <> 0);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1134
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1135
    if ((HHGear^.Message and gmHJump) <> 0) and wasJumping and ((HHGear^.State and gstHHHJump) = 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1136
        if (not (hwAbs(HHGear^.dX) > cLittle)) and (HHGear^.dY < -_0_02) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1137
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1138
            HHGear^.State:= HHGear^.State or gstHHHJump;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1139
            HHGear^.dY:= -_0_25;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1140
            if not cArtillery then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1141
                HHGear^.dX:= -SignAs(_0_02, HHGear^.dX);
7053
8c9dcaedc7a8 Make pas2c happier with uSound
unc0rr
parents: 7028
diff changeset
  1142
            PlaySoundV(sndJump2, Hedgehog^.Team^.voicepack)
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1143
            end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1144
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1145
    HHGear^.Message:= HHGear^.Message and (not (gmLJump or gmHJump));
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1146
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1147
    if (not cArtillery) and wasJumping and TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1148
        SetLittle(HHGear^.dX);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1149
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1150
    if Hedgehog^.Gear <> nil then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1151
        doStepHedgehogMoving(HHGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1152
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1153
    if ((HHGear^.State and (gstMoving or gstDrowning)) = 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1154
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1155
        AddGearCI(HHGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1156
        if wasJumping then
7028
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
  1157
            GHStepTicks:= 410
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1158
        else
7028
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
  1159
            GHStepTicks:= 95
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1160
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1161
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1162
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1163
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1164
    if not isInMultiShoot and (Hedgehog^.Gear <> nil) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1165
        begin
7028
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
  1166
        if GHStepTicks > 0 then
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
  1167
            dec(GHStepTicks);
0f60591f3a16 old typed const moved to their proper unit
koda
parents: 7010
diff changeset
  1168
        if (GHStepTicks = 0) then
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1169
            HedgehogStep(HHGear)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1170
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1171
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1172
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1173
////////////////////////////////////////////////////////////////////////////////
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1174
procedure doStepHedgehogFree(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1175
var prevState: Longword;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1176
begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1177
prevState:= Gear^.State;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1178
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1179
doStepHedgehogMoving(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1180
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1181
if (Gear^.State and (gstMoving or gstDrowning)) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1182
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1183
    if Gear^.Damage > 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1184
        CalcRotationDirAngle(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1185
    AllInactive:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1186
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1187
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1188
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1189
if (Gear^.Health = 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1190
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1191
    if PrvInactive or ((GameFlags and gfInfAttack) <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1192
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1193
        Gear^.Timer:= 0;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1194
        FollowGear:= Gear;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1195
        PrvInactive:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1196
        AllInactive:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1197
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1198
        if (Gear^.State and gstHHGone) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1199
            begin
7010
10a0a31804f3 Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents: 6992
diff changeset
  1200
            Gear^.Hedgehog^.Effects[hePoisoned] := 0;
10a0a31804f3 Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents: 6992
diff changeset
  1201
            if Gear^.Hedgehog^.Effects[heResurrectable] <> 0 then
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1202
                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1203
                ResurrectHedgehog(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1204
                end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1205
            else 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1206
                begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1207
                Gear^.State:= (Gear^.State or gstHHDeath) and (not gstAnimation);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1208
                Gear^.doStep:= @doStepHedgehogDead;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1209
                // Death message
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1210
                AddCaption(Format(GetEventString(eidDied), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1211
                end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1212
            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1213
        else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1214
            begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1215
            Gear^.State:= Gear^.State and (not gstAnimation);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1216
            Gear^.doStep:= @doStepHedgehogGone;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1217
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1218
            // Gone message
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1219
            AddCaption(Format(GetEventString(eidGone), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1220
            end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1221
        end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1222
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1223
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1224
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1225
if ((Gear^.State and gstWait) = 0) and
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1226
    (prevState <> Gear^.State) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1227
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1228
    Gear^.State:= Gear^.State or gstWait;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1229
    Gear^.Timer:= 150
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1230
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1231
else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1232
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1233
    if Gear^.Timer = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1234
        begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1235
        Gear^.State:= Gear^.State and (not (gstWait or gstLoser or gstWinner or gstAttacked or gstNotKickable or gstHHChooseTarget));
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1236
        Gear^.Active:= false;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1237
        AddGearCI(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1238
        exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1239
        end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1240
    else dec(Gear^.Timer)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1241
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1242
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1243
AllInactive:= false
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1244
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1245
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1246
////////////////////////////////////////////////////////////////////////////////
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1247
procedure doStepHedgehog(Gear: PGear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1248
(*
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1249
var x,y,tx,ty: LongInt;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1250
    tdX, tdY, slope: hwFloat; 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1251
    land: Word; *)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1252
var slope: hwFloat; 
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1253
begin
7389
15c3fb4882df Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents: 7375
diff changeset
  1254
CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel;
6581
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1255
if (Gear^.Message and gmDestroy) <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1256
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1257
    DeleteGear(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1258
    exit
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1259
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1260
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1261
if (Gear^.State and gstHHDriven) = 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1262
    doStepHedgehogFree(Gear)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1263
else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1264
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1265
    with Gear^.Hedgehog^ do
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1266
        if Team^.hasGone then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1267
            TeamGoneEffect(Team^)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1268
        else
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1269
            doStepHedgehogDriven(Gear)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1270
    end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1271
if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1272
and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1273
and (not Gear^.dY.isNegative) and (GameTicks mod (100*LongWOrd(hwRound(cMaxWindSpeed*2/cGravity))) = 0)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1274
and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1275
    begin
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1276
    slope:= CalcSlopeBelowGear(Gear);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1277
    Gear^.dX:=Gear^.dX+slope*_0_07;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1278
    if slope.QWordValue <> 0 then
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1279
        Gear^.State:= Gear^.State or gstMoving;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1280
(*
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1281
    x:= hwRound(Gear^.X);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1282
    y:= hwRound(Gear^.Y);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1283
    AddVisualGear(x, y, vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1284
    AddVisualGear(x - hwRound(_5*slope), y + hwRound(_5*slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1285
    AddVisualGear(x + hwRound(_5*slope), y - hwRound(_5*slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1286
    AddVisualGear(x - hwRound(_20 * slope), y + hwRound(_20 * slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1287
    AddVisualGear(x + hwRound(_20 * slope), y - hwRound(_20 * slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1288
    AddVisualGear(x - hwRound(_30 * slope), y + hwRound(_30 * slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1289
    AddVisualGear(x + hwRound(_30 * slope), y - hwRound(_30 * slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1290
    AddVisualGear(x - hwRound(_40 * slope), y + hwRound(_40 * slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1291
    AddVisualGear(x + hwRound(_40 * slope), y - hwRound(_40 * slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1292
    AddVisualGear(x - hwRound(_50 * slope), y + hwRound(_50 * slope), vgtSmokeTrace);
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1293
    AddVisualGear(x + hwRound(_50 * slope), y - hwRound(_50 * slope), vgtSmokeTrace); *)
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1294
    end
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1295
end;
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1296
e510d1245bd7 fix line endings
nemo
parents: 6580
diff changeset
  1297
end.