Private Server Fighter

[hogan]

I am trying to make a private server fighter but am completely lost;

All i want it to do is Attack something wait until it is dead and then pick up its 100% drop...

Edit:

Current script;

Problem;

doesnt do anything, only slowly moves mouse in a direction across the screen

program Yakkiller;

{$i SRL/SRL.scar}





var
x,y:Integer;

const
Monster = 2699326;
Monster1 = 2568773;
Monster2 = 3489360;
AttTime = 1500;
XpCounter = 65860;
BlueCharm = 344244;

Procedure AttackYak;
begin
if FindObjCustom(x, y, ['Yak', 'ak'], [monster, monster1, monster2], 7) then
begin
Mouse(x, y, 3, 3, True);
repeat
wait(500)
until
(FindColorSpiralTolerance(x, y, XpCounter, msx1, msy1, msx2, msy2, 25)) = false
end;
end;

Procedure Pickupdrop;
begin
if(FindColorSpiralTolerance(x, y, BlueCharm, MSX1, MSY1, MSX2, MSY2, 5))then
begin
Mouse(x, y, 5, 5, true); //If found will Left-Click on the x, y coordinates with a randomness between 5 pixelend
end;
end;

Begin
Repeat
AttackYak;
Pickupdrop;
until(false)
end.

[Failure]

And on what part you're exactly lost?

[hogan]

Just in general, i mean every time i try to make a script i get errors, but first off i am confused on how to say, Attack Yak, wait until dead, pickup 100% drop, if yak is already being attacked attack a different one

Remember it is a private server so default commands dont work

[Failure]

Attacking Yak would be easy... Wait till it dies, ehh I once found a good thing for itbut I forgot. Picking up the drop I think you're going for the Blue Charms if this is Soulsplit? You could use the Hit/Defence Splashes as a check if it's being attack or not.

[hogan]

Yupp that is the server aha

[hogan]

So this is what i have so far except it runs for like 1 second and quits and i still dont even know where to start for picking up a dropped item.

I want to use the xp counter number as it show the xp coming down as a check for being (in combat)

Remember its a private server

program Yakkiller;

{$i SRL/SRL.scar}
begin
SetUpSRL;
ActivateClient;
end.


var
x,y:Integer;

const
Monster = 2699326;
Monster1 = 2568773;
Monster2 = 3489360;
AttTime = 1500;
XpCounter = 65860;

Procedure Attack Yak;
if FindObjCustom(x, y, ['Yak', 'ak'], [monster, monster1, monster2], 7) then
begin
Mouse(x, y, 3, 3, True);
repeat
wait(500)
until
(FindColorSpiralTolerance(x, y, XpCounter, msx1, msy1, msx2, msy2, 25)) = false
end;
end;



begin
ClearDebug;
SetUpSrl;
ActivateClient;
repeat
Attack Yak;
until(false)
end.

[PatDuffy]

You have 2 mainloops. Either change the name of the first begin -end yoy be a procedure,then call it in your bottom loop. Or delete it and add that code into the bottom main segment.

[Mark]

For picking the item up just seartch for the color of the charm and use
mouse(x,y,0,0,true); to click it

And like what duffy said

Make a new
procedure main;
Begin
Repeat
Attackyak;
Pickupdrop;
Until(killed-so-many-yaks)
End;

and add you procedures so you have one main loop and don't forget to failsafe it so it doesn't keeps trying for eva when it can't find anything

[hogan]

I understand now that I had 2 loops but not really sure what you mean on where to add it, i tried just deleting all together but then i get errors for things that i know that there is nothing wrong with.

For eg.

telling me to add a ; where there already is one

[PatDuffy]

I understand now that I had 2 loops but not really sure what you mean on where to add it, i tried just deleting all together but then i get errors for things that i know that there is nothing wrong with.

For eg.

telling me to add a ; where there already is one

Usually in most programs when your coding, for error messages the actual error is sometimes on the line above or several lines above. For ; it's usually the line above.

[hogan]

Alright thanks Im going to post an updated version of what i have done here in a sec

Here it is, also up top:

program Yakkiller;

{$i SRL/SRL.scar}





var
x,y:Integer;

const
Monster = 2699326;
Monster1 = 2568773;
Monster2 = 3489360;
AttTime = 1500;
XpCounter = 65860;
BlueCharm = 344244;

Procedure AttackYak;
begin
if FindObjCustom(x, y, ['Yak', 'ak'], [monster, monster1, monster2], 7) then
begin
Mouse(x, y, 3, 3, True);
repeat
wait(500)
until
(FindColorSpiralTolerance(x, y, XpCounter, msx1, msy1, msx2, msy2, 25)) = false
end;
end;

Procedure Pickupdrop;
if(FindColorSpiralTolerance(x, y, BlueCharm, MSX1, MSY1, MSX2, MSY2, 5))then
begin
Mouse(x, y, 5, 5, true); //If found will Left-Click on the x, y coordinates with a randomness between 5 pixelend
end;

begin
ClearDebug;
SetUpSrl;
ActivateClient;
repeat
Begin
Repeat
AttackYak;
Pickupdrop;
end;
until(false)
end.

[Mark]

I will be on my computer shortly but I just noticed you have a space in your procedures name

Procedure Attack Yak;

And it should be

Procedure AttackYak;

[hogan]

thanks again for the help dude. And alright i see that now, ill try again

edit:
found a couple more errors posted most recent up top

[Mark]

here you go buddy compare mine to yours.
I have shown you where the main procedure would go
in you pickupdrop procedure you tried to find the color before you called the begining of the script :D anyway i hope i helped let me know if you have any more problems

program Yakkiller;

{$i SRL/SRL.scar}

var
x,y:Integer;

const
Monster = 2699326;
Monster1 = 2568773;
Monster2 = 3489360;
AttTime = 1500;
XpCounter = 65860;
BlueCharm = 344244;

Procedure AttackYak;
begin
if FindObjCustom(x, y, ['Yak', 'ak'], [monster, monster1, monster2], 7) then
begin
Mouse(x, y, 3, 3, True);
repeat
wait(500)
until
(FindColorSpiralTolerance(x, y, XpCounter, msx1, msy1, msx2, msy2, 25)) = false
end;
end;

Procedure Pickupdrop;
begin
if(FindColorSpiralTolerance(x, y, BlueCharm, MSX1, MSY1, MSX2, MSY2, 5))then
begin
Mouse(x, y, 5, 5, true); //If found will Left-Click on the x, y coordinates with a randomness between 5 pixelend
end;
end;

procedure main;
begin
repeat
AttackYak;
Pickupdrop;
until(false)
end;

begin
ClearDebug;
SetUpSrl;
ActivateClient;
main;
end.

[Failure]

Also can I say, the FindObj wont work due the font? :o

[hogan]

is there any way to change the font?

[Mark]

Try finding out what version the server is running and post asking if anybody knows
I don't have a clue myself

[hogan]

It is a 317 server, the one thing im wonder is if it is possible to check for combat using the hp bars in a certain area, like your character is in combat if there is 2hp bars right at the center of the screen basically