PDA

View Full Version : I am working on making a basic Thang global bot.


VirusPunk
11th February 2006, 11:16
Using a basic software called AutoIT, it will most likely be a small universal point and click bot.

So far, I am not making any great progress on it at the moment. Support is slow from the devs at that forum. I am currently studying VB, and also getting a friend of mine to help me tommorow. If all goes well I should have a public level up bot in no-time.

Source code: (also credit to sinister for helping me)
;Thang Global Bot.
MsgBox(64, "Legal.", "©2006 - DevilSoul.", 10)
HotKeySet("{ESC}", "Terminate")
While 1
$coord = PixelSearch( 0, 0, 20, 300, 0x00008B, 10 )
If $coord <> 1 Then
If IsArray($coord) Then
MouseClick("left", $coord[0], $coord[1], 1, 2)
endif
endif
Sleep("7000")
WEnd
Func Terminate()
Exit
Endfunc

So far I have yet to find the correct color hex value for each of the mobs.

eagleeye72
12th February 2006, 01:27
sweet u do that

o yea nad good luck

o and good luck

VirusPunk
13th February 2006, 12:06
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author: VirusPunk <WWW.THEGAMECRASHERS.TK>
;
; Game:
; Thang Global.
;
; ----------------------------------------------------------------------------
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
MsgBox(64, "Done.", "©2006 - VirusPunk.")
While 1
$start = TimerInit()
$dif = TimerDiff($start)
While 1
$coord = PixelSearch (5, 300, 1024, 560, 0x5B6B82, 30, 4)
If UBound($coord)>1 Then
MouseClick("right", $coord[0], $coord[1], 1, 3)
Sleep(4000)
ExitLoop
Else
Sleep(10000)
$dif = TimerDiff($start)
If $dif > 30000 Then
ExitLoop
EndIf
EndIf
WEnd
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('."',0,0)
WEnd
ToolTip("")
EndFunc

Func Terminate()
Exit 0
EndFunc

Func ShowMessage()
MsgBox(4096,"",".")
EndFunc

Alright since I got tired of waiting, I made my own little macro that is allot better than the first one.

Some of the code was taken from the WoW macro bot, all you have to do is change the hex color to the one of the mob and it should work...

Just modify the timer settings and it should work how you want it to...

Jarnold83
14th February 2006, 10:07
Keep up the good work Virus. :bandit:

VirusPunk
14th February 2006, 10:13
Thanks Jarnold.

EDIT:

Ok, I posted a script that might work. Try it out and see.

yoc_influenced
11th March 2006, 04:04
umm i searched forums but i couldnt find it.. how do u find the color of the monster u want to kill?