SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
sameedpak - SRL Member Application Form
sameedpak

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Java, Html

Other Communitys
Fagex

How Long have You Played Runescape
3 Years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Well i started playing runescape 3 years ago. I really got into the game and after 2 years, when some of my skillz got maxed out..it started getting boring…getz too hard to increase the lvls..so I found this great community for Scar…At first, i had no clue what it was and then later on, i got used to it and started looking deeply into the scripts. After some tutorials, i decided to make a script and then few later and now this one. All my friendz and many other people really enjoy this script..as they can easily increase there flecthinng in no time. They all told me to post this script here for membership:P

HOPE YOU ALL ENJOY IT!

THX FOR UR TIME

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

{++++++++++++++++++++++++++++++++++++++++]
              Fletcher v3.1
              By: Sameedpak
[++++++++++++++++++++++++++++++++++++++++]
 Instructions
 1. Start in any bank
 3. If Making Bows, put logs in first
    bank slot and fill inventory with all
    logs except a knife in the very bottom
    right hand corner of your inventory
 4. If Stringing Bows, Put strings in
    first bank slot and bows in second
    inventory slot then fill inventory
    with 14 strings and 14 bows
 5. Requires OSi v3.5
[++++++++++++++++++++++++++++++++++++++++}

var
  Fletcher, Stringer, x, y, i: Integer;

procedure DeclarePlayers;
begin
  CurrentPlayer := 0;
  NumberOfPlayers(2); // raise if you added more PLAYERS! please

  Players[0].Name := 'User';
  Players[0].Pass := 'pass';
  Players[0].Nick := 'nick';//3-4 Letters Of Username ( No Capitals! )
  Players[0].Strings[1] := '';
  //Bow or String (LOWERCASE)!
  Players[0].Active := true;

  Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Strings[1] := '';
  //Bow or String (LOWERCASE)!
  Players[1].Active := true;


[++++++++++++++++++++++++++++++++++++++++}


program Fletchlongbows;
var
h,mode,LetterX,LetterXY: integer;             // Needed Vars
STT: LongInt;
PickMode,Logs: TLabel;
form, self: TForm;
Application: TApplication;
MList: TComboBox;
ButtonOK: TButton;
TxtLogs: TEdit;
{.include OSi.txt}

Procedure Report(doing:string); {Created by Odie5533, Concept my The Ed Man and PhalanX}
var time,StrSecZero,StrMinZero:string;
    Hours,Minutes,Seconds,avtime:LongInt;
begin
clearreport;
 Seconds:=(GetSystemTime-ST) div 1000;
 Minutes:=Seconds div 60;
 Hours:=Minutes div 60;
 Time:=inttostr(Seconds)+' Seconds';
 if(banks <> 0)then
  avtime:=Seconds/Banks;
 if Hours<>0 then
 if((Minutes Mod (Hours*60))<10)then
  StrMinZero:='0';
 if Minutes <> 0 then
 if((Seconds Mod (Minutes*60))<10)then
  StrSecZero:='0';
 if Minutes <> 0 then
  begin
   Seconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(Minutes)+':'+StrSecZero+inttostr(Seconds);
  end;
 if Hours <> 0 then
  begin
   Minutes:=Minutes Mod (Hours*60);
   if(Minutes <> 0)then
    Seconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(Hours)+':'+StrMinZero+inttostr(Minutes)+':'+StrSecZero+inttostr(Seconds);;
  end;
addtoreport('Fletcher by Odie5533');
addtoreport('****************************');
addtoreport('Currently: '+doing);
addtoreport('Worked for '+time);
case mode of
 1:addtoreport('Banked '+inttostr(banks)+' Time[s] & fletched '+inttostr(banks*405)+' Shafts')
 2:addtoreport('Banked '+inttostr(banks)+' Time[s] & fletched '+inttostr(banks*27)+' ShortBows');
 3:addtoreport('Banked '+inttostr(banks)+' Time[s] & fletched '+inttostr(banks*27)+' LongBows');
 4:addtoreport('Banked '+inttostr(banks)+' Time[s] & fletched '+inttostr(banks*27)+' ShortBows');
 5:addtoreport('Banked '+inttostr(banks)+' Time[s] & fletched '+inttostr(banks*27)+' LongBows');
 6:addtoreport('Banked '+inttostr(banks)+' Time[s] & attached '+inttostr(banks*14)+' Bowstrings')
