Advertisement
Guest User

Untitled

a guest
May 23rd, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.54 KB | None | 0 0
  1. program LogIn;
  2. var x,y: Integer;
  3. MF: String;
  4. const Username = (''); //Type Your Username And Password
  5. Password = (''); //Here
  6.  
  7. Procedure Members;
  8. begin
  9. if(FindColor(x,y, 1120032, 486,325, 650,380)) then
  10. begin
  11. MoveMouseSmoothEx(x+(30),y+(100), 20, 24, 20, 25, 20);
  12. Wait(200);
  13. ClickMouse(x+(30),y+(100), True);
  14. Wait(500);
  15. Typekeys(Username+#13);
  16. Wait(100);
  17. Typekeys(Password+#13);
  18. Wait(3000);
  19.  
  20. if(FindColor(x,y, 6865381, 187,414, 465,411)) then
  21. begin
  22. MoveMouseSmoothEx(x,y+(10), 24, 35, 34, 23, 20);
  23. Wait(400);
  24. ClickMouse(x,y+(10), True);
  25. end;
  26. end;
  27. end;
  28.  
  29. Procedure FreeToPlay;
  30. begin
  31. if(FindColor(x,y, 7207, 299,328, 459,327)) then
  32. begin
  33. MoveMouseSmoothEx(x+(30),y+(100), 20, 24, 20, 25, 20);
  34. Wait(200);
  35. ClickMouse(x+(30),y+(100), True);
  36. Wait(500);
  37. Typekeys(Username+#13);
  38. Wait(100);
  39. Typekeys(Password+#13);
  40. Wait(3000);
  41.  
  42. if(FindColor(x,y, 6865381, 187,414, 465,411)) then
  43. begin
  44. MoveMouseSmoothEx(x,y+(10), 24, 35, 34, 23, 20);
  45. Wait(400);
  46. ClickMouse(x,y+(10), True);
  47. end;
  48. end;
  49. end;
  50.  
  51.  
  52.  
  53. begin
  54. ActivateClient;
  55. MF:= 'Free' //Type Members if you're a member and Free if you're f2p
  56. if(MF = 'Members') then
  57. begin
  58. Members;
  59. end else
  60.  
  61. begin
  62. FreeToPlay;
  63. end;
  64. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement