hedgewars/uGearsUtils.pas
changeset 7168 8defaabce92e
parent 7092 c9ca770fd7fc
child 7176 fb4b0c6dfdbd
equal deleted inserted replaced
7167:0b3b306f129a 7168:8defaabce92e
   472         end;
   472         end;
   473     FindPlace(gear, false, 0, LAND_WIDTH, true); 
   473     FindPlace(gear, false, 0, LAND_WIDTH, true); 
   474     if gear <> nil then
   474     if gear <> nil then
   475         begin
   475         begin
   476         AddVisualGear(hwRound(gear^.X), hwRound(gear^.Y), vgtExplosion);
   476         AddVisualGear(hwRound(gear^.X), hwRound(gear^.Y), vgtExplosion);
       
   477         PlaySound(sndWarp);
   477         RenderHealth(gear^.Hedgehog^);
   478         RenderHealth(gear^.Hedgehog^);
   478         ScriptCall('onGearResurrect', gear^.uid);
   479         ScriptCall('onGearResurrect', gear^.uid);
   479         gear^.State := gstWait;
   480         gear^.State := gstWait;
   480     end;
   481     end;
   481     RecountTeamHealth(tempTeam);
   482     RecountTeamHealth(tempTeam);