Results 1 to 1 of 1
  1. 08-10-2011 #1
    EVARGNUG
    EVARGNUG is offline
    Newbie
    MPGH Member
    EVARGNUG's Avatar
    Join Date
    Jun 2011
    Gender
    male
    Posts
    28
    Reputation
    10
    Thanks
    7
    Send a message via Birdie™ to EVARGNUG United States

    Self-written bots I used

    I don't play this game anymore, but I'll share a few of the scripts I used to bot my account into about 15-30 mil gold in roughly a month. Be forewarned, however, that these scripts may not be relevant any longer due to the fact that I haven't touched Vindictus in about one and a half months (a lot, I'm sure, has changed since then).

    And ofc, I used d/l'd and used hacks from this site. Anyone who actively perpetuates (or releases) the use of hacks deserves credit on these forums. You know who you are... Not only are you doing everyone who plays this game a favor, you're making such things that are relevant a little more transparent.

    You may inspect, borrow, or modify them in any way you wish.

    Script used to bot Soul Essences:

    Code:
    Global $pause
$run = 0
$trans1 = Not True
HotKeySet("{u}", "Pause")
HotKeySet("{h}", "Imich")
HotKeySet("{/}", "End")
While 1
	WinWaitActive("Vindictus")
WEnd
Func Imich()
	While $run < 100
		WinMove("Vindictus", "", 0, 0) 
		FlagCheck()
		PixelCheck()
		ControlSend("Vindictus","","","{numpad0}")
		Sleep(500)
		PixelCheck()
		ImichMove()
		ToolTip("Total no. of runs: " & $run,10,30)
		$ohko = 0
		$cvar = 0
		Do
			MouseRepos()
			InDudgeonCommands()
			$ohko = $ohko + 1
			If $ohko >= 20 Then
				ControlSend("Vindictus","","","{\}")
			EndIf
			$cvar = $cvar + 1
			Sleep(1500)
			PixelSearch(257, 571, 279, 588, 0x7E9645, 2)
		Until Not @error Or $cvar > 500
		ToolTip("Total no. of runs: " & $run,10,10)
		Sleep(3000)
		ControlSend("Vindictus","","","{t}")
		Sleep(12000)
		ControlSend("Vindictus","","","{ALT DOWN}")
		MouseClick("Left", 275, 700, 5)
		Sleep(50)
		MouseClick("Left", 275, 700, 5)
		ControlSend("Vindictus","","","{ALT UP}")
		ToolTip("")
		$trans1 = Not True
		$run = $run + 1
	WEnd
	WinKill("Vindictus")
EndFunc
Func FlagCheck()
	$cvar = 0
	Do
		$cvar = $cvar + 1
		Sleep(1000)
		PixelSearch(45, 626, 65, 646, 0x941717, 2)
	Until Not @error or $cvar > 180
	$time = 10
	Do
		ToolTip("Countdown: " & $time, 10, 10)
		sleep(1000)
		$time = $time - 1
	Until $time = 0
	ToolTip("")
	WinActivate("Vindictus")
	Sleep(2500)
	ControlSend("Vindictus","","","{ALT DOWN}")
	MouseClick("Left", 128, 648, 2)
	Sleep(50)
	MouseClick("Left", 128, 648, 2)
	ControlSend("Vindictus","","","{ALT UP}")
EndFunc
Func PixelCheck()
	$cvar = 0
	Do
		$cvar = $cvar + 1
		Sleep(1000)
		PixelSearch(403, 202, 423, 272, 0x000000, 2)
	Until Not @error or $cvar > 180
	ToolTip("Total no. of runs: " & $run,10,10)
	Sleep(1000)
	$lifebarPx = 0	
	Do
		$lifebarPx = $lifebarPx + 1
		Sleep(1000)
		$lifebarPx_coord = PixelSearch(284, 11, 293, 17, 0xB4190A, 2)
	Until Not @error Or $lifebarPx > 180
	If $lifebarPx > 180 Then
		MsgBox(0,"Error","You need ask the guy behind that one Evie for help")
		Winkill("Vindictus")
	Else
		ToolTip("Red pixel found", 10, 10)
		Sleep(5000)
		ToolTip("Total no. of runs: " & $run,10,10)
	EndIf
EndFunc
Func ImichMove()
	ControlSend("Vindictus","","","{a down}")
	Sleep(2000)
	ControlSend("Vindictus","","","{a up}")
	Sleep(150)
	ControlSend("Vindictus","","","{w down}")
	Sleep(3300)
	ControlSend("Vindictus","","","{w up}")
	Sleep(150)
	ControlSend("Vindictus","","","{f3}")
	Sleep(4000)
	ControlSend("Vindictus","","","{f4}")
	Sleep(150)
	ControlSend("Vindictus","","","{a down}")
	Sleep(6500)
	ControlSend("Vindictus","","","{a up}")
	Sleep(150)
	ControlSend("Vindictus","","","{f4}")
