Register for your free account! | Forgot your password?

Go Back   elitepvpers > World of Warcraft > WoW Bots
You last visited: Today at 07:31

  • Please register to post and access all features, it's quick, easy and FREE!

 

Jewel Crafter (Auto profession)

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Nov 2008
Posts: 39
Received Thanks: 5
Jewel Crafter (Auto profession)

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:

You must register and activate your account in order to view images.


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:


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


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

AutoIt Version: 3.3.0.0
Author KB241

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.*******.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



KB241 is offline  
Old   #2
 
elite*gold: 0
Join Date: May 2009
Posts: 2,227
Received Thanks: 2,291
Das ganze geht auch einfacher
In WoW Makro machen:
Code:
/use Saroniterz
/cast Sondieren
Und das makro dann auf 1 setzen

und dann in AutoIt schreiben:
Code:
HotkeySet("{F2}", "TogglePause")
HotKeySet("{F3}", "Stop")
Global $Stop
Global $Paused


While 1
Controlsend( "World of Warcraft", "", "", "1")
sleep(3500)
Wend


Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
		
    WEnd 
EndFunc



Func Stop()
	Exit
Endfunc
;


Endecs is offline  
Old   #3
 
elite*gold: 0
Join Date: May 2006
Posts: 407
Received Thanks: 41
kevin is halt nich so pro wie manche hier... ^^
me1337 is offline  
Old   #4
 
elite*gold: 0
Join Date: Aug 2009
Posts: 308
Received Thanks: 184
@vb.net: das macro ist falsch:
Code:
/cast *Skill*
/use *blah1*
/use *blah2*
/use *blahN*


Xeranor is offline  
Old   #5
 
elite*gold: 0
Join Date: May 2009
Posts: 2,227
Received Thanks: 2,291
Quote:
Originally Posted by Xeranor View Post
@vb.net: das macro ist falsch:
Code:
/use *blah1*
/use *blah2*
/use *blahN*
/cast *Skill*
Geändert.
Hab mich am ende mit /use und /cast vertahn^^
Endecs is offline  
Old   #6
 
elite*gold: 208
The Black Market: 426/1/0
Join Date: Nov 2009
Posts: 999
Received Thanks: 137
gehe ich richtig davon aus das man damit nicht gebant wird (sofern man den PC beaufsichtigt lässt)?
Gold-Rausch is offline  
Old   #7
 
elite*gold: 0
Join Date: May 2009
Posts: 2,227
Received Thanks: 2,291
Quote:
Originally Posted by Chieffubar View Post
gehe ich richtig davon aus das man damit nicht gebant wird (sofern man den PC beaufsichtigt lässt)?
Ich glaube echt nicht das sie dich für automatisches Sondieren bannen.
Endecs is offline  
Old   #8

 
elite*gold: 0
Join Date: Jan 2008
Posts: 479
Received Thanks: 89
das denke ich auch nicht und vor allem kann man so was auch z.B. mit einer der G Tastaturen von Logitech machen. Macro in wow schreiben und dann die Tastatur den knopp drücken lassen :-)

mfg


Wurmi is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Queens Jewel hack?
pwede po gawa kau ng tut para sa queens jewel hack palitan nyo lng po ung 2 times gp/xp ng 99 times gp and xp please nid ko po
30 Replies - Grand Chase Philippines
Jewel Box Event
I was just wondering. Did you guys got anything usefull from the Jewel Boxes...Like Devil Spirit....and how many Jewel Boxes did u use?
21 Replies - SRO Main - Discussions / Questions
Jewel Box
I forgott to leave a couple of jewelboxes to the so-ok and now i can`t get them of my inv. What can i do to get rid of them?
17 Replies - SRO Main - Discussions / Questions
Jewel Box auto pick
Does someone have a auto picker to use in chars that are being plvled, for able them to pick their jewel boxes?:rolleyes:
7 Replies - SRO Main - Discussions / Questions
Way to get more Jewel Boxes
Is there any way to get more Jewel Boxes ? I heard that if you make Share Party with a Lv20-30 Char you'll get more Jewel Boxes. True ?
9 Replies - SRO Main - Discussions / Questions



All times are GMT +1. The time now is 07:31.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.