VGExtreme Crafting Bot - Completed : VGExtreme Programs

[Guest]

Outstanding work Strab !!, I have a few Noob Questions for yah for ive never got anyones bot to work, im sure its just me though....

question #1 when i download your script am i running it with VGextreme, Exume, or Xunleashed ? or is there a differance.

question#2 Is this to be run in VBS script or Java Script ?

question#3 When i have your script in place what exactly do i change to work for me? all x,y and Taskmaster names ? Is there anything else to change before i hit F5 ? Also do i have to run any other scripts with yours to make it all function.

If i have further problems running your script may i take it to PM's with you if that would be ok ?

Sry for so many questions but ive spent hours from time i did my first program download and multi scripts to avail still cant seem to get anything to work with VG. Thanks for any Help u can give Strab !!

[wolfstar]

I spoke too soon The problem seems to lie in this part;
If (Crafting_State <> 3) Then
Mouse.LMouseClick CN_X, CN_Y, 1, 1
MovetoWO
'MovetoWOrefine
End if
Now if I comment the movetowo part out the bot makes all the wo's but of course once all the work orders he has are complete it won't get more.
However if I leave it as is it will only do the first work order in the batch/set the turn around and proceed to try and turn in/abandon the wo's it hasn't done yet.

Any ideas?
Sorry for being a pita

[strabomeeks]

Outstanding work Strab !!, I have a few Noob Questions for yah for ive never got anyones bot to work, im sure its just me though....

question #1 when i download your script am i running it with VGextreme, Exume, or Xunleashed ? or is there a differance.

question#2 Is this to be run in VBS script or Java Script ?

question#3 When i have your script in place what exactly do i change to work for me? all x,y and Taskmaster names ? Is there anything else to change before i hit F5 ? Also do i have to run any other scripts with yours to make it all function.

Sry for so many questions but ive spent hours from time i did my first program download and multi scripts to avail still cant seem to get anything to work with VG. Thanks for any Help u can give Strab !!

1 - VGExtreme

2 - VBScript

3 - You need to make the hotkeys in the first post and put them on the correct bar.
Make sure your movement keys are WASD
change all the mouseclick x, y
put in your locs for movement on each of the movements
MAKE SURE YOU DEFINE THE LOGPATH CORRECTLY, everyone seems to miss this

Basically kinda read down the script, everything you will need to change has a green comment next to it telling you what to do and there is a big box that tells you not to change anything past that point. If you have any other questions feel free to ask.

[stupidhead64]

Having 3 issues.


1) It doesnt appear that it runs me back to the same position every time to run back to the table. I put it in under the return to table section:


'This moves back to the Crafting Table
Sub MovetoCT()

MoveTo 76142, 90668 'Put description here
MoveTo 76110, 90587 'Put description here
MoveTo 76063, 90513 'Put description here
MoveTo 75876, 90409 'Put description here
MoveTo 74915, 90424 'Put description here

Sleep 1000
Start_Crafting
End Sub


As you can see, I have it to return me back to 74915, 90424....This is directly on the far side of the table. Though, it runs me sometimes to the other side, and sometimes it doesnt even get me up close enough to the table to initiate a crafting session.




Other problem I am having is

2) Its looping fine. I am using the 9-19-07 version. It will start a crafting session....


When it clicks begin/begin to actually start crafting an item, it will error out and say on the screen that you actually start the crafting (Step 1)

Error: Line: 214, Char: 12 :: Type mismatch: 'Crafting _StepName'
Error: Line: 214, Char: 12 :: Type mismatch: 'Crafting _StepName'
Failed to Run Script.
End Script.


3) When it goes to turn in a work order, it does that fine. But after it turns in order #3, it will not pick a new work order, instead of will turn around and run back to the crafting table and causing it to loop over and over of just running to the table and running to the taskmaster.


Thanks!

[strabomeeks]

It wont run back to the same position everytime because of the way Movetomob works. It will only get you within 5M of where you set, there is no way around this because that is the way Wyvx programmed the function.

As for the errors you are getting, I dont know what would cause those. I am running that script just fine right now as we speak on the computer next to me, has been running for 6 hours with no problems. Copy and paste the code around where that error is into a post here and ill look at it, chances are you accidently changed something along the lines you should not have.

Sometimes you just need to close VGExtreme and restart it to fix problems, I dont know if its a cache thing or what but that seems to fix a lot of my problems.

[stupidhead64]

Line 214, if I counted right, is the one that says Utility 1.....Also could you copy/paste your current one? Thanks!



Sub Craft_Stage_2()

