SRL Archive - First Scripts

"program BlueJellysAutoTalker;
Var
   X,Y: Integer;
   ExistingUser,Logi,Log,PlayRunescape: Integer;
   User,Pass: String;
   Message1,Message2: String;

procedure login;
Begin
         FindColorTolerance(X,Y,ExistingUser,391,274,532,308,200);
         MoveMouseSmooth(X,Y);
         Sleep(900);
         ClickMouse(X,Y,true);
         Sleep(900);
         SendKeys(User + Chr(13) + Pass);
         Sleep(900);
         FindColorTolerance(X,Y,Logi,232,305,369,336,200);
         MoveMouseSmooth(X,Y);
         Sleep(900);
         ClickMouse(X,Y,true);
         FindColorTolerance(X,Y,PlayRunescape,357,319,478,364,200);
         MoveMouseSmooth(X,Y);
         Sleep(5900);
         ClickMouse(X,Y,true);

end;

procedure click;
begin
FindBitmap(Log,X,Y);
MoveMouse(X,Y);
end;

procedure talk;
begin
          SendKeysWait(Message1 + Chr(13),100,10);
          Sleep(900);
          SendKeysWait(Message2 + Chr(13),100,10);
end;

begin
User:= '';
Pass:= '';
Message1:= 'Change this message.';
Message2:= 'Change this message.';
login;
PlayRunescape:= 1056880;
Logi:= 16777215;
ExistingUser:= 5261384;
repeat;
talk;
until(false);
end.



don't know how to put it in one of those boxes but my cousin helped me with it enjoy

Put "

*code*

" around the code. (Minus the space after the second SCAR)

It looks like you tried. What is
procedure click;
begin
FindBitmap(Log,X,Y);
MoveMouse(X,Y);
end;
for? ;)

From: Hy71194
Put "

*code*

" around the code. (Minus the space after the second SCAR)

It looks like you tried. What is
procedure click;
begin
FindBitmap(Log,X,Y);
MoveMouse(X,Y);
end;
for? ;)

Dont know :p my cousin helped me and he did some of it so not really sure.
And what are the advantages of posting your first script?

From: bluejelly
Dont know :p my cousin helped me and he did some of it so not really sure.
And what are the advantages of posting your first script?

umm, people look at it, tell you if they like it or not..tell you some possible fixes, and you get known a little bit as a not-leecher

btw, if your cousin helped you..don't be afraid to ask questions, then you know what you are doing next time. and not knowing what something does in your script, it doesn't look good

alright thanks for the positive feed back guys

ill start practicing more with scripting and ask my cousin a bit more.


And usually how long does it take so I can get acces to others scripts like the essence miners script I know Wiz makes some pretty nice scripts and wanted to try them out.

Try Using:

Mouse (x,y,0,0,True);
Wait (900);

Instead of:

MoveMouseSmooth(X,Y);
Sleep(900);
ClickMouse(X,Y,true);
Sleep(900);

From: omgnomorenames
Try Using:

Mouse (x,y,0,0,True);
Wait (900);

Instead of:

MoveMouseSmooth(X,Y);
Sleep(900);
ClickMouse(X,Y,true);
Sleep(900);

thanks looks alot cleaner with that to more easier to understand.:spot:

add randoms to your Waits

Wait(1000);

could be

Wait(750+random(500));

it would wait 750 msecs than wait for another period of time between 1-500 msecs

Wizzups Ess Miner is outdated at moment

From: FagetHax0r
Wizzups Ess Miner is outdated at moment

ahh darn that sure sucks was looking forward to using that script in the next few weeks.

He Wil Update it dont worry

From: FagetHax0r
He Wil Update it dont worry

What type of scripts does he offer etc. could I get some information on that that would be great.