EndFunc
Func MouseRepos()
	ControlSend("Vindictus","","","{ESC}")
	Sleep(50)
	ControlSend("Vindictus","","","{ALT DOWN}")
	Sleep(50)
	MouseMove(575,431,0)
	Sleep(50)
	MouseClick("Left",575,431,2)
	Sleep(50)
	ControlSend("Vindictus","","","{ALT UP}")
	Sleep(50)
EndFunc
Func InDudgeonCommands()
		ControlSend("Vindictus","","","{f4}")
		EvieUp()
		EvieRight()
		ControlSend("Vindictus","","","{f4}")
		EvieDown()
		EvieLeft()
		ControlSend("Vindictus","","","{f5}")
EndFunc
Func EvieUp()
	$eup = 0
	Do
		ControlSend("Vindictus","","","{w down}")
		Sleep(100)
		ControlSend("Vindictus","","","{DOWN}")
		Sleep(100)
		ControlSend("Vindictus","","","{w up}")
		$eup = $eup + 1
	Until $eup = 4
	Sleep(100)
EndFunc
Func EvieRight()
	$edown = 0
	Do
		ControlSend("Vindictus","","","{d down}")
		Sleep(100)
		ControlSend("Vindictus","","","{DOWN}")
		Sleep(100)
		ControlSend("Vindictus","","","{d up}")
		$edown = $edown + 1
	Until $edown = 4
	Sleep(100)
EndFunc
Func EvieDown()
	$edown = 0
	Do
		ControlSend("Vindictus","","","{s down}")
		Sleep(100)
		ControlSend("Vindictus","","","{DOWN}")
		Sleep(100)
		ControlSend("Vindictus","","","{s up}")
		$edown = $edown + 1
	Until $edown = 4
	Sleep(100)
EndFunc
Func EvieLeft()
	$eleft = 0
	Do
		ControlSend("Vindictus","","","{a down}")
		Sleep(100)
		ControlSend("Vindictus","","","{DOWN}")
		Sleep(100)
		ControlSend("Vindictus","","","{a up}")
		$eleft = $eleft + 1
	Until $eleft = 4
	Sleep(100)
EndFunc
Func Pause()
	ToolTip('Script is in a sleeping loop, press "u" to loop-break',10,10)
	$pause = NOT $pause
	While $pause
		Sleep(5000)
	WEnd
	ToolTip("")
EndFunc
Func End()
	Exit
EndFunc
    Script used to bot Decisive Battle with a certain OoH:

    Code:
    Global $pause
HotKeySet("{u}", "Pause")
HotKeySet("{h}", "GnollChief")
HotKeySet("{/}", "End")
$run = 0
$Vin = "Vindictus"
While 1
	WinWaitActive($Vin)
WEnd
Func GnollChief()
	While $run < 100
		WinMove($Vin, "", 0, 0) 
		FlagCheck()
		PixelCheck()
		ControlSend($Vin,"","","{numpad0}")
		PixelCheck()
		GnollChiefMove()
		ToolTip("Total no. of runs: " & $run,10,10)
		$wrVar = 0
		Do
			MouseRepos()
			InDudgeonCommands()
			$wrVar = $wrVar + 1
			Sleep(1500)
			PixelSearch(257, 571, 279, 588, 0x7E9645, 2)
		Until Not @error Or $wrVar > 500
		ToolTip("Total no. of runs: " & $run,10,10)
		Sleep(3000)
		ControlSend($Vin,"","","{t}")
		Sleep(12000)
		ControlSend($Vin,"","","{ALT DOWN}")
		Sleep(150)
		ControlClick($Vin,"","","Left",2,275,700)
		Sleep(150)
		ControlSend($Vin,"","","{ALT UP}")
		ToolTip("")
		$run = $run + 1
	WEnd
	WinKill($Vin)
EndFunc
Func FlagCheck()
	$fcVar = 0
	Do
		$fcVar = $fcVar + 1
		Sleep(1000)
		PixelSearch(45, 626, 65, 646, 0x941717, 2)
	Until Not @error or $fcVar > 180
	$time = 10
	Do
		ToolTip("Countdown: " & $time & @LF & "Total no. of runs: " & $run, 10, 10)
		sleep(1000)
		$time = $time - 1
	Until $time = 0
	ToolTip("")
	WinActivate($Vin)
	Sleep(2500)
	ControlSend($Vin,"","","{ALT DOWN}")
	Sleep(150)
	ControlClick($Vin,"","","Left",2,128,648)
	Sleep(150)
	ControlSend($Vin,"","","{ALT UP}")
