ttocszed

this is a great include, this is making me write a macro to bee so much easier. it was working but now i come to get an error belo: C:\Program Files (x86)\AutoIt3\Include\ImageSearch.au3 (40) : ==> Subscript used with non-Array variable.: if $result[0]= "0" then return 0 if $result^ ERROR it was working then all of a sudden it doesn't work no more any help would be appreciated.

i wonder if u have ever used scar i've been using it over a month now and not one of my accounts have been banned so i don't know what ur talking about. as for the virus u have to look and make sure where u download things. as for programming it autoit. how is it goign to handle random events???!? huh huh huh?

im not sure if this is against the rules but SCAR is a good script program that has a great library made for it SRL (Scar resource Library) and if has antiban features as well as most of the anti random support. SRL (read the form to set up SRL) SCAR click here to download

Thanks so i guess i gata spam for 4 more posts i guess ia gata spam some more

i've created a script and was wondering where the upload button is. i've looked in My Controls but its not there. or do i have to wait till im a full member. Wait i see it at the bottom in this seciton but why can't i post it in examples forum?

ok i've got it working this is an script to empty out an entire inventory of a certain ore. this is created bassed on manador's mining script. so most of the credit goes out to him. im gonna post the code because i dont know how to upload the script. #include <GUIConstants.au3> Global $CurrentColor = "0xAF0000" Global $ScanWidth = 180, $ScanHeight = 250 Global $StartX = 688 Global $StartY = 315 Global $x = $StartX, $y = $StartY Global $ColorClay = IniRead("MineData.ini", "Colors", "Clay", "?") Global $ColorCopper = IniRead("MineData.ini", "Colors", "Copper", 9003840) Global $ColorTin = IniRead("MineData.ini", "Colors", "Tin", 7432553) Global $ColorIron = IniRead("MineData.ini", "Colors", "Iron", 4072732) Global $ColorSilver = IniRead("MineData.ini", "Colors", "Silver", 16777215) Global $ColorCoal = IniRead("MineData.ini", "Colors", "Coal", 3815975) Global $ColorGold = IniRead("MineData.ini", "Colors", "Gold", 10193720) Global $ColorMithril = IniRead("MineData.ini", "Colors", "Mithril", 5329529) Global $ColorAddy = IniRead("MineData.ini", "Colors", "Addy", "?") Global $ColorRunite = IniRead("MineData.ini", "Colors", "Runite", "?") $GUI = GUICreate("",110,40,$x,$y,$WS_POPUP) $ColorLabel = GUICtrlCreateLabel("Select Ore in inventory",0,1,110,20,$SS_CENTER) SetColor() WinSetOnTop($GUI,"",1) GUISetState() $Top = GUICreate("Top Line", $ScanWidth, 2,$x,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Left = GUICreate("Left Line", 2, $ScanHeight,$x,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Right = GUICreate("Right Line", 2, $ScanHeight,$x + $ScanWidth - 2,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Bottom = GUICreate("Bottom Line", $ScanWidth, 2,$x,$y + 40 + $ScanHeight,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $menu = GUICtrlCreateContextMenu ($ColorLabel) $Start = GUICtrlCreateMenuitem ("Start!", $menu,-1,1) $Stop = GUICtrlCreateMenuitem ("Stop", $menu,-1,1) $MenuClay = GUICtrlCreateMenuitem ("Clay", $menu) $MenuTin = GUICtrlCreateMenuitem ("Tin", $menu) $MenuCopper = GUICtrlCreateMenuitem ("Copper", $menu) $MenuIron = GUICtrlCreateMenuitem ("Iron", $menu) $MenuSilver = GUICtrlCreateMenuitem ("Silver", $menu) $MenuCoal = GUICtrlCreateMenuitem ("Coal", $menu) $MenuGold = GUICtrlCreateMenuitem ("Gold", $menu) $MenuMithril = GUICtrlCreateMenuitem ("Mithril", $menu) $MenuAddy = GUICtrlCreateMenuitem ("Adamantite", $menu) $MenuRunite = GUICtrlCreateMenuitem ("Runite", $menu) While 1 $msg = GUIGetMsg() Select Case $msg = $Start Check() Case $msg = $MenuClay $CurrentColor = $ColorClay SetColor() Case $msg = $MenuTin $CurrentColor = $ColorTin SetColor() Case $msg = $MenuCopper $CurrentColor = $ColorCopper SetColor() Case $msg = $MenuIron $CurrentColor = $ColorIron SetColor() Case $msg = $MenuSilver $CurrentColor = $ColorSilver SetColor() Case $msg = $MenuCoal $CurrentColor = $ColorCoal SetColor() Case $msg = $MenuGold $CurrentColor = $ColorGold SetColor() Case $msg = $MenuMithril $CurrentColor = $ColorMithril SetColor() Case $msg = $MenuAddy $CurrentColor = $ColorAddy SetColor() Case $msg = $MenuRunite $CurrentColor = $ColorRunite SetColor() EndSelect WEnd Func SetColor() GUICtrlSetBkColor($ColorLabel,$CurrentColor) GUISetBkColor($CurrentColor,$GUI) EndFunc Func Check() Do Sleep(Random(0,500,1)) $Xdif = 0 $Ydif = -35 $Pixel = PixelSearch($x+2,$y+42,$x+2+$ScanWidth,$y+42+$ScanHeight,$CurrentColor) If Not @error Then MouseClick("Right", $Pixel[0],$Pixel[1],1,2) sleep(20) Mouseclick("left", $Pixel[0] - $Xdif, $Pixel[1] - $Ydif) EndIf Until @error EndFunc

