scrpit:
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
{.Script Info:
# ScriptName = PROPERSTRINGER
# Author = PROPERHACKER
# Description = simple script to String your bows
# Version = 1.11
# Date = 10/9/2006
# Comments = IT WORKS!!
/Script Info}
{simple script to string bows
----
Visit my website for updates
http://properhacker.googlepages.com/
logs and strings in first 2 bank slots
Face towards that bank, at middle angle
http://forum.scar-scripts.com/showthread.php?p=2091
post in forum with ANY problems
--changelog--
v0.1-0.9 making
v1.00-release
v1.11 use 27,28(thanks for idea R4NDOM 9UY)
----
anyone change and call there own, DONT
if you change CREDIT ME
written by PROPERHACKER,
}
program Properstringer;
{.include Si.scar}
const Totalbows = 530;
LogOutWhenDone = true;
const siUsername = '';
siPassword = '';
siLoggedIn = 30; // mins to run before sleeping
siLoggedOut = 10; // mins to sleep before restarting
siRunDirection = 'S'; // I use seer's
siLampSkill = 'Fletching'; // skill to use lamp on
siTakeScreens = true; // do you want screens of randoms?
var TotalDone, MakeX, count : integer;
procedure HandleRandoms;
begin
CheckRandoms(1, siLampSkill, siRunDirection, false, siTakeScreens, [rtText, rtBox, rtLamp, rtPlant, rtLeveled]);
end;
procedure closebank;
begin
if(BankScreen)then
wait(200+random(200));
mouse(486,42,2,2,true)
end;
procedure Withdrawsb; //withdraw strings and bows
begin
if(not(BankScreen))then
OpenBank;
wait(200+random(200));
Mouse(476,77,2,2,true);
wait(200+random(200));
Withdraw(1, 1, 13);
Withdraw(1, 2, 14);
Withdraw(1, 1, 1);
wait(random(200));
closebank;
end;
procedure DepositBows; //deposits bows
begin
OpenBank;
wait(600+random(400));
Deposit(1, 2, 0);
wait(400+random(600));
end;
procedure MakeBows; //strings bows
var x, y: integer;
begin
Wait(750);
UseItem(27);
UseItem(28);//1
UseItem(27);
UseItem(28);//2
UseItem(27);
UseItem(28);//3
UseItem(27);
UseItem(28);//4
UseItem(27);
UseItem(28);//5
UseItem(27);
UseItem(28);//5
UseItem(27);
UseItem(28);//6
UseItem(27);
UseItem(28);//7
UseItem(27);
UseItem(28);//8
UseItem(27);
UseItem(28);//9
UseItem(27);
UseItem(28);//10
UseItem(27);
UseItem(28);//11
UseItem(27);
UseItem(28);//12
UseItem(27);
UseItem(28);//13
UseItem(27);
UseItem(28);//14
wait(random(200));
TotalDone := TotalDone + 27;
end;
procedure ScriptInit;
begin
LoadInclude('', false);
SetAccount(1, siUsername, siPassword);
TotalDone := 0;
end;
begin
ScriptInit;
repeat
begin
AntiBan(siLoggedIn, siLoggedOut, 1);
Withdrawsb;
HandleRandoms;
MakeBows;
HandleRandoms;
DepositBows;
end;
until(TotalDone >= Totalbows);
CloseWindow;
if(LogOutWhenDone)then
LogOut;
end.
get an error
Include file C:\Program Files\SCAR 3.15\includes\Si.scar does not exist.
Failed when compiling
how should i fix it or please post a working flecthing scrpit


Reply With Quote







