SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Very basic HTML

Other Communitys
Sythe

How Long have You Played Runescape
2 years

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

Before I came to SRL (month and a half ago) I hadn't even heard of SCAR and SRL, but my friend said to me about autoing on runescape so I decided to come here and get some script, then I got into writing them and I've had quite alot of fun doing it.

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

//    Any longbow maker by DR v1.3

//    By: Dude_Richard
//    Version: 1.0
//    Last update: 13/02/2007
//    Category: Fletching (cutter)

//    Instrutions
    
//    1.) Drag the crosshair that is in the toolbar of SCAR onto
//        the Runescape sclient you are using.
//    2.) Fill out your stats information if you would like on
//        the form.
//    3.) Place your player in a bank (see list below to see the
//        valid banks)with a knife AND a full invent of any logs.
//    4.) Click run in the toolbar of SCAR
//    5.) Fill out the form that should apear
//    6.) You should now be autoing completely fine

//    Working Banks

//    Here is the list of banks that work, put the name in ()s
//    into the form.

//    Al Kharid (akb), Lumbridge (lb), Varrock East (veb)
//    Varrock West (vwb), Falador East (feb), Falador West (fwv)
//    Draynor (db), Edgeville (eb), Pest Control (pc)

//    If there are any banks you would like included, please pm me
//    and I will add them in.


//    Stats Notes

//    Enter your SRL stats ID (this is the up to 4 digit number you got,
//    NOT the username you use.
//    If you don't know SRL stats its basically a way for people to show
//    off their scripts and how much they have autoed, to register simply
//    go to [url]http://stats.srl-forums.com[/url] and it tells you what you have
//    to do there. If you like this script, I would apreciate if you were
//    to use this feature.

//    Version History

//    V1.0: The first version, nothing new could be added as it was
//            still the first version
//    V1.1: Added a better proggy and made it run more smoothly
//    V1.2: Made the banking better and made better standards
//    V1.3: Added more banks and PC bank! This is v1.3 so look at
//          what has changed!
    
//    Credits to NaumanAkhlaq for the banking procedure and editing
//    to make it run flawlessly
    
//    Please post your proggies and errors on the thread which has
//    this script


Program LongbowFletcher;
{.include srl/srl.scar}
{.include srl/srl/misc/Users.scar}
{.include SRL/SRL/skill/Fighting.scar}
  
var
  Loads, Tries, x, y, AntiBanned, Responded, runTime: integer;
  frmDesign : TForm;
  GroupBox1 : TGroupBox;
  CheckBox1 : TCheckBox;
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Edit4 : TEdit;
  Edit5 : TEdit;
  Button1 : TButton;
  Edit6 : TEdit;
  Edit7 : TEdit;
  Edit8 : TEdit;
  Edit9 : TEdit;
  Loads1 : integer;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure StartClick(sender: TObject);
