Log in

View Full Version : Need Include



Whatadrag
12-06-2007, 01:24 AM
Um i have a script tht i gotand it says i need an include {.include Si.scar}
And the script keeps saying failed when compiling here it is


[code{simple script to cut your logs into bows.
----
to keep from using an ugly hack, i simply assume you won't be
macroing the creation of normal short/long bows, ie you will only use
normal logs for arrow shafts. get over it.
----
knife in first inventory slot,
logs in first bank slot.
----
written by philodespotos
}
program pdFletcher;
{.include Si.scar}

const BowType = 2; // 0 = shafts, 1 = short, 2 = long
TotalLogs = 975;
LogOutWhenDone = false;

const siUsername = '';
siPassword = '';
siLoggedIn = 5000; // mins to run before sleeping
siLoggedOut = 60; // mins to sleep before restarting
siRunDirection = 'S'; // I use seer's
siLampSkill = 'Fletching'; // skill to use lamp on
siTakeScreens = false; // do you want screens of randoms?

var TotalDone, MakeX, count : integer;

procedure LoadBmps;
begin;
MakeX := BitmapFromString(42, 3, 'z78DA33753135313137' +
'05936E48C0000C4C91648957430C492D73A865A31B06C02F3 B' +
'B4FC8E692F7EDFE10743DDEF00D948ACB1');
end;

procedure HandleRandoms;
begin
CheckRandoms(1, siLampSkill, siRunDirection, false, siTakeScreens, [rtText, rtBox, rtLamp, rtPlant, rtLeveled]);
end;

procedure WithdrawLogs;
begin
if(not(BankScreen))then
OpenBank;
wait(200+random(200));
Withdraw(1, 1, 0);
wait(200+random(200));
CloseWindow;
end;

procedure DepositBows;
begin
OpenBank;
wait(600+random(400));
Deposit(1, 2, 0);
wait(400+random(600));
end;

procedure CutBows;
var x, y: integer;
begin
UseItem(1);
UseItem(2);
wait(900+random(300));

// no error checking. let's hope you got it right.
case BowType of
0: ClickTextCoords('Make X', 102, 403, 3, 3);
1: ClickTextCoords('Make X', 172, 407, 3, 3);
2: ClickTextCoords('Make X', 391, 401, 3, 3);
end;

wait(500+random(1500));
SendText('55'+chr(13)); // 5 has a raised bump on the numpad.
wait(500+random(500));
HandleRandoms;
SleepAndMoveMouse(12000+random(2000));
HandleRandoms;
SleepAndMoveMouse(12000+random(2000));
HandleRandoms;
SleepAndMoveMouse(12000+random(2000));
HandleRandoms;
SleepAndMoveMouse(12000+random(2000));
HandleRandoms;
TotalDone := TotalDone + 27;
end;

procedure ScriptInit;
begin
LoadInclude('', false);
LoadBmps;
SetAccount(1, siUsername, siPassword);
ChatsOff;

TotalDone := 0;
end;

begin
ScriptInit;

repeat
begin
AntiBan(siLoggedIn, siLoggedOut, 1);
WithdrawLogs;
HandleRandoms;
CutBows;
HandleRandoms;
DepositBows;
end;
until(TotalDone >= TotalLogs);
CloseWindow;

if(LogOutWhenDone)then
LogOut;
end.
How do i get this include please help and use if u want 2:duh:

Harry
12-06-2007, 01:26 AM
SI is an OLD OUTDATED, and NON WORKING include. Use SRL.

Whatadrag
12-06-2007, 01:29 AM
um but i really need a fletcher

Harry
12-06-2007, 01:30 AM
Then download one from here.

Whatadrag
12-06-2007, 01:39 AM
there are none in the free for all scrolls section and i dont know where any else are