hedgewars/HHHandlers.inc
author unc0rr
Thu, 03 Nov 2011 22:11:35 +0300
changeset 6272 a93cb9ca9fda
parent 6248 103bc8fd4f1b
child 6291 cfd2483b8c97
permissions -rw-r--r--
- Update to compile with parsec 3.* - Beat vars issue
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     1
(*
1066
1f1b3686a2b0 Update copyright headers a bit
unc0rr
parents: 1035
diff changeset
     2
 * Hedgewars, a free turn based strategy game
4976
088d40d8aba2 Happy 2011 :)
koda
parents: 4881
diff changeset
     3
 * Copyright (c) 2004-2011 Andrey Korotaev <unC0Rr@gmail.com>
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     4
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
     5
 * This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
     6
 * it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
     7
 * the Free Software Foundation; version 2 of the License
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
     8
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
     9
 * This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
    10
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
    11
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
    12
 * GNU General Public License for more details.
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    13
 *
183
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
    14
 * You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
    15
 * along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL
unc0rr
parents: 149
diff changeset
    16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    17
 *)
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
    18
37
2b7f2a43b999 - Properly get seed in net game
unc0rr
parents: 32
diff changeset
    19
////////////////////////////////////////////////////////////////////////////////
3682
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    20
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    21
procedure HHHurt(Hedgehog: PHedgehog; Source: TDamageSource);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    22
begin
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    23
if (Source = dsFall) or (Source = dsExplosion) then
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    24
    case random(3) of
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    25
        0: PlaySound(sndOoff1, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    26
        1: PlaySound(sndOoff2, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    27
        2: PlaySound(sndOoff3, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    28
    end
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    29
else if (Source = dsPoison) then
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    30
    case random(2) of
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    31
        0: PlaySound(sndPoisonCough, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    32
        1: PlaySound(sndPoisonMoan, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    33
    end
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    34
else
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    35
    case random(4) of
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    36
        0: PlaySound(sndOw1, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    37
        1: PlaySound(sndOw2, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    38
        2: PlaySound(sndOw3, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    39
        3: PlaySound(sndOw4, Hedgehog^.Team^.voicepack);
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    40
    end
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    41
end;
45b416c5b976 Engine:
smaxx
parents: 3485
diff changeset
    42
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    43
// Shouldn't more of this ammo switching stuff be moved to uAmmos ?
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    44
function ChangeAmmo(HHGear: PGear): boolean;
3943
9835060e5c01 Add per-hog ammo option, initial stubs for infinite attack and weapon reset, fix a bug in ammo switching
nemo
parents: 3915
diff changeset
    45
var slot, i: Longword;
9835060e5c01 Add per-hog ammo option, initial stubs for infinite attack and weapon reset, fix a bug in ammo switching
nemo
parents: 3915
diff changeset
    46
    ammoidx: LongInt;
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
    47
begin
4135
5be798ecafdc This should make bee and other targetted things behave more reliably in infinite attack mode. Blocks switching of weps if a target point is active.
nemo
parents: 4020
diff changeset
    48
ChangeAmmo:= false;
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    49
slot:= HHGear^.MsgParam;
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
    50
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    51
with HHGear^.Hedgehog^ do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    52
    begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    53
    HHGear^.Message:= HHGear^.Message and not gmSlot;
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    54
    ammoidx:= 0;
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    55
    if ((HHGear^.State and (gstAttacking or gstAttacked)) <> 0) or
4241
835fd7a0e1bf Move resurrection to utilities, reduce its probablit a bit to match other utilities, rename the "hint" prop since it really isn't being used as a hint anymore. That can be put back if it changes.
nemo
parents: 4238
diff changeset
    56
       ((MultiShootAttacks > 0) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) = 0)) or
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    57
       ((HHGear^.State and gstHHDriven) = 0) then exit;
4135
5be798ecafdc This should make bee and other targetted things behave more reliably in infinite attack mode. Blocks switching of weps if a target point is active.
nemo
parents: 4020
diff changeset
    58
    ChangeAmmo:= true;
5be798ecafdc This should make bee and other targetted things behave more reliably in infinite attack mode. Blocks switching of weps if a target point is active.
nemo
parents: 4020
diff changeset
    59
5be798ecafdc This should make bee and other targetted things behave more reliably in infinite attack mode. Blocks switching of weps if a target point is active.
nemo
parents: 4020
diff changeset
    60
    while (ammoidx < cMaxSlotAmmoIndex) and (Ammo^[slot, ammoidx].AmmoType <> CurAmmoType) do inc(ammoidx);
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
    61
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    62
    if ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) and (MultiShootAttacks > 0) then OnUsedAmmo(HHGear^.Hedgehog^);
3430
21c08c95a672 Cheating
nemo
parents: 3428
diff changeset
    63
3396
e5b3e5f2818e More portal changes. Allows for a multishoot utility. Hopefully not breaking anything.
nemo
parents: 3391
diff changeset
    64
    MultiShootAttacks:= 0;
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    65
    HHGear^.Message:= HHGear^.Message and not (gmLJump or gmHJump);
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    66
    
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    67
    if Ammoz[CurAmmoType].Slot = slot then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    68
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    69
        i:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    70
        repeat
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    71
        inc(ammoidx);
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    72
        if (ammoidx > cMaxSlotAmmoIndex) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    73
            begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    74
            inc(i);
3951
c9a63db3e603 Correct another bug in slot switching, adjust width of theme list, really truly fix reset of weps (I hope) should also fix infinite teleport bug in place hogs mode. Slow update of health to 5s for inf attack mode.
nemo
parents: 3949
diff changeset
    75
            CurAmmoType:= amNothing;
c9a63db3e603 Correct another bug in slot switching, adjust width of theme list, really truly fix reset of weps (I hope) should also fix infinite teleport bug in place hogs mode. Slow update of health to 5s for inf attack mode.
nemo
parents: 3949
diff changeset
    76
            ammoidx:= -1;
c9a63db3e603 Correct another bug in slot switching, adjust width of theme list, really truly fix reset of weps (I hope) should also fix infinite teleport bug in place hogs mode. Slow update of health to 5s for inf attack mode.
nemo
parents: 3949
diff changeset
    77
            //TryDo(i < 2, 'Engine bug: no ammo in current slot', true)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    78
            end;
5439
25d3784dc0f6 test on i should be first condition
nemo
parents: 5372
diff changeset
    79
        until (i = 1) or ((Ammo^[slot, ammoidx].Count > 0) and (Team^.Clan^.TurnNumber > Ammoz[Ammo^[slot, ammoidx].AmmoType].SkipTurns))
3943
9835060e5c01 Add per-hog ammo option, initial stubs for infinite attack and weapon reset, fix a bug in ammo switching
nemo
parents: 3915
diff changeset
    80
        end 
9835060e5c01 Add per-hog ammo option, initial stubs for infinite attack and weapon reset, fix a bug in ammo switching
nemo
parents: 3915
diff changeset
    81
    else
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    82
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    83
        i:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    84
        // check whether there is ammo in slot
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    85
        while (i <= cMaxSlotAmmoIndex)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    86
          and ((Ammo^[slot, i].Count = 0)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    87
               or (Team^.Clan^.TurnNumber <= Ammoz[Ammo^[slot, i].AmmoType].SkipTurns)) do inc(i);
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2302
diff changeset
    88
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    89
        if i <= cMaxSlotAmmoIndex then ammoidx:= i
3943
9835060e5c01 Add per-hog ammo option, initial stubs for infinite attack and weapon reset, fix a bug in ammo switching
nemo
parents: 3915
diff changeset
    90
        else ammoidx:= -1
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    91
        end;
5136
948da1e50205 Fix a few crosshair bugs. Disable ShowCrosshair and just decide when drawing.
nemo
parents: 5038
diff changeset
    92
        if ammoidx >= 0 then CurAmmoType:= Ammo^[slot, ammoidx].AmmoType;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
    93
    end
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
    94
end;
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
    95
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
    96
procedure HHSetWeapon(HHGear: PGear);
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
    97
var t: LongInt;
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
    98
    weap: TAmmoType;
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
    99
    Hedgehog: PHedgehog;
4135
5be798ecafdc This should make bee and other targetted things behave more reliably in infinite attack mode. Blocks switching of weps if a target point is active.
nemo
parents: 4020
diff changeset
   100
    s: boolean;
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
   101
begin
4827
7895de87636b Initialize flag. Fixes weapon changing animation between shots when AI uses shotgun.
unc0rr
parents: 4824
diff changeset
   102
s:= false;
7895de87636b Initialize flag. Fixes weapon changing animation between shots when AI uses shotgun.
unc0rr
parents: 4824
diff changeset
   103
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   104
weap:= TAmmoType(HHGear^.MsgParam);
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   105
Hedgehog:= HHGear^.Hedgehog;
941
b5222ddafe1f - Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents: 931
diff changeset
   106
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   107
if Hedgehog^.Team^.Clan^.TurnNumber <= Ammoz[weap].SkipTurns then exit; // weapon is not activated yet
941
b5222ddafe1f - Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents: 931
diff changeset
   108
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   109
HHGear^.MsgParam:= Ammoz[weap].Slot;
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
   110
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
   111
t:= cMaxSlotAmmoIndex;
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
   112
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   113
HHGear^.Message:= HHGear^.Message and not gmWeapon;
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
   114
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   115
with Hedgehog^ do
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   116
    while (CurAmmoType <> weap) and (t >= 0) do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   117
        begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   118
        s:= ChangeAmmo(HHGear);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   119
        dec(t)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   120
        end;
1710
cecb3cc93251 Fix angle restriction applying to rc plane when choosing via ammomenu
unc0rr
parents: 1689
diff changeset
   121
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   122
if s then ApplyAmmoChanges(HHGear^.Hedgehog^)
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
   123
end;
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
   124
926
d231e007452a Timer as hedgehog message (avoid possible desync in very rare cases)
unc0rr
parents: 925
diff changeset
   125
procedure HHSetTimer(Gear: PGear);
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   126
var CurWeapon: PAmmo;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   127
    color: LongWord;
926
d231e007452a Timer as hedgehog message (avoid possible desync in very rare cases)
unc0rr
parents: 925
diff changeset
   128
begin
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   129
Gear^.Message:= Gear^.Message and not gmTimer;
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   130
CurWeapon:= GetAmmoEntry(Gear^.Hedgehog^);
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   131
with Gear^.Hedgehog^ do
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   132
    if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   133
        begin
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   134
        color:= Gear^.Hedgehog^.Team^.Clan^.Color;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   135
        case Gear^.MsgParam of
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   136
            1: begin
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   137
               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate);
5319
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   138
               CurWeapon^.Bounciness:= 350;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   139
               end;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   140
            2: begin
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   141
               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate);
5319
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   142
               CurWeapon^.Bounciness:= 700;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   143
               end;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   144
            3: begin
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   145
               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate);
5319
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   146
               CurWeapon^.Bounciness:= 1000;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   147
               end;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   148
            4: begin
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   149
               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate);
5319
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   150
               CurWeapon^.Bounciness:= 2000;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   151
               end;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   152
            5: begin
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   153
               AddCaption(format(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate);
5319
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   154
               CurWeapon^.Bounciness:= 4000;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   155
               end
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   156
            end
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   157
        end
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   158
    else if (CurWeapon^.Propz and ammoprop_Timerable) <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   159
        begin
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   160
        CurWeapon^.Timer:= 1000 * Gear^.MsgParam;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   161
        with CurrentTeam^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   162
            ApplyAmmoChanges(Hedgehogs[CurrHedgehog]);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   163
        end;
926
d231e007452a Timer as hedgehog message (avoid possible desync in very rare cases)
unc0rr
parents: 925
diff changeset
   164
end;
d231e007452a Timer as hedgehog message (avoid possible desync in very rare cases)
unc0rr
parents: 925
diff changeset
   165
d231e007452a Timer as hedgehog message (avoid possible desync in very rare cases)
unc0rr
parents: 925
diff changeset
   166
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   167
procedure Attack(Gear: PGear);
4233
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   168
var xx, yy, newDx, newDy, lx, ly: hwFloat;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   169
    speech: PVisualGear;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   170
    newGear:  PGear;
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   171
    CurWeapon: PAmmo;
4233
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   172
    altUse: boolean;
5319
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   173
    elastic: hwFloat;
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   174
begin
5322
1bcc12a30d5d add missing nil check, increase despeckling of background too
nemo
parents: 5319
diff changeset
   175
newGear:= nil;
2807
cd131de34d3d halt team blink on attack
nemo
parents: 2769
diff changeset
   176
bShowFinger:= false;
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   177
CurWeapon:= GetAmmoEntry(Gear^.Hedgehog^);
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   178
with Gear^,
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   179
     Gear^.Hedgehog^ do
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   180
     begin
95
1ef5e2c41115 - Fixed compilation
unc0rr
parents: 82
diff changeset
   181
     if ((State and gstHHDriven) <> 0)and
2223
e009fee03c96 allow attacks while moving on ammo with alt attack (parachute/rope/jetpack) - needs testing.
nemo
parents: 2221
diff changeset
   182
        ((State and (gstAttacked or gstHHChooseTarget)) = 0) and
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2302
diff changeset
   183
        (((State and gstMoving) = 0) or
6244
23801d8b83d5 don't let forced hog movement (with no damage) suspend/halt shot charging
sheepluva
parents: 6131
diff changeset
   184
            (Power > 0) or
5513
79dd457193e6 make a special case for teleport instead. also allows teleporting off of a parachute
nemo
parents: 5511
diff changeset
   185
            (CurAmmoType = amTeleport) or 
2223
e009fee03c96 allow attacks while moving on ammo with alt attack (parachute/rope/jetpack) - needs testing.
nemo
parents: 2221
diff changeset
   186
            // Allow attacks while moving on ammo with AltAttack
3302
0973c5af5141 Add reference to ammo at time of gear creation to allow switching to work on jetpack/parachute
nemo
parents: 3236
diff changeset
   187
            ((CurAmmoGear <> nil) and ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0)) or
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   188
            ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackInMove) <> 0)) and
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   189
        ((TargetPoint.X <> NoPointX) or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) = 0)) then
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   190
        begin
