Stealth Client Forum

Code: Select all

Program Tailoring;

const
    Cotton_Type = $0DF9;
    BallOfYarn_Type = $0FA0;
    Loom_Type = $105F;
    SpinWheel_Type = $1015;
    //Tool_Type = $0F9D;
    
	Container = $401E56FE; 
	
    //Leather_Type = $1067;
    

procedure WaitLag(WaitMS : Integer);
begin
    Wait(WaitMS);
    CheckLag(60000);
end;

procedure MakeBolt;
var
    i : Integer;
    ctime : TDateTime;
begin
    while FindType(Cotton_Type, Backpack) > 0 do
        begin
            UseObject(FindItem);
            if WaitForTarget(5000) then
                begin
                    ctime := Now;
                    WaitLag(100);
                    TargetToObject(FindType(SpinWheel_Type, Ground));
                    for i := 0 to 55 do
                        begin
                            WaitLag(100);
                            if WaitJournalLine(ctime, 'put|remove|in your pack', 1000) then break;
                        end;
                end;
        end;
    while FindType(BallOfYarn_Type, Backpack) > 0 do
        begin
            UseObject(FindItem);
            if WaitForTarget(5000) then
                begin
                    ctime := Now;
                    TargetToObject(FindType(Loom_Type, Ground));
                    for i := 0 to 55 do
                        begin
                            WaitLag(100);
                            if WaitJournalLine(ctime, 'put|need', 1000) then break;
                        end;
                end;
        end;
end;

procedure LoadUnload(Item_Type, Resource_Type : Word);
begin
    while FindType(Item_Type, Container) > 0 do
        begin
            MoveItem(FindItem, 0, Backpack, 0,0,0);
            WaitLag(650);
        end;
    if FindType(Resource_Type, Container) > 0 then MoveItem(FindItem, 200, Backpack, 0,0,0);    
end;

begin
	MakeBolt;
end.