Saytan Posted February 22, 2017 Share Posted February 22, 2017 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 Quote Link to comment Share on other sites More sharing options...
adr.bot Posted February 22, 2017 Share Posted February 22, 2017 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! Quote Link to comment Share on other sites More sharing options...
Saytan Posted February 22, 2017 Author Share Posted February 22, 2017 It works!! begin Thank you! =) end. Quote Link to comment Share on other sites More sharing options...
Saytan Posted February 23, 2017 Author Share Posted February 23, 2017 New problem with HS script. Server la2mega.net I tried all ways from forums to click "I'm here to deliver some liqour" 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); Quote Link to comment Share on other sites More sharing options...
adr.bot Posted February 23, 2017 Share Posted February 23, 2017 New problem with HS script. Server la2mega.net I tried all ways from forums to click "I'm here to deliver some liqour" 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.