Jump to content

thanatos15

Members
  • Posts

    5
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

About thanatos15

Profile Information

  • Gender
    Not Telling

thanatos15's Achievements

Newbie

Newbie (1/16)

  • Week One Done Rare
  • One Month Later Rare
  • One Year In Rare

Recent Badges

0

Reputation

  1. 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...