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.