[Script] Craft Potions Bot

[gurud1]

Hi,

Since im not playing this game anymore im releasing this simple bot i made to craft potions, since crafting is pretty boring and gives a lot of money, i guess you can use this to make any alchemy or food itens if you change some things.

I made About 3-5M per day (10h running at night and Selling pots in day time)

Its only viable on alchemy or food itens.

What the bot do:

Transforms Vacant Artisan Crystal (VAC) into Artisan Crystal (AC)
Buy Alchemy Chest
Use Alchemy Chest
Check if inventory is full
Transforms more VAC into AC until theres no more VAC
Makes Reagent
Makes Life Potion

This works because each chest (Alchemy and Food only) cost 30 materials and gives an average of 54 materials back, so the main cost will be VAC.

The Setup:

This is a script wrote in AutoIt Version: 3.3.8.1
I was using this bot on my PC targeting a Virtual Machine (VM-Ware) so i didnt need to bypass any anti-cheat and it wont ever get patched.
It is detectable if your not using a Virtual Machine.
My PC resolution is 1920x1080 and the VMware 1024x768 locked at right half of my screen.
This script is curently configured to make B grade Life Potions.
I recomend only doing D grade and B grade Life Potions as i found they are the most profitable.
You will probably have to put your own coordinates in the bot to work properly i used the AutoId Window Info software to do that.

The Script:

 Spoiler

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.8.1
Author: Gurudz

Script Function:

Auto Potions Macro

#ce ----------------------------------------------------------------------------

;VAC = Vacant Artisan Crystal

;AC = Artisan Crystal

HotKeySet("{F4}", "Terminate")
HotKeySet("{F2}", "Active")
Opt ( "MouseClickDownDelay" , 200 )
Opt ( "MouseClickDelay" , 400 )
Opt ( "SendKeyDownDelay" , 200 )
Opt ( "SendKeyDelay" , 200 )


; Sleep until HotKey

While 1
Sleep(100)
WEnd

;;;; Functions

Func Terminate()
Exit 0
EndFunc ;Terminate

Func Active()

If WinWaitActive( "Windows 7 x64 - VMware Player") Then ;you need to change to your window name
Sleep(5000)
Call ( "VACtoAC")
EndIf
EndFunc

Func VACtoAC() ;Transforms VAC in AC
Send("{LCTRL}")
Sleep(1000)
MouseMove(1484,434, 0)
Sleep(1000)
Send("{LCTRL}")
MouseClick("left", 1484,434, 1, 10) ;Opens alchemy tool
MouseClick("left", 1245, 400, 1, 10) ;Going to Universal Crafting
MouseClick("left", 1150, 485, 1, 10) ;Going to Universal Crafting
If PixelGetColor(1284, 348) = 0xE8E8FE Then ;See if you can make AC from the 2º on the list
MouseClick("left", 1400, 350, 1, 10)
Call("CreateAC")
Else
Call("SpendRecHerb")
EndIf
EndFunc

Func BuyChest() ;Buy chest set to Alchemy B
MouseClick("left", 1484,434, 1, 0)
MouseClick("left", 1200, 540, 1, 10)
If PixelGetColor(1240, 290) = 0xb08D97 Then
MouseClick("right", 1240, 290, 1, 10)
MouseClick("left", 1570, 370, 1, 10)
MouseClick("left", 1480, 420, 1, 10)
Sleep(500)
Local $checksum = PixelChecksum(1220, 270, 1255, 300)
While $checksum = PixelChecksum(1220, 270, 1255, 300)
Sleep(300)
WEnd
MouseMove(1484,434, 0)
Sleep(200)
Send("{LCTRL}")
Call ("D")
Else
MouseMove(1484,434, 0)
Sleep(200)
Send("{LCTRL}")
Call ("D2")
EndIf
EndFunc

;Movements

Func D()
Send("{d down}")
Sleep(250)
Send("{d up}")
Call ("OpenInv")
EndFunc

Func D2()
Send("{d down}")
Sleep(250)
Send("{d up}")
Call ("VACtoAC")
EndFunc

Func A()
Send("{a down}")
Sleep(250)
Send("{a up}")
Sleep(2000)
Call("BuyChest")
EndFunc

Func OpenInv()
Send("{i down}")
Sleep(250)
Send("{i up}")
Call("InvFullCheck")
EndFunc

