PDA

View Full Version : SoulSplit Fighter?



Hexless V2
01-03-2014, 11:48 AM
If anyone would be able to make a soulsplit fighter it doesn't need to be anything fancy
Just something that would click on the NPC wait until its dead then repeat!
Would be great!

Hoodz
01-03-2014, 11:58 AM
doesnt this work anymore? http://villavu.com/forum/showthread.php?t=105121

Hexless V2
01-03-2014, 05:29 PM
doesnt this work anymore? http://villavu.com/forum/showthread.php?t=105121
Oh it does only that it seems to keep trying to attack other monkey zombies when its already in combat, how would i make it wait longer or something?

Hoodz
01-04-2014, 06:42 PM
maybe there is something wrong?
but idk i dont know anything about it :(

procedure Isinfight;
begin
if findcolortolerance(x, y, 65280, 284, 89, 440, 220, 1) then
begin
if finddtm(redbar, x, y, 222, 64, 516, 256) then
begin
inc(addproggy);
sleep(1200)
fighting;
end
else
begin
sleep(100)
end
end
else
begin
fighting;
end
end;
Their shit developers keep changing the client size. Ss is doomed anyways

Hoodz
01-04-2014, 07:57 PM
Oh it does only that it seems to keep trying to attack other monkey zombies when its already in combat, how would i make it wait longer or something?


mhm what can i do now, ss is a decent rsps with many players, its cool :) but cant find a good fighter script, and yours is great, but idk what to do now

updated the script, its slower now but it should work. if you know how to use aca you can change it to another monster.


program SSPowerFighter;
{$I srl/srl.simba}

var
x, y, count: integer;

const
USERNAME = '';
PASSWORD = '';

function IsLoggedIn: Boolean;
begin
if FindColorTolerance(x, y, 1448008, 494, 451, 611, 522, 15) then
Result := True
end;

procedure LoggingIn;
begin
Wait(200);
MoveMouse(659, 313);
WriteLn('entering username');
Wait(200);
ClickMouse2(Mouse_Left);
Count := 0;
repeat
Inc(Count);
PressKey(VK_Back);
until Count > 25;
Wait(250);
SendKeys(USERNAME, 0, 0);
Wait(1000);
WriteLn('entering password');
MoveMouse(665, 365);
Wait(200);
ClickMouse2(Mouse_Left);
Wait(200);
count := 0;
repeat
PressKey(VK_Back);
Inc(Count);
until Count > 25 SendKeys(PASSWORD, 50, 25);
WriteLn('logging in');
Wait(1000);
MoveMouse(576, 396);
Wait(1000);
ClickMouse2(Mouse_Left);
Wait(8000);
Writeln('logged in! (?)')
end;

procedure SetMeUp;
begin
WriteLn('setting up....');
WriteLn('putting angle right....');
Sleep(5000) Count := 0
repeat
Inc(Count);
PressKey(38);
until Count > 25;
Sleep(1000);
WriteLn('completed!');
WriteLn('open inventory....');
MoveMouse(747, 172);
Sleep(200);
ClickMouse2(Mouse_Left);
Sleep(1000);
WriteLn('completed!');
WriteLn('set up completed!');
end;

procedure Fighting;
var
TPAA: T2DPointArray;
TPA: TPointArray;
CTS, I: Integer;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
setcolorspeed2modifiers(0.05, 0.13);
FindColorsSpiralTolerance(360, 360, TPA, 3691313, 21, 72, 508, 377, 7);
ColorToleranceSpeed(CTS);
TPAA := TPAToATPAEx(TPA, 3, 1);
SortATPASize(TPAA, True);
for I := 0 to High(TPAA) do
if GetArraylength(TPAA[i]) > 2 then
begin
MiddleTPAEx(TPAA[i], x, y);
MMouse(X, Y, 3, 3);
Sleep(140);
ClickMouse2(Mouse_Right);
Sleep(180); MoveMouse(x, y + 60);
ClickMouse2(Mouse_Left);
Sleep(3500);
Exit;
end
else
begin
Exit;
end;
end;

procedure IsInFight;
begin
if (not FindColorTolerance(x, y, 64768, 202, 158, 318, 273, 15)) then
begin
Fighting;
end
else
begin
Sleep(100 + Random(40));
end;
end;

procedure Proggy;
begin
ClearDebug;
WriteLn('Time Running: ' + MsToTime(GetTimeRunning, 3));
end;

begin
WriteLn('SS PowerFighter by Hoodz V2');
MouseSpeed := 20;
repeat
if (not IsLoggedIn) then
begin
LoggingIn;
SetMeUp;
end;
if (IsLoggedIn) then
begin
IsInFight;
Proggy;
end;
until (False);
end.

Hoodz
01-04-2014, 08:34 PM
thanks for editing but it only trys to logging in now:

