1667         begin

  1667         begin

  1668         gear:= GearByUID(lua_tointeger(L, 1));

  1668         gear:= GearByUID(lua_tointeger(L, 1));

  1669         if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then

  1669         if (gear <> nil) and (gear^.Kind = gtHedgehog) and (gear^.Hedgehog <> nil) then

  1670             hat:= lua_tostring(L, 2);

  1670             hat:= lua_tostring(L, 2);

  1671             gear^.Hedgehog^.Hat:= hat;

  1671             gear^.Hedgehog^.Hat:= hat;

  1672             if (Length(hat) > 39) and (Copy(hat,1,8) = 'Reserved') and (Copy(hat,9,32) = gear^.Hedgehog^.Team^.PlayerHash) then

  1673             if (Length(hat) > 39) and (Copy(hat,1,8) = 'Reserved') and (Copy(hat,9,32) = gear^.Hedgehog^.Team^.PlayerHash) then

  1673                 LoadHedgehogHat(gear^.Hedgehog^, 'Reserved/' + Copy(hat,9,Length(hat)-8))

  1674                 LoadHedgehogHat(gear^.Hedgehog^, 'Reserved/' + Copy(hat,9,Length(hat)-8))

  1674             else

  1675             else

  1675                 LoadHedgehogHat(gear^.Hedgehog^, hat);

  1676                 LoadHedgehogHat(gear^.Hedgehog^, hat);

  1676         end;

  1677         end;