Code:
#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