Joe
2012-07-16 15:38:14
So I became very distraught over not being able to bot, so I got the idea to help out.
I know, it's very beginner work and easy procedures, but it logs in.
Right now I'm working on getting it to press the "Click to Play" button. I'm sure it's the wait times that are screwing it up, but I'm pretty sure I have the right coords.
It types in the username and password and logs in perfectly, so I have that much done.
Here's my code:
I'm going to be getting color confirmation for these procedures too.
Get back to me with feedback!
~Joe
I know, it's very beginner work and easy procedures, but it logs in.
Right now I'm working on getting it to press the "Click to Play" button. I'm sure it's the wait times that are screwing it up, but I'm pretty sure I have the right coords.
It types in the username and password and logs in perfectly, so I have that much done.
Here's my code:
program SMARTincludeJ; //Temp
{$DEFINE SMART}
{$i SRL/srl.simba}
// No disrespect to Benland100, but with the state of SMART, I'm making this temporary SMART include
// If Benland100 disapproves, this will be removed/deleted
// This is a bit intricate :Þ, the developers can change this in any way they please.
// This is a VERY CRUDE version of the login include I am developing. It will become more intense within hours.
{ Author : Joe
[* This is the procedure that will enter in your Username and Password *]}
procedure LogIn;
begin
Wait((2000)+Random(1000)); // Adjust to lag
MMouse(458,300,1,1);
{MouseBox(400,289,606,306,mouse_left);}
ClickMouse2(mouse_left);
TypeSend('_'); // WRITE YOUR USERNAME HERE! WRITE YOUR USERNAME HERE! WRITE YOUR USERNAME HERE!
// Not sure if the "enter" will go to the Password Box, so I just made it click
Wait((1000)+Random(100));
MMouse(450,344,1,1);
{MouseBox(400,336,604,353,mouse_left);}
ClickMouse2(mouse_left);
TypeSend('_'); // WRITE YOUR PASSWORD HERE! WRITE YOUR PASSWORD HERE! WRITE YOUR PASSWORD HERE!
end;
{ Author : Joe
[* This is the procedure that will deal with the Lobby *]}
procedure LobbyManagement;
// Not doing worldswitching (yet?), just clicking the button...
begin
Wait((3000)+Random(1000));
MMouse(498,596,1,1); // Why is this not working?
{MouseBox(383,585,619,611);}
ClickMouse2(mouse_left);
end;
begin
Smart_server := 11;
Smart_Signed := TRUE;
Smart_Members := FALSE;
Smart_SuperDetail := FALSE;
SetupSRL;
Wait(1000);
Login;
Wait(1000); // Adjust to lag
LobbyManagement;
end.
I'm going to be getting color confirmation for these procedures too.
Get back to me with feedback!
~Joe