|
hi guys , here is the script i use for wizard on 1600x900 i have a few questions , what should i change so he also collects every kind of gems? can someone show me what to change? also i feel like he gets alot of crap items and then there is no room for set/rare/leg. items. He picks them up accedently by clickin to run i guess, because i have the ; in the code for magic items. also for white items i guess. Another thing is even tho he picks this shit items is there a way that he sell only blue /white items but not gems and no rate /setsLEg. items?
heres the code:
Global $Paused Global $Paused
HotKeySet("=","Leave") HotKeySet("-", "Pause") HotKeySet("x", "Stop")
$default_resolutionX = 1920 $default_resolutionY = 1080 $x_ratio = @Desktopwidth / $default_resolutionX $y_ratio = @Desktopheight / $default_resolutionY Dim $Color, $Left, $Top, $Right, $Bottom $Color = 0xFFFF00 ;rare color code $Color2 = 0x6969;FF ;blue color code $Color3 = 0xBF642F ;legendary color code $Color4 = 0x00FF00 ;SET color $Left = 0 $Top = 0 $Right = 1920 $Bottom = 180 $x = 1 $LeftClear = 1000 $RightClear = 1299 $TopClear = 412 $BottomClear = 620 $BlueClear = 0x111E34 $WhiteClear = 0x100908 $HasCleared = 0 $Amethyst = 0xA56DF1 $Ruby = 0xFA8078 $Emerald = 0x51965B $Topaz = 0xFFFF59
$go = True $Leave = False
While $go if($Leave) Then send("4") MouseClick("left", Round(587 * $x_ratio),Round(333 * $y_ratio)) ;starts the main run Sleep(1800) MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio)) ;starts the main run Send("3") Sleep(140) Send("3") Sleep(140) Send("3") Sleep(140) Send("3") Sleep(80) Send("3") Sleep(80) Send("3") Sleep(80) MouseClick("left", Round(96 * $x_ratio),Round(383 * $y_ratio)) Sleep(800) ; Send("2") ; Sleep(1500) MouseMove(530,279,1) ;moves cursor over to the cellar so the proper blue pixel becomes highlighted Sleep(1000) $Pixel2 = PixelSearch(0,0,(619),(313),0x354D91,3) ;searches for the specific blue pixel that only occurs when mouse hovers over open cellar If Not @error Then MouseClick("left",530,279) ;Entrance to cellar Sleep(150) Send(2) Sleep(500) Send(1) Sleep(2300) MouseClick("left",Round(531 *$x_ratio),Round(769 * $y_ratio)) Sleep(1400) MouseClick("left",Round(547 *$x_ratio),Round(490 * $y_ratio)) ;moves to doorway leading to rare inside cellar Sleep(1500) MouseMove(Round(579 * $x_ratio),Round(209 * $y_ratio),1) ;hovers over the rare Sarkoth Sleep(400) Send("{SHIFTDOWN}") ; Sleep(500) ; MouseClick("left",Round(600 * $x_ratio),Round(239 * $y_ratio),1) ; sleep(500) MouseDown("right") ;attack middle Sleep(3800) MouseMove(Round(467 * $x_ratio),Round(269 * $y_ratio),1) ;attack left, add more sleep time if you can't kill minion on left Sleep(3000) MouseMove(Round(682 * $x_ratio),Round(147 * $y_ratio),1) ;attack right Sleep(2700) MouseUP("right") Sleep(300) Send("{SHIFTUP}") Sleep(500) MouseClick("left",Round(579 *$x_ratio),Round(209 * $y_ratio)) ;location of sarkoth after death Sleep(2000) call("FindItem") sleep(100) call("FindItem") sleep(100) call("FindItem") sleep(100) call("FindItem") sleep(100) call("FindItem") sleep(100) call("FindItem") sleep(100) MouseClick("left",Round(912*$x_ratio),Round(300 * $y_ratio)) ;moves to right top corner for gold Sleep(1000) MouseClick("left", Round(600* $x_ratio), Round(750 * $y_ratio)) Sleep(1300) MouseClick("right",694,929) ;cancel Archon Sleep(500) Send("t") Sleep(8000) Call("CheckRepair") Else ; Send("2") MouseClick("left",Round(900 *$x_ratio),Round(900 * $y_ratio)) ;moves down screen away from cellar in attempt for safety before teleporting back to town Sleep(1100) Send("1") Sleep(100) Send("t") Sleep(8000) Call("CheckRepair") EndIf EndIf WEnd
Func CheckRepair() If $x > 9 Then MouseClick("left", Round(1480 * $x_ratio),Round(281 * $y_ratio));begin movement towards merchant Sleep(1500) MouseClick("left", Round(1316 * $x_ratio),Round(206 * $y_ratio)) ;moves to get merchant in screen Sleep(1500) MouseClick("left", Round(845 * $x_ratio),Round(225 * $y_ratio)) ;NPC Merchant to the right of cain's home Sleep(1500) MouseClick("left", Round(521 * $x_ratio),Round(506 * $y_ratio)) ;button to open up repair menu Sleep(1500) MouseClick("left", Round(260 * $x_ratio),Round(595 * $y_ratio)) ;button to pay for repairs Sleep(2500) Send("{ESCAPE}") ;closes menu Sleep(1000) $x = 0 Call("LeaveGame") Else $x = $x + 1 Call("LeaveGame") EndIf EndFunc Func FindItem() $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color) ;searches for rares If Not @error Then $HasCleared = 0 call("ClearInv") MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(1000) EndIf $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color2 ) ;searches for magics If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;clicks magic Sleep(10) EndIf $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color3 ) ;searches for legendarys If Not @error Then $HasCleared = 0 call("ClearInv") MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;clicks legendary Sleep(1000) EndIf $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Color4) ;searches for SETS If Not @error Then $HasCleared = 0 call("ClearInv") MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(1000) EndIf ; search for gems $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Amethyst,9) ;searches for gems If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(1500) EndIf $SearchResult = PixelSearch($Left, $Top, $Right, 694, $Ruby,6) ;searches for gems If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(1500) EndIf $SearchResult = PixelSearch($Left, $Top, $Right, $Bottom, $Topaz,4) ;searches for gems If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(1500) EndIf $SearchResult = PixelSearch($Left, $Top, $Right, 694, $Emerald,9) ;searches for gems If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) ;IF ITS THERE IT CLICKS IT. Sleep(1500) EndIf EndFunc
Func ClearInv() Send("{i}") Sleep(800) $SearchResult = PixelSearch($LeftClear, $TopClear, $RightClear, $BottomClear, $WhiteClear) If Not @error Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) Sleep(500) MouseClick("left", Round(697* $x_ratio),Round(459 * $y_ratio)) Sleep(800) $HasCleared = 1 EndIf $SearchResult = PixelSearch($LeftClear, $TopClear, $RightClear, $BottomClear, $BlueClear) If Not @error Then If $HasCleared = 0 Then MouseClick("left", $SearchResult[0], $SearchResult[1], 1, 10) Sleep(500) MouseClick("left", Round(697* $x_ratio),Round(459 * $y_ratio)) Sleep(500) $HasCleared = 1 EndIf EndIf Send("{ESCAPE}") Sleep(500) EndFunc Func LeaveGame() Send("{ESCAPE}") ;opens menu Sleep(1000) MouseClick("left", Round(956 * $x_ratio),Round(579 * $y_ratio)) ;button to leave game Sleep(3900) $Pixel3 = PixelSearch(0,0,(56 * $x_ratio),(1026 * $y_ratio),0xFFCC8D,10) ;searches for the chat box color If @error Then Sleep (10000) EndIf MouseClick("left",Round(230 *$x_ratio),Round(416 * $y_ratio)) ;button to resume game from main menu Sleep(5000)
Func Pause() $Leave = False EndFunc
Func Stop() ;to allow the script to stop Exit EndFunc Func Leave() $Leave = True EndFunc
|