Bad Boy JH
2010-11-27 22:51:14
I do believe something simmilar to safe mode is accesable by holding S when runescape is loading, how about adding something like this:
(The repeat..until was already there, I just had that there to show where to place the other stuff)
This stopped my runescape flickering, its simple and it means less setup. The next thing I am thinking is seeing if I can get a bitmap stuff to get it into Fixed mode, if that doesn't do that also…
It doesn't change it to fixed mode, so I made a bitmap thing which sets it to fixed mode…check this out..
not sure how to implement that…
KeyDown(GetKeyCode('s'));
repeat
Wait(100);
if (GetTimeRunning - t) > 120000 then
Break;
until(RSReady);
KeyUp(GetKeyCode('s'));(The repeat..until was already there, I just had that there to show where to place the other stuff)
This stopped my runescape flickering, its simple and it means less setup. The next thing I am thinking is seeing if I can get a bitmap stuff to get it into Fixed mode, if that doesn't do that also…
It doesn't change it to fixed mode, so I made a bitmap thing which sets it to fixed mode…check this out..
function ClickOptionsButton: Boolean;
var
OptionsBitmap, BW, BH, CW, CH, X, Y: Integer;
begin
OptionsBitmap := BitmapFromString(18, 14, 'beNrTUTLRIQdZG2' +
'uSgdxsDZFRUqTn6sUd1cWxaOJoKCbQERllJwXcv7rp1f3dQI1oUlhRfnJAe20' +
'GkHHm4CKgrtkTKz3sjXEpDvKwgqD5U6uBiiFagKixKllHXQEui4bgHgz0sLpz' +
'aQNECwQtml5HTMj4uJjXlicAGXDtQHdiVWmur4qMTHWVVeQlkO0FakRTA0S44' +
'hFZ46Fds8z1VYhMAGga1ZRlidcI0QUMWz4eTiJ1OVroADUumdUIDAERQT6S0q' +
'qkqAAQ6WvIQUUAL/Dd/g==');
GetBitmapSize(OptionsBitmap, BW, BH);
GetClientDimensions(CW, CH);
Writeln(CW);
Writeln(CH);
if FindBitmapToleranceIn(OptionsBitmap, X, Y, 0, 0, CW - 1, CH - 1, 25) then
begin
Mouse(X + 1, Y + 1, BW - 3 , BW - 3, True);
Result := True;
end;
FreeBitmap(OptionsBitmap);
end;
Function ClickFixedButton: Boolean;
var
Mark, FixedBitmap, BW, BH, CW, CH, X, Y: Integer;
begin
FixedBitmap := BitmapFromString(43, 28, 'beNrtl9FOgzAUhpNe' +
'GHVuYSGiBjWoaJTMCyHeNPGGXexdfIY9vL8cclJbWg6FS0/+EELWft/pGHRKV' +
'f/VlVJqtXQpWZEAPt80u6K4mx/MM8kT9KapcYKxJ2drby62yOkmDeQ8yXDEPJ' +
'MEQP8j0IHcWCDKKs3dlOVTnAAGmgJudwGomap6jhPAQAgMLqyEi2xuHkkgFRc' +
'JaK17gaGlHuWuswIBPcnLJLvFTTVHgG4kIRrQnmsEvwI5HaW7YgHJUqNfdGpx' +
'ke39m1yA7wEWwED0PrrObstMTx/eO4FaTpcIMNdFA2oGAjhqXcvploD1vfu6d' +
'rmUy/IDxwiBtm1x/fcR2kGFaOYy/fqlniOAgXRju+gAlAP61esnTjChnI6XkS' +
'tgxkcnIh3N0ArkTrlon4C5+JTAN+4G1/d7LaebAhg4+hyw3AafA6ZAGG0JHI/' +
'fGBuXw+GLg3mILtyosEC+XPkaH9wmLSsQQPs2aQsKTGp8cYGI3ucIYPuEMHrw' +
'ISPcG0cICNFCAbw9AwLUKcfihunC/wWmgIUbRc9Z+b5+AAobS+Y=');;
GetBitmapSize(FixedBitmap, BW, BH);
GetClientDimensions(CW, CH);
MarkTime(Mark);
while (TimeFromMark(Mark) < 3000) do
begin
if FindBitmapToleranceIn(FixedBitmap, X, Y, 0, 0, CW -1, CH - 1, 50) then
begin
Mouse(X + 1, Y + 1, BW - 3 , BW - 3, True);
Result := True;
Break;
end;
end;
FreeBitmap(FixedBitmap);
end;
Function ChangeToFixed: Boolean;
begin
if ClickOptionsButton then
Result := ClickFixedButton;
end; not sure how to implement that…