Hello, i am looking for a script which can train on rock crabs with antirandom, and antiban support
i know, it's hard cause rock crabs, and ground have the same colour
i am even willing to pay rs cash for the script
Thanks in advance
Hello, i am looking for a script which can train on rock crabs with antirandom, and antiban support
i know, it's hard cause rock crabs, and ground have the same colour
i am even willing to pay rs cash for the script
Thanks in advance
I have one.. But if ur high enough defence you can run 5+ hours.. i think
I havent tested with the current SRL rev... But with a small edit u might get it to work
SCAR Code:Program CrabFinder;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Fighting.Scar}
Label
Kill;
Var
AttackRock, Couldnt: Integer;
Const
CrabColor = 5137251;
ArrowColor = 857196;
Procedure DeclarePlayers;
Begin
CurrentPlayer:= 0;
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
End;
Function WaitR(Time : Integer) : Boolean;
Var Time1: Integer;
Begin
Marktime(time1)
Repeat
Wait(50);
If(FindTalk)Then
Result := True;
Until(result)or(TimeFromMark(Time1)>Time);
End;
Function FindFastRandoms: Boolean; //by WT-Fakawi
var
i: Integer;
begin
for i:=1 to 8 do
begin
case I of
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: If FindDemon then
Result := True;
7: if NoGameTab then
begin
Result := True;
Logout;
Exit;
end;
8: FindTalk;
end;
end;
end;
Procedure Setup;
Begin
ClearDeBug;
Writeln('Successfully compiled');
SetupSRL;
AttackRock := BitmapFromString(79, 13, 'beNrtlUsOgCAMBbn/pX' +
'UliZQ3qS0aVBoXpoJ0+nmU8k/bDnvgFFxweqKn0N4aQxOMjS2ZECe' +
'sJ+YYLAAu2A/ANmY/KY9ywnagrnHagNUsWz/+JFVZtb6Lo9LiJHJW' +
'HyQu38bQFVc1fyzs8Jm9o7KWYpLKBmA9Mxt49w0+3a0gR9zGLFA6G' +
'xIkIFAZSV/2GtsBzoK0aA==');
MouseSpeed:= 18;
DeclarePlayers;
ActivateClient;
Wait(1000);
If(Not Loggedin)Then LoginPlayer;
FindFastRandoms
End;
Function FindCrab: Boolean;
Var
CrabTPA: TPointArray;
I, Cx, Cy: Integer;
Begin
If(Not loggedin)Then Exit;
Cx := MSCX; Cy:= MSCY;
FindColorsSpiralTolerance(Cx, Cy, CrabTPA, CrabColor, MSX1, MSY1, MSX2, MSY2, 2);
For I:= 0 To GetArrayLength(CrabTPA)-1 Do
Begin
Cx := CrabTPA[I].X;
Cy := CrabTPA[I].Y;
MMouse(Cx, Cy, 0, 0);
WaitR(100+Random(100));
If(IsUpText('/'))Or(IsUpText('more'))Then
Begin
Mouse(Cx, Cy, 0, 0, False);
If(FindBitmap(AttackRock, Cx, Cy))Then
Begin
Mouse(Cx, Cy, 3, 10, True);
Flag;
Result:= true;
WaitR(1000+Random(1000));
Exit;
End Else
If(ChooseOption('Walk here'))Then
Begin
Result:= True;
Flag;
WaitR(1000+Random(1000));
Exit;
End;
End;
End;
End;
Function EquipArrows: Boolean;
Var
X, Y, I: Integer;
ItemTP: TPoint;
Begin
GameTab(4);
For I:= 1 To 28 Do
Begin
ItemTP:= ItemCoords(I);
If(FindColor(X, Y, ArrowColor, ItemTP.X-10, ItemTP.Y-10, ItemTP.X+10, ItemTP.Y+10))Then
Begin
MMouse(ItemTP.X+Random(10)-Random(10), ItemTP.Y+Random(10)-Random(10), 0, 0);
WaitR(10);
GetMousePos(X, Y);
If(IsUpText('ron'))Then
Begin
Result:= True;
Mouse(X, Y, 0, 0, True);
Exit; //Exit the proc....
End;
End;
End;
End;
Function PickUpArrows: Boolean;
Var
DX, DY, ERR, Iron, Bron: Integer;
Begin
If(Not Loggedin)Then Exit;
Repeat
If(FindColorSpiralTolerance(Dx, Dy, ArrowColor, MSCX-100, MSCY-100, MSCX+100, MSCY+100, 1))Then
Begin
MMouse(Dx, Dy, 1, 1);
WaitR(25);
If(IsUpText('rrow'))Then
Begin
Mouse(Dx, Dy, 0, 0, True);
Flag;
WaitR(400+random(500));
Result := True;
End Else
Begin
Iron := BitmapFromString2(False, 'aFCF9278DAED98DB0E83200C8' +
'65FA92207BD5CDC78FF475ABB5D9291425BA7497BF147018BC58F' +
'960800F0D850201D286B7DA1E695AEF3124821A2868D347DC6A49' +
'AA99D3A213E77D4B2D34D499534A2872516BA0EF9A80C8329937B' +
'18996BC76568D5EDBFA6CBC09944B55CB939514E9413E544B9C91' +
'9E09FB5DA5EFEF8391A7F11C53F65C947CEF1ACFB86D6F18EACFC' +
'1821FC765DCF72A2E69EE5F81CE54A6BDE33E3D522AACF0987A8D' +
'1DC684194C59795575E7EC693C4A21B17671F5D21475957BDAB11' +
'65E1DF3ADE11FEAD88D2CD454ED41588E25458BBAA27C9691CD2F' +
'AFB85FF95E527D5BB54BDB93FC3FDD5F8DA1BFC7');
Bron := BitmapFromString2(False, 'a6F39B78DAED57410EC42008F' +
'C12B6E2D6E3A6A9FF7FD28AD74D1304D4EE060ED344A768C874A0' +
'0000EFA302E05961CF84696F1836428815B783101B074BA275DA8' +
'4D81EAFDC100B61BC0002868BDE4A67610488429FA1FFC45C8B71' +
'871E4F085B55ACD51867DDC335E61A738DB9C63C46A8823FB37DE' +
'FF2F9327DF6CE63339932BEFE3EB28AC9983C4E9F66F8EBB699AD' +
'7CACB7B69A9C7C25D8DE6755ADEE39721FE368ACD73F676A6C744' +
'ECD59E3E601BE7FDADD7FBD8F59F5CADFD298CCE534BD72DD3732' +
'4A63B67EF54F1AB3EA714FAED59C5EA9F13D59AFD4CC5A56B3B16' +
'CCE19F167B1B6577E00E97');
Mouse(Dx, Dy ,0, 0, False);
If(FindBitMap(Iron, Dx, Dy))Or
(FindBitMap(Bron, Dx, Dy))Then
Begin
Mouse(Dx, Dy, 10, 3, True);
Flag;
WaitR(400+random(300));
End Else
Begin
ChooseOption('ance');
ERR:= ERR + 1;
End;
FreeBitMap(Iron);
FreeBitMap(Bron);
End;
End;
FindFastRandoms;
Until(Not Loggedin)Or(ERR > 3)Or(Not FindColorSpiralTolerance(Dx, Dy, ArrowColor, MSCX-100, MSCY-100, MSCX+100, MSCY+100, 1))
If(Not EquipArrows)Then
Begin
GameTab(5);
WaitR(400+Random(500));
If(Not FindColor(DX, DY, ArrowColor, MIX1, MIY1, MIX2, MIY2))Then
Logout;
End;
End;
Procedure WalkToSymbolAndBack;
Var
I, X, Y, A: Integer;
Begin
If(Not Loggedin)Then Exit;
WaterColor := FindWaterColor;
X:= MMCX; Y:= MMCY;
If(FindColorSpiral(X, Y, WaterColor, 560, 7, MMCX+30, MMCY+30))Then
Begin
Mouse(X, Y, 0, 0, True);
Flag;
Repeat
If(WaterWalk(290, 255, 50, 10, 0, 10, 0, 0))Then
A := A + 1
Else If(A > 10)Then Logout;
FindFastRandoms;
If(not Loggedin)Then Exit;
Until(FindSymbol(X, Y, 'fish'));
Mouse(X, Y, 0, 0, True);
Flag;
Wait(1000+Random(1000));
For I:= 0 To A Do
Begin
Mouse(699-A*5, 87, 10+Random(A*5)-Random(A*5), 10+Random(A*5)-Random(A*5), True);
Flag;
End;
X:= MMCX; Y:= MMCY;
If(FindColorSpiral(X, Y, WaterColor, 560, 7, MMCX, MMCY))Then
Begin
Mouse(X, Y, 0, 0, True);
Flag;
End Else Logout;
Writeln('Did a Walk away from rock crabs');
End Else Logout;
End;
Begin
Setup;
Kill:
FindFastRandoms;
If(Not Loggedin)Then TerminateScript;
If(FindCrab)Then
Begin
If(InFight)Then
Begin
Repeat
If(Random(5)>3)Then
SleepAndMoveMouse(400+Random(500))
Else WaitR(400+Random(500));
FindNormalRandoms;
Until(Not InFight);
Couldnt := 0;
FindFastRandoms
//PickUpArrows;
End;
End Else Begin Wait(1000+Random(200)); If(Couldnt > 20)Then Logout; End;
Couldnt := Couldnt + 1;
If(Couldnt > 10)Then
WalkToSymbolAndBack;
Goto Kill;
End.
When the rock crabs are not attacking you anymore it tries to walk to the bridge and back but u might have to edit that part a bit.
Code:
- Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
- Solarwind: Dude, you are like... t3h s3x.
- Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
- benjaa: woah.... Jukka is the man Guildminer pwns all
- NaumanAkhlaQ: And JuKKa Is my Her0!
A monster of the worst sort! They see you, then BAM! Before you know it, you've been vaporized by their laser eyes.
Actually, they're just little wannabe rocks. P2P.
Interested in C# and Electrical Engineering? This might interest you.
[QUOTE=JuKKa;261023]I have one.. But if ur high enough defence you can run 5+ hours.. QUOTE]
I tested the script. It only attacks the rock crabs insight. It even goes for the ones on the hobgoblin side. so yeah, that means you do need high defence to auto-retaliate the hobs.
There are currently 1 users browsing this thread. (0 members and 1 guests)