equal
deleted
inserted
replaced
1941 else |
1941 else |
1942 AmmoShoveCache(Gear, 0, 15); |
1942 AmmoShoveCache(Gear, 0, 15); |
1943 HHGear^.State := HHGear^.State and (not gstNoDamage); |
1943 HHGear^.State := HHGear^.State and (not gstNoDamage); |
1944 end; |
1944 end; |
1945 |
1945 |
1946 if HHGear^.dX.isNegative <> (Gear^.Tag = -1) then |
|
1947 begin |
|
1948 inc(Gear^.WDTimer); |
|
1949 if Gear^.WDTimer > 150 then |
|
1950 begin |
|
1951 Gear^.WDTimer := 0; |
|
1952 Gear^.Tag := - Gear^.Tag; |
|
1953 end |
|
1954 end else |
|
1955 Gear^.WDTimer := 0; |
|
1956 |
|
1957 if (TurnTimeLeft = 0) or (Gear^.Timer = 0) |
1946 if (TurnTimeLeft = 0) or (Gear^.Timer = 0) |
1958 or ((HHGear^.Message and gmAttack) <> 0) then |
1947 or ((HHGear^.Message and gmAttack) <> 0) then |
1959 begin |
1948 begin |
1960 ClearProximityCache(); |
1949 ClearProximityCache(); |
1961 StopSoundChan(Gear^.SoundChannel); |
1950 StopSoundChan(Gear^.SoundChannel); |
1982 Gear^.dX, Gear^.dY, |
1971 Gear^.dX, Gear^.dY, |
1983 cHHStepTicks, cHHRadius * 2 + 7); |
1972 cHHStepTicks, cHHRadius * 2 + 7); |
1984 HHGear^.Message := 0; |
1973 HHGear^.Message := 0; |
1985 HHGear^.State := HHGear^.State or gstNotKickable; |
1974 HHGear^.State := HHGear^.State or gstNotKickable; |
1986 RefillProximityCache(Gear, 200); |
1975 RefillProximityCache(Gear, 200); |
1987 |
|
1988 //Throttle counter for direction changes |
|
1989 Gear^.WDTimer := 0; |
|
1990 if HHGear^.dX.isNegative then |
|
1991 Gear^.Tag := -1 |
|
1992 else |
|
1993 Gear^.Tag := 1; |
|
1994 |
1976 |
1995 Gear^.SoundChannel := LoopSound(sndBlowTorch); |
1977 Gear^.SoundChannel := LoopSound(sndBlowTorch); |
1996 Gear^.doStep := @doStepBlowTorchWork |
1978 Gear^.doStep := @doStepBlowTorchWork |
1997 end; |
1979 end; |
1998 |
1980 |