begin
  frmDesign.ModalResult:= mrOk;
  Loads1:= StrToInt(Edit5.text)
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure Form;
Begin
  frmDesign := CreateForm;
  frmDesign.Left := 250;
  frmDesign.Top := 173;
  frmDesign.Width := 386;
  frmDesign.Height := 286;
  frmDesign.Caption := 'Any Longbow Maker';
  frmDesign.Color := clMaroon;
  frmDesign.Font.Color := clRed;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'Comic Sans MS';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  GroupBox1 := TGroupBox.Create(frmDesign);
  GroupBox1.Parent := frmDesign;
  GroupBox1.Left := 8;
  GroupBox1.Top := 8;
  GroupBox1.Width := 353;
  GroupBox1.Height := 233;
  GroupBox1.Caption := 'DR'#39's any longbow maker setup';
  GroupBox1.Font.Color := clRed;
  GroupBox1.Font.Height := -11;
  GroupBox1.Font.Name := 'Comic Sans MS';
  GroupBox1.Font.Style := [];
  GroupBox1.ParentFont := False;
  GroupBox1.TabOrder := 0;
  CheckBox1 := TCheckBox.Create(GroupBox1);
  CheckBox1.Parent := GroupBox1;
  CheckBox1.Left := 24;
  CheckBox1.Top := 168;
  CheckBox1.Width := 121;
  CheckBox1.Height := 41;
  CheckBox1.Caption := 'Use every 50 sleep?';
  CheckBox1.Checked := True;
  CheckBox1.State := cbChecked;
  CheckBox1.TabOrder := 0;
  Edit1 := TEdit.Create(GroupBox1);
  Edit1.Parent := GroupBox1;
  Edit1.Left := 144;
  Edit1.Top := 40;
  Edit1.Width := 73;
  Edit1.Height := 23;
  Edit1.TabOrder := 1;
  Edit1.Text := 'Password';
  Edit2 := TEdit.Create(GroupBox1);
  Edit2.Parent := GroupBox1;
  Edit2.Left := 24;
  Edit2.Top := 40;
  Edit2.Width := 73;
  Edit2.Height := 23;
  Edit2.TabOrder := 2;
  Edit2.Text := 'Username';
  Edit3 := TEdit.Create(GroupBox1);
  Edit3.Parent := GroupBox1;
  Edit3.Left := 24;
  Edit3.Top := 80;
  Edit3.Width := 73;
  Edit3.Height := 23;
  Edit3.TabOrder := 3;
  Edit3.Text := 'PIN';
  Edit4 := TEdit.Create(GroupBox1);
  Edit4.Parent := GroupBox1;
  Edit4.Left := 144;
  Edit4.Top := 80;
  Edit4.Width := 73;
  Edit4.Height := 23;
  Edit4.TabOrder := 4;
  Edit4.Text := 'Nickname';
  Edit5 := TEdit.Create(GroupBox1);
  Edit5.Parent := GroupBox1;
  Edit5.Left := 24;
  Edit5.Top := 120;
  Edit5.Width := 73;
  Edit5.Height := 23;
  Edit5.TabOrder := 5;
  Edit5.Text := 'Loads';
  Button1 := TButton.Create(GroupBox1);
  Button1.Parent := GroupBox1;
  Button1.Left := 176;
  Button1.Top := 168;
  Button1.Width := 145;
  Button1.Height := 41;
  Button1.Caption := 'Start Any Longbow Maker';
  Button1.TabOrder := 6;
  Button1.OnClick := @StartClick
  Edit6 := TEdit.Create(GroupBox1);
  Edit6.Parent := GroupBox1;
  Edit6.Left := 144;
  Edit6.Top := 120;
  Edit6.Width := 73;
  Edit6.Height := 23;
  Edit6.TabOrder := 7;
  Edit6.Text := 'Log type';
  Edit7 := TEdit.Create(GroupBox1);
  Edit7.Parent := GroupBox1;
  Edit7.Left := 256;
  Edit7.Top := 40;
  Edit7.Width := 73;
  Edit7.Height := 23;
  Edit7.TabOrder := 8;
  Edit7.Text := 'Which Bank';
  Edit8 := TEdit.Create(GroupBox1);
  Edit8.Parent := GroupBox1;
  Edit8.Left := 256;
  Edit8.Top := 80;
  Edit8.Width := 73;
  Edit8.Height := 23;
  Edit8.TabOrder := 9;
  Edit8.Text := 'Stats ID';
  Edit9 := TEdit.Create(GroupBox1);
  Edit9.Parent := GroupBox1;
  Edit9.Left := 256;
  Edit9.Top := 120;
  Edit9.Width := 73;
  Edit9.Height := 23;
  Edit9.TabOrder := 10;
  Edit9.Text := 'Stats Pass';
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('Form', v);
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Var
Knife, Log: integer;

Procedure LoadDTMs;
Begin
   Knife := DTMFromString('78DA6354626060906000036608C550535CCC2' +
          '007A41981F83F1030AA001952A86AD62F5E045703028C208E3CAA' +
          '9A504B2E54350A404201554DB6072FAA1A6920A18AAAA6A7A9115' +
          '50DC82DEAA86A4A737351D5A861FA0B248BAC06000BE50E33');
          
   Log := DTMFromString('78DA639CC9C4C0F088010514FAF2318832323'   +
          '00011C37F2060EC06AA79CC800618914820DD0154F386809A5940' +
          '35EF08A8590254F38A809AC940351FF0AB0100D0AD0DF2');
          
End;