end;
if(mode<6)and(avtime>0)then addtoreport('Averaging: '+inttostr(3600/avtime*27)+' Bows/Hour');
if(mode = 6)and(avtime>0)then addtoreport('Averaging: '+inttostr(3600/avtime*14)+' Strings Attached/Hour');
end;

Procedure Bank;
begin
Report('Banking');
OpenBank;
Deposit(1,1,0);
if(mode<6)then
Withdraw(1,1,0);
if(mode=6)then
begin
Withdraw(1,1,14);
Withdraw(2,1,0);
end;
CloseBank;
end;

Procedure Fletch;
var c:integer;
begin
c:=0;
STT:=GetSystemTime;
if(mode=6)then
begin
Report('Fletching');
repeat
Mouse(612,322,20,20,true);
wait (175+random(50))
Mouse(696,430,20,20,true);
wait (450+random(75));
until(GetColor(354,373)=3885652)or(STT-GetSystemTime>5000)
end;
if(mode<6)then
c:=c+1;
Mouse(700,434,20,20,true);
Mouse(658,434,20,20,true);
Wait(700+random(250));
if(GetColor(354,373)=128)then
begin
case mode of
 1:Mouse(96,403,10,10,false);
 2:Mouse(252,403,10,10,false);
 3:Mouse(410,411,10,10,false);
 4:Mouse(110,371,60,70,false);
 5:Mouse(345,385,50,50,false);
end;
if(FindBitmap(LetterX,x,y))or(FindBitmap(LetterXY,x,y))then
 Mouse(x-10,y,10,5,true);
wait(750+random(200));
while(not(GetColor(258,412)=8388608))and(c<300)do
 begin c:=c+1; wait(10); end;
if(GetColor(258,412)=8388608)then
begin
 c:=0;
 SendKeysSilentSmooth('30'+chr(13),100);
 repeat
  report('Fletching');
  wait(500);
  c:=c+1;
 until(c>120)or((GetColor(46,417)=0)and(GetColor(128,429)=0));
end;
end;
end;

procedure buttonclick(sender: TObject);
begin
case Mlist.Text of
 'Oak+ Long Bows':mode:=5
 'Oak+ Short Bows':mode:=4
 'Regular Long Bows':mode:=3
 'Regular Short Bows':mode:=2
 'Shafts':mode:=1
 'Attach Strings':mode:=6
 end;
if(mode=6)then
h:=trunc((StrToInt(TxtLogs.Text))/14);
if(mode<6)then
h:=trunc((StrToInt(TxtLogs.Text))/27);
end;

Procedure Forms;
begin
Application:= GetApplication;
 Self:= GetSelf;

Form:= TForm.Create(nil);
 Form.Width := 250;
 Form.Height := 150;
 Form.Position := poScreenCenter;
 Form.BorderStyle := bsDialog;
 Form.Caption := 'Fletcher v2.5 by Odie5533';

 PickMode := TLabel.Create(Form);
 PickMode.Top := 5;
 PickMode.Left := 50;
 PickMode.Caption := 'Choose fletching mode:';
 PickMode.Parent := Form;
MList:= TComboBox.Create(form);
 MList.Top:= 20;
 MList.Left:= 50;
 MList.Parent:= Form;
 MList.DropDownCount:= 5;
 MList.Items.Add ('Oak+ Long Bows');
 MList.Items.Add ('Oak+ Short Bows');
 MList.Items.Add ('Regular Long Bows');
 MList.Items.Add ('Regular Short Bows');
 MList.Items.Add ('Shafts');
 MList.Items.Add ('Attach Strings');
 MList.ItemIndex:= 0;

 Logs := TLabel.Create(Form);
 Logs.Top:= 45;
 Logs.Left := 50;
 Logs.Caption := 'Logs/Bows/Strings in Bank:';
 Logs.Parent := Form;
