SRL Archive - Archive

hello to you all - SRL Member Application Form
hello to you all

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge


Other Communitys
moparisthebest.com, sythe.com, rscheata.com

How Long have You Played Runescape
5 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

i had a played runescape legit for about 4 years and then got hacked which lead me to learning scripting and cheating.

to be honest for a while i was leeching (while learning).
but just recently i have been trying alot harder to learn and master scripting.

im not the best scripting in the world! but i hope im not the worst either :P

i try hard at everything i do and if anything is slightly wrong i always seem to go all out to make it better!

im always happy, friendly and always willing to help to my best abillity.

the script belowis just a quick script that i put together.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

//HTYA's Powerminer//
//credits to SRL and those who help me with problems//

program HTYApowerminer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

const
Rock = 'Iron';//choose type of rock to mine. (Clay,Tin,Copper,Iron,Gold,Mithril,Addy,Rune.)
LoadsToDo = 1;// How many loads do you want the script to mine and drop?
WaitTime = 5000;//time to wait per rock.
RunDirection = 'N';//The direction you run if fight Found.

Var
  ClayColor, TinColor, CopperColor, IronColor, GoldColor,
  MithrilColor, AddyColor, RuneColor, Loads, MinedOres, OreMask, clay : integer;
  RockColor: Integer;
//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

Procedure Colors;
Begin
ClayColor     := 6005188;
TinColor      := 9013908;
CopperColor   := 0000000;
IronColor     := 3030886;
GoldColor     := 0000000;
MithrilColor  := 0000000;
AddyColor     := 0000000;
RuneColor     := 0000000;
End;

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-
procedure SetRockColor;
begin
  Case Rock of //Depending on what the user put for RockType, do one of the following
    'Clay'      : RockColor := ClayColor; //Load the right color into RockColor
    'Tin'       : RockColor := TinColor;
    'Copper'    : RockColor := CopperColor;
    'Iron'      : RockColor := IronColor;
    'Gold'      : RockColor := GoldColor;
    'Mithril'   : RockColor := MithrilColor;
    'AddyColor' : RockColor := AddyColor;
    'RuneColor' : RockColor := RuneColor;
    else
    begin
    WriteLn('Invalid RockType.');
    TerminateScript;
   end;
 end;
end;

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

Procedure LoadBitmaps;
Begin
WriteLn('Loading Bitmaps...');
Clay := BitmapFromString(4, 4, '86714C89734D8B7650907A52978' +
      '1569781569A8357957E55A1895CA38B5D9F875B9C8559AC9262A8' +
      '8F60A58D5FA1895C');

OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
      '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
      'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
      'B599CC1');
End;

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

procedure Mine;
begin
if findobj(x,y,'ine',rockcolor,1) then
begin
repeat
wait(100+random(123))
   Mmouse(x,y,3,3)
   wait(50 + random(50));
   if (IsTextAt2(x, y, 'ine', 5) = True) then
   wait(50 + random(50));
   wait(1)
   Mouse(x,y,2,2,True)
   Flag;
   FindNormalRandoms;
   Until(invfull)
   If (invfull) = True Then
   Loads := Loads + 1;
  MinedOres := MinedOres + 28;
End;
End;

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-


Procedure DetectTheRock;
Var
WX, WY: integer;
Begin
if (Not findobj(x,y,'ine',rockcolor,1)) then
 Begin
   If FindSymbol(WX, WY, 'mining site') Then
   Begin
WriteLn('Found Mining Symbol');
     Mmouse(x, y, 3, 3)
     Mouse(x, y, 2, 2, true)
   End;
End;
End;

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

