Adrenalin

[apaleytos]

i have one code but dont work in exilium giran and tp in dragon valley 

 

 

 

var

item: TL2Item;

 

function buffCheck: Boolean;

var buff: TL2Buff;

begin

    if not User.Buffs.ByID(4397, buff) then begin

        Result:=true;

        Print('Magic Support');

        Engine.MoveTo(81938,148298,-3468);

  Engine.SetTarget('Horadrim');

  delay(1000);

  Engine.DlgOpen;

  delay(1000);

  Engine.DlgSel('Default'); // notworking

  delay(1000); 

    end;

Result:=false;

end;

 

function deadCheck: Boolean;

begin

Result := false;

    if User.Dead then begin

        Result := true;

        Print('Dead. Pressing to village.');

        Delay(1000);

        Engine.FaceControl(0,false);

        Engine.GOHome(rtTown);  ///here change to town or other

        Delay(10000);

    end;

end;

 

begin

while true do begin

delay(150);

 

if User.inrange(86574,148326,-3470, 250, 150) then begin    // ch

        Engine.MoveTo(86780,-142217,-1320);

        Engine.MoveTo(87103,-142760,-1320);

        Engine.MoveTo(83406,147931,-3406);

    end;

    if user.inrange(81048,148326,-3470, 500) then begin

    end;    

    

    if user.inrange(83371,147921,-3406, 150) then begin

        Engine.SetTarget(31964);

        Engine.DlgOpen;

        Delay(700);

        Engine.DlgSel('Mystra');

        Delay(700);

        Engine.DlgSel('High Level Hunting Areas');

        Delay(10000);

        Engine.SetTarget('Mysta');

        Engine.DlgOpen;

        Delay(700);

        Engine.DlgSel('High Level Hunting Areas');

        Delay(700);

        Engine.DlgSel('Dragon Valley cave');

        Delay(1000);

    end;    

                          

    if user.inrange(149575,-112710,-2060, 500) then begin

        Print('cest parti');

      Engine.MoveTo(149606,-110577,-2298);

      Engine.MoveTo(149161,-109035,-2529);

      Engine.MoveTo(147956,-108811,-2836);

      Engine.MoveTo(145523,-109075,-3449);

      Engine.MoveTo(143923,-110626,-3597);

        Print('Yatta');

        Delay(500);

        Engine.FaceControl(0, true);

        while not deadCheck do delay(1000); //while not dead, do nothing and wait.

    end;

end;

end.

 

 

 

 

 

if you can help me pls

[adr.bot]

first of all about deadcheck

Engine.GOHome(rtTown);  ///here change to town or other

it make to town (not clan hall) so probably you spawn random in town,

 

second

if User.inrange(86574,148326,-3470, 250, 150) then begin    // ch
        Engine.MoveTo(86780,-142217,-1320);
        Engine.MoveTo(87103,-142760,-1320);
        Engine.MoveTo(83406,147931,-3406);
    end;

only this for all random spawns in town? :D

 

and

    if user.inrange(83371,147921,-3406, 150) then begin
        Engine.SetTarget(31964);
        Engine.DlgOpen;
        Delay(700);
        Engine.DlgSel('Mystra');
        Delay(700);
        Engine.DlgSel('High Level Hunting Areas');
        Delay(10000);
        Engine.SetTarget('Mysta');
        Engine.DlgOpen;
        Delay(700);
        Engine.DlgSel('High Level Hunting Areas');
        Delay(700);
        Engine.DlgSel('Dragon Valley cave');
        Delay(1000);
    end;  

if user.inrange(83371,147921,-3406, 150) then begin

 

must be ~same like last move point of town coordinates, that means when you be at certain point (near gatekeeper if no alt and b )  only then it will run this

Edited March 13, 2016 by adr.bot

[apaleytos]

ok i fix thnx now one more question who work together this and exilium cuptsat pin ???