95
1ef5e2c41115 - Fixed compilation
unc0rr
parents: 82
diff changeset
   191
        State:= State or gstAttacking;
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   192
        if Power = cMaxPower then Message:= Message and not gmAttack
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   193
        else if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) = 0 then Message:= Message and not gmAttack
95
1ef5e2c41115 - Fixed compilation
unc0rr
parents: 82
diff changeset
   194
        else begin
1ef5e2c41115 - Fixed compilation
unc0rr
parents: 82
diff changeset
   195
             if Power = 0 then
1ef5e2c41115 - Fixed compilation
unc0rr
parents: 82
diff changeset
   196
                begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   197
                AttackBar:= CurrentTeam^.AttackBar;
2745
11fce231f24a Engine:
smxx
parents: 2660
diff changeset
   198
                PlaySound(sndThrowPowerUp)
95
1ef5e2c41115 - Fixed compilation
unc0rr
parents: 82
diff changeset
   199
                end;
1ef5e2c41115 - Fixed compilation
unc0rr
parents: 82
diff changeset
   200
             inc(Power)
1ef5e2c41115 - Fixed compilation
unc0rr
parents: 82
diff changeset
   201
             end;
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   202
        if ((Message and gmAttack) <> 0) then exit;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   203
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   204
        if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0 then
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   205
           begin
282
b1e3387389b6 - Pickhammer sound
unc0rr
parents: 263
diff changeset
   206
           StopSound(sndThrowPowerUp);
2745
11fce231f24a Engine:
smxx
parents: 2660
diff changeset
   207
           PlaySound(sndThrowRelease);
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   208
           end;
1922
88cdabb51995 Fix bug with rope and bazooka
unc0rr
parents: 1883
diff changeset
   209
519
981df6f6e2a9 - Fix desert eagle
unc0rr
parents: 518
diff changeset
   210
        xx:= SignAs(AngleSin(Angle), dX);
900
5224ac938442 Fix attack direction when perform somersault
unc0rr
parents: 883
diff changeset
   211
        yy:= -AngleCos(Angle);
5224ac938442 Fix attack direction when perform somersault
unc0rr
parents: 883
diff changeset
   212
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   213
        lx:= X + int2hwfloat(round(GetLaunchX(CurAmmoType, hwSign(dX), Angle)));
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   214
        ly:= Y + int2hwfloat(round(GetLaunchY(CurAmmoType, Angle)));
3483
54ff8cbabaa6 Engine:
smxx
parents: 3476
diff changeset
   215
3469
39e16d76d745 Fix for artillery mode weapon use
nemo
parents: 3431
diff changeset
   216
        if ((Gear^.State and gstHHHJump) <> 0) and (not cArtillery) then xx:= - xx;
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   217
        if Ammoz[CurAmmoType].Ammo.AttackVoice <> sndNone then
5638
e35ba2a400d8 Try to avoid overlapping voices for major statements (not things like byebye or oof)
nemo
parents: 5612
diff changeset
   218
           AddVoice(Ammoz[CurAmmoType].Ammo.AttackVoice, CurrentTeam^.voicepack);
4233
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   219
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   220
// Initiating alt attack
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   221
        if  (CurAmmoGear <> nil) and
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   222
            ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0) and
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   223
            ((Gear^.Message and gmLJump) <> 0) and
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   224
            ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   225
            begin
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   226
            newDx:= dX / _2; 
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   227
            newDy:= dY / _2;
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   228
            altUse:= true;
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   229
            end
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   230
        else
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   231
            begin
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   232
            newDx:= xx*Power/cPowerDivisor;
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   233
            newDy:= yy*Power/cPowerDivisor;
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   234
            altUse:= false
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   235
            end;
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   236
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   237
             case CurAmmoType of
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   238
                      amGrenade: newGear:= AddGear(hwRound(lx), hwRound(ly), gtGrenade,         0, newDx, newDy, CurWeapon^.Timer);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   239
                      amMolotov: newGear:= AddGear(hwRound(lx), hwRound(ly), gtMolotov,      0, newDx, newDy, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   240
                  amClusterBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtClusterBomb,  0, newDx, newDy, CurWeapon^.Timer);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   241
                      amGasBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtGasBomb,      0, newDx, newDy, CurWeapon^.Timer);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   242
                      amBazooka: newGear:= AddGear(hwRound(lx), hwRound(ly), gtShell,        0, newDx, newDy, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   243
                     amSnowball: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSnowball,     0, newDx, newDy, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   244
                          amBee: newGear:= AddGear(hwRound(lx), hwRound(ly), gtBee,          0, newDx, newDy, 0);
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   245
                      amShotgun: begin
2745
11fce231f24a Engine:
smxx
parents: 2660
diff changeset
   246
                                 PlaySound(sndShotgunReload);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   247
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtShotgunShot,  0, xx * _0_5, yy * _0_5, 0);
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   248
                                 end;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   249
                   amPickHammer: newGear:= AddGear(hwRound(lx), hwRound(ly) + cHHRadius, gtPickHammer, 0, _0, _0, 0);
866
ac6f6c95c23f - Some more sounds
unc0rr
parents: 865
diff changeset
   250
                         amSkip: ParseCommand('/skip', true);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   251
                         amRope: newGear:= AddGear(hwRound(lx), hwRound(ly), gtRope, 0, xx, yy, 0);
4233
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   252
                         amMine: if altUse then
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   253
                                    newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtMine, gstWait, newDx, newDy, 3000)
4233
b4ad20bfe310 make weapons on rope/parachute/UFO inherit momentum of the hog. needs testing of course
nemo
parents: 4224
diff changeset
   254
                                 else
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   255
                                    newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtMine, gstWait, SignAs(_0_02, dX), _0, 3000);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   256
                        amSMine: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSMine,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   257
                       amDEagle: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtDEagleShot, 0, xx * _0_5, yy * _0_5, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   258
                      amSineGun: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSineGunShot, 0, xx * _0_5, yy * _0_5, 0);
4790
4cb3f7890fbd fix portal gun wrong color issue
sheepluva
parents: 4641
diff changeset
   259
                    amPortalGun: begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   260
                                 newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6, 
4790
4cb3f7890fbd fix portal gun wrong color issue
sheepluva
parents: 4641
diff changeset
   261
                                 // set selected color
4cb3f7890fbd fix portal gun wrong color issue
sheepluva
parents: 4641
diff changeset
   262
                                 CurWeapon^.Pos);
4cb3f7890fbd fix portal gun wrong color issue
sheepluva
parents: 4641
diff changeset
   263
                                 end;
2827
45817d8386c7 Engine:
smxx
parents: 2807
diff changeset
   264
                  amSniperRifle: begin
45817d8386c7 Engine:
smxx
parents: 2807
diff changeset
   265
                                 PlaySound(sndSniperReload);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   266
                                 newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSniperRifleShot, 0, xx * _0_5, yy * _0_5, 0);
2827
45817d8386c7 Engine:
smxx
parents: 2807
diff changeset
   267
                                 end;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   268
                     amDynamite: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtDynamite, 0, SignAs(_0_03, dX), _0, 5000);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   269
                    amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0);
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1710
diff changeset
   270
                         amWhip: begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   271
                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0);
2745
11fce231f24a Engine:
smxx
parents: 2660
diff changeset
   272
                                 PlaySound(sndWhipCrack)
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1710
diff changeset
   273
                                 end;
3717
d88719b0f0dc Engine:
smaxx
parents: 3710
diff changeset
   274
                       amHammer: begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   275
                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtHammer, 0, SignAs(_1, dX), - _0_8, 0);
3717
d88719b0f0dc Engine:
smaxx
parents: 3710
diff changeset
   276
                                 PlaySound(sndWhack)
d88719b0f0dc Engine:
smaxx
parents: 3710
diff changeset
   277
                                 end;
2143
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents: 2142
diff changeset
   278
                  amBaseballBat: begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   279
                                 newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtShover, gsttmpFlag, xx * _0_5, yy * _0_5, 0);
2996
dfc7507a21a0 Engine:
smxx
parents: 2995
diff changeset
   280
                                 PlaySound(sndBaseballBat) // TODO: Only play if something is hit?
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   281
                                 end;
3851
fbe2e9722fc9 Sounds:
smaxx
parents: 3842
diff changeset
   282
                    amParachute: begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   283
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtParachute, 0, _0, _0, 0);
3851
fbe2e9722fc9 Sounds:
smaxx
parents: 3842
diff changeset
   284
                                 PlaySound(sndParachute)
fbe2e9722fc9 Sounds:
smaxx
parents: 3842
diff changeset
   285
                                 end;
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   286
                    // we save CurWeapon^.Pos (in this case: cursor direction) by using it as (otherwise irrelevant) X value of the new gear.
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   287
                    amAirAttack: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 0, _0, _0, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   288
                   amMineStrike: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 1, _0, _0, 0);
5372
7283bc768228 Change bee pos sprite, make aiming napalm a little easier, adjust napalm flames to be more centred on the target
nemo
parents: 5343
diff changeset
   289
                  amDrillStrike: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 3, _0, _0, CurWeapon^.Timer);