TxtLogs := TEdit.Create(Form);
 TxtLogs.Top := 60;
 TxtLogs.Left := 50;
 TxtLogs.Width := 145;
 TxtLogs.Parent := Form;

 ButtonOK := TButton.Create(Form);
 ButtonOK.Left := 85;
 ButtonOK.Top := 85;
 ButtonOK.Width := 80;
 ButtonOK.Height := 24;
 ButtonOK.Caption := '&OK';
 ButtonOK.OnClick := @buttonclick;
 ButtonOK.Parent := Form;
 ButtonOK.Default := True;
 ButtonOK.ModalResult:= mrOk;

 Form.ShowModal;
 Form.Free;
end;

begin
Forms;
SetupOSi;
Mouse(1,200,3,100,true);
LetterX := LoadBitmap('./Charsrs2/50.bmp');
LetterXY := BitmapFromString(6, 7,
       'FFFF00FFFF000000005D5447FFFF00FFFF005D5447FFFF00FFFF00' +
       'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF00000000' +
       '5D54475D5447FFFF00FFFF000000000000005D5447FFFF00FFFF00' +
       'FFFF00FFFF005D54475D5447FFFF00FFFF00FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00');
ST:=getsystemtime
bank;
banks:=0;
if(mode>0)and(mode<7)then
repeat
Fletch;
Bank;
until(banks>=h)
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Include file D:\Program Files\SCAR 3.12\includes\OSi.txt does not exist.
Failed when compiling

what is this OSi.txt? or did i miss some important files while on holidays?

edit:

no standards, coords clicking, i can't really see your form so i can't judge that, "SendKeysSilentSmooth('30'+chr(13),100);" this will get you banned, use SRL's TypeSend().


here's a procedure with standards.

Procedure Bank;
begin
  Report('Banking');
  OpenBank;
  Deposit(1,1,0);
  if(mode<6)then
    Withdraw(1,1,0);
  if(mode=6)then
  begin
    Withdraw(1,1,14);
    Withdraw(2,1,0);
  end;
  CloseBank;
end;

and what is up with those bitmaps?

- RM

Can I get a copy buster title?

1.) "addtoreport('Fletcher by Odie5533');"
You're not Odie5533.

2.) This uses OSi, not SRL. I'm pretty sure that include is dead.

3.)

LetterXY := BitmapFromString(6, 7,
       'FFFF00FFFF000000005D5447FFFF00FFFF005D5447FFFF00FFFF00' +
       'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF00000000' +
       '5D54475D5447FFFF00FFFF000000000000005D5447FFFF00FFFF00' +
       'FFFF00FFFF005D54475D5447FFFF00FFFF00FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00');

Bitmaps from before Divi?

Someone please check if this script is copied. I'm almost 100% sure it is.

This is so copied and if not.. (which it is) we still wouldnt accept u.. Ur not using SRL.

From: mickaliscious
Can I get a copy buster title?

1.) "addtoreport('Fletcher by Odie5533');"
You're not Odie5533.

2.) This uses OSi, not SRL. I'm pretty sure that include is dead.

3.)

LetterXY := BitmapFromString(6, 7,
       'FFFF00FFFF000000005D5447FFFF00FFFF005D5447FFFF00FFFF00' +
       'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF00000000' +
       '5D54475D5447FFFF00FFFF000000000000005D5447FFFF00FFFF00' +
       'FFFF00FFFF005D54475D5447FFFF00FFFF00FFFF00FFFF00000000' +
       'FFFF00FFFF00000000000000FFFF00FFFF00');

Bitmaps from before Divi?

Someone please check if this script is copied. I'm almost 100% sure it is.

I've copy busted 5 people. No title given :p

YoHoJo and Ruroken were the only ones given it, because they busted just about every single person that applied with a copied script :)

Lol I was just joking about the title. But the copying is confirmed?

Yep, so copied, good find mickaliscious
http://www.sythe.org/archive/index.php/t-131338.html

[BANANA]NOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOB
[LEFT]You, Sameedpak, have been reported for being a NOOB.
Your Current violations include

1. Bad Member App for

This brings you to a new total of (4) Noob Points!

For more information on Sameedpak please go Here.

For more information from This database please go Here.

For more information on The Noob Points System please go Here.

For more information on Noobs please go Here.
[/LEFT]
NOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOBNOOB[/BANANA]

You do understand that OSi has been depricated for so long its considered pre-historic?

Closed.