equal
deleted
inserted
replaced
1010 end |
1010 end |
1011 end; |
1011 end; |
1012 |
1012 |
1013 //////////////////////////////////////////////////////////////////////////////// |
1013 //////////////////////////////////////////////////////////////////////////////// |
1014 procedure doStepHedgehogFree(Gear: PGear); |
1014 procedure doStepHedgehogFree(Gear: PGear); |
1015 var prevState: Longword; |
1015 var prevState,i: Longword; |
1016 begin |
1016 begin |
1017 prevState:= Gear^.State; |
1017 prevState:= Gear^.State; |
1018 |
1018 |
1019 doStepHedgehogMoving(Gear); |
1019 doStepHedgehogMoving(Gear); |
1020 |
1020 |
1048 end |
1048 end |
1049 else |
1049 else |
1050 begin |
1050 begin |
1051 Gear^.State:= Gear^.State or gstHHGone; |
1051 Gear^.State:= Gear^.State or gstHHGone; |
1052 Gear^.doStep:= @doStepHedgehogGone; |
1052 Gear^.doStep:= @doStepHedgehogGone; |
|
1053 |
|
1054 with Gear^.Hedgehog^.Team^ do |
|
1055 for i:= 0 to cMaxHHIndex do |
|
1056 if Hedgehogs[i].GearHidden <> nil then |
|
1057 begin |
|
1058 RestoreHog(@Hedgehogs[i]); |
|
1059 if Hedgehogs[i].Gear <> nil then |
|
1060 begin |
|
1061 Gear^.State:= Gear^.State or gstHHGone; |
|
1062 Gear^.doStep:= @doStepHedgehogGone |
|
1063 end |
|
1064 end; |
|
1065 |
1053 // Gone message |
1066 // Gone message |
1054 AddCaption(Format(GetEventString(eidGone), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage); |
1067 AddCaption(Format(GetEventString(eidGone), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage); |
1055 end |
1068 end |
1056 end; |
1069 end; |
1057 exit |
1070 exit |