7283bc768228 Change bee pos sprite, make aiming napalm a little easier, adjust napalm flames to be more centred on the target
nemo
parents: 5343
diff changeset
   290
                       amNapalm: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 2, _0, _0, 0);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   291
                    amBlowTorch: newGear:= AddGear(hwRound(lx), hwRound(ly), gtBlowTorch, 0, SignAs(_0_5, dX), _0, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   292
                       amGirder: newGear:= AddGear(0, 0, gtGirder, CurWeapon^.Pos, _0, _0, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   293
                     amTeleport: newGear:= AddGear(CurWeapon^.Pos, 0, gtTeleport, 0, _0, _0, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   294
                       amSwitch: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSwitcher, 0, _0, _0, 0);
2262
0dc94341bf42 sound for mortar
koda
parents: 2238
diff changeset
   295
                       amMortar: begin
3483
54ff8cbabaa6 Engine:
smxx
parents: 3476
diff changeset
   296
                                 playSound(sndMortar);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   297
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtMortar,  0, xx*cMaxPower/cPowerDivisor, yy*cMaxPower/cPowerDivisor, 0);
3483
54ff8cbabaa6 Engine:
smxx
parents: 3476
diff changeset
   298
                                 end;
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1710
diff changeset
   299
                      amRCPlane: begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   300
                                 newGear:= AddGear(hwRound(lx), hwRound(ly), gtRCPlane,  0, xx * cMaxPower / cPowerDivisor / 4, yy * cMaxPower / cPowerDivisor / 4, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   301
                                 newGear^.SoundChannel:= LoopSound(sndRCPlane, nil)
1712
f5b916de40f0 Patch by nemo (polished by me)
unc0rr
parents: 1710
diff changeset
   302
                                 end;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   303
                       amKamikaze: newGear:= AddGear(hwRound(lx), hwRound(ly), gtKamikaze, 0, xx * _0_5, yy * _0_5, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   304
                         amCake: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 3, hwRound(ly), gtCake, 0, xx, _0, 0);
5526
70a5ec7b1020 remove offset in seduction gear creation
nemo
parents: 5513
diff changeset
   305
                    amSeduction: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSeduction, 0, _0, _0, 0);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   306
                   amWatermelon: newGear:= AddGear(hwRound(lx), hwRound(ly), gtWatermelon,  0, newDx, newDy, CurWeapon^.Timer);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   307
                  amHellishBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtHellishBomb,    0, newDx, newDy, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   308
                        amDrill: newGear:= AddGear(hwRound(lx), hwRound(ly), gtDrill, 0, newDx, newDy, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   309
                      amBallgun: newGear:= AddGear(hwRound(X), hwRound(Y), gtBallgun,  0, xx * _0_5, yy * _0_5, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   310
                    amJetpack: newGear:= AddGear(hwRound(lx), hwRound(ly), gtJetpack, 0, _0, _0, 0);
3123
b0a02930a1dc Engine:
smxx
parents: 3112
diff changeset
   311
                    amBirdy: begin
b0a02930a1dc Engine:
smxx
parents: 3112
diff changeset
   312
                             PlaySound(sndWhistle);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   313
                             newGear:= AddGear(hwRound(lx), hwRound(ly) - 32, gtBirdy, 0, _0, _0, 0);
3123
b0a02930a1dc Engine:
smxx
parents: 3112
diff changeset
   314
                             end;
2908
bd1909984a09 Engine:
smxx
parents: 2882
diff changeset
   315
                      amLowGravity: begin
bd1909984a09 Engine:
smxx
parents: 2882
diff changeset
   316
                                    PlaySound(sndLowGravity);
4623
fa24dac6c473 apply cGravityf when changing cGravity
nemo
parents: 4578
diff changeset
   317
                                    cGravity:= cMaxWindSpeed;
fa24dac6c473 apply cGravityf when changing cGravity
nemo
parents: 4578
diff changeset
   318
                                    cGravityf:= 0.00025
2908
bd1909984a09 Engine:
smxx
parents: 2882
diff changeset
   319
                                    end;
4224
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
   320
                      amExtraDamage:begin 
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
   321
                                    PlaySound(sndHellishImpact4);
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
   322
                                    cDamageModifier:= _1_5
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
   323
                                    end;
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1749
diff changeset
   324
                      amInvulnerable: Invulnerable:= true;
4224
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
   325
                      amExtraTime:  begin
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
   326
                                    PlaySound(sndSwitchHog);
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
   327
                                    TurnTimeLeft:= TurnTimeLeft + 30000
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
   328
                                    end;
1854
6e05013899b2 laser beam by nemo reworked a bit by me
unc0rr
parents: 1849
diff changeset
   329
                      amLaserSight: cLaserSighting:= true;
3483
54ff8cbabaa6 Engine:
smxx
parents: 3476
diff changeset
   330
                      amVampiric: begin
54ff8cbabaa6 Engine:
smxx
parents: 3476
diff changeset
   331
                                  PlaySound(sndOw1, Team^.voicepack);
54ff8cbabaa6 Engine:
smxx
parents: 3476
diff changeset
   332
                                  cVampiric:= true;
54ff8cbabaa6 Engine:
smxx
parents: 3476
diff changeset
   333
                                  end;
3351
3fd3f116f2fc Engine:
smxx
parents: 3350
diff changeset
   334
                      amPiano: begin
3399
885304636abf Drown the hog using the piano
nemo
parents: 3397
diff changeset
   335
                               // Tuck the hedgehog away until the piano attack is completed
885304636abf Drown the hog using the piano
nemo
parents: 3397
diff changeset
   336
                               Unplaced:= true;
885304636abf Drown the hog using the piano
nemo
parents: 3397
diff changeset
   337
                               X:= _0;
885304636abf Drown the hog using the piano
nemo
parents: 3397
diff changeset
   338
                               Y:= _0;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   339
                               newGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
3351
3fd3f116f2fc Engine:
smxx
parents: 3350
diff changeset
   340
                               PauseMusic
3fd3f116f2fc Engine:
smxx
parents: 3350
diff changeset
   341
                               end;
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   342
                      amFlamethrower: newGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   343
                      amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun,  0, xx * _0_5, yy * _0_5, 0);
3991
82e4a5ef18f7 Resurrector Weapon: Add ammo icon, sound, hedgehog picture (from Tiy).
Tobias Neumann <mail@tobias-neumann.eu>
parents: 3970
diff changeset
   344
                    amResurrector: begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   345
                        newGear:= AddGear(hwRound(lx), hwRound(ly),
3991
82e4a5ef18f7 Resurrector Weapon: Add ammo icon, sound, hedgehog picture (from Tiy).
Tobias Neumann <mail@tobias-neumann.eu>
parents: 3970
diff changeset
   346
                                gtResurrector, 0, _0, _0, 0);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   347
                        newGear^.SoundChannel := LoopSound(sndResurrector);
3991
82e4a5ef18f7 Resurrector Weapon: Add ammo icon, sound, hedgehog picture (from Tiy).
Tobias Neumann <mail@tobias-neumann.eu>
parents: 3970
diff changeset
   348
                    end;
4246
e5cb885492df drillstrike! might require the drill patch to improve behavior
koda
parents: 4241
diff changeset
   349
                   //amMelonStrike: AddGear(CurWeapon^.Pos, 0, gtAirAttack, 4, _0, _0, 0);
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   350
                     amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   351
                        amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 5000);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   352
                  end;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   353
             case CurAmmoType of
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   354
                      amGrenade, amMolotov, 
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   355
                  amClusterBomb, amGasBomb, 
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   356
                      amBazooka, amSnowball, 
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   357
                          amBee, amSMine,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   358
                       amMortar, amWatermelon,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   359
                  amHellishBomb, amDrill,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   360
                        amPiano: FollowGear:= newGear;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   361
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   362
                      amShotgun, amPickHammer,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   363
                         amRope, amDEagle,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   364
                      amSineGun, amSniperRifle,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   365
                    amFirePunch, amWhip,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   366
                       amHammer, amBaseballBat,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   367
                    amParachute, amBlowTorch,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   368
                       amGirder, amTeleport,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   369
                       amSwitch, amRCPlane,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   370
                     amKamikaze, amCake,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   371
                    amSeduction, amBallgun,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   372
                      amJetpack, amBirdy,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   373
                 amFlamethrower, amLandGun,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   374
                  amResurrector, amStructure,
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   375
                       amTardis: CurAmmoGear:= newGear;
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   376
                  end;
6122
nemo
parents: 6121
diff changeset
   377
              if (CurAmmoType = amMine) or (CurAmmoType = amSMine) and (GameFlags and gfInfAttack <> 0) then newGear^.FlightTime:= GameTicks + 1000;
5507
1040c0946ef8 This should make bee/airstrikes play nicer with infinite attack mode
nemo
parents: 5439
diff changeset
   378
        if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then
1040c0946ef8 This should make bee/airstrikes play nicer with infinite attack mode
nemo
parents: 5439
diff changeset
   379
            begin
5612
2638dec1b323 This really should have been a TPoint for consistency
nemo
parents: 5584
diff changeset
   380
            newGear^.Target.X:= TargetPoint.X;
2638dec1b323 This really should have been a TPoint for consistency
nemo
parents: 5584
diff changeset
   381
            newGear^.Target.Y:= TargetPoint.Y
5507
1040c0946ef8 This should make bee/airstrikes play nicer with infinite attack mode
nemo
parents: 5439
diff changeset
   382
            end;
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 800
diff changeset
   383
4994
2d9a52d6ea24 Issue #194, turn off followgear for altuse
nemo
parents: 4976
diff changeset
   384
        // Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement
2d9a52d6ea24 Issue #194, turn off followgear for altuse
nemo
parents: 4976
diff changeset
   385
        if altUse then FollowGear:= nil;
2d9a52d6ea24 Issue #194, turn off followgear for altuse
nemo
parents: 4976
diff changeset
   386
5322
1bcc12a30d5d add missing nil check, increase despeckling of background too
nemo
parents: 5319
diff changeset
   387
        if (newGear <> nil) and ((Ammoz[newGear^.AmmoType].Ammo.Propz and ammoprop_SetBounce) <> 0) then
5319
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   388
            begin
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   389
            elastic:=  int2hwfloat(CurWeapon^.Bounciness) / _1000;
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   390
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   391
            if elastic < _1 then newGear^.Elasticity:= newGear^.Elasticity * elastic
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   392
            else if elastic > _1 then newGear^.Elasticity:= _1 - ((_1-newGear^.Elasticity) / elastic);
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   393
(* Experimented with friction modifier. Didn't seem helpful 
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   394
            fric:= int2hwfloat(CurWeapon^.Bounciness) / _250;
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   395
            if fric < _1 then newGear^.Friction:= newGear^.Friction * fric
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   396
            else if fric > _1 then newGear^.Friction:= _1 - ((_1-newGear^.Friction) / fric)*)
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   397
            end;
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   398
51d8e4747876 bounce. tweak of values, remove friction modifier, move to weapon, to match timer behaviour
nemo
parents: 5316
diff changeset
   399
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   400
        uStats.AmmoUsed(CurAmmoType);
829
1209eb768acf Use 'first blood' sound
unc0rr
parents: 800
diff changeset
   401
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 1964
diff changeset
   402
        if not (SpeechText = '') then
7845c77c8d31 nemo's great patch:
unc0rr
parents: 1964
diff changeset
   403
            begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   404
            speech:= AddVisualGear(0, 0, vgtSpeechBubble);
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   405
            if speech <> nil then
2115
1c9a8081aef6 unc0rr forgot nil check here too
nemo
parents: 2056
diff changeset
   406
               begin
5316
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   407
               speech^.Text:= SpeechText;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   408
               speech^.Hedgehog:= Gear^.Hedgehog;
191cd6c06203 Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents: 5313
diff changeset
   409
               speech^.FrameTicks:= SpeechType;
2115
1c9a8081aef6 unc0rr forgot nil check here too
nemo
parents: 2056
diff changeset
   410
               end;
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 1964
diff changeset
   411
            SpeechText:= ''
7845c77c8d31 nemo's great patch:
unc0rr
parents: 1964
diff changeset
   412
            end;
7845c77c8d31 nemo's great patch:
unc0rr
parents: 1964
diff changeset
   413
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   414
        Power:= 0;
930
3f61bd3b08fd Initial support for attacking from rope
unc0rr
parents: 928
diff changeset
   415
        if (CurAmmoGear <> nil)
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   416
           and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) = 0){check for dropping ammo from rope} then
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   417
           begin
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   418
           Message:= Message or gmAttack;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   419
           CurAmmoGear^.Message:= Message
82
2f4f3236cccc - New fort
unc0rr
parents: 80
diff changeset
   420
           end else begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   421
           if not CurrentTeam^.ExtDriven and
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   422
             ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then SendIPC('a');
1849
2a989e5abda6 4 utilities by nemo
unc0rr
parents: 1749
diff changeset
   423
           AfterAttack;
82
2f4f3236cccc - New fort
unc0rr
parents: 80
diff changeset
   424
           end
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   425
        end else Message:= Message and not gmAttack;
5511
13a222b00a9d prevent attempting to teleport in mid-air during inf attack
nemo
parents: 5507
diff changeset
   426
     end;
5720
a962d0823f49 onHogAttack hook. Might reposition this later.
mikade
parents: 5706
diff changeset
   427
     TargetPoint.X := NoPointX;
