SRL Archive - First Scripts

My First Script


komodo

2007-12-02 20:00:34

Hey..This is my first Script…It logs you out and log in ur account after.

program Login and loggout;

// Go to line 44 and 45 to enter ur account name and password.

var
x,y: integer;
account: string;
password: string;

procedure Logout;
begin
MoveMouseSmoothEx(38+random(3),464-random(4),20,40,45,25,20);
x:= 38;
y:= 464;
ClickMouse(x+random(3),y+random(4),true);
Wait(1000+random(200));
begin
MoveMouseSmoothEx(642+random(3),486+random(4),20,40,45,25,20);
x:= 642;
y:= 486;
wait(500+random(200));
ClickMouse(x+random(3),y+random(4),true);
Wait(1000+random(200));
begin
MoveMouseSmoothEx(636+random(3),377+random(3),20,40,45,25,20);
x:= 636;
y:= 277;
ClickMouse(x+random(3),y+random(4),true);
end;
end;
end;

procedure Login;
begin
Wait(2000+random(300));
begin
MoveMouseSmoothEx(436+random(5),293+random(5),20,40,45,25,20);
x:=436;
y:=293;
Wait(1000+random(200));
ClickMouse(x+random(4),y+random(4),true);
Wait(1000+random(300));
begin
account:= ''; // Account name
password:= ''; // Account password
SendKeys(account+chr(13));
Wait(1000+random(200));
Sendkeys(password);
begin
MoveMouseSmoothEx(297+random(5),319+random(4),20,40,45,25,20);
x:= 297;
y:= 319;
Wait(1000+random(200));
ClickMouse(x+random(3),y+random(3),true);
Wait(3000+random(200));
begin
MoveMouseSmoothEx(402+random(4),340+random(4),20,40,45,25,20);
x:= 402;
y:= 340;
Wait(500+random(200));
ClickMouse(x+random(3),y+random(4),true);
Wait(1000);
end;
end;
end;
end;
end;

begin
Logout
Login

end.

So what you think about my first script?

Here

2007-12-02 22:59:15

Ummm… There are already procs in SRL to take care of these. I appreciate the effort to make a script, but this is overly simple…

And use constants for the account name and pass. You might want to look over some of the tuts too.

komodo

2007-12-03 08:03:02

Ok…I know this is simple…But i didnt want to start with something complicated. Thanks for help man..Could u tell me on like what next script should i try to make

washimingo

2007-12-03 12:25:31

good work you should be starting

komodo

2007-12-03 12:37:49

From: washimingo
good work you should be starting


I should start what?:p

IPwnz

2007-12-04 15:31:29

Try making an autotalker, and after that try following a couple tuts and do a woodcutter. At least that's what I would recommend.

komodo

2007-12-04 16:59:35

From: IPwnz
Try making an autotalker, and after that try following a couple tuts and do a woodcutter. At least that's what I would recommend.


Ok…i'll do those!

legendimi66

2007-12-05 01:23:49

Fairly good standards. There are usually two spaces each though. The easier way is to use SRL's function of Login and Logout. Nice work though. It looks as if you worked hard on it.
I would suggest a woodcutter and banker as a next script so then you can learn how the banking system works.

washimingo

2007-12-05 15:22:15

From: komodo
I should start what?:p




making scripts

3d-render

2007-12-05 15:23:46

Pretty good for a first script ^_^

SRL Junior Member

2007-12-05 15:54:55

Look alright, for a test script