equal
deleted
inserted
replaced
933 Gear^.doStep:= @doStepTeamHealthSorterWork; |
933 Gear^.doStep:= @doStepTeamHealthSorterWork; |
934 currsorter:= Gear |
934 currsorter:= Gear |
935 end; |
935 end; |
936 |
936 |
937 //////////////////////////////////////////////////////////////////////////////// |
937 //////////////////////////////////////////////////////////////////////////////// |
|
938 procedure doStepIdle(Gear: PGear); |
|
939 begin |
|
940 AllInactive:= false; |
|
941 dec(Gear^.Timer);addfilelog(inttostr(Gear^.Timer)); |
|
942 if Gear^.Timer = 0 then |
|
943 begin |
|
944 DeleteGear(Gear); |
|
945 AfterAttack |
|
946 end |
|
947 end; |
|
948 |
938 procedure doStepShover(Gear: PGear); |
949 procedure doStepShover(Gear: PGear); |
939 var HHGear: PGear; |
950 var HHGear: PGear; |
940 begin |
951 begin |
941 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
952 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
942 HHGear^.State:= HHGear^.State or gstNoDamage; |
953 HHGear^.State:= HHGear^.State or gstNoDamage; |
943 AmmoShove(Gear, 30, 115); |
954 AmmoShove(Gear, 30, 115); |
944 HHGear^.State:= HHGear^.State and not gstNoDamage; |
955 HHGear^.State:= HHGear^.State and not gstNoDamage; |
945 DeleteGear(Gear) |
956 Gear^.Timer:= 250; |
|
957 Gear^.doStep:= @doStepIdle |
946 end; |
958 end; |
947 |
959 |
948 //////////////////////////////////////////////////////////////////////////////// |
960 //////////////////////////////////////////////////////////////////////////////// |
949 procedure doStepFlame(Gear: PGear); |
961 procedure doStepFlame(Gear: PGear); |
950 begin |
962 begin |