a962d0823f49 onHogAttack hook. Might reposition this later.
mikade
parents: 5706
diff changeset
   428
     ScriptCall('onHogAttack');	
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   429
end;
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   430
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   431
procedure AfterAttack;
2502
f67c603c23b5 - Fix build
unc0rr
parents: 2500
diff changeset
   432
var s: shortstring;
3970
0f6e3219c108 set CurAmmoType to a temp var so I don't have to worry about it switching inside the routine so that I can actually put OnUsedAmmo where it belongs.
nemo
parents: 3965
diff changeset
   433
    a: TAmmoType;
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   434
begin
602
f7628ebfccde Add CurrentHedgehog variable which simplifies code
unc0rr
parents: 558
diff changeset
   435
with CurrentHedgehog^.Gear^,
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   436
        CurrentHedgehog^ do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   437
    begin
3970
0f6e3219c108 set CurAmmoType to a temp var so I don't have to worry about it switching inside the routine so that I can actually put OnUsedAmmo where it belongs.
nemo
parents: 3965
diff changeset
   438
    a:= CurAmmoType;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   439
    State:= State and not gstAttacking;
3970
0f6e3219c108 set CurAmmoType to a temp var so I don't have to worry about it switching inside the routine so that I can actually put OnUsedAmmo where it belongs.
nemo
parents: 3965
diff changeset
   440
    if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   441
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   442
        Inc(MultiShootAttacks);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   443
        
3970
0f6e3219c108 set CurAmmoType to a temp var so I don't have to worry about it switching inside the routine so that I can actually put OnUsedAmmo where it belongs.
nemo
parents: 3965
diff changeset
   444
        if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   445
            begin
3970
0f6e3219c108 set CurAmmoType to a temp var so I don't have to worry about it switching inside the routine so that I can actually put OnUsedAmmo where it belongs.
nemo
parents: 3965
diff changeset
   446
            s:= inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   447
            AddCaption(format(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   448
            end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   449
        
3970
0f6e3219c108 set CurAmmoType to a temp var so I don't have to worry about it switching inside the routine so that I can actually put OnUsedAmmo where it belongs.
nemo
parents: 3965
diff changeset
   450
        if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) or
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   451
            ((GameFlags and gfMultiWeapon) <> 0) then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   452
            begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   453
            isInMultiShoot:= true
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   454
            end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   455
        else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   456
            begin
3970
0f6e3219c108 set CurAmmoType to a temp var so I don't have to worry about it switching inside the routine so that I can actually put OnUsedAmmo where it belongs.
nemo
parents: 3965
diff changeset
   457
            OnUsedAmmo(CurrentHedgehog^);
5287
ffc1475a4afd fixed gfInfAttack preventing ending of turn while placing hedgehogs
Henek
parents: 5279
diff changeset
   458
            if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (((GameFlags and gfInfAttack) = 0) or PlacingHogs) then
5016
9347d82a26cc added game mode Tag Team, mostly untested, please test :)
Henek
parents: 5013
diff changeset
   459
                begin
9347d82a26cc added game mode Tag Team, mostly untested, please test :)
Henek
parents: 5013
diff changeset
   460
                if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;
5035
a00636066077 nikin just wants to get commit count up
nikin
parents: 5034
diff changeset
   461
                TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 100;
5016
9347d82a26cc added game mode Tag Team, mostly untested, please test :)
Henek
parents: 5013
diff changeset
   462
                end;
4241
835fd7a0e1bf Move resurrection to utilities, reduce its probablit a bit to match other utilities, rename the "hint" prop since it really isn't being used as a hint anymore. That can be put back if it changes.
nemo
parents: 4238
diff changeset
   463
            if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) then State:= State or gstAttacked;
835fd7a0e1bf Move resurrection to utilities, reduce its probablit a bit to match other utilities, rename the "hint" prop since it really isn't being used as a hint anymore. That can be put back if it changes.
nemo
parents: 4238
diff changeset
   464
            if (Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) <> 0 then ApplyAmmoChanges(CurrentHedgehog^)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   465
            end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   466
        end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   467
    else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   468
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   469
        OnUsedAmmo(CurrentHedgehog^);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   470
        ApplyAmmoChanges(CurrentHedgehog^);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   471
        end;
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   472
    AttackBar:= 0
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   473
    end
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   474
end;
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   475
42
72ffe21f027c - Fixed console behavior
unc0rr
parents: 39
diff changeset
   476
////////////////////////////////////////////////////////////////////////////////
863
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
   477
procedure doStepHedgehogDead(Gear: PGear);
868
4884bce5e5eb Hedgehog death animation
unc0rr
parents: 866
diff changeset
   478
const frametime = 200;
4884bce5e5eb Hedgehog death animation
unc0rr
parents: 866
diff changeset
   479
      timertime = frametime * 6;
863
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
   480
begin
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   481
if Gear^.Hedgehog^.Unplaced then exit;
863
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
   482
if Gear^.Timer > 1 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   483
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   484
    AllInactive:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   485
    dec(Gear^.Timer);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   486
    if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos)
5972
add1cae1add6 Clear gstAnimation and reset Timer before entering death animation
nemo
parents: 5965
diff changeset
   487
    end 
add1cae1add6 Clear gstAnimation and reset Timer before entering death animation
nemo
parents: 5965
diff changeset
   488
else if Gear^.Timer = 1 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   489
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   490
    Gear^.State:= Gear^.State or gstNoDamage;
4837
2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash.
unc0rr
parents: 4827
diff changeset
   491
    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, CurrentHedgehog, EXPLAutoSound);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   492
    AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0)^.Hedgehog:= Gear^.Hedgehog;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   493
    DeleteGear(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   494
    SetAllToActive
5972
add1cae1add6 Clear gstAnimation and reset Timer before entering death animation
nemo
parents: 5965
diff changeset
   495
    end 
add1cae1add6 Clear gstAnimation and reset Timer before entering death animation
nemo
parents: 5965
diff changeset
   496
else // Gear^.Timer = 0
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   497
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   498
    AllInactive:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   499
    Gear^.Z:= cCurrHHZ;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   500
    RemoveGearFromList(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   501
    InsertGearToList(Gear);
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   502
    PlaySound(sndByeBye, Gear^.Hedgehog^.Team^.voicepack);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   503
    Gear^.Pos:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   504
    Gear^.Timer:= timertime
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   505
    end
863
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
   506
end;
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
   507
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
   508
////////////////////////////////////////////////////////////////////////////////
3310
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   509
procedure doStepHedgehogGone(Gear: PGear);
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   510
const frametime = 65;
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   511
      timertime = frametime * 11;
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   512
begin
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   513
if Gear^.Hedgehog^.Unplaced then exit;
3310
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   514
if Gear^.Timer > 1 then
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   515
    begin
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   516
    AllInactive:= false;
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   517
    dec(Gear^.Timer);
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   518
    if (Gear^.Timer mod frametime) = 0 then inc(Gear^.Pos)
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   519
    end else
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   520
if Gear^.Timer = 1 then
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   521
    begin
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   522
    DeleteGear(Gear);
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   523
    SetAllToActive
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   524
    end else // Gear^.Timer = 0
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   525
    begin
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   526
    AllInactive:= false;
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   527
    Gear^.Z:= cCurrHHZ;
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   528
    RemoveGearFromList(Gear);
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   529
    InsertGearToList(Gear);
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   530
    PlaySound(sndByeBye, Gear^.Hedgehog^.Team^.voicepack);
3310
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   531
    PlaySound(sndWarp);
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   532
    Gear^.Pos:= 0;
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   533
    Gear^.Timer:= timertime
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   534
    end
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   535
end;
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   536
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
   537
////////////////////////////////////////////////////////////////////////////////
42
72ffe21f027c - Fixed console behavior
unc0rr
parents: 39
diff changeset
   538
procedure PickUp(HH, Gear: PGear);
295
8834f3cb620e - Implement ammo cases
unc0rr
parents: 285
diff changeset
   539
var s: shortstring;
8834f3cb620e - Implement ammo cases
unc0rr
parents: 285
diff changeset
   540
    a: TAmmoType;
3169
c8c6ac44f51b prophylactic removal of some Integer references, raise a few of the template islands up a bit so they work inverted without triggering border
nemo
parents: 3161
diff changeset
   541
    i: LongInt;
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   542
    vga: PVisualGear;
42
72ffe21f027c - Fixed console behavior
unc0rr
parents: 39
diff changeset
   543
begin
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   544
Gear^.Message:= gmDestroy;
2745
11fce231f24a Engine:
smxx
parents: 2660
diff changeset
   545
PlaySound(sndShotgunReload);
5343
ff7ecf483759 fake crates now with complementary poison
Henek
parents: 5322
diff changeset
   546
if (Gear^.Pos and posCaseExplode) <> 0 then
ff7ecf483759 fake crates now with complementary poison
Henek
parents: 5322
diff changeset
   547
    if (Gear^.Pos and posCasePoison) <> 0 then
ff7ecf483759 fake crates now with complementary poison
Henek
parents: 5322
diff changeset
   548
        doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned)
ff7ecf483759 fake crates now with complementary poison
Henek
parents: 5322
diff changeset
   549
    else
ff7ecf483759 fake crates now with complementary poison
Henek
parents: 5322
diff changeset
   550
        doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound)
ff7ecf483759 fake crates now with complementary poison
Henek
parents: 5322
diff changeset
   551
else if (Gear^.Pos and posCasePoison) <> 0 then
ff7ecf483759 fake crates now with complementary poison
Henek
parents: 5322
diff changeset
   552
    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned + EXPLNoDamage)
5313
5e18eaef65d0 now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents: 5287
diff changeset
   553
else
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   554
case Gear^.Pos of
1964
dc9ea05c9d2f - Another way of defining official server
unc0rr
parents: 1922
diff changeset
   555
       posCaseUtility,
295
8834f3cb620e - Implement ammo cases
unc0rr
parents: 285
diff changeset
   556
       posCaseAmmo: begin
5584
e0b9722bd653 Make it a lot harder to cheat with typical random crates. This also means that crates will vary even if map has the same seed (hog positions of course will be unchanged).
nemo
parents: 5564
diff changeset
   557
                    if Gear^.AmmoType <> amNothing then a:= Gear^.AmmoType 
e0b9722bd653 Make it a lot harder to cheat with typical random crates. This also means that crates will vary even if map has the same seed (hog positions of course will be unchanged).
nemo
parents: 5564
diff changeset
   558
                    else
e0b9722bd653 Make it a lot harder to cheat with typical random crates. This also means that crates will vary even if map has the same seed (hog positions of course will be unchanged).
nemo
parents: 5564
diff changeset
   559
                        begin
e0b9722bd653 Make it a lot harder to cheat with typical random crates. This also means that crates will vary even if map has the same seed (hog positions of course will be unchanged).
nemo
parents: 5564
diff changeset
   560
                        for i:= 0 to GameTicks and $7F do GetRandom(2); // Burn some random numbers
e0b9722bd653 Make it a lot harder to cheat with typical random crates. This also means that crates will vary even if map has the same seed (hog positions of course will be unchanged).
nemo
parents: 5564
diff changeset
   561
                        if Gear^.Pos = posCaseUtility then a:= GetUtility
e0b9722bd653 Make it a lot harder to cheat with typical random crates. This also means that crates will vary even if map has the same seed (hog positions of course will be unchanged).
nemo
parents: 5564
diff changeset
   562
                        else a:= GetAmmo
e0b9722bd653 Make it a lot harder to cheat with typical random crates. This also means that crates will vary even if map has the same seed (hog positions of course will be unchanged).
nemo
parents: 5564
diff changeset
   563
                        end;
4372
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   564
                    AddAmmo(HH^.Hedgehog^, a);
2853
953a6d71396f Restore shared clan ammo (still needs flag), add ammo info message if the person who picked up the ammo was a member of your clan
nemo
parents: 2827
diff changeset
   565
// Possibly needs to check shared clan ammo game flag once added.
953a6d71396f Restore shared clan ammo (still needs flag), add ammo info message if the person who picked up the ammo was a member of your clan
nemo
parents: 2827
diff changeset
   566
// On the other hand, no obvious reason that clan members shouldn't know what ammo another clan member picked up
4372
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   567
                    if (not (HH^.Hedgehog^.Team^.ExtDriven 
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   568
                      or (HH^.Hedgehog^.BotLevel > 0)))
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   569
                      or (HH^.Hedgehog^.Team^.Clan^.ClanIndex = LocalClan)
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   570
                      or (GameType = gmtDemo)  then
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   571
                        begin