/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////

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


  Players[0].Name        := Edit2.text;
  Players[0].Pass        := Edit1.text;
  Players[0].Nick        := Edit4.text;
  Players[0].Integers[0] := Loads1;
  Players[0].Strings[0]  := Edit3.text;
  Players[0].Active      := True;
  Players[0].Strings[1]  := Edit6.text;
  
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure TheDisguise; forward;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure Proggy (Clear : Boolean); forward;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure Fletch;
Begin
  If not (LoggedIn) then
  Exit;
    If (FindDTM(Knife,x,y,MIX1,MIY1,MIX2,MIY2))then
      Begin
        Disguise('Beginning to fletch');
        Mouse(x, y, 1, 1, true);
        WriteLN('Clicked Knife');
        WriteLN('Clicking log');
      end;
    Wait (500 + random(300));
    If not (FindDTM(Knife,x,y,MIX1,MIY1,MIX2,MIY2))then
      Begin
        WriteLN('Couldnt find knife');
        WriteLN('Make sure one was in your inventory');
        WriteLN('Logging out and terminating script');
        Logout;
        Exit;
        TerminateScript;
      end;
    If (FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2))then
      Begin
        Mouse(x, y, 2, 2, true);
        WriteLN('Clicked Log');
        WriteLN('Waiting to make longbow');
        Wait(500 + random(300));
      end;
    If not (FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2))then
      Begin
        WriteLN('Couldnt find any logs');
        WriteLN('Must have had an error banking');
        WriteLN('Logging out and terminating script');
        Logout;
        Exit;
        TerminateScript;
      end;
    Wait(500 + random(300));
    Begin
      MouseBox(290, 383, 351, 449, 2);
      ChooseOption('X');
      Wait(1000);
      TypeSend('27');
      Disguise('Making longs(u)');
    end;
    Wait(1000 + random(3000));
    TheDisguise;
  ReportVars[0] := ReportVars[0] + 1;
  ReportVars[1] := ReportVars[1] + 27;
  SendSRLReport;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure GetThingFromBank;  //Credits to NaumanAkhlaq for this
Var
Resultx : Boolean;
Begin
 If not LoggedIn then
   Exit;
    If InvFull Then
    Begin
      GameTab(4);
       Begin
        Repeat
          SetAngle(true);
          If Edit7.Text = 'pc' then OpenBankGlass('veb', True, False)
            Else OpenBankFast(Edit7.Text);
            Wait(1000+Random(2000));
            Tries:=Tries+1;
          If PinScreen Then
            InPin(Players[CurrentPlayer].Strings[1]);
            FixBank;
            ResultX := BankScreen;
         Until(BankScreen) or (Tries >= 6);
          If BankScreen then
           Begin
            MouseBox(610, 220, 634, 245, 2);
            Chooseoption('All');
            Disguise('Banking');
            MMouse(95-Random(5), 77+Random(5),2,2);
              If IsUpText('ogs') then
                Begin
                 Mouse(95-Random(5), 77+Random(5),2,2,False);
                 ChooseOption('All');
                 wait(1000+Random(200));
                 CloseBank;
                 TheDisguise;
               end;
            end;
        end;
      Loads := Loads + 1;
   end;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure LoginSleepLogout;
Begin
  If (CheckBox1.checked) then
  Begin
    If(runTime = 0) Then
      MarkTime(runTime)
    Else If(TimeFromMark(runTime)>=(3000000)) Then
    Begin
      Disguise('Sleeping...zzz...');
      Logout;
      Wait(300000 + random (60000));
      TheDisguise
      LoginPlayer;
      MarkTime(runTime);
    End;
  End;
