Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program LogIn;
- var x,y: Integer;
- MF: String;
- const Username = (''); //Type Your Username And Password
- Password = (''); //Here
- Procedure Members;
- begin
- if(FindColor(x,y, 1120032, 486,325, 650,380)) then
- begin
- MoveMouseSmoothEx(x+(30),y+(100), 20, 24, 20, 25, 20);
- Wait(200);
- ClickMouse(x+(30),y+(100), True);
- Wait(500);
- Typekeys(Username+#13);
- Wait(100);
- Typekeys(Password+#13);
- Wait(3000);
- if(FindColor(x,y, 6865381, 187,414, 465,411)) then
- begin
- MoveMouseSmoothEx(x,y+(10), 24, 35, 34, 23, 20);
- Wait(400);
- ClickMouse(x,y+(10), True);
- end;
- end;
- end;
- Procedure FreeToPlay;
- begin
- if(FindColor(x,y, 7207, 299,328, 459,327)) then
- begin
- MoveMouseSmoothEx(x+(30),y+(100), 20, 24, 20, 25, 20);
- Wait(200);
- ClickMouse(x+(30),y+(100), True);
- Wait(500);
- Typekeys(Username+#13);
- Wait(100);
- Typekeys(Password+#13);
- Wait(3000);
- if(FindColor(x,y, 6865381, 187,414, 465,411)) then
- begin
- MoveMouseSmoothEx(x,y+(10), 24, 35, 34, 23, 20);
- Wait(400);
- ClickMouse(x,y+(10), True);
- end;
- end;
- end;
- begin
- ActivateClient;
- MF:= 'Free' //Type Members if you're a member and Free if you're f2p
- if(MF = 'Members') then
- begin
- Members;
- end else
- begin
- FreeToPlay;
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement