Star's Tears Vendor Bot (Org)

[Multitask]

EXPLOIT HAS BEEN HOTFIXED DO NOT USE! THREAD WILL REMAIN OPEN FOR PEOPLE THE REFERENCE THE AUTOIT CODE

EDIT: bot now has full background mode and dosnt require mouse input. changed the macros and the code. please redownload.

This bot will buy 10 stacks of Star's Tears (Org) and then vendor the 10 stacks. Thanks to turner850 for correcting my error lul

SETUP

1) Create the macros (see below)
2) Bind "Interact with Target" to "P" (opens vendor window)
3) Run starstears.exe and easy money. (read the tooltip to set mouse location)

-F1 to start/pause
-F2 to stop

MACROS

bind this to 1

/target Brave Stonehide

bind this to 2

/script BuyMerchantItem(13)
/script BuyMerchantItem(13)
/script BuyMerchantItem(13)
/script BuyMerchantItem(13)
/script BuyMerchantItem(13)

bind this to 3

/script for bag = 0, 4 do for slot = 1, GetContainerNumSlots(bag) do local name = GetContainerItemLink(bag,slot) if name and string.find(name,"Star's Tears") then DEFAULT_CHAT_FRAME:AddMessage("Selling "..name) UseContainerItem(bag,slot) end end end

DOWNLOAD

starstears.rar

VIRUS SCAN

Virustotal. MD5: 038b9c6ca3a208476bfce9b05c35362a Trojan.Win32.Autoit.ww Trojan/Downloader.Agent.cgfw
(autoit false positives)

SOURCE (requested)

$wow_window = "World of Warcraft" 
WinActivate($wow_window, "") 
WinSetOnTop($wow_window, "", 0) 
Sleep(1000) 

$hWnd = WinGetHandle("[CLASS:GxWindowClassD3d]")


HotKeySet("{F2}", "StopScript");
AdlibEnable("pause");
HotKeySet("{F1}","pauseset");
$Pause = -1



ToolTip("Executing script...", 0, 0)
Sleep (2000)
	Setup()


Func Setup()
	ToolTip("Preparing to start, please wait...", 0, 0)
	Sleep(2000)
	Buy()
EndFunc

Func Buy()
	
		ControlSend($hWnd, "", "", "{1}")
		ControlSend($hWnd, "", "", "{p}")
		Sleep(1000)
		
		ControlSend($hWnd, "", "", "{2}")
		Sleep(1000)
		ControlSend($hWnd, "", "", "{2}")
		Sleep(1000)
		
		
		Sell()
	
EndFunc

Func Sell()
	
		
	Sleep(1000)
	ControlSend($hWnd, "", "", "{1}")
	ControlSend($hWnd, "", "", "{p}")
	ControlSend($hWnd, "", "", "{3}")
	Sleep(3000)
	

Buy()
		
EndFunc


Func pauseset()
  $Pause = $Pause * -1
EndFunc

Func pause()
  While $Pause = -1
       Sleep(500)
	   ToolTip("Bot Paused, F1 to resume.", 0, 0)
  Wend
EndFunc

Func StopScript() 
$stop = MsgBox(4, "-ßlink- Star's Tears Bot", "Do you want to Exit the bot?") 
If $stop = 6 Then 
	ToolTip("Stopping Script...", 0, 0)
	Sleep(3000)
Exit 
EndIf 
EndFunc

[Xel]

I wish I still had gametime left :/.

Anyways this is cool, even when it might get nerfed soon.

[Jigy]

didnt work until i changed macro 2 to /script BuyMerchantItem(13)

[asdjaa]

Does this work for Alliance if you just change the target in the macro to Master Sergeant Biggins? If not, could you make it so that it works for Alliance?

EDIT: Seems to work alright if you change the Target (first macro) to Master Sergeant Biggins. Seems to run pretty slowly for me and it fumbles around a bit, selecting the wrong macro at times, but that may just be my fault.

[Multitask]

didnt work until i changed macro 2 to /script BuyMerchantItem(13)

yea i included the wrong macro, my mistake. fixed now

[AfterMidnight]

Sweet man! Got my alt dualspec with this!
+Rep

[Overaggro]

Why would we want to buy and sell it ??? Pelase tell me do they cost 0 gold or something ?

[AfterMidnight]

They cost 8 honor, and give 22s 50c when sold; per stack.

[Jadd]

Woah, actually a decent bot..

Wait, no it's not, just another click/key sender :/

[Thidan]

By looking at the source of both this and your other bot released with the same basic idea (WHY NOT JUST CHANGE THE MACROS?!) and post TWO threads about it when pretty much everything that's beeing used is:

Func BUY()
	ControlSend($HWND, "", "", "{1}")
	ControlSend($HWND, "", "", "{p}")
	Sleep(1000)
	ControlSend($HWND, "", "", "{2}")
	Sleep(1000)
	ControlSend($HWND, "", "", "{2}")
	Sleep(1000)
	SELL()
EndFunc
Func SELL()
	Sleep(1000)
	ControlSend($HWND, "", "", "{1}")
	ControlSend($HWND, "", "", "{p}")
	ControlSend($HWND, "", "", "{3}")
	Sleep(2000)
	BUY()
EndFunc

Nice idea and all but you could've might aswell kept it in 1 thread.

And for all the scriptkiddies out there, no, that's not the full sourcecode and I will not hand it out.

[Multitask]

By looking at the source of both this and your other bot released with the same basic idea (WHY NOT JUST CHANGE THE MACROS?!) and post TWO threads about it when pretty much everything that's beeing used is:

Func BUY()
	ControlSend($HWND, "", "", "{1}")
	ControlSend($HWND, "", "", "{p}")
	Sleep(1000)
	ControlSend($HWND, "", "", "{2}")
	Sleep(1000)
	ControlSend($HWND, "", "", "{2}")
	Sleep(1000)
	SELL()
EndFunc
Func SELL()
	Sleep(1000)
	ControlSend($HWND, "", "", "{1}")
	ControlSend($HWND, "", "", "{p}")
	ControlSend($HWND, "", "", "{3}")
	Sleep(2000)
	BUY()
EndFunc

Nice idea and all but you could've might aswell kept it in 1 thread.

And for all the scriptkiddies out there, no, that's not the full sourcecode and I will not hand it out.

updating thread titles is broken.

Woah, actually a decent bot..

Wait, no it's not, just another click/key sender :/

A bot (short for "robot") is a program that operates as an agent for a user or another program or simulates a human activity.

Also, i dont give a ****.

[Teh_Homer]

hey blink it keeps telling me that it is attempting to do something only a blizzard ui can do. any ideas? also it keeps opening spell book

[Thidan]

hey blink it keeps telling me that it is attempting to do something only a blizzard ui can do. any ideas? also it keeps opening spell book

L2Read and you'll know why the hell it's opening the spellbook.

[Silentulf]

Jesus christ man, this is epic. Time to make some sweet-ass money while watching movies. <3
+ rep

[Tickla]

For some reason its not selling :/ It works to target the npc and buy the Stars tears.

Things i have done is addind the macros, had to change the first two tho since im buying from Nix Fireclaw in dalarn, and from item 1.

Do i have to do something whit script 3?