Farmvill can be a fun way to pass some time, but if your fields get to be a bit big clicking on every single field can get to be a bit tiresome. I found this autohotkey script in the depths of the internet. It simplifies the process greatly
| Text | | copy code | | ? |
| 01 | |
| 02 | !^c:: |
| 03 | GoSub GetFarmSq |
| 04 | GoSub Getfirstsq |
| 05 | |
| 06 | i=1 |
| 07 | |
| 08 | SetMouseDelay, 0 |
| 09 | |
| 10 | cycle := farmy/2 |
| 11 | newx=%startx% |
| 12 | newy=%starty% |
| 13 | loop, %cycle% |
| 14 | { |
| 15 | Click %newx%,%newy% |
| 16 | Loop, %farmx% |
| 17 | { |
| 18 | newx+=25 |
| 19 | newy-=12 |
| 20 | Click %newx%,%newy% |
| 21 | } |
| 22 | newx+=25 |
| 23 | newy+=12 |
| 24 | Click %newx%,%newy% |
| 25 | Loop, %farmx% |
| 26 | { |
| 27 | newx-=25 |
| 28 | newy+=12 |
| 29 | Click %newx%,%newy% |
| 30 | } |
| 31 | newx+=25 |
| 32 | newy+=12 |
| 33 | } |
| 34 | |
| 35 | return |
| 36 | |
| 37 | GoSub Getfirstsq |
| 38 | |
| 39 | GetFarmsq: |
| 40 | Inputbox, farmy, Hi, Enter the number of fields to the right to click on,,200,150,,,,,6 |
| 41 | if ErrorLevel |
| 42 | GoSub Esc |
| 43 | Inputbox, farmx, Hi, Enter the number of fields upwards to click on,,200,150,,,,,6 |
| 44 | if ErrorLevel |
| 45 | GoSub Esc |
| 46 | farmx-- |
| 47 | return |
| 48 | |
| 49 | Getfirstsq: |
| 50 | Msgbox, Click on the leftmost field to start with ("9 O'clock" position). |
| 51 | KeyWait, LButton, D |
| 52 | KeyWait, LButton, D |
| 53 | MouseGetPos, startx, starty |
| 54 | return |
| 55 | |
| 56 | Esc: |
| 57 | !^x::reload |
| 58 | Return |
| 59 |
No related posts.



03/12/2009 at 10:18 am Permalink
Wonderful…Thanks for codes…