
Originally Posted by
one1time
Haven't been able to get on lately but finally you released this.
So dope man, hopefully i can start coding from the source.
I've never been able to decypher what gets you banned. I've been macroing for over 7 years now and i still don't know what gets you warned/banned. Would the scripting capability allow a variety of colors to be clicked, so it could randomly choose one of the 3 - 4 colors selected to decrease bannings.
Runescape bans you to due to excessive/same mouse/keyboard movements. The humanmousemovements sub in this bypasses the mouse movement part as far as i know, but i cannot figure out how to make humanmousemovements.. In new version i added code like this:
Code:
if(lstr.contains("leftclick;")) then
for i = 0 to lstr.split(";")(1)
my.keyboard.keys.sendkeys("{LEFT}")
next
end if
Which this works only i am like 80% sure it is detected by runescape due to rapid keys or idk. I have a inventory readers/memory reader that only works 1 time and after u close out the game it stops cause the addresses reset, but i tried calculating the addresses like clientbase+pointer+offset but it just freezes the game so i don't understand that.
On the newest version i had a flaxing script going for a lil over an hour before it clicked away :'( I figured out how to allow the scripter to bank using loops like so: BTW i decided to do the syntax like this : Preval?command;val <--- so u have the max of 2 values and a command
createloop;22 <---- creates a loop and startvalue of 22
1?loop; <---- decreases last loop by 1
endloop; <---- if loop <= 0 then move on in script
code:
declares---
Code:
Dim CStart As Integer = 0
Dim CAmt As Integer = 0
Dim CTrue As Boolean = False
New textbox loop---
Code:
While Script_Running = True
For i = CStart To TextBox1.Lines.Length - 1
Dim lstr As String = TextBox1.Lines.GetValue(i).ToString.ToLower
If (lstr.Contains("createloop;")) Then
If (CTrue = False) Then
CAmt = lstr.Split(";")(1)
CStart = i
CTrue = True
Exit For
End If
ElseIf (lstr.Contains("endloop;")) Then
If (CTrue = True And CAmt <= 0) Then
CStart = i
CTrue = False
Else
Exit For
End If
ElseIf (lstr.Contains("?loop;")) Then
Dim decamt As String = lstr.Split("?")(0)
CAmt -= decamt
Also added other features to new client such as:
xoffset
yoffset <--- adds or subtracts value to x or y +/-
xposition
yposition <--- Sets x or y position
getimage; <--- Resets the scan image so when u have a command it doesnt scan for unneeded images
If you need help with anything i can help or if u need updated code i can send it to u over skype : lucasheer715