3196
336d6fc3325c Engine:
smxx
parents: 3174
diff changeset
   572
                        s:= trammo[Ammoz[a].NameId] + ' (+' + IntToStr(Ammoz[a].NumberInCase) + ')';
4372
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   573
                        AddCaption(s, HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
2972
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   574
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   575
                        // show ammo icon
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   576
                        vga:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtAmmo);
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   577
                        if vga <> nil then
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   578
                            vga^.Frame:= Longword(a);
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   579
                        end;
82828fd23dea Patch by soreau (polished by me): show floating away ammo icon when you pick up a crate
unc0rr
parents: 2948
diff changeset
   580
295
8834f3cb620e - Implement ammo cases
unc0rr
parents: 285
diff changeset
   581
                    end;
42
72ffe21f027c - Fixed console behavior
unc0rr
parents: 39
diff changeset
   582
     posCaseHealth: begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   583
                    inc(HH^.Health, Gear^.Health);
4372
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   584
                    HH^.Hedgehog^.Effects[hePoisoned] := false;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   585
                    str(Gear^.Health, s);
295
8834f3cb620e - Implement ammo cases
unc0rr
parents: 285
diff changeset
   586
                    s:= '+' + s;
4372
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   587
                    AddCaption(s, HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   588
                    RenderHealth(HH^.Hedgehog^);
3836973380b9 remove some more PHedgehog casts
nemo
parents: 4365
diff changeset
   589
                    RecountTeamHealth(HH^.Hedgehog^.Team);
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2376
diff changeset
   590
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   591
                    i:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   592
                    while i < Gear^.Health do
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   593
                        begin
5563
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5526
diff changeset
   594
                        vga:= AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtStraightShot);
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5526
diff changeset
   595
                        if vga <> nil then
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5526
diff changeset
   596
                            with vga^ do
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5526
diff changeset
   597
                                begin
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5526
diff changeset
   598
                                Tint:= $00FF00FF;
5564
4f42009237df For mikade's sake, use old dx/dy/frametick as default, so health crosses move the same
nemo
parents: 5563
diff changeset
   599
                                State:= ord(sprHealth)
5563
fc73b6e941f7 Use same visual gear for health tags and hearts.
nemo
parents: 5526
diff changeset
   600
                                end;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   601
                        inc(i, 5);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   602
                        end;
42
72ffe21f027c - Fixed console behavior
unc0rr
parents: 39
diff changeset
   603
                    end;
435
25820c10c849 Better AI behavior
unc0rr
parents: 434
diff changeset
   604
     end
42
72ffe21f027c - Fixed console behavior
unc0rr
parents: 39
diff changeset
   605
end;
32
78bff13b11c0 With this patch the game doesn't crash when gaming by net
unc0rr
parents: 16
diff changeset
   606
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   607
const StepTicks: LongWord = 0;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   608
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   609
procedure HedgehogStep(Gear: PGear);
371
731ad6d27bd1 integer -> LongInt
unc0rr
parents: 369
diff changeset
   610
var PrevdX: LongInt;
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   611
    CurWeapon: PAmmo;
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   612
begin
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   613
CurWeapon:= GetAmmoEntry(Gear^.Hedgehog^);
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
   614
if ((Gear^.State and (gstAttacking or gstMoving)) = 0) then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   615
   begin
408
6c3da4907d00 Airplane can fly from right to left
unc0rr
parents: 394
diff changeset
   616
   if isCursorVisible then
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   617
      with Gear^.Hedgehog^ do
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   618
        with CurWeapon^ do
408
6c3da4907d00 Airplane can fly from right to left
unc0rr
parents: 394
diff changeset
   619
          begin
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   620
          if (Gear^.Message and gmLeft  ) <> 0 then
3407
dcc129c4352e Engine:
smxx
parents: 3402
diff changeset
   621
             Pos:= (Pos - 1 + Ammoz[AmmoType].PosCount) mod Ammoz[AmmoType].PosCount
408
6c3da4907d00 Airplane can fly from right to left
unc0rr
parents: 394
diff changeset
   622
          else
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   623
          if (Gear^.Message and gmRight ) <> 0 then
408
6c3da4907d00 Airplane can fly from right to left
unc0rr
parents: 394
diff changeset
   624
             Pos:= (Pos + 1) mod Ammoz[AmmoType].PosCount
6c3da4907d00 Airplane can fly from right to left
unc0rr
parents: 394
diff changeset
   625
          else exit;
423
5f4559ce7062 Better construction tool
unc0rr
parents: 409
diff changeset
   626
          StepTicks:= 200;
408
6c3da4907d00 Airplane can fly from right to left
unc0rr
parents: 394
diff changeset
   627
          exit
6c3da4907d00 Airplane can fly from right to left
unc0rr
parents: 394
diff changeset
   628
          end;
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   629
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   630
    if ((Gear^.Message and gmAnimate) <> 0) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   631
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   632
        Gear^.Message:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   633
        Gear^.State:= Gear^.State or gstAnimation;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   634
        Gear^.Tag:= Gear^.MsgParam;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   635
        Gear^.Timer:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   636
        Gear^.Pos:= 0
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   637
        end;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1012
diff changeset
   638
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   639
   if ((Gear^.Message and gmLJump ) <> 0) then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   640
      begin
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   641
      Gear^.Message:= Gear^.Message and not gmLJump;
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   642
      DeleteCI(Gear);
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   643
      if TestCollisionYwithGear(Gear, -1) = 0 then
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   644
         if not TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX)) then Gear^.Y:= Gear^.Y - _2 else
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   645
         if not TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX)) then Gear^.Y:= Gear^.Y - _1;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   646
      if not (TestCollisionXwithGear(Gear, hwSign(Gear^.dX))
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   647
         or   (TestCollisionYwithGear(Gear, -1) <> 0)) then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   648
         begin
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   649
         Gear^.dY:= -_0_15;
2024
2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot
nemo
parents: 2023
diff changeset
   650
         if not cArtillery then Gear^.dX:= SignAs(_0_15, Gear^.dX);
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
   651
         Gear^.State:= Gear^.State or gstMoving or gstHHJumping;
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   652
         PlaySound(sndJump1, Gear^.Hedgehog^.Team^.voicepack);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   653
         exit
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   654
         end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   655
      end;
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   656
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   657
   if ((Gear^.Message and gmHJump ) <> 0) then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   658
      begin
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   659
      DeleteCI(Gear);
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   660
      Gear^.Message:= Gear^.Message and not gmHJump;
855
8842c71d16bf - Fix too long delay between shotgun and deagle shots
unc0rr
parents: 854
diff changeset
   661
8842c71d16bf - Fix too long delay between shotgun and deagle shots
unc0rr
parents: 854
diff changeset
   662
      Gear^.dY:= -_0_2;
8842c71d16bf - Fix too long delay between shotgun and deagle shots
unc0rr
parents: 854
diff changeset
   663
      SetLittle(Gear^.dX);
8842c71d16bf - Fix too long delay between shotgun and deagle shots
unc0rr
parents: 854
diff changeset
   664
      Gear^.State:= Gear^.State or gstMoving or gstHHJumping;
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   665
      PlaySound(sndJump3, Gear^.Hedgehog^.Team^.voicepack);
855
8842c71d16bf - Fix too long delay between shotgun and deagle shots
unc0rr
parents: 854
diff changeset
   666
      exit
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   667
      end;
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   668
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   669
   PrevdX:= hwSign(Gear^.dX);
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   670
   if (Gear^.Message and gmLeft  )<>0 then Gear^.dX:= -cLittle else
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   671
   if (Gear^.Message and gmRight )<>0 then Gear^.dX:=  cLittle else exit;
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   672
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   673
   if (Gear^.Message and (gmLeft or gmRight)) <> 0 then
2940
c02119eee12a Engine:
smxx
parents: 2908
diff changeset
   674
      begin
c02119eee12a Engine:
smxx
parents: 2908
diff changeset
   675
      StepSoundTimer:= cHHStepTicks;
c02119eee12a Engine:
smxx
parents: 2908
diff changeset
   676
      end;
c02119eee12a Engine:
smxx
parents: 2908
diff changeset
   677
   
74
42257fee61ae - Unicode support for team and hedgehogs names
unc0rr
parents: 73
diff changeset
   678
   StepTicks:= cHHStepTicks;
610
9b5a6200f667 - Training format change
unc0rr
parents: 602
diff changeset
   679
   if PrevdX <> hwSign(Gear^.dX) then
9b5a6200f667 - Training format change
unc0rr
parents: 602
diff changeset
   680
      begin
9b5a6200f667 - Training format change
unc0rr
parents: 602
diff changeset
   681
      FollowGear:= Gear;
9b5a6200f667 - Training format change
unc0rr
parents: 602
diff changeset
   682
      exit
9b5a6200f667 - Training format change
unc0rr
parents: 602
diff changeset
   683
      end;
9b5a6200f667 - Training format change
unc0rr
parents: 602
diff changeset
   684
   DeleteCI(Gear); // must be after exit!! (see previous line)
838
1faae19f2116 Remove tailing spaces in some places
unc0rr
parents: 836
diff changeset
   685
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   686
   Gear^.Hedgehog^.visStepPos:= (Gear^.Hedgehog^.visStepPos + 1) and 7;
351
29bc9c36ad5f Fixed-point arithmetics in engine.
unc0rr
parents: 304
diff changeset
   687
   if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   688
      begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   689
      if not (TestCollisionXwithXYShift(Gear, _0, -6, hwSign(Gear^.dX))
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   690
         or (TestCollisionYwithGear(Gear, -1) <> 0)) then Gear^.Y:= Gear^.Y - _1;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   691
      if not (TestCollisionXwithXYShift(Gear, _0, -5, hwSign(Gear^.dX))
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   692
         or (TestCollisionYwithGear(Gear, -1) <> 0)) then Gear^.Y:= Gear^.Y - _1;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   693
      if not (TestCollisionXwithXYShift(Gear, _0, -4, hwSign(Gear^.dX))
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   694
         or (TestCollisionYwithGear(Gear, -1) <> 0)) then Gear^.Y:= Gear^.Y - _1;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   695
      if not (TestCollisionXwithXYShift(Gear, _0, -3, hwSign(Gear^.dX))
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   696
         or (TestCollisionYwithGear(Gear, -1) <> 0)) then Gear^.Y:= Gear^.Y - _1;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   697
      if not (TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX))
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   698
         or (TestCollisionYwithGear(Gear, -1) <> 0)) then Gear^.Y:= Gear^.Y - _1;
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   699
      if not (TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX))
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   700
         or (TestCollisionYwithGear(Gear, -1) <> 0)) then Gear^.Y:= Gear^.Y - _1;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   701
      end;
1528
3fee15104c1d More stable blowtorch:
unc0rr
parents: 1519
diff changeset
   702
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
   703
   if (not cArtillery) and ((Gear^.Message and gmPrecise) = 0) and (not TestCollisionXwithGear(Gear, hwSign(Gear^.dX))) then
2585
0899ce8ad77f Smaxx: only allow change direction when shift key is pressed
unc0rr
parents: 2502
diff changeset
   704
      Gear^.X:= Gear^.X + SignAs(_1, Gear^.dX);
0899ce8ad77f Smaxx: only allow change direction when shift key is pressed
unc0rr
parents: 2502
diff changeset
   705
62
c3eda0c68cd6 No more hedgehogs hung in air
unc0rr
parents: 56
diff changeset
   706
   SetAllHHToActive;
37
2b7f2a43b999 - Properly get seed in net game
unc0rr
parents: 32
diff changeset
   707
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   708
   if TestCollisionYwithGear(Gear, 1) = 0 then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   709
   begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   710
   Gear^.Y:= Gear^.Y + _1;
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   711
   if TestCollisionYwithGear(Gear, 1) = 0 then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   712
   begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   713
   Gear^.Y:= Gear^.Y + _1;
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   714
   if TestCollisionYwithGear(Gear, 1) = 0 then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   715
   begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   716
   Gear^.Y:= Gear^.Y + _1;
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   717
   if TestCollisionYwithGear(Gear, 1) = 0 then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   718
   begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   719
   Gear^.Y:= Gear^.Y + _1;
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   720
   if TestCollisionYwithGear(Gear, 1) = 0 then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   721
   begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   722
   Gear^.Y:= Gear^.Y + _1;
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   723
   if TestCollisionYwithGear(Gear, 1) = 0 then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   724
   begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   725
   Gear^.Y:= Gear^.Y + _1;
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   726
   if TestCollisionYwithGear(Gear, 1) = 0 then
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   727
      begin
