SRL Archive - Script Requests

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!

doesnt this work anymore? http://villavu.com/forum/showthread.php?t=105121

From: hoodz
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?

From: Spiritkid
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

From: Hexless V2
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?

From: Spiritkid
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.

From: Spiritkid
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?

From: Spiritkid
im on 562 mode

gameframe 525 and on OldSchool mode.

From: Spiritkid
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.

From: Spiritkid
thank you works perfect! atking another monkey while the other falls down, so fast nice :)

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

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

Do you know anyway to get SMART to load soulsplit?

how do i fix this
"Exception in Script: File "srl/srl.simba" not found at line 2, column 5"

From: trashcan
how do i fix this
"Exception in Script: File "srl/srl.simba" not found at line 2, column 5"

Download SRL.

"Exception in Script: Duplicate declaration "IsLoggedIn" at line 11, column 29"
now i get this….