IsoMorphic
2013-01-01 04:32:15
How Long have You Played Runescape?
5 Year(s)
Are you affilated in anyway with Jagex LTD?
No way!
Were you Referred to SRL?
What is your general programming knowledge?
Ive learnt Java,Pascal,C++,Visual Basic .Net and other stuff too!
Are you a member of any other communities?
Powerbot, Hackforums, A lot other forums I cant remember!
Tell us about yourself…
Please show us one (or multiple) of your scripts.
5 Year(s)
Are you affilated in anyway with Jagex LTD?
No way!
Were you Referred to SRL?
What is your general programming knowledge?
Ive learnt Java,Pascal,C++,Visual Basic .Net and other stuff too!
Are you a member of any other communities?
Powerbot, Hackforums, A lot other forums I cant remember!
Tell us about yourself…
From: IsoMorphic
Im harry im a 12 year old coder, my dad taught me how to code in Delphi(Pascal Visual). Im not gonna write a lot but I like comptuers and helping people. I know most of you people are going to vote no. I just wanted to try out. I renamed myself so I can have a new start. Please consider!
Please show us one (or multiple) of your scripts.
[SIMBA]program ForeverAIron;
{$DEFINE SMART8}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$i srl/srl/misc/smartcolors.simba}
var
objo,exp:integer;
Procedure DeclarePlayers; // LOGIN PROCEDURE
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure CheckFriends; //An Antiban Procedure by BMWxi ~ Checks friends
Var
NCx, NCy, ONx, ONy :Integer;
begin
if not LoggedIn then LoginPlayer;
if (not LoggedIn) or (InvFull) then Exit;
gametab(tab_friends); //Goes to friends tab
If FindColorTolerance(NCx, NCy, 16683035, 546, 246, 722, 451, 5) Then // Checks if they have changed names,
begin // if they have, It hovers to find their new name.
MMouse(NCx, NCy, 5, 5);
Wait(RandomRange(1000, 2000));
end;
If FindColorTolerance(ONx, ONy, 6619135, 546, 246, 722, 451, 5) Then //Checks to see if friends are online
begin //hovers the names of online friends
MMouse(ONx, ONy, 5, 5);
Wait(RandomRange(1000, 2000));
end else
begin
Wait(RandomRange(500, 1000)); //I added this so It doesn't spam-exit when you have no friends :)
end;
FTab(tab_Inv); //Returns to inventory
end;
Procedure Antiban;// Calls antiban. Very bad antiban!
Begin
Case Random(160) Of
1: HoverSkill('mining', False); //replace 'magic' with 'skill'
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
9..11:CheckFriends;
end;
end;
function Mining: Boolean; //True if mining animation - False if idling
var
PBox: TBox;
begin
PBox := IntToBox(245,130,285,198);
Result := (AveragePixelShift(PBox, 250, 500) > 400);
end;
procedure Proggy; // Outputs progress of script
begin
ClearDebug;
writeln('You have been running for ' + TimeRunning);
writeln('You have made ' + toStr(exp) + ' EXP');
writeln('Mined ' + toStr(objo) + 'ores');
end;
procedure Mineit;// Mines the rock - EXPLAINED IN FUNCTION
var
tmpCTS,x,y,i,l,r,counter,failed,invc:integer;
SpotTPA:Array of TPoint;
begin
if(not(LoggedIn)) then
LoginPlayer;// Quite obvious
(*Setting Colours with CTS 2*)tmpCTS := GetToleranceSpeed;
(*Setting Colours with CTS 2*)SetColorToleranceSpeed(2);
(*Setting Colours with CTS 2*)SetToleranceSpeed2Modifiers(0.06,0.10);
FindColorsSpiralTolerance(MSCX,MSCY,SpotTPA,2569305,MSX1,MSY1,MSX2,MSY2,5); //FindColour into a TPA so its easier :) finds closest to MSCX,MSCY
(*Setting Colours with CTS 2*)SetColorToleranceSpeed(tmpCTS);
(*Setting Colours with CTS 2*)SetToleranceSpeed2Modifiers(0.02,0.02);
L := High(SpotTPA);
marktime(counter);
for i := 0 to L do //for all the resaults for the TPA
begin
r := random(L);//No need for this line really
wait(randomrange(60,200));
mmouse(SpotTPA[i].x,SpotTPA[i].y,2,2); //Finds closes spot to you
if(WaitUptext('ine Iron',300)) then
Break;
if(timefrommark(counter)>3500)then //failsafe
begin
inc(failed);
if(failed > 10) then
begin
failed := 0;
writeln('failed to find rock 10 times');
Break;
end;
end;
end;
//inc(clicked);
//writeln('we found the fishing spot! X' + ToStr(clicked) + ' TIme Running: ' + TimeRunning);
Invc := InvCount; //For proggy
ClickMouse2(mouse_Right);
if WaitOption('ine Iron ore r',500) then// Clicks
begin
repeat
Wait(500);
until (not(Mining));
if (InvCount > invc) then
begin
inc(objo);
//Proggy values
exp := exp + 35;
end;
end;
end;
begin
SRL_SixHourFix := True;
Smart_FixSpeed := True;
SetupSRL;
//ActivateClient;
DeclarePlayers;
LoginPlayer;
ExitSquealOfFortune;
repeat
Antiban;
if(not(LoggedIn)) then LoginPlayer;
if(InvFull)then
begin
Proggy;
DropAll;
end;
Mineit;
ExitSquealOfFortune;
until(false);
end.