FrenzyBot Deathlevel Macro (AutoIt)

05/03/2008 12:56 brandonlee#1
Code:
#NoTrayIcon

#include <GUIConstants.au3>

HotKeySet("{End}", "Recruit")
GuiCreate("AxeY-Frenzybot v1", 170, 50, 200, 100, $WS_DLGFRAME)
WinSetOnTop("AxeY-Frenzybot v1", "", 1)
$btnStart = GuiCtrlCreateButton("Start", 4, 1, 50, 20)
;$btnStop = GUICtrlCreateButton("Stop", 60, 1, 50, 20)
$btnExit = GUICtrlCreateButton("Exit", 116, 1, 50, 20)
$strSpam = InputBox("AxeY-Frenzybot v1 - Frenzy key:", "Please input the skill key for frenzy.")
$intCount = InputBox("AxeY-Frenzybot v1 - Number of times to frenzy:", "Please input the number of times that you wish to use frenzy before the bot stops.")
$intDelay = InputBox("AxeY-Frenzybot v1 - Delay between each frenzy:", "Please input the number of seconds you want to pass before re-using frenzy.")
MsgBox(0,"AxeY-Frenzybot v1 - Warning!", "Remember to make sure you are not in a chat channel, ready to type. Make sure your death leveling target is attacking and all equipment is adjusted.")
GuiSetState()
while GuiGetMsg() <> $GUI_EVENT_CLOSE
$msg = GuiGetMsg()
Select
Case $msg = $btnStart
WinActivate("Guild Wars")
Sleep(2000)
; IF $intCount = -1 THEN
; while 1
; Recruit()
; Sleep($intDelay * 1000)
; wend
; ElseIf
for $x = 1 to $intCount
Recruit()
Sleep($intDelay * 1000)
next
; EndIf
; Case $msg = $btnStop
; ExitLoop
Case $msg = $btnExit
Exit
EndSelect
WEnd
Func Recruit()
Send("{9}")
Sleep(200)
Send($strSpam)
Sleep(200)
Send("{9}")
EndFunc

This is something that i made last night but i amen't sure if it works completely yet, but probably does. Took me ages to figure out how to work with AutoIt but decided to just get a deathlevel bot seen as there are none, regards.

Also the interface does NOT matter at all. All that you need to do is go through the gate and then run it.
05/03/2008 19:12 janfleck#2
ehhhm sry bad english^^ for what is it?
05/03/2008 20:06 blackWorkx#3
Ich denke ma das is fürs des Tutorial.. der Bot stirbt wohl btw. lässt sich killen und wenne r dann keine ahnung xxxmal gestroben is er dann den truthan da killt xD
05/05/2008 02:52 hesham8#4
It's a death levelling bot for Pre-Searing, to get the Legendary Defender of Ascalon title. The title is pretty close to impossible to get.
05/05/2008 12:06 MasteR GunneR#5
Actually it's one of the easiest titles to achieve. It just takes some time.
05/07/2008 09:52 hesham8#6
Quote:
Originally Posted by MasteR GunneR View Post
Actually it's one of the easiest titles to achieve. It just takes some time.
Assuming you've got the time. Isn't the average time roughly 3-4 months?
05/07/2008 13:59 MasteR GunneR#7
Yeah, I think the average time is anywhere from 800h up to 1000h of real playtime (better say afk-time) so it would be doable in about a month.
But imho 3 months (or even more) are far more realistic.
08/03/2008 17:15 XCygon#8
does it work? and in what resolution?
08/09/2008 00:10 Ganf#9
Quote:
Originally Posted by XCygon View Post
does it work? and in what resolution?
Any you want! The Skript doesn't make any MouseClicks!

MFG
Ganf
09/22/2008 03:38 Raigon93#10
How do you get this to work??? Where do i put it???
09/22/2008 07:36 candyman91#11
You need AutoIt3 to run the Script. Save the sourcecode as a xxx.au3 file.
03/31/2009 21:52 TheHobbes#12
When I try to use the Script there is this Message
Quote:
>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\***\Documents\AutoiT\Tut-Tool.au3"
C:\Users\***\Documents\AutoiT\Tut-Tool.au3 (6) : ==> Variable used without being declared.:
GuiCreate("AxeY-Frenzybot v1", 170, 50, 200, 100, $WS_DLGFRAME)
GuiCreate("AxeY-Frenzybot v1", 170, 50, 200, 100, ^ ERROR
>Exit code: 1 Time: 0.214