SRL Archive - First Scripts

This is my first script enjoy =D

Special thanks to Dusk412 who helped me with the DTM's
and Scissormetimbers.

Please post any helpful comments or suggestions about my scripting you can think of :D

oh yeah dont thank me. bastard. why would u want a script that eats lobs… u should make it into a bh lob eating script. that way it would actually be useful.


oh yeah and u can put clear debug in the main loop instead of the proc.

From: scissormetimbers
oh yeah dont thank me. bastard. why would u want a script that eats lobs… u should make it into a bh lob eating script. that way it would actually be useful.


oh yeah and u can put clear debug in the main loop instead of the proc.

It's supposed to be funny and i did put you in the credits…

does this script auto-bank the lobbies as well?

LOL. Does this script eat up your lobs? LOL.

From: kor
LOL. Does this script eat up your lobs? LOL.

Yes it does =p

its not even a complete script… just find DTM and eat… lol

Haha, I can say that I'm not that blown away mate ;), but I bet you'll get there soon enough. Couple of comments though..


1:

The whole bloody script is 800 kiloBytes, haha. Read some damn tutorials!

2:

For this part are you trying to specify the inventory coordinates? …

552, 207, 734, 463

There are things called Include Coordinates for the Inventory…

MIX1,MIY1,MIX2,MIY2

There ya go..

3:

Typesend('yum yum yum');

Haha, probably unnecessary lol. Especially every time after a loop…. Pretty obvious your an autoer.

4:

Theres not much more I can say, but I'd say to work on your standards a lot. Change this….

procedure Clicklobster;
begin
repeat

lobster := DTMFromString('78DA639464606090604001774BA5194480342' +
       '310FF07024679204398010D302291405A0148701050230D245408' +
       'A8E10312D204D42812560300931A06BE');

     if (FindDTM(lobster, x, y, 552, 207, 734, 463)) then
     begin
     Mouse(x, y, 5, 5, true);
     cleardebug
     writeln('clicked lobster');
     Typesend('yum yum yum');
    end else
    writeln('couldnt find lobster =(');
    until(false);

end;

TO….

procedure Clicklobster;
begin
  repeat
   lobster := DTMFromString('78DA639464606090604001774BA5194480342' +
       '310FF07024679204398010D302291405A0148701050230D245408' +
       'A8E10312D204D42812560300931A06BE');
    if (FindDTM(lobster, x, y, 552, 207, 734, 463)) then
    begin
     Mouse(x, y, 5, 5, true);
     cleardebug
     writeln('clicked lobster');
     Typesend('yum yum yum');
    end else
      writeln('couldnt find lobster =(');
  until(false);
  //blah
end;

That would probably be the correct way….

5:

Make sure that you free your DTMs after you load them like this…

lobster:=DTMFromString(...);//blah
//function
FreeDTM(Lobster);

6:

Your Main loop is very buggy….

begin
SetupSRL;
Activateclient;
Clicklobster;
end.

I'm at least glad you put "ActivateClient" ;). Anyway you didn't even put a repeat/until loop on it!

Did you plan to find the lobster once and stop, haha?

begin
repeat
  SetupSRL;
  Activateclient; 
  Clicklobster;
until(false);
end.

At least something like that, haha.

Neway those were some of my comments.

Good first script! Keep it up! :f:

simpley no use, but good try