help

[kieranlaad]

can anyone show me how to make a flecthing script just to make long bows ?

 

please thanks alot

[shadowrecon]

A fletching script takes a bit of knowledge, id recommend starting with just a simple chicken killer on a account you dont care about. Try finding a chicken and killing it. Refer to the Tutorial section for articles on using methods for finding colors and text.

 

 

Heres a basic setup but is just for learning and is not meant to be used for any extended period of time.

 

[scar]

Program ChickenKiller;

 

// this uses no includes but is the best way to learn.

Const

Color = 0; // Fidn the color of the chicken

 

Procedure FindChicken;

Var

X,Y: integer;

Begin

If FindColorTolerance(X,Y, Color, 0,0, 550,330 , 0) then // find the color and return x and y

Begin

MoveWindMouse(X,Y,0,0); // move to chicken

ClickMouse(X,Y,True); // click on chicken

Wait(1000); // wait till chicken is dead

end;

end;

 

Begin

Repeat

FindChicken;

Until False;

end.

 

[/scar]

[BryceTheCoder]

can anyone show me how to make a flecthing script just to make long bows ?

 

please thanks alot

 

Hey if you would like to make one, you need more experiecne and probably should get more experience by makign a easy NPC killer like shadow has suggested

or

if you just want use one you can goto http://www.FallenBot.com or the fletching category ( http://fallenbot.com/c/27/fletching-1- )

[kieranlaad]

Hows This (shadowrecon) me and my mate just stayed up for hours doing it but i cant run it i dont have SRL

 

Program ChickenKiller; 
  {.include SRL\SRL.scar}
  {incluse SRL\SRL\Skill\Fighting.scar}
Var
  intKilled, SkillXP : integer;
  CurSkill : string;

// this uses no includes but is the best way to learn.
Const
  Chick = 1121677;
  WaitTime = 14;
  NumToKill = 200;

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 6;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='USERNAME';
  Players[0].Pass :='PASSWOR1';
  Players[0].Nick :='';
  Players[0].Strings[0]:='auto';
  Players[0].Active:=Ture;
end;

Procedure ProgressReport;
begin
  WriteIn('<=================================================>');
  WriteIn('                 Chicken Killer v1                 ');
    Writeln('                                                   ');
    Writeln('Worked for ' + TimeRunning                          );
    Writeln('Killed ' + IntToStr(intKilled) + ' Chickens'        );
    Writeln('<=================================================>');
    end;

function FindChicken Boolean;
var
   x, y : integer;
   found : boolean;
begin
  found := FindColorSpiralTolerance(x, y, Chick, MSX1, MSY1, MSX2, MSY2, 25);
  if found then
  begin
     MMouse(x, y, 0,0);
     if IsUp Text('hicken') then
     begin
        Mouse(x, y, 0, 0, true);
        Result := true;
        end else
           Result := false;
     end;
  end;                     

  procedure SetFightStyle(style : string);
  var
     Three : boolean;
     x, y : integer;
  begin
     GameTab(1);
     Wait(200 + Random(50));
     if FindColorTollerance (x, y, 2070783, 651, 302, 718, 348, 10) then
          Three := false
     else
         Three := true;

     if Three then
     begin
        case style of
           'attack': SetFightMode(1);
           'strength': SetFightMode(2);
           'defense': SetFightMode(3);
        end;
     end else
     begin
        case style of
           'attack': SetFightMode(1);
           'strength': SetFightMode(2);
           'defense': SetFightMode(4);
         end;
    end;
end;

function GetLowestSkill: String;
var
    LowestSkill : string;
begin
    LowestSkill := 'attack';

    if GetSkillLevel('strength') < GetSkillLevel(LowestSkill) then
         LowestSkill := 'strength';
    if GetSkillLevel('defence') < GetSkillLevel(LowestSkill) then
         LowestSkill := 'defence';

    CurSkill := LowestSkill;
    Result := LowestSkill;
end;

procedure ChooseFightStyle;
begin
    case LowerCase(Players[currentplayer].strings[0]) of
         'auto'    : SetFightStyle(GetLowestSkill);
         'attack'  : SetFightStyle('attack');
         'defence' : SetFightStyle('defence');
         'strength': SetFightStyle('strength');
    end;
end;


function CheckIfFought: Boolean;
var
    AfterXP : integer;
begin
    Wait(WaitTime * 1000 + Random(1000));
    AfterXP := GetXP(CurSkill);
    if SkillXP < AfterXP then
    begin
         SkillXP := AfterXP;
         Result := true;
    end else
         Result := false;
end;

procedure StartUp;
begin
    if LoggedIn then
    begin
         ChooseFightStyle;
         SetRun(true);
         SkillXP := GetXP(CurSkill);
         PerfectNorth;
         HighestAngle;
    end else
        Writeln('Not logged in, but why was this called?');
end;

begin
    SetUpSRL;
    DeclarePlayers;
    Disguise('Norton Anti-Virus 2007');
    ClearDebug;
    ActivateClient;
    LoginPlayer;
    repeat
         StartUp;
         while(intKilled < NumToKill) do
         begin
              if FindChicken then
              begin
                   if CheckIfFought then
                   begin
                        intKilled := intKilled + 1;
                        ProgressReport;
                        FindNormalRandoms;
                   end;
              end;
         end;
         NextPlayer(true);
    until(false);