498
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   728
      Gear^.Y:= Gear^.Y - _6;
9c8b385dc9a1 - Get rid of operator := to have GPC support
unc0rr
parents: 435
diff changeset
   729
      Gear^.dY:= _0;
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
   730
      Gear^.State:= Gear^.State or gstMoving;
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   731
      exit
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   732
      end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   733
   end
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   734
   end
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   735
   end
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   736
   end
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   737
   end
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   738
   end;
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   739
   AddGearCI(Gear)
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   740
   end
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   741
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
   742
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   743
procedure HedgehogChAngle(HHGear: PGear);
958
92bb9fa046f9 Aim at high speed when performing rope swinging
unc0rr
parents: 952
diff changeset
   744
var da: LongWord;
303
1659c4aad5ab Now blow torch angle can be changed during blowing :)
unc0rr
parents: 302
diff changeset
   745
begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   746
with HHGear^.Hedgehog^ do
5640
07676ee23aff make it easier to do portal shoppa, ensure structure doesn't show up by accident in a weaponset
nemo
parents: 5638
diff changeset
   747
    if ((CurAmmoType = amRope) and 
07676ee23aff make it easier to do portal shoppa, ensure structure doesn't show up by accident in a weaponset
nemo
parents: 5638
diff changeset
   748
        ((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving)) or
07676ee23aff make it easier to do portal shoppa, ensure structure doesn't show up by accident in a weaponset
nemo
parents: 5638
diff changeset
   749
       ((CurAmmoType = amPortalGun) and 
07676ee23aff make it easier to do portal shoppa, ensure structure doesn't show up by accident in a weaponset
nemo
parents: 5638
diff changeset
   750
        ((HHGear^.State and gstMoving) <> 0)) then da:= 2
07676ee23aff make it easier to do portal shoppa, ensure structure doesn't show up by accident in a weaponset
nemo
parents: 5638
diff changeset
   751
    else da:= 1;
958
92bb9fa046f9 Aim at high speed when performing rope swinging
unc0rr
parents: 952
diff changeset
   752
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   753
if (((HHGear^.Message and gmPrecise) = 0) or ((GameTicks mod 5) = 1)) then
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   754
    if ((HHGear^.Message and gmUp) <> 0) and (HHGear^.Angle >= CurMinAngle + da) then dec(HHGear^.Angle, da)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   755
    else
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   756
    if ((HHGear^.Message and gmDown) <> 0) and (HHGear^.Angle + da <= CurMaxAngle) then inc(HHGear^.Angle, da)
303
1659c4aad5ab Now blow torch angle can be changed during blowing :)
unc0rr
parents: 302
diff changeset
   757
end;
1659c4aad5ab Now blow torch angle can be changed during blowing :)
unc0rr
parents: 302
diff changeset
   758
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   759
procedure doStepHedgehog(Gear: PGear); forward;
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   760
////////////////////////////////////////////////////////////////////////////////
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   761
procedure doStepHedgehogMoving(Gear: PGear);
3907
5b516f0d9957 Allow UFO to go underwater. Keep UFO active if it runs out of fuel in the air/water, just disable controls.
nemo
parents: 3894
diff changeset
   762
var isFalling, isUnderwater: boolean;
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   763
    land: Word;
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   764
begin
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   765
land:= 0;
3907
5b516f0d9957 Allow UFO to go underwater. Keep UFO active if it runs out of fuel in the air/water, just disable controls.
nemo
parents: 3894
diff changeset
   766
isUnderwater:= cWaterLine < hwRound(Gear^.Y) + Gear^.Radius;
3915
c05855146440 Correct bug in flight ceiling for birdy as well, increase clip on velocity to 1.9 (shouldn't cause problems with most collision checks still), apply clip to both + and -
nemo
parents: 3909
diff changeset
   767
if Gear^.dX.QWordValue > 8160437862 then Gear^.dX.QWordValue:= 8160437862;
c05855146440 Correct bug in flight ceiling for birdy as well, increase clip on velocity to 1.9 (shouldn't cause problems with most collision checks still), apply clip to both + and -
nemo
parents: 3909
diff changeset
   768
if Gear^.dY.QWordValue > 8160437862 then Gear^.dY.QWordValue:= 8160437862;
c05855146440 Correct bug in flight ceiling for birdy as well, increase clip on velocity to 1.9 (shouldn't cause problems with most collision checks still), apply clip to both + and -
nemo
parents: 3909
diff changeset
   769
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
   770
if Gear^.Hedgehog^.Unplaced then
2762
2fbc8d35eb52 Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents: 2745
diff changeset
   771
   begin
2fbc8d35eb52 Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents: 2745
diff changeset
   772
   Gear^.dY:= _0;
2fbc8d35eb52 Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents: 2745
diff changeset
   773
   Gear^.dX:= _0;
2fbc8d35eb52 Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents: 2745
diff changeset
   774
   Gear^.State:= Gear^.State and not gstMoving;
2fbc8d35eb52 Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents: 2745
diff changeset
   775
   exit
2fbc8d35eb52 Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents: 2745
diff changeset
   776
   end;
855
8842c71d16bf - Fix too long delay between shotgun and deagle shots
unc0rr
parents: 854
diff changeset
   777
isFalling:= (Gear^.dY.isNegative) or not TestCollisionYKick(Gear, 1);
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
   778
if isFalling then
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   779
   begin
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   780
   if (Gear^.dY.isNegative) and TestCollisionYKick(Gear, -1) then Gear^.dY:= _0;
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
   781
   Gear^.State:= Gear^.State or gstMoving;
5851
e6151aca2d7c Focus camera on moving current hog (probably more important to player). Should make tumbler, sine gun play, attacking off rope and saucer more playable. Also fix a typo in prior offset, and compensate for zoom.
nemo
parents: 5838
diff changeset
   782
   if (CurrentHedgehog^.Gear = Gear)
e6151aca2d7c Focus camera on moving current hog (probably more important to player). Should make tumbler, sine gun play, attacking off rope and saucer more playable. Also fix a typo in prior offset, and compensate for zoom.
nemo
parents: 5838
diff changeset
   783
        and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then 
e6151aca2d7c Focus camera on moving current hog (probably more important to player). Should make tumbler, sine gun play, attacking off rope and saucer more playable. Also fix a typo in prior offset, and compensate for zoom.
nemo
parents: 5838
diff changeset
   784
        begin
e6151aca2d7c Focus camera on moving current hog (probably more important to player). Should make tumbler, sine gun play, attacking off rope and saucer more playable. Also fix a typo in prior offset, and compensate for zoom.
nemo
parents: 5838
diff changeset
   785
        FollowGear:= Gear;
e6151aca2d7c Focus camera on moving current hog (probably more important to player). Should make tumbler, sine gun play, attacking off rope and saucer more playable. Also fix a typo in prior offset, and compensate for zoom.
nemo
parents: 5838
diff changeset
   786
        end;
3909
4ba25a3d15af remove windspeed from bubbles, remove initial dY from bubbles, apply dY/dX to bubbles, correct offsets on flying saucer flame graphics, add bubbles when flying saucer thrusts underwater, make flying saucer sink more slowly underwater
nemo
parents: 3907
diff changeset
   787
   if isUnderwater then Gear^.dY:= Gear^.dY + cGravity / _2
4301
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   788
   else
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   789
       begin
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   790
       Gear^.dY:= Gear^.dY + cGravity;
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   791
// this set of circumstances could be less complex if jumping was more clearly identified
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   792
       if ((GameFlags and gfMoreWind) <> 0) and 
4633
e69becb1ac14 braces fail
nemo
parents: 4623
diff changeset
   793
          (((Gear^.Damage <> 0) or
4301
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   794
          ((CurAmmoGear <> nil) and
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   795
            ((CurAmmoGear^.AmmoType = amJetpack) or
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   796
            (CurAmmoGear^.AmmoType = amBirdy))) or
4633
e69becb1ac14 braces fail
nemo
parents: 4623
diff changeset
   797
          ((Gear^.dY.QWordValue + Gear^.dX.QWordValue) > _0_55.QWordValue)))
4641
43d17e3b81de Tweak more wind values / densities
nemo
parents: 4633
diff changeset
   798
          then Gear^.dX := Gear^.dX + cWindSpeed / Gear^.Density
4301
4866cc130b8d Apply wind while roping too (with the game flag set)
nemo
parents: 4246
diff changeset
   799
       end
3909
4ba25a3d15af remove windspeed from bubbles, remove initial dY from bubbles, apply dY/dX to bubbles, correct offsets on flying saucer flame graphics, add bubbles when flying saucer thrusts underwater, make flying saucer sink more slowly underwater
nemo
parents: 3907
diff changeset
   800
   end 
4ba25a3d15af remove windspeed from bubbles, remove initial dY from bubbles, apply dY/dX to bubbles, correct offsets on flying saucer flame graphics, add bubbles when flying saucer thrusts underwater, make flying saucer sink more slowly underwater
nemo
parents: 3907
diff changeset
   801
else
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   802
   begin
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   803
   land:= TestCollisionYwithGear(Gear, 1);
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   804
   if ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_55.QWordValue) and ((land and lfIce) = 0)
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   805
      and ((Gear^.State and gstHHJumping) <> 0) then SetLittle(Gear^.dX);
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   806
540
b06c5aace2fa - Many fixes related to hh switcher
unc0rr
parents: 538
diff changeset
   807
   if not Gear^.dY.isNegative then
b06c5aace2fa - Many fixes related to hh switcher
unc0rr
parents: 538
diff changeset
   808
      begin
b06c5aace2fa - Many fixes related to hh switcher
unc0rr
parents: 538
diff changeset
   809
      CheckHHDamage(Gear);
790
a6f442173822 Make high jump behaviour like in worms (back somersault)
unc0rr
parents: 783
diff changeset
   810
2137
4bb9ff2069ec Okay, now a real fix
unc0rr
parents: 2136
diff changeset
   811
      if ((Gear^.State and gstHHHJump) <> 0) and (not cArtillery) and
790
a6f442173822 Make high jump behaviour like in worms (back somersault)
unc0rr
parents: 783
diff changeset
   812
         (Gear^.dX.QWordValue < _0_02.QWordValue) then Gear^.dX.isNegative:= not Gear^.dX.isNegative; // landing after high jump
a6f442173822 Make high jump behaviour like in worms (back somersault)
unc0rr
parents: 783
diff changeset
   813
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
   814
      Gear^.State:= Gear^.State and not (gstHHJumping or gstHHHJump);
540
b06c5aace2fa - Many fixes related to hh switcher
unc0rr
parents: 538
diff changeset
   815
      Gear^.dY:= _0;
b06c5aace2fa - Many fixes related to hh switcher
unc0rr
parents: 538
diff changeset
   816
      end else Gear^.dY:= Gear^.dY + cGravity;
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   817
6081
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   818
   if ((Gear^.State and gstMoving) <> 0) then
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   819
       begin
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   820
       if land and lfIce <> 0 then Gear^.dX:= Gear^.dX * (_1 - (_1 - Gear^.Friction) / _2)
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   821
       else Gear^.dX:= Gear^.dX * Gear^.Friction;
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects.
nemo
parents: 6014
diff changeset
   822
       end
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   823
   end;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   824
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   825
if (Gear^.State <> 0) then DeleteCI(Gear);
783
4f59db6f147d - New command 'set weapon'
unc0rr
parents: 614
diff changeset
   826
3907
5b516f0d9957 Allow UFO to go underwater. Keep UFO active if it runs out of fuel in the air/water, just disable controls.
nemo
parents: 3894
diff changeset
   827
if isUnderwater then
5b516f0d9957 Allow UFO to go underwater. Keep UFO active if it runs out of fuel in the air/water, just disable controls.
nemo
parents: 3894
diff changeset
   828
   begin
5b516f0d9957 Allow UFO to go underwater. Keep UFO active if it runs out of fuel in the air/water, just disable controls.
nemo
parents: 3894
diff changeset
   829
   Gear^.dY:= Gear^.dY * _0_999;
5b516f0d9957 Allow UFO to go underwater. Keep UFO active if it runs out of fuel in the air/water, just disable controls.
nemo
parents: 3894
diff changeset
   830
   Gear^.dX:= Gear^.dX * _0_999;
5b516f0d9957 Allow UFO to go underwater. Keep UFO active if it runs out of fuel in the air/water, just disable controls.
nemo
parents: 3894
diff changeset
   831
   end;
5b516f0d9957 Allow UFO to go underwater. Keep UFO active if it runs out of fuel in the air/water, just disable controls.
nemo
parents: 3894
diff changeset
   832
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   833
if (Gear^.State and gstMoving) <> 0 then
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   834
   if TestCollisionXKick(Gear, hwSign(Gear^.dX)) then
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
   835
      if not isFalling then
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   836
         if hwAbs(Gear^.dX) > _0_01 then
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   837
            if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -1, hwSign(Gear^.dX)) then begin Gear^.X:= Gear^.X + Gear^.dX; Gear^.dX:= Gear^.dX * _0_96; Gear^.Y:= Gear^.Y - _1 end else
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   838
            if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -2, hwSign(Gear^.dX)) then begin Gear^.X:= Gear^.X + Gear^.dX; Gear^.dX:= Gear^.dX * _0_93; Gear^.Y:= Gear^.Y - _2 end else
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   839
            if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -3, hwSign(Gear^.dX)) then begin Gear^.X:= Gear^.X + Gear^.dX; Gear^.dX:= Gear^.dX * _0_9 ; Gear^.Y:= Gear^.Y - _3 end else
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   840
            if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -4, hwSign(Gear^.dX)) then begin Gear^.X:= Gear^.X + Gear^.dX; Gear^.dX:= Gear^.dX * _0_87; Gear^.Y:= Gear^.Y - _4 end else
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   841
            if not TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -5, hwSign(Gear^.dX)) then begin Gear^.X:= Gear^.X + Gear^.dX; Gear^.dX:= Gear^.dX * _0_84; Gear^.Y:= Gear^.Y - _5 end else
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   842
            if hwAbs(Gear^.dX) > _0_02 then Gear^.dX:= -Gear^.Elasticity * Gear^.dX
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   843
                                   else begin
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   844
                                        Gear^.State:= Gear^.State and not gstMoving;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   845
                                        SetLittle(Gear^.dX)
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   846
                                        end
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   847
            else begin
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   848
                 Gear^.State:= Gear^.State and not gstMoving;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   849
                 SetLittle(Gear^.dX)
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   850
                 end
