EQ2MegaBot’ v2.4 Released - Buff Bot AND HUNTER BOT! : EverQuest 2 Premium Discussions

Code: Register to unlock hidden link

			if(CheckForMonster) then
				' Every 1 second try to target monster
				
				if (CheckForMonsterTimer.TimerCheck()) then 
					SendKey(TargetMonsterSTR) 
					spawnID=getTargetID(oEQ2Service) 'new
					mobX=getMobX(oEQ2Service, spawnID) 'new
					mobY=getMobY(oEQ2Service, spawnID) 'new
					mobDist=CalcDisToTarget(mobX, mobY) 'new

					if (GetCon() AND mobDist < 15) then  ' changed
						objDebug.Print "** We found a monster while running, stop running and it will then be the next thing you target...", 0
						FoundMonster=TRUE
						GlobalTargettedMonster=TRUE
						exit Do
					end if
					Call CheckForMonsterTimer.StartTimer("CheckForMonsterTimer", 1)
				end if
			end if

Code: Register to unlock hidden link

'---------------------------------------------------------------------------
'---------------------------------------------------------------------------
' Turns using Keyboard

Sub TurnToAngle(angle)
	Dim i, x, y, a, a2, savA, TurnTimer, howClose
	Dim kLeft, kRight, factor, t

	' Might want to make them INI's if people are remapping the arrow keys, but I don't find that likely
	kRight=VirtualKey.VK_RIGHT
	kLeft=VirtualKey.VK_LEFT

	' howClose is set to what is considered an angle match.
	' you can set it to 0 when you are reading the locs from the back-end and it doesn't do a /loc
	' but when it does, set it to something higher - say 5
	howClose=1

	objDebug.Print "*** TurnToAngle(" & angle & ")", 0

	Set TurnTimer = New TimerClass
	Call TurnTimer.SetDebugLevel(2) ' We don't want to see all the details of this timer...
	Call TurnTimer.StartTimer("TurnTimer", 10) ' Should never take more than 10 seconds to turn!!

	Do While (TRUE)
		if(TurnTimer.TimerCheck()) then
			objDebug.Print "*** ERROR: Timed out in TurnToAngle(10 seconds) - should never happen!!", 0
			exit Do
		end if
		GetLocation()
		a = angle-CurLoc.GetDir()
		objDebug.Print "Turn to: " & angle & " - CUR ANGLE: " & CurLoc.GetDir() & " Angle Diff: " & a, 0
		objDebug.Print "Angle Diff=" & a, 0
		if Abs(a) > 180 then
			savA = a
			a = 360-Abs(a)
			' Have to reverse the angle
			if (savA > 0) then
				a=a*-1
			end if
			objDebug.Print "Angle Diff (after converting to < 180)=" & a, 0
		end if
		StatusBar2("Turn to: " & angle & " - CUR ANGLE: " & CurLoc.GetDir() & " Angle Diff: " & a)
		if abs(a) <= howClose then
			objDebug.Print "WE are there! HowClose=" & howClose & " abs(a)=" & abs(a), 0
			exit Do
		end if
		'Pause(2000)
		a2 = Abs(a)
		if a2 >=0  and a2 < 3  then factor = 0.06  end if
		if a2 >=3  and a2 < 10 then factor = 0.07  end if
		if a2 >=10 and a2 < 20 then factor = 0.08 end if
		if a2 >=20 and a2 < 30 then factor = 0.09 end if
		if a2 >=30 and a2 < 40 then factor = 0.10  end if
		if a2 >=40 and a2 < 50 then factor = 0.11 end if
		if a2 >=50 and a2 < 60 then factor = 0.125  end if
		if a2 >=60 and a2 < 70 then factor = 0.13  end if
		if a2 >=70 and a2 < 80 then factor = 0.135 end if
		if a2 >=80				  then factor = 0.14  end if
		t = a2 / factor
		objDebug.Print "A2=" & a2 & " factor=" & factor & " t=" & t, 0
		if a > 0 then
			objDebug.Print "+ TURN RIGHT Turning MS=" & t, 0
			XUScriptHost.KeyDown(CInt(kRight))
			Pause(t)
			XUScriptHost.KeyUp(CInt(kRight))
		else
			objDebug.Print "- TURN LEFT Turning MS=" & t, 0
			XUScriptHost.KeyDown(CInt(kLeft))
			Pause(t)
			XUScriptHost.KeyUp(CInt(kLeft))
		end if
		if (CheckForAdd()) then 
			exit sub ' If we got jumped - exit and FIGHT!
		end if 
	Loop
end Sub