_ChArMz
2006-05-06 21:13:58
I need to use a brass key with a door for my superfighter, anyone have any idea how to do this?
Thank You
~ChArMz
Thank You
~ChArMz
2006-05-06 21:13:58
2006-05-06 21:22:28
2006-05-06 21:24:22
Program UseKeyWithDoor;
{.include SRL/SRL.SCAR}
Const
DoorColor=0;
Begin
Procedure UseItem(invslot1);
If(FindObj(X,Y,'Brass Key',DoorColor,15))Then
Mouse(X,Y,2,2,True)
End;
Begin
SetupSRL;
UseItem;
End.
2006-05-07 11:47:16
Program UseKeyWithDoor;
{.include SRL/SRL.SCAR}
Const
DoorColor=0;
Procedure UseItem(invslot1);
[B]Begin[/B]
If(FindObj(X,Y,'Brass Key',DoorColor,15))Then
Mouse(X,Y,2,2,True)
End;
Begin
SetupSRL;
UseItem;
End.
2006-05-08 03:42:13
Program ClimbLadder;
{.include SRL/SRL.SCAR}
Const
LadderColor=0;
Procedure ClimLadder;
var
X, Y : Integer // Again a non global variable,, HOW DO YOU CALL THAT ANYWAYS?
Begin
If(FindObj(X,Y,'Climb Ladder',LadderColor,15))Then
Mouse(X,Y,2,2,True);
wait(200+random(1000)); // wait time for less detection
End;
Begin
SetupSRL;
ClimbLadder;
End.
Program UseKeyWithDoor;
{.include SRL/SRL.SCAR}
Const
DoorColor=0;
Procedure OpenDoor; // Don't use UseItem as procedure name, you will get a error: Duplicated Identifier blablabla..
var
X, Y : Integer; // Again a non global variable,, HOW DO YOU CALL THAT ANYWAYS?
Begin
GameTab(4); // Open inventory if it's not opened
wait(200+random(2000)); // wait time for less detection
UseItem(Invslot1);
If(FindObj(X,Y,'Brass Key',DoorColor,15))Then
Mouse(X,Y,2,2,True); // need to close it with a ; lol, HOW IS THAT NAMED? a ;
End;
Begin
SetupSRL;
OpenDoor;
End.
There were some errors but I hope I took them out. (A)
2006-05-08 07:48:12
Mouse(X,Y,2,2,True); // need to close it with a ; lol, HOW IS THAT NAMED? a ;
2006-05-08 17:43:44
2006-05-09 02:45:29