SRL Archive - Non-RuneScape Scripts

[Project 06] Functions - Useful to add to scripts


rj

2013-01-28 19:56:13

List of functions people can use for your 06 scripts:
function IsloggedIn(): boolean;
var
Login, X, Y: Integer;
begin
Login := BitmapFromString(64, 13, 'meJytVMFqAlEM/CcLRboUKV62Yn' +
'uovShSKAVBD578fxoIDMMkL7xdhWFZls3LzLxJdpvxY/2224yO/ef' +
'W8PP99UDgcLTAU2BMHO+rV8d6eBHYRyYc0ZJwOh5qnl6IWmGIpn4U' +
'Tou/sYTIf7V8xnsqRGgUcBqsC2T8BKHk7bzw+veL2lqCqDD+huFpY' +
'bAXbjQjRcI/ZsZosF18C1E13xSrhgo33yU4pLxgHt2uswTy3gjRZR' +
'W46zTJLMFVxDhNIj91YGG+Gyh8WEVrGGOJhCpmPkqA850SpHvKvN4' +
'hEqSWEOY/O+ppcgoDO5mn/0cJsL1wmP0vIOZL03pdyxTUYlP+LZM7' +
'yctKT3daEfXWFKf+s4SezBSwNQ6Idqbdk7SeRMUIzWbOEm6Xc5Qgm' +
'y2930kS0hG4J+pFCV8BrGttiXv4/wNvYwyX');

Result := true;
if FindBitmapToleranceIn(Login, X, Y, 284, 346, 480, 387, 235) then
begin
Result := false;
end;
FreeBitmap(login);
end;
Procedure LoginMyPlayer;
var
Exist,Login, X, Y: Integer;
begin
DTM_Exist := DTMFromString('mQwAAAHicY2ZgYDjLyMAwBYi9gFgFiH8CxZSB9P///4EYQvMDxWCYEQkDAQC1eQsc');
DTM_Login := DTMFromString('mQwAAAHicY2ZgYDBkZGCIBOLdQOwExHeAYo5A+v///0AMofmBYjDMiISBAACfdArV');
if FindDTM(DTM_Exist, x, y, 167, 149, 586, 405) then
begin
mmouse(x, y, 1, 1);
clickmouse2(mouse_Left);
wait(randomrange(800, 1200));
if FindDTM(DTM_Exist, x, y, 167, 149, 586, 405) then
begin
mmouse(x, y, 1, 1);
clickmouse2(mouse_Left);
wait(randomrange(800, 1200));
end;
end;
FreeDTM(DTM_Exist);
FreeDTM(DTM_Login);
end;
function IsBankOpen(): boolean;
var
Bank_Open,X,Y:Integer;
begin
Bank_Open := BitmapFromString(40, 4, 'meJyTn/FffsZ/BgYGeTDD2M4DiCB' +
'seZgUEEDE4QhZCsI2cfCEILgUXAQZYZoMZyPbi9VSZHvRLEI2lhh7' +
'kbWj+RfTUjz2InOxelkeKXhx2YsW+KTai8e/QFkA8imf/g==');
Result := false;
if FindBitmapToleranceIn(Bank_Open, X, Y, 0, 0, 671, 452, 145) then
begin
Result := true;
end;
FreeBitmap(Bank_Open);
end;
Procedure CloseBank;
var
X,Y:Integer;
begin
If FindColorTolerance(X, Y, 8421504, 424, 36, 490, 45, 10) then
begin
mmouse(x, y, 1, 1);
clickmouse2(mouse_Left);
end;
end;
Function list:


IsLoggedIn
LoginMyPlayer
IsBankOpen
CloseBank



Future functions:
InventoryIsFull
DropAll
OnTabInventory
ToTabInventory
TrollExists
CanFindMod
CanFindAdmin
GilesExists
IsInCombat
IsBanned


Write any suggestions below

Ian

2013-01-28 20:03:41

John already made some of these, you two should work together on this :)

Pew

2013-01-28 21:41:01

Will definitely be using all of these in my next script. Thanks for saving me the trouble.

rj

2013-01-28 22:41:01

From: Pew
Will definitely be using all of these in my next script. Thanks for saving me the trouble.


teaming up with a few people to make include ATM