[Wartune] E's AutoIt Scripts Daru Farmbot

[lostdinasty1998]

This sucks, you still need to do a survey to get this and no matter how many things I complete on that list it won't download the password!

This s not easy and free....

[Maffiagang]

So, i have the farm bot working and doing all it should do @ 1280 x 1024, and chrome zoomed in at 125%!!!!

[kordosoft]

how about the 1600x900?

[Blademiki]

Hello guys , i am reda yread all post,my english isnt good but i understand a little bit ,i am done try darudaru in deatlySand but,when bot found mobs for kill and i am done atack bot dont still use atack button,idk why?
Can someone post here full function darudaru bot for deatlysand with 1280x1024 or for my best resolution 1680x1050 resolution full screen mode chrome,i am done copy dll to system32 now i need only working script,very thx u

[Maffiagang]

The bot works just fine for any resolution, if u would just make new pictures
---> (with a screenshot(screenshot button between insert and pause/brake button on your keyboard)
---> (and paint... save as 24-bit BMP!!)

I have the farmbot working:
Have speed it up and worked out the bugs

and fixed a bug in Guildspinner bot:
Worked out a bug i found, sometimes it clicked spin too fast so it didn't collect and couldn't go any further, bot then just pauses automatically and did nothing.

Both Farmbot and Guildspinner working like a charm over here. Have made the Farmbot faster and am currently working on a function for the Farmbot that will plant and gather my crops (only Lvl. 2 Kyanite Seed and Lvl. 2 Gold Seed at the moment, you can change this later yourself. ) on my farm. Still testing it but when i am done testing, i will post it for you all to use.

I will also look and see if i am able to make a nice guide for you guys, on how to make a good screenshot and on how to edit the script.


Edit:

It has also come to my attention, that if your computer does not have enough resources (CPU power or enough GB of RAM) that the script will also fail to find the pictures.

Please keep that in mind.

[CidHighwind]

Maffiagang if you could post an updated pack of pics/script that you've moded that would be nice
Thanks.

[Maffiagang]

Edit:

SCREENSHOTS MADE IN CHROME @ 125% ZOOM, WITH BOOKMARK BAR ENABLED!!!!!

IT IS BEST TO DRAG YOUR SCREEN TO THE TOP AND THEN IN THEN MIDDLE SO THAT THE LITTLE STAIRS NEXT TO YOUR VAULT IS ALMOST TO THE EDGE OF THE RIGHT SIDE OF YOUR SCREEN, THAT WAY THE BOT WORKS AT ITS BEST!!!! (To prevent missing a plot during harvesting etc.)

Alright, i am done testing and all seems to be working fine. i will now post for you all the new and improved FarmBot + MORE!!!

Changelog:

 Spoiler

v1.2

Added .exe files for GuildSpinner and WB Bloodfang. (You better read on. )

NEW SCRIPTS!!!

WB Bloodfang:
New script that will do the world boss Bloodfang for you. All you have to do, is enter the first
fight and press the AFK button. Then all is done automatically.

PlantBot:
New bot for higher lvl users, u don't wanna help anyone? This is for you. Only plants and harvests
your crop, close your friend list, and enjoy the cash!!

UPDATES!!!

FarmBot:

Added a new function!! The FarmBot will now also plant and harvest your crops for you!

>>>ATTENTION!!! Only Lvl 2 Gold seed (1 HOUR!) and Lvl 2 Kyanite Seed(1 HOUR!) are supported <<<
>>>at the moment.<<<

Added a new function!! The FarmBot will now also harvest your ancient tree every server time reset!!

The FarmBot is now a little bit faster.

Updated the bot with pictures for 1280 x 1024 resolution!!!

BUG FIXES!!!

Changed the hover position from the farm sign, to the 3 little crates next to your farm.
This ensure your mouse wont hover over a farm spot and block the one next/above it.

Sometimes when the screen is positioned in a certain way, the image search function could not
detect the steal picture. Changed picture to a more find able one.

GuildSpinner:

BUG FIXES:

Changed the wait function to click spin again, sometimes the bot clicked spin too fast, and u end up
with a unusable bot, now it does all your spins correctly.

DaruDaru:
Removed because i don't have it working yet...


COMING IN V 1.3:

FarmBot:
Updated with pictures for all the types of seeds. (only the ones u can buy with gold!!!)
New user functions to decide what kind of seeds to plant.
(Kyanite and Gold)
(Kyanite and Daru)
(Kyanite and EXP)
Will be the only options i will make for the Plant bot to plant.

DaruDaru:
Updated pictures for all monsters and world map up to lvl 31-40, when i hit 41 i will update to 41-50 and so on.

You best read the changelog.

This bot is modified for 1280 x 1024 Resolution.

If this one also does not work for you, do the following

Take screen shots of your farm with the following:

Exterminate picture for both your farm, and in the friend screen;
Revive picture for both your farm, and in the friend screen;
Weed picture for both your farm, and in the friend screen;
Steal picture for both your farm, and in the friend screen;
Charge tree picture for both your farm, and in the friend screen;
Harvest Tree of Ancient picture from your farm;
First page picture of your friend list;
Next picture of your friend list;
Picture of you lvl 2 gold seed;
Picture of your lvl 2 kyanite seed;
Picture of your 3 crates (left side of your farm, with a stone next to it);
Picture of your farm screen with ALL empty farm plots;
Picture of your My Farm button;

and if your in a guild you need a picture of the pop up that the tree has spawned in the chamber WITH close button.


Now all you have to do is change those pictures to the ones that are in the picture folder, and copy them over the old pictures.

Hope u guys have fun with the bot!!

Virus Total:

 Spoiler

Virusscanner Resultaat Versie
ViRobot JS.A.Iframe.94208 20130807
VIPRE Trojan.Win32.Generic!BT 20130807
VBA32 20130806
TrendMicro-HouseCall 20130807
TrendMicro 20130807
TotalDefense 20130807
TheHacker Trojan/Cosmu.bizd 20130805
Symantec 20130807
SUPERAntiSpyware 20130807
Sophos 20130807
Rising 20130807
PCTools 20130807
Panda 20130807
nProtect 20130807
Norman 20130807
NANO-Antivirus 20130807
MicroWorld-eScan 20130807
Microsoft 20130807
McAfee-GW-Edition 20130807
McAfee 20130807
Malwarebytes 20130807
Kingsoft 20130723
Kaspersky 20130807
K7GW 20130806
K7AntiVirus 20130806
Jiangmin Trojan/JboxGeneric.caj 20130807
Ikarus 20130807
GData 20130807
Fortinet 20130807
F-Secure 20130807
F-Prot 20130807
ESET-NOD32 20130807
Emsisoft 20130807
DrWeb 20130807
Comodo 20130807
Commtouch 20130807
ClamAV 20130807
CAT-QuickHeal 20130806
ByteHero 20130724
BitDefender 20130807
AVG 20130807
Avast 20130807
Antiy-AVL 20130807
AntiVir 20130807
AhnLab-V3 20130807
Agnitum 20130806

Dont know what those thing are it detects, but its safe as far as i know.


Even though i have edited this script, 90% of the credit still goes to Ewvyx for making this awesome bot!!!

[kaanctn]

When is coming V . 1.3 ?

[Maffiagang]

Originally Posted by kaanctn

When is coming V . 1.3 ?

Whenever it is ready, hard to give an estimated time...

EDIT:

So i have added the AFK function to the WB Bloodfang script, it never worked because i forgot to make a picture, lol.

change the current start function with:

Func start()
	  If $start = False Then
		 Return
	  EndIf
	  If CheckFor($farmDir, "clickblood") Then
			Do
				  Sleep(2000)
				  ClickImage($farmDir, "clickblood")
				  Sleep(100)
				  ClickImage($buttonsDir,"afkmode")
			   Until ClickImage($farmDir, "bloodfoot") = True
	  Else
			   ClickImage($buttonsDir,"afkmode")
	  EndIf
   EndFunc

and the image i have added as attachment you have to copy to the Pics\Farm folder.

[tre-x]

Thank you for your hard work!

I tried the farmbot and it somehow stuck at clicking on friends tree to energize. Everything else is working fine! Thanks.
(I havent tried the bloodfang script but I try it tomorrow).

One problem is though the stealing of 1hour crops (same thing is actually with L3 crops like insignia but you see them rarely) which is impolite and results in deleting you from friendlist. Would be nice if it would skip 1hour crops and steal only 4 hour crops.
[ Ignore this if you have implemented this allready ]

[Maffiagang]

Originally Posted by tre-x

Thank you for your hard work!

I tried the farmbot and it somehow stuck at clicking on friends tree to energize. Everything else is working fine! Thanks.
(I havent tried the bloodfang script but I try it tomorrow).

One problem is though the stealing of 1hour crops (same thing is actually with L3 crops like insignia but you see them rarely) which is impolite and results in deleting you from friendlist. Would be nice if it would skip 1hour crops and steal only 4 hour crops.
[ Ignore this if you have implemented this allready ]

Make a screenshot of your screen (Print Screen next to your INSERT button)
and edit the picture so that it only shows the energizxe picture.

Here i made a video on how i do it:




Will think about ignoring the 1 hour seeds, tho i dont use steal function. Stealing is bad!! :P

EDIT

Been looking into the ignoring thing, it seems not doable since all the lvls, lvl 1 lvl 2 lvl 3 etc, of the same seed look the same, so there is no difference for the image search function to differentiate them from each other.

Sadly, this is not possible. (for me and my limited programming knowledge, maybe someone else can do this?)

Please remember i am still an AMATEUR in the programming scene.

Also, i have found an error in my plant kyanite script where it wouldnt always plant kyanite... i have hanged the code to:

Func PlantMyKyanite()
   If $plantcrop = False Then
		  Return
	   EndIf
		 If CheckFor2($farmDir, "farmplant2") Then
			ClickImage($farmDir,"mouseclean")
			Sleep(50)
			Do
				  ClickImage($farmDir, "farmplant2")
				  Sleep(50)
				  ClickImage($farmDir, "kyanite")
			   Until ClickImage($farmDir, "farmplant2") = False
		 EndIf	
	  EndFunc

Change it and it should work better now. (Still testing myself.)

[tre-x]

Thanks for your quick answer and your video!

I think I use the plantbot. It's working fine. Thanks!

A suggestion to Guild Spinner: It's most of the time just luck what you get but from time to time you get the item on what the yellow ring is on (nearly the same percentage is when yellow ring is on the opposite side of your wished item). I think the most useful things are on the shop symbol. It's the yellow lion head. Is it possible to make a spin when the yellow ring is on the shop symbol?

EDIT:
hahaha thanks a lot for the guildspinner!!! I used it some minutes ago and got two socketing rods cant believe that I am this lucky

[Maffiagang]

Originally Posted by tre-x

Thanks for your quick answer and your video!

A suggestion to Guild Spinner: It's most of the time just luck what you get but from time to time you get the item on what the yellow ring is on (nearly the same percentage is when yellow ring is on the opposite side of your wished item). I think the most useful things are on the shop symbol. It's the yellow lion head. Is it possible to make a spin when the yellow ring is on the shop symbol?

If i can get the picture just right, i should be able to implement that, i have written the code, but cant test it till tomorrow...

U could also test it yourself, just change the spin function from

Func RunScript()
	;Main script activated by hotkey
	CheckFor($buttonsDir,"collectdisabled",50)
	While $numberOfSpins > 0
		If CheckFor($buttonsDir,"collectdisabled",50) = False Then
			MouseClick("left",$sX,$sY,1,0)
		 EndIf
			Sleep(500)
			ClickImage($buttonsDir,"spin",50)
			$numberOfSpins -= 1
			While CheckFor($buttonsDir,"spindisabled",50)
			Sleep(100)
		WEnd
	WEnd		
EndFunc

to

Func RunScript()
	;Main script activated by hotkey
	CheckFor($buttonsDir,"collectdisabled",50)
	While $numberOfSpins > 0
		If CheckFor($buttonsDir,"collectdisabled",50) = False And CheckFor($farmDir,"shopspin",50) Then
			MouseClick("left",$sX,$sY,1,0)
		 EndIf
			Sleep(500)
			ClickImage($buttonsDir,"spin",50)
			$numberOfSpins -= 1
			While CheckFor($buttonsDir,"spindisabled",50)
			Sleep(100)
		WEnd
	WEnd		
EndFunc

then put the picture i attached in ur Pics\Farm folder, or make it urself, the smaller the better.
just remember to be sure that the yellow ring is visible.

[tre-x]

Thanks! I test it also tomorrow (used all my spins today).
If you have any gamerelated question ask away

[Maffiagang]

Originally Posted by tre-x

Thanks! I test it also tomorrow (used all my spins today).
If you have any gamerelated question ask away

Alright, got it fixed, this is as good as it will get, sometimes tho, it will click on spin a little after the ring has left the shop sign...


Change ur spin function to:

;===========================================================================================================
;@Author Ewvyx  I wrote this so please don't slap your name on it.

;This script will do all of your guild altar spins for you.
;Just open the altar spinner and press 'q'
;Be sure to edit the number of spins you have available in the User Defined Variables section below
#RequireAdmin
#include <ImageSearch.au3>

;===========================================================================================================
;Global Variables (DO NOT CHANGE UNLESS YOU KNOW WHAT YOU ARE DOING)

;X Coords Input on 1920x1080 :  1518x198
;Y Coords Input on 1920x1080 :  1553x198

$Version = "1.1.0a"
Global $Paused
Global $gX = 0
Global $gY = 0
Global $sX = 0
Global $sY = 0
Global $success = False ;boolean for various checks
Global $tolFail = 0 ;tolerance failures for _ImageSearch


;===========================================================================================================
;User Defined Variables

$bmpLocation = @ScriptDir & "\Pics"
$farmDir = "Farm"
$buttonsDir = "Buttons"
$defaultCheckRate = 0.1		;smaller the number, the faster the image checks are.  increase if icons are not being found
$numberOfSpins = 15			;the number of altar spins you want to perform

;===========================================================================================================
;HotKeys

HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("q","RunScript")
;===========================================================================================================
;~Functions

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip("Script is Paused, press q to continue.", 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Func CheckFor($directory,$img,$tolerance=50,$startX=0,$startY=0,$endX=@DesktopWidth,$endY=@DesktopHeight,$seconds=$defaultCheckRate)
	$c = 0
	MouseMove($sX,$sY,0)
	$string = $bmpLocation & "\" & $directory & "\" & $img & ".bmp"
	$updateString = $img
	ToolTip("Checking for " & $updateString,0,0)
	$tolerance = 70
	If $tolFail > 0 Then
		$tolerance += $tolFail
	EndIf
	Do
		$c += 1
		Sleep(50)
		If $c > ($seconds * 10) Then
			Return False
		EndIf
	Until _ImageSearchArea($string,1,$startX,$startY,$endX,$endY,$gX,$gY,$tolerance)
	If $img = "collectdisabled" Then
		$sX = $gX
		$sY = $gY
	EndIf
	Sleep(50)
	Return True
EndFunc

Func ClickImage($directory,$img,$tolerance=50,$startX=0,$startY=0,$endX=@DesktopWidth,$endY=@DesktopHeight,$seconds=$defaultCheckRate)
	If CheckFor($directory,$img,$tolerance,$startX,$startY,$endX,$endY,$seconds) Then
		MouseClick("left",$gX,$gY,1,0)
		Return True
	Else
		Return False
	EndIf
EndFunc	

Func HoverOverImage($directory,$img,$tolerance=50,$startX=0,$startY=0,$endX=@DesktopWidth,$endY=@DesktopHeight,$seconds=$defaultCheckRate)
	If CheckFor($directory,$img,$startX,$startY,$endX,$endY,$seconds,$tolerance) Then
		MouseMove($gX,$gY,0)
		Sleep(50)
		Return True
	Else
		Return False
	EndIf
EndFunc

Func RunScript()
	;Main script activated by hotkey
	CheckFor($buttonsDir,"collectdisabled",50)
	While $numberOfSpins > 0
		If CheckFor($buttonsDir,"collectdisabled",50) = False Then
			MouseClick("left",$sX,$sY,1,0)
		 EndIf
			While CheckFor($farmDir,"shopspin",50)
			Sleep(50)
			ClickImage($buttonsDir,"spin",50)
			$numberOfSpins -= 1
		 WEnd
			While CheckFor($buttonsDir,"spindisabled",50)
			Sleep(100)
			WEnd
		WEnd		
	 EndFunc		
	 
;===========================================================================================================
;Main

While 1
	ToolTip("Press 'q' to begin, PAUSE to pause and ESC to quit.",0,0)
	Sleep(100)
WEnd

And it all works.

Ofcourse, also add the attached picture to your Pics\Farm folder.