API tools faq
paste
Guest User

Untitled

a guest
Oct 3rd, 2018
95
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 45.83 KB | None | 0 0
raw download clone embed print report
  1. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  2. #AutoIt3Wrapper_Icon=..\..\farm_kep\ICO\Farmarama.ico
  3. #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
  4. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  5. #region ---Au3Recorder generated code Start ---
  6. Opt("WinWaitDelay",100)
  7. Opt("WinDetectHiddenText",1)
  8. Opt("MouseCoordMode",0)
  9. #include <Misc.au3>
  10.  
  11.  
  12. if _Singleton("FarmeramaWork",1) = 0 Then
  13.     Msgbox(0,"Figyelmeztetés","Már fut egy pédány!")
  14.     Exit
  15. EndIf
  16.  
  17. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  18.  
  19. ;-----------Gyorsbillentyűk---------------------------------------------------------------
  20. Global $Paused
  21. HotKeySet("{SPACE}", "TogglePause") ;-Pillanatállj-----------
  22. HotKeySet("{ESC}", "Terminate")     ;-Megszakítás------------
  23.  
  24. Global $Reload
  25. HotKeySet("{r}", "Refresh")         ;-Frissítés----------
  26.  
  27. ;----------INI Meghatározása------------------------------------------------
  28. Global $ini="\farm.ini"
  29.  
  30.  
  31.  
  32.  
  33.  
  34. ;----------Ablak méreteszés és pozicionálás----------------------------------------------------------------------------------------------------------------------------------
  35. _WinMove("[TITLE:FARMERAMA | a világ legőrültebb farmja - Google ]", "", "[CLASS:Chrome_RenderWidgetHostHWND; INSTANCE:1]", 0, 0, 1024, 625)
  36. Switch @error
  37. Case 1
  38.   MsgBox(0, "", "Control is not found")
  39. Case 2
  40.   MsgBox(0, "", "Window is not found")
  41. EndSwitch
  42.  
  43.  
  44. Send("{SPACE}")
  45. ;===========Programtest=========================================================================================================================================================
  46. ;Send("{r}")
  47.  
  48. ;~ $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  49. ;~ $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  50.  
  51. ;~ MouseClick("left",995,340,1,$TimeMC1)
  52.  
  53. ;----------1.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  54. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  55. $Sor = "Sor1"
  56.  
  57. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  58. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  59.  
  60. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  61. MouseClick("left",91,269,$var,$TimeMC1)
  62. MouseClick("left",124,247,$var,$TimeMC2)
  63.  
  64. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  65. MouseClick("left",136,248,$var,$TimeMC1)
  66. MouseClick("left",145,223,$var,$TimeMC2)
  67.  
  68. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  69. MouseClick("left",183,226,$var,$TimeMC1)
  70. MouseClick("left",189,218,$var,$TimeMC2)
  71.  
  72. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  73. Local $var = IniReadSection(@ScriptDir&$ini,$Sor)
  74.  
  75.  
  76.             $sAll = ($var[1][1] + $var[2][1] + $var[3][1])
  77. If $sAll > 2 Then
  78. Send("{SPACE}")
  79. Else
  80.  
  81. EndIf
  82. ;----------2.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  83. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  84. $Sor = "Sor2"
  85.  
  86. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  87. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  88.  
  89. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  90. MouseClick("left",87,318,$var,$TimeMC1)
  91. MouseClick("left",126,293,$var,$TimeMC2)
  92.  
  93. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  94. MouseClick("left",133,293,$var,$TimeMC1)
  95. MouseClick("left",145,268,$var,$TimeMC2)
  96.  
  97. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  98. MouseClick("left",180,271,$var,$TimeMC1)
  99. MouseClick("left",191,245,$var,$TimeMC2)
  100.  
  101. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  102. MouseClick("left",228,247,$var,$TimeMC1)
  103. MouseClick("left",238,222,$var,$TimeMC2)
  104.  
  105. ;~ $var = IniRead(@ScriptDir&$ini,$Sor,"5","")  ;-----csak a kerge kertbe!
  106. ;~ MouseClick("left",272,212,$var,$TimeMC1)
  107. ;~ MouseClick("left",325,249,$var,$TimeMC2)
  108.  
  109. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  110. Local $var = IniReadSection(@ScriptDir&$ini,$Sor)
  111.  
  112.  
  113.         $sAll = ($var[1][1] + $var[2][1] + $var[3][1] + $var[4][1])
  114.  
  115. If $sAll > 2 Then
  116. Send("{SPACE}")
  117. Else
  118.  
  119. EndIf
  120. ;----------3.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  121. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  122. $Sor = "Sor3"
  123.  
  124. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  125. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  126.  
  127. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  128. MouseClick("left",90,362,$var,$TimeMC1)
  129. MouseClick("left",125,339,$var,$TimeMC2)
  130.  
  131. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  132. MouseClick("left",136,339,$var,$TimeMC1)
  133. MouseClick("left",146,314,$var,$TimeMC2)
  134.  
  135. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  136. MouseClick("left",181,316,$var,$TimeMC1)
  137. MouseClick("left",191,292,$var,$TimeMC2)
  138.  
  139. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  140. MouseClick("left",227,293,$var,$TimeMC1)
  141. MouseClick("left",238,268,$var,$TimeMC2)
  142.  
  143. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  144. MouseClick("left",272,271,$var,$TimeMC1)
  145. MouseClick("left",282,246,$var,$TimeMC2)
  146.  
  147. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  148. MouseClick("left",316,248,$var,$TimeMC1)
  149. MouseClick("left",329,223,$var,$TimeMC2)
  150.  
  151. ;~ $var = IniRead(@ScriptDir&$ini,$Sor,"7","") ;-----csak a kerge kertbe!
  152. ;~ MouseClick("left",410,196,$var,$TimeMC1)
  153. ;~ MouseClick("left",466,247,$var,$TimeMC2)
  154.  
  155. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  156. Local $var = IniReadSection(@ScriptDir&$ini,$Sor)
  157.  
  158.  
  159.             $sAll = ($var[1][1] + $var[2][1] + $var[3][1] + $var[4][1] + $var[5][1] + $var[6][1])
  160.  
  161. If $sAll > 2 Then
  162. Send("{SPACE}")
  163. Else
  164.  
  165. EndIf
  166. ;----------4.SOR-------------------------------------------------------------------------------------------------------------------------------------------------------
  167. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  168. $Sor = "Sor4"
  169.  
  170. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  171. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  172.  
  173. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  174. MouseClick("left",89,409,$var,$TimeMC1)
  175. MouseClick("left",126,383,$var,$TimeMC2)
  176.  
  177. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  178. MouseClick("left",136,386,$var,$TimeMC1)
  179. MouseClick("left",145,360,$var,$TimeMC2)
  180.  
  181. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  182. MouseClick("left",181,363,$var,$TimeMC1)
  183. MouseClick("left",191,337,$var,$TimeMC2)
  184.  
  185. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  186. MouseClick("left",226,339,$var,$TimeMC1)
  187. MouseClick("left",238,316,$var,$TimeMC2)
  188.  
  189. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  190. MouseClick("left",271,317,$var,$TimeMC1)
  191. MouseClick("left",282,292,$var,$TimeMC2)
  192.  
  193. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  194. MouseClick("left",319,295,$var,$TimeMC1)
  195. MouseClick("left",329,269,$var,$TimeMC2)
  196.  
  197. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  198. MouseClick("left",365,271,$var,$TimeMC1)
  199. MouseClick("left",376,245,$var,$TimeMC2)
  200.  
  201. ;~ $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  202. ;~ MouseClick("left",459,224,$var,$TimeMC1) ;-----csak a kerge kertbe!
  203. ;~ MouseClick("left",511,248,$var,$TimeMC2)
  204.  
  205. ;~ $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  206. ;~ MouseClick("left",496,197,$var,$TimeMC1) ;-----csak a kerge kertbe!
  207. ;~ MouseClick("left",556,249,$var,$TimeMC2)
  208.  
  209. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  210. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  211.  
  212.  
  213.             $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] )
  214.  
  215. If $sAll > 2 Then
  216. Send("{SPACE}")
  217. Else
  218.  
  219. EndIf
  220. ;----------5.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  221. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  222. $Sor = "Sor5"
  223.  
  224. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  225. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  226.  
  227. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  228. MouseClick("left",89,456,$var,$TimeMC1)
  229. MouseClick("left",125,430,$var,$TimeMC2)
  230.  
  231. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  232. MouseClick("left",134,431,$var,$TimeMC1)
  233. MouseClick("left",146,407,$var,$TimeMC2)
  234.  
  235. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  236. MouseClick("left",181,410,$var,$TimeMC1)
  237. MouseClick("left",191,384,$var,$TimeMC2)
  238.  
  239. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  240. MouseClick("left",228,386,$var,$TimeMC1)
  241. MouseClick("left",236,361,$var,$TimeMC2)
  242.  
  243. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  244. MouseClick("left",273,364,$var,$TimeMC1)
  245. MouseClick("left",283,337,$var,$TimeMC2)
  246.  
  247. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  248. MouseClick("left",318,340,$var,$TimeMC1)
  249. MouseClick("left",329,315,$var,$TimeMC2)
  250.  
  251. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  252. MouseClick("left",366,318,$var,$TimeMC1)
  253. MouseClick("left",375,291,$var,$TimeMC2)
  254.  
  255. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  256. MouseClick("left",412,294,$var,$TimeMC1)
  257. MouseClick("left",420,269,$var,$TimeMC2)
  258.  
  259. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  260. MouseClick("left",458,273,$var,$TimeMC1)
  261. MouseClick("left",468,247,$var,$TimeMC2)
  262.  
  263. ;~ $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  264. ;~ MouseClick("left",508,242,$var,$TimeMC1) ;-----csak a kerge kertbe!
  265. ;~ MouseClick("left",556,248,$var,$TimeMC2)
  266.  
  267. ;~ $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  268. ;~ MouseClick("left",546,215,$var,$TimeMC1) ;-----csak a kerge kertbe!
  269. ;~ MouseClick("left",603,248,$var,$TimeMC2)
  270.  
  271. ;~ $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  272. ;~ MouseClick("left",595,197,$var,$TimeMC1) ;-----csak a kerge kertbe!
  273. ;~ MouseClick("left",648,248,$var,$TimeMC2)
  274.  
  275.  
  276. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  277. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  278.  
  279.  
  280. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] )
  281.  
  282. If $sAll > 2 Then
  283. Send("{SPACE}")
  284. Else
  285.  
  286. EndIf
  287. ;----------6.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  288. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  289. $Sor = "Sor6"
  290.  
  291. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  292. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  293.  
  294. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  295. MouseClick("left",88,503,$var,$TimeMC1)
  296. MouseClick("left",126,475,$var,$TimeMC2)
  297.  
  298. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  299. MouseClick("left",137,479,$var,$TimeMC1)
  300. MouseClick("left",145,452,$var,$TimeMC2)
  301.  
  302. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  303. MouseClick("left",182,456,$var,$TimeMC1)
  304. MouseClick("left",189,431,$var,$TimeMC2)
  305.  
  306. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  307. MouseClick("left",227,434,$var,$TimeMC1)
  308. MouseClick("left",237,406,$var,$TimeMC2)
  309.  
  310. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  311. MouseClick("left",272,411,$var,$TimeMC1)
  312. MouseClick("left",282,385,$var,$TimeMC2)
  313.  
  314. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  315. MouseClick("left",319,388,$var,$TimeMC1)
  316. MouseClick("left",328,361,$var,$TimeMC2)
  317.  
  318. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  319. MouseClick("left",364,364,$var,$TimeMC1)
  320. MouseClick("left",374,337,$var,$TimeMC2)
  321.  
  322. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  323. MouseClick("left",410,342,$var,$TimeMC1)
  324. MouseClick("left",420,315,$var,$TimeMC2)
  325.  
  326. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  327. MouseClick("left",458,320,$var,$TimeMC1)
  328. MouseClick("left",467,293,$var,$TimeMC2)
  329.  
  330. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  331. MouseClick("left",506,298,$var,$TimeMC1)
  332. MouseClick("left",511,268,$var,$TimeMC2)
  333.  
  334. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  335. MouseClick("left",549,274,$var,$TimeMC1)
  336. MouseClick("left",558,246,$var,$TimeMC2)
  337.  
  338. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  339. MouseClick("left",596,251,$var,$TimeMC1)
  340. MouseClick("left",604,222,$var,$TimeMC2)
  341.  
  342. $var = IniRead(@ScriptDir&$ini,$Sor,"13","")
  343. MouseClick("left",641,229,$var,$TimeMC1)
  344. MouseClick("left",650,220,$var,$TimeMC2)
  345.  
  346. ;~ $var = IniRead(@ScriptDir&$ini,$Sor,"14","")
  347. ;~ MouseClick("left",689,200,$var,$TimeMC1) ;-----csak a kerge kertbe!
  348. ;~ MouseClick("left",741,248,$var,$TimeMC2)
  349.  
  350. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  351. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  352.  
  353.  
  354. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1] + $s[13][1] )
  355.  
  356. If $sAll > 2 Then
  357. Send("{SPACE}")
  358. Else
  359.  
  360. EndIf
  361. ;----------7.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  362. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  363. $Sor = "Sor7"
  364.  
  365. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  366. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  367.  
  368. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  369. MouseClick("left",88,547,$var,$TimeMC1)
  370. MouseClick("left",127,521,$var,$TimeMC2)
  371.  
  372. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  373. MouseClick("left",133,525,$var,$TimeMC1)
  374. MouseClick("left",146,499,$var,$TimeMC2)
  375.  
  376. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  377. MouseClick("left",181,502,$var,$TimeMC1)
  378. MouseClick("left",190,475,$var,$TimeMC2)
  379.  
  380. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  381. MouseClick("left",228,478,$var,$TimeMC1)
  382. MouseClick("left",237,451,$var,$TimeMC2)
  383.  
  384. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  385. MouseClick("left",273,456,$var,$TimeMC1)
  386. MouseClick("left",282,429,$var,$TimeMC2)
  387.  
  388. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  389. MouseClick("left",318,433,$var,$TimeMC1)
  390. MouseClick("left",328,406,$var,$TimeMC2)
  391.  
  392. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  393. MouseClick("left",365,411,$var,$TimeMC1)
  394. MouseClick("left",376,382,$var,$TimeMC2)
  395.  
  396. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  397. MouseClick("left",411,390,$var,$TimeMC1)
  398. MouseClick("left",421,359,$var,$TimeMC2)
  399.  
  400. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  401. MouseClick("left",457,365,$var,$TimeMC1)
  402. MouseClick("left",468,338,$var,$TimeMC2)
  403.  
  404. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  405. MouseClick("left",503,343,$var,$TimeMC1)
  406. MouseClick("left",511,315,$var,$TimeMC2)
  407.  
  408. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  409. MouseClick("left",549,319,$var,$TimeMC1)
  410. MouseClick("left",557,292,$var,$TimeMC2)
  411.  
  412. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  413. MouseClick("left",595,297,$var,$TimeMC1)
  414. MouseClick("left",604,269,$var,$TimeMC2)
  415.  
  416. $var = IniRead(@ScriptDir&$ini,$Sor,"13","")
  417. MouseClick("left",641,274,$var,$TimeMC1)
  418. MouseClick("left",651,246,$var,$TimeMC2)
  419.  
  420. $var = IniRead(@ScriptDir&$ini,$Sor,"14","")
  421. MouseClick("left",687,250,$var,$TimeMC1)
  422. MouseClick("left",697,222,$var,$TimeMC2)
  423.  
  424. $var = IniRead(@ScriptDir&$ini,$Sor,"15","")
  425. MouseClick("left",733,227,$var,$TimeMC1)
  426. MouseClick("left",743,219,$var,$TimeMC2)
  427.  
  428. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  429. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  430.  
  431. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1] + $s[13][1] + $s[14][1] + $s[15][1])
  432.  
  433. If $sAll > 2 Then
  434. Send("{SPACE}")
  435. Else
  436.  
  437. EndIf
  438. ;----------8.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  439. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  440. $Sor = "Sor8"
  441.  
  442. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  443. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  444.  
  445. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  446. MouseClick("left",89,596,$var,$TimeMC1)
  447. MouseClick("left",125,568,$var,$TimeMC2)
  448.  
  449. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  450. MouseClick("left",133,571,$var,$TimeMC1)
  451. MouseClick("left",144,546,$var,$TimeMC2)
  452.  
  453. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  454. MouseClick("left",180,550,$var,$TimeMC1)
  455. MouseClick("left",190,522,$var,$TimeMC2)
  456.  
  457. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  458. MouseClick("left",226,527,$var,$TimeMC1)
  459. MouseClick("left",236,498,$var,$TimeMC2)
  460.  
  461. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  462. MouseClick("left",272,503,$var,$TimeMC1)
  463. MouseClick("left",282,475,$var,$TimeMC2)
  464.  
  465. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  466. MouseClick("left",319,479,$var,$TimeMC1)
  467. MouseClick("left",328,455,$var,$TimeMC2)
  468.  
  469. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  470. MouseClick("left",364,456,$var,$TimeMC1)
  471. MouseClick("left",374,431,$var,$TimeMC2)
  472.  
  473. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  474. MouseClick("left",412,433,$var,$TimeMC1)
  475. MouseClick("left",419,407,$var,$TimeMC2)
  476.  
  477. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  478. MouseClick("left",458,409,$var,$TimeMC1)
  479. MouseClick("left",466,385,$var,$TimeMC2)
  480.  
  481. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  482. MouseClick("left",503,388,$var,$TimeMC1)
  483. MouseClick("left",511,361,$var,$TimeMC2)
  484.  
  485. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  486. MouseClick("left",549,364,$var,$TimeMC1)
  487. MouseClick("left",557,338,$var,$TimeMC2)
  488.  
  489. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  490. MouseClick("left",594,343,$var,$TimeMC1)
  491. MouseClick("left",603,315,$var,$TimeMC2)
  492.  
  493. $var = IniRead(@ScriptDir&$ini,$Sor,"13","")
  494. MouseClick("left",641,320,$var,$TimeMC1)
  495. MouseClick("left",650,292,$var,$TimeMC2)
  496.  
  497. $var = IniRead(@ScriptDir&$ini,$Sor,"14","")
  498. MouseClick("left",687,296,$var,$TimeMC1)
  499. MouseClick("left",697,269,$var,$TimeMC2)
  500.  
  501. $var = IniRead(@ScriptDir&$ini,$Sor,"15","")
  502. MouseClick("left",733,272,$var,$TimeMC1)
  503. MouseClick("left",742,245,$var,$TimeMC2)
  504.  
  505. $var = IniRead(@ScriptDir&$ini,$Sor,"16","")
  506. MouseClick("left",779,252,$var,$TimeMC1)
  507. MouseClick("left",787,223,$var,$TimeMC2)
  508.  
  509. $var = IniRead(@ScriptDir&$ini,$Sor,"17","")
  510. MouseClick("left",825,227,$var,$TimeMC1)
  511. MouseClick("left",833,219,$var,$TimeMC2)
  512.  
  513. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  514. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  515.  
  516. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1] + $s[13][1] + $s[14][1] + $s[15][1] + $s[16][1] + $s[17][1] )
  517.  
  518. If $sAll > 2 Then
  519. Send("{SPACE}")
  520. Else
  521.  
  522. EndIf
  523. ;----------9.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  524. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  525. $Sor = "Sor9"
  526.  
  527. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  528. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  529.  
  530. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  531. MouseClick("left",89,640,$var,$TimeMC1)
  532. MouseClick("left",124,613,$var,$TimeMC2)
  533.  
  534. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  535. MouseClick("left",135,617,$var,$TimeMC1)
  536. MouseClick("left",142,591,$var,$TimeMC2)
  537.  
  538. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  539. MouseClick("left",180,595,$var,$TimeMC1)
  540. MouseClick("left",190,565,$var,$TimeMC2)
  541.  
  542. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  543. MouseClick("left",226,574,$var,$TimeMC1)
  544. MouseClick("left",235,544,$var,$TimeMC2)
  545.  
  546. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  547. MouseClick("left",273,550,$var,$TimeMC1)
  548. MouseClick("left",282,522,$var,$TimeMC2)
  549.  
  550. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  551. MouseClick("left",320,527,$var,$TimeMC1)
  552. MouseClick("left",328,499,$var,$TimeMC2)
  553.  
  554. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  555. MouseClick("left",364,501,$var,$TimeMC1)
  556. MouseClick("left",374,476,$var,$TimeMC2)
  557.  
  558. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  559. MouseClick("left",412,477,$var,$TimeMC1)
  560. MouseClick("left",419,454,$var,$TimeMC2)
  561.  
  562. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  563. MouseClick("left",457,456,$var,$TimeMC1)
  564. MouseClick("left",465,429,$var,$TimeMC2)
  565.  
  566. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  567. MouseClick("left",503,433,$var,$TimeMC1)
  568. MouseClick("left",512,407,$var,$TimeMC2)
  569.  
  570. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  571. MouseClick("left",549,412,$var,$TimeMC1)
  572. MouseClick("left",558,384,$var,$TimeMC2)
  573.  
  574. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  575. MouseClick("left",595,388,$var,$TimeMC1)
  576. MouseClick("left",603,361,$var,$TimeMC2)
  577.  
  578. $var = IniRead(@ScriptDir&$ini,$Sor,"13","")
  579. MouseClick("left",640,365,$var,$TimeMC1)
  580. MouseClick("left",648,339,$var,$TimeMC2)
  581.  
  582. $var = IniRead(@ScriptDir&$ini,$Sor,"14","")
  583. MouseClick("left",687,341,$var,$TimeMC1)
  584. MouseClick("left",695,315,$var,$TimeMC2)
  585.  
  586. $var = IniRead(@ScriptDir&$ini,$Sor,"15","")
  587. MouseClick("left",733,317,$var,$TimeMC1)
  588. MouseClick("left",743,292,$var,$TimeMC2)
  589.  
  590. $var = IniRead(@ScriptDir&$ini,$Sor,"16","")
  591. MouseClick("left",780,296,$var,$TimeMC1)
  592. MouseClick("left",789,268,$var,$TimeMC2)
  593.  
  594. $var = IniRead(@ScriptDir&$ini,$Sor,"17","")
  595. MouseClick("left",826,272,$var,$TimeMC1)
  596. MouseClick("left",833,246,$var,$TimeMC2)
  597.  
  598. $var = IniRead(@ScriptDir&$ini,$Sor,"18","")
  599. MouseClick("left",872,250,$var,$TimeMC1)
  600. MouseClick("left",850,224,$var,$TimeMC2)
  601.  
  602. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  603. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  604.  
  605. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1] + $s[13][1] + $s[14][1] + $s[15][1] + $s[16][1] + $s[17][1] + $s[18][1] )
  606.  
  607. If $sAll > 2 Then
  608. Send("{SPACE}")
  609. Else
  610.  
  611. EndIf
  612. ;---------10.SOR------------------------------------------------------------------------------------------------------------------------------------------------------
  613. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  614. $Sor = "Sor10"
  615.  
  616. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  617. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  618.  
  619. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  620. MouseClick("left",88,685,$var,$TimeMC1)
  621. MouseClick("left",125,660,$var,$TimeMC2)
  622.  
  623. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  624. MouseClick("left",133,664,$var,$TimeMC1)
  625. MouseClick("left",144,637,$var,$TimeMC2)
  626.  
  627. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  628. MouseClick("left",182,640,$var,$TimeMC1)
  629. MouseClick("left",188,614,$var,$TimeMC2)
  630.  
  631. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  632. MouseClick("left",227,618,$var,$TimeMC1)
  633. MouseClick("left",236,591,$var,$TimeMC2)
  634.  
  635. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  636. MouseClick("left",273,597,$var,$TimeMC1)
  637. MouseClick("left",283,567,$var,$TimeMC2)
  638.  
  639. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  640. MouseClick("left",319,571,$var,$TimeMC1)
  641. MouseClick("left",327,545,$var,$TimeMC2)
  642.  
  643. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  644. MouseClick("left",367,546,$var,$TimeMC1)
  645. MouseClick("left",374,523,$var,$TimeMC2)
  646.  
  647. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  648. MouseClick("left",410,523,$var,$TimeMC1)
  649. MouseClick("left",420,498,$var,$TimeMC2)
  650.  
  651. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  652. MouseClick("left",460,500,$var,$TimeMC1)
  653. MouseClick("left",466,476,$var,$TimeMC2)
  654.  
  655. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  656. MouseClick("left",504,478,$var,$TimeMC1)
  657. MouseClick("left",511,454,$var,$TimeMC2)
  658.  
  659. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  660. MouseClick("left",550,455,$var,$TimeMC1)
  661. MouseClick("left",558,431,$var,$TimeMC2)
  662.  
  663. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  664. MouseClick("left",596,434,$var,$TimeMC1)
  665. MouseClick("left",604,407,$var,$TimeMC2)
  666.  
  667. $var = IniRead(@ScriptDir&$ini,$Sor,"13","")
  668. MouseClick("left",641,411,$var,$TimeMC1)
  669. MouseClick("left",649,385,$var,$TimeMC2)
  670.  
  671. $var = IniRead(@ScriptDir&$ini,$Sor,"14","")
  672. MouseClick("left",687,387,$var,$TimeMC1)
  673. MouseClick("left",696,361,$var,$TimeMC2)
  674.  
  675. $var = IniRead(@ScriptDir&$ini,$Sor,"15","")
  676. MouseClick("left",731,364,$var,$TimeMC1)
  677. MouseClick("left",740,338,$var,$TimeMC2)
  678.  
  679. $var = IniRead(@ScriptDir&$ini,$Sor,"16","")
  680. MouseClick("left",778,341,$var,$TimeMC1)
  681. MouseClick("left",787,315,$var,$TimeMC2)
  682.  
  683. $var = IniRead(@ScriptDir&$ini,$Sor,"17","")
  684. MouseClick("left",825,318,$var,$TimeMC1)
  685. MouseClick("left",834,292,$var,$TimeMC2)
  686.  
  687. $var = IniRead(@ScriptDir&$ini,$Sor,"18","")
  688. MouseClick("left",872,296,$var,$TimeMC1)
  689. MouseClick("left",851,269,$var,$TimeMC2)
  690.  
  691. $var = IniRead(@ScriptDir&$ini,$Sor,"19","")
  692. MouseClick("left",917,273,$var,$TimeMC1)
  693. MouseClick("left",850,247,$var,$TimeMC2)
  694.  
  695. $var = IniRead(@ScriptDir&$ini,$Sor,"20","")
  696. MouseClick("left",966,234,$var,$TimeMC1)
  697. MouseClick("left",851,225,$var,$TimeMC2)
  698.  
  699. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  700. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  701.  
  702. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1] + $s[13][1] + $s[14][1] + $s[15][1] + $s[16][1] + $s[17][1] + $s[18][1] + $s[19][1] + $s[20][1] )
  703.  
  704. If $sAll > 2 Then
  705. Send("{SPACE}")
  706. Else
  707.  
  708. EndIf
  709. ;----------11.SOR-----------------------------------------------------------------------------------------------------------------------------------------------------
  710. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  711. $Sor = "Sor11"
  712.  
  713. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  714. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  715.  
  716. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  717. MouseClick("left",181,682,$var,$TimeMC1)
  718. MouseClick("left",190,660,$var,$TimeMC2)
  719.  
  720. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  721. MouseClick("left",226,662,$var,$TimeMC1)
  722. MouseClick("left",234,635,$var,$TimeMC2)
  723.  
  724. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  725. MouseClick("left",274,642,$var,$TimeMC1)
  726. MouseClick("left",281,613,$var,$TimeMC2)
  727.  
  728. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  729. MouseClick("left",318,618,$var,$TimeMC1)
  730. MouseClick("left",328,590,$var,$TimeMC2)
  731.  
  732. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  733. MouseClick("left",365,594,$var,$TimeMC1)
  734. MouseClick("left",372,566,$var,$TimeMC2)
  735.  
  736. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  737. MouseClick("left",411,572,$var,$TimeMC1)
  738. MouseClick("left",418,544,$var,$TimeMC2)
  739.  
  740. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  741. MouseClick("left",457,546,$var,$TimeMC1)
  742. MouseClick("left",464,522,$var,$TimeMC2)
  743.  
  744. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  745. MouseClick("left",503,526,$var,$TimeMC1)
  746. MouseClick("left",511,498,$var,$TimeMC2)
  747.  
  748. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  749. MouseClick("left",550,503,$var,$TimeMC1)
  750. MouseClick("left",556,477,$var,$TimeMC2)
  751.  
  752. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  753. MouseClick("left",594,479,$var,$TimeMC1)
  754. MouseClick("left",605,452,$var,$TimeMC2)
  755.  
  756. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  757. MouseClick("left",643,455,$var,$TimeMC1)
  758. MouseClick("left",650,430,$var,$TimeMC2)
  759.  
  760. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  761. MouseClick("left",687,432,$var,$TimeMC1)
  762. MouseClick("left",695,407,$var,$TimeMC2)
  763.  
  764. $var = IniRead(@ScriptDir&$ini,$Sor,"13","")
  765. MouseClick("left",732,409,$var,$TimeMC1)
  766. MouseClick("left",741,384,$var,$TimeMC2)
  767.  
  768. $var = IniRead(@ScriptDir&$ini,$Sor,"14","")
  769. MouseClick("left",779,387,$var,$TimeMC1)
  770. MouseClick("left",788,360,$var,$TimeMC2)
  771.  
  772. $var = IniRead(@ScriptDir&$ini,$Sor,"15","")
  773. MouseClick("left",826,364,$var,$TimeMC1)
  774. MouseClick("left",834,339,$var,$TimeMC2)
  775.  
  776. $var = IniRead(@ScriptDir&$ini,$Sor,"16","")
  777. MouseClick("left",874,341,$var,$TimeMC1)
  778. MouseClick("left",851,315,$var,$TimeMC2)
  779.  
  780. $var = IniRead(@ScriptDir&$ini,$Sor,"17","")
  781. MouseClick("left",915,318,$var,$TimeMC1)
  782. MouseClick("left",851,291,$var,$TimeMC2)
  783.  
  784. $var = IniRead(@ScriptDir&$ini,$Sor,"18","")
  785. MouseClick("left",963,296,$var,$TimeMC1)
  786. MouseClick("left",851,271,$var,$TimeMC2)
  787. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  788. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  789.  
  790. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1] + $s[13][1] + $s[14][1] + $s[15][1] + $s[16][1] + $s[17][1] + $s[18][1] )
  791.  
  792. If $sAll > 2 Then
  793. Send("{SPACE}")
  794. Else
  795.  
  796. EndIf
  797. ;----------12.SOR-----------------------------------------------------------------------------------------------------------------------------------------------------
  798. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  799. $Sor = "Sor12"
  800.  
  801. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  802. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  803.  
  804. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  805. MouseClick("left",273,685,$var,$TimeMC1)
  806. MouseClick("left",284,660,$var,$TimeMC2)
  807.  
  808. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  809. MouseClick("left",318,662,$var,$TimeMC1)
  810. MouseClick("left",328,636,$var,$TimeMC2)
  811.  
  812. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  813. MouseClick("left",364,640,$var,$TimeMC1)
  814. MouseClick("left",374,614,$var,$TimeMC2)
  815.  
  816. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  817. MouseClick("left",409,617,$var,$TimeMC1)
  818. MouseClick("left",419,590,$var,$TimeMC2)
  819.  
  820. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  821. MouseClick("left",456,595,$var,$TimeMC1)
  822. MouseClick("left",465,568,$var,$TimeMC2)
  823.  
  824. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  825. MouseClick("left",503,570,$var,$TimeMC1)
  826. MouseClick("left",512,546,$var,$TimeMC2)
  827.  
  828. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  829. MouseClick("left",549,546,$var,$TimeMC1)
  830. MouseClick("left",558,522,$var,$TimeMC2)
  831.  
  832. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  833. MouseClick("left",595,525,$var,$TimeMC1)
  834. MouseClick("left",605,499,$var,$TimeMC2)
  835.  
  836. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  837. MouseClick("left",641,503,$var,$TimeMC1)
  838. MouseClick("left",649,476,$var,$TimeMC2)
  839.  
  840. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  841. MouseClick("left",687,479,$var,$TimeMC1)
  842. MouseClick("left",695,454,$var,$TimeMC2)
  843.  
  844. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  845. MouseClick("left",733,458,$var,$TimeMC1)
  846. MouseClick("left",741,430,$var,$TimeMC2)
  847.  
  848. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  849. MouseClick("left",778,432,$var,$TimeMC1)
  850. MouseClick("left",787,408,$var,$TimeMC2)
  851.  
  852. $var = IniRead(@ScriptDir&$ini,$Sor,"13","")
  853. MouseClick("left",827,411,$var,$TimeMC1)
  854. MouseClick("left",835,385,$var,$TimeMC2)
  855.  
  856. $var = IniRead(@ScriptDir&$ini,$Sor,"14","")
  857. MouseClick("left",874,386,$var,$TimeMC1)
  858. MouseClick("left",850,362,$var,$TimeMC2)
  859.  
  860. $var = IniRead(@ScriptDir&$ini,$Sor,"15","")
  861. MouseClick("left",920,363,$var,$TimeMC1)
  862. MouseClick("left",851,338,$var,$TimeMC2)
  863.  
  864. $var = IniRead(@ScriptDir&$ini,$Sor,"16","")
  865. MouseClick("left",962,340,$var,$TimeMC1)
  866. MouseClick("left",851,315,$var,$TimeMC2)
  867.  
  868. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  869. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  870.  
  871. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1] + $s[13][1] + $s[14][1] + $s[15][1] + $s[16][1] )
  872.  
  873. If $sAll > 2 Then
  874. Send("{SPACE}")
  875. Else
  876.  
  877. EndIf
  878. ;-----------13.SOR----------------------------------------------------------------------------------------------------------------------------------------------------
  879. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  880. $Sor = "Sor13"
  881.  
  882. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  883. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  884.  
  885. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  886. MouseClick("left",366,687,$var,$TimeMC1)
  887. MouseClick("left",376,660,$var,$TimeMC2)
  888.  
  889. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  890. MouseClick("left",412,663,$var,$TimeMC1)
  891. MouseClick("left",421,637,$var,$TimeMC2)
  892.  
  893. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  894. MouseClick("left",457,641,$var,$TimeMC1)
  895. MouseClick("left",466,613,$var,$TimeMC2)
  896.  
  897. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  898. MouseClick("left",503,617,$var,$TimeMC1)
  899. MouseClick("left",512,591,$var,$TimeMC2)
  900.  
  901. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  902. MouseClick("left",549,594,$var,$TimeMC1)
  903. MouseClick("left",556,568,$var,$TimeMC2)
  904.  
  905. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  906. MouseClick("left",594,572,$var,$TimeMC1)
  907. MouseClick("left",603,545,$var,$TimeMC2)
  908.  
  909. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  910. MouseClick("left",641,547,$var,$TimeMC1)
  911. MouseClick("left",650,522,$var,$TimeMC2)
  912.  
  913. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  914. MouseClick("left",689,526,$var,$TimeMC1)
  915. MouseClick("left",695,499,$var,$TimeMC2)
  916.  
  917. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  918. MouseClick("left",734,503,$var,$TimeMC1)
  919. MouseClick("left",742,476,$var,$TimeMC2)
  920.  
  921. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  922. MouseClick("left",780,480,$var,$TimeMC1)
  923. MouseClick("left",788,452,$var,$TimeMC2)
  924.  
  925. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  926. MouseClick("left",823,454,$var,$TimeMC1)
  927. MouseClick("left",834,430,$var,$TimeMC2)
  928.  
  929. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  930. MouseClick("left",873,432,$var,$TimeMC1)
  931. MouseClick("left",852,407,$var,$TimeMC2)
  932.  
  933. $var = IniRead(@ScriptDir&$ini,$Sor,"13","")
  934. MouseClick("left",916,410,$var,$TimeMC1)
  935. MouseClick("left",852,385,$var,$TimeMC2)
  936.  
  937. $var = IniRead(@ScriptDir&$ini,$Sor,"14","")
  938. MouseClick("left",964,387,$var,$TimeMC1)
  939. MouseClick("left",852,362,$var,$TimeMC2)
  940.  
  941. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  942. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  943.  
  944. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1] + $s[13][1] + $s[14][1])
  945.  
  946. If $sAll > 2 Then
  947. Send("{SPACE}")
  948. Else
  949.  
  950. EndIf
  951. ;----------14.SOR-----------------------------------------------------------------------------------------------------------------------------------------------------
  952. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  953. $Sor = "Sor14"
  954.  
  955. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  956. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  957.  
  958. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  959. MouseClick("left",458,686,$var,$TimeMC1)
  960. MouseClick("left",465,660,$var,$TimeMC2)
  961.  
  962. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  963. MouseClick("left",504,661,$var,$TimeMC1)
  964. MouseClick("left",513,637,$var,$TimeMC2)
  965.  
  966. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  967. MouseClick("left",549,640,$var,$TimeMC1)
  968. MouseClick("left",557,613,$var,$TimeMC2)
  969.  
  970. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  971. MouseClick("left",596,615,$var,$TimeMC1)
  972. MouseClick("left",604,592,$var,$TimeMC2)
  973.  
  974. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  975. MouseClick("left",641,591,$var,$TimeMC1)
  976. MouseClick("left",649,569,$var,$TimeMC2)
  977.  
  978. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  979. MouseClick("left",688,567,$var,$TimeMC1)
  980. MouseClick("left",694,544,$var,$TimeMC2)
  981.  
  982. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  983. MouseClick("left",734,546,$var,$TimeMC1)
  984. MouseClick("left",743,522,$var,$TimeMC2)
  985.  
  986. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  987. MouseClick("left",778,525,$var,$TimeMC1)
  988. MouseClick("left",787,499,$var,$TimeMC2)
  989.  
  990. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  991. MouseClick("left",825,503,$var,$TimeMC1)
  992. MouseClick("left",835,475,$var,$TimeMC2)
  993.  
  994. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  995. MouseClick("left",874,478,$var,$TimeMC1)
  996. MouseClick("left",851,453,$var,$TimeMC2)
  997.  
  998. $var = IniRead(@ScriptDir&$ini,$Sor,"11","")
  999. MouseClick("left",921,457,$var,$TimeMC1)
  1000. MouseClick("left",852,430,$var,$TimeMC2)
  1001.  
  1002. $var = IniRead(@ScriptDir&$ini,$Sor,"12","")
  1003. MouseClick("left",965,431,$var,$TimeMC1)
  1004. MouseClick("left",852,407,$var,$TimeMC2)
  1005.  
  1006. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  1007. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  1008.  
  1009. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] + $s[11][1] + $s[12][1])
  1010.  
  1011. If $sAll > 2 Then
  1012. Send("{SPACE}")
  1013. Else
  1014.  
  1015. EndIf
  1016. ;----------15.SOR-----------------------------------------------------------------------------------------------------------------------------------------------------
  1017. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  1018. $Sor = "Sor15"
  1019.  
  1020. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  1021. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  1022.  
  1023. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  1024. MouseClick("left",550,686,$var,$TimeMC1)
  1025. MouseClick("left",559,662,$var,$TimeMC2)
  1026.  
  1027. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  1028. MouseClick("left",595,662,$var,$TimeMC1)
  1029. MouseClick("left",603,637,$var,$TimeMC2)
  1030.  
  1031. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  1032. MouseClick("left",641,640,$var,$TimeMC1)
  1033. MouseClick("left",649,613,$var,$TimeMC2)
  1034.  
  1035. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  1036. MouseClick("left",688,616,$var,$TimeMC1)
  1037. MouseClick("left",696,591,$var,$TimeMC2)
  1038.  
  1039. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  1040. MouseClick("left",734,591,$var,$TimeMC1)
  1041. MouseClick("left",742,569,$var,$TimeMC2)
  1042.  
  1043. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  1044. MouseClick("left",779,572,$var,$TimeMC1)
  1045. MouseClick("left",788,546,$var,$TimeMC2)
  1046.  
  1047. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  1048. MouseClick("left",826,547,$var,$TimeMC1)
  1049. MouseClick("left",834,522,$var,$TimeMC2)
  1050.  
  1051. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  1052. MouseClick("left",873,524,$var,$TimeMC1)
  1053. MouseClick("left",852,500,$var,$TimeMC2)
  1054.  
  1055. $var = IniRead(@ScriptDir&$ini,$Sor,"9","")
  1056. MouseClick("left",919,500,$var,$TimeMC1)
  1057. MouseClick("left",852,476,$var,$TimeMC2)
  1058.  
  1059. $var = IniRead(@ScriptDir&$ini,$Sor,"10","")
  1060. MouseClick("left",963,478,$var,$TimeMC1)
  1061. MouseClick("left",851,454,$var,$TimeMC2)
  1062.  
  1063. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  1064. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  1065.  
  1066. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] + $s[9][1] + $s[10][1] )
  1067.  
  1068. If $sAll > 2 Then
  1069. Send("{SPACE}")
  1070. Else
  1071.  
  1072. EndIf
  1073. ;----------16.SOR-----------------------------------------------------------------------------------------------------------------------------------------------------
  1074. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  1075. $Sor = "Sor16"
  1076.  
  1077. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  1078. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  1079.  
  1080. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  1081. MouseClick("left",641,686,$var,$TimeMC1)
  1082. MouseClick("left",653,659,$var,$TimeMC2)
  1083.  
  1084. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  1085. MouseClick("left",687,662,$var,$TimeMC1)
  1086. MouseClick("left",695,637,$var,$TimeMC2)
  1087.  
  1088. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  1089. MouseClick("left",735,641,$var,$TimeMC1)
  1090. MouseClick("left",742,614,$var,$TimeMC2)
  1091.  
  1092. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  1093. MouseClick("left",780,617,$var,$TimeMC1)
  1094. MouseClick("left",787,590,$var,$TimeMC2)
  1095.  
  1096. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  1097. MouseClick("left",824,594,$var,$TimeMC1)
  1098. MouseClick("left",835,567,$var,$TimeMC2)
  1099.  
  1100. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  1101. MouseClick("left",871,572,$var,$TimeMC1)
  1102. MouseClick("left",851,547,$var,$TimeMC2)
  1103.  
  1104. $var = IniRead(@ScriptDir&$ini,$Sor,"7","")
  1105. MouseClick("left",916,547,$var,$TimeMC1)
  1106. MouseClick("left",852,523,$var,$TimeMC2)
  1107.  
  1108. $var = IniRead(@ScriptDir&$ini,$Sor,"8","")
  1109. MouseClick("left",964,524,$var,$TimeMC1)
  1110. MouseClick("left",851,500,$var,$TimeMC2)
  1111.  
  1112. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  1113. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  1114.  
  1115. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1] + $s[7][1] + $s[8][1] )
  1116.  
  1117. If $sAll > 2 Then
  1118. Send("{SPACE}")
  1119. Else
  1120.  
  1121. EndIf
  1122. ;----------17.SOR-----------------------------------------------------------------------------------------------------------------------------------------------------
  1123. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  1124. $Sor = "Sor17"
  1125.  
  1126. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  1127. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  1128.  
  1129. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  1130. MouseClick("left",735,684,$var,$TimeMC1)
  1131. MouseClick("left",742,658,$var,$TimeMC2)
  1132.  
  1133. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  1134. MouseClick("left",780,665,$var,$TimeMC1)
  1135. MouseClick("left",788,636,$var,$TimeMC2)
  1136.  
  1137. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  1138. MouseClick("left",825,641,$var,$TimeMC1)
  1139. MouseClick("left",833,613,$var,$TimeMC2)
  1140.  
  1141. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  1142. MouseClick("left",874,620,$var,$TimeMC1)
  1143. MouseClick("left",850,590,$var,$TimeMC2)
  1144.  
  1145. $var = IniRead(@ScriptDir&$ini,$Sor,"5","")
  1146. MouseClick("left",918,593,$var,$TimeMC1)
  1147. MouseClick("left",851,568,$var,$TimeMC2)
  1148.  
  1149. $var = IniRead(@ScriptDir&$ini,$Sor,"6","")
  1150. MouseClick("left",964,569,$var,$TimeMC1)
  1151. MouseClick("left",852,545,$var,$TimeMC2)
  1152.  
  1153. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  1154. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  1155.  
  1156. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1] + $s[5][1] + $s[6][1])
  1157.  
  1158. If $sAll > 2 Then
  1159. Send("{SPACE}")
  1160. Else
  1161.  
  1162. EndIf
  1163. ;----------18.SOR-----------------------------------------------------------------------------------------------------------------------------------------------------
  1164. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  1165. $Sor = "Sor18"
  1166.  
  1167. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  1168. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  1169.  
  1170. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  1171. MouseClick("left",826,685,$var,$TimeMC1)
  1172. MouseClick("left",836,660,$var,$TimeMC2)
  1173.  
  1174. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  1175. MouseClick("left",873,663,$var,$TimeMC1)
  1176. MouseClick("left",851,638,$var,$TimeMC2)
  1177.  
  1178.  
  1179. $var = IniRead(@ScriptDir&$ini,$Sor,"3","")
  1180. MouseClick("left",920,636,$var,$TimeMC1)
  1181. MouseClick("left",852,615,$var,$TimeMC2)
  1182.  
  1183. $var = IniRead(@ScriptDir&$ini,$Sor,"4","")
  1184. MouseClick("left",964,616,$var,$TimeMC1)
  1185. MouseClick("left",853,591,$var,$TimeMC2)
  1186.  
  1187. ;----------Megállás a sor végén ha történik művelés---------------------------------------------------------------------------------------------
  1188. $s=IniReadSection(@ScriptDir&$ini,$Sor)
  1189.  
  1190. $sAll = ($s[1][1] + $s[2][1] + $s[3][1] + $s[4][1])
  1191.  
  1192. If $sAll > 2 Then
  1193. Send("{SPACE}")
  1194. Else
  1195.  
  1196. EndIf
  1197. ;----------19.SOR-----------------------------------------------------------------------------------------------------------------------------------------------------
  1198. _WinWaitActivate("FARMERAMA | a világ legőrültebb farmja - Google Chrome","FARMERAMA | a világ ")
  1199. $Sor = "Sor19"
  1200.  
  1201. $TimeMC1=IniRead(@ScriptDir&$ini,"TimeMC","McTime1","")
  1202. $TimeMC2=IniRead(@ScriptDir&$ini,"TimeMC","McTime2","")
  1203.  
  1204.  
  1205. $var = IniRead(@ScriptDir&$ini,$Sor,"1","")
  1206. MouseClick("left",924,680,$var,$TimeMC1)
  1207. MouseClick("left",851,659,$var,$TimeMC2)
  1208.  
  1209. $var = IniRead(@ScriptDir&$ini,$Sor,"2","")
  1210. MouseClick("left",964,659,$var,$TimeMC1)
  1211. MouseClick("left",850,637,$var,$TimeMC2)
  1212.  
  1213. ;============FUNKCIÓK==============================================================================================================================
  1214.  
  1215. #region --- Internal functions Au3Recorder Start ---
  1216.  
  1217. ;==========Várakozás az akív ablakra Funkcionálása=======================================================================
  1218.  
  1219. Func _WinWaitActivate($title,$text,$timeout=0)
  1220.     WinWait($title,$text,$timeout)
  1221.     If Not WinActive($title,$text) Then WinActivate($title,$text)
  1222.     WinWaitActive($title,$text,$timeout)
  1223.  
  1224. EndFunc
  1225.  
  1226. ;=====================Ablak mozgatás és pozíció Funkcionálása==================================================================
  1227.  
  1228. Func _WinMove($title, $text, $controlID, $x, $y, $width, $height, $speed = Default)
  1229.     Local $handleWin, $handleControl, $state, $posWin, $posControl
  1230.  
  1231.     $handleWin = WinGetHandle($title, $text)
  1232.     If @error Then Return SetError(2, 0, 0)
  1233.     $handleControl = ControlGetHandle($handleWin, Default, $controlID)
  1234.     If @error Then Return SetError(1, 0, 0)
  1235.  
  1236.     $state = WinGetState($handleWin)
  1237.     If BitAND($state, 16) Then
  1238.         WinSetState($handleWin, Default, @SW_RESTORE)
  1239.     EndIf
  1240.     If BitAND($state, 32) Then
  1241.         WinSetState($handleWin, Default, @SW_RESTORE)
  1242.     EndIf
  1243.     $posWin = WinGetPos($handleWin)
  1244.     $posControl = ControlGetPos($handleWin, Default, $handleControl)
  1245.     WinMove($handleWin, Default, $x, $y, $posWin[2] - $posControl[2] + $width, $posWin[3] - $posControl[3] + $height, $speed)
  1246.  
  1247.     Return 1
  1248. EndFunc
  1249.  
  1250. ;============Gyorsbillentyűk Funkcionálása============================================================================================================
  1251.  
  1252. ;----------Pillanatállj-------------------------------------------------
  1253. Func TogglePause()
  1254.     $Paused = Not $Paused
  1255.     While $Paused
  1256.         Sleep(100)
  1257.         ToolTip ("A folytatáshoz nyomj szóközt!", 480, 395)
  1258.     WEnd
  1259.     ToolTip("")
  1260. EndFunc
  1261.  
  1262. ;----------Megszakítás-------------------------------------------------
  1263. Func Terminate()
  1264.     Exit 0
  1265. EndFunc
  1266.  
  1267. ;-----------Frissítés--------------------------------------------------
  1268. Func Refresh()
  1269.     ToolTip("Várj míg az oldal teljesen betöltődik!", 463.5, 395)
  1270.     $Reload = Send("{F5}")
  1271.      sleep(10000)
  1272.      Send("{PGUP}")
  1273.      Send("{DOWN 4}")
  1274.      MouseMove(1022,367)
  1275.      MouseDown("left")
  1276.      MouseMove(1022,374.5)
  1277.      MouseUp("left")
  1278.      ToolTip("")
  1279.      Send("{SPACE}")
  1280. EndFunc
  1281.  
  1282. #endregion --- Internal functions Au3Recorder End ---
  1283.  
  1284. #endregion --- Au3Recorder generated code End ---
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!