Ultima Online Antares

Program Craft_BestUO;

const
    MainMenu_String = 'What do you want to carve the wood for';
    SecondaryMenu_String = 'Shaft';
    Tool_Type = $0F51;
    Resource_Type = $1BDD;
    RegChest_Id = $40262D3D;
    CraftItem_Type = $1BD4;
    
var
    ResourceContainer_Id : Cardinal;
    FlagProceed : Boolean;
    
procedure WaitLag(WaitMS, LagMS : Integer);
begin
    Wait(WaitMS);
    CheckLag(LagMS);
end;
                                
function GetItemInfo : Cardinal;
begin
    ClientRequestObjectTarget;
    WaitForClientTargetResponse(50000);
    if ClientTargetResponsePresent then Result := ClientTargetResponse.Id;
end;

procedure LoadReload;
begin
    NewMoveXY(GetX(RegChest_Id), GetY(RegChest_Id), true, 1, true);
    UseObject(RegChest_Id);
    WaitLag(600, 30000);  
    if FindType(Resource_Type, RegChest_Id) > 0 then
        begin
            MoveItem(FindItem, 500, ResourceContainer_Id, 0,0,0);
            WaitLag(600, 30000);
        end
    else
        begin
            ClientPrint('No resources found...');
            FlagProceed := False;
        end;
    if FindType(CraftItem_Type, Backpack) > 0 then
        begin
            MoveItem(FindItem, 0, RegChest_Id, 0,0,0);
            WaitLag(600, 30000);
        end;
end;

procedure CraftOneItem;
var
    msg : String;
    i : Integer;
    ctime : TDateTime;
begin
    msg := 'fail to copmplete|put the';
    if FindType(Resource_Type, ResourceContainer_Id) = 0 then LoadReload;
    MoveItem(FindItem, 1, Backpack, 0,0,0);
    WaitLag(1000, 30000);
    if UseType(Tool_Type, $FFFF) > 0 then
        if WaitForTarget(5000) then
            begin                
                ctime := Now;              
                if FindType(Resource_Type, Backpack) > 0 then
                    begin                        
                        TargetToObject(FindItem);
                        WaitLag(600, 30000);
                        WaitMenu('What ', 'Shaft');
                        for i := 0 to 6 do
                            begin
                                WaitLag(600, 30000);
                                if WaitJournalLine(ctime, msg, 1000) then break;
                            end;
                    end;
            end
        else
            ClientPrint('Targeting failed...')
    else
        ClientPrint('No tool');        
end;

begin
    ClientPrint('Выберите сумочку куда будут загружатся логи...');
    FlagProceed := True;
    ResourceContainer_Id := GetItemInfo;
    UseObject(ResourceContainer_Id);
    WaitLag(600, 30000);
    while not Dead and FlagProceed do CraftOneItem;      
    AddToSystemJournal('Script ended!');            
end.

Program Craft_BestUO;

const
    MainMenu_String = 'What do you want to carve the wood for';
    SecondaryMenu_String = 'Shaft';
    Tool_Type = $0F51;
    Resource_Type = $1BDD;
    //RegChest_Id = $40262D3D;
    CraftItem_Type = $1BD4;
    
var
    ResourceContainer_Id, RegChest_Id : Cardinal;
    FlagProceed : Boolean;
    
procedure WaitLag(WaitMS, LagMS : Integer);
begin
    Wait(WaitMS);
    CheckLag(LagMS);
end;
                                
function GetItemInfo : Cardinal;
begin
    ClientRequestObjectTarget;
    WaitForClientTargetResponse(50000);
    if ClientTargetResponsePresent then Result := ClientTargetResponse.Id;
end;

procedure LoadReload;
begin
    NewMoveXY(GetX(RegChest_Id), GetY(RegChest_Id), true, 1, true);
    UseObject(RegChest_Id);
    WaitLag(600, 30000);  
    if FindType(Resource_Type, RegChest_Id) > 0 then
        begin
            MoveItem(FindItem, 500, ResourceContainer_Id, 0,0,0);
            WaitLag(600, 30000);
        end
    else
        begin
            ClientPrint('No resources found...');
            FlagProceed := False;
        end;
    if FindType(CraftItem_Type, Backpack) > 0 then
        begin
            MoveItem(FindItem, 0, RegChest_Id, 0,0,0);
            WaitLag(600, 30000);
        end;
end;

procedure CraftOneItem;
var
    msg : String;
    i : Integer;
    ctime : TDateTime;
begin
    msg := 'fail to copmplete |item is|make anything with';
    if FindType(Resource_Type, ResourceContainer_Id) = 0 then LoadReload;
    MoveItem(FindItem, 1, Backpack, 0,0,0);
    WaitLag(500, 30000);
    if UseType(Tool_Type, $FFFF) > 0 then
        if WaitForTarget(5000) then
            begin                
                ctime := Now;              
                if FindType(Resource_Type, Backpack) > 0 then
                    begin
                        WaitLag(100, 30000);                        
                        TargetToObject(FindItem);
                        WaitLag(100, 30000);
                        WaitMenu('What ', 'Shaft');
                        for i := 0 to 6 do
                            begin
                                WaitLag(50, 30000);
                                if WaitJournalLine(ctime, msg, 1000) then exit;
                            end;
                        WaitLag(350, 30000);
                    end;
            end
        else
            ClientPrint('Targeting failed...')
    else
        ClientPrint('No tool');        
end;

begin
    FlagProceed := True;
    ClientPrint('Выберите сундук с логами...');    
    RegChest_Id := GetItemInfo;    
    ClientPrint('Выберите сумочку куда будут загружатся логи...');    
    ResourceContainer_Id := GetItemInfo;
    UseObject(ResourceContainer_Id);
    WaitLag(600, 30000);
    while not Dead and FlagProceed do CraftOneItem;      
    AddToSystemJournal('Script ended!');            
end.