Workin On this script and leaving my source code here fin case someone wants an example of a lvling bot tacked onto EQ2Extreme...
This script is basicly just added onto the bottom of the EQ2Extreme script.
Its not ganna work without tweaking, and its probally best only to use this as an example... anyways It works for me, it can run overnight if I let it....
If you guys want me to make it easier to use I guess I could by putting all the variables you need to change at the top...
No other scripts on taultunleashed worked with vista so I just whipped this up for me.
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
' CUSTOM SCRIPT ADDED
Dim lblTargetRange
Dim RangeX
Dim RangeY
Dim RangeZ
Dim TRange
Dim CurrentAttackKey
Dim TargetWindowVisible 'user defined, 0= no window visible 1=window visible (Checks pixel 172,55)
Dim TargetHeading
Sub TargetCheck
Dim Off
Set oPlayer = EQ.Player
Set oTarget = oPlayer.Target
Attackloop = 1
Off = 5 'Suggest 3
If oPlayer.Level >= oTarget.Level AND oTarget.Level >= 20 Then
Keyboard.SendKeys "`"
Sleep (2000)
Range
If TRange <=20 Then
Kill
Else
Keyboard.SendKeys "{NUMLOCK}"
Do
Sleep (100)
Range
Set oPlayer = EQ.Player
TargetWindowChecker
If oPlayer.Health <=0 Then
Exit Do
End If
Loop Until TRange <20> (138-Off) AND R <138> (42-Off) AND B <42> (116-Off) AND G < (116+Off) Then
TargetWindowVisible = 1
Else
TargetWindowVisible = 0
End If
End Sub
Sub Kill
CurrentAttackKey = 1
Do
Sleep (1800)
Keyboard.SendKeys CurrentAttackKey
CurrentAttackKey = CurrentAttackKey + 1
If CurrentAttackKey = 9 Then
CurrentAttackKey = 0
Else
End If
Set oPlayer = EQ.Player
TargetWindowChecker
If oPlayer.Health <=0 Then
Exit Do
End If
Loop Until TargetWindowVisible = 0
End Sub
Sub DeathChecker
Sleep (7000)
Dim MouseChords
Set oPlayer = EQ.Player
If oPlayer.Health <=0 Then
Deathcount = Deathcount + 1
Mouse.LMouseClick 641,666,1,3
Sleep (10000)
CurrentAttackKey = 1
MouseChords = 30
Do
Mouse.LMouseClick MouseChords,877,1,3
MouseChords = MouseChords + 42
Sleep (3500)
CurrentAttackKey = CurrentAttackKey + 1
Loop Until CurrentAttackKey = 7
Else
End If
End Sub
Sub MoveLoc (X,Y) '180-540 degrees... (540/180=S 270=W 360=N 450=E)
Dim DiffX
Dim DiffY
Dim LRange
Dim Off
Set oPlayer = EQ.Player
Diffx = oPlayer.X - X
Diffy = oPlayer.Y - Y
TargetHeading = (Atn(DiffY/DiffX))*180/3.14
If DiffX > 0 Then
If DiffY > 0 Then
TargetHeading = 270 - TargetHeading + 180 'x,y
Else
TargetHeading = 270 - TargetHeading + 180 'x,-y
End If
Else
If DiffY > 0 Then
TargetHeading = 90 - TargetHeading + 180 '-x,y
Else
TargetHeading = 90 - TargetHeading + 180 '-x,-y
End If
End If
Sleep (3000)
Keyboard.KeysDown ("X")
Sleep (20)
Keyboard.KeysUp ("X")
Sleep (20)
Keyboard.KeysDown ("A")
Off = 10
Do
Sleep (50)
Set oPlayer = EQ.Player
Loop Until oPlayer.Heading > TargetHeading-Off AND oPlayer.Heading < TargetHeading+Off
Keyboard.KeysUp ("A")
Sleep (100)
Do
Set oPlayer = EQ.Player
If oPlayer.Heading <TargetHeading> TargetHeading-(Off/5) AND oPlayer.Heading < TargetHeading+(Off/5)
Sleep (100)
Keyboard.KeysDown ("W")
Do
Set oPlayer = EQ.Player
RangeX = (oPlayer.X - X)
RangeY = (oPlayer.Y - Y)
LRange = sqr(abs(RangeX^2) + abs(RangeY^2))
Sleep (10)
Loop Until LRange <=25
Keyboard.KeysUp ("W")
End Sub
Sleep (5000)
Dim Deathcount
Do
Sleep (200)
Keyboard.KeysDown ("D")
Sleep (200)
Keyboard.KeysUp ("D")
Keyboard.SendKeys "{TAB}"
Sleep (200)
TargetCheck
TargetWindowChecker
Set oPlayer = EQ.Player
Set oTarget = oPlayer.Target
If TargetWindowVisible = 0 OR oPlayer.Level < oTarget.Level OR oTarget.Level <= 20 Then
Set oPlayer = EQ.Player
If oPlayer.Health <=100 Or oPlayer.Power <=100 Then
Keyboard.SendKeys "{ESC}"
Mouse.LMouseClick 240,880,1,3
Do
Sleep (1000)
TargetWindowChecker
Set oPlayer = EQ.Player
If TargetWindowVisible = 1 Then
Sleep (100)
TargetCheck
Sleep (100)
Exit Do
End If
If oPlayer.Health <= 0 Then
Exit Do
End If
Loop Until oPlayer.Health = 100 And oPlayer.Power = 100
End If
End If
Set oPlayer = EQ.Player
If oPlayer.Health <=0 Then
DeathChecker
Moveloc -252,52
Moveloc -299,205
Moveloc -310,381
Moveloc -312,564
Moveloc -340,677
Moveloc -345,672
End If
Loop