RiSe AgAiNsT
2007-07-17 13:12:38
RiSe AgAiNsT's Longbow Fletcher!
Nothing Much, But Here It Is:
// INSTRUCTIONS:
// 1. USE SCRIPT WITH RS@ IN ANY DETAIL.
// 2. START IN ANY BANK(EXCEPT ONES WITHOUT BANK BOTHS!).
// 3. HAVE KNIFE IN FIRST INVETORY SLOT.
// 4. HAVE LOGS YOU WISH TO FLETCH INTO LONGBOWS IN FIRST BANK
// SLOT.
// 5. DRAG CROSSHAIR TO RS SCREEN.
// 6. MINIMIZE SCAR, THEN PRESS CTRL+ALT+R TO START THE SCRIPT.
Program Longbow_Fletcher;
{.Include Srl/Srl.Scar}
Var
S: String;
I: Integer;
Const
Line1 = 'Starting Script!';
Line2 = 'Opening Your Bank!';
Line3 = 'Removing Your Logs From Bank!';
Line4 = 'Fletching Your Logs Into Longbows!';
Line5 = 'Depositing All Your Longbows Into Bank!';
Line6 = 'Closing Bank!';
Line7 = 'Repeating Script!';
Line8 = 'Disguised Scar!';
Begin
Repeat
ClearDebug;
Writeln(Line1);
DisguiseScar('Google');
Writeln(Line8);
Writeln(Line2);
OpenBank;
Writeln(Line3);
Withdraw(1,1,28);
Writeln(Line6);
CloseBank;
Mouse(580,220,1,1,True);
Wait(1000);
Mouse(620,230,1,1,True);
Wait(1000);
Mouse(300,400,1,1,False);
Wait(1000);
Mouse(300,470,1,1,True);
Wait(1000);
SendKeys('28');
KeyDown(13);
KeyUp(13);
Writeln(Line4);
Wait(40000);
Writeln(Line2);
OpenBank;
Writeln(Line5);
DepositAll;
Writeln(Line6);
CloseBank;
Writeln(Line7);
Until(False);
End.