koryperson
2013-11-30 04:24:11
—————————————-
Kory's SS Auto Fighter
—————————————-
An incredibly simple SS auto fighter!
-Features-
-Checks for combat every 5 seconds-
-Neat and clean progress report-
-Reports time running, monsters killed, and monsters killed/hr-
-Easy to use!-
————-
Instructions
————-
Set your settings to this first
[ATTACH=CONFIG]22444[/ATTACH]
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 :)
Post progress reports or bugs below![/COLOR
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. [ATTACH]22445[/ATTACH]
Decent Proggy :)
************Korys SoulSplit Auto Fighter************
Time Running: 01:00:09
Monsters Killed: 183
Monsters Killed Per Hour: 183
****************************************************Another Proggy
************Korys SoulSplit Auto Fighter************
Time Running: 02:34:35
Monsters Killed: 446
Monsters Killed Per Hour: 173
****************************************************