Procedure ProgressReport;
Begin
   WriteLn('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
WriteLn('      Cheers for trying HTYAS first script!!!!!!!     ');
WriteLn('                                                      ');
WriteLn(' Total Loads Done  : ' + IntToStr(Loads) + '!         ');
writeLn(' Total Ores Mined  : ' + IntToStr(MinedOres) + '!     ');
WriteLn('                                                      ');
WriteLn('                    Made By HTYA                      ');
Writeln('@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
End;

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

Procedure ModSetRun(Run: Boolean);
Var
WX, WY: Integer;
Begin
   writeLn('Setting Run on')
   GameTab(11);
  If Run Then
Begin
  If (Not (FindColorTolerance(WX, WY, RockColor, 663, 431, 665, 433, 5))) Then
Begin
   Mouse(648, 431, 20, 20, true);
   Wait(100 + Random(100));
  End;
End Else
Begin
  If FindColorTolerance(WX, WY, RockColor, 663, 
  431,665,433, 5) Then
Begin
   Mouse(648, 431, 20, 20, true);
   Wait(100 + Random(100));
  End;
 End;
End;

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

Procedure DropOres;
Begin
  If (invfull) = True Then
   writeLn('YAY you are full of Ores, Now going to drop them  
   all!!!')
   DwarfItem;
   ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30
   +Random(30));
   ClickAllItemsBmpTolWait('rop', Clay, 10, 30 + Random(30));
   WriteLn('Dropped all them Ores!!')
End;

//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

Procedure AntiRandoms;
Var
Gx, Gy :integer;
Begin
   writeLn('...Looking for them randoms...')
   FindNormalRandoms;
   ItemGrab;
   FindPick;
  If (FindFight) Then
Begin
   RunWhere(RunDirection, False);
   Wait(10000 + random(200))
   RunBack;
End;
  If (FindNewBox) Then
Begin
   LogOut;
   Writeln('Unable To Solve Box....Terminating');
   TerminateScript;
End;
  If (FindNewBox) Then
Begin
   writeln('Found Strange Box Trying To Solve..')
   OpenBox;
   SolveBox;
   wait(1000);
End;
  If (FindNewBox) Then
Begin
   GambleNewBox;
End;
  If (GasFound(Gx, Gy)) Then
Begin
   RunWhere(RunDirection, False);
   Wait(2000 + random(1000));
   RunBack;
   WriteLn('Waiting For Gas to Stop ..');
   Wait(10000 + random(2000));
 End;
End;


Begin
   ClearDebug;
   SRLRandomsReport;
   LoadMiningBitMaps;
   LoadBitmaps;
   ActivateClient;
   SetupSRL;
   SetupSRLMining;
   ModSetRun(True);
   FindPickHeadColor;
Repeat
   DetectTheRock;
   Mine;
   ProgressReport;
   DropOres;
   FindNormalRandoms;
   AntiRandoms;
   DropOres;
   ProgressReport;
Until(Loads = LoadsToDo)
End.

——————————————————

add multiplayer

so with multiplayer i wont get accepted?

so without multiplayer i wont get accepted??

sorry about that my pc was lagging and it wasnt posting so in the end it posted 3 times!

i would add multiplayer but, its gonna take me 2 hours to go through it all and set it all up and write it all in!

2 hours of work is well worth it

Willups bitmaps
Willups dropign rpocedure (simplified)
You should have credited for this. I dont like people who dont credit other peopels code and hard work.

I understand teh double post, but no need to make it triple by saying sorry, just edit then 2nd post.

Well i think the script is too simple.
Also, your mining loop needs a failsafe

Repeat
asdf
Until(invenfull)

what is there are no rocks arroudn?
The mouse will just hover over random things over and over until the inven is full (never)
So this can be dangerous.
Id like to see some of your OWN bitmaps and OWN dropping procedure also.

  If (FindNewBox) Then
Begin
   LogOut;
   Writeln('Unable To Solve Box....Terminating');

You should make it try to solve the box =)

and maybey you should fill these in?

Procedure Colors;
Begin
ClayColor     := 6005188;
TinColor      := 9013908;
CopperColor   := 0000000;
IronColor     := 3030886;
GoldColor     := 0000000;
MithrilColor  := 0000000;
AddyColor     := 0000000;
RuneColor     := 0000000;
End;

Overall i think you need to get a bit more falaliar with srl procedure and try coding more of your own stuff.
Persaonl Tip (I dont like findobj, it does too mcuh, try making soemthing like

IF FIndcolorspiral(rock) then
 MMouse(X,y,5,5)
If IsUpText('Min') Then
  Begein 
   Mouse(x,y,0,0,true) 
  end else
   SearchAgain

sorry about that my pc was lagging and it wasnt posting so in the end it posted 3 times!

the third one was edited and was me saying sorry :P

ok so if you could give me a list of things needed doing and ill then do them :P

considering it looks like ive got a whole month anyway :P

Yea well, I have to vote No.

1. Cause it doesnt have multiplayer as said before.
2. You don't utilize srl enough. You have if findnewbox then logout??? What happened to solvebox?
3. I dont believe it checks for finding gas or anything.
4. Also You copied the setrun mode from the srl folder. You just need SetRun(True);
5. Overall you just need to study srl and scripting some more and you'll make it in.

Actually he does check for gas

 If (GasFound(Gx, Gy)) Then
Begin
   RunWhere(RunDirection, False);
   Wait(2000 + random(1000));
   RunBack;
   WriteLn('Waiting For Gas to Stop ..');
   Wait(10000 + random(2000));
 End;
End;

and

Overall you just need to study srl and scripting some more and you'll make it in.

doesn't really tell him what to do.
Read my post hello to you all.
I said try making some of your own procedures with your own coding, adding multiplayer, and just some other random things that will make the script more human like, such as failsafes, longer loops so it donest just do one small action over and over. Add some randomness, maybe make it right click the rock and then click mine once in a while.

ok then, this was just like a quickly done script that i would try and show that i can do it all.

thanks for all your advice and opinions, because like i said now im going to have a whole month to do everything properly!

thats unless i get 5 yes and no more nos but i doubt that will happen.


HTYA

Thankyou to whoever voted yes!! its nice to atleast get one :)

From: hello to you all
ok then, this was just like a quickly done script that i would try and show that i can do it all.

thanks for all your advice and opinions, because like i said now im going to have a whole month to do everything properly!

thats unless i get 5 yes and no more nos but i doubt that will happen.


HTYA

1. Dont doubt yourself.
2. Dont do a "Quick Script' and think that will cut it.
3. The script is well done, but not all of it is yours.
4. Use that WHOLE month to raise your scripting exp.
5. Do everything above, Ill say yes.

will do thanks

Well, fourscape already said all i had to say :) Keep on learning and making scripts :)

it really isnt easy to get in is it?

nope, that's why it's worth it

Please don't do:

mmouse(x,y,3,3);
mouse(x,y,2,2,True);

Either

MMouse(x,y,3,3);
GetMousePos(x,y);
Mouse(x,y,0,0,True);

Or just plain

Mouse(x,y,3,3,True);

ok thanks for telling me… btw im loving your ess miner!!

Stop with the double posts
and saying that its really easy to get in inst something good to say…
ur making want you in less talking all nooby noob like that :p

who said its easy to get in?

wtf how come i didnt have this many replies in my app? oh i know its cuz i was so pro that u guys just had to let me in by the 5th post right? aww thanks… lol…

i'd have to say this is a no, you dont seem to be too familiar with SRL functions and procedures and i think you should read in SRL to get to know some, also please credit people when taking stuff from their scripts, thats making a bad rep for yourself but keep up the good work and apply next month, for now this is a no sorry =/