SRL Archive - First Scripts

I just wrote a script, It has some bugs that I cannot figure out how to fix right now, If anybody would like to help me fix it up I'd really appreciate it, so far as I know no one on here has released on publicly and it makes around 500k an hour with no reqs. If your not a leech. but a member or higher I'd really like some help/ review for my script and some help improving it. Pm me or post if your willing to help a noob out ;P

I could help, if you let me of course I'll try to do my best

You could always partialy show what's not working and not post the whole thing.

From: Gucci
I could help, if you let me of course I'll try to do my best

Id love to let you help(: Pming you a copy of the script now, just going to say, my standards are probably not good :P

I can give you a hand too. If u trust me ofc

From: begginer
I can give you a hand too. If u trust me ofc

Ill pm you a copy.

From: bigbutts5
Ill pm you a copy.

still waiting for it

From: begginer
still waiting for it

Been busy since I posted that, pming now.

What exactly is your problem? Compiling error?

Do you mind if i take a look for you?

Instead of hiding your script, paste it to the thread. Just the part that is causing trouble or the whole script. In my opinion you should only paste the part that is causing trouble, and when asked, the whole script.

From: Frement
Instead of hiding your script, paste it to the thread. Just the part that is causing trouble or the whole script. In my opinion you should only paste the part that is causing trouble, and when asked, the whole script.

Ive already pm'ed a few people and they are more than willing to help, at this point Im looking for testers more than help, its a fully working script, however I rather not release my private money maker and have it leeched to hell, Its not a problem with a part of the script, but with the script as a whole. It compiles as i've written and ran it, need some help getting it to run past more than 3 trips, I wanted to know others who got this bug and what they thought. It will run, just wanted input, if you would like to help ill gladly pm you, but for everybody who has said and will say just post it, no as I do not want everybody to have it.

As far as I'm concerned, you've sent the script to mainly to users who are > SRL Members


But meh, doesn't mean they're not good at scripting :)

I'm more than willing to look, got a few scripts to back my name if no one replies :) I'm onlin e NOW

Could someone help me debug this script?
i gt an error: Error: Out of Proc Range at line 404



program MagicBot;
{$DEFINE SMART} { Minor bug fixes }
{$DEFINE SRL5} { }
{$i SRL/srl.simba}

const
LoadCount = 4883 ;

var
count, Magic_XP, Mxph: integer;

procedure DeclarePlayers;

begin

HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

with Players[0] do
begin

Name := 'royal_pop@hotmail.com';
Pass := '83732433a';
Nick := '' // three lowercase letters in the middle of your name
BoxRewards := ['amp'];
LampSkill := SKILL_SUMMONING;
Pin := '';
Active := True;
end;
end;

procedure Run;

begin

Smart_Members := False;
Smart_Server := 0;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
MouseSpeed:= 15;
DeclarePlayers;
LoginPlayer;

Count:=0;
Wait(500+Random(200));


end;

Procedure MagicTab;

begin

Gametab(tab_magic);

end;

Procedure MagicBot;


begin
if not(GetCurrentTab = tab_Magic) then
MouseBox(735,171,758,200,1);//Clicks magic tab
sleep(500+random(150));
MouseBox(250,195,260,120,1);//Clicks spell
sleep(2500+random(150));
end;


Procedure Proggy;

var
mxph: integer;

begin

Mxph := round((Magic_xp) / (GetTimeRunning / 3600000.0));

WriteLn('=-=-=-=-=-=-=-= Magic Bot =-=-=-=-=-=-=');
WriteLn('Time Running: '+TimeRunning);
WriteLn('Magic XP Gained: ' +IntToStr(count*29));
WriteLn('=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-');

end;




begin

{ Run;
begin

SetAngle(SRL_ANGLE_HIGH);
}
repeat
Proggy;
MagicBot;
inc(count);
until (count=loadcount) or (not LoggedIn);
Writeln('Task completed!');

end.

From: abu_jwka
As far as I'm concerned, you've sent the script to mainly to users who are > SRL Members


But meh, doesn't mean they're not good at scripting :)

they have scripts that are publicly released so :P plus gucci was the most helpful. We have fixed my entire script(: also, can anybody explain how to tell when an item has been added to the inventory? like if you click something then it tells if it was added then if it was added it proceeds? this is what I have so far.

If not InvFull then
InvCount;
if FindObjEx(cx, cy, ['XXXX', 'XXXX'], [findmystuffs], 5, 50,7,13,514,332) then
wait(250+random(50));
Mouse(cx, cy, 3, 3, True);
wait(250+random(50));
if (InvCount = +1) then // this is where i need help
repeat
Mouse(cx, cy, 3, 3, True);
Mouse(cx, cy, 3, 3, True);
Mouse(cx, cy, 3, 3, True);
Mouse(cx, cy, 3, 3, True);