Jump to content

Recommended Posts

Posted
Hi guys, I need a script to keep switching long target between mobs (I'm Feoh StormScreamer), the objective is to lure the mobs far away from me, without moving position.
 
 
 
 
[12:28]
Can u help?
  • 1 month later...
Posted

SOS

 

Alguém pode me ajudar, como faço para criar uma scripts para se puxa na party?

 

Exemplo:

Quando um determinado play entra na Parte é escrever uma determinada mensagem na parte de Party, o aiox ira identificar a plava e selecionar o seu target e puxa por meio da skill Sumonn friend Alguém sabe me dizer se tem como fazer isso ?

 

Também como faço para saber todos os comando para fazer isso ou demais coisas

  • 1 month later...
  • 1 month later...
Posted

Hi, I need something like this:

 

 

procedure toVillage;

begin

Print('To Village');

Delay(100);

if (User.HP=0) then

begin

Delay(100);

Engine.GoHome;

Engine.Facecontrol(0,False);

Buff;

end;

end;

 

But to go to the clan hall, how? first of all, Thanks

  • 2 months later...
Posted
On 11/14/2018 at 12:11 AM, Emi said:

LF a script to get reward from npc.  i have 100k items and 1x Need 400 items. 

 

https://l2db.info/high-five/quests/290-Threat-Removal its the quest

 

 

Pinaps  

Quest

Threat Removal (In Progress)

Take the Reward 

 

repeat

 

greets 

 

this script work me fine for my purpose

 

   begin

  while true do begin

       engine.settarget('Pinaps');

       delay(200);

       engine.dlgopen;

       engine.dlgsel('Quest');

       delay(500);

      engine.dlgsel('Threat Removal (In Progress)');

      delay(500);
      
       engine.dlgsel('Take the reward.');
       
      delay(1000);
     end;
      end.

  • 2 weeks later...
Posted

 farm  tarantula ́s spider silk script... quest lvl 15 dwarf village 

 

 

begin
//  ????
           
   while User.Level > 10 do begin // lvl
      
      if not User.InCombat then begin

   
      if User.Dead then begin
         Engine.GoHome;
         Delay(9000);
      Engine.MoveTo (116696, -179544, -1136);  
      Engine.MoveTo(116725, -180147, -1200); 
      Engine.MoveTo(115448, -178440, -928);
      Engine.MoveTo(115608, -178024, -912);
        end;
        if User.inrange(115608, -178024, -912, 250, 150) then begin  //1 res
               Print('Go Buffer');
              Engine.SetTarget('Newbie Helper');  //Target do NCP NEBIE 
              Delay(1500);
              Engine.DlgOpen; // abre chat combat npc
              Delay(1500);
              Engine.DlgSel(6);
              Delay(3500);
              Engine.CancelTarget;
              Engine.MoveTo (115096, -178168, -912);
              Delay(1500);
        end;
        if User.inrange(115096, -178168, -912, 250, 150) then begin  //2 res
              Print('Go Teleporte');
              Engine.SetTarget('Teleport Device');  //Target do NCP GK
              Delay(1500);
              Engine.DlgOpen; // abre chat combat npc
              Delay(1500);
              Engine.DlgSel(1);
              Delay(1500);
              Engine.DlgSel(10);
              Delay(5000);
              Engine.MoveTo (137240, -206280, -3568);
              Engine.MoveTo (140712, -207656, -3684);
              Engine.MoveTo (140472, -208936, -3424);
              Engine.MoveTo (140664, -208840, -3416);
            end;
          
      end;
      
      Delay(2000);
   end;
end.

  • 3 months later...
Posted (edited)

Can some one share a script for destro,i need it for farm pre frenzy ,zelot and battle roar with Rsk.hast and then use again Heavens Divine.


Thanks

Edited by takecare
  • 1 month later...
  • 2 months later...
  • 4 weeks later...
  • 3 weeks later...
Posted (edited)

after getting some of the Scripts from this Post and making mine based on what we have here, I'm here to post my contribution.

      var Figth_Flag:boolean;
     Item: TL2Item;
     Npc: TL2Npc;
     Obj: TL2Buff;
     IdBuff: integer;
     Buffs:TL2Buff;
var L2Skill: TL2Skill;


procedure toVillage;


begin

       while true do begin
      	  
      if (User.HP < 1) then
             Engine.GoHome;
    if (User.HP=0) then
           Engine.GoHome;
       Delay(1000);
       Engine.GoHome;

       toVillage;
Delay(5000);
		CheckQuest;

		     
           end;  
           end;   
       
           
      


procedure RunToKT3;
begin
  if not User.InRange (143384, -77384, -4720, 2000) then  //Ketra3
begin
engine.sendtoserver('21 47 00 6F 00 54 00 6F 00 5F 00 4B 00 65 00 74 00 72 00 61 00 4F 00 72 00 63 00 4F 00 75 00 74 00 70 00 6F 00 73 00 74 00 33 00 00 00');
        end else 
       delay(15000);
Engine.LoadConfig('SPS K3');    // switch to your character seting
        Delay(1000);
     Fight;
     delay(2500);
     Engine.Facecontrol(0,True);
     Print('RunToKT3_Ok'); //test if
     CheckQuest;

  end;

 
 
procedure RunToFW3;
 begin 
if User.InRange (83992, 214232, -3600, 900) then begin
Engine.MoveTo(82936, 214968, -3672);
Engine.MoveTo(81592, 216024, -3760);

Engine.Facecontrol(0,True);
//Print('RunToFW3_Ok') //test if
Engine.LoadConfig('SPS FW3');    // switch to your character seting


     Fight;
     delay(2500);
     CheckQuest;
        
   end else begin

    Engine.Facecontrol(0,False);

engine.sendtoserver('21 47 00 6F 00 54 00 6F 00 5F 00 46 00 69 00 65 00 6C 00 64 00 6F 00 66 00 57 00 68 00 69 00 73 00 70 00 65 00 72 00 73 00 33 00 00 00');

    
end; end;


    
                  
procedure Fight;
   begin
    Delay(1500);
    Print('Fight_Ok');
    Engine.Facecontrol(0,True);
    CheckQuest;

end;


procedure GiranBlue; //Start Quest

begin
      Print('GiranBlue_O');
    if (engine.queststatus(761,1)= False)  then begin
      Print('SemQuest_Ok');
  Engine.MoveTo(82440, 14848, -3464);
         Delay(1000);
  Engine.MoveTo(82446, 147522, -3464);
           Delay(1000);
  if User.InRange (82472, 147544, -3464, 90)then begin
  Delay(500);
      Print('Nicholas_Ok'); //test if

  Engine.SetTarget(31597);   // Nicholas[id: 31597]
  Delay(1000);
  Engine.DlgOpen;
  Delay(1000);
Engine.BypassToServer ('npc_268436779_Quest'); //npc npc_268436787_Quest
       Delay(1000);
Engine.BypassToServer ('npc_268436779_Quest Q761_ObtainBlessedBlueCrystal'); //Quest Blue nichols npc_268436787_Quest Q761_ObtainBlessedBlueCrystal
  Delay(1000);
Engine.BypassToServer ('Quest Q761_ObtainBlessedBlueCrystal getquest.htm'); //Quest Blue Quest Q761_ObtainBlessedBlueCrystal getquest.htm
     Delay(1500);
     end;

	 end;
     begin 
if (Inventory.Quest.ByID(9528, Item) = True)  and (Item.Count = 1 ) then begin
    Print('Letter_Ok'); //test if
	 Engine.MoveTo(81800, 148056, -3464);
	   Delay(500);
  Engine.MoveTo(81192, 148488, -3464);
    Delay(1000);
  Engine.MoveTo(80840, 148648, -3464);
    Delay(500);
  Engine.MoveTo(80200, 148648, -3528);
    Delay(500);
  Engine.MoveTo(79176, 148632, -3560);
    Delay(500);
  Engine.MoveTo(78200, 148664, -3592);
    Delay(500);
  Engine.MoveTo(77976, 148616, -3592);
    Delay(500);
  Engine.MoveTo(77544, 148536, -3592);
    Delay(500);
  Engine.MoveTo(77512, 148424, -3592);
    Delay(500);
  Engine.MoveTo(77608, 148216, -3592);
    Delay(500);
  Engine.SetTarget(30512);   // Kusto[id: 30512]
    Delay(500);
        Print('Kusto_Ok');
  Engine.DlgOpen;    
	Engine.BypassToServer ('npc_268466115_Quest'); //Quest Blue Missao 
  Delay(1000);
  Engine.BypassToServer ('npc_268466115_Quest Q761_ObtainBlessedBlueCrystal'); //Quest Blue
  Delay(1000);
    Engine.BypassToServer ('Quest Q761_ObtainBlessedBlueCrystal 31002-03.htm'); //Quest Blue
  Delay(1000);
  if (engine.queststatus(761,2)= True)  then begin
     RunToKt3;
     end;
  end else begin
   engine.sendtoserver('21 47 00 6F 00 54 00 6F 00 5F 00 54 00 6F 00 77 00 6E 00 6F 00 66 00 47 00 69 00 72 00 61 00 6E 00 00 00');
  Delay(12000);
 GiranBlue; 

end;
end; end;
    


   
procedure EntregaC;
var
	QuestItem: TL2Item;
	Item: TL2Item;
begin
                      
//Print('EntregaC_O'); //test if

if (Inventory.Quest.ByID(9267, Item) = True)  and (Item.Count = 20 ) then begin 
Print('Entregar Crystal');  // print quest stage
     Engine.Facecontrol(0,false);
 delay(1500);
 engine.sendtoserver('21 47 00 6F 00 54 00 6F 00 5F 00 54 00 6F 00 77 00 6E 00 6F 00 66 00 47 00 69 00 72 00 61 00 6E 00 00 00'); //Giran
           Delay(15000);
          
  Engine.MoveTo(81192, 148488, -3464);
   delay(1500);
  Engine.MoveTo(80840, 148648, -3464);
   delay(1500);
  Engine.MoveTo(80200, 148648, -3528);
   delay(1500);
  Engine.MoveTo(79176, 148632, -3560);
  Engine.MoveTo(78200, 148664, -3592);
   delay(1500);
  Engine.MoveTo(77976, 148616, -3592);
  Engine.MoveTo(77544, 148536, -3592);
  Engine.MoveTo(77512, 148424, -3592);
   delay(1500);
  Engine.MoveTo(77608, 148216, -3592);
  Engine.SetTarget(30512);   // Kusto[id: 30512]
  Delay(1000);
    Engine.DlgOpen;
      Delay(1000);
Engine.BypassToServer ('npc_268466115_Quest'); //Quest Blue
      Delay(1000);
Engine.BypassToServer ('npc_268466115_Quest Q761_ObtainBlessedBlueCrystal'); //Quest Blue
Print('blueCrystal_Ok');
           Delay(4000);
engine.sendtoserver('21 47 00 6F 00 54 00 6F 00 5F 00 54 00 6F 00 77 00 6E 00 6F 00 66 00 47 00 69 00 72 00 61 00 6E 00 00 00'); //giran
 Delay(20000);
	end;
	end;

    

  procedure AntBan;
 begin
 delay(2500);
       while true do begin
       delay(2500);
	 //Print('AntBan_0'); //test if
  if User.InRange (80392, 217000, -3656, 2000) then begin 
    Engine.Facecontrol(0,True);

  engine.sendtoserver('21 6E 00 65 00 78 00 74 00 74 00 61 00 72 00 67 00 65 00 74 00 5F 00 53 00 68 00 6F 00 72 00 74 00 00 00');
   delay(500);
   engine.sendtoserver('21 41 00 75 00 74 00 6F 00 48 00 75 00 6E 00 74 00 69 00 6E 00 67 00 5F 00 4F 00 4E 00 00 00');

      //Print('AntBan_FW'); //test if
        delay(500);
  end;
  if User.InRange (143384, -77384, -4720, 2000) then  //Ketra3
begin
Engine.Facecontrol(0,True);

engine.sendtoserver('21 6E 00 65 00 78 00 74 00 74 00 61 00 72 00 67 00 65 00 74 00 5F 00 53 00 68 00 6F 00 72 00 74 00 00 00');
   delay(500);
   engine.sendtoserver('21 41 00 75 00 74 00 6F 00 48 00 75 00 6E 00 74 00 69 00 6E 00 67 00 5F 00 4F 00 4E 00 00 00');

//Print('AntBan_KT'); //test if
             
  end; 
        end;
               end;  
    
    
procedure CheckQuest;
var
	QuestItem: TL2Item;
	Item: TL2Item;
    begin
       while true do begin
      //Print('CheckQuest_Blue_not_W'); //test if
       Delay(15000);
       if not user.inrange(77656, 148104, -3592, 4000,300) then begin //Giran
    if not engine.queststatus(761,1) and not engine.queststatus(761,2) then begin
      if (engine.queststatus(761,3)= False)  then begin
    Print('CheckQuest_Blue_not_0');
     Engine.FaceControl(0, False);
    GiranBlue;
    Delay(2000)
    end;
    end;
     end;

      if (engine.queststatus(761,3)= False)  then begin  
      if not engine.queststatus(761,1) and not engine.queststatus(761,2) then begin
     if user.inrange(82504, 148136, -3464, 4000,300) then begin
     GiranBlue;
    //Engine.MoveTo(82504, 148136, -3464);
       end;
      end;  
      end;
      
	//if not engine.queststatus(761,1) and not engine.queststatus(761,2) then begin
    if  (Inventory.Quest.ByID(9268, Item) = False)  and (Item.Count = 20 ) then begin
    Print('CheckQuest_Blue_not_1');
   if (Inventory.Quest.ByID(9267, Item) = False)  and (Item.Count = 20 ) then begin
    //while not user.inrange(77656, 148104, -3592, 4000,300) do begin //Giran
   	Print('CheckQuest_Blue_not');
		GiranBlue;

               
         end;
         end;
           

      //Print('CheckQuest_RunToKT3_0'); //test while         
if (engine.queststatus(761,2)= True)  then begin
if (Inventory.Quest.ByID(9268, Item) = False)  and (Item.Count < 20 ) then begin
   //if (Inventory.Quest.ByID(9268, Item) = True)  and (Item.Count = 20 ) then begin
	while not user.inrange(143384, -77384, -4720, 3000,300) do begin
	Print('CheckQuest_RunToKT3_1');
	RunToKT3;

   
	end;
		end;
		end;

  if (engine.queststatus(761,2)= True)  then begin
if (Inventory.Quest.ByID(9268, Item) = True)  and (Item.Count < 20 ) then begin
	//if (Inventory.Quest.ByID(9268, Item) = True)  and (Item.Count = 20 ) then begin
	while not user.inrange(143384, -77384, -4720, 3000) do begin
	Print('CheckQuest_RunToKT3_2');
	RunToKT3;
  
		end;
		end;
		end;

        //Print('CheckQuest_RunToFW3_0');
  if (engine.queststatus(761,2)= True)  then begin
	if (Inventory.Quest.ByID(9268, Item) = True)  and (Item.Count = 20 ) then begin
		if (Inventory.Quest.ByID(9267, Item) = True)  and (Item.Count < 20 ) then begin
	if not User.InRange (81176, 216520, -3736, 3000,300)then begin
		while not user.inrange(83912, 214120, -3624, 4000,300) do begin    //fw3_resp
          delay(15000);
   RunToFW3;
   Print('CheckQuest_RunToFW3_1');
    end;
	end; 
		end;
			end;
			end;   

	//Print('CheckQuest_RunToFW3_1_0');
	if (Inventory.Quest.ByID(9268, Item) = True)  and (Item.Count = 20 ) then begin
	if not (Inventory.Quest.ByID(9267, Item) = True)  and (Item.Count < 20 ) then begin
				//Print('CheckQuest_RunToFW3_1_1'); //test if
		if not User.InRange (81176, 216520, -3736, 3000,300)then begin
						//Print('CheckQuest_RunToFW3_1_2'); //test if
		RunToFW3;
		while not user.inrange(83912, 214120, -3624, 4000,300) do begin    //fw3_resp
		//Print('CheckQuest_RunToFW3_1_3');
          delay(10000);
   RunToFW3;
    end;
	end;
			end;
		end else CheckQuest;
		
  end;

  end;
					
					

               
begin    //repeats the script again
   Script.NewThread (@antBan);
   Script.NewThread (@toVillage);
    Script.NewThread (@CheckQuest);

  repeat
       EntregaC;
   
  until Engine.Status = lsOffline;
  Delay(1000);

end.

 

Edited by eloiton
  • 4 weeks later...
Posted
On 6/1/2020 at 9:00 PM, RanZum said:

Google translator...

Hello people!
Well, I prepared my script based on the one described above. Apparently, it is flowing normally, however, because my notebook is old, this video card warning appears, I already know the cause and the solution would be to buy only a more current notebook, but my notebook has good settings, the only problem it is the recognition of the plate by the game.
 

If anyone can help, I would like a line of code that I can confirm with OK, so that the game opens and the rest of the script continues.PW7LRAS.jpg

I found an external and internal solution, external I made an exe to close the error form, and internal I made a plugin that is called by the script

 

Spoiler
{$R *.dfm}

procedure CloseForm(Caption: String);
var
  h: THandle;
begin
  while (True) do
  begin
    h := FindWindow(nil, PChar(Caption));
 
    if (h <> 0) then
    begin
      PostMessage(h, WM_CLOSE, 0, 0);

      Break;
    end;
 
    if (h = 0) then
      Break;
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
If FindWindow(nil,'Warning')>0 then
 CloseForm('Warning');
end;
end.

 

 

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



  • Posts

    • Destroyer lvl 72 with items on sell. Items: - Tallum heavy set, - black ore set, - Halberd + Haste [Pole A], - Infernal master +4, - Saint spear clean.   Contact me for more details !  
    • p0w3rf1y was Nikita? also how do these things work, they take a base lets say acis or lucera version XXX and then they build up from that to whatever they have today themselves without further company from..again, lucera or acis for example?
    • - CHAPTER IV NEW START FROM 16.MAY.2026 - RATES Experience (EXP) 30x Skill Points (SP) 30x Adena 10x Drop for Spoil 10x General Drop 10x RaidBoss Drop 3x Manor 4x Quest Drop 2x Quest Reward 3x Fishing Drop 10x Vitality System 25x Clan Reputation Point 2x ENCHANTS Safe Enchant +3 Max. Enchant +16 Normal Scroll chance 70% Blessed Scroll chance 80% Max donation enchant is +8 Yogi event enchant rate is 35% -Olf Max Enchant +9 enchant rates: +1 to +3 100%, +4 65%, +5 65%, +6 60%, +7 60%, +8 50%, +9 45% Elemental Max. Level Level 7 Elemental Stone chance 55% Elemental Crystal chance 50% CONFIGURATION Buffs, Dances, Songs Duration 2 hours Buff Slots 28+4+12 Max. Clients per PC 2 / IP 4 Olympiads Max. Enchant +8 Premium Geodata and Pathnodes Sub-Class Max. Level 85 Offline Shop mode Auto Learn Skills Vitality System Champions System Wedding System Class Master AUTO EVENTS Team vs. Team Last Man Standing Treasure Hunt Korean Style Capture the Flag Lucky Creatures Protect the King Russian Roulette Fight For Throne Deathmatch Domination TvT VIP Advanced Zombies Treasure Hunt No-PvP Hunting Grounds Mass Domination Lucky Chests Mutant Battlefields Mini Events Rabbits Simon Says Summer Meleons Pirates Treasure Hitman - Bounty Hunters Medal Collector Boss Random Etc. RAIDS RESPAWN TIME Valakas 72 hours / 24 hours random spawn Antharas 72 hours / 8 hours random spawn Baium 48 hours / 2 hours random spawn Baylor 24 hours/ 12 hours random spawn Beleth 48 hour OTHER Special Goddess of Destruction and Heroic Cloaks Goddess of Destruction .dress me Armors PvP + Rank + RPC Reward system Daily Quests available in community board New Achievements system Tournament system 1vs1 + Daily Tournament Academy Search for newbies, with payment Party Matching with class filter and manage Register to Fortress Siege as single player Cancelled buffs will return in 60 seconds (disabled) Improved .acpon will use now: MP, CP, GCP, GHP. SOULS Maximum number of slots for Private Store is 50 The maximum level for subclass is up to level 85 Multiple commands with advanced options, see them in com board You can view a monster drop rate and list by using shift+click Olympiad - Heroes are formed every Saturday at 01:05 GMT+2 Advanced Community Board with lots of new features for perfect play Advanced NPC buffer with almost all skills and up to 4 schemes per character Special Quiz event every 5 hours with over 500 questions and good reward Custom special Raids with special drop, with A.I against bots All major raids drop Donation Coins and Divine S Scrolls Super T.Rex with better drop and starting premium pets Glittering Medals from all mobs to exchange for special items Reduced number of clan members to raise the clan level and less reputation required Clan / Alliance has a reduced penalty AutoFarm, Community Cleaner, Weapon Repair system, Player Info, Server Online Statistics And many more... http://l2viserion.com https://www.facebook.com/l2viserion
    • - CHAPTER IV NEW START FROM 16.MAY.2026 - RATES Experience (EXP) 30x Skill Points (SP) 30x Adena 10x Drop for Spoil 10x General Drop 10x RaidBoss Drop 3x Manor 4x Quest Drop 2x Quest Reward 3x Fishing Drop 10x Vitality System 25x Clan Reputation Point 2x ENCHANTS Safe Enchant +3 Max. Enchant +16 Normal Scroll chance 70% Blessed Scroll chance 80% Max donation enchant is +8 Yogi event enchant rate is 35% -Olf Max Enchant +9 enchant rates: +1 to +3 100%, +4 65%, +5 65%, +6 60%, +7 60%, +8 50%, +9 45% Elemental Max. Level Level 7 Elemental Stone chance 55% Elemental Crystal chance 50% CONFIGURATION Buffs, Dances, Songs Duration 2 hours Buff Slots 28+4+12 Max. Clients per PC 2 / IP 4 Olympiads Max. Enchant +8 Premium Geodata and Pathnodes Sub-Class Max. Level 85 Offline Shop mode Auto Learn Skills Vitality System Champions System Wedding System Class Master AUTO EVENTS Team vs. Team Last Man Standing Treasure Hunt Korean Style Capture the Flag Lucky Creatures Protect the King Russian Roulette Fight For Throne Deathmatch Domination TvT VIP Advanced Zombies Treasure Hunt No-PvP Hunting Grounds Mass Domination Lucky Chests Mutant Battlefields Mini Events Rabbits Simon Says Summer Meleons Pirates Treasure Hitman - Bounty Hunters Medal Collector Boss Random Etc. RAIDS RESPAWN TIME Valakas 72 hours / 24 hours random spawn Antharas 72 hours / 8 hours random spawn Baium 48 hours / 2 hours random spawn Baylor 24 hours/ 12 hours random spawn Beleth 48 hour OTHER Special Goddess of Destruction and Heroic Cloaks Goddess of Destruction .dress me Armors PvP + Rank + RPC Reward system Daily Quests available in community board New Achievements system Tournament system 1vs1 + Daily Tournament Academy Search for newbies, with payment Party Matching with class filter and manage Register to Fortress Siege as single player Cancelled buffs will return in 60 seconds (disabled) Improved .acpon will use now: MP, CP, GCP, GHP. SOULS Maximum number of slots for Private Store is 50 The maximum level for subclass is up to level 85 Multiple commands with advanced options, see them in com board You can view a monster drop rate and list by using shift+click Olympiad - Heroes are formed every Saturday at 01:05 GMT+2 Advanced Community Board with lots of new features for perfect play Advanced NPC buffer with almost all skills and up to 4 schemes per character Special Quiz event every 5 hours with over 500 questions and good reward Custom special Raids with special drop, with A.I against bots All major raids drop Donation Coins and Divine S Scrolls Super T.Rex with better drop and starting premium pets Glittering Medals from all mobs to exchange for special items Reduced number of clan members to raise the clan level and less reputation required Clan / Alliance has a reduced penalty AutoFarm, Community Cleaner, Weapon Repair system, Player Info, Server Online Statistics And many more... http://l2viserion.com https://www.facebook.com/l2viserion
    • TG Support: Buying Proxy | Channel: Buying Proxy Discord support: #buyingproxy | Server: Join the BuyingProxy Discord Server! Create your account for free here
  • Topics

×
×
  • Create New...

Important Information

This community uses essential cookies to function properly. Non-essential cookies and third-party services are used only with your consent. Read our Privacy Policy and We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue..