RuneScape Mining Bot

[JimmyMan]

Done In Autoit.
Heres the SCript:

#include <GuiConstants.au3>


Dim $Game, $MID
HotKeySet("{F8}","Get_coord")
HotKeySet("{F9}","Game_Bot")

opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)

GUICreate("Object - Game Bot", 614, 370)
GUISetFont(9, 400, -1, "MS Sans Serif")
$B_oIE3 = ObjCreate("Shell.Explorer.2")
$Breaktime = GUICtrlCreateObj($B_oIE3, -45, -140, 540, 510)
$html2 = "about:<br><br><br><br><br><br><br>><Text>........ ..........................Enter to start the Game. <br><br>............ Runescape Bot v1.0 Go to a mine and Press f9</Text>"
$B_oIE3.navigate ($html2)
GUICtrlCreateLabel ("*Runescape BOt*", 503, 80,150)
GUICtrlSetFont( -1, 12, 700)
$BrkStart = GUICtrlCreateButton("&Enter Game", 505, 300, 80, 25)
$BrkEnd = GUICtrlCreateButton("&Exit", 505, 330, 80, 25)
$Brkmouse = GUICtrlCreateButton("&Mousepos", 505, 270, 80, 25)
GUISetState()

While 1

$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Or $msg = $BrkEnd Then
Exit
EndIf

If $msg = $BrkStart Then
$B_oIE3.navigate ("http://www.runescape.com/")
Sleep(1500) ; wait to load

MsgBox(0, "", "Press [F9] to Use the Runescape Bot.")
EndIf
If $msg = $Brkmouse Then
sleep(4000)
$mpos = MouseGetPos()
$My_Color = PixelGetColor( $mpos[0], $mpos[1] )
tooltip( "Color Gotten" )
EndIf
WEnd
Func Game_Bot() ; if $Game then $Game = True, If Not $Game then $Game = False, maybe think of $Game as "1".
$Game = NOT $Game
If $Game Then ToolTip('Press (F9) to Exit Game Bot',0,0)
While $Game ; search left, top, right bottom for my color, color varience of 50 shades, check every 10 pixels.
$ball = PixelSearch( 49, 75, 430, 330, $My_Color, 50, 10)
If Not @error Then MouseClick("left", $ball[0], $ball[1], 1, 0)
sleep(5000)

WEnd
ToolTip("")
EndFunc




Func Get_coord() ; press F8 to get mouse coordinates
$MID = NOT $MID
While $MID
$pos = MouseGetPos()
ToolTip('Mouse coordinates ' & @CRLF & " X = " & $pos[0] & @CRLF & " Y = " & $pos[1],0,0)
Sleep(20)
WEnd
ToolTip("")
ENDFunc

And for those to lazy to Compile it: http://rapidshare.de/files/34578380/runebot.exe.html
(*note My friend compiled that for me)