SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
rudeboialex - SRL Member Application Form
rudeboialex

What is the meaning to life?


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


Programming Knowledge
None

Other Communitys
Sythe.org

How Long have You Played Runescape
3 Years

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

I joined SRL Forums around 5months ago.It was hard tol learn scripting but over the past month i have improved greatly.I have read many tutorials on how to scrip i understand them now and i normally give rep to people of this great community who help me.

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

program MyWorkingPowerMiner;
{.include SRL\SRL.scar}
//JAD antiban is in here credits for that goes to him
//Ore Color needed on line 23
//Mannal ore color is better
//Must were weildable pick

//CopperColor       = 4286610;
//TinColor          = 9277080;
//ClayColor         = 4553880;
//IronColor         = 1910851;
//SilverColor       = 12434885;
//CoalColor         = 2834753;
//GoldColor         = 1881051;
//MithrilColor      = 7359564;
//AdamantColor      = 6322272;
//RuniteColor       = 8681306;


const
  RockWait = 6000;//Time to hit rock again change if to fast
  NumberOfUsers = 1;//can only do one 1 at the moment
  StartPlayer = 0;//Cant be anything else at the moment
  RockColor = 4747162;//use ore color above for what u want to powermine
  DropCeptPick = false; //if set to true then it will drop everything except
                    //pick. if false will use DTM's to only drop ores.
  RunDir         =    'S'; // RunDirection, choose it wisely.
{--------------------------------------------------------

Procedure DeclarePlayers;

--------------------------------------------------------}

Procedure DeclarePlayers;

  Begin
     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;

     Players[0].Name :=;//Username here
     Players[0].Pass :=;//Password here
     Players[0].Nick :=;//3 Lowercase letters of youre name
     Players[0].Active:=True;

end;
procedure Miner;

begin

  repeat

    FindColorSpiral(x, y, RockColor, 14, 19, 495, 325)

    MMouse(x, y, 3, 3)

    IsTextAt2(9, 9, 'Mine', 20)

    Mouse(x, y, 2, 2, True)

    Wait(RockWait + Random(300))

  until(InvFull)

  if(InvFull = True)then
end;

procedure Randoms;
begin
  TalkToRand;
  FindNormalRandoms;
  if (FindFight) then
  begin
    RunWhere(RunDir, false);
    Wait(10000 + random(200))
      RunBack;
  end;
  begin
    RunWhere(RunDir, false);
    Wait(2000 + random(1000));
    RunBack;
    WriteLn('Waiting For Gas to Stop ..');
    Wait(10000 + random(2000));
  end;
  if (FindNewBox) then
  begin
    writeln('Found Strange Box Trying To Solve..')
      OpenBox;
    SolveBox;
    wait(1000);
  end;
  if (FindNewBox) then
  begin
    GambleNewBox;
  end;
  if (FindNewBox) then
  begin
    LogOut;
    Writeln('Unable To Solve Box....Terminating');
    TerminateScript;
  end;
  begin
    LoadSandArray;
    LoadSWBitMaps;
    SetupSandwich;
    ReleasesandWich;
    GetSandQuestion;
    SolveSandwich;
    SolveFrog;
  end;
end;


function DoAntiBan: Boolean;
begin
  AntiBan;
  wait(50 + random(100));
  BoredEvery(3 + random(3));
  wait(100 + random(100))
    RotateEvery(7 + random(4));
  wait(750 + random(250));
  LeaveScreenEvery(5 + random(7));
  wait(500 + random(150));
end;


procedure DropOre;
var Ore, x, y: Integer;
begin
  if (not (loggedin)) then
    Exit;
  Ore := DTMFromString('78DA63AC64666078CBC8800EFEC36820604C0' +
    '7AAF98CAE86118904D2B94035CF08A8A903AA7944404D2B11E694' +
    '02D5FC22A0A604A8E63E7E3500A8CD0ECB');
  GameTab(4);
  if (DropCeptPick = false) then
  begin
    repeat
      if FindDTM(Ore, x, y, 820, 471, 995, 733) then
      begin
        MMouse(x, y, 0, 0);
        wait(200 + random(100));
        Mouse(x, y, 4, 6, false);
        if (ChooseOption(x, y, 'rop')) then
      end;
    until (not (FindDTM(Ore, x, y, 820, 471, 995, 733)));
    if (DropCeptPick = true) and (Players[CurrentPlayer].Boolean1 = false) then
    begin
      DropTo(2, 28);
    end;
    if (DropCeptPick = true) and (Players[CurrentPlayer].Boolean1 = true) then
    begin
      DropAll;
    end;
  end;
end;


begin

  SetupSRL;

  repeat

  DeclarePlayers;
    Miner;
    LoadSandArray;
    LoadSWBitMaps;
    SetupSandwich;
    ReleasesandWich;
    GetSandQuestion;
    SolveSandwich;
    SolveFrog;
    DropAll;

  until(False)

end.

——————————————————
<!– END TEMPLATE: formanswers –>

This guy coppied my whole dropping procedure, my idea for dropping things from randoms and my DTM and gave no credit and I did not give any permission.. please make your own script or atleast give credits wherever they are needed..100% no from me dude, sorry.
I like that he gave me credits for anti ban.. but he didn't give any for the whole dropping procedure+ the DTM

Check youre pm's i asked you and i left credit in script

Yes but you can't just like take someone's script and change it and call it yours, sry

Wo0t i got an autominer working lol antiban adding antirandoms soon and in one of my posts i asked if u could borrow some of ur procedures to study lol well thanks anyway (i just advanced a srl learning level lol) 50% out of 100%

well you asked if you could borrow some of them to study, not to use to gain membership access. and if you are going to use my dropping procedure or my antiban, you have to give credits, and that would be a lot more then 10% of your script. sorry man, you have to get an okay from me also, and I never did :(

i dont think im gonna this membership but i tryed to credit u and i know you cant use it for membership but what was i supposed to do i added to my script.

From: rudeboialex
i dont think im gonna this membership but i tryed to credit u and i know you cant use it for membership but what was i supposed to do i added to my script.

sorry to get all mad on you, but you used my dropping procedure. and you have to give credit for that. what you could have done was:
A. make a progress report
B. make multi player
C. made a different script where you didn't use anything from what I did.
D. waited until you were ready before applying, maybe learn DTM's and things like that.

so if you do those things, you could get in. you don't have to use C, you don't have to use my dropping procedure either. take my dropping procedure out, learn DTM's and then you can use whatever you want in there and then I'm not taking up to much of your script. your a good scripter, but you still have a lot to learn. you need to learn if then else's too.. like it did in my dropping procedure but not your mining procedure :p

Thhanks JAD that helped me alot ill get on it but is there anyway to delete a membership thing and i need to find out a dropping procedure-.-