equal
deleted
inserted
replaced
966 |
966 |
967 //////////////////////////////////////////////////////////////////////////////// |
967 //////////////////////////////////////////////////////////////////////////////// |
968 procedure doStepIdle(Gear: PGear); |
968 procedure doStepIdle(Gear: PGear); |
969 begin |
969 begin |
970 AllInactive:= false; |
970 AllInactive:= false; |
971 dec(Gear^.Timer);addfilelog(inttostr(Gear^.Timer)); |
971 dec(Gear^.Timer); |
972 if Gear^.Timer = 0 then |
972 if Gear^.Timer = 0 then |
973 begin |
973 begin |
974 DeleteGear(Gear); |
974 DeleteGear(Gear); |
975 AfterAttack |
975 AfterAttack |
976 end |
976 end |
980 var HHGear: PGear; |
980 var HHGear: PGear; |
981 begin |
981 begin |
982 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
982 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
983 HHGear^.State:= HHGear^.State or gstNoDamage; |
983 HHGear^.State:= HHGear^.State or gstNoDamage; |
984 AmmoShove(Gear, 30, 115); |
984 AmmoShove(Gear, 30, 115); |
|
985 HHGear^.State:= HHGear^.State and not gstNoDamage; |
|
986 Gear^.Timer:= 250; |
|
987 Gear^.doStep:= @doStepIdle |
|
988 end; |
|
989 |
|
990 //////////////////////////////////////////////////////////////////////////////// |
|
991 procedure doStepWhip(Gear: PGear); |
|
992 var HHGear: PGear; |
|
993 i: LongInt; |
|
994 begin |
|
995 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
|
996 HHGear^.State:= HHGear^.State or gstNoDamage; |
|
997 |
|
998 for i:= 0 to 3 do |
|
999 begin |
|
1000 AmmoShove(Gear, 30, 25); |
|
1001 Gear^.X:= Gear^.X + Gear^.dX * 5 |
|
1002 end; |
|
1003 |
985 HHGear^.State:= HHGear^.State and not gstNoDamage; |
1004 HHGear^.State:= HHGear^.State and not gstNoDamage; |
986 Gear^.Timer:= 250; |
1005 Gear^.Timer:= 250; |
987 Gear^.doStep:= @doStepIdle |
1006 Gear^.doStep:= @doStepIdle |
988 end; |
1007 end; |
989 |
1008 |