1518
4e5796fe3aac Fix jump landing after turn end
unc0rr
parents: 1507
diff changeset
   851
         else if (hwAbs(Gear^.dX) > cLittle)
4e5796fe3aac Fix jump landing after turn end
unc0rr
parents: 1507
diff changeset
   852
                and ((Gear^.State and gstHHJumping) = 0)
4e5796fe3aac Fix jump landing after turn end
unc0rr
parents: 1507
diff changeset
   853
                then Gear^.dX:= -Gear^.Elasticity * Gear^.dX
4e5796fe3aac Fix jump landing after turn end
unc0rr
parents: 1507
diff changeset
   854
                else SetLittle(Gear^.dX);
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   855
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
   856
if (not isFalling) and
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   857
   (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   858
   begin
1865
ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents: 1861
diff changeset
   859
   Gear^.State:= Gear^.State and not gstWinner;
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   860
   Gear^.State:= Gear^.State and not gstMoving;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   861
   SetLittle(Gear^.dX);
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   862
   Gear^.dY:= _0
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   863
   end else Gear^.State:= Gear^.State or gstMoving;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   864
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   865
if (Gear^.State and gstMoving) <> 0 then
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   866
   begin
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   867
   Gear^.State:= Gear^.State and not gstAnimation;
2017
7845c77c8d31 nemo's great patch:
unc0rr
parents: 1964
diff changeset
   868
// ARTILLERY but not being moved by explosions
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   869
   Gear^.X:= Gear^.X + Gear^.dX;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   870
   Gear^.Y:= Gear^.Y + Gear^.dY;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   871
   if (not Gear^.dY.isNegative) and
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   872
      (not TestCollisionYKick(Gear, 1)) and
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   873
       TestCollisionYwithXYShift(Gear, 0, 1, 1) then
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   874
      begin
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   875
      CheckHHDamage(Gear);
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   876
      Gear^.dY:= _0;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   877
      Gear^.Y:= Gear^.Y + _1
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   878
      end;
1658
208a3258afdf Fix a bug with visible cursor when hedgehog is dead
unc0rr
parents: 1645
diff changeset
   879
   CheckGearDrowning(Gear);
6248
103bc8fd4f1b don't hide target cursor if a hedgehog (other than current) is drowning, thanks to mikade for pointing this out
sheepluva
parents: 6244
diff changeset
   880
   // hide target cursor if current hog is drowning
103bc8fd4f1b don't hide target cursor if a hedgehog (other than current) is drowning, thanks to mikade for pointing this out
sheepluva
parents: 6244
diff changeset
   881
   if (Gear^.State and gstDrowning) <> 0 then
103bc8fd4f1b don't hide target cursor if a hedgehog (other than current) is drowning, thanks to mikade for pointing this out
sheepluva
parents: 6244
diff changeset
   882
       if (CurrentHedgehog^.Gear = Gear) then
103bc8fd4f1b don't hide target cursor if a hedgehog (other than current) is drowning, thanks to mikade for pointing this out
sheepluva
parents: 6244
diff changeset
   883
          isCursorVisible:= false
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2376
diff changeset
   884
   end;
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2376
diff changeset
   885
3003
0afdba08a858 Engine:
smxx
parents: 2996
diff changeset
   886
if (hwAbs(Gear^.dY) > _0) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2376
diff changeset
   887
    begin
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 6011
diff changeset
   888
    inc(Gear^.FlightTime);
3174
17e2602dfdc5 Engine:
smxx
parents: 3169
diff changeset
   889
    if Gear^.FlightTime = 3000 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   890
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   891
        AddCaption(GetEventString(eidHomerun), cWhiteColor, capgrpMessage);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   892
        PlaySound(sndHomerun)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   893
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   894
    end
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2376
diff changeset
   895
else
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2376
diff changeset
   896
    begin
6014
b432c4b9cc9b Report long flight archievement
unc0rr
parents: 6011
diff changeset
   897
    uStats.hedgehogFlight(Gear, Gear^.FlightTime);
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2376
diff changeset
   898
    Gear^.FlightTime:= 0;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   899
    end;
2428
6800f8aa0184 Huge Smaxx patch with some fixes by me:
unc0rr
parents: 2376
diff changeset
   900
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   901
end;
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
   902
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   903
procedure doStepHedgehogDriven(HHGear: PGear);
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   904
var t: PGear;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   905
    wasJumping: boolean;
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   906
    Hedgehog: PHedgehog;
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   907
begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   908
Hedgehog:= HHGear^.Hedgehog;
6092
fd602b5838ab This should allow hedgehogs to still move freely after trapping other hedgehogs in a portal loop.
nemo
parents: 6081
diff changeset
   909
if isInMultiShoot then
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   910
   HHGear^.Message:= 0;
505
fcba7d7aea0d Fix old bug with grenade(bomd, etc..) not colliding with attacking hedgehog
unc0rr
parents: 498
diff changeset
   911
6092
fd602b5838ab This should allow hedgehogs to still move freely after trapping other hedgehogs in a portal loop.
nemo
parents: 6081
diff changeset
   912
if ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Utility) <> 0) and isInMultiShoot then 
fd602b5838ab This should allow hedgehogs to still move freely after trapping other hedgehogs in a portal loop.
nemo
parents: 6081
diff changeset
   913
    AllInactive:= true
fd602b5838ab This should allow hedgehogs to still move freely after trapping other hedgehogs in a portal loop.
nemo
parents: 6081
diff changeset
   914
else if not isInMultiShoot then AllInactive:= false;
fd602b5838ab This should allow hedgehogs to still move freely after trapping other hedgehogs in a portal loop.
nemo
parents: 6081
diff changeset
   915
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   916
if (TurnTimeLeft = 0) or (HHGear^.Damage > 0) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   917
    begin
5016
9347d82a26cc added game mode Tag Team, mostly untested, please test :)
Henek
parents: 5013
diff changeset
   918
    if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   919
    TurnTimeLeft:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   920
    isCursorVisible:= false;
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   921
    HHGear^.State:= HHGear^.State and not (gstHHDriven or gstAnimation or gstAttacking);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   922
    AttackBar:= 0;
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   923
    if HHGear^.Damage > 0 then
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   924
        HHGear^.State:= HHGear^.State and not (gstHHJumping or gstHHHJump);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   925
    exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   926
    end;
1035
6f5842bc481b Hopefully done taunts implementation
unc0rr
parents: 1034
diff changeset
   927
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   928
if (HHGear^.State and gstAnimation) <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   929
    begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   930
    HHGear^.Message:= 0;
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   931
    if (HHGear^.Pos = Wavez[TWave(HHGear^.Tag)].VoiceDelay) and (HHGear^.Timer = 0) then PlaySound(Wavez[TWave(HHGear^.Tag)].Voice, Hedgehog^.Team^.voicepack);
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   932
    inc(HHGear^.Timer);
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   933
    if HHGear^.Timer = Wavez[TWave(HHGear^.Tag)].Interval then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   934
        begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   935
        HHGear^.Timer:= 0;
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   936
        inc(HHGear^.Pos);
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   937
        if HHGear^.Pos = Wavez[TWave(HHGear^.Tag)].FramesCount then
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   938
            HHGear^.State:= HHGear^.State and not gstAnimation
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   939
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   940
    exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   941
    end;
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1012
diff changeset
   942
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   943
if ((HHGear^.State and gstMoving) <> 0)
836
150c7c87e66c - Small formatting changes
unc0rr
parents: 835
diff changeset
   944
    or (StepTicks = cHHStepTicks)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   945
    or (CurAmmoGear <> nil) then // we are moving
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   946
    begin
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   947
    with Hedgehog^ do
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   948
        if (CurAmmoGear = nil)
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   949
        and (HHGear^.dY > _0_39)
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   950
        and (CurAmmoType = amParachute) then HHGear^.Message:= HHGear^.Message or gmAttack;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   951
    // check for case with ammo
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   952
    t:= CheckGearNear(HHGear, gtCase, 36, 36);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   953
    if t <> nil then
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   954
        PickUp(HHGear, t)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   955
    end;
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   956
930
3f61bd3b08fd Initial support for attacking from rope
unc0rr
parents: 928
diff changeset
   957
if (CurAmmoGear = nil) then
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   958
    if (((HHGear^.Message and gmAttack) <> 0)
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   959
        or ((HHGear^.State and gstAttacking) <> 0)) then
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   960
        Attack(HHGear) // should be before others to avoid desync with '/put' msg and changing weapon msgs
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   961
    else
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   962
else 
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   963
    with Hedgehog^ do
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   964
        if ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0)
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   965
            and ((HHGear^.Message and gmLJump) <> 0)
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   966
            and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   967
            begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   968
            Attack(HHGear);
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   969
            HHGear^.Message:= HHGear^.Message and not gmLJump
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
   970
            end;
930
3f61bd3b08fd Initial support for attacking from rope
unc0rr
parents: 928
diff changeset
   971
3f61bd3b08fd Initial support for attacking from rope
unc0rr
parents: 928
diff changeset
   972
if (CurAmmoGear = nil)
3842
fc94291ca1d9 Trying to adjust behaviour of multishoot w/ portal gun so switching weapons works correctly.
nemo
parents: 3837
diff changeset
   973
    or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0) 
4241
835fd7a0e1bf Move resurrection to utilities, reduce its probablit a bit to match other utilities, rename the "hint" prop since it really isn't being used as a hint anymore. That can be put back if it changes.
nemo
parents: 4238
diff changeset
   974
    or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   975
    begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   976
    if ((HHGear^.Message and gmSlot) <> 0) then
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   977
        if ChangeAmmo(HHGear) then ApplyAmmoChanges(Hedgehog^);
