equal
deleted
inserted
replaced
1045 if Gear^.Hedgehog^.Effects[heResurrectable] then begin |
1045 if Gear^.Hedgehog^.Effects[heResurrectable] then begin |
1046 ResurrectHedgehog(Gear); |
1046 ResurrectHedgehog(Gear); |
1047 end else |
1047 end else |
1048 begin |
1048 begin |
1049 Gear^.State:= (Gear^.State or gstHHDeath) and not gstAnimation; |
1049 Gear^.State:= (Gear^.State or gstHHDeath) and not gstAnimation; |
1050 Gear^.Timer:= 0; |
|
1051 Gear^.doStep:= @doStepHedgehogDead; |
1050 Gear^.doStep:= @doStepHedgehogDead; |
1052 // Death message |
1051 // Death message |
1053 AddCaption(Format(GetEventString(eidDied), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage); |
1052 AddCaption(Format(GetEventString(eidDied), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage); |
1054 end; |
1053 end; |
1055 end |
1054 end |
1056 else |
1055 else |
1057 begin |
1056 begin |
1058 Gear^.State:= Gear^.State or gstHHGone; |
1057 Gear^.State:= (Gear^.State or gstHHGone) and not gstAnimation; |
1059 Gear^.doStep:= @doStepHedgehogGone; |
1058 Gear^.doStep:= @doStepHedgehogGone; |
1060 |
1059 |
1061 with Gear^.Hedgehog^.Team^ do |
1060 with Gear^.Hedgehog^.Team^ do |
1062 for i:= 0 to cMaxHHIndex do |
1061 for i:= 0 to cMaxHHIndex do |
1063 if Hedgehogs[i].GearHidden <> nil then |
1062 if Hedgehogs[i].GearHidden <> nil then |
1084 Gear^.Timer:= 150 |
1083 Gear^.Timer:= 150 |
1085 end else |
1084 end else |
1086 begin |
1085 begin |
1087 if Gear^.Timer = 0 then |
1086 if Gear^.Timer = 0 then |
1088 begin |
1087 begin |
1089 Gear^.State:= Gear^.State and not gstWait; |
1088 Gear^.State:= Gear^.State and not (gstWait or gstLoser or gstWinner); |
1090 Gear^.Active:= false; |
1089 Gear^.Active:= false; |
1091 AddGearCI(Gear); |
1090 AddGearCI(Gear); |
1092 exit |
1091 exit |
1093 end else dec(Gear^.Timer) |
1092 end else dec(Gear^.Timer) |
1094 end; |
1093 end; |