FrenzyBot Deathlevel Macro (AutoIt)

[brandonlee]

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.

[janfleck]

ehhhm sry bad english^^ for what is it?

[blackWorkx]

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

[hesham8]

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.

[MasteR GunneR]

Actually it's one of the easiest titles to achieve. It just takes some time.

[hesham8]

Originally Posted by MasteR GunneR

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?

[MasteR GunneR]

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.

[XCygon]

does it work? and in what resolution?

[Ganf]

Originally Posted by XCygon

does it work? and in what resolution?

Any you want! The Skript doesn't make any MouseClicks!

MFG
Ganf

[Raigon93]

How do you get this to work??? Where do i put it???

[candyman91]

You need AutoIt3 to run the Script. Save the sourcecode as a ***.au3 file.

[TheHobbes]

When I try to use the Script there is this Message

>"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