StonerArena (Arena Wintrading Bot)

[hybrid4]

StonerArena v1
Arena Wintrading Bot

What is this shit?

After getting fed up with googling for a wintrading bot, i decided to write my own.
Made in autoit and made as a K.S.S. program

StonerArena is a simple wintrading bot
No memory editing.
No bullshit.

Usage

Add macros and Key Binds to corresponding bars/keys on all characters.
If you need more help check out the Readme inside the program.



Macros:

#Action bar 1
/target Arena Battlemaster

#Action bar 2
/script JoinBattlefield(1) #Skirmish Single
#/script JoinBattlefield(1, true) #Skirmish + Group
#/script JoinBattlefield(1, true, true)  #Rated + Group

#Action bar 3
/script AcceptBattlefieldPort(1, 1)

#Action bar 4
/script LeaveBattlefield()

Key Binds:

Bind F7 to "Interact With Target"

Source:

;StonerArena v1 (Arena Wintrading Bot)
;By HybriD
;------------------------------------
;DISCLAIMER:
;Don't be stupid, don't get caught
;For best results, use 3.3.5a (12340)
;------------------------------------
;
;Macros:
;#Action bar 1
;/target Arena Battlemaster
;
;#Action bar 2
;#/script JoinBattlefield(1) #Skirmish Single
;#/script JoinBattlefield(1, true) #Skirmish + Group
;/script JoinBattlefield(1, true, true)  #Rated + Group
;
;#Action bar 3
;#/script AcceptBattlefieldPort(1, 1)
;
;#Action bar 4
;#/script LeaveBattlefield()

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$MainWin = GUICreate("StonerArena", 235, 206, 221, 131)
$FuncMenu = GUICtrlCreateMenu("&Functions")
$RenWoW = GUICtrlCreateMenuItem("Rename", $FuncMenu)
$HelpWin = GUICtrlCreateMenu("&Help")
$ReadMe = GUICtrlCreateMenuItem("Readme", $HelpWin)
$RunBot = GUICtrlCreateButton("Run", 80, 112, 83, 25, $BS_VCENTER)
$JoinArena = GUICtrlCreateButton("Join Arena", 24, 32, 75, 25, $BS_VCENTER)
$ExitArena = GUICtrlCreateButton("Exit Arena", 24, 56, 75, 25, $BS_VCENTER)
$JoinArenaA = GUICtrlCreateButton("Join All", 136, 32, 75, 25, $BS_VCENTER)
$ExitArenaA = GUICtrlCreateButton("Exit All", 136, 56, 75, 25, $BS_VCENTER)
$gg = GUICtrlCreateButton("Good Game", 80, 136, 83, 25, $BS_VCENTER)
$ZmbGrp = GUICtrlCreateGroup("Zombies", 128, 16, 97, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$PrtyLdrs = GUICtrlCreateGroup("Party Leaders", 8, 16, 105, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Que Functions", 72, 96, 97, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $var = WinList("WoWHost", "")
Global $var2 = WinList("World of Warcraft", "")
Global $i

Func Runin()
	For $i = 1 To $var[0][0]
		;MsgBox(0, "HWNDs", "Title=" & $var[$i][0] & " HWND=" & $var[$i][1]) ;Extra crap
		ControlSend($var[$i][1], "", "", "{1}")
		ControlSend($var[$i][1], "", "", "{F7}")
	Next
EndFunc

Func Ex()
	For $i = 1 To $var[0][0]
		ControlSend($var[$i][1], "", "", "{4}")
	Next
EndFunc

Func Join()
	For $i = 1 To $var[0][0]
		ControlSend($var[$i][1], "", "", "{3}")
	Next
EndFunc

Func RenameWoW()
	for $i = 1 to $var2[0][0]
		WinSetTitle($var2[$i][1], "", "WoWHost")
	Next
EndFunc

Func JoinA()
	For $i = 1 to $var2[0][0]
		ControlSend($var2[$i][1], "", "", "{3}")
	Next
EndFunc

Func ExA()
	For $i = 1 to $var2[0][0]
		ControlSend($var2[$i][1], "", "", "{4}")
	Next
EndFunc

Func Gg()
	For $i = 1 to $var[0][0]
		ControlSend($var[$i][1], "", "", "{2}")
	Next
EndFunc

Func HelpDoc()
	MsgBox(0, "README", "Open 2 coppies of WoW. Click Functions>Rename. Sign in the party leaders. Open 2 more coppies of WoW. Sign in zombie characters. Invite each zombie to arena teams and group. Put party leaders next to an Arena Battlemaster. Click the Run button. Wait a sec. Click Good Game. If both parties get Que at same time, hit Join Arena/Join All. If not, then just ignore the Que pop and repeat.")
EndFunc

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $RunBot
			Runin()
		Case $JoinArena
			Join()
		Case $ExitArena
			Ex()
		Case $JoinArenaA
			JoinA()
		Case $ExitArenaA
			ExA()
		Case $gg
			Gg()
		Case $RenWoW
			RenameWoW()
		Case $ReadMe
			HelpDoc()
	EndSwitch
WEnd

Compile and run

Post improvements/questions if need be.

Mini-guide:

Preparation:

1. Make 4 accounts.
3. WoWHost windows are logged in as respecting party leaders.
3. World of Warcraft windows are logged in as respecting zombie party members.
- (At this point you set up the Action Bars on each character with the shown macros [Only the keys 1,2,3,4 are used] and key bind F7 to "Interact With Target")
4. Make 2 teams, (A, B).
5. WoWHost(1) invites Zombie(1) to A and group A.
6. WoWHost(2) invites Zombie(2) to B and group B.
- (At this point A and B will que and lose every game until their MMR is as low as possible. Once desired MMR is achieved, re-make team A and B)
7. Place WoWHost(1 + 2) next to an Arena Battlemaster (Where you que for arena)
8. Place Zombie (1 + 2) somewhere inconspicuous.

Usage:

:
9. Hit (Run) and wait ~3 seconds.
10. Hit (Good Game)
- (Wait for que to pop, once it does continue to step 11.)
11. Hit (Join Arena)
- (Wait for match to start -> 12.)
12. Make the team (A) stay. And team (B) leave. (Macro #4 to exit arena manually)
13. Repeat steps steps 9-12.
- (Next game you will reverse B and A and vice-versa)

[fredrik1984]

I thought they had fixed arena wintrading with making sure everyone in the team losing rating when the team loses. Or am I mistaken?

[hybrid4]

I thought they had fixed arena wintrading with making sure everyone in the team losing rating when the team loses. Or am I mistaken?

I assumed the same. This is fully functional for arena based private servers, at least on 3.3.5 (arena-tournament, etc etc).
PR will stay the same for characters who dont enter the game, allowing you to balance out the que. While MMR is subtracted.
Tested and achieved 2100 before I lost interest.
Even at a win lose ratio of 1:1 you will still gain Rating and PR while maintaining a 1350~ MMR.

[Owneth]

Yeah but it's still a KILLER way to level guilds...

[Maingar]

Will test this weekend, big hopes on this program.

[masch1na]

So what does this do anyway?

[hybrid4]

Will test this weekend, big hopes on this program.

I got big hopes too. Remember to tank your MMR on both teams as low as it'll go before starting.
If your CPU can handle it, run 10 instances of WoW and do 5s. Less people tend to do 5v5 so it makes the process run more smoothly.

So what does this do anyway?

StonerArena allows you to boost Personal Rating, and Arena Team Rating, whilst keeping your Match Making Rating at a constant low.

Layman's:
1. Wintrade to rank #1.
2. Gain gear without skill.
3. **** bitches.
4. Get money.

[Yiannisg]

Functions>Rename dasnt working

[Maingar]

maybe a mini-guide step by step for testers will help so much.

[Dominium]

So I assume this doesn't work on live?

[hybrid4]

Functions>Rename dasnt working

That's not very descriptive...
Just tested and it's working fine for me.
Did you open up 2 copies of WoW, then use Rename?
If for some-odd reason it's having a UAC mind ****, add

#RequireAdmin

to the top of the script.

The bot decides which button corresponds to which window by using arrays filled by WoW's window title.
Functions>Rename will rename all running copies as WoWHost. That's why you open 2 and use the Rename function once before opening the rest.

So I assume this doesn't work on live?

If it did, I'd make you pay for it.

maybe a mini-guide step by step for testers will help so much.

Hope the updated post helps.

[ArenaAddictsdotcom]

wintrading is for noobs wtf

[empty_skillz]

wintrading is for noobs wtf

win trade has many words. Hitting a share, loweirng your rating to a share, loosing a few games to a friend so he can get rating, even multi rank 1s are doing this to Hit "share" ratings to maintain rank 1s in several teams without being competive, if your on the same rating as rank 1 team your going to share rank 1 when season ends.

also most boosting team does this against their own/alt own teams cause they can get the rating back asap. so if rank 1s do this and they are noobs, you should not be playing this game sir

[kennythefish]

anyone got this bot?

[Kaylo]

anyone got this bot?

Hey, you compile the source code with: AutoIt - AutoItScript to get an executable file.