Ultima Online Antares

Program SimpleCraft;

type
    TMenuStrings = record
        MainMenuString : String;
        SecondaryMenuString : String;
    end;
    
type
    TItem = record
        Item_Type : Word;
        MenuString : TMenuStrings;
        Count : Integer;
        Reg_Type : Word;
        RegAmount : Integer;
        Tool_Type : Word;        
    end;

const
    Title = 'Simple craft';

var
    Item : TItem;
    Flag : Boolean;

function Dll_GetUserData_Integer(Title, Question : PChar) : Integer;
external 'GetUserData_Integer@Drabadan_dll.dll stdcall';

function Dll_GetUserData_String(Title, Question : PChar) : PChar;
external 'GetUserData_String@Drabadan_dll.dll stdcall';


procedure CollectData;
begin
    Item.Item_Type := Dll_GetUserData_Integer(Title, 'Please enter type of item(example $01BD):');
    Item.MenuString.MainMenuString := Dll_GetUserData_String(Title, 'Please enter the main craft menu string(example - Miscellaneous):');
    Item.MenuString.SecondaryMenuString := Dll_GetUserData_String(Title, 'Please enter the secondary craft menu string(example - Bag):');
    Item.Count := Dll_GetUserData_Integer(Title, 'Please enter how many you want to craft(example 150):');
    Item.Reg_Type := Dll_GetUserData_Integer(Title, 'Please enter the type of reagent(example $01BD):');
    Item.RegAmount := Dll_GetUserData_Integer(Title, 'Please enter the amount of reagent to craft 1 item(example 5):');
    Item.Tool_Type := Dll_GetUserData_Integer(Title, 'Please enter the tool type(example $01BD):');
end;

procedure CraftOneItem;
var
    tTool, tReg : Cardinal;
begin
    CancelMenu;
    AutoMenu(Item.MenuString.MainMenuString, Item.MenuString.SecondaryMenuString);    
    if FindType(Item.Tool_Type, Backpack) > 0 then
        tTool := FindItem
    else
        begin
            ClientPrint('No tool!');
            Flag := False;
            exit;
        end;
    if FindType(Item.Reg_Type, Backpack) > 0 then
        tReg := FindItem
    else
        begin
            ClientPrint('No Regs!');
            Flag := False;
            exit;
        end;    
    if (tTool > 0) and (GetQuantity(tReg) >= Item.RegAmount) then
        begin  
            UseObject(tTool);
            WaitForTarget(5000);
            if TargetPresent then TargetToObject(tReg);
            Wait(5000);
            CheckLag(30000);
        end;    
end;

//Main Loop
begin    
    CollectData;
    Flag := True;
    while Connected and (not Dead) and Flag do
        begin
            FindType(Item.Item_Type, Backpack);
            if FindFullQuantity < Item.Count then
                CraftOneItem
            else
                begin
                    ClientPrint('Job is done!');
                    AddToSystemJournal('Job is done');
                    Beep;
                    exit;
                end;
            Wait(300);
        end;
    Beep;
    AddToSystemJournal('Error or finished');                            
end.

Program SimpleCraft;

type
    TMenuStrings = record
        MainMenuString : String;
        SecondaryMenuString : String;
    end;
    
type
    TItem = record
        Item_Type : Word;
        MenuString : TMenuStrings;
        Count : Integer;
        Reg_Type : Word;
        RegAmount : Integer;
        Tool_Type : Word;        
    end;

const
    Title = 'Simple craft';

var
    Item : TItem;
    Flag : Boolean;

function Dll_GetUserData_Integer(Title, Question : PChar) : Integer;
external 'GetUserData_Integer@Drabadan_dll.dll stdcall';

function Dll_GetUserData_String(Title, Question : PChar) : PChar;
external 'GetUserData_String@Drabadan_dll.dll stdcall';

function GetItemType : Word;
begin
    ClientRequestObjectTarget;
    WaitForClientTargetResponse(50000);
    if ClientTargetResponsePresent then
        Result := GetType(ClientTargetResponse.Id)
    else
        Result := 0;
end;

