SRL Archive - SRL Archives

UsePlate


Jagex_Fagex

2006-05-10 04:19:42

ok, Fakawi said he wanted a procedure thing that what play with spinning plates (i think) anyway, here it is

{*******************************************************************************
Function CheckPlate(ispot:Integer) :boolean;
By: Jagex_Fagex
Description: Checks to see if Plate is in inventory space defined by ispot.
*******************************************************************************}
Function CheckPlate(ispot:Integer) :boolean;
begin
MMouseItem(ispot);
if(ExistsItem(ispot))and
(Option2('Spin'))then
result:=true else result:=false;
end;

also, uses the plate:


{*******************************************************************************
Procedure UsePlate(ispot:Integer);
By: Jagex_Fagex
Description: Checks to see if Plate is in inventory space defined by ispot. Then Uses It.
*******************************************************************************}
Procedure UsePlate(ispot:Integer);
begin
if(CheckPlate(ispot))then
MouseItem(ispot, true);
end;

These could be used as anti-ban maybe?? i dunno. I just saw Fakawi request it, and i made it. I'm currently working on finding it in the screen if you drop it. About 50% done. So check back soon. ANd be sure to post all comment's, suggestion's, flames and anything else on-topic.

phantombmx

2006-05-10 04:31:59

get rid of the false.. cuz boolean is always false unless otherwise stated..

{*******************************************************************************
Function CheckPlate(ispot:Integer) :boolean;
By: Jagex_Fagex
Description: Checks to see if Plate is in inventory space defined by ispot.
*******************************************************************************}
Function CheckPlate(ispot:Integer) :boolean;
begin
MMouseItem(ispot);
if(ExistsItem(ispot))and
(Option2('Spin'))then
result:=true
end;

the other looks good..

Jagex_Fagex

2006-05-10 04:35:59

nah, the other procedures wouldn't work without it,i dunno why, because i wroteit like that, and then trid to compile. i added it and it worked

The Un-Named

2006-05-10 09:32:09

Sometimes you get errors if you don't set it to the default yourself.