Скрипты UOscript

[levanikoki]

Function FindType(aType:Word): LongInt;
var
  GL,H,C,aID,i: LongInt;
  S: String;
begin
  GetGumpsList(GL);
  GetListCount(GL,C);
  for i:=0 to C-1 do
  begin
    GetListItem(GL,i,H,S);
    if FindObject(H,aType,aID) then Break;
  end;
  Result:=aID;
end;

Procedure MenuChoice(S1, S2: String);
var
  i,H: LongInt;
  S: String;
begin
  i:=0;
  while (i<30) and not FindCraftMenu(S1,H) do
  begin
    i:=i+1;
    Delay(100);
  end;
  i:=0;
  GetMenuItemName(H,i,S);
  while (pos(S2,S)=0) and (i<20) do
  begin	
    i:=i+1;
    GetMenuItemName(H,i,S);
  end;
  SetFirstItemIndex(H,i);
  LeftDoubleClick(57,73);
end;

xотел изменить етот скрипт на изготовление роби но нечего не получилос ..

такс, дайте скрипт на Таилор-Роби