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;

  1673         end;

  1673         end;

  1674     lc_sethoghat:= 0;

  1674     lc_sethoghat:= 0;

  1675 end;

  1675 end;

  1676 

  1676 

  1677 function lc_placegirder(L : Plua_State) : LongInt; Cdecl;

  1677 function lc_placegirder(L : Plua_State) : LongInt; Cdecl;