Nvm i found the problem i never created a start menu item. it works great just now gata think of a way for it to click drop. EDIT: how do i get it to rescan after it clicks drop to get it to continue looping till noe ore can be found. then restart the mining process.

Manador, i love ur auto mining script and im creating and inventory emptier based on ur script. and this is what i've gotten so far. im not sure if it is searching or not im trying ot get it to search within the red rectangle and right click on found ore types and drop them. any help would be appreciated. once i get this working i'll try and find a way to put it into your script. #include <GUIConstants.au3> Global $CurrentColor = "0xAF0000" Global $ScanWidth = 180, $ScanHeight = 250 Global $StartX = 688 Global $StartY = 315 Global $x = $StartX, $y = $StartY Global $ColorClay = IniRead("MineData.ini", "Colors", "Clay", "?") Global $ColorCopper = IniRead("MineData.ini", "Colors", "Copper", 9003840) Global $ColorTin = IniRead("MineData.ini", "Colors", "Tin", 7432553) Global $ColorIron = IniRead("MineData.ini", "Colors", "Iron", 4072732) Global $ColorSilver = IniRead("MineData.ini", "Colors", "Silver", 16777215) Global $ColorCoal = IniRead("MineData.ini", "Colors", "Coal", 3815975) Global $ColorGold = IniRead("MineData.ini", "Colors", "Gold", 10193720) Global $ColorMithril = IniRead("MineData.ini", "Colors", "Mithril", 5329529) Global $ColorAddy = IniRead("MineData.ini", "Colors", "Addy", "?") Global $ColorRunite = IniRead("MineData.ini", "Colors", "Runite", "?") $GUI = GUICreate("",110,40,$x,$y,$WS_POPUP) $ColorLabel = GUICtrlCreateLabel("Select Ore in inventory",0,1,110,20,$SS_CENTER) SetColor() WinSetOnTop($GUI,"",1) GUISetState() $Top = GUICreate("Top Line", $ScanWidth, 2,$x,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Left = GUICreate("Left Line", 2, $ScanHeight,$x,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Right = GUICreate("Right Line", 2, $ScanHeight,$x + $ScanWidth - 2,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Bottom = GUICreate("Bottom Line", $ScanWidth, 2,$x,$y + 40 + $ScanHeight,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $menu = GUICtrlCreateContextMenu ($ColorLabel) $MenuClay = GUICtrlCreateMenuitem ("Clay", $menu) $MenuTin = GUICtrlCreateMenuitem ("Tin", $menu) $MenuCopper = GUICtrlCreateMenuitem ("Copper", $menu) $MenuIron = GUICtrlCreateMenuitem ("Iron", $menu) $MenuSilver = GUICtrlCreateMenuitem ("Silver", $menu) $MenuCoal = GUICtrlCreateMenuitem ("Coal", $menu) $MenuGold = GUICtrlCreateMenuitem ("Gold", $menu) $MenuMithril = GUICtrlCreateMenuitem ("Mithril", $menu) $MenuAddy = GUICtrlCreateMenuitem ("Adamantite", $menu) $MenuRunite = GUICtrlCreateMenuitem ("Runite", $menu) While 1 $msg = GUIGetMsg() Select Case $msg = $MenuClay $CurrentColor = $ColorClay SetColor() Case $msg = $MenuTin $CurrentColor = $ColorTin SetColor() Case $msg = $MenuCopper $CurrentColor = $ColorCopper SetColor() Case $msg = $MenuIron $CurrentColor = $ColorIron SetColor() Case $msg = $MenuSilver $CurrentColor = $ColorSilver SetColor() Case $msg = $MenuCoal $CurrentColor = $ColorCoal SetColor() Case $msg = $MenuGold $CurrentColor = $ColorGold SetColor() Case $msg = $MenuMithril $CurrentColor = $ColorMithril SetColor() Case $msg = $MenuAddy $CurrentColor = $ColorAddy SetColor() Case $msg = $MenuRunite $CurrentColor = $ColorRunite SetColor() EndSelect WEnd Func SetColor() GUICtrlSetBkColor($ColorLabel,$CurrentColor) GUISetBkColor($CurrentColor,$GUI) EndFunc Func Check() Sleep(Random(0,500,1)) $Pixel = PixelSearch($x+2,$y+42,$x+2+$ScanWidth,$y+42+$ScanHeight,$CurrentColor) If Not @error Then MouseClick("Right", $Pixel[0],$Pixel[1],1,2) EndIf EndFunc

