Simba Code:
program SoulSplitFighter;
{$i srl/srl.simba}
var
x, y, killed, HpBar, killedhour, Monstercolor1, Monstercolor2, Monstercolor3, Monstercolor4, Monstercolor5, Monstercolor6, Monstercolor7:Integer;
// -Instructions-
// --------------
// 1. Drag target onto SS client.
// 2. Set screen to desired settings I posted on the thread.
// 3. Go to a training spot where you are ALONE.
// 4. Pick monster colors and input them at lines 43-49.
// 5. Post any bugs or suggestions on the thread.
// 6. Enjoy :)
//
// -NOTES-
// --------------
// - ONLY works on SoulSplit
// - Not every monster has been tested, so pick good colors.
// - Eating/prayer is unsupported, so [$]Extreme is recommended.
// - !BE ALONE AT YOUR TRAINING SPOT!
// - Baby sit for a few minutes to make sure your colors work well.
Procedure Proggy;
Begin
ClearDebug;
killedhour := round((killed)/(gettimerunning/3600000.0));
Writeln('************Korys SoulSplit Auto Fighter************')
writeln(' Time Running: '+ MsToTime(GetTimeRunning,3))
writeln(' Monsters Killed: ' + inttostr(killed))
writeln(' Monsters Killed Per Hour: ' + inttostr(killedhour))
Writeln('****************************************************')
End;
Procedure BeginFight;
Begin
MonsterColor1 := 4482363 //Pick a bunch of colors
MonsterColor2 := 2504737 //unique to the monster!
MonsterColor3 := 5278054
MonsterColor4 := 3293251
MonsterColor5 := 6795138
MonsterColor6 := 4152631
MonsterColor7 := 5475175
if FindColorSpiralTolerance(x, y, MonsterColor1, 5, 5, 512, 340, 3) or
FindColorSpiralTolerance(x, y, MonsterColor2, 5, 5, 512, 340, 3) or
FindColorSpiralTolerance(x, y, MonsterColor3, 5, 5, 512, 340, 3) or
FindColorSpiralTolerance(x, y, MonsterColor4, 5, 5, 512, 340, 3) or
FindColorSpiralTolerance(x, y, MonsterColor5, 5, 5, 512, 340, 3) or
FindColorSpiralTolerance(x, y, MonsterColor6, 5, 5, 512, 340, 3) or
FindColorSpiralTolerance(x, y, MonsterColor7, 5, 5, 512, 340, 3) then
Begin
mmouse(x, y,1,1);
Wait(100);
MoveMouse(x, y);
Wait(20);
ClickMouse(x, y, 1);
Wait(5000);
End;
End;
procedure loadbmp;
begin
writeln('loading Bitmaps....')
HpBar := BitmapFromString(30, 5, 'meJxjYPjPMIqGMgIAEOSVaw==');
writeln('Bitmaps loaded!')
end;
procedure free;
begin
freebitmap(HpBar);
end;
function Fighting: boolean;
begin
if findcolor(x, y, 255, 5, 5, 512, 340) then
begin
result := true
end
else
begin
result := false
end;
end;
Procedure InCombat;
Begin
if (not Fighting) then
Begin
BeginFight
End;
End;
procedure SearchForHP;
var found: boolean;
begin
InCombat
repeat
FindBitmapToleranceIn(HpBar, x, y, 0, 0, 512, 340, 5);
found := FindBitmapToleranceIn(HpBar, X, Y, 0, 0, 512, 340, 5)
until(found)
IncEx(Killed, 1);
Proggy
Wait(4000)
BeginFight;
Wait(5000);
End;
begin
MouseSpeed := 25;
loadbmp
repeat
SearchForHP
until(false)
end.