What's new
By:
  • Visit Rebornbuddy
  • Visit Panda Profiles
  • Visit LLamamMagic
  • Visit Resources
  • Visit Downloads
  • Visit Portal

Gem combiner

T

twheele3

New Member
Joined
Dec 6, 2010
Messages
28
Reaction score
0
I have so many squares , would like a profile that can combine them into at least flawless squares since it is pretty cheap. I'm sure many would appreciate and use this.
 
i completely agree - I personally would love to see this implemented!
 
+1

it costs a lot of gold to make gems but it's a better return in rmah in some cases
 
you'll need to be able to read and fix the coords

autoit
Code: 
$running = 1;
$botting = 0;
$ticks = 0;
$sleeperTick = 0;
$totalTrips = 0;
$hits = 0;
$misses = 0;

WinActivate("Diablo III");

Func Repair()	
	If ColorScan(1512,36, 1522, 45, 0xffe600) = 1 Then
		Send("t");
		Sleep(Random(8000, 11000));
		MouseClick("left", 202, 636);
		Sleep(Random(4000,6000));
		MouseClick("left", 331,136);
		Sleep(Random(5000,5500));
		MouseClick("left", 502, 627);
		Sleep(Random(600,1200));
		MouseClick("left", 294, 533);
		Sleep(Random(333, 777));
		MouseClick("left", 511, 22);close
		MouseClick("left", 1734, 905);
		Sleep(Random(4000, 5000));
		MouseClick("left", 1202, 546);
		Sleep(Random(100,300));
		MouseClick("left", 1370, 170);
		Sleep(Random(6000,7500));
	EndIf
	return;
EndFunc
	
	
Func EndAutoItLoop()
	$botting = 0;
	$running = 0;
	Exit;
EndFunc

Func NextGame()
	WinActivate("Diablo III");
	Sleep(Random(25,352));
	MouseClick("left", 1255,1028);
	Sleep(Random(250,650));
	MouseClick("left", 990, 578);
	;AntiDetect(); this adds "breaks" into the code
	WaitForGameScreen();
	Sleep(Random(200,3002));
	MouseClick("left", Random(230, 265), Random(404, 422)); click the resume button
EndFunc

Func StartFromCSS()
	WinActivate("Diablo III");
	WaitForGameScreen();
	Sleep(Random(475,900));
	MouseClick("left", Random(230, 265), Random(404, 422)); click the resume button
EndFunc

;simple, but not a bad idea
Func AntiDetect()
	If $sleeperTick = 0 Then
		$sleeperTick = Random(125, 400)
	EndIf
	
	$ticks = $ticks + 1; advance tracker
	
	;when tracker has passed mark reset and wait a short time
	If $ticks > $sleeperTick Then
		$ticks = 0;
		$sleeperTick = Random(125, 400)
		Sleep(Random(120000, 720000)); take a little/long break
	EndIf
EndFunc


;check for a color in an area
Func ColorScan($l, $t, $r, $b, $c)
	WinActivate("Diablo III"); this should ensure the window is visible
	$p = PixelSearch($l, $t, $r, $b, $c, 4);
	If Not @error Then
		Return 1;
	EndIf
	
	Return 0;
EndFunc

Func GameScreen()
	If ColorScan(234,486,251,503, 0xe39f50)  Then
		Return 1;
	EndIf
	
	Return 0
EndFunc

Func WaitForGameScreen()
	While Not GameScreen()
		Sleep(100);
	WEnd
EndFunc

Func LoadedZone()
	If ColorScan(531,978,561,1022, 0x890c07) Then
		Return 1;
	EndIf
	
	Return 0
EndFunc

Func WaitForZone()
	While Not LoadedZone()
		Sleep(100);
	WEnd
EndFunc

Func OpenGate()
	MouseMove(1124, 326);
	$p = PixelSearch(870,70,1420,540,0x5675a0,4);
	;MsgBox(0,"", ColorScan(870,70,1420,540,0x5675a0));
	While ColorScan(870,70,1420,540,0x5675a0) = 1 
		MouseDown("left");
		Sleep(400);
		MouseUp("left");
	WEnd
EndFunc

;D3 Main Window Class
;Diablo III
;Go Sub Main
Func RunBot()
	
	While($running=1)
		Sleep(2500);
			MouseClick("left", 268, 779);
		Sleep(350);
	WEnd
	
	Sleep(Random(28,35));;
	RunBot();
EndFunc

	
HotKeySet("{F7}", "StartFromCSS");
HotKeySet("{F6}", "NextGame");
HotKeySet("{F8}", "EndAutoItLoop");
HotKeySet("{F9}", "Repair");
HotKeySet("{F10}", "RunBot");

;thread loop
While $running = 1 
	Sleep(100)
	If $running = 0 Then
		Exit
	EndIf
WEnd

the func to edit is run bot everything else is just crap for my autoit bot
 
I have the razer black widow keyboard and i just simply made a macro to send a mouse click with a set delay between clicks. Just leave mouse over craft button and go afk for 20 mins. Took me literally 30 seconds to make. I've done this with the logitech software as well.

Here's a screenshot of the delays that work perfect for me. It runs continuously in a loop with a key that I use to toggle on/off.



Here's another simple, quick, and dirty way of doing the same thing without having the razer/logitech software (my first autoit script!) Run the script, put your cursor over the craft button, then start/pause the script with the PauseBreak key. Esc will terminate the script. I may need to adjust delay depending on craft speed as I based the sleep delay off my razer macro.

Code: 
HotKeySet("{PAUSE}", "Toggle")
HotKeySet("{ESC}", "Terminate")

Global $Paused
Call("Toggle")
While 1
   For $i = 0 To 1024 Step 1
	  ToolTip('Started! PauseBreak(stop/pause), Esc(terminate)', 0, 0)
	  MouseClick("Left")
	  Sleep(2800)
   Next
WEnd

Func Toggle()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Stopped! PauseBreak(start/continue), Esc(terminate)', 0, 0)
WEnd
ToolTip("")
EndFunc

Func Terminate ()
msgbox(0,"Autoit Clicker","Script Terminated!")
exit
EndFunc
 
twheele3 said:
I have so many squares , would like a profile that can combine them into at least flawless squares since it is pretty cheap. I'm sure many would appreciate and use this.
Click to expand...


You can sell the tomes of jewelcrafting for like more money then the gems themselves..
 
AutoIT = bans sooner or later. I would like this implemented in a profile for Demonbuddy.
 
You must log in or register to reply here.
Back
Top