Jump to content

Adrenaline Script Correction


Saytan

Recommended Posts

Hi, I spent half day for looking forums answers and it's hard to get any infos.

Someone can help correct my Exp > Die > Back Exp Script?

 

begin
Engine.MoveTo(11240, 17537, -4592);
Engine.MoveTo(10723, 17133, -4584);
Engine.MoveTo(10749, 17257, -4584);
Engine.MoveTo(10738, 17132, -4592);
Engine.MoveTo(10672, 17100, -4584);
Engine.MoveTo(10663, 17055, -4584);
  Engine.SetTarget(70045); // NPC ID 
  Engine.DlgOpen;
  delay(1000);
  Engine.DlgSel('Magic Set'); // notworking
  delay(1000);
  Engine.DlgSel('Magnus'); // notworking
  delay(1000);
  Engine.DlgSel('HP/CP/MP'); // notworking
  delay(1000);
  Engine.MoveTo(10167, 16873, -4584);
  Engine.MoveTo(10108, 16665, -4568);
  Engine.MoveTo(9953, 16270, -4568);
  Engine.MoveTo(9722, 15628, -4568);
  Engine.MoveTo(9673, 15581, -4568);
  delay(1000);
  Engine.SetTarget(30134); // NPC ID
  Engine.DlgOpen;
  delay(1000);
  Engine.DlgSel('Necropolis and Catacombs'); // notworking
  delay(1000);
  Engine.DlgSel('Catacomb of Dark Omen's'); // notworking                    << There is Problem with ' in Omen's word.
  
begin                                                                                                        
while true do begin
if user.inrange(10663, 17055, -4584, 1500) // 1500 needed while you checking
then begin                                                                                          
end;
end.       <<<< RED,  if true begin (36): "end" expected but "я" found
 
 
Someone can help me FIX it?
I was trying to make: Go exp > Die (Bot autotown) > Pause Bot > Use script (rbf npc, go gk) > TP Loc > Go spot > Resume bot
Link to comment
Share on other sites

 

Hi, I spent half day for looking forums answers and it's hard to get any infos.

Someone can help correct my Exp > Die > Back Exp Script?

 

begin
Engine.MoveTo(11240, 17537, -4592);
Engine.MoveTo(10723, 17133, -4584);
Engine.MoveTo(10749, 17257, -4584);
Engine.MoveTo(10738, 17132, -4592);
Engine.MoveTo(10672, 17100, -4584);
Engine.MoveTo(10663, 17055, -4584);
  Engine.SetTarget(70045); // NPC ID 
  Engine.DlgOpen;
  delay(1000);
  Engine.DlgSel('Magic Set'); // notworking
  delay(1000);
  Engine.DlgSel('Magnus'); // notworking
  delay(1000);
  Engine.DlgSel('HP/CP/MP'); // notworking
  delay(1000);
  Engine.MoveTo(10167, 16873, -4584);
  Engine.MoveTo(10108, 16665, -4568);
  Engine.MoveTo(9953, 16270, -4568);
  Engine.MoveTo(9722, 15628, -4568);
  Engine.MoveTo(9673, 15581, -4568);
  delay(1000);
  Engine.SetTarget(30134); // NPC ID
  Engine.DlgOpen;
  delay(1000);
  Engine.DlgSel('Necropolis and Catacombs'); // notworking
  delay(1000);
  Engine.DlgSel('Catacomb of Dark Omen's'); // notworking                    << There is Problem with ' in Omen's word.
  
begin                                                                                                        
while true do begin
if user.inrange(10663, 17055, -4584, 1500) // 1500 needed while you checking
then begin                                                                                          
end;
end.       <<<< RED,  if true begin (36): "end" expected but "я" found
 
 
Someone can help me FIX it?
I was trying to make: Go exp > Die (Bot autotown) > Pause Bot > Use script (rbf npc, go gk) > TP Loc > Go spot > Resume bot

 

well first of all script not looks good xd

Engine.DlgSel('Catacomb of Dark Omen's'); // notworking                    << There is Problem with ' in Omen's word.

correct must be like 

Engine.DlgSel('Catacomb of Dark Omen''s'); // notworking                    << There is Problem with ' in Omen's word.

if still doesnt work u can try use 

engine.dlgsel(1); // 1 index of button in this case it will press first button if works

if still not work then u can try check bypass string and use 

engine.bypasstoserver('string');

if bypass strings change every time at open dialog, then u can try check for ready functions to send bypass in real, time

also simple back to spot should be like

function isDead:boolean;
begin
result:= false;
if user.dead then begin
result:= true;
engine.facecontrol(0, false);
delay(555);
engine.gohome;
delay(5555); // some delay for properly teleport to town after death
script.replace; // restart script
end;
end;

begin
while delay(1111) do begin
// teleport
delay(5555); // 5sec delay to properly teleport
// engine.moveto to ur spot
engine.facecontrol(0, true); // turn on bot
while not isDead do delay(1111);// wait until u dead
end;
end.

should be enough for h5 server with alt b

if server interlude then ofc need town locations

gl!

Link to comment
Share on other sites

New problem with HS script. Server la2mega.net

I tried all ways from forums to click "I'm here to deliver some liqour"

 

79708551780253560676.jpg

 

Can you help me?

 

begin

   Engine.MoveTo(147528, -113249, -2128);

   Engine.MoveTo(147522, -113282, -2128);

   delay(1000);

   Engine.SetTarget(31547);                                    /////beolin

   Engine.DlgOpen;

   Engine.DlgSel('Quest');

   Delay(500);

   Engine.DlgSel('Specialty Liquor Delivery');

   Delay(500);

   Engine.DlgSel('I''m here to deliver some liquor');        <<< Not Working

   Delay(500);

   Engine.DlgSel('"I''m here to deliver some liquor"');       <<< Not Working

   Delay(500);

   engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31547-1.htm');  <<< Not Working

   Delay(500);

   engine.dlgsel(1); // 1 index of button in this case it will press first button if works    <<< Not Working

   delay(1000);
Link to comment
Share on other sites

 

New problem with HS script. Server la2mega.net
I tried all ways from forums to click "I'm here to deliver some liqour"
 
79708551780253560676.jpg
 
Can you help me?
 
begin
   Engine.MoveTo(147528, -113249, -2128);
   Engine.MoveTo(147522, -113282, -2128);
   delay(1000);
   Engine.SetTarget(31547);                                    /////beolin
   Engine.DlgOpen;
   Engine.DlgSel('Quest');
   Delay(500);
   Engine.DlgSel('Specialty Liquor Delivery');
   Delay(500);
   Engine.DlgSel('I''m here to deliver some liquor');        <<< Not Working
   Delay(500);
   Engine.DlgSel('"I''m here to deliver some liquor"');       <<< Not Working
   Delay(500);
   engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31547-1.htm');  <<< Not Working
   Delay(500);
   engine.dlgsel(1); // 1 index of button in this case it will press first button if works    <<< Not Working
   delay(1000);

 

procedure getbypass;
var InpStr, TxtOut : string;
begin
  InpStr := engine.DlgText;
  TxtOut:= Copy(InpStr,pos('-h',InpStr),290) ;
  TxtOut:= Copy(TxtOut,4,pos('"',TxtOut)-4);
  engine.bypasstoserver(TxtOut);
end;

simple procedure to send bypass on last quest step, usage

 

procedure getbypass;
var InpStr, TxtOut : string;
begin
  InpStr := engine.DlgText;
  TxtOut:= Copy(InpStr,pos('-h',InpStr),290) ;
  TxtOut:= Copy(TxtOut,4,pos('"',TxtOut)-4);
  engine.bypasstoserver(TxtOut);
end;

begin
   Engine.SetTarget(31547);                                    /////beolin
   Engine.DlgOpen;
   Engine.DlgSel('Quest');
   Delay(500);
   Engine.DlgSel('Specialty Liquor Delivery');
   delay(1111);
   getbypass;
end.
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...