Compiled successfully in 686 ms.
SS PowerFighter by Hoodz V2
entering username
entering password
logging in
logged in! (?)
setting up....
putting angle right....
completed!
open inventory....
completed!
set up completed!
entering username
entering password
logging in
logged in! (?)
setting up....
putting angle right....
completed!
open inventory....
completed!
set up completed!
entering username
entering password
logging in
Successfully executed.
Compiled successfully in 670 ms.
SS PowerFighter by Hoodz V2
entering username


then i tried when i was logged in, but then it just tried to logged in all times
when i tried when i was logged out, it doesnt clicked the place for username it clicked anywhere
are you on oldschool mode?

Hoodz
01-04-2014, 08:39 PM
im on 562 mode
gameframe 525 and on OldSchool mode.

http://img822.imageshack.us/img822/525/qsq2.png

Hoodz
01-04-2014, 09:15 PM
thanks for help, but it still not working, cant you just do it then it doesnt trys to login? i can login myself just want it work :/

program SSPowerFighter;
{$I srl/srl.simba}

var
x, y, count: integer;

const
USERNAME = '';
PASSWORD = '';

function IsLoggedIn: Boolean;
begin
Result := True
end;

procedure LoggingIn;
begin
Wait(200);
MoveMouse(659, 313);
WriteLn('entering username');
Wait(200);
ClickMouse2(Mouse_Left);
Count := 0;
repeat
Inc(Count);
PressKey(VK_Back);
until Count > 25;
Wait(250);
SendKeys(USERNAME, 0, 0);
Wait(1000);
WriteLn('entering password');
MoveMouse(665, 365);
Wait(200);
ClickMouse2(Mouse_Left);
Wait(200);
count := 0;
repeat
PressKey(VK_Back);
Inc(Count);
until Count > 25 SendKeys(PASSWORD, 50, 25);
WriteLn('logging in');
Wait(1000);
MoveMouse(576, 396);
Wait(1000);
ClickMouse2(Mouse_Left);
Wait(8000);
Writeln('logged in! (?)')
end;

procedure SetMeUp;
begin
WriteLn('setting up....');
WriteLn('putting angle right....');
Sleep(5000) Count := 0
repeat
Inc(Count);
PressKey(38);
until Count > 25;
Sleep(1000);
WriteLn('completed!');
WriteLn('open inventory....');
MoveMouse(747, 172);
Sleep(200);
ClickMouse2(Mouse_Left);
Sleep(1000);
WriteLn('completed!');
WriteLn('set up completed!');
end;

procedure Fighting;
var
TPAA: T2DPointArray;
TPA: TPointArray;
CTS, I: Integer;
begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
setcolorspeed2modifiers(0.05, 0.13);
FindColorsSpiralTolerance(360, 360, TPA, 3691313, 21, 72, 508, 377, 7);
ColorToleranceSpeed(CTS);
TPAA := TPAToATPAEx(TPA, 3, 1);
SortATPASize(TPAA, True);
for I := 0 to High(TPAA) do
if GetArraylength(TPAA[i]) > 2 then
begin
MiddleTPAEx(TPAA[i], x, y);
MMouse(X, Y, 3, 3);
Sleep(140);
ClickMouse2(Mouse_Right);
Sleep(180); MoveMouse(x, y + 60);
ClickMouse2(Mouse_Left);
Sleep(3500);
Exit;
end
else
begin
Exit;
end;
end;

procedure IsInFight;
begin
if (not FindColorTolerance(x, y, 64768, 202, 158, 318, 273, 15)) then
begin
Fighting;
end
else
begin
Sleep(100 + Random(40));
end;
end;

procedure Proggy;
begin
ClearDebug;
WriteLn('Time Running: ' + MsToTime(GetTimeRunning, 3));
end;

begin
WriteLn('SS PowerFighter by Hoodz V2');
MouseSpeed := 20;
repeat
if (not IsLoggedIn) then
begin
LoggingIn;
SetMeUp;
end;
if (IsLoggedIn) then
begin
IsInFight;
Proggy;
end;
until (False);
end.

Hoodz
01-04-2014, 09:42 PM
thank you works perfect! atking another monkey while the other falls down, so fast nice :)

keep an eye on it, its not flawless :p .

Hexless V2
01-05-2014, 12:05 AM
keep an eye on it, its not flawless :p .

Do you know anyway to get SMART to load soulsplit?

trashcan
01-19-2014, 07:27 AM
how do i fix this
"Exception in Script: File "srl/srl.simba" not found at line 2, column 5"

koryperson
01-19-2014, 07:42 AM
how do i fix this
"Exception in Script: File "srl/srl.simba" not found at line 2, column 5"

Download SRL.

trashcan
01-19-2014, 08:00 AM
"Exception in Script: Duplicate declaration "IsLoggedIn" at line 11, column 29"
now i get this....