930
3f61bd3b08fd Initial support for attacking from rope
unc0rr
parents: 928
diff changeset
   978
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   979
    if ((HHGear^.Message and gmWeapon) <> 0) then HHSetWeapon(HHGear);
930
3f61bd3b08fd Initial support for attacking from rope
unc0rr
parents: 928
diff changeset
   980
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   981
    if ((HHGear^.Message and gmTimer) <> 0) then HHSetTimer(HHGear);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   982
    end;
930
3f61bd3b08fd Initial support for attacking from rope
unc0rr
parents: 928
diff changeset
   983
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   984
if CurAmmoGear <> nil then
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   985
   begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   986
   CurAmmoGear^.Message:= HHGear^.Message;
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   987
   exit
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   988
   end;
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
   989
952
9dd48265e0b9 Allow aiming while moving
unc0rr
parents: 941
diff changeset
   990
if not isInMultiShoot then
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   991
   HedgehogChAngle(HHGear);
926
d231e007452a Timer as hedgehog message (avoid possible desync in very rare cases)
unc0rr
parents: 925
diff changeset
   992
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   993
if (HHGear^.State and gstMoving) <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   994
    begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   995
    wasJumping:= ((HHGear^.State and gstHHJumping) <> 0);
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2302
diff changeset
   996
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   997
    if ((HHGear^.Message and gmHJump) <> 0) and
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
   998
        wasJumping and
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
   999
        ((HHGear^.State and gstHHHJump) = 0) then
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1000
        if (not (hwAbs(HHGear^.dX) > cLittle)) and (HHGear^.dY < -_0_02) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1001
            begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1002
            HHGear^.State:= HHGear^.State or gstHHHJump;
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1003
            HHGear^.dY:= -_0_25;
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1004
            if not cArtillery then HHGear^.dX:= -SignAs(_0_02, HHGear^.dX);
3836
833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents: 3768
diff changeset
  1005
            PlaySound(sndJump2, Hedgehog^.Team^.voicepack)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1006
            end;
2376
ece7b87f1334 Strip trailing spaces
nemo
parents: 2302
diff changeset
  1007
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1008
    HHGear^.Message:= HHGear^.Message and not (gmLJump or gmHJump);
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
  1009
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1010
    if (not cArtillery) and wasJumping and
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1011
        TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
  1012
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1013
    if Hedgehog^.Gear <> nil then doStepHedgehogMoving(HHGear);
542
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling
unc0rr
parents: 540
diff changeset
  1014
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1015
    if ((HHGear^.State and (gstMoving or gstDrowning)) = 0) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1016
        begin
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1017
        AddGearCI(HHGear);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1018
        if wasJumping then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1019
            StepTicks:= 410
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1020
        else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1021
            StepTicks:= 95
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1022
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1023
    exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1024
    end;
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
  1025
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1026
    if not isInMultiShoot and (Hedgehog^.Gear <> nil) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1027
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1028
        if StepTicks > 0 then dec(StepTicks);
4881
35e6269227b6 still in developement take on adding structures, working hiding of hogs and ejecting them later.
Henek
parents: 4867
diff changeset
  1029
        if (StepTicks = 0) then HedgehogStep(HHGear)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1030
        end
302
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
  1031
end;
7aca131ecd7f First implementation of Blow Torch
unc0rr
parents: 300
diff changeset
  1032
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1033
////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1034
procedure doStepHedgehogFree(Gear: PGear);
6011
519f8a58c021 Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents: 5991
diff changeset
  1035
var prevState: Longword;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1036
begin
511
2b5b9e00419d - Further work on new collisions implementation
unc0rr
parents: 505
diff changeset
  1037
prevState:= Gear^.State;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1038
538
74219eadab5e - Various small fixes
unc0rr
parents: 534
diff changeset
  1039
doStepHedgehogMoving(Gear);
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1040
1002
14ecd5fd4fab Implement drowning hedgehog sprite
unc0rr
parents: 984
diff changeset
  1041
if (Gear^.State and (gstMoving or gstDrowning)) <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1042
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1043
    if Gear^.Damage > 0 then CalcRotationDirAngle(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1044
    AllInactive:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1045
    exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1046
    end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1047
863
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
  1048
if (Gear^.Health = 0) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1049
    begin
4224
99c6d87df131 No point in leaving hogs at 0, since shotgun triggers death anyway. Also, add some audio cues to extra damage / time
nemo
parents: 4168
diff changeset
  1050
    if PrvInactive or ((GameFlags and gfInfAttack) <> 0) then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1051
        begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1052
        Gear^.Timer:= 0;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1053
        FollowGear:= Gear;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1054
        PrvInactive:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1055
        AllInactive:= false;
2140
75e5c4fcae2a Death messages thanks to Smaxx
nemo
parents: 2137
diff changeset
  1056
5991
c3b7064d9226 Fix sheepluva's merge
unc0rr
parents: 5977
diff changeset
  1057
        if (Gear^.State and gstHHGone) = 0 then
3310
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
  1058
            begin
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
  1059
            Gear^.Hedgehog^.Effects[hePoisoned] := false;
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
  1060
            if Gear^.Hedgehog^.Effects[heResurrectable] then begin
3768
39947624dabb Some survival mode changes by burp
tiyuri@gmail.com
parents: 3717
diff changeset
  1061
                ResurrectHedgehog(Gear);
5972
add1cae1add6 Clear gstAnimation and reset Timer before entering death animation
nemo
parents: 5965
diff changeset
  1062
            end else 
add1cae1add6 Clear gstAnimation and reset Timer before entering death animation
nemo
parents: 5965
diff changeset
  1063
                begin
add1cae1add6 Clear gstAnimation and reset Timer before entering death animation
nemo
parents: 5965
diff changeset
  1064
                Gear^.State:= (Gear^.State or gstHHDeath) and not gstAnimation;
3768
39947624dabb Some survival mode changes by burp
tiyuri@gmail.com
parents: 3717
diff changeset
  1065
                Gear^.doStep:= @doStepHedgehogDead;
39947624dabb Some survival mode changes by burp
tiyuri@gmail.com
parents: 3717
diff changeset
  1066
                // Death message
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
  1067
                AddCaption(Format(GetEventString(eidDied), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage);
5972
add1cae1add6 Clear gstAnimation and reset Timer before entering death animation
nemo
parents: 5965
diff changeset
  1068
                end;
3310
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
  1069
            end
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
  1070
        else
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
  1071
            begin
5991
c3b7064d9226 Fix sheepluva's merge
unc0rr
parents: 5977
diff changeset
  1072
            Gear^.State:= Gear^.State and not gstAnimation;
3310
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
  1073
            Gear^.doStep:= @doStepHedgehogGone;
5818
d071162d550d There. Push this back on to unc0rr. This effect can still desync, 'cause it always could, but at least now the two are linked w/o argument I think.
nemo
parents: 5720
diff changeset
  1074
3310
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
  1075
            // Gone message
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
  1076
            AddCaption(Format(GetEventString(eidGone), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage);
3310
e6e9b811d32f Engine:
smxx
parents: 3302
diff changeset
  1077
            end
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1078
        end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1079
    exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1080
    end;
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1081
1033
622c5de38d72 Start implementing waves
unc0rr
parents: 1012
diff changeset
  1082
if ((Gear^.State and gstWait) = 0) and
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1083
    (prevState <> Gear^.State) then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1084
    begin
5955
07f6fa51ea58 - Unset hhdriven flag for gone hedgehog
unc0rr
parents: 5851
diff changeset
  1085
    Gear^.State:= Gear^.State or gstWait;
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1086
    Gear^.Timer:= 150
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1087
    end else
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1088
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1089
    if Gear^.Timer = 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1090
        begin
6116
93e04cddd08e Aaaand another flag that used to be cleared here...
nemo
parents: 6099
diff changeset
  1091
        Gear^.State:= Gear^.State and not (gstWait or gstLoser or gstWinner or gstAttacked or gstNotKickable);
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1092
        Gear^.Active:= false;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1093
        AddGearCI(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1094
        exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1095
        end else dec(Gear^.Timer)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1096
    end;
863
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
  1097
dfa3aa51ecb5 Merge some more sounds
unc0rr
parents: 855
diff changeset
  1098
AllInactive:= false
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1099
end;
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1100
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1101
////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1102
procedure doStepHedgehog(Gear: PGear);
6117
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1103
(*
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1104
var x,y,tx,ty: LongInt;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1105
    tdX, tdY, slope: hwFloat; *)
4
bcbd7adb4e4b - set svn:eol-style to native
unc0rr
parents: 1
diff changeset
  1106
begin
3894
9abce5468583 Engine:
smaxx
parents: 3851
diff changeset
  1107
if (Gear^.Message and gmDestroy) <> 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1108
    begin
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1109
    DeleteGear(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1110
    exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1111
    end;
1505
3a96e93572cb - Convert small damage tag to visual gears
unc0rr
parents: 1347
diff changeset
  1112
2040
7c366fc3c099 - Fix for desyncs when player exits
unc0rr
parents: 2024
diff changeset
  1113
if (Gear^.State and gstHHDriven) = 0 then
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1114
    doStepHedgehogFree(Gear)
2040
7c366fc3c099 - Fix for desyncs when player exits
unc0rr
parents: 2024
diff changeset
  1115
else
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1116
    begin
4365
4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast
unc0rr
parents: 4301
diff changeset
  1117
    with Gear^.Hedgehog^ do
5955
07f6fa51ea58 - Unset hhdriven flag for gone hedgehog
unc0rr
parents: 5851
diff changeset
  1118
        if Team^.hasGone then
5829
3ec95dc2b249 Don't test for hasGone in unapproved places. Now any possibility of desync on player quit is ruled out. Not tested at all.
unc0rr
parents: 5820
diff changeset
  1119
            TeamGoneEffect(Team^)
3ec95dc2b249 Don't test for hasGone in unapproved places. Now any possibility of desync on player quit is ruled out. Not tested at all.
unc0rr
parents: 5820
diff changeset
  1120
        else
3ec95dc2b249 Don't test for hasGone in unapproved places. Now any possibility of desync on player quit is ruled out. Not tested at all.
unc0rr
parents: 5820
diff changeset
  1121
            doStepHedgehogDriven(Gear)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1122
    end;
6117
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1123
6118
7684ca4f9808 tweak (still a hack)
nemo
parents: 6117
diff changeset
  1124
if ((GameTicks mod 50) = 0) and (Gear^.State and (gstMoving or gstHHJumping or gstHHHJump) = 0) and ((Gear^.Message and gmAllStoppable) = 0) and 
6117
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1125
    (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1126
    begin
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1127
    if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y)+cHHRadius, lfIce) then
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1128
        begin
6118
7684ca4f9808 tweak (still a hack)
nemo
parents: 6117
diff changeset
  1129
        Gear^.dX.QWordValue:= Gear^.dX.QWordValue + cGravity.QWordValue * 75;
6117
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1130
        Gear^.State:= Gear^.State or gstMoving;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1131
        end
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1132
(*
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1133
    // check land slope, and impart a dX based on it
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1134
    tdX:= Gear^.dX;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1135
    tdY:= Gear^.dY;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1136
    Gear^.dX:= _0;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1137
    Gear^.dY:= _1;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1138
    x := hwRound(Gear^.X);
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1139
    y := hwRound(Gear^.Y);
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1140
    tx := 0;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1141
    ty := 0;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1142
    if not CalcSlopeTangent(Gear, x, y+cHHRadius, tx, ty, 255) then
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1143
        begin
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1144
        slope:= _1/DistanceI(tx,ty);
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1145
        AddFileLog(FloatToStr(tdX)+ ' == '+FloatToStr(slope));
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1146
        tdX:= tdX + (cGravity * slope / _10)  // this will need tuning 
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1147
        end;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1148
    Gear^.dX:= tdX;
2a4829172a29 Experiment in making ice more treacherous. also tweak to snow/christmas flake spawn
nemo
parents: 6116
diff changeset
  1149
    Gear^.dY:= tdY  *)
2948
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents: 2940
diff changeset
  1150
    end;
2585
0899ce8ad77f Smaxx: only allow change direction when shift key is pressed
unc0rr
parents: 2502
diff changeset
  1151
end;