End;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure AntiBan;
Begin
  If not LoggedIn then
  Exit;
  Case random(14) of
   1: Begin
        KeyDown(VK_Down);
        Wait(random(1000));
        KeyUp(VK_Down);
        KeyDown(VK_Up);
        Wait(500 + random(1000));
        KeyUp(VK_Up);
        MakeCompass('n');
        GameTab(4);
        Wait(48000+random(3000));
      end;
   2: Begin
        KeyDown(VK_Left);
        Wait(random(1000));
        KeyUp(VK_Left);
        KeyDown(VK_Right);
        Wait(random(1000));
        KeyUp(VK_Right);
        MakeCompass('n');
        GameTab(4);
        Wait(48000+random(3000));
      end;
   3: Begin
        KeyDown(VK_Left);
        Wait(random(1000));
        KeyUp(VK_Left);
        KeyDown(VK_Right);
        Wait(random(1000));
        KeyUp(VK_Right);
        MakeCompass('n');
        GameTab(4);
        Wait(48000+random(3000));
      end;
   4: Begin
        KeyDown(VK_Up);
        KeyDown(VK_Left);
        Wait(random(1000));
        KeyUp(VK_Up);
        Wait(random(800));
        KeyUp(VK_Left);
        MakeCompass('n');
        GameTab(4);
        Wait(48000+random(3000));
      end;
   5: Begin
        PickupMouse;
        Wait(48000+random(3000));
      end;
   6: Begin
        BoredHuman;
        Wait(48000+random(3000));
      end;
   7,8,9,10: Begin
                  MMouse(116-Random(100), 285-Random(256),60,60);
                  Wait(48000+random(3000));
                end;
   11,12,13,14: Begin
                  MMouse(MSX1,MSY1,1,1);
                  Wait(48000+random(3000));
                end;
    end;
  AntiBanned := AntiBanned + 1;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure DetailsCheck;
Begin
  If ((Players[CurrentPlayer].Name) = 'Username') then
  Begin
    ClearDebug;
    WriteLn('You need to enter a username to run this');
    Wait(1000);
    WriteLn('Please restart script and enter the correct details');
    Wait(1000);
    TerminateScript;
  end;
  If ((Players[CurrentPlayer].Pass) = 'Password') then
  Begin
    ClearDebug;
    WriteLn('You need to enter a password to run this');
    Wait(1000);
    WriteLn('Please restart script and enter the correct details');
    Wait(1000);
    TerminateScript;
  end;
  If ((Players[CurrentPlayer].Nick) = 'Nickname') then
  Begin
    ClearDebug;
    WriteLn('You need to enter a nickname to run this');
    Wait(1000);
    WriteLn('Please restart script and enter the correct details');
    Wait(1000);
    TerminateScript;
  end;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure StatsCheck;
