hedgewars/uGearsUtils.pas
changeset 12347 ad09d733fdb0
parent 12298 6383323fdd2c
child 12450 28bf941e13a0
equal deleted inserted replaced
12346:c73521104fac 12347:ad09d733fdb0
   775         begin
   775         begin
   776         AddVisualGear(hwRound(gear^.X), hwRound(gear^.Y), vgtExplosion);
   776         AddVisualGear(hwRound(gear^.X), hwRound(gear^.Y), vgtExplosion);
   777         PlaySound(sndWarp);
   777         PlaySound(sndWarp);
   778         RenderHealth(gear^.Hedgehog^);
   778         RenderHealth(gear^.Hedgehog^);
   779         s:= ansistring(gear^.Hedgehog^.Name);
   779         s:= ansistring(gear^.Hedgehog^.Name);
   780         AddCaption(FormatA(GetEventString(eidResurrected), s), cWhiteColor, capgrpMessage);
       
   781         ScriptCall('onGearResurrect', gear^.uid);
   780         ScriptCall('onGearResurrect', gear^.uid);
   782         gear^.State := gstWait;
   781         gear^.State := gstWait;
   783         end;
   782         end;
   784     RecountTeamHealth(tempTeam);
   783     RecountTeamHealth(tempTeam);
   785 end;
   784 end;