Im new to Autoit scripting and have created a little auto miner program. which uses mouse clicks x/y cordnates. which i know is bad for other people because of differnet resolutions. $mine = "0" $loop = "0" Do Do MouseClick("left" , 373, 364) Sleep(9195) $mine = $mine + 1 Until $mine = 28 Sleep(900) MouseClick("Right", 714, 370) Sleep(40) MouseClick("left", 708, 413) Sleep(40) MouseClick("right", 753, 370) Sleep(40) MouseClick("left", 732, 411) Sleep(40) MouseClick("right", 800, 373) Sleep(40) MouseClick("left", 769, 407) Sleep(40) MouseClick("right", 842, 372) Sleep(40) MouseClick("left", 800, 416) Sleep(40) MouseClick("right", 713, 409) Sleep(40) MouseClick("left", 709, 446) Sleep(40) MouseClick("right", 756, 407) Sleep(40) MouseClick("left", 737, 445) Sleep(40) MouseClick("right", 799, 406) Sleep(40) MouseClick("left", 772, 449) Sleep(40) MouseClick("right", 839, 409) Sleep(40) MouseClick("left", 772, 446) Sleep(40) MouseClick("right", 717, 444) Sleep(40) MouseClick("left", 711, 482) Sleep(40) MouseClick("right", 757, 440) Sleep(40) MouseClick("left", 736, 481) Sleep(40) MouseClick("right", 799, 442) Sleep(40) MouseClick("left", 785, 490) Sleep(40) MouseClick("right", 841, 445) Sleep(40) MouseClick("left", 802, 483) Sleep(40) MouseClick("right", 716, 480) Sleep(40) MouseClick("left", 706, 516) Sleep(40) MouseClick("right", 759, 476) Sleep(40) MouseClick("left", 747, 519) Sleep(40) MouseClick("right", 798, 480) Sleep(40) MouseClick("left", 773, 518) Sleep(40) MouseClick("right", 841, 481) Sleep(40) MouseClick("left", 801, 516) Sleep(40) MouseClick("right", 714, 516) Sleep(40) MouseClick("left", 712, 553) Sleep(40) MouseClick("right", 757, 514) Sleep(40) MouseClick("left", 738, 552) Sleep(40) MouseClick("right", 799, 518) Sleep(40) MouseClick("left", 789, 554) Sleep(40) MouseClick("right", 842, 515) Sleep(40) MouseClick("left", 804, 555) Sleep(40) MouseClick("right", 716, 553) Sleep(40) MouseClick("left", 710, 567) Sleep(40) MouseClick("right", 755, 550) Sleep(40) MouseClick("left", 743, 572) Sleep(40) MouseClick("right", 798, 553) Sleep(40) MouseClick("left", 782, 567) Sleep(40) MouseClick("right", 841, 552) Sleep(40) MouseClick("left", 809, 569) Sleep(40) MouseClick("right", 716, 586) Sleep(40) MouseClick("left", 713, 575) Sleep(40) MouseClick("right", 800, 588) Sleep(40) MouseClick("left", 790, 572) Sleep(40) MouseClick("right", 840, 584) Sleep(40) MouseClick("left", 800, 569) Sleep(500) $mine = 0 $loop = $loop + 1 Until $loop = 100 your can set the loop to 100. after the Sleep(9000) that is the scrip i use to empty the entire inventory of ore. to get this working just go to an ore and stand NORTH of the ore and rune the script. it will mine 28 ore then empty inventory the only problem is that i based on the average time it takes to mine 1 iron ore. and it kinda messes up if it takes longer than about 3.4 secs it clicks again and throws off the number of ore in inventory