|
I havent touched this section...Also that video I sent you for some reason its cutting off the end when you stream it, but on my hard drive its showing up perfect =P lol
'---------------------------------------------------
'This turns in any completed work orders and gets new ones.
'You need to uncomment whatever skill you are doing. Right now Tailoring is uncommented.
Sub Turnin()
Mouse.LMouseClick LFW_X, LFW_Y, 1, 1
Mouse.LMouseClick CT_X, CT_Y, 1, 1
For Count = 0 to 2
Mouse.LMouseClick FWO_X, FWO_Y, 1, 1
Mouse.LMouseClick CB_X, CB_Y, 1, 1
Sleep 1000
VGSendCommand "/lootall"
Errors
Next
Mouse.LMouseClick AT_X, AT_Y, 1, 1
Mouse.LMouseClick FWO_X, FWO_Y, 1, 1
Counter = 1
Do Until (Crafting_AvailableWorkOrderDifficulty = "") OR (Counter > 20)
Counter = Counter + 1
Sleep 1500
If (Crafting_AvailableWorkOrderDifficulty = "Difficulty: Easy") OR (Crafting_AvailableWorkOrderDifficulty = "Difficulty: Very Easy") Then 'You can decide wether or not you can handle harder WO's here
'If (Crafting_AvailableWorkOrderSkill = "Skill: Mineralogy ") OR (Crafting_AvailableWorkOrderSkill = "Skill: Artificing ") OR (Crafting_AvailableWorkOrderSkill = "Skill: Forming ")Then 'This is where you set what work order skillset you desire
'If (Crafting_AvailableWorkOrderSkill = "Skill: Armor Smithing ") OR (Crafting_AvailableWorkOrderSkill = "Skill: Metallurgy ") OR (Crafting_AvailableWorkOrderSkill = "Skill: Blacksmithing ")Then
If (Crafting_AvailableWorkOrderSkill = "Skill: Tailoring ") OR (Crafting_AvailableWorkOrderSkill = "Skill: Outfitting ")Then
'If (Crafting_AvailableWorkOrderSkill = "Skill: Carpentry ") OR (Crafting_AvailableWorkOrderSkill = "Skill: Artificing ")Then
Mouse.LMouseClick CB_X, CB_Y, 1, 1
Mouse.LMouseClick FWO_X, FWO_Y, 1, 1
Else
Mouse.LMouseClick DA_X, DA_Y, 1, 1
Mouse.LMouseClick FWO_X, FWO_Y, 1, 1
End If
Else
Mouse.LMouseClick DA_X, DA_Y, 3, 1
Mouse.LMouseClick FWO_X, FWO_Y, 1, 1
End If
Loop
MovetoCT
End Sub
|