Func OpenChest() ;Open Chest Is set to open Alchemy
Local $pixel = PixelSearch(1520, 460, 1900, 690, 0xF13472)
If Not @error Then
Sleep(200)
MouseClick("right",$pixel[0], $pixel[1],1 ,10)
MouseClick("left",1430, 415,1 ,10)
Sleep(1000)
Call("OpenChest")
Else
MouseMove(1484,434, 0)
Sleep(1000)
Send("{LCTRL}")
Sleep(500)
Call("VACtoAC")
EndIf
EndFunc

Func SpendRecHerb()
If PixelGetColor(1284, 296) = 0xE8E8FE Then
MouseClick("left", 1400, 290, 1, 10)
Call("CreateAC2")
Else
Call("MakeReag")
EndIf
EndFunc

Func CreateAC() ;Transform All useless herbs
MouseClick("left", 1770, 660, 1, 10)
MouseClick("left", 1570, 365, 1, 10)
MouseClick("left", 1480, 420, 1, 10)
Sleep(500)
Local $checksum = PixelChecksum(1740, 660, 1800, 670)
While $checksum = PixelChecksum(1740, 660, 1800, 670)
Sleep(300)
WEnd
MouseMove(1484,434, 0)
Sleep(200)
Send("{LCTRL}")
Sleep(500)
Send("{LCTRL}")
Sleep(1000)
Send("{LCTRL}")
Call ("A")
EndFunc

Func CreateAC2() ;Transform about 15 Recovery Herb
MouseClick("left", 1770, 660, 1, 10)
MouseClick("left", 1570, 365, 1, 10)
MouseClick("left", 1480, 420, 1, 10)
Sleep(15000)
MouseMove(1484,434, 0)
Sleep(200)
Send("{LCTRL}")
Sleep(500)
Send("{LCTRL}")
Sleep(1000)
Send("{LCTRL}")
Call ("A")
EndFunc

Func MakeReag() ;Makes all reagent
Send("{LCTRL}")
Sleep(1000)
Send("{LCTRL}")
Sleep(1000)
MouseMove(1484,434, 0)
Sleep(1000)
Send("{LCTRL}")
MouseClick("left", 1484,434, 1, 0)
If PixelGetColor(1284, 300) = 0xA8F772 Then
MouseClick("left", 1400, 290, 1, 10)
MouseClick("left", 1770, 660, 1, 10)
MouseClick("left", 1570, 365, 1, 10)
MouseClick("left", 1480, 420, 1, 10)
Sleep(500)
Local $checksum = PixelChecksum(1740, 660, 1800, 670)
While $checksum = PixelChecksum(1740, 660, 1800, 670)
Sleep(300)
WEnd
Call("MakePot")
Else
Call("MakePot")
EndIf
EndFunc


Func MakePot() ;Makes all pots
Sleep(500)
Local $pixel = PixelSearch(1275, 380, 1300, 470, 0xFF775E)
If Not @error Then
MouseClick("left",$pixel[0]+50, $pixel[1],1 ,10)
MouseClick("left", 1770, 660, 1, 10)
MouseClick("left", 1570, 365, 1, 10)
MouseClick("left", 1480, 420, 1, 10)
Sleep(500)
Local $checksum = PixelChecksum(1740, 660, 1800, 670)
While $checksum = PixelChecksum(1740, 660, 1800, 670)
Sleep(300)
WEnd
MouseMove(1484,434, 0)
Sleep(200)
Send("{LCTRL}")
Sleep(500)
Call("VACtoAC")
Else
Send("{LCTRL}")
Sleep(500)
Call("VACtoAC")
EndIf
EndFunc

Func InvFullCheck() ;check if inventory is not full
Local $pixel = PixelSearch(1600, 645, 1900, 690, 0xA3E651) ;last slots on inventory
If Not @error Then
Call("MakeReag")
Else
Call("OpenChest")
EndIf
EndFunc

Instructions:

Tutorial to find your own coord.

.

You need to have in your inventory lots of VAC and at least 30 Herbs or 15 AC

Press F2 to activate script.

Press F4 to terminate script.

[grayfox1]

nice work
i have VM-Ware on my pc but c9 non work on that VM-Ware (work very *** on real pc )
haw i can run it

[gurud1]

@grayfox1 you are using windows 7 on the vm? whats the error when you try to run it? did you try to instal c9 on the vm-ware from the setup?