Begin
  If ((Edit8.text) = 'Stats ID') then
  Begin
    ClearDebug;
    WriteLn('You haven'#39't entered a stats ID');
    Wait(1000);
    WriteLn('Script will continue but you can'#39't use stats');
    Wait(1500);
    Exit;
  end;
  If ((Edit9.text) = 'Stats Pass') then
  Begin
    ClearDebug;
    WriteLn('You haven'#39't entered a stats pass');
    WriteLn('Script will continue but you can'#39't use stats');
  end;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Function InChatLine(myString: string): Boolean;
  Begin
    Result := ( pos(myString, TheLine) <> 0 );
  End;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Function ChatBack: Boolean;
Begin
  SaveToChatLog;

  if ( OldLine = TheLine ) or ( pos(Players[CurrentPlayer].Nick, TheName) <> 0 ) then
    Exit;

  if InChatLine(Players[CurrentPlayer].Nick) then
  Begin
    Wait(1000 + Random(500));
    case Random(6) of
      0: TypeSend('hello');
      1: TypeSend('hi');
      2: TypeSend('hey');
      3: TypeSend('hey you');
      4: TypeSend('yo');
      5: TypeSend('sup?');
    End;

    Result := True;
    Exit;
  End;

  if InChatLine('hi ') or InChatLine('ello') or InChatLine('sup') or
     InChatLine('whats up') then
  Begin
    Wait(1000 + Random(500));
    case Random(4) of
      0: TypeSend('hello');
      1: TypeSend('hey');
      2: TypeSend('hey there');
      3: TypeSend('hi');
  End;

    Result := True;
    Exit;
  End;

  if InChatLine('lol') or InChatLine('hehe') or InChatLine('hihi') or
     InChatLine('haha') then
  Begin
    Wait(1000 + Random(500));
    case Random(4) of
      0: TypeSend('...');
      1: TypeSend('lool');
      2: TypeSend('rofl');
  End;

    Result := True;
    Exit;
  End;

    Result := True;
    Exit;
    Responded := Responded + 1;
  End;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

procedure LevelRespond;
var
  Chats : TStringArray;
  I, L: Integer;
Begin
  If not LoggedIn then
  Exit;
  Chats := ['tching l', 'hing lv', 'hing le', 'tchin lvl', 'etch lv'];
  for I := 0 to 4 do
  begin
    if InChat(Chats[i]) then
    begin
      inc(Responded);
      L := GetSkillInfo('fletching', False);
      case Random(11) of
        0: TypeSend(IntToStr(L)+', close to'+IntToStr(L+1));
        1: TypeSend('Me '+ IntToStr(L));
        2: TypeSend(IntToStr(L) + ' over here');
        3: Begin
             TypeSend('Lemme check...');
             Wait(500 + random(3000));
             TypeSend('...' + IntToStr(L));
           end;
        4: TypeSend('Im ' + IntToStr(L));
        5: TypeSend('only ' + IntToStr(L));
        6: TypeSend('Pfft, only ' + IntToStr(L));
        7: begin
             TypeSend('onky ' + IntToStr(L));
             TypeSend('*only');
           end;
        8: TypeSend('My Fletching is only ' + IntToStr(L) + ' ...lol');
        9: TypeSend('Not very good...only '+IntToStr(L));
       10: TypeSend(IntToStr(L) + ', going for 99')
      end;
      wait(1000 + Random(500));
      Exit;
    end;
    Responded := Responded + 1;
  end;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure FreeDTMs;
Begin
  If (Loads >= Players[CurrentPlayer].Integers[0]) then
  Begin
    FreeDTM(log);
    FreeDTM(knife);
  end;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure Siggy;
Begin
  ClearDebug;
  WriteLN('Dude_Richard.......')
  Wait(1000)
  WriteLN('Presents.......')
  Wait(1200)
  WriteLN('The One the Only.......')
  Wait(1300)
  WriteLN('Any Longbow Maker v1.0!')
  Wait(1500)
End;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure Proggy(Clear : Boolean);
Begin
  if clear then
  ClearDebug;
  WriteLn('<<<<<<<<<<<<Any Longbow Fletcher>>>>>>>>>>>>');
  WriteLn('Fletched '+Players[CurrentPlayer].Strings[1] +' logs for ' + TimeRunning + ' ');
  WriteLn('Made ' + IntToStr(Loads * 27) + ' Longbows (u)');
  case Lowercase(players[CurrentPlayer].Strings[1]) of
    'normal': WriteLn('Earnt ' + IntToStr(Loads * 27 * 10) +' XP');
    'oak': WriteLn('Earnt ' + IntToStr(Loads * 27 * 25) +' XP');
    'willow': WriteLn('Earnt ' + IntToStr(Loads * 27 * 41) +' XP');
    'maple': WriteLn('Earnt ' + IntToStr(Loads * 27 * 58) +' XP');
    'yew': WriteLn('Earnt ' + IntToStr(Loads * 27 * 75) +' XP');
    'magic': WriteLn('Earnt ' + IntToStr(Loads * 27 * 91) +' XP');
  end;
  WriteLn('Did ' + IntToStr(AntiBanned) + ' Antibans');
  WriteLn('Responded ' + IntToStr(Responded) + ' times');
  WriteLn('<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>');
  WriteLn('Thanks for using and please use again!')
  Wait(2000 + random(200))
  SRLRandomsReport;
End;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure TheDisguise;
Begin
    Case random(8) of
     1: Disguise('iTunes');
     2: Disguise('Windows Live Messenger');
     3: Disguise('AIM');
     4: Disguise('Internet Explorer ');
     5: Disguise('Google');
     6: Disguise('Microsoft Word');
     7: Disguise('Control Panel');
     8: Disguise('Windows Help Centre');
    end;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Procedure TheMainThing;
Begin
  If not LoggedIn then
  Exit;
  Repeat
    GetThingFromBank;
    Fletch;
    AntiBan;
    Proggy(True);
  until(loads>=Players[CurrentPlayer].Integers[0]);
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure AntiRandoms;
Begin
  FindNormalRandoms;
  ChatBack;
  If (FindFight) then
  Begin
    MakeCompass('N');
    RunAway('W', true, 1, 1000);
    RunAway('N', true, 1, 10000);
    RunAway('S', true, 1, 1000);
    RunAway('E', true, 1, 1000);
  end;
  FindTalk;
  SRLRandomsReport;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure Setup;
Begin
  SetupSRL;
  ScriptID := '640';
  SRLID := Edit8.Text;
  SRLPassword := Edit9.Text;
  LoadDTMs;
  StatsCheck;
  TheDisguise;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

Procedure ScriptEnd;
Begin
  If (loads>=Players[CurrentPlayer].Integers[0]) then
    Begin
      Logout;
      FreeDTMs;
      SendSRLReport;
      SRLRandomsReport;
      Proggy(false);
    end;
end;

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////
Begin
  Siggy;
  SafeInitForm;
  SafeShowFormModal;
  DeclarePlayers;
  Setup;
  DetailsCheck;
  ActivateClient;
  LoginPlayer;
  Loads:=Loads -1;
  LevelRespond;
  LoginSleepLogout;
  Antirandoms;
  TheMainThing;
  ScriptEnd;
end.

////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////

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

EDIT: Sorry posted twice because my comp was being really slow and I didn' realise the first one posted well.

yes. good job!

Oh and to justify

MainForm compiled in 15 milliseconds!
Add radial!
Add linearwalk!
Add bitmapfromstring!
Add dtmrotated!
Add fflag!
Add Players!
Add if not loggedin then exit!
Add freebitmap!
Add freeform!
Add tdtmpointdef!
Add tpa!
Add walkpath!
Add tpointarray!
Add record!
Add tpoint!
Add labels!
Add goto commands!
Add while loops!
remove terminatescript. And add Logout!, if u use multiplayer!
Result = 59
Apply for members, unless you have cheated this
Successfully executed

Thanks for the yes :D I hope that the others will think yew too

One thing I noticed:

  If (FindFight) then
  Begin
    MakeCompass('N');
    RunAway('W', true, 1, 1000);
    RunAway('N', true, 1, 10000);
    RunAway('S', true, 1, 1000);
    RunAway('E', true, 1, 1000);
  end;

A tad bit much of running away? I didn't see any muiltplayer in there. Unless someone can correct me its a no.

No, theres no multi-player. And the reason the find fight is like that is because its running away west, then north, then it reverses it to get back to the bank to finish the script. And I'm sorry that you think its no.

Good job dude - Yes from me.

Thanks loads :D

How many people vote for appliances? I just want to know how much chance I have of getting in :D

Yes, nice form.
Though code is short actually, Hope you keep learning.

Most appliance topics get around 20 votes. This is still very early for yours.

The script looks pretty good, but there are some areas to improve on. You could have done your DetailsCheck and StatsCheck in many less lines by combining the ones in each and just saying "Your details are wrong, please fix them".

Also for your Fletch procedure why do you use 4 ifs instead of just:

If (FindDTM(Knife,x,y,MIX1,MIY1,MIX2,MIY2))then
begin
  Disguise('Beginning to fletch');
  Mouse(x, y, 1, 1, true);
  WriteLN('Clicked Knife');
  WriteLN('Clicking log');
end else
begin
  Writeln('Couldn''t find knife, make sure it''s in your inv');
  LogOut;
  Exit;
  TerminateScript;
end;

Its because I'm still early in my stages of learning SCAR and people like you who tell me new things I can do is helpful :) thanks

Np.
Common guys this person has a hell lot of talent :).
He taught me how to script basically.

yes. you made a great start.

some misstakes though,

        WriteLN('Couldnt find knife');
        WriteLN('Make sure one was in your inventory');
        WriteLN('Logging out and terminating script');
        Logout;
        Exit;
        TerminateScript; // i'm a useless line couse i'll never be called!

Procedure TheMainThing;
Begin
  If not LoggedIn then // I feel like not being in the main loop.
  Exit;               //
  Repeat
    GetThingFromBank;
    Fletch;
    AntiBan;
    Proggy(True);
  until(loads>=Players[CurrentPlayer].Integers[0]);
end;

var
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Edit4 : TEdit;
  Edit5 : TEdit;

// How about:

var
  Edit1, Edit2, Edit3, Edit4, Edit5: TEdit;

• wassup multi player?
• some other things wich are called above my post :)

oh yes and this of course:

[hint] 'fix standaards' in in C:\Program Files\Scar 3.14\scripts\Any Longbow Maker By DR.scar

good luck scripting!

your on the correct road.

It is a members script, members scripts shouldn't have multi-player.

From: Hy71194
It is a members script, members scripts shouldn't have multi-player.

i know enough runescape adicted guys who got more then one member account :)

and, multi player is one of the benefits for becomming srl member.

but the script looks good enough, so i voted yes.

Harry, you got carried away.

Sorry, but we cannot diagnose a script like "This script doesn't need that, ya, lets skip a requirement."

No - you are supposed to apply with a script that fills the requirements.

No from me.


EDIT: Also why not to use a case in DetailCheck and End Else in Fletch?

Common guys. He has the right attitude, he actually wants to learn not like 70% of the applicants out there.
:)

