Jump to content

thanatos15

Members
  • Posts

    5
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Posts posted by thanatos15

  1.  

    maybe this 

    begin
      Engine.SetTarget(30351);                                    ////Astaron
      Engine.DlgOpen;
      Engine.DlgSel('Quest');
      Delay(500);
      Engine.DlgSel('Say you will help');
      Delay(500);
      Engine.MoveTo(12616, 16540, -4610);
      Engine.MoveTo(12159, 16658, -4610);
      Engine.SetTarget(30600);                                      ///Newbie Helper
      Engine.DlgOpen;
      Engine.DlgSel('Receive help from beneficial magic');
      Delay(500);
    Engine.CancelTarget;
    Engine.MoveTo(11384, 16781, -4688);
      Engine.MoveTo(10284, 16988, -4610);
      Engine.MoveTo(9704, 15568, -4601);
    Delay(500);
    Engine.SetTarget(30134);
    Delay(500);
    Engine.DlgOpen;
    Delay(500);
    Engine.DlgSel('Teleport');
    Delay(500);
    Engine.DlgSel('Spider Nest');
    Delay(500);
    Engine.CancelTarget;
    if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
    Engine.FaceControl(0,true);
    end;
    if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
    Engine.FaceControl(0,false);
    end;
    Engine.UseItem(736);
    Delay(500);
    Engine.MoveTo(11374, 16802, -4688);
      Engine.MoveTo(12836, 16434, -4610);
      Engine.MoveTo(12354, 15008, -4601);
      Engine.SetTarget(30351);
      Engine.DlgSel('Quest');
    end.​
    

    Red line , so i try somthing like this

                   var
    QuestItem: TL2Item;
    Item: TL2Item;
    begin
      Engine.SetTarget(30351);                                    ////Astaron
      Engine.DlgOpen;
      Engine.DlgSel('Quest');
      Delay(500);
      Engine.DlgSel('Say you will help');
      Delay(500);
      Engine.MoveTo(12616, 16540, -4610);
      Engine.MoveTo(12159, 16658, -4610);
      Engine.SetTarget(30600);                                      ///Newbie Helper
      Engine.DlgOpen;
      Engine.DlgSel('Receive help from beneficial magic');
      Delay(500);
    Engine.CancelTarget;
    Engine.MoveTo(11384, 16781, -4688);
      Engine.MoveTo(10284, 16988, -4610);
      Engine.MoveTo(9704, 15568, -4601);
    Delay(500);
    Engine.SetTarget(30134);
    Delay(500);
    Engine.DlgOpen;
    Delay(500);
    Engine.DlgSel('Teleport');
    Delay(500);
    Engine.DlgSel('Spider Nest');
    Delay(500);
    Engine.CancelTarget;
    Engine.CancelTarget;
    begin
    if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
    Engine.FaceControl(0,true);
    end;
    if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
    Engine.FaceControl(0,false);
    end;
    Engine.UseItem(736);
    Delay(500);
    Engine.MoveTo(11403, 16746, -4688);
      Engine.MoveTo(12836, 16434, -4610);
      Engine.MoveTo(12354, 15008, -4601);
      Engine.SetTarget(30351);
      Engine.DlgSel('Quest');
    end;
    end.
     
    But script stop on teleport and using soe , wtf ?
  2.                var
    QuestItem: TL2Item;
    Item: TL2Item;
    begin
      Engine.SetTarget(30351);                                    ////Astaron
      Engine.DlgOpen;
      Engine.DlgSel('Quest');
      Delay(500);
      Engine.DlgSel('Say you will help');
      Delay(500);
      Engine.MoveTo(12616, 16540, -4610);
      Engine.MoveTo(12159, 16658, -4610);
      Engine.SetTarget(30600);                                      ///Newbie Helper
      Engine.DlgOpen;
      Engine.DlgSel('Receive help from beneficial magic');
      Delay(500);
    Engine.CancelTarget;
    Engine.MoveTo(11384, 16781, -4688);
      Engine.MoveTo(10284, 16988, -4610);
      Engine.MoveTo(9704, 15568, -4601);
    Delay(500);
    Engine.SetTarget(30134);
    Delay(500);
    Engine.DlgOpen;
    Delay(500);
    Engine.DlgSel('Teleport');
    Delay(500);
    Engine.DlgSel('Spider Nest');
    Delay(500);
    Engine.CancelTarget;
    if  (Inventory.Quest.ByID(1077,  QuestItem) = true) and (Item.Count < 10) then begin
    Engine.FaceControl(0,true);
    if  (Inventory.Quest.ByID(1077, QuestItem) = true) and (Item.Count = 10) then begin
    Engine.FaceControl(0,false);
    end;
    Engine.UseItem(736);
    Delay(500);
    Engine.MoveTo(11374, 16802, -4688);
      Engine.MoveTo(12836, 16434, -4610);
      Engine.MoveTo(12354, 15008, -4601);
      Engine.SetTarget(30351);
      Engine.DlgSel('Quest');
    end;

    end.​

     

    Anyone can find where is the fault? Its Quest Sweetest Venom for adena farmin in D.village

×
×
  • Create New...