SRL Archive - RS3 Outdated / Broken Scripts

I made this script pretty fast and I am planning on fixing it up and improving on it so post any problems that you have.

Make sure that you have alchable item in the 16th inventory slot.

attach script pl0x?

ha owned i just stole your account! nah i'll pm u the new pass. btw your alching procedure looks an amazingly lot a simplified version of mine. a lot.


urs:

repeat
    GameTab(7);
    If not CastSpell(35) then
    begin
      Writeln('No Runes! :[');
      Logout;
    end;
    Cast('High Alchemy');
    if ExistsItem(16) then
    MMouseItem(16)
    If IsUpText('Cast') then
    begin
      Wait(100);
      MouseItem(16, True);
      Wait(4000);
      Alches := Alches + 1;
      ReportVars[0]:= ReportVars[0] + 1;
      SendSRLReport;
    end;
  until(False);

bits of mine:

if not CastSpell(35) then
    begin
      writeln('not enough runes to cast the spell');
      Proggy;
      LogOut;
    end;

and

    if ExistsItem(TheSpot) then
      MMouseItem(TheSpot)
    else
    begin
      writeln('No more items');
      Proggy;
      LogOut;
    end;

and

if IsUpText('Cast') then
      begin
        wait(Random(100));
        MouseItem(TheSpot, True)

Damn are they similar or what?! amazing! how could you come up with something like that?

oh and you don't need FindFastRandoms anymore. Also since you have repeat until false in your alch and you don't check for randoms in there you won't atually ever check for randoms.

of and the if not CastSpell() already casts the spell for you, you don't need to do Cast('High Alch');
at least learn something while copying.

program IsThisACopy?;
{ Skilld u}                   {}   { Rasta Magician}
repeat                        {}
    GameTab(7);               {}
    If not CastSpell(35) then {} If not CastSpell(35) then
    begin                     {} begin
      Writeln('No Runes! :[');{}   writeln('not enough runes to cast the spell');
      Logout;                 {}   Proggy;
    end;                      {}   LogOut;
    Cast('High Alchemy');     {} end;
    if ExistsItem(16) then    {} if ExistsItem(TheSpot) then
    MMouseItem(16)            {}   MMouseItem(TheSpot);
    If IsUpText('Cast') then  {} if IsUpText('Cast') then
    begin                     {} begin
      Wait(100);              {}   wait(Random(100));
      MouseItem(16, True);    {}   MouseItem(TheSpot, True);
      Wait(4000);             {} ...some failsafe stuff
      Alches := Alches + 1;   {}
      SendSRLReport;          {}
    end;                      {}
  until(False);               {}

~RM

Nielsie and I have discussed the matter.

We find that the alching procedures are similar but not to the extent of plagiarizing.

Skilld U:
Please give proper credits to any previous scripts you may have used to create your script. Also you may want to take out your account name and password from the script.
Next time you make a script, credit works you base it off from and all this can be avoided.

Cheers,
Hobbit

Sorry guys. I am working on changing it up so that it isn't as similar to Rasta Magician's as it was. I did not mean to copy so much of it as I did, I was just planning on using Rasta Magician's as a guideline for mine but ended up using more of it than I planned. I assure you that it will not happen again.

Also, thank you Rasta Magician for changing the pass.

-Skilld U

From: skilld u
Sorry guys. I am working on changing it up so that it isn't as similar to Rasta Magician's as it was. I did not mean to copy so much of it as I did, I was just planning on using Rasta Magician's as a guideline for mine but ended up using more of it than I planned. I assure you that it will not happen again.

Also, thank you Rasta Magician for changing the pass.

-Skilld U

Just be sure to credit next time, it does offend people when they put so much effort into their scripts and then their copied without any sort of permission or recognition. You apologized, no harm done.

~RM

I think he looked at your script when learning ^^.
Be happy about it / I would :)