SRL Archive - Archive

<!– 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 learned about scar ,learned how to manage with Srl..
i hope to be srl member,though am not that advanced,imade some autotalker,basic autowoodcutters,and a new fletcher.. thats it:D

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

                          //Welcome to//
                       //*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  = 7703180;//Bank Booth Colour
RunAwayDir = 'S';//wher u wanna run if random attacks
LogsToDo   = 100; //much logs u wanna fletch?

var
LogsDone:Integer;

Procedure DeclarePlayers;
begin
HowManyPlayers  := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

     Players[0].Name      := 'himlol';
     Players[0].Pass      := 'password';
     Players[0].Nick      := 'iml';
     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('    neGs Fletcher BETA     ')
  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 –>

SILLY GOOSE

BUSTED?

Wtf? http://www.villavu.com/forum/showthread.php?t=10109

Um..
You already applied, with same coppied script?
Ban pl0x?

THATS MY FLETCHER!!!!
:fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery: :fiery:

Big Mistake.