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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
×
  • Create New...