Tails111
08-10-2007, 03:59 PM
Well since SRL isn't up to date yet I was just messing around with some bitmaps and code and I found a way to still cast spells. I had developed this home port caster for my lumbridge oak seller(The script isn't complete and i can't continue until SRL works)
Well here is it. It will also open gametab. It uses bitmaps.
program CastHomePort;
{.include srl/SRL.scar}
var tx, ty, MagicTab, HomePortX, HomePort: Integer;
procedure DeclareBMP;
begin
MagicTab := BitmapFromString2(False, 'a6252478DA458CC11100' +
'2108035B021194A7A8F45FD2191F278F9D4C76021131339D9 B795' +
'0C50EB56E7014306EB601EBFD599D87252E7BFD1B4D7C304C 4979' +
'2137FCB7D5C074D005D6EBB31D03D13B5BE849F6886E124E6 D9B6' +
'82ACB9C12EAF901F9B');
HomePort := BitmapFromString2(False, 'a647A478DA7D8D510AC42' +
'00C05AFF46C4CE27EAA6DEE7FA4FA2A6C05D9253084715400 883E' +
'80560624B85A3A06358C2C64B6D79BB037657F94CC46FBB73 726C' +
'89DA7AE7CCEE5A46FFA9478FD87A937BE80934C01AF5EA3EC 1495' +
'6CD7CAE9791769322ECE3CDDFD6A763FF775FEF7BFFEBD014 21');
HomePortX := BitmapFromString2(False, 'a56F8D78DAEDCDB115C5' + //This is the thing that says you casted too soon.
'200C43D1954CC086DFE224FB8F1444F13344DE2D54E808636 6A51' +
'45BF25E511516E558E9772887B2C5DB474DA50FF5A7FA6334 2D3D' +
'FFAF42436BA94D771DED55D398BE97F6F63F4DFBDC174EED2 3E6C' +
'A2BF79700000000000000000000000000000000BEEA01218' );
end;
{================================================= ====]
[Procedure OpenMagicTab is used to open the magic ]
[tab to cast lumbridge port, by me. Uses bitmaps ]
[================================================== ===}
procedure OpenMagicTab;
begin
If(FindBitmap(MagicTab, tx, ty)) then
begin
wait(100 + Random(150));
Mouse(tx, ty, 6, 6, True);
wait(1000);
end else
begin
WriteLn('Didn''t Find The Magic Tab! ');
wait(3000);
end;
end;
{================================================= ====]
[Procedure CastHomePort is used to cast the home ]
[port spell to lumbridge, Created by me. Uses bitmaps ]
[================================================== ===}
Procedure CastHomePort;
begin
If(FindBitmap(HomePort, tx, ty)) Then
begin
wait(100 + Random(150));
Mouse(tx, ty, 5, 5, True);
wait(15000);
WriteLn('Successfully Teleported "Home"!');
end;
If(FindBitmap(HomePortX, tx, ty)) Then
begin
WriteLn('You have used Home Port too Recently! Logging Out!');
end;
If Not(FindBitmap(HomePort, tx, ty)) Then
begin
WriteLn('We did not find the Spell! Check the Deatail select, please restart.');
end;
end;
Begin
SetupSRL;
ClearDebug;
Activateclient;
DeclareBMP;
OpenMagicTab;
CastHomePort;
end.
It can be used for any spell just you would need to find the bitmap.
I also have a Run option thing. It works but it doesn't check to see if the Run is on or Off so It will turn it off if you have it on... I think.
program Run;
{.include srl/SRL.scar}
var tx, ty, OptionTab, Runon, Runoff: Integer;
{================================================= ====]
[Procedure OpenOptTab is used to open the options tab ]
[to set run to on. Created by me. Uses bitmaps ]
[================================================== ===}
procedure OpenOptionsTab;
begin
If(FindBitmap(OptionTab, tx, ty)) then
begin
Mouse(tx, ty, 6, 6, true);
wait(100);
WriteLn('Found Options Tab!');
wait(1500 + random(500));
end else
WriteLn('Couldn''t find Options Tab!');
end;
{================================================= ====]
[Procedure Runon is used to check if the run option ]
[is set to run on. Created by me. Uses bitmaps ]
[================================================== ===}
procedure CheckRunOn;
begin
If(FindBitmap(Runoff, tx, ty)) then
begin
WriteLn('Setting run on!');
Mouse(tx, ty, 6, 6, true);
wait(1000 + random(500));
end;
end;
{================================================= ====]
[Procedure Runoff is used to check if the run option ]
[is set to run off. Created by me. Uses bitmaps ]
[================================================== ===}
procedure CheckRunOff;
begin
If(FindBitmap(Runon, tx, ty)) then
begin
WriteLn('Run is being set off!');
Mouse(tx, ty, 6, 6, true);
wait(1000 + random(500));
end;
end;
Begin
SetupSRL;
Activateclient;
ClearDebug;
DeclareBMP;
OpenOptTab;
CheckRunOn;
Wait(2000);
CheckRunOff;
end.
I didn't bother with antirandoms due to the point during my testing I didn't get any for the homeport. I also doubt you can get the Abyss with Homeport. Well If anyone uses don't bother with credit because it is pretty much right out of the book, well manual. I didn't steal from anyone, although other people may have this in there script. I did it all without looking at someone else's script.
Well here is it. It will also open gametab. It uses bitmaps.
program CastHomePort;
{.include srl/SRL.scar}
var tx, ty, MagicTab, HomePortX, HomePort: Integer;
procedure DeclareBMP;
begin
MagicTab := BitmapFromString2(False, 'a6252478DA458CC11100' +
'2108035B021194A7A8F45FD2191F278F9D4C76021131339D9 B795' +
'0C50EB56E7014306EB601EBFD599D87252E7BFD1B4D7C304C 4979' +
'2137FCB7D5C074D005D6EBB31D03D13B5BE849F6886E124E6 D9B6' +
'82ACB9C12EAF901F9B');
HomePort := BitmapFromString2(False, 'a647A478DA7D8D510AC42' +
'00C05AFF46C4CE27EAA6DEE7FA4FA2A6C05D9253084715400 883E' +
'80560624B85A3A06358C2C64B6D79BB037657F94CC46FBB73 726C' +
'89DA7AE7CCEE5A46FFA9478FD87A937BE80934C01AF5EA3EC 1495' +
'6CD7CAE9791769322ECE3CDDFD6A763FF775FEF7BFFEBD014 21');
HomePortX := BitmapFromString2(False, 'a56F8D78DAEDCDB115C5' + //This is the thing that says you casted too soon.
'200C43D1954CC086DFE224FB8F1444F13344DE2D54E808636 6A51' +
'45BF25E511516E558E9772887B2C5DB474DA50FF5A7FA6334 2D3D' +
'FFAF42436BA94D771DED55D398BE97F6F63F4DFBDC174EED2 3E6C' +
'A2BF79700000000000000000000000000000000BEEA01218' );
end;
{================================================= ====]
[Procedure OpenMagicTab is used to open the magic ]
[tab to cast lumbridge port, by me. Uses bitmaps ]
[================================================== ===}
procedure OpenMagicTab;
begin
If(FindBitmap(MagicTab, tx, ty)) then
begin
wait(100 + Random(150));
Mouse(tx, ty, 6, 6, True);
wait(1000);
end else
begin
WriteLn('Didn''t Find The Magic Tab! ');
wait(3000);
end;
end;
{================================================= ====]
[Procedure CastHomePort is used to cast the home ]
[port spell to lumbridge, Created by me. Uses bitmaps ]
[================================================== ===}
Procedure CastHomePort;
begin
If(FindBitmap(HomePort, tx, ty)) Then
begin
wait(100 + Random(150));
Mouse(tx, ty, 5, 5, True);
wait(15000);
WriteLn('Successfully Teleported "Home"!');
end;
If(FindBitmap(HomePortX, tx, ty)) Then
begin
WriteLn('You have used Home Port too Recently! Logging Out!');
end;
If Not(FindBitmap(HomePort, tx, ty)) Then
begin
WriteLn('We did not find the Spell! Check the Deatail select, please restart.');
end;
end;
Begin
SetupSRL;
ClearDebug;
Activateclient;
DeclareBMP;
OpenMagicTab;
CastHomePort;
end.
It can be used for any spell just you would need to find the bitmap.
I also have a Run option thing. It works but it doesn't check to see if the Run is on or Off so It will turn it off if you have it on... I think.
program Run;
{.include srl/SRL.scar}
var tx, ty, OptionTab, Runon, Runoff: Integer;
{================================================= ====]
[Procedure OpenOptTab is used to open the options tab ]
[to set run to on. Created by me. Uses bitmaps ]
[================================================== ===}
procedure OpenOptionsTab;
begin
If(FindBitmap(OptionTab, tx, ty)) then
begin
Mouse(tx, ty, 6, 6, true);
wait(100);
WriteLn('Found Options Tab!');
wait(1500 + random(500));
end else
WriteLn('Couldn''t find Options Tab!');
end;
{================================================= ====]
[Procedure Runon is used to check if the run option ]
[is set to run on. Created by me. Uses bitmaps ]
[================================================== ===}
procedure CheckRunOn;
begin
If(FindBitmap(Runoff, tx, ty)) then
begin
WriteLn('Setting run on!');
Mouse(tx, ty, 6, 6, true);
wait(1000 + random(500));
end;
end;
{================================================= ====]
[Procedure Runoff is used to check if the run option ]
[is set to run off. Created by me. Uses bitmaps ]
[================================================== ===}
procedure CheckRunOff;
begin
If(FindBitmap(Runon, tx, ty)) then
begin
WriteLn('Run is being set off!');
Mouse(tx, ty, 6, 6, true);
wait(1000 + random(500));
end;
end;
Begin
SetupSRL;
Activateclient;
ClearDebug;
DeclareBMP;
OpenOptTab;
CheckRunOn;
Wait(2000);
CheckRunOff;
end.
I didn't bother with antirandoms due to the point during my testing I didn't get any for the homeport. I also doubt you can get the Abyss with Homeport. Well If anyone uses don't bother with credit because it is pretty much right out of the book, well manual. I didn't steal from anyone, although other people may have this in there script. I did it all without looking at someone else's script.