himlol
2007-05-14 11:31:41
<!– BEGIN TEMPLATE: formanswers –>
himlol - SRL Member Application Form
himlol
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
www.SLforums.com
How Long have You Played Runescape
3 years
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
hey am HIMLOL,I just worked Hard to learn some SCar scripting, am not that advanced yet, but still reading and learning more about SCAR….
I just created my first auto fletcher after i did autotalkers,and some nooby powerchopers, i hope ill be an SRL memeber..
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Edited by Sumilion :
Scar tags pl0x ;)
himlol - SRL Member Application Form
himlol
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Other Communitys
www.SLforums.com
How Long have You Played Runescape
3 years
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
hey am HIMLOL,I just worked Hard to learn some SCar scripting, am not that advanced yet, but still reading and learning more about SCAR….
I just created my first auto fletcher after i did autotalkers,and some nooby powerchopers, i hope ill be an SRL memeber..
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//Himlol Fletcher//
//1-put the knife in first inv slot.
//2-put the logs u wanan fletch in first bank slot
//3-Happy fletching
program HImlolfletcher;
{.include SRL/SRL.scar}
//-----------------------------------------//
const
BankBooth = 7703191;//Bank Booth Colour
RunAwayDir = 'S';//wher u wanna run if random attacks
LogsToDo = 719; //much logs u wanna fletch?
var
LogsDone:Integer;
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
end;
//Run away Procedure//
Procedure RunAway;
begin
RunAwayDirection(RunAwayDir);
Wait(12000+random(2000));
RunBack;
end;
//Randoms procedure//
Procedure Randoms;
begin
FindTalk;
wait(10)
FindNormalRandoms;
if(FindFight)then
RunAway;
end;
//Banking Procedures-MY friend helpes-
Procedure Bank;
var bx,by:Integer;
begin
Randoms;
repeat
FindObj(bx,by,'Bank',BankBooth,10);
Wait(100 + Random(200));
until (IsUpText('Use Bank'));
if(IsUpText('Use Bank'))then
begin
GetMousePos(bx, by);
Mouse(bx,by,10,10,false);
wait(100);
if(ClickOption('quickly', 1))then
begin
repeat
Wait(500);
until(BankScreen);
end
else
begin
Bank;
end;
FixBank;
Deposit(2,28,2);
Withdraw(1, 1, 0);
repeat
CloseBank;
Wait(500);
until(BankScreen = False);
end;
end;
// Fletch Procedure//
Procedure Fletch;
var Number:Integer;
begin
begin
Randoms;
UseItem(1);
Wait(100 + Random(800));
UseItem(2);
Randoms;
Wait(random(500));
end;
begin
MMouse(244,407,10,10);
if (IsUpText('Make')) then
begin
Mouse(244,407,10,10,false);
ClickOption('Make X', 3);
Wait(700+Random(500));
Number:=27+Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end
else Fletch;
end;
repeat
wait(500);
Randoms;
if (FindNpcChatText('continue')) then
begin
begin
Randoms;
UseItem(1);
Wait(100 + Random(800));
UseItem(28);
Wait(random(500));
end;
begin
Mouse(244,407,10,10,false);
wait(300);
ClickOption('Make X', 3);
Wait(700+Random(500));
Number:=27+Random(11);
TypeSend(IntToStr(number));
Wait(100 + Random(250));
TypeSend(Chr(13));
end;
end;
Randoms;
until(GetColor(717,447)=65536);
if (GetColor(717,447)=65536) then
LogsDone:= LogsDone+27;
end;
procedure Report;
begin
ClearDebug;
SRLRandomsReport;
WriteLn('////////////////////////////////////////////')
WriteLn(' HimlolfletcherBetav0.1b ')
WriteLn(' ')
WriteLn(' Running Time: ' + (TimeRunning) + '')
WriteLn(' Logs Cut: ' + IntToStr (LogsDone) + '')
WriteLn(' Approx. XP Gained: ' + IntToStr (LogsDone*41) + '')
WriteLn('//////////////////////////////////////////// ')
end;
//Setup//
begin
SetupSRL;
Newline:=Newline;
ActivateClient;
DeclarePlayers;
begin
If (Not(LoggedIn)) then
begin
Status('Logging In');
Loginplayer;
HighestAngle;
end;
end;
repeat//Main loop//
Bank;
Fletch;
Report;
until(LogsDone >= LogsToDo);
if (LogsDone >= LogsToDo)then
begin
Logout;
TerminateScript;
end;
end.
——————————————————
<!– END TEMPLATE: formanswers –>
Edited by Sumilion :
Scar tags pl0x ;)
