Register for your free account! | Forgot your password?

You last visited: Today at 02:13

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

 

auto-Crafting

Reply
 
Old   #1
 
elite*gold: 209
The Black Market: 135/1/0
Join Date: Jul 2003
Posts: 16,612
Received Thanks: 17,573
Basically I was burnt on the joke of a crafting system.
You'll want to load your quickbar up with items that get progressively harder. This macro will make them until you get so many successes in a row then move on to the next quickbar slot. Starting at 1 going through '10' . It will automatically sell the item that appears in the inventory slot you initialize it with.
Make sure you have the npc you want to sell to before you run the script, the autosell will only work for tailoring, unless you happen to find an npc close enough to a forge or lathe etc.

Code:
Dim $CraftCount, $CraftSlot 
$CurrentCraft = 1 
MsgBox (0, "Mouse position Init 1", "Place cursor over empty item slot to sell from then press spacebar to save that position") 
$LootSlotPosition = MouseGetPos() 
$LSlotColor = PixelGetColor ($LootSlotPosition[0], $LootSlotPosition[1]) 
MsgBox (0, "Mouse Position Init 2", "Move cursor over craft progress window") 
$CWinPos = MouseGetPos() 
$CwinColor = PixelGetColor ($CWinPos[0], $CWinPos[1]) 
Do 
$CraftCount = InputBox ("Run count init", "How many attempts should this do ?", "") 
$QuitAfter = MsgBox (4, "Exit After Run", "Do you want the script to exit DAoC after its done?") 
$foo = 0 
$SCount = 0 
While $foo <= $CraftCount 
  WinActivate ("Dark Age") 
  Send ($CurrentCraft) 
  Sleep (2000) 
  While PixelGetColor ($CWinPos[0], $CWinPos[1]) = $CWinColor 
  Sleep (500) 
  WEnd 
  Sleep (Random(1000,4000)) 
  If PixelGetColor($LootSlotPosition[0], $LootSlotPosition[1]) = $LSlotColor Then 
  $SCount = 0 
   Else 
     WinActivate ("Dark Age") 
    MouseMove ($LootSlotPosition[0], $LootSlotPosition[1], 0) 
    MouseClick ("left") 
  Send ("+S") 
  Sleep (Random(100,2000)) 
  $SCount = $SCount + 1 
  Endif 
;**************************1 
;-The Number in the next line is the succes count 
; it has to reach before crafting the next slot 
  If $Scount > 6 Then 
;*************************** 
    $CurrentCraft = $CurrentCraft + 1 
   If $CurrentCraft > 9 Then 
    Exit 
   EndIf  
  EndIf 
  $foo = $foo + 1 
WEnd 
If $QuitAfter = 6 Then 
  Send ("/q") 
  Sleep (25000) 
  Send ("{ESC}") 
  Sleep (10000) 
  Send ("{ESC}") 
  Exit 
Endif 
$Again = MsgBox (4, "Again?", "Run again with same window positions?") 
Until $Again = 7 
Exit



Lowfyr is offline  
Old   #2
 
elite*gold: LOCKED
Join Date: Feb 2005
Posts: 335
Received Thanks: 37
Sorry für die Frage, aber da shört sich alles toll an, nur was mach ich mit dem Code jetzt, dass ich das nutzen kann?


Sobieski™ is offline  
Old   #3
 
elite*gold: 209
The Black Market: 135/1/0
Join Date: Jul 2003
Posts: 16,612
Received Thanks: 17,573
runterladen, code einfügen, starten
Lowfyr is offline  
Old   #4
 
elite*gold: LOCKED
Join Date: Feb 2005
Posts: 335
Received Thanks: 37
Okay danke Dir - werdsch dann gleich mal testen, wennsch vonner Arbeit wieder @ home bin
Sobieski™ is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
auto crafting
Hi all, I want to ask , some1 have working auto crafting tools or programme ?
0 Replies - Aion Main - Discussions / Questions
Crafting...
Has anyone been able to make a crafting macro of some form? im sure it cant be TOO hard but having no programming experience i really dont know...
0 Replies - Aion Main - Discussions / Questions
GG Updated... Auto Hp, Auto loot, Auto summon not working anymore
GG Updated again! all of my pinacle are not working...
21 Replies - Dekaron
afk Crafting [ENG]
;This code needs to be run with the AUTOIT V3 'run script' program ; ; User needs to update these values accordingly ; $eq = "EverQuest II...
0 Replies - General Gaming Discussion



All times are GMT +1. The time now is 02:13.


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

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