Jewel Crafter (Auto profession)

[Dazzled]

Here is a program I threw together using a scripting program called "Autoit".
This program is designed to make using Jewelcrafting as easy as a click of a button.
However this bot is based off the guide "Goldguide (Made 40k in one week)"
If you follow that guide than this program will be your number one buddy!

Here is a screenshot of the program layout and details:


Inside each download contains the program and a readme.txt file. Please read the text file as it contains all information needed!

<DOWNLOAD>
64 Bit Version
32 Bit Version
Password:dazzled

Coding is fresh and new! =)

Please enjoy my third release of Jewel Crafter!

P.S - Until I learn how to use DLL's it currently has to type out a script in chat, so during time of running application please stay off of keyboard and keep WoW maximized. Also one note worth mentioning as I believe I forgot to add this to the readme.txt is that you can use the key "Pause" on your keyboard (above page up/down) to pause/unpause the script, this is handy for when an error occurs and you need a quick solve.

V3.1 release:
- Fixed the crafting error where it was creating a global error and not crafting the items.
- Made typing speed slightly slower so if you let the bot run its process with no interuption it will type each line correct and perfect!

V3.0 release:
- Now all functions should work correctly.
- Window now remains on top always, even if Warcraft window is the current
   window Jewel Crafter stays atop for easier closing and less hassle with
   windows!
- There is a opacity slider at the top right to make the window transparent
   or not.
- You can now determine how much ore you have in your bags you would 
   like to prospect as well as disenchanting and the program will do them all
   for you (only 1 click necessary).

V2.0 release:
- Added a few more nik naks on the interface and fixed the error when using a
button, it should now type correctly on your WoW screen. Also included 
icons with this release, please do not delete the Icons folder that came with 
the release. Look for V3.0 coming soon, it will be much more dependable.

V1.0 release:
- First release includes basics to make money making easier!

________________________________________________________________________________ _______________________________
The script:

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

 AutoIt Version: 3.3.0.0
 Author:Dazzled  myName

 Script Function: Makes prospecting, Jewelcrafting, and several other commands easy!
	Template AutoIt script.

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageListConstants.au3>
#Include <GuiMenu.au3>
#include <GuiComboBoxEx.au3>
#include <GUIButton.au3>
#Include <GuiSlider.au3>
#include <IE.au3>
#include <SliderConstants.au3>
#include <StructureConstants.au3>

FileInstall("M:\Kevin\Autoit\Jewel Crafter\Icons\Disenchant.ico", @Scriptdir & "\Icons\Disenchant.ico")
FileInstall("M:\Kevin\Autoit\Jewel Crafter\Icons\Eternal Earth.ico", @Scriptdir & "\Icons\Eternal Earth.ico")
FileInstall("M:\Kevin\Autoit\Jewel Crafter\Icons\JC.ico", @Scriptdir & "\Icons\JC.ico")
FileInstall("M:\Kevin\Autoit\Jewel Crafter\Icons\Jewelcrafting.ico", @Scriptdir & "\Icons\Jewelcrafting.ico")
FileInstall("M:\Kevin\Autoit\Jewel Crafter\Icons\Saronite.ico", @Scriptdir & "\Icons\Saronite.ico")
FileInstall("M:\Kevin\Autoit\Jewel Crafter\Icons\Jewel Crafter.jpg", @Scriptdir & "\Icons\Jewel Crafter.jpg")

HotKeySet( "{PAUSE}", "TogglePause")

Opt("SendKeyDelay", 35)

Global $Paused

