xdarkshadowx
2012-04-29 14:15:17
How Long have You Played Runescape?
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
Unknown
What is your general programming knowledge?
Java; basic HTML;
Are you a member of any other communities?
Not actively anymore.
Tell us about yourself…
Please show us one (or multiple) of your scripts.
8 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
Unknown
What is your general programming knowledge?
Java; basic HTML;
Are you a member of any other communities?
Not actively anymore.
Tell us about yourself…
From: xdarkshadowx
High school senior going off to college to get a mathematics pure option degree so I can teach. I enjoy playing video games but I try to keep them to a minimum as they can hurt my studies. I have coded for RSBuddy before the bot nuke as I could use java to code and I hadn't heard of simba yet.
Please show us one (or multiple) of your scripts.
// Janilabo's help was invaluable in building my 2D array of boxes and various other errors I ran into. This is a puzzle pirates script that does bilging flawlessly.
program new;
//{$DEFINE SMART}
{$i srl/srl.simba}
//{$i srl/srl/misc/paintsmart.simba}
const
ROWS = 12;
COLUMNS = 6;
howFast = 4; //Lower is quicker!
var
boxArr: array[1..ROWS] of array[1..COLUMNS] of TBox;
r, c, whichWay: Integer;
speedNess: Integer;
boxMe:TBox;
Procedure boxClickRight(ro, co: Integer);
begin
Mouse(boxArr[ro][co].X1+(boxArr[ro][co].X2 - boxArr[ro][co].X1)/2,boxArr[ro][co].Y1 + 3,37,37,true);
end;
function getColorInBox(r, c: Integer): Integer;
begin
result := GetColor(boxArr[r][c].X1 + 10,boxArr[r][c].Y1 + 10);
writeln('color is ' + IntToStr(result));
end;
Procedure findMatchTopMoveRight;
begin
for r := 1 to ROWS - 2 do
for c := 1 to COLUMNS - 1 do
begin
if (getColorInBox(r, c) = getColorInBox(r + 1, c + 1)) then
begin
if (getColorInBox(r+1, c+1) = getColorInBox(r + 2, c + 1)) then
begin
if (((getColorInBox(r,c) = 11972252) or (getColorInBox(r,c) = 16777215)) or (getColorInBox(r,c) = 12566463)) then
begin
wait(4000);
end
else
begin
boxClickRight(r,c);
writeln('found a match!');
wait(1000 + (speedNess *random(450)));
end else;
end else;
end;
end;
Procedure findMatchTopMoveLeft;
begin
for r := 1 to ROWS - 2 do
for c := 1 to COLUMNS - 1 do
begin
if (getColorInBox(r, c + 1) = getColorInBox(r + 1, c)) then
begin
if (getColorInBox(r+1, c) = getColorInBox(r + 2, c)) then
begin
if (((getColorInBox(r,c) = 11972252) or (getColorInBox(r,c) = 16777215)) or (getColorInBox(r,c) = 12566463)) then
begin
wait(4000);
end
else
begin
boxClickRight(r,c);
writeln('found a match!');
wait(1000 + (speedNess *random(400)));
end else;
end else;
end;
end;
Procedure findMatchMiddleMoveRight;
begin
for r := 1 to ROWS - 2 do
for c := 1 to COLUMNS - 1 do
begin
if (getColorInBox(r, c + 1) = getColorInBox(r + 1, c)) then
begin
if (getColorInBox(r+1, c) = getColorInBox(r + 2, c + 1)) then
begin
if (((getColorInBox(r,c) = 11972252) or (getColorInBox(r,c) = 16777215)) or (getColorInBox(r,c) = 12566463)) then
begin
wait(4000);
end
else
begin
boxClickRight(r + 1,c);
writeln('found a match!');
wait(1000 + (speedNess *random(550)));
end else;
end else;
end;
end;
Procedure findMatchMiddleMoveLeft;
begin
for r := 1 to ROWS - 2 do
for c := 1 to COLUMNS - 1 do
begin
if (getColorInBox(r, c) = getColorInBox(r + 1, c + 1)) then
begin
if (getColorInBox(r+1, c + 1) = getColorInBox(r + 2, c)) then
begin
if (((getColorInBox(r,c) = 11972252) or (getColorInBox(r,c) = 16777215)) or (getColorInBox(r,c) = 12566463)) then
begin
wait(4000);
end
else
begin
boxClickRight(r + 1,c);
writeln('found a match!');
wait(1000 + (speedNess *random(500)));
end else;
end else;
end;
end;
Procedure findMatchBottomMoveRight;
begin
for r := 1 to ROWS - 2 do
for c := 1 to COLUMNS - 1 do
begin
if (getColorInBox(r, c + 1) = getColorInBox(r + 1, c + 1)) then
begin
if (getColorInBox(r+1, c + 1) = getColorInBox(r + 2, c)) then
begin
if (((getColorInBox(r,c) = 11972252) or (getColorInBox(r,c) = 16777215)) or (getColorInBox(r,c) = 12566463)) then
begin
wait(4000);
end
else
begin
boxClickRight(r + 2,c);
writeln('found a match!');
wait(1000 + (speedNess *random(400)));
end else;
end else;
end;
end;
Procedure findMatchBottomMoveLeft;
begin
for r := 1 to ROWS - 2 do
for c := 1 to COLUMNS - 1 do
begin
if (getColorInBox(r, c) = getColorInBox(r + 1, c)) then
begin
if (getColorInBox(r+1, c) = getColorInBox(r + 2, c + 1)) then
begin
if (((getColorInBox(r,c) = 11972252) or (getColorInBox(r,c) = 16777215)) or (getColorInBox(r,c) = 12566463)) then
begin
wait(4000);
end
else
begin
boxClickRight(r + 2,c);
writeln('found a match!');
wait(1000 + (speedNess *random(550)));
end else;
end else;
end;
end;
Procedure findMatchHorizonMoveRight;
begin
for r := 1 to ROWS do
for c := 1 to COLUMNS - 3 do
begin
if (getColorInBox(r, c) = getColorInBox(r, c + 2)) then
begin
if (getColorInBox(r, c + 2) = getColorInBox(r, c + 3)) then
begin
if (((getColorInBox(r,c) = 11972252) or (getColorInBox(r,c) = 16777215)) or (getColorInBox(r,c) = 12566463)) then
begin
wait(4000);
end
else
begin
boxClickRight(r,c);
writeln('found a match!');
wait(1000 + (speedNess *random(400)));
end;
end else;
end else;
end;
end;
Procedure findMatchHorizonMoveLeft;
begin
case whichWay:
o: for r := ROWS downto 1 do
for c := COLUMNS - 3 downto 1 do
1: for r := 1 to ROWS do
for c := 1 to COLUMNS - 3 do
begin
if (getColorInBox(r, c) = getColorInBox(r, c + 1)) then
begin
if (getColorInBox(r, c + 1) = getColorInBox(r, c + 3)) then
begin
if (((getColorInBox(r,c) = 11972252) or (getColorInBox(r,c) = 16777215)) or (getColorInBox(r,c) = 12566463)) then
begin
wait(4000);
end
else
begin
boxClickRight(r,c + 2);
writeln('found a match!');
wait(1000 + (speedNess *random(500)));
end;
end else;
end else;
end;
end;
procedure changeSpeed;
begin
speedNess:= 1 + Random(3);
end;
procedure AntiBan;
begin
case Random(17) of //Chooses a random procedure to do below
0:
begin
Mouse(boxArr[RandomRange(1,12)][RandomRange(1,5)].X1+(boxArr[RandomRange(1,12)][RandomRange(1,5)].X2 - boxArr[RandomRange(1,12)][RandomRange(1,5)].X1)/2,boxArr[RandomRange(1,12)][RandomRange(1,5)].Y1 + 3,37,37,true);
writeln('missclick time!');
wait(RandomRange(1000,3000));
end; //missclick
1: wait(RandomRange(3000,5500)); //random wait
2: wait(RandomRange(6000,8000)); //random wait
3: changeSpeed; //speed change
4:Mouse(473,363,40,11,true); //vessle tab
5:Mouse(531,363,22,11,true); //chat tab
6: Mouse(646,363,40,11,true); //ahoy tab
8: //upsidedown move checking?
begin
Wait(RandomRange(1000, 1500));
end;
end;
end;
begin
speedNess:= howFast;
whichWay:= 0;
SetupSRL;
// ActivateClient;
ClearDebug;
for r := 1 to ROWS do
for c := 1 to COLUMNS do
begin
boxArr[r][c].X1 := 95 + (c * 45) - 45;
boxArr[r][c].Y1 := 70 + (r * 45) - 45;
boxArr[r][c].X2 := 140 + (c * 45) - 45;
boxArr[r][c].Y2 := 115 + (r * 45) - 45;
WriteLn('boxArr[' + ToStr(r) + '][' + ToStr(c) + ']: ' + ToStr(boxArr[r][c].X1) + ', ' + ToStr(boxArr[r][c].Y1) + ', ' + ToStr(boxArr[r][c].X2) + ', ' + ToStr(boxArr[r][c].Y2));
end;
Wait(RandomRange(3000,5500));
repeat
findMatchTopMoveRight;
findMatchBottomMoveRight;
findMatchMiddleMoveLeft;
findMatchMiddleMoveRight;
findMatchTopMoveLeft;
findMatchBottomMoveLeft;
findMatchHorizonMoveRight;
findMatchHorizonMoveLeft;
writeln('went through them all! looping again');
AntiBan;
until (false);
end.