end.

 

 

 

anyone can try this out and if theres any errors let me know and i will try and fix them

 

BE WARNED : I dont think i put an antiban in it but if not then ill do it when i get a good night rest lol and post it up for u guys to try

Edited April 24, 2012 by kieranlaad

[shadowrecon]

Hows This (shadowrecon) me and my mate just stayed up for hours doing it but i cant run it i dont have SRL

 

Program ChickenKiller; 
  {.include SRL\SRL.scar}
  {incluse SRL\SRL\Skill\Fighting.scar}
Var
  intKilled, SkillXP : integer;
  CurSkill : string;

// this uses no includes but is the best way to learn.
Const
  Chick = 1121677;
  WaitTime = 14;
  NumToKill = 200;

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 6;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='USERNAME';
  Players[0].Pass :='PASSWOR1';
  Players[0].Nick :='';
  Players[0].Strings[0]:='auto';
  Players[0].Active:=Ture;
end;

Procedure ProgressReport;
begin
  WriteIn('<=================================================>');
  WriteIn('                 Chicken Killer v1                 ');
    Writeln('                                                   ');
    Writeln('Worked for ' + TimeRunning                          );
    Writeln('Killed ' + IntToStr(intKilled) + ' Chickens'        );
    Writeln('<=================================================>');
    end;

function FindChicken Boolean;
var
   x, y : integer;
   found : boolean;
begin
  found := FindColorSpiralTolerance(x, y, Chick, MSX1, MSY1, MSX2, MSY2, 25);
  if found then
  begin
     MMouse(x, y, 0,0);
     if IsUp Text('hicken') then
     begin
        Mouse(x, y, 0, 0, true);
        Result := true;
        end else
           Result := false;
     end;
  end;                     

  procedure SetFightStyle(style : string);
  var
     Three : boolean;
     x, y : integer;
  begin
     GameTab(1);
     Wait(200 + Random(50));
     if FindColorTollerance (x, y, 2070783, 651, 302, 718, 348, 10) then
          Three := false
     else
         Three := true;

     if Three then
     begin
        case style of
           'attack': SetFightMode(1);
           'strength': SetFightMode(2);
           'defense': SetFightMode(3);
        end;
     end else
     begin
        case style of
           'attack': SetFightMode(1);
           'strength': SetFightMode(2);
           'defense': SetFightMode(4);
         end;
    end;
end;

function GetLowestSkill: String;
var
    LowestSkill : string;
begin
    LowestSkill := 'attack';

    if GetSkillLevel('strength') < GetSkillLevel(LowestSkill) then
         LowestSkill := 'strength';
    if GetSkillLevel('defence') < GetSkillLevel(LowestSkill) then
         LowestSkill := 'defence';

    CurSkill := LowestSkill;
    Result := LowestSkill;
end;

procedure ChooseFightStyle;
begin
    case LowerCase(Players[currentplayer].strings[0]) of
         'auto'    : SetFightStyle(GetLowestSkill);
         'attack'  : SetFightStyle('attack');
         'defence' : SetFightStyle('defence');
         'strength': SetFightStyle('strength');
    end;
end;


function CheckIfFought: Boolean;
var
    AfterXP : integer;
begin
    Wait(WaitTime * 1000 + Random(1000));
    AfterXP := GetXP(CurSkill);
    if SkillXP < AfterXP then
    begin
         SkillXP := AfterXP;
         Result := true;
    end else
         Result := false;
end;

procedure StartUp;
begin
    if LoggedIn then
    begin
         ChooseFightStyle;
         SetRun(true);
         SkillXP := GetXP(CurSkill);
         PerfectNorth;
         HighestAngle;
    end else
        Writeln('Not logged in, but why was this called?');
end;

begin
    SetUpSRL;
    DeclarePlayers;
    Disguise('Norton Anti-Virus 2007');
    ClearDebug;
    ActivateClient;
    LoginPlayer;
    repeat
         StartUp;
         while(intKilled < NumToKill) do
         begin
              if FindChicken then
              begin
                   if CheckIfFought then
                   begin
                        intKilled := intKilled + 1;
                        ProgressReport;
                        FindNormalRandoms;
                   end;
              end;
         end;
         NextPlayer(true);
    until(false);
end.

 

 

 

anyone can try this out and if theres any errors let me know and i will try and fix them

 

BE WARNED : I dont think i put an antiban in it but if not then ill do it when i get a good night rest lol and post it up for u guys to try

 

hmm i think you found a old tutorial. SRL is not longer supported by Scar, but the OSI include is the replacement, it has many of the same functions except they are named different. What i would recommend is start off small and get your core routines down then add functionality to the script progress report, players ect..

[BryceTheCoder]

BE WARNED : I dont think i put an antiban in it but if not then ill do it when i get a good night rest lol and post it up for u guys to try

 

 

Yeah that script will defently not work. BUT you honestly wouldnt need to great of an antiban since you will NEVER click the exact same or probably even similar to the same coordinates since your finding the COLOR of the chicken which is never in the same spot:) Sooo you wouldnt need to great of an antiban or even one at all, honestly. Ther just good to have:)