Sll
2007-03-20 07:05:27
So rs just got updated and now there's a switch world button, so will scripts be using world switching now, should be less chances of gettin banned if they do?
2007-03-20 07:05:27
2007-03-20 07:42:16
2007-03-20 08:52:45
From: Ash2412
So rs just got updated and now there's a switch world button, so will scripts be using world switching now, should be less chances of gettin banned if they do?
2007-03-20 10:02:59
2007-03-20 10:18:58
program New;
{.include SRL.scar}
procedure WorldButtonCoordinates(WorldPlace: Integer; var WorldCoord1, WorldCoord2: TPoint);
var
World_Column, World_Row, Count, tmpWorldPlace: Integer;
begin
if(WorldPlace <= 20)then
begin
World_Column := 0;
World_Row := WorldPlace - 1;
end else
begin
repeat;
Count := Count + 1;
tmpWorldPlace := WorldPlace - (Count * 20);
until(tmpWorldPlace <= 20);
World_Column := Count;
World_Row := tmpWorldPlace - 1;
end;
//Writeln('Column = ' + IntToStr(World_Column) + ' Row = ' + IntToStr(World_Row));
WorldCoord1.x := 59 + (World_Column * 93);
WorldCoord1.y := 35 + (World_Row * 23);
WorldCoord2.x := WorldCoord1.x + 87;
WorldCoord2.y := WorldCoord1.y + 18;
end;
procedure ChangeWorld(WorldPlace: Integer; F2P, QuietServer: Boolean);
var
tmpMask: Integer;
WorldCoord1, WorldCoord2: TPoint;
begin
tmpMask := CreateBitmapMaskFromText('orld', upchars);
if (FindBitmapMaskTolerance(tmpMask, x, y, 0, 461, 106, 501, 10, 50))then
begin
MouseBox(19, 471, 93, 491, 1);
Wait(200 + Random(200));
if(QuietServer)then
begin
Mouse(411, 12, 3, 3, True);
Wait(100 + Random(100));
end else
begin
Mouse(396, 11, 3, 3, True);
Wait(100 + Random(100));
end;
if(F2P)then
begin
Mouse(632, 13, 3, 3, True);
Wait(100 + Random(100));
end else
begin
Mouse(616, 13, 3, 3, True);
Wait(100 + Random(100));
end;
end else
Writeln('Your most likely in Unsigned java, no world switch.');
FreeBitmap(tmpMask);
WorldButtonCoordinates(WorldPlace, WorldCoord1, WorldCoord2);
MouseBox(WorldCoord1.x, WorldCoord1.y, WorldCoord2.x, WorldCoord2.y, 1);
Wait(300 + Random(500));
end;
begin
SetupSRL;
ActivateClient;
Wait(500);
ChangeWorld(Random(10), True, True);
end.
2007-03-20 13:31:08
2007-03-20 14:03:06
2007-03-20 16:39:04
2007-03-20 16:42:15
2007-03-21 16:54:50
program WorldHopper;
{.Include SRL/SRL.SCAR}
function LoadWorld(World: integer; Memb: Boolean): Boolean;
var tmpMask, tmpMask1, tmpMask2, tx, ty, I, WorldNumb, Tries, TempColor: integer;
begin
WorldNumb := World;
repeat
tmpMask := CreateBitmapMaskFromText('World', upchars); //The World change button
tmpMask1:= CreateBitmapMaskFromText(inttostr(WorldNumb), upChars); //World Number..
tmpMask2:= BitmapFromString(21, 8, 'z78DA7373C30E0C40C010998D4' + //Is the world full?
'C628AE35249AA39E4E91ABAB66386F968C80F36DB498D234A6CC7' +
'65237E57E1528F090026CDD8C8');
if (FindBitmapMaskTolerance(tmpMask, x, y, 0, 0, 170, 500, 10, 50)) then //Go to the world screen..
begin
Wait(25 + Random(50));
Mouse(x + Random(10), y + 3, 3, 0, True);
repeat
Wait(500);
I := I +1;
until((GetColor(715, 50) = 0) or (I > 200));
if I > 200 then
begin
writeLn('Could not get into the world screen, can not switch worlds..');
exit;
end
I := 0;
end
Wait(500);
if Memb then TempColor := 3562099 else TempColor := 10132122;
if World = 0 then if not FindColorTolerance(x, y, 2851375, 403, 4, 419, 17, 5) then Mouse(411, 12, 2, 2, True) else
if World > 0 then if not FindColorTolerance(x, y, 2851375, 294, 4, 306, 17, 5) then Mouse(306, 12, 2, 2, True);
if World = 0 then if FindColorTolerance(tx, ty, TempColor, 50, 31, 148, 494, 5) then
begin
Mouse(tx + 20, ty, 2, 2, True)
Result := true;
end else
if FindColorTolerance(tx, ty, TempColor, 150, 31, 242, 494, 5) then
begin
Mouse(tx + 20, ty, 2, 2, True)
Result := true;
end else
if FindColorTolerance(tx, ty, TempColor, 244, 31, 334, 494, 5) then
begin
Mouse(tx + 20, ty, 2, 2, True)
Result := true;
end else
begin
WriteLn('Could not find a quiet World');
WorldNumb := 71;
tmpMask1:= CreateBitmapMaskFromText(inttostr(WorldNumb), upChars);
end
if Result then Break;
if (FindBitmapMaskTolerance(tmpMask1, tx, ty, 55, 30, 720, 385, 20, 70)) then
begin
if not(FindBitmapToleranceIn(tmpMask2, x, y, tx, ty -6, tx + 75, ty + 16, 5)) then
begin
WriteLn('World '+ IntToStr(WorldNumb) +' is not full, and is gonna be loaded..');
Wait(25 + Random(50));
if not Memb then if FindColorTolerance(x, y, 3100779, tx -4, ty -4, tx +4, ty +4, 30) then
begin
WriteLn('World '+ IntToStr(WorldNumb)+' is a Member Server..');
Result := False;
WorldNumb := WorldNumb +1;
end else
begin
Mouse(tx + Random(15), ty + 3, 3, 0, True);
Result := true;
end
end else
begin
WriteLn('World '+IntToStr(WorldNumb)+' is full, checking next..');
WorldNumb := WorldNumb +1;
Tries := Tries +1
end
end;
until((Result) or (Tries > 3))
FreeBitmap(tmpMask);
FreeBitmap(tmpMask1);
FreeBitmap(tmpMask2);
end;
begin
Setupsrl;
activateClient;
LoadWorld(0, False);
end.
2007-03-21 19:30:35
2007-04-13 00:23:07
2007-04-13 00:28:08
2007-04-13 00:29:58
2007-04-13 00:45:21
2007-04-13 01:50:52
2007-04-13 02:32:12
2007-04-13 03:45:12
2007-04-14 22:54:19
2007-04-28 12:41:26
From: seaking
Is there a way we could get SCAR to delete the UID on command? Can it do that? If it can't delete can it at least run another program? If it could run another program we could just make .bat files and run them to delete the uid. That way we could auto signed without the uid risk :D
2007-05-24 19:26:30
2007-05-24 20:02:22
From: Smartzkid
.jagex_cache_32
.file_store_32
I'm not sure if both are always there
2007-05-24 20:06:31