equal
deleted
inserted
replaced
984 procedure doStepShover(Gear: PGear); |
984 procedure doStepShover(Gear: PGear); |
985 var HHGear: PGear; |
985 var HHGear: PGear; |
986 begin |
986 begin |
987 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
987 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
988 HHGear^.State:= HHGear^.State or gstNoDamage; |
988 HHGear^.State:= HHGear^.State or gstNoDamage; |
|
989 DeleteCI(HHGear); |
|
990 |
989 AmmoShove(Gear, 30, 115); |
991 AmmoShove(Gear, 30, 115); |
|
992 |
990 HHGear^.State:= HHGear^.State and not gstNoDamage; |
993 HHGear^.State:= HHGear^.State and not gstNoDamage; |
991 Gear^.Timer:= 250; |
994 Gear^.Timer:= 250; |
992 Gear^.doStep:= @doStepIdle |
995 Gear^.doStep:= @doStepIdle |
993 end; |
996 end; |
994 |
997 |
997 var HHGear: PGear; |
1000 var HHGear: PGear; |
998 i: LongInt; |
1001 i: LongInt; |
999 begin |
1002 begin |
1000 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1003 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
1001 HHGear^.State:= HHGear^.State or gstNoDamage; |
1004 HHGear^.State:= HHGear^.State or gstNoDamage; |
|
1005 DeleteCI(HHGear); |
1002 |
1006 |
1003 for i:= 0 to 3 do |
1007 for i:= 0 to 3 do |
1004 begin |
1008 begin |
1005 AmmoShove(Gear, 30, 25); |
1009 AmmoShove(Gear, 30, 25); |
1006 Gear^.X:= Gear^.X + Gear^.dX * 5 |
1010 Gear^.X:= Gear^.X + Gear^.dX * 5 |