#Region ### START Koda GUI section ### Form=C:\Users\Kevin\Desktop\Jewel Crafter\JewelCrafter.kxf
$Main = GUICreate("Jewel Crafter", 358, 287, -1, -1)
GUISetIcon(@Scriptdir & "\Icons\JC.ico")
GUISetBkColor(0x000000)
$Website = GUICtrlCreateButton("Website", 8, 256, 65, 25, 0)
GUICtrlSetCursor (-1, 0)
$Crafter = GUICtrlCreateButton("Crafter", 221, 177, 41, 41, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, @Scriptdir & "\Icons\Jewelcrafting.ico", -1)
GUICtrlSetCursor (-1, 0)
$Earth = GUICtrlCreateButton("Earth", 80, 177, 41, 41, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, @Scriptdir & "\Icons\Eternal Earth.ico", -1)
GUICtrlSetCursor (-1, 0)
$Saronite = GUICtrlCreateButton("Saronite", 80, 65, 41, 41, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, @Scriptdir & "\Icons\Saronite.ico", -1)
GUICtrlSetCursor (-1, 0)
$Enchant = GUICtrlCreateButton("Disenchant", 223, 65, 41, 41, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, @Scriptdir & "\Icons\Disenchant.ico", -1)
GUICtrlSetCursor (-1, 0)
$Input = GUICtrlCreateInput("10", 309, 237, 25, 21)
GUICtrlSetCursor (-1, 5)
$Input2 = GUICtrlCreateInput("0", 309, 123, 25, 21)
GUICtrlSetCursor (-1, 5)
$Input3 = GUICtrlCreateInput("20", 89, 123, 25, 21)
GUICtrlSetCursor(-1, 5)
$Combo = GUICtrlCreateCombo("Which item to D/E", 184, 123, 113, 25)
GUICtrlSetData(-1, "Bloodstone Band|Crystal Chalcedony Amulet|Crystal Citrine Necklace|Sun Rock Ring")
GUICtrlSetCursor (-1, 2)
$Combo2 = GUICtrlCreateCombo("Which item to craft?", 184, 237, 113, 25)
GUICtrlSetData(-1, "Bloodstone Band|Crystal Chalcedony Amulet|Crystal Citrine Necklace|Sun Rock Ring")
GUICtrlSetCursor (-1, 2)
$Label1 = GUICtrlCreateLabel("v3.0", 8, 0, 37, 34)
GUICtrlSetFont(-1, 14, 400, 0, "Papyrus")
GUICtrlSetColor(-1, 0x0000FF)
$Label2 = GUICtrlCreateLabel("Dazzled", 272, 260, 68, 31)
GUICtrlSetFont(-1, 14, 400, 0, "Pristina")
GUICtrlSetColor(-1, 0x00FF00)
$Label3 = GUICtrlCreateLabel("Saronite", 81, 105, 43, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("How many do" & @LF & "you have to" & @LF & "disenchant?", 280, 65, 69, 55)
GUICtrlSetColor(-1, 0x008000)
$Label5 = GUICtrlCreateLabel("Prospecting", 57, 36, 94, 28)
GUICtrlSetFont(-1, 14, 400, 2, "Harlow Solid Italic")
GUICtrlSetColor(-1, 0x00FF00)
$Label5 = GUICtrlCreateLabel("Earth", 86, 221, 29, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel(" Eternal Converter", 30, 148, 148, 28)
GUICtrlSetFont(-1, 14, 400, 2, "Harlow Solid Italic")
GUICtrlSetColor(-1, 0x00FF00)
$Label7 = GUICtrlCreateLabel(" Disenchant", 191, 36, 97, 28)
GUICtrlSetFont(-1, 14, 400, 2, "Harlow Solid Italic")
GUICtrlSetColor(-1, 0x00FF00)
$Label8 = GUICtrlCreateLabel("Disenchanter", 211, 105, 67, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label9 = GUICtrlCreateLabel(" Crafter", 207, 148, 65, 28)
GUICtrlSetFont(-1, 14, 400, 2, "Harlow Solid Italic")
GUICtrlSetColor(-1, 0x00FF00)
$Label10 = GUICtrlCreateLabel("How many?", 292, 205, 60, 17)
GUICtrlSetColor(-1, 0x008000)
$Label11 = GUICtrlCreateLabel('Item', 230, 218, 25, 17)
GUICtrlSetColor(-1, 0x008000)
$Label12 = GUICtrlCreateLabel("<--- Click to go to my thread", 80, 261, 150, 48)
GUICtrlSetColor(-1, 0x008000)
$Label13 = GUICtrlCreateLabel("Opacity", 280, 27, 42, 17)
GUICtrlSetColor(-1, 0x008000)
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\Icons\Jewel Crafter.jpg", 97, 2, 162, 34, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $slider1 = GUICtrlCreateSlider(250, 5, 100, 20)
GUICtrlSetBkColor(-1,0)
GUICtrlSetLimit(-1, 255, 126)
GUICtrlSetData(-1, 255)
GUISetState()
$hWnd = WinGetHandle("[CLASS:Autoit v3 GUI]")
$hOre = GUICtrlRead($Input3)/5
GUISetState(@SW_SHOW, $Main)
#EndRegion ### END Koda GUI section ###

WinSetOnTop("[CLASS:AutoIt v3 GUI]", "", 1)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $nMsg = $slider1
            WinSetTrans($Main, "", GUICtrlRead($slider1))
			sleep (100)
		Case $Website
			ShellExecute("http://www.mmowned.com/forums/bots-programs/263100-jewel-crafter-auto-profession.html")
		Case $Saronite
			WinActivate('[TITLE:World of Warcraft]')
			WinWaitActive('[TITLE:World of Warcraft]')
			Sendinformation()
		Case $Enchant
			WinActivate('[TITLE:World of Warcraft]')
			WinWaitActive('[TITLE:World of Warcraft]')
			Sendinformation2()
		Case $Crafter
			WinActivate('[TITLE:World of Warcraft]')
			WinWaitActive('[TITLE:World of Warcraft]')
			Sendinformation3()
		Case $Earth
			WinActivate('[TITLE:World of Warcraft]')
			WinWaitActive('[TITLE:World of Warcraft]')
			Sendinformation4()
	EndSwitch
WEnd

Func Sendinformation()
	Local $times
	For $times = 1 To GUICtrlRead($Input3)/5
	Sleep(200)
	Send('{ENTER}')
	Sleep(200)
	Send('/cast prospecting')
	Sleep(200)
	Send("{ENTER}")
	Sleep(500)
	Send('{ENTER}')
	Sleep(200)
	Send('/use Saronite Ore')
	Sleep(200)
	Send("{ENTER}")
	Sleep(3000)
Next
EndFunc

Func sendinformation2()
	Local $times2
	For $times2 = 1 To GUICtrlRead($Input2)
	Sleep(200)
	Send('{ENTER}')
	Sleep(200)
	Send('/cast disenchant')
	Sleep(200)
	Send('{ENTER}')
	Sleep(100)
	Send('{ENTER}')
	Sleep(200)
	Send('/use ' & GUICtrlRead($Combo))
	Sleep(200)
	Send('{ENTER}')
	Sleep(3500)
Next
EndFunc

Func Sendinformation3()
	Sleep(200)
	Send('{ENTER}')
	Sleep(200)
	Send('/run CloseTradeSkill()')
	Send('{ENTER}')
	Sleep(500)
	Send('{ENTER}')
	Sleep(200)
	Send('/cast Jewelcrafting')
	Sleep(500)
	Send('{ENTER}')
	Sleep(500)
	Send('{ENTER}')
	Sleep(200)
	Send('/run local s for i=1,GetNumTradeSkills() do s=GetTradeSkillInfo(i) if (s=="'& GUICtrlRead($Combo2) &'") then DoTradeSkill(i,'& GUICtrlRead($Input) &') end end')
	Sleep(200)
	Send("{ENTER}")
EndFunc

Func Sendinformation4()
	Sleep(200)
	Send('{ENTER}')
	Sleep(200)
	Send('/use Eternal Earth')
	Sleep(200)
	Send("{ENTER}")
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

[v21k93]

cool good job :P
but i think that you made mistake with 64 and 32 bit core
im with 32 bit core and i cant start with 32 Bit Version
when i tryed with 64... it run

(sry for my bad english )

[tantos]

ty very usefull

[Dazzled]

cool good job :P
but i think that you made mistake with 64 and 32 bit core
im with 32 bit core and i cant start with 32 Bit Version
when i tryed with 64... it run

(sry for my bad english )

Fixed Downloads are correct.

[Multitask]

very nice +rep.

i still find macros to be faster xD

[pozer]

thats pretty cool, well done mate
+rep

[[Ichigo]]

Thank you. I was looking forward for simmilar program for ages.
+rep

[Ernst]

This is epic, gj m8

[Ezi]

can you give source? coz in 32 bit version marcos are wrong and it doesnt write first letter
/ast jewelcrafting
/un local s for i=1,GetNumTradeSkills() do s=GetTradeSkillInfo(i) if (s=="Sun Rock Ring") then DoTradeSkill(i,10) end end

[Ponjon]

This program seems nice! Cheers +Rep

[Dazzled]

can you give source? coz in 32 bit version marcos are wrong and it doesnt write first letter
/ast jewelcrafting
/un local s for i=1,GetNumTradeSkills() do s=GetTradeSkillInfo(i) if (s=="Sun Rock Ring") then DoTradeSkill(i,10) end end

Hmmmm, it shouldn't do that, my guess is the latency messes with the typing speed, I posted the script however for you to see. Does it do it everytime? is it only on the craft button?

[Staunton]

gj mate this is helpful i would use if a jc but sadly T.T im not

[Ernst]

32bit's bugged i guess, throwing up my talents and reputation-window with prospect button

[Dazzled]

Ok I have edited the coding slightly and re uploaded them, the program should now perform correctly, the problem was the program was typing too fast and not loading WoW quick enough so it would skip the / and first letter of the command. Don't worry version 2 will be coming out soon and it will be much more dependable.

[Ezi]

Can you please make version 2 with icons with folder ?