procedure CollectData;
begin
    ClientPrint('Please select the item to craft...');
    Item.Item_Type := GetItemType;
    Item.MenuString.MainMenuString := Dll_GetUserData_String(Title, 'Please enter the main craft menu string(example - Miscellaneous):');
    Item.MenuString.SecondaryMenuString := Dll_GetUserData_String(Title, 'Please enter the secondary craft menu string(example - Bag):');
    Item.Count := Dll_GetUserData_Integer(Title, 'Please enter how many you want to craft(example 150):');
    ClientPrint('Please select the Reg for craft...');
    Item.Reg_Type := GetItemType;
    Item.RegAmount := Dll_GetUserData_Integer(Title, 'Please enter the amount of reagent to craft 1 item(example 5):');
    ClientPrint('Please select the Tool for craft...');
    Item.Tool_Type := GetItemType;
end;

procedure CraftOneItem;
var
    tTool, tReg : Cardinal;
begin
    CancelMenu;
    AutoMenu(Item.MenuString.MainMenuString, Item.MenuString.SecondaryMenuString);    
    if FindType(Item.Tool_Type, Backpack) > 0 then
        tTool := FindItem
    else
        begin
            ClientPrint('No tool!');
            Flag := False;
            exit;
        end;
    if FindType(Item.Reg_Type, Backpack) > 0 then
        tReg := FindItem
    else
        begin
            ClientPrint('No Regs!');
            Flag := False;
            exit;
        end;    
    if (tTool > 0) and (GetQuantity(tReg) >= Item.RegAmount) then
        begin  
            UseObject(tTool);
            WaitForTarget(5000);
            if TargetPresent then TargetToObject(tReg);
            Wait(5000);
            CheckLag(30000);
        end;    
end;

//Main Loop
begin    
    CollectData;
    Flag := True;
    while Connected and (not Dead) and Flag do
        begin
            FindType(Item.Item_Type, Backpack);
            if FindFullQuantity < Item.Count then
                CraftOneItem
            else
                begin
                    ClientPrint('Job is done!');
                    AddToSystemJournal('Job is done');
                    Beep;
                    exit;
                end;
            Wait(300);
        end;
    Beep;
    AddToSystemJournal('Error or finished');                            
end.

procedure GetQuestItemList;
var
  i, k, tPos : Integer;
  tString : String;
  gi : TGumpInfo;
begin
  if Script.Connection.Connected then
    Script.Client.Print('Starting gathering data of Daily Quest!')
  else
    begin
      ShowMessage('NOT CONNECTED!');
      exit;
    end;
  with Script, DailyQuestForm do
    begin
      while Gump.IsGump do Gump.CloseSimpleGump(Gump.Count-1);
      HelpRequest;
      for k := 0 to 10 do
        begin
          if Gump.IsGump then break
        else
          begin
            Wait(300);
            CheckLag(30000);
          end;
        end;
      if not Gump.IsGump then
        begin
          Client.Print('Smth wrong with gumps!');
          exit;
        end;
      if Gump.IsGump then
        begin
          gi := Gump.GetGumpInfo(Gump.Count-1);
          Gump.NumGumpButton(Gump.Count-1, gi.GumpButtons[0].return_value);
          Wait(1000);
          CheckLag(30000);
          gi := Gump.GetGumpInfo(Gump.Count-1);
          Gump.NumGumpButton(Gump.Count-1, gi.GumpButtons[8].return_value);
          Wait(1000);
          CheckLag(30000);
          gi := Gump.GetGumpInfo(Gump.Count-1);
          SetLength(QuestItem, 13);
          for i := 22 to 28 do
            begin
              tString := gi.Text[i];
              tPos := Pos(' ', tString);
              Delete(tString, tPos, Length(tString));
              QuestItem[High(QuestItem)+1].QuantityToCraft := StrToInt(tString);
              tString := gi.Text[i];
              tPos := Pos(' ', tString);
              Delete(tString, 1, tPos);
              QuestItem[High(QuestItem)+1].Name := tString;
              for k := Low(CraftItem) to High(CraftItem) do
                if CraftItem[k].tName = tString then
                  QuestItem[High(QuestItem)+1].TypeOfItem := CraftItem[k].tType
                else
                  begin
                    Script.AddToSystemJournal('No '+ QuestItem[High(QuestItem)].Name + ' in list! Please add with Add Item button!');
                    Client.Print('No '+ QuestItem[High(QuestItem)].Name + ' in list! Please add with Add Item button!');
                  end;
            end;
        end;
    end;
    //DailyQuestForm.RichEdit1.Text := QuestItem[0].Name;
end;