EndFunc
Func PixelCheck()
	$pcVar = 0
	Do
		$pcVar = $pcVar + 1
		Sleep(1000)
		PixelSearch(403, 202, 423, 272, 0x000000, 2)
	Until Not @error or $pcVar > 180
	ToolTip("Total no. of runs: " & $run,10,10)
	Sleep(1000)
	$lifebarPx = 0	
	Do
		$lifebarPx = $lifebarPx + 1
		Sleep(1000)
		$lifebarPx_coord = PixelSearch(284, 11, 293, 17, 0xB4190A, 2)
	Until Not @error Or $lifebarPx > 180
	If $lifebarPx > 180 Then
		MsgBox(0,"Error","You need ask the guy behind that one Evie for help")
		Winkill($Vin)
	Else
		ToolTip("Red pixel found", 10, 10)
		Sleep(5000)
		ToolTip("Total no. of runs: " & $run,10,10)
	EndIf
EndFunc
Func GnollChiefMove()
	$time = 300
	Do
		ToolTip("Countdown to boss action: " & $time & @LF & "Total no. of runs: " & $run, 10, 10)
		sleep(1000)
		$time = $time - 1
	Until $time = 0
	ToolTip("Total no. of runs: " & $run,10,10)
	Sleep(150)
	ControlSend($Vin,"","","{NUMPADDIV}")
	Sleep(500)
	ControlSend($Vin,"","","{NUMPADSUB}")
	Sleep(500)
	ControlSend($Vin,"","","{w down}")
	Sleep(10000)
	ControlSend($Vin,"","","{w up}")
	Sleep(150)
EndFunc
Func MouseRepos()
	ControlSend($Vin,"","","{ESC}")
	Sleep(50)
	ControlSend($Vin,"","","{ALT DOWN}")
	Sleep(50)
	MouseMove(575,431,0)
	Sleep(50)
	MouseClick("Left",575,431,2)
	Sleep(50)
	ControlSend($Vin,"","","{ALT UP}")
	Sleep(50)
EndFunc
Func InDudgeonCommands()
		EvieUp()
		EvieRight()
		EvieDown()
		EvieLeft()
EndFunc
Func EvieUp()
	$eup = 0
	Do
		ControlSend($Vin,"","","{w down}")
		Sleep(100)
		ControlSend($Vin,"","","{LEFT}")
		Sleep(100)
		ControlSend($Vin,"","","{w up}")
		$eup = $eup + 1
	Until $eup = 4
	Sleep(100)
EndFunc
Func EvieRight()
	$edown = 0
	Do
		ControlSend($Vin,"","","{d down}")
		Sleep(100)
		ControlSend($Vin,"","","{LEFT}")
		Sleep(100)
		ControlSend($Vin,"","","{d up}")
		$edown = $edown + 1
	Until $edown = 4
	Sleep(100)
EndFunc
Func EvieDown()
	$edown = 0
	Do
		ControlSend($Vin,"","","{s down}")
		Sleep(100)
		ControlSend($Vin,"","","{LEFT}")
		Sleep(100)
		ControlSend($Vin,"","","{s up}")
		$edown = $edown + 1
	Until $edown = 4
	Sleep(100)
EndFunc
Func EvieLeft()
	$eleft = 0
	Do
		ControlSend($Vin,"","","{a down}")
		Sleep(100)
		ControlSend($Vin,"","","{LEFT}")
		Sleep(100)
		ControlSend($Vin,"","","{a up}")
		$eleft = $eleft + 1
	Until $eleft = 4
	Sleep(100)
EndFunc
Func Pause()
	ToolTip('Script is in a sleeping loop, press "u" to loop-break',10,10)
	$pause = NOT $pause
	While $pause
		Sleep(5000)
	WEnd
	ToolTip("")
EndFunc
Func End()
	Exit
EndFunc
    I'm out.

  2. The Following 3 Users Say Thank You to EVARGNUG For This Useful Post:

    l2noob2 (09-20-2011),Zealot (08-12-2011),___guilherme___ (09-03-2011)
« Previous Thread | Next Thread »

Similar Threads

  1. [Solved] Bots to Use...
    By Katy in forum Runescape Help
    Replies: 10
    Last Post: 07-23-2011, 07:37 AM
  2. [Discussion] What's your favorite bot to use to make money? F2P & P2P
    By Glib in forum RuneScape Discussions
    Replies: 10
    Last Post: 06-23-2011, 01:48 PM
  3. [Discussion] quit public botting plz/use your brain
    By dragon73 in forum Vindictus Discussions
    Replies: 15
    Last Post: 06-05-2011, 01:15 PM
  4. [HELP] How Do I Inject Im using viper101 GP and lvl Bot!
    By qdewased in forum Combat Arms Hacks & Cheats
    Replies: 5
    Last Post: 08-10-2008, 02:32 PM
  5. useful maple sites (tips, market, bot etc)
    By happyisles88 in forum MapleStory Hacks, Cheats & Trainers
    Replies: 1
    Last Post: 04-17-2008, 10:16 PM