Jump to content

L2 Adrenaline Scripts.


Recommended Posts

1: ok now i open the question but imposible select class :S. i try with this code but nothing.

 

d6JLnw.jpg

    engine.openquestion;
    delay(500);
    engine.dlgsel('Orc Raider.');
    delay(500);
    engine.dlgsel('Orc Raider');
    delay(500);
    engine.dlgsel(1);
    delay(500);
    engine.bypasstoserver ('Orc Raider.');
    delay(500);
    engine.bypasstoserver ('bypass -h Orc Raider.');
    delay(500);      
    engine.bypasstoserver ('-h Orc Raider.');

or https://imageshack.us/i/pad6JLnwj

 

2: ok

3: i don't understand :S

4: ok 

 

Ty a lot

Edited by varrakuda
Link to comment
Share on other sites

Hi, 

is it possible to use hotkeys in scripts?

I'd like to start the following script only if i hit a hotkey, lets say "B".

Edit: I tried Script.Suspend and Script.Resume but i dont know how to assign a hotkey.

var i:integer;
begin
  for i := 0 to CharList.Count - 1 do begin
     if Charlist.items(i).attackable and ((User.DistTo(Charlist.Items(i)) < 400))
     and  not Charlist.items(i).dead then begin
      engine.settarget(Charlist.items(i));
end;
end;
end.
Edited by jorvus
Link to comment
Share on other sites

 

Hi, 

is it possible to use hotkeys in scripts?

I'd like to start the following script only if i hit a hotkey, lets say "B".

Edit: I tried Script.Suspend and Script.Resume but i dont know how to assign a hotkey.

var i:integer;
begin
  for i := 0 to CharList.Count - 1 do begin
     if Charlist.items(i).attackable and ((User.DistTo(Charlist.Items(i)) < 400))
     and  not Charlist.items(i).dead then begin
      engine.settarget(Charlist.items(i));
end;
end;
end.

yeah you need waitaction

var 
 KeyCode, k: integer;
begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, k);
  if (KeyCode = $31)  then begin   //key 1
  //
  // do something
  //
  end;
end;
end.

at this case it must be like

var 
 KeyCode, k: integer;
 i:integer;
begin
while true do begin
delay(150);
Engine.WaitAction([lakey], KeyCode, k);
  if (KeyCode = $31)  then begin   //key 1
  //
  for i := 0 to CharList.Count - 1 do begin
     if Charlist.items(i).attackable and ((User.DistTo(Charlist.Items(i)) < 400))
     and  not Charlist.items(i).dead then begin
      engine.settarget(Charlist.items(i));
      end;
      end;
  //
  end;
end;
end. 
Link to comment
Share on other sites

hi, if posible take or save something in warehouse?.

 

Thanks a lot.

 

 

with cracked not posible, about new bot i dont know probably not posible too

 

mmm ok. i try to send all with mail but dont work you know why?

var
y, id, total: Integer;
item: tl2Item;

begin
  if (y=0) then begin
    for id := 1 to 20000 do
      if inventory.user.byid(id, item) then begin
        total := item.count;
        engine.sendmail('calvo', 'theme','text', [id, total]);
      end;
  end;     
end.

and if posible send mail whit 2 or more diferent items (coal, charcoal and adena)?

Link to comment
Share on other sites

mmm ok. i try to send all with mail but dont work you know why?

var
y, id, total: Integer;
item: tl2Item;

begin
  if (y=0) then begin
    for id := 1 to 20000 do
      if inventory.user.byid(id, item) then begin
        total := item.count;
        engine.sendmail('calvo', 'theme','text', [id, total]);
      end;
  end;     
end.

and if posible send mail whit 2 or more diferent items (coal, charcoal and adena)?

you need send mail like

engine.sendmail('calvo', 'theme','text', [57, 1]); //57 adena id, 1 count

about +random item, i dont know

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now



×
×
  • Create New...