Scaper
2008-10-24 07:16:30
well i went to go onto rsgorilazz and i have the direcry page there with a wc3test thing there si i click it and find this is thissome private bot?? if so what language etc and what are they likley runninbg it on??
#include <GUIConstants.au3>
#NoTrayIcon
hotkeyset("{BS}","quit")
hotkeyset("{ESC}","start")
HotKeySet("!d", "ShowMessage") ;Shift-Alt-d
Global $Paused
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; This Starts The MAIN GUI
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Marx WoodCutter", 200, 200, 180, 100)
$Label1 = GUICtrlCreateLabel("Press ESCAPE to start!", 20, 15, 120, 15, $ss_center)
$Label2 = GUICtrlCreateLabel("Press BACKSPACE to exit!", 20, 120, 140, 15, $ss_center)
$Connect = GUICtrlCreateButton("Pick Color!",20, 35, 60, 20)
$orebut = GUICtrlCreateButton("Tree",20, 160, 55, 20)
$rockbut = GUICtrlCreateButton("Log",80, 160, 55, 20)
GUISetBkColor(0x008000)
GUISetState(@SW_SHOW);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;This shows the main GUI
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
endswitch
select
case $nmsg = $connect
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;This pops up the color chooser
#include <GUIConstants.au3>
#NoTrayIcon
HotKeySet("{PAUSE}" , "TogglePause")
$hexColor=GUICtrlCreateInput("", 80, 400, 90, 20,$ES_READONLY)
GUICtrlCreateLabel("Color:", 20, 74)
$MostrarColor=GUICtrlCreateLabel("", 60, 70, 90, 20,$ES_READONLY)
GUICtrlCreateLabel("Press Pause/Break to freeze color.", 0, 140 ,200, 15, $SS_CENTER)
GUISetBkColor(0x008000)
GUISetState()
while 1
While 1
$msg=GUIGetMsg()
data()
Select
Case $msg=$GUI_EVENT_CLOSE
exit
EndSelect
WEnd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Function to pick the color
Func data()
While 1
$msg=GUIGetMsg()
Select
Case $msg=$GUI_EVENT_CLOSE
$loop=0
exit
EndSelect
Sleep(25)
$pos=MouseGetPos()
global $color=PixelGetColor($pos[0],$pos[1])
$HEX6=StringRight(Hex($color),6)
GUICtrlSetData($hexColor,"0x"&$HEX6)
GUICtrlSetBkColor($MostrarColor,"0x"&Hex($color))
WEnd
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Function to pause the color
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(10)
Select
Case $msg=$GUI_EVENT_CLOSE
$loop=0
exit
EndSelect
$msg = GUIGetMsg()
if $msg = $orebut then
global $vary2 = $color
msgbox(1,"Rock","Tree color picked!")
Endif
if $msg = $rockbut then
global $vary4 = $color
msgbox(1,"Ore","Log color Picked")
Endif
WEnd
EndFunc
$msg=$connect2
Select
Case $msg=$connect2
exitloop
EndSelect
WEnd
endselect
wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;This starts the autoer and asks input box questions
Func Start()
$pcp = 0
$i = 0
$i = $i + 1
do
$i = 0
$vary = inputbox("Time Interval", "How man seconds between each Tree?","","")
$i = $i + 1
Until $i = 1
do
$i = 0
$vary3 = inputbox("AutoMiner", "How many logs do you want to cut?","","")
$i = $i + 1
Until $i = 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Declares Arrays and variables
Dim $arr[2][1000]
$i = 0
$StockPriceChange = Random(1000, 3000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Locates color if it doesn't find it then it re-locates it. Finally it will click it
Do
$pcp = 0
Do
GUIsetstate(@SW_MINIMIZE)
Sleep("2000")
$coord = PixelSearch(0, 0, 1279, 1023, $vary2)
If @error Then
PixelSearch(0, 0, 1279, 1023, $vary2)
EndIf
Until Not @error
$arr[0][$i] = $coord[0]
$arr[1][$i] = $coord[1]
Sleep("70")
MouseMove($coord[0], $coord[1])
Sleep("100")
MouseDown("left")
Sleep("100")
MouseUp("left")
$StockPriceChange = Random(1000, 3000)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Randomly talks, and will randomly move characters based on a random genrated number
sleep("1200")
$rand = random(0,25)
if $rand < 1 Then
send("{left down}")
sleep("1100")
send("{left up}")
endif
if $rand < 2 and $rand > .9 Then
send("{right down}")
sleep("1074")
send("{right up}")
endif
if $rand < 3 and $rand > 1.9 Then
send("{up down}")
sleep("1160")
send("{up up}")
endif
if $rand < 4 and $rand > 2.9 Then
send("{down down}")
sleep("1004")
send("{down up}")
endif
if $rand < 5 and $rand > 3.9 Then
send("hi")
sleep("800")
send("{enter}")
endif
if $rand < 6 and $rand > 4.9 Then
send("i hate wcing")
sleep("1112")
send("{enter}")
endif
if $rand < 7 and $rand > 5.9 Then
sleep("200")
send("so bored")
sleep("570")
send("{enter}")
endif
Sleep($vary*1000+$stockpricechange)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; tells it to do the firstround function if it is the first loop, if else will do second round
if $pcp = 0 Then
firstround()
EndIf
if $pcp > 0 Then
secondround()
endif
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Stops the program if it has gone through the amount of loops user asked
$pcp = 0
$pcp = $pcp + 1
Until $pcp = $vary3
msgbox(1,"Finished", "The AutoWoodcutter has completed it's task")
endfunc
global $arr1[2][1000]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Locates ore in your inventory, right clicks it, then goes down 40 pixels and drops it
func firstround()
do
do
global $i = 0
global $arr1[2][1000]
sleep("1000")
global $coord1 = PixelSearch(0, 0, 1279, 1023, $vary4)
If @error Then
PixelSearch(0, 0, 1279, 1023, $vary4)
EndIf
until not @error
$arr1[0][$i] = $coord1[0]
$arr1[1][$i] = $coord1[1]
Sleep("70")
MouseMove($coord1[0], $coord1[1])
Sleep("70")
MouseDown("right")
Sleep("100")
MouseUp("right")
global $a = mousegetpos()
sleep("1000")
global $right = mousemove($a[0], $a[1] + 40)
sleep("600")
MouseDown("right")
Sleep("100")
MouseUp("right")
sleep("600")
MouseDown("left")
Sleep("200")
MouseUp("left")
$i = $i + 1
until $i = 1
endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GLOBALS
global $arr1[2][1000]
global $arr1[0][$i] = $coord1[0]
global $arr1[1][$i] = $coord1[1]
global $a = mousegetpos()
global $right = mousemove($a[0], $a[1] + 40)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Takes arrays and coordinates from firstround() and uses them here. also checks to make sure colors are right
func secondround()
$randy = random(1,9)
do
$i = 0
sleep("200")
$quant = pixelgetcolor($coord1[0], $coord1[1])
if $quant = $coord1 then
MouseMove($coord1[0], $coord1[1]+ $randy)
sleep("300")
sleep("600")
MouseDown("right")
Sleep("100")
MouseUp("right")
sleep("600")
MouseMove($a[0], $a[1] + 40)
sleep("400")
MouseDown("left")
Sleep("200")
MouseUp("left")
endif
if @error Then
secondround()
endif
$i = $i + 1
until $i = 1
endfunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Function saved for later version. Restarts program if alt+D not perfected yet
func showmessage()
guisetstate(@SW_hide)
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("AutoWoodcutter", 200, 200, 180, 100)
$Label1 = GUICtrlCreateLabel("Press ESCAPE to start!", 20, 15, 120, 15)
$Label2 = GUICtrlCreateLabel("Press BACKSPACE to exit!", 20, 120, 140, 15)
$Connect = GUICtrlCreateButton("Pick Color!",20, 35, 55, 20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$hexColor=GUICtrlCreateInput("", 80, 60, 90, 20,$ES_READONLY)
GUICtrlCreateLabel("Color:", 20, 85)
GUICtrlCreateLabel("Color Code", 20, 60)
$MostrarColor=GUICtrlCreateLabel("", 80, 85, 90, 20,$ES_READONLY)
GUICtrlCreateLabel("Press Pause/Break to freeze color.", 0, 140 ,200, 15, $SS_CENTER)
GUICtrlSetColor(-1,0x00808080)
$orebut = GUICtrlCreateButton("Ore",20, 160, 55, 20)
GUISetState()
While 1
$msg=GUIGetMsg()
Select
Case $msg=$GUI_EVENT_CLOSE
exit
EndSelect
WEnd
while 1
$msg = GUIGetMsg()
if $msg = $orebut then
msgbox(1,"22333","3434")
Endif
WEnd
endfunc
func quit()
exit
endfunc