If (Crafting_StepHealth(2) < 100) And (Crafting_StepHealth(1) = 100) Then
CS = 2
Elseif (Crafting_StepHealth(3) < 100) And (Crafting_StepHealth(2) = 100) Then
CS = 3
Elseif (Crafting_StepHealth(4) < 100) And (Crafting_StepHealth(3) = 100) Then
CS = 4
Elseif (Crafting_StepHealth(5) < 100) And (Crafting_StepHealth(4) = 100) Then
CS = 5
Elseif (Crafting_StepHealth(6) < 100) And (Crafting_StepHealth(5) = 100) Then
CS = 6
Elseif (Crafting_StepHealth(7) < 100) And (Crafting_StepHealth(6) = 100) Then
CS = 7
Elseif (Crafting_StepHealth(8) < 100) And (Crafting_StepHealth(7) = 100) Then
CS = 8
Else CS = 9
End if
Errors
'Utility 1
If (Crafting_StepName(CS) = "Solvent") Or (Crafting_StepName(CS) = "Cure") Or (Crafting_StepName(CS) = "Cleaner") Or (Crafting_StepName(CS) = "Fuel") Or (Crafting_StepName(CS) = "Oil") Then 'Utility
If (Crafting_Quality <26> 25) Then
VGsendText "^+="
sleep 2500
End If
'Tool 1
ElseIf (Crafting_StepName(CS) = "Sculpt") Or (Crafting_StepName(CS) = "Tool") Or (Crafting_StepName(CS) = "Prepare") Or (Crafting_StepName(CS) = "Purify") Or (Crafting_StepName(CS) = "Tend") Or (Crafting_StepName(CS) = "Churn") Or (Crafting_StepName(CS) = "Smith") Or (Crafting_StepName(CS) = "Form") Or (Crafting_StepName(CS) = "Shape") Or (Crafting_StepName(CS) = "Carve") Or (Crafting_StepName(CS) = "Fashion") Or (Crafting_StepName(CS) = "Develop") Or (Crafting_StepName(CS) = "Tool") Or (Crafting_StepName(CS) = "Fit") Or (Crafting_StepName(CS) = "Size") Or (Crafting_StepName(CS) = "Pattern") Then 'Tools 1
If (Crafting_Quality < 26) Then
VGsendText "^+0"
sleep 2500
End If

[strabomeeks]

that all looks right, if you can, go to the very top of the script and make sure you see

Dim CS



I will jump over on the other com and stop my script and see what I have - I am probably about out of utilities anyway your lucky

[strabomeeks]

I spoke too soon The problem seems to lie in this part;
If (Crafting_State <> 3) Then
Mouse.LMouseClick CN_X, CN_Y, 1, 1
MovetoWO
'MovetoWOrefine
End if
Now if I comment the movetowo part out the bot makes all the wo's but of course once all the work orders he has are complete it won't get more.
However if I leave it as is it will only do the first work order in the batch/set the turn around and proceed to try and turn in/abandon the wo's it hasn't done yet.

Any ideas?
Sorry for being a pita

Try putting a sleep 5000 right after

'Tool 2
ElseIf (Crafting_StepName(CS) = "Adjust") Or (Crafting_StepName(CS) = "Smelt") Or (Crafting_StepName(CS) = "Alter") Or (Crafting_StepName(CS) = "Cleanup") Or (Crafting_StepName(CS) = "Smooth") Or (Crafting_StepName(CS) = "Work") Or (Crafting_StepName(CS) = "Modify") Or (Crafting_StepName(CS) = "Decorate") Or (Crafting_StepName(CS) = "Ornament") Then 'Tool 2
VGsendText "^+="
sleep 2500
Else
VGsendText "^+="
sleep 2500
End If
Sleep 5000
End Sub

Like that and see if that helps, it sounds like it is checking to see if you are in a craftnig state and you are not so it goes to turnin.

[strabomeeks]

Line 214, if I counted right, is the one that says Utility 1.....Also could you copy/paste your current one? Thanks!

Here is what I have:

Sub Craft_Stage_2()

