Here is a simple script I wrote yesterday to automate collecting stuff.
Features :
Collect for hours effortlessly
Works minimized
Customizable timings
Requirements :
Latest version (not if you use the executables included in the zip file)
Windows x64
Probably needs to run as Admin
Usage :
Launch archlord and go to your collecting site
Launch the script, make sure the client you want to collect with is frontmost
Eventually adjust the timing according to your connection/lag...
Click the "Start" button
The script is currently setup for french keyboard layout. If you would like to change that, you would just have to change the values of $k_attack and $k_collect accordingly :
Code:
; Attack skill key
Dim $k_attack = '"' ; Change my value here ("3" for english keyboard)
; Collecting skill key
Dim $k_collect = "'" ; Change my value here ("4" for english keyboard)
Source :
Code:
#RequireAdmin
#include <GUIConstantsEx.au3>
; Exact windows title matching
Opt("WinTitleMatchMode", 3)
; Change to OnEvent mode
Opt("GUIOnEventMode", 1)
; GUI Variables
Dim $GUITitle = "Collector", $GUITitleRunning = "Collector - Running"
Dim $GUI, $GUIStart, $GUIStop, $GUITabInput, $GUIHitInput, $GUICollectInput
; Main script variables
; Times obtained from the GUI
Dim $t_tab, $t_hit, $t_collect
; Attack skill key
Dim $k_attack = '"'
; Collecting skill key
Dim $k_collect = "'"
; Is the script running?
Dim $paused = True
; Archlord window title
Dim $title = "AL - Collecting"
Func DrawGUI()
; Main window
$GUI = GUICreate($GUITitle, 300, 100)
; Time value input (in seconds)
; Wait time after "tabbing"
GUICtrlCreateLabel("Tab wait : ", 10, 10)
$GUITabInput = GUICtrlCreateInput(1, 110, 7)
; Wait time after pressing the "hit" key
GUICtrlCreateLabel("Hit wait : ", 10, 40)
$GUIHitInput = GUICtrlCreateInput(5, 110, 37)
; Wait time after pressing the "collect" key
GUICtrlCreateLabel("Collection wait : ", 10, 75)
$GUICollectInput = GUICtrlCreateInput(6, 110, 72)
; GUI Events
; Exit event
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
; Start event
$GUIStart = GUICtrlCreateButton("Start", 245, 5, 50, 40)
GUICtrlSetOnEvent($GUIStart, "Start")
; Stop event
$GUIStop = GUICtrlCreateButton("Stop", 245, 55, 50, 40)
GUICtrlSetOnEvent($GUIStop, "Stop")
; We can't stop if we haven't yet started
GUICtrlSetState($GUIStop, $GUI_DISABLE)
; Display the GUI
GUISetState(@SW_SHOW)
EndFunc
; Read the times from the GUI, and convert to milliseconds
Func GUIReadValues()
$t_tab = GUICtrlRead($GUITabInput) * 1000
$t_hit = GUICtrlRead($GUIHitInput) * 1000
$t_collect = GUICtrlRead($GUICollectInput) * 1000
EndFunc
; Start collecting
Func Start()
; Indicate that we are collecting, by changing the GUI's title
WinSetTitle($GUI, "" , $GUITitleRunning)
; Disable the Start button
GUICtrlSetState($GUIStart, $GUI_DISABLE)
; Enable the Stop button
GUICtrlSetState($GUIStop, $GUI_ENABLE)
; Update the wait time values
GUIReadValues()
; Change Archlord window title to be sure we are targetting the right one
WinSetTitle("Archlord", "", $title)
; Start collecting
$paused = False
EndFunc
; Abort collecting
Func Stop()
; Stop collecting
$paused = True
; Change Archlord window title back to normal
WinSetTitle($title, "", "Archlord")
; Disable the Stop button
GUICtrlSetState($GUIStop, $GUI_DISABLE)
; Enable the Start button
GUICtrlSetState($GUIStart, $GUI_ENABLE)
; Indicate that we have stopped collecting, by changing the GUI's title
WinSetTitle($GUI, "" , $GUITitle)
EndFunc
; Close the GUI
Func Close()
Exit
EndFunc
; Draw the GUI
DrawGUI()
; Main action loop
While 1
; Collect ...
If Not $paused Then
; Tab to the next mob
ControlSend($title, "", "", "{TAB}")
Sleep($t_tab)
; Kill it
ControlSend($title, "", "", $k_attack)
Sleep($t_hit)
; Collect it
ControlSend($title, "", "", $k_collect)
Sleep($t_collect)
Else ; Or wait
Sleep(1000)
EndIf
WEnd
Long answer :
To make a 32bit version I would need a way to send keystrokes to the Archlord window that works on a x86 version of windows.
I know it is possible, but I don't have such a tool at my disposal, and I don't have the time to do it myself.
Maybe somebody who does have it will feel like modifying the code above to make it work.
Here is a simple script I wrote yesterday to automate collecting stuff.
Features :
Collect for hours effortlessly
Works minimized
Customizable timings
Requirements :
Latest version (not if you use the executables included in the zip file)
Windows x64
Probably needs to run as Admin
Usage :
Launch archlord and go to your collecting site
Launch the script, make sure the client you want to collect with is frontmost
Eventually adjust the timing according to your connection/lag...
Click the "Start" button
The script is currently setup for french keyboard layout. If you would like to change that, you would just have to change the values of $k_attack and $k_collect accordingly :
Code:
; Attack skill key
Dim $k_attack = '"' ; Change my value here ("3" for english keyboard)
; Collecting skill key
Dim $k_collect = "'" ; Change my value here ("4" for english keyboard)
Source :
Code:
#RequireAdmin
#include <GUIConstantsEx.au3>
; Exact windows title matching
Opt("WinTitleMatchMode", 3)
; Change to OnEvent mode
Opt("GUIOnEventMode", 1)
; GUI Variables
Dim $GUITitle = "Collector", $GUITitleRunning = "Collector - Running"
Dim $GUI, $GUIStart, $GUIStop, $GUITabInput, $GUIHitInput, $GUICollectInput
; Main script variables
; Times obtained from the GUI
Dim $t_tab, $t_hit, $t_collect
; Attack skill key
Dim $k_attack = '"'
; Collecting skill key
Dim $k_collect = "'"
; Is the script running?
Dim $paused = True
; Archlord window title
Dim $title = "AL - Collecting"
Func DrawGUI()
; Main window
$GUI = GUICreate($GUITitle, 300, 100)
; Time value input (in seconds)
; Wait time after "tabbing"
GUICtrlCreateLabel("Tab wait : ", 10, 10)
$GUITabInput = GUICtrlCreateInput(1, 110, 7)
; Wait time after pressing the "hit" key
GUICtrlCreateLabel("Hit wait : ", 10, 40)
$GUIHitInput = GUICtrlCreateInput(5, 110, 37)
; Wait time after pressing the "collect" key
GUICtrlCreateLabel("Collection wait : ", 10, 75)
$GUICollectInput = GUICtrlCreateInput(6, 110, 72)
; GUI Events
; Exit event
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
; Start event
$GUIStart = GUICtrlCreateButton("Start", 245, 5, 50, 40)
GUICtrlSetOnEvent($GUIStart, "Start")
; Stop event
$GUIStop = GUICtrlCreateButton("Stop", 245, 55, 50, 40)
GUICtrlSetOnEvent($GUIStop, "Stop")
; We can't stop if we haven't yet started
GUICtrlSetState($GUIStop, $GUI_DISABLE)
; Display the GUI
GUISetState(@SW_SHOW)
EndFunc
; Read the times from the GUI, and convert to milliseconds
Func GUIReadValues()
$t_tab = GUICtrlRead($GUITabInput) * 1000
$t_hit = GUICtrlRead($GUIHitInput) * 1000
$t_collect = GUICtrlRead($GUICollectInput) * 1000
EndFunc
; Start collecting
Func Start()
; Indicate that we are collecting, by changing the GUI's title
WinSetTitle($GUI, "" , $GUITitleRunning)
; Disable the Start button
GUICtrlSetState($GUIStart, $GUI_DISABLE)
; Enable the Stop button
GUICtrlSetState($GUIStop, $GUI_ENABLE)
; Update the wait time values
GUIReadValues()
; Change Archlord window title to be sure we are targetting the right one
WinSetTitle("Archlord", "", $title)
; Start collecting
$paused = False
EndFunc
; Abort collecting
Func Stop()
; Stop collecting
$paused = True
; Change Archlord window title back to normal
WinSetTitle($title, "", "Archlord")
; Disable the Stop button
GUICtrlSetState($GUIStop, $GUI_DISABLE)
; Enable the Start button
GUICtrlSetState($GUIStart, $GUI_ENABLE)
; Indicate that we have stopped collecting, by changing the GUI's title
WinSetTitle($GUI, "" , $GUITitle)
EndFunc
; Close the GUI
Func Close()
Exit
EndFunc
; Draw the GUI
DrawGUI()
; Main action loop
While 1
; Collect ...
If Not $paused Then
; Tab to the next mob
ControlSend($title, "", "", "{TAB}")
Sleep($t_tab)
; Kill it
ControlSend($title, "", "", $k_attack)
Sleep($t_hit)
; Collect it
ControlSend($title, "", "", $k_collect)
Sleep($t_collect)
Else ; Or wait
Sleep(1000)
EndIf
WEnd
Maybe someone can use that, enjoy
The script is currently setup for french keyboard layout. If you would like to change that, you would just have to change the values of $k_attack and $k_collect accordingly :
Code:
; Attack skill key
Dim $k_attack = '"' ; Change my value here ("3" for english keyboard)
; Collecting skill key
Dim $k_collect = "'" ; Change my value here ("4" for english keyboard)
i dont how to change the script
when i opened it doesnt change anything
pls tell me how to do
Open the .au3 file in the archive with your text editor, then change the values like so :
Attack skill key
Dim $k_attack = "3" ; Change my value here ("3" for english keyboard)
; Collecting skill key
Dim $k_collect = "4" ; Change my value here ("4" for english keyboard)
need a simple tool 06/22/2009 - Silkroad Online - 1 Replies hi guys! i want a tool that show you how much xp you gain per hour/minute, how many mobs you kill, how many sp's u get per hour/minute, just like SBot has ! post here if u have such tool :D ty
Simple packet bot/app/tool? 01/28/2009 - Silkroad Online - 0 Replies I have minimal-basic programming experience, what i am wanting to do is set up a char (preferably clientless) that searched the stall network (weapons 9 degrees) for items suitable to rondo (eg if 85 + Blue and price < 5.6m then buy)
How would i go about doing this? I presume i would need to do something with edx33/sr33? Is that even plausible or possible? Or is there another way to do this?
Simple DC tool 05/12/2007 - Conquer Online 2 - 7 Replies HI. i need DC tool who dc for all players?
Can someone help?
An Extremely simple tool 0.o 11/15/2006 - CO2 Bots & Macros - 12 Replies This was not made by me it is a simple auto-right clicker usefulll for lvling intenseify
and other things.
ALL credit goes to Aldo Vargas
Instructions:
Click on Left | Middle | Right depending on wich button on your mouse you want auto.
Disable= Stop all clicking.
Click while button is down= will only auto click while you hold down the button.
Auto-Click On/Off= will automatically right click
need a simple macro-tool 05/24/2006 - General Coding - 2 Replies i'm looking for a simple macro-tool..
it should support something like a timer.. like every 30min click/type for me.. would be good if i can record and then just keep it running..
i've tested some tools.. but could not really find what i wanted.. some advice would be nice though.. hehe
---------------
ich suche ein simples macro-tool
version (not if you use the executables included in the zip file)