Yes from me… we need more people like you.

Just dont disappear once granted membership.

Don't worry I won't :) I did orginally come to SRL for the scripts, but then I got into scripting and its actually really fun :p

Thanks loads for the yes

Yeah. Scripting gets fun. But as RS gets more boring.
Scripting becomes less fun :(

i think that for a fletcher it's a good script, but it leaves me wondering how much skills you actually have. some of the basics don't seem to be quite down.
(standards),

If (FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2))then
      Begin
        Mouse(x, y, 2, 2, true);
        WriteLN('Clicked Log');
        WriteLN('Waiting to make longbow');
        Wait(500 + random(300));
      end;
    If not (FindDTM(Log,x,y,MIX1,MIY1,MIX2,MIY2))then
      Begin
        WriteLN('Couldnt find any logs');
        WriteLN('Must have had an error banking');
        WriteLN('Logging out and terminating script');
        Logout;
        Exit;
        TerminateScript;
      end;

if end else, would be much faster, cus by doing if not it'll look for the DTM again, and even if it does find it this time it won't do anything.

and your running away procedure,

  If (FindFight) then
  Begin
    MakeCompass('N');
    RunAway('W', true, 1, 1000);
    RunAway('N', true, 1, 10000);
    RunAway('S', true, 1, 1000);
    RunAway('E', true, 1, 1000);
  end;

