spyros23

I checked the captcha of your server and it seems i cant make one for it but i can make for captcha like this or similar to this one message me for info

post pic of captcha window

var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
    if not User.Buffs.ByID(1388, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Engine.MoveTo(81909, 148285, -3464);
        Delay(500);
        Engine.SetTarget('Horadrim'); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('farm');
        Delay(500);
        Print('Buffed.');
        Engine.MoveTo(83378, 147917, -3400);
    end;
     Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
        end;
    end;

procedure all;
begin
while true do begin
delay(150);

  if User.Dead then begin
    deadCheck;
    end;

  if User.inrange(131369,114436,-3713, 250, 1000) then begin
		Engine.MoveTo(134874,114441,-3720);
		Engine.FaceControl(0,true);
		Delay(20000);
		Engine.MoveTo(135968,114977,-3720);
		Delay(20000);
		Engine.MoveTo(137824,114366,-3720);
		Engine.MoveTo(139808,114388,-3720); //close to entrance
		Delay(20000);
		Engine.MoveTo(141847,114428,-3720);
		Engine.MoveTo(142725,113730,-3720);
		Engine.MoveTo(144446,114477,-3720);
		Engine.MoveTo(146443,112252,-3720);
    end;

    if user.inrange(81940, 148398, -3469, 10000) then begin
        buffCheck;
    end;  
    
    if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1388, buffCheck) then begin
        Engine.SetTarget('Mystra');
        delay(500);
        Engine.DlgOpen;
        delay(500);
        Engine.DlgSel('High Level Hunting Areas');
        delay(500);
        Engine.DlgSel('Dragon Valley Cave');
        delay(500);
        Engine.DlgSel('Confirm');
    end;
    end;
end;

procedure weapons;
var meele, range, lowHP, highHP:cardinal;
    item:tl2item;
begin
lowHP   := 40;     //change HP count in %
meele   := 6592;   //weapon ID
highHP  := 80;     //change HP count in %
range   := 7577;   //weapon ID

  while true do begin
  delay(500);
  if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin
  engine.useitem(meele);
  end;
  if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin
  engine.useitem(range);
  end;
  end;
end;

begin
Script.NewThread(@all);
Script.NewThread(@weapons);
end.

example how merge scripts

procedure script1;
begin
while true do begin
delay(1000);
print('Here is script1.');
end;
end;

procedure script2;
begin
while true do begin
delay(1000);
print('Here is script2.');
end;
end;

begin
Script.NewThread(@script1);
Script.NewThread(@script2);
end.

thanks a ton!!!

 

have fun xd

var meele, range, lowHP, highHP:cardinal;
    item:tl2item;
begin
lowHP   := 40;     //change HP count in %
meele   := 6592;   //weapon ID
highHP  := 80;     //change HP count in %
range   := 7577;   //weapon ID

  while true do begin
  delay(500);
  if (user.hp<lowHP) and inventory.user.byid(meele, item) and not(item.equipped) then begin
  engine.useitem(meele);
  end;
  if (user.hp>highHP) and inventory.user.byid(range, item) and not(item.equipped) then begin
  engine.useitem(range);
  end;
  end;
end.

EDIT: rly nice, take script and run, even "thanks" dont say xd

 

I have this script that i made based on yours in the start of this thread but i cant seem to be able to add your script to mine i only know very little c# so its hard for me :P

var
item: TL2Item;
function buffCheck: Boolean;
var buff: TL2Buff;
begin
    if not User.Buffs.ByID(1388, buff) then begin
        Result:=true;
        Print('Buffs are needed. Buffing...');
        Engine.MoveTo(81909, 148285, -3464);
        Delay(500);
        Engine.SetTarget('Horadrim'); // NPC ID
        Delay(500);
        Engine.DlgOpen;
        Delay(500);
        Engine.DlgSel('farm');
        Delay(500);
        Print('Buffed.');
        Engine.MoveTo(83378, 147917, -3400);
    end;
     Result:=false;
end;
function deadCheck: Boolean;
begin
Result := false;
    if User.Dead then begin
        Print('Dead. Pressing to village.');
        Delay(1000);
        Engine.FaceControl(0,false);
        Engine.GoHome;
        Delay(10000);
        end;
    end;

begin
while true do begin
delay(150);

  if User.Dead then begin
    deadCheck;
    end;

  if User.inrange(131369,114436,-3713, 250, 1000) then begin
		Engine.MoveTo(134874,114441,-3720);
		Engine.FaceControl(0,true);
		Delay(20000);
		Engine.MoveTo(135968,114977,-3720);
		Delay(20000);
		Engine.MoveTo(137824,114366,-3720);
		Engine.MoveTo(139808,114388,-3720); //close to entrance
		Delay(20000);
		Engine.MoveTo(141847,114428,-3720);
		Engine.MoveTo(142725,113730,-3720);
		Engine.MoveTo(144446,114477,-3720);
		Engine.MoveTo(146443,112252,-3720);
    end;

    if user.inrange(81940, 148398, -3469, 10000) then begin
        buffCheck;
    end;  
    
    if user.inrange(83378, 147917, -3400, 500) and User.Buffs.ByID(1388, buffCheck) then begin
        Engine.SetTarget('Mystra');
        delay(500);
        Engine.DlgOpen;
        delay(500);
        Engine.DlgSel('High Level Hunting Areas');
        delay(500);
        Engine.DlgSel('Dragon Valley Cave');
        delay(500);
        Engine.DlgSel('Confirm');
    end;
    end;
end.

How can i set up in adrenaline when my hp is below 40% to change to a meele weapon so i can lifesteal and when my hp is above 80% to change back to crossbow? I tried putting it in both attack and self buff with conditions but it keeps spam equiping the weapon can i do it with a script or is it possible without one?

How can i set up in adrenaline when my hp is below 40% to change to a meele weapon so i can lifesteal and when my hp is above 80% to change back to crossbow? I tried putting it in both attack and self buff with conditions but it keeps spam equiping the weapon can i do it with a script or is it possible without one?