K, here is the current script that i run while i sleep. In VG there are sooo many roaming tough mobs, i removed the travel part of the script so it just spins and kills stuff. I just thought i would post it here incase anyone can use pieces of it to build a better bot(like maybe the loot code, ect). Its really basic, but it does the job for me, and I am always updating it and making it better. Anyways, hope this helps someone somewhere
Code: Register to unlock hidden link
'-------------------------------------------------------------
'-------------------------------------------------------------
'-------------------------------------------------------------
'VG GetTO Bot v1.0
'Jake Craner
'Vanguard Bot
'Configured for his Ranger
'Started 11/14/06
'1440x900 (Windowed Mode)
'Deadly Shot in slot 6, Blade of Winter in slot 3
'Please share only with Tault.com members
'If you steal it, atleast put my name in it
'This is my first bot, so yes, it sucks
'ZOMG j00 spelled Ghetto wrong!
'I know, STFU noob I mean WTFBBQ I will WTFPWN ur FACE!?
'-------------------------------------------------------------
'None of the following is required:
'It just helped me for copy/paste
'Only change these vars with the code
'Use GetPixelColor to find this information
'(x,y) = colorcode
'corpse = xuscripthost.getpixelcolor(1202,68) = 131587
'mob = xuscripthost.getpixelcolor(1202,68) = 723775
'90%health = xuscripthost.getpixelcolor(220,85) = 724139
'behind = xuscripthost.getpixelcolor(763,179) = 255
'away = xuscripthost.getpixelcolor(796,178) = 255
'VK Key Values:
'(Used for movement)
's = 83
'd = 68
'w = 87
'a = 65
'-------------------------------------------------------------
'Delay for Window Change
xuscripthost.sleep 5000
i = 1
'Number of times bot will run
Do until i = 9999
'Rests till 90% health
Do until xuscripthost.getpixelcolor(220,85) = 724139
'If attacked while resting
If xuscripthost.getpixelcolor(1202,68) = 723775 then
'Attacks Target, see Sub Attack
Attack
Else
'Rests
xuscripthost.sleep 100
End If
Loop
'Finds Target, see below
FindTarget
i = i + 1
Loop
'-------------------------------------------------------------
'Moves and Tabs for Target
Sub FindTarget
i = 0
Do Until xuscripthost.getpixelcolor(1202,68) = 723775 'or i = 8
xuscripthost.sendkeys "{TAB}"
xuscripthost.keydown 65
xuscripthost.sleep 150
xuscripthost.keyup 65
xuscripthost.sleep 100
i = i + 1
Loop
'Scans for Target, see Sub Scan
'Scan
' Loop
'Attacks the Target, see Sub Attack
Attack
End Sub
'-------------------------------------------------------------
'Spins and Scans
Sub Scan
xuscripthost.keydown 87
xuscripthost.sleep 100
xuscripthost.keydown 68
xuscripthost.sleep 200
xuscripthost.keyup 68
xuscripthost.sleep 2000
xuscripthost.keyup 97
End Sub
'-------------------------------------------------------------
'Attacks the Target
Sub Attack
'Pulls Target, see Sub Pull
Pull
While xuscripthost.getpixelcolor(1202,68) = 723775
'Normal Attack
xuscripthost.sendkeys 3
xuscripthost.sleep 1500
'If Target is Behind
If xuscripthost.getpixelcolor(763,179) = 255 then
xuscripthost.keydown 68
xuscripthost.sleep 1200
xuscripthost.keyup 68
End If
'If Target is Away
If xuscripthost.getpixelcolor(796,178) = 255 then
'Ranges Target, see Sub Ranged
Ranged
End If
WEnd
'Loots Target, see Sub Loot
Loot
End Sub
'-------------------------------------------------------------
'Pulls the Target
Sub Pull
xuscripthost.sendkeys 6
xuscripthost.sleep 1500
'If Target is Away
If xuscripthost.getpixelcolor(796,178) = 255 then
xuscripthost.sendkeys "{ESC}"
xuscripthost.sleep 1000
End If
'If Target is Behind
If xuscripthost.getpixelcolor(763,179) = 255 then
xuscripthost.sendkeys "{ESC}"
xuscripthost.sleep 1000
End If
End Sub
'-------------------------------------------------------------
'Ranges the Target
Sub Ranged
xuscripthost.sendkeys 6
xuscripthost.sleep 1500
'If Target is Away
If xuscripthost.getpixelcolor(796,178) = 255 then
xuscripthost.sendkeys "{ESC}"
xuscripthost.sleep 1000
End If
'If Target is Behind
If xuscripthost.getpixelcolor(763,179) = 255 then
xuscripthost.sendkeys "{ESC}"
xuscripthost.sleep 1000
End If
End Sub
'-------------------------------------------------------------
'Loots the Target
Sub Loot
xuscripthost.sleep 2000
If xuscripthost.getpixelcolor(1202,68) = 131587 then
xuscripthost.sleep 1000
xuscripthost.sendkeys "/loot"
xuscripthost.sleep 250
xuscripthost.sendkeys "{ENTER}"
xuscripthost.sleep 500
xuscripthost.sendkeys "/lootall"
xuscripthost.sleep 250
xuscripthost.sendkeys "{ENTER}"
End If
xuscripthost.sleep 1500
If xuscripthost.getpixelcolor(1202,68) = 131587 then
xuscripthost.sendkeys "{ESC}"
xuscripthost.sleep 2000
'Attacks Target, see Sub Attack
Attack
End If
End Sub
'-------------------------------------------------------------
Who is online