UO Script OskomEdition 1.52... использование крафтменю...

[BuLLetZ[HEG]]

Вот решил тут поглядеть что к чему с этой прогой макросной... Интересно очень как тама использовать крафтменю, если кому не сложно киньте примеры на простейшие макросы с его использованием... (бс, тейлор, ect)

[Alex M.A.]

Program CraftMenuDemo;
var aHandle, aCount, i: LongInt;
    aName: String;
begin
  If FindCraftMenu('', aHandle) Then WriteLn('Craft menu Found')
  Else Exit;
  GetMenuItemsCount(aHandle, aCount);
  WriteLn(IntToStr(aCount)+' items');
  If aCount=0 Then Exit;
  For i:=0 to aCount-1 do
    begin
      GetMenuItemName(aHandle, i, aName);
      WriteLn(aName);
    end;
  GetFirstItemIndex(aHandle, i);
  GetMenuItemName(aHandle, i, aName);
  WriteLn('First item is "'+aName+'"');
  SetFirstItemIndex(aHandle, aCount-1);
  GetFirstItemIndex(aHandle, i);
  GetMenuItemName(aHandle, i, aName);
  WriteLn('After Set: First item is "'+aName+'"');
end.