PDA

View Full Version : First SoulSplit Dungeoneering bot.



Marc000z
10-05-2012, 09:08 PM
Fahk it, I'll just release it. Keep in mind there's still a bit of work to do regarding failsafes (Missclicks, delays, etc), but it does work for at least 10 consecutive runs.

PS. Number of lines was 152. ^^


program Dungeoneering;
{$i srl/srl.simba}

Const
LogCol = 7330283;
LobyCol = 1052691;
DMast = 3359857;
Door = 3632504;
NPC = 56797;

var
x, y, w, h: integer;

procedure Getclient;
begin
Movemouse(640, 185);
wait(1000);
Clickmouse(640, 185, mouse_Left);
wait(300);
end;

procedure Login;
begin
SetUpSRL
mousespeed := 20;
GetClientDimensions(w, h);
if FindColor(x, y, LogCol, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Logging in.');
wait(7000)
end;
end;

procedure camup;
begin
Keydown(38);
Wait(4000);
keyup(38);
end;

procedure lobby;
begin
GetClientDimensions(w, h);
if FindColor(x, y, LobyCol, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Leaving lobby.');
wait(7000)
end else
Keydown(37);
Wait(2000);
Keyup(37);
wait(200);
begin
GetClientDimensions(w, h);
if FindColor(x, y, LobyCol, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Leaving lobby.');
wait(7000)
end
end;
end;

procedure Dungmast;
begin
GetClientDimensions(w, h);
if FindColor(x, y, Dmast, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Getting new dungeon.');
wait(4000)
end;
end;

procedure Talk;
begin
Movemouse(250, 380);
wait(1000);
ClickMouse(250, 380, mouse_Left);
Wait(4000);
MoveMouse(260, 365);
wait(1000);
Clickmouse(260, 365, mouse_left);
Wait(10000);
Movemouse(610, 180);
Wait(200);
Clickmouse(610, 180, mouse_left);
end;

procedure Opdo;
begin
SetUpSRL
mousespeed := 20;
Keydown(37);
Wait(1800);
Keyup(37);
Keydown(40);
Wait(2000);
Keyup(40);
GetClientDimensions(w, h);
if FindColor(x, y, Door, 0, 0, w-1, h-1)then
begin
Mouse(x, y, 0, 0, True);
Writeln('Going for door.');
wait(7000);
end;
end;

procedure fightnpc;
begin
GetClientDimensions(w, h);
if FindColor(x, y, NPC, 0, 0, w-1, h-1)then
begin
Wait(2000);
Mouse(x, y, 0, 0, True);
Writeln('Going to NPCs.');
wait(10000);
Movemouse(600, 200);
wait(10000);
Clickmouse(600, 200, mouse_left);
Wait(10000);
Clickmouse(600, 200, mouse_left);
Wait(10000);
end;
end;

procedure endgame;
begin
GetClientDimensions(w, h);
Movemouse(612, 385)
wait(10000);
clickmouse(612, 385, mouse_Left);
Wait(5000);
end;


begin
repeat
Cleardebug;
Getclient;
Login;
camup;
lobby;
Dungmast;
Talk;
OpDo;
fightnpc;
endgame;
until false
end.

http://www.youtube.com/watch?v=Jz7l0pRSPzc

Neznam
10-05-2012, 09:17 PM
For a private server?

The Killer
10-05-2012, 09:25 PM
100 lines ;0

Silentcore
10-05-2012, 09:59 PM
150-200 lines...

Marc000z
10-06-2012, 12:29 AM
Yes, this is for the Soulsplit private server (#1 on RuneLocus).

It's not 100. Please guess a number, saying "between x and y" doesn't count. ;p

John
10-06-2012, 12:38 AM
We are an open source community, If you are not releasing it then you must be either selling it or keeping it private. Selling is against our rules here so please keep it to yourself if you don't want to release it to the public.

Kerk
10-06-2012, 12:40 AM
I didn't think this was possibly, 421 is my guess.

Silentcore
10-06-2012, 12:43 AM
X+y: 325.

Kerk
10-06-2012, 12:53 AM
are we allowed to guess multiple times?

Marc000z
10-06-2012, 01:20 AM
I didn't think this was possibly, 421 is my guess.

Nope. Pretty far from the original value, actually. :P


X+y: 325.

Touche..


are we allowed to guess multiple times?

Sure.


We are an open source community, If you are not releasing it then you must be either selling it or keeping it private. Selling is against our rules here so please keep it to yourself if you don't want to release it to the public.

I will eventually release it, but I've still got some fine tuning to do (a.k.a failsafes).

Until then I'll just give away a "Beta" stage version.

Kerk
10-06-2012, 02:18 AM
240, it has to be

John
10-06-2012, 04:49 AM
Nope. Pretty far from the original value, actually. :P



Touche..



Sure.



I will eventually release it, but I've still got some fine tuning to do (a.k.a failsafes).

Until then I'll just give away a "Beta" stage version.
Why don't you just leave it on the thread? What harm could that do?

Snowflak
10-06-2012, 06:22 AM
227?

deffailed
10-06-2012, 09:20 AM
150

The Killer
10-06-2012, 09:48 AM
99999999999999999999999999999999999999999999999999 99999999999999999999999999999999999999999999999999 99999999999999999999999999999999999999999999999999 99999999999999999999999999999999999999999999999999 99999999999999999999999999999999999999999999999999 99999999999999999999999999999999999999999999999999 99999? ;)

riwu
10-06-2012, 10:00 AM
are we allowed to guess multiple times?


Sure.


I win:
program new;
var
i,t: Integer;
begin
for i:=0 to MaxInt do
begin
writeln('Your script contains ' + ToStr(i) + ' lines.');
writeln('Press F1 if the answer is right');
t:=GetSystemTime+2000;
while t>GetSystemTime do
if IsKeyDown(VK_F1) then
Exit;
end;
end.

Anyway i believe the same rule applies here: http://villavu.com/forum/showthread.php?t=82737

Go to NOTA if you want to play guessing games :garfield:

Marc000z
10-06-2012, 02:16 PM
Edited original post. Script is now avalible.

litoris
10-06-2012, 02:54 PM
Considering the length of the script it seems like dungeoneering is pretty shitty on that server. I tried that server before, everything seemed too easy, even to bot.

Marc000z
10-06-2012, 03:12 PM
If you watch the video, you'll see it doesn't finish the whole dungeon. You may even go as far as to say this is a 'lite' version of the script. All it does is kill 2 NPCs and leaves, gaining 12k XP.

I'm working on a level 70 floor now, which gets you 112k XP, and lasts about 5-6 minutes per run.

rj
10-22-2012, 10:32 PM
Does not look stable.

Marc000z
01-16-2013, 01:44 AM
My original script was kinda half assed and pretty amateurish.

I'm remaking it, except this time it'll be for the lvl 70 floors. x)

names eric
01-16-2013, 02:26 AM
Marc000z your awesome i hope you make the lvl 70 dung bot and maybe add the glitch if possible ( i doubt it would be possible) but keep up the good work :)

pinhead pete
02-08-2013, 11:18 PM
this sucks balls, it doesnt even click on the first door -.- on easy floors. in a nutshell, this fails hardcore.

rj
02-08-2013, 11:28 PM
this sucks balls, it doesnt even click on the first door -.- on easy floors. in a nutshell, this fails hardcore.

Doubt the author would be updating this.

pinhead pete
02-11-2013, 06:20 AM
its true, however this doesnt go the same for you, yours actually scripts work but their simple, id like so to see you remake this, one with fail safes...
You don't know me i dont have to post scripts to be able to make scripts, i dont have to, i can remain anonymous and still be a better script writer than youll ever be.

Ian
02-11-2013, 07:18 AM
its true, however this doesnt go the same for you, yours actually scripts work but their simple, id like so to see you remake this, one with fail safes...
You don't know me i dont have to post scripts to be able to make scripts, i dont have to, i can remain anonymous and still be a better script writer than youll ever be.

Although this script is very basic, what you said was useless because you didn't say how it could be improved or give detailed feedback on how it didn't work. And although postcount does not equal scripting ability, most people who can script will not have a post like yours.

You're right we don't know you, but statistically you're probably a leecher.

rj
02-19-2013, 01:56 AM
its true, however this doesnt go the same for you, yours actually scripts work but their simple, id like so to see you remake this, one with fail safes...
You don't know me i dont have to post scripts to be able to make scripts, i dont have to, i can remain anonymous and still be a better script writer than youll ever be.

First of all, I actually play soulsplit so I don't write scripts for it.. second off your not any better not because your new, because I can tell, you have no released scripts and don't contribute.

Marc000z
02-19-2013, 04:53 PM
It's alright, I completely agree with him. This script does fail hardcore. ^^

I've been VERY busy in real life, so I have no idea when I'll be updating/remaking this. But if anyone would like to have a go at it, go nuts! :)