_BibzHK_
2012-05-15 05:20:38
Hey Guys, I'm new to Pascal programming but not new to programming. I saw in the antiban include we have HoverSkill. I was thinking of having HoverProgress.
HoverProgress does what HoverSkill does but it hovers over the progress on the top of the screen while you skill a skill.
I made the following code for Flight's HeavyRodder Script but i guess it could be modified to be included in the SRL antiban include?
HoverProgress does what HoverSkill does but it hovers over the progress on the top of the screen while you skill a skill.
I made the following code for Flight's HeavyRodder Script but i guess it could be modified to be included in the SRL antiban include?
Procedure HoverProgress;
var
I, K, J, R, temp, CX, CY: Integer;
skillsDTM: Array[0..2] of Integer;
begin
skillsDTM[0] := DTMFromString('mVAEAAHicE2BgYLBgZGCwgWIHIHYCYmcgNgFiAyjWBWJ9ILYDYkcgtmaE6ANhJaAZMkCsDsQqQKwIxHJArAblKwCxNBCLAbE4EEsCsSgQCwGxKhBH1c5mUDB3Y2BkZAJjPj5+BmVlZYbgjBoGWXMvhp/PNzK4ZSUx2FZPBqpmZBDm52Iwja5iCA0PYyje/phBBChKCWakEKMDAAA0FJM=');
skillsDTM[1] := DTMFromString('mVAEAAHicE2BgYGBiZGBgA2JOIOaC0hxAzALEjED8H6jmLxJmhMqD6D9AvhwQiwCxOBBLA7ECEKsAsQYQKwOxPFRcAqpOGCqnAdV7MN+BYUWcKhibxTcyVPtYMEw2s2DYXenPcLDIByx/vzOG4depeQwnGoLB/EItU4arkzIYDk2tY6AUMFKI0QEAjUUeJg==');
skillsDTM[2] := DTMFromString('m6wAAAHic42ZgYDgPxBeA+DKUvgrEp4H4DFQMhG8A8QkglgViCSCWBGJhIBaDYgUoVgFidSBWBeJ7FRIMK+JUGWbFCzFcXx3J8GC5ExjfXqbMcKRClGHnNG8GGRkZhg+ligykAEYSMBIAAKrUGcI=');
// Shuffle Array
For J := 2 downto 0 do
begin
R := RandomRange(0, J);
// Bubble Sort
temp := skillsDTM[J];
skillsDTM[J] := skillsDTM[R];
skillsDTM[R] := temp;
end;
I := Random(3); // Should we check, 3 skills, 2 skills or 1 skill?
For K := 0 to I do
begin
if InvFull then
break;
if FindDTM(skillsDTM[K], CX, CY, 110, 6, 385, 50) then
begin
HumanMMouse(round(CX), round(CY), 7, 7); // Hover to check progress
Wait(RandomRange(1500, 4000));
end;
end;
HumanMMouse(4, 30, 500, 320);
FreeDTM(skillsDTM[0]);
FreeDTM(skillsDTM[1]);
FreeDTM(skillsDTM[2]);
end;