Jump to content

LAPDS

Members
  • Posts

    4
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Posts posted by LAPDS

  1. Thx adr.bot and Boukipike, the scrip work very well, not 100% but work fine (only stock in some respawn areas of goodard, i don't have all i thick), in the morning i take 100 frintezza pass, saw the scrip work fine for me. i one to said thank a lot for the help, i use a combination of procedure and function (like a adr.bot said), and use if and while with engine.queststatus() whit the different stage of quest (thx to boukipike).

     

     

    P.S: i don't replay to adr.bot the question about backing to cal hall, the command you said me is (rttohall) but don't work, saw i read the scrip manual and i found there, the command is (rttoholl) whit "o".

     

  2. (first i m so sorry for my english i no good in this language) I need your help, if any one can help me. I try to do a script for a quest JOURNEY TO A SETTLEMENT, in my server this quest is repeatable and i get many passes for frintezza boss. I write the script but don't work property, i want to do the script do the quest for eg 10 time, but i cant do the loop work fine, so if any can read this script and meaby can tell me what is wrong.

    /////////////////////////////////////////////////////////////////////////////////////////////////////////////
    //QUEST JOURNEY TO A SETTLEMENT                                                                            //
    //                                                                                                         //
    //                                                                                                         //
    //Localización: four mausoleums muy adentro en imperial tomb en Town Goddard                               //        
    //Begin NPC: Nameless Spirit                                                                               //
    //Reward: Frintezza's Magic Force Field Removal Scroll                                                     //
    //Quest repetible: in this server "yes"                                                                    //
    //                                                                                                         //
    //1ª Nameless Spirit will ask you to bring antelope skin.                                                  //
    //2ª Kill antelope canyon y antelope canyon slave en wall of argos to get the quest item antelope skin X 1 //
    //   then go back to NPC.                                                                                  //
    //3ª speak with Nameless Spirit and give him the antelope skin.                                            //
    //4ª him reward you with the Frintezza's Magic Force Field Removal Scroll.                                 //
    //5ª take the quest again.                                                                                 //
    /////////////////////////////////////////////////////////////////////////////////////////////////////////////
    
    var
    	QuestItem: TL2Item;
    	Item: TL2Item;
    begin
    	Engine.MoveTo(147960,-55272,-2728);
    	//move to Goddard GK Tatiana
    	Delay(500);
    	Engine.SetTarget(31275);
    	//Target GK Tatiana
    	Delay(500);
    	Engine.DlgOpen;
    	//Talk GK Tatiana
    	Delay(500);
    	Engine.DlgSel('[Noblesse Exclusive] Teleport');
    	//select Nobles Teleport
    	Delay(500);
    	Engine.DlgSel(2);
    	// Select Teleport Hounting Ground without Token
    	Delay(500);
    	Engine.DlgSel('Four Sepulchers - 1000 9');
    	// Select destination Four sepulchers teleport
    	Delay(500);
    	Engine.CancelTarget;
    	// Cancel Target GK Tatiana
    	Engine.MoveTo(178296,-85560,-7216);
    	//Move Nameless Spirit NPC (begin of the quest)
    	Delay(500);
    	Engine.SetTarget(31453);
    	//Target Nameless Spirit
    	Delay(500);
    	Engine.DlgOpen;
    	// talk with NPC Nameless Spirit
    	Delay(500);
    	Engine.DlgSel('Quest');
    	//Request quest
    	Delay(500);
    	Engine.DlgSel('65402');
    	// Select Quest Journey to a Settlement
    	Delay(500);
    	Engine.DlgSel('I will do it.');
    	//accept the quest
    	Delay(500);
    	Engine.CancelTarget;
    	// Cancel Target Nameless Spirit
    	if not (Inventory.User.ByID(8073, Item) = true) and (Item.Count < 5) then begin
    	//ID 8073 is Frintezza Magic Force Field Removal Scroll final reward from quest, this item is save it into the user inventory
    		Engine.UseItem(736);
    		//Take Soe
    		Delay(10000);
    		Engine.MoveTo(147960,-55272,-2728);
    		//Move to GK Tatiana
    		Delay(500);
    		Engine.SetTarget(31275);
    		//Target GK Tatiana
    		Delay(500);
    		Engine.DlgOpen;
    		// Talk with GK Tatiana
    		Delay(500);
    		Engine.DlgSel('Teleport');
    		//Select Teleport
    		Delay(500);     
    		Engine.DlgSel('Wall of Argos - 2200 9');
    		//Select destination wall of argos
    		Delay(500);
    		Engine.CancelTarget;
    		// Cancel Target GK Tatiana
    		if not (Inventory.Quest.ByID(8072, QuestItem) = true) then begin
    		// ID 8072 is Antilope Skin item first part of quest only need one, this item is save it into the quest user inventory
    		    Engine.FaceControl(0,true);
    			// activate BOT
    		end.
    		Engine.FaceControl(0,false);
    		// deactivate BOT
    		Engine.UseItem(736);
    		//Take Soe
    		Delay(10000);
    		Engine.MoveTo(147960,-55272,-2728);
    		//Move GK Tatiana
    		Delay(500);
    		Engine.SetTarget(31275);
    		//Target GK Tatiana
    		Delay(500);
    		Engine.DlgOpen;
    		//Talk GK Tatiana
    		Delay(500);
    		Engine.DlgSel('[Noblesse Exclusive] Teleport');
    		//select Nobles Teleport
    		Delay(500);
    		Engine.DlgSel(2);
    		// Select Teleport Hounting Ground without Token
    		Delay(500);
    		Engine.DlgSel('Four Sepulchers - 1000 9');
    		// Select destination Four sepulchers teleport
    		Delay(500);
    		Engine.CancelTarget;
    		// Cancel Target GK Tatiana
    		Engine.MoveTo(178296,-85560,-7216); 
    		//Move to Nameless Spirit
    		Delay(500);
    		Engine.SetTarget(31453);
    		//Target Nameless Spirit
    		Delay(500);
    		Engine.DlgOpen;
    		//Talk Nameless Spirit
    		Delay(500);
    		Engine.DlgSel('Quest');
    		// Select Quest
    		Delay(500);
    		Engine.DlgSel('65402');
    		// Select Journey to a Settlement
    		Delay(500);
    		Engine.DlgSel('Here it is.');
    		// Give Item ID 8072 to NPC
    		Delay(500);
    		Engine.DlgOpen;
    		//Talk Nameless Spirit
    		Delay(500);
    		Engine.DlgSel('Quest');
    		// Select Quest
    		Delay(500);
    		Engine.DlgSel('65402');
    		// Select Journey to a Settlement
    		Delay(500);
    		Engine.DlgSel('I will do it.');
    		//accept the quest
    		Delay(500);
    		Engine.CancelTarget;
    		// Cancel Target Nameless Spirit
        end.
    end.
    
×
×
  • Create New...