//could be reduced to 
  If (FindFight) then
  Begin
    RunAway('W', true, 3, 1000);
    RunAway('N', true, 3, 10000);
  end;

the '3' means that it'll run back. and who cares which way the compass is headed if your running away to exact north or not? you'll be running back anyways! and RunAway probably already sets the compass right, or works with it whichever angle it is facing.

not voting yet.

~RM

Ok thanks for the help, like I said earlier I'm still new with scripting so people like you who help I really apreciate.

My way to get you to vote yes: If I'm a member I'll be in the area with much more professional scripters so they could help me to become professional too :p

Yes from me.

Haven't been able to test the script, but it looks very decent, that's yes from me, good job :)

From: Timothegreat
Just dont disappear once granted membership.

Heh.. thats what I did, but I came back after about 2 months.

Anyways, the script looks nice, yes.

I voted yes.

Good luck on your app :)

what kinda offset is this: Mouse(x, y, 1, 1, true);
poor failsafes if any when fletching, NO ;)

not that it matters because fred and wiz are more importent then my vote, ;)

sorry i voted no.

From: footballjds
what kinda offset is this: Mouse(x, y, 1, 1, true);
poor failsafes if any when fletching, NO ;)

not that it matters because fred and wiz are more importent then my vote, ;)

sorry i voted no.

Just cuz your fletcher isnt leet dont have to tease his :p Jks drunk? english pelase ;)

Dont worry football, the ammount of yes's is too high now i think :p

Ill get someone to close it :)

From: BobboHobbo
Just cuz your fletcher isnt leet dont have to tease his :p Jks drunk? english pelase ;)

LOL? :D…. dude my fletcher is pretty much thee only one ;). no i don't feal compettion from him ;).

From: dude_richard
Dont worry football, the ammount of yes's is too high now i think :p

just don't take it personal like stur pure did :rolleyes:
why you make a fletcher though? you already 99 fletching :D.

Actually he's 65 fletching.

In!