Yarr, I hope this is good enough for premium. So, here's the deal:
This macro was designed for those who don't want a full-fledged autominer. All this does is simply move the ore from your hold to a can at the interval specified.
Yes, that's it! But it does what it does well. Zip archive includes exe, readme, and sound files (I think it give it personality. You'll see what I mean
OK, enjoy. Remember - reply with
YAY!
PM me if you're having troubles with it.
-------------------------------------------------------------------------------------
14 Jan 2007
EDIT:
Ok, I made a newbie mistake and didn't realize that exes needed thier source-code posted. So, here ya go:
Code: Select all
;----------------------------------------
; "ELLE" made by "tenant" for www.taultunleashed.com
;----------------------------------------
;Begin
HotKeySet("^{NUMPAD1}", "xyLocation")
HotKeySet("^{NUMPAD2}", "xyDestination")
HotKeySet("{PGDN}", "Pause")
HotKeySet("{PGUP}", "Transfer")
HotKeySet("^{END}", "Terminate")
; Standby
SoundPlay("elle.wav")
Local $rInterval
Global $interval
Global $mPos1
Global $mPos2
Global $mCoord
$mPos1="null"
$mPos2="null"
$rInterval=InputBox("ELLE", "Please Enter the time Interval in seconds which you wish ELLE to transfer at.", "30", "")
Select
Case $rInterval="0"
MsgBox(16, "Invalid Input Error!", "0 is an invalid input. Restart ELLE and try again.")
Exit
Case $rInterval=IsNumber($rInterval)
MsgBox(16, "Invalid Input Error!", "Number must be inserted. Restart ELLE and try again.")
Exit
EndSelect
$interval=$rInterval*1000-1500
Idle()
Func xyLocation()
$mPos1=MouseGetPos()
SoundPlay("point.wav")
Idle()
EndFunc
Func xyDestination()
$mPos2=MouseGetPos()
SoundPlay("point.wav")
Idle()
EndFunc
Func Idle()
While 1=1
Sleep(1000)
WEnd
EndFunc
Func Transfer()
Select
Case $mPos1="null" AND $mPos1="null"
MsgBox(48, "Hold on! Where are the coodinates?", "No Coordinates has been Set. Refer to the readme file for assistance.")
Idle()
Case $mPos1="null"
MsgBox(48, "Hold on! Where is coodinate 1?", "Coordinate 1 has been set. Press Ctrl+NumPad1 to set coordinate at location of mouse pointer.")
Idle()
Case $mPos2="null"
MsgBox(48, "Hold on! Where is coodinate 2?", "Coordinate 2 has been set. Press Ctrl+NumPad2 to set coordinate at location of mouse pointer.")
Idle()
EndSelect
SoundPlay("execute.wav")
While 1=1
$mCoord=MouseGetPos()
MouseMove($mPos1[0], $mPos1[1], 0)
MouseDown("left")
MouseMove($mPos2[0], $mPos2[1], 0)
Sleep(400)
MouseUp("left")
Sleep(600)
MouseMove($mCoord[0], $mCoord[1], 0)
Sleep($interval)
WEnd
EndFunc
Func Pause()
SoundPlay("cease.wav")
While 1=1
Sleep(1000)
WEnd
EndFunc
Func Terminate()
SoundPlay("quit.wav", 1)
Exit
EndFunc
;Done
Also, while getting the source code to post here, I found a small error in the original. If you downloaded the archive I originaly posted please get this new one instead.
-------------------------------------------------------------------------------------
17 Jan 2007
EDIT:
Gah! Only ONE yay!? C'mon people, just try it out! Doesn't mean you're going to have to use it for the rest of your life! Just enough to say you like it! (Sorry for adding edits, but I'm not allowed to post again in the thread... non-prem account you see...)
So hey all you premium members! Why not give it a try!? What've you got to lose? I'll tell you... nothing! That's right! This wonderful little gem of programming can be yours,
absolutley risk free! Tault_buckw1 votes yay, and he's a moderator. So it must be good, right? Well, why not find out for yourself? Download your copy today! And remember... VOTE YAY!
Who is online