If (Crafting_StepHealth(2) < 100) And (Crafting_StepHealth(1) = 100) Then
CS = 2
Elseif (Crafting_StepHealth(3) < 100) And (Crafting_StepHealth(2) = 100) Then
CS = 3
Elseif (Crafting_StepHealth(4) < 100) And (Crafting_StepHealth(3) = 100) Then
CS = 4
Elseif (Crafting_StepHealth(5) < 100) And (Crafting_StepHealth(4) = 100) Then
CS = 5
Elseif (Crafting_StepHealth(6) < 100) And (Crafting_StepHealth(5) = 100) Then
CS = 6
Elseif (Crafting_StepHealth(7) < 100) And (Crafting_StepHealth(6) = 100) Then
CS = 7
Elseif (Crafting_StepHealth(8) < 100) And (Crafting_StepHealth(7) = 100) Then
CS = 8
Else CS = 9
End if
Errors
'Utility 1
If (Crafting_StepName(CS) = "Solvent") Or (Crafting_StepName(CS) = "Cure") Or (Crafting_StepName(CS) = "Cleaner") Or (Crafting_StepName(CS) = "Fuel") Or (Crafting_StepName(CS) = "Oil") Then 'Utility
If (Crafting_Quality <26> 25) Then
VGsendText "^+="
sleep 2500
End If
'Tool 1
ElseIf (Crafting_StepName(CS) = "Sculpt") Or (Crafting_StepName(CS) = "Tool") Or (Crafting_StepName(CS) = "Prepare") Or (Crafting_StepName(CS) = "Purify") Or (Crafting_StepName(CS) = "Tend") Or (Crafting_StepName(CS) = "Churn") Or (Crafting_StepName(CS) = "Smith") Or (Crafting_StepName(CS) = "Form") Or (Crafting_StepName(CS) = "Shape") Or (Crafting_StepName(CS) = "Carve") Or (Crafting_StepName(CS) = "Fashion") Or (Crafting_StepName(CS) = "Develop") Or (Crafting_StepName(CS) = "Tool") Or (Crafting_StepName(CS) = "Fit") Or (Crafting_StepName(CS) = "Size") Or (Crafting_StepName(CS) = "Pattern") Then 'Tools 1
If (Crafting_Quality <26> 25) Then
VGsendText "^+="
sleep 2500
End If
'Station 1
ElseIf (Crafting_StepName(CS) = "Vice") Or (Crafting_StepName(CS) = "Adjust Heat") Or (Crafting_StepName(CS) = "Prime") Or (Crafting_StepName(CS) = "Stretch") Or (Crafting_StepName(CS) = "Heat Metal") Or (Crafting_StepName(CS) = "Pump Bellows") Or (Crafting_StepName(CS) = "Arrange Material") Or (Crafting_StepName(CS) = "Estimate") Or (Crafting_StepName(CS) = "Examine") Or (Crafting_StepName(CS) = "Prime") Or (Crafting_StepName(CS) = "Design") Then 'Station
VGsendText "^+9"
sleep 2500
'Tool 2
ElseIf (Crafting_StepName(CS) = "Adjust") Or (Crafting_StepName(CS) = "Smelt") Or (Crafting_StepName(CS) = "Alter") Or (Crafting_StepName(CS) = "Cleanup") Or (Crafting_StepName(CS) = "Smooth") Or (Crafting_StepName(CS) = "Work") Or (Crafting_StepName(CS) = "Modify") Or (Crafting_StepName(CS) = "Decorate") Or (Crafting_StepName(CS) = "Ornament") Then 'Tool 2
VGsendText "^+="
sleep 2500
Else
VGsendText "^+="
sleep 2500
End If

End Sub

[strabomeeks]

ok, I messed around with the script because I have had 3 people complain about it going back to the wo person after only doing one combine. I did not see anything that would cause this, but I did see a few minor things I have been meaning to fix with a new release so it is coming.

Went ahead and threw in the complication fix for those who want it, if you dont want to use it find this code

If (Crafting_hasComplication = True) Then
Mouse.LMouseClick (CC_X+90), (CC_Y-25), 1, 1
Mouse.LMouseClick (CC_X+75), (CC_Y+75), 1, 1
Mouse.LMouseClick (CC_X+125), (CC_Y+75), 1, 1
Mouse.LMouseClick (CC_X+175), (CC_Y+75), 1, 1
End If

and just delete it, wont hurt anything if you remove it completely.

Will post complete notes once I edit the first post and upload the new version.

[strabomeeks]

The new version is up, I wiped out the old one by accident and now it says it has never been downloaded

Change Log:
9-19-07: Added complication support. This works off a current mouseclick so you dont have to define another one but you may need to change it slightly depending on your resolution. If it is not clicking any of the solutions then look for this code

If (Crafting_hasComplication = True) Then
Mouse.LMouseClick (CC_X+90), (CC_Y-25), 1, 1
Mouse.LMouseClick (CC_X+75), (CC_Y+75), 1, 1
Mouse.LMouseClick (CC_X+125), (CC_Y+75), 1, 1
Mouse.LMouseClick (CC_X+175), (CC_Y+75), 1, 1
End If

and add or subtract some to the CC_X value, do not change the Y value unless you are above or under the solution buttons.

Also removed all the mouseclicks for utilities in the script because they were just making it harder to find stuff, and it seemed to overwhelm people who have just downloaded the script when they do not even work at the moment. Hopefully Wyvx will get this API in ASAP

[strabomeeks]

I did find what could possibly be causing the script to go back to the table without getting new WO's, potential double command error during the error checking process, I fixed this and it should be working fine with the new version for those of you who were having this problem.

[wolfstar]

I did find what could possibly be causing the script to go back to the table without getting new WO's, potential double command error during the error checking process, I fixed this and it should be working fine with the new version for those of you who were having this problem.

Mate, now you're even solving my problems before I ask Well done as always

[strabomeeks]

Thanks thanks.

[stupidhead64]

I did find what could possibly be causing the script to go back to the table without getting new WO's, potential double command error during the error checking process, I fixed this and it should be working fine with the new version for those of you who were having this problem.

Its getting better....It will now click the Available tab, hover over the first one (doesnt click or select just hovers over it) turns and runs back to the table