SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
None.. my dad bought me some book about some BlitzPlus programming and i learned abit, but not really..

Other Communitys
Sythe/Fagex (not anymore)

How Long have You Played Runescape
2 years

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

Well,, what exactly should go here? I will ramble on about what I have done here. I have proven that I am not a leecher, and I have released three or four scripts here, two of which, right this very moment, I am pretty proud of. I have made friends here (I think so), and had lots of good times. I post all over the forums, and (I try not to) I dont spam. I am still not sure if this is what is supposed to be written here, or how long it is supposed to be, and i might be making myself look like an idiot by writing the wrong things, if so, please dont laugh.

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

Here are the scripts that I want to be judged on

program WoodBuyer;
{.include SRL/SRL.scar}
{A willow buyer made by 3garrett3. Start in Draynor bank and have money
visible in bank.}
{Credits: Nielsie for making the finddirt thing and Spork-Eh for letting
me know about it, Ashur2good for making me use cases, and for telling me
that i need better if not loggedin thing.. thanks}
const
  Bannage = 10; // How often to use antiban, higher the number, less often it happens, NO LOWER THAN 8!

var
  DirtC, attacked, RoadC, Clicks, There, Willows: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // How many players you are using
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // The start player

  Players[0].Name := 'UserName'; // Runescape Username
  Players[0].Pass := 'PassWord'; // Password for this Account
  Players[0].Nick := 'erna'; // 4 Consecutive letters of your name
  Players[0].Active := True;
  Players[0].String1 := '0'; // how much money, willows are around 12ea.

end;

procedure NoBans;
begin
Status('Bannage');
  case random(bannage) of
    1: RandomChatEvery(5 + Random(5));
    3: RandomRClickEvery(2 + Random(3));
    5: PickUpMouseEvery(10 + Random(5));
    7: HoverEvery(15 + Random(5), 'random');
  end;
end;

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
Status('Rands')
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure FindSomeRands;
begin
  FindFastRandoms;
  FindNormalRandoms;
  NoBans;
end;

procedure Switchitup;
begin
  if (not (Loggedin)) then // Made by JAD, modded by me, thanks to ashur for telling me
  begin
    Status('NextPlayer')
    NextPlayer(False);
    HighestAngle;
    MakeCompass('N');
    Writeln('Switched players successfully :)');
  end;
end;

{ ----------------Walking!!!!------------}

function Fightit(dir: string): Boolean;
begin
  if FindFight then
  begin
    Result := True
      RunAwayDirection(dir)
  end else
    Result := False
end;

function Bank: Boolean;
var Trytime: Integer;
begin
Status('Bank');
  if (FindSymbol(x, y, 'Bank'))
    or (FindColorTolerance(x, y, 6548991, 564, 22, 736, 164, 20))
    or (FindColorTolerance(x, y, 4772314, 564, 22, 736, 164, 20))
    or (FindColorTolerance(x, y, 3841442, 564, 22, 736, 164, 20))
    or (FindColorTolerance(x, y, 91238, 564, 22, 736, 164, 20)) then
  begin
    Mouse(x, y, 1, 1, True)
      Flag;
    Result := True
  end else
    Result := False
      if not Result then
    begin
      Writeln(' Didnt find bank, trying again')
        MarkTime(TryTime)
        repeat
        Logout;
        Wait(5000 + Random(2000));
        LoginPlayer;
      until (FindSymbol(x, y, 'Bank'))
        or (FindColorTolerance(x, y, 6548991, 564, 22, 736, 164, 20))
        or (FindColorTolerance(x, y, 4772314, 564, 22, 736, 164, 20))
        or (FindColorTolerance(x, y, 3841442, 564, 22, 736, 164, 20))
        or (FindColorTolerance(x, y, 91238, 564, 22, 736, 164, 20))
        or (TryTime > 2 * 60 * 1000);
      if (FindSymbol(x, y, 'Bank'))
        or (FindColorTolerance(x, y, 6548991, 564, 22, 736, 164, 20))
        or (FindColorTolerance(x, y, 4772314, 564, 22, 736, 164, 20))
        or (FindColorTolerance(x, y, 3841442, 564, 22, 736, 164, 20))
        or (FindColorTolerance(x, y, 91238, 564, 22, 736, 164, 20)) then
      begin
        Mouse(x, y, 1, 1, True);
        Flag;
        Result := True;
      end else
      begin
        Result := False;
      end;
    end;
end;

procedure Proggy;
begin
Status('Proggy');
  Writeln('~~~~~~~~~~~~~~~~~~OMG A PROGGY!~~~~~~~~~~~~~~~~~~~');
  Writeln('~~~~Got Attacked ' + IntToStr(attacked) + ' Times~~~~')
    Writeln('~Bought: ' + IntToStr(Willows) + ' Willows~')
end;

function MyFindDirt: integer; // given to me by spork-eh made by nielsie95
var Dirt, Dirt2, Dirt3, Dirt4, Dirt5, Dirt6, Dirt7, Dirt8, Tol: integer;
begin
  Status('DirtColor');
  Dirt := BitmapFromString(10, 3, 'z78DA333330313732321B52240' +
    '0CF242437');
  Dirt2 := BitmapFromString(11, 4, 'z78DA3331357632343719F124' +
    '0001533809');
  Dirt3 := BitmapFromString(11, 3, 'z78DA3331363635343019E224' +
    '003E5B2731');
  Dirt4 := BitmapFromString(25, 1, 'z78DA337636723634351E6424' +
    '00B72620EA');
  Dirt5 := BitmapFromString(27, 1, 'z78DA3331333637B43019C424' +
    '00A5952170');
  Dirt6 := BitmapFromString(22, 1, 'z78DA33713131323436195012' +
    '0033DB1BAD');
  Dirt7 := BitmapFromString(18, 1, 'z78DA33B33475353235A30B09' +
    '0008A117A1');
  Dirt8 := BitmapFromString(22, 1, 'z78DA333333753432361B5012' +
    '004E531C1B');

  repeat
    Result := AutoColorThis(Dirt4, Tol, 628 - Tol, 64 - Tol, 675 + Tol, 104 + Tol)
      if Result < 1 then
      Result := AutoColorThis(Dirt5, Tol, 628 - Tol, 64 - Tol, 675 + Tol, 104 + Tol)
        if Result < 1 then
        Result := AutoColorThis(Dirt6, Tol, 628 - Tol, 64 - Tol, 675 + Tol, 104 + Tol)
          if Result < 1 then
          Result := AutoColorThis(Dirt, Tol, 628 - Tol, 64 - Tol, 675 + Tol, 104 + Tol)
            if Result < 1 then
            Result := AutoColorThis(Dirt2, Tol, 628 - Tol, 64 - Tol, 675 + Tol, 104 + Tol)
              if Result < 1 then
              Result := AutoColorThis(Dirt3, Tol, 628 - Tol, 64 - Tol, 675 + Tol, 104 + Tol)
                if Result < 1 then
                Result := AutoColorThis(Dirt8, Tol, 628 - Tol, 64 - Tol, 675 + Tol, 104 + Tol)
                  if Result < 1 then
                  Result := AutoColorThis(Dirt7, Tol, 628 - Tol, 64 - Tol, 675 + Tol, 104 + Tol)
                    if Result < 1 then Tol := Tol + 2
                    if Result < 500000 then Result := 0;
    if Result > 3000000 then Result := 0;
  until ((Result > 1) or (Tol > 60))
    if Result < 1 then
  begin
    WriteLn('Dirt Color Not Found - Terminating script..');
    TerminateScript;
  end

    WriteLn('DirtColor = ' + IntToStr(Result) + ' Found at a Tol of ' + IntToStr(Tol));
  DirtC := Result;

  FreeBitmap(Dirt);
  FreeBitmap(Dirt2);
  FreeBitmap(Dirt3);
  FreeBitmap(Dirt4);
  FreeBitmap(Dirt5);
  FreeBitmap(Dirt6);
  FreeBitmap(Dirt7);
  FreeBitmap(Dirt8);
end;


procedure FindRoadC;
var Road: Integer;
begin
Status('RoadColor');
  Road := BitmapFromString(3, 3, 'z78DA3373353337B33023910400' +
    '4B830C07');
  if findbitmap(Road, x, y) then
  begin
    RoadC := AutoColorThis(Road, 80, MMx1, MMY1, MMX2, MMY2);
    FreeBitmap(Road);
  end else
    RoadC := FindRoadColor;
  if RoadC = 0 then
  begin
    writeln('could not find road color')
      TerminateScript;
  end;
end;

procedure ToThere;
begin
Writeln('Going To Bank');
  Mouse(608, 68, 4, 4, True);
  Flag;
  Mouse(588, 81, 4, 4, True);
  Flag;
  FindSomeRands;
  MyFindDirt;
  Status('On Dirt Road');
  repeat
    if fightit('W') then
    begin
      attacked := attacked + 1
    end;
    if not loggedin then
    begin
      break;
      Switchitup;
    end;
    RadialRoadWalk(DirtC, 170, 280, 60, 1, 1);
    Clicks := Clicks + 1
      FindSomeRands;
    wait(500);
  until (not (RadialRoadWalk(DirtC, 170, 280, 60, 1, 1)));
  FindRoadC;
  Status('Normal Road')
  repeat
    if fightit('W') then
    begin
      attacked := attacked + 1;
    end;
    if not loggedin then
    begin
      break;
      Switchitup;
    end;
    RadialRoadWalk(RoadC, 340, 306, 65, 1, 1);
    Clicks := Clicks + 1;
    wait(500);
  until (FindSymbol(x, y, 'Bank'))
    or (FindColorTolerance(x, y, 4772314, 564, 22, 736, 164, 15))
    or (FindColorTolerance(x, y, 3841442, 564, 22, 736, 164, 15))
    or (FindColorTolerance(x, y, 91238, 564, 22, 736, 164, 15));
end;

procedure Back;
var Shop: Integer;
begin
  Shop := BitmapFromString(5, 6, 'DCDBD6A294868964305541263C3' +
    '91DDCDBD69D9C97754E2333251D33251DDCDBD6A29486754E2370' +
    '211933251DDCDBD68D7852D27637A1591884542BDCDBD6896430D' +
    '78C48D78C48D78C489D9C97D78C48D78C48D78C48D78C48');
  FindSomeRands;
  FindRoadC;
  Writeln('Heading to store')
  repeat
  Status('Normal Road')
    if fightit('E') then
    begin
      attacked := attacked + 1;
    end;
    if not loggedin then
    begin
      break;
      Switchitup;
    end;
    FindSomeRands;
    RadialRoadWalk(RoadC, 175, 100, 70, 1, 1);
    Clicks := Clicks + 1;
    wait(500);
  until not (RadialRoadWalk(RoadC, 175, 100, 70, 1, 1)) or FindColorTolerance(x, y, 1787729, MMX1, MMY1, MMX2, MMY2, 10);
  MyFindDirt;
  Status('DirtRoad');
  RadialRoadWalk(DirtC, 50, 110, 55, 1, 1);
  Clicks := Clicks + 1
    wait(500);
  FindSomeRands;
  repeat
    if fightit('E') then
    begin
      attacked := attacked + 1
    end;
    if not loggedin then
    begin
      break;
      Switchitup;
    end;
    FindSomeRands;
    RadialRoadWalk(DirtC, 50, 110, 65, 1, 1);
    Clicks := Clicks + 1;
    wait(500);
  until FindBitmap(Shop, x, y) or FindColorTolerance(x, y, 1595809, MMX1, MMY1, MMX2, MMY2, 10);
  Status('Clicking on shop');
  Mouse(x, y, 1, 1, True);
end;

{------------------ End Of Walking!!!! ----------}

procedure Openitup;
begin
  HighestAngle;
  MakeCompass('W')
    if findcolortolerance(x, y, 7829110, MSX1, MSY1, MSX2, MSY2, 3) then
  begin
    MMouse(x, y, 0, 0)
      if IsUpText('Use') then
    begin
      Mouse(x, y, 0, 0, False)
        ChooseOption(x, y, 'uickly')
    end;
  end;
end;

procedure Takeit;
begin
  repeat
    if not loggedin then
    begin
      break;
      Switchitup;
    end;
    wait(200)
  until BankScreen;
  if findcolortolerance(x, y, 2083835, MSX1, MSY1, MSX2, MSY2, 5) then
  //if findcolortolerance(x, y, 2083835, MSX1, MSY1, MSX2, MSY2, 7) then //if the above doesnt work use this
  //if findcolortolerance(x, y, 2083835, MSX1, MSY1, MSX2, MSY2, 3) then //if the above doesnt work use this
  //if all of the above dont work, use the first one, but with a new color that you can pick.
  begin
    Mouse(x, y, 1, 1, False);
      ChooseOption(x, y, 'X');
      Wait(1234 - Random(543));
      TypeSend(Players[CurrentPlayer].String1);
      CloseBank;
      MakeCompass('N');
  end;
end;

procedure NPCFinder(NPCColor, Tol: Integer; Name: string); // By Jason2Gs, Edited by me...
var
  Tries: Integer;
begin
  repeat
    if (FindColorSpiralTolerance(x, y, NPCColor, MSX1, MSY1, MSX2, MSY2, Tol)) then
      Wait(500 + Random(100));
    MMouse(x, y, 1, 1);
    Tries := Tries + 1;
    if (Tries >= 5) then
    begin
      KeyDown(37);
      Wait(500 + Random(500));
      KeyUp(37);
      Tries := 0;
    end;
    Mouse(x, y, 0, 0, False);
    ChooseOption(x, y, 'rade')
      Flag;
    if not loggedin then
    begin
      break;
      Switchitup;
    end;
  until (GetColor(184, 42) = 2070783)
end;

procedure Buydemwillows;
begin
  NPCFinder(5597055, 2, 'Shop')
    repeat
    if not loggedin then
    begin
      break;
      Switchitup;
    end;
    if FindColorSpiralTolerance(x, y, 1853778, MSX1, MSY1, MSX2, MSY2, 3) then
    begin
      Mouse(x, y, 0, 0, False)
        ChooseOption(x, y, '10')
    end;
  until (InvFull) or (InChat('enough coins'))
    if InChat('enough coins') then
  begin
    writeln('you ran out of coins,Next Player')
      Switchitup;
  end;
end;

procedure Setup;
begin
  SetupSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  HighestAngle;
  MakeCompass('W');
  Wait(1345 + Random(432));
end;

begin
  Setup;
  Openitup;
  Takeit;
  repeat
    if not LoggedIn then
    begin
      break;
      Switchitup;
    end;
    Back;
    BuyDemWillows;
    ToThere;
    if Bank then
    begin
      Openitup;
      DepositAll;
      Willows := Willows + 27
    end;
  until (False)
end.

AND MY SECOND SCRIPT THAT I WANT YOU TO JUDGE ME ON ::::

{--------------Cooker And---------------
---------------Killer By ---------------
---------------3Garrett3 ---------------}
{Instructions: Stand in the chicken coup
Near The Cow place in Lumbridge. With
Chickens Or meat Visible on the screen.
Preferably with an Empty Inventory. This
Script Will pick up meat and cook it. If
It doesnt find the meat, It will attempt
to Kill a chicken for some.}
{Credits: RuneHacker for AntiRandoms(better)and feedback and Jason2gs for lots of feedback.}
program Cooker;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}

const
  Loadz = 1; // How many loads do you want to do before switching players?

var
  i, Loads: Integer;
  ChicksUp: Integer;
  Chicken: Integer;
  CookingChicks: Integer;
  Rawchicks: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 3; // How many players you are using
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // The start player

  Players[0].Name := 'UserName'; // Runescape Username
  Players[0].Pass := 'Password'; // Password for this Account
  Players[0].Nick := 'erna'; // 4 Consecutive letters of your name
  Players[0].Active := True;

  Players[1].Name := 'UserName'; // Runescape Username
  Players[1].Pass := 'Password'; // Password for this Account
  Players[1].Nick := 'erna'; // 4 Consecutive letters of your name
  Players[1].Active := True;

  Players[2].Name := 'UserName'; // Runescape Username
  Players[2].Pass := 'Password'; // Password for this Account
  Players[2].Nick := 'erna'; // 4 Consecutive letters of your name
  Players[2].Active := True;
end;

procedure Bitmaps;
begin
  Chicken := BitmapFromString(21, 10, 'z78DA33753135313137' +
    'A512E9E666696062808B34A5AA5DF86D4706F47103A6EDF8C5078' +
    'FED6E380025B6E38A0B5CF6A2C617696EC095DE70D98BCB76FCE2' +
    'E4D98E5B173E80DFE5C4873C31B61BE000D44A75E485002DD23C0' +
    '0061916BC');

  CookingChicks := BitmapFromString(32, 7, 'z78DAB594510E8020' +
    '0C43AFA42644F8DCEE7F2813C307A4747489FAB118ECD863AB78B' +
    '3524F57E2D5DA5D7A8C35FA9E3FC4039E89FC8D7D1DB2D86EDFF2' +
    '4C54580B3947E5F0AEE817FCD00D36B54D97300B48623D7EA5278' +
    'AC9657EC5DB63D6C23FAC0AF0D3CE279DE3665E2D41CEA640E685' +
    '1AE5D409FE701DEBA273620F6CFE02FDD622CAF83E79008109226' +
    'F');

  Rawchicks := DTMFromString('78DA63146260601061400147962E613801A41' +
    '981F83F1030CA0319620C6880918115AA06CC03992143400D1B11' +
    'E688030956026AE480041B01352037F31350C30B2478F1AB0100C' +
    'DE5083B');
end;

procedure AntiRandoms;
begin
  FindNormalRandoms;
  FindTalk;
  FindLamp('cooking');
  UseBoxSolver := True
    UseCerterSolver := True
    UseSandwichSolver := True
    FindMod;
  FindMime;
  FindDead;
  FindMaze;
  DwarfItem;
  FindDemon;
  Solvepinball;
  FindScapeRune;
  if (findfight) then
  begin
    RunAwayDirection('E');
    SleepAndMoveMouse(8000 + Random(2500));
    RunBack;
  end;
  if InBlack then
  begin
    Players[CurrentPlayer].Active := false;
    Writeln(Players[CurrentPlayer].Name + ' is stuck in a random event!');
  end;
  if FindDead then
  begin
    Players[CurrentPlayer].Active := false;
    Writeln(Players[CurrentPlayer].Name + ' has died!');
  end;
end;

procedure AntBan;
begin
  i := Random(10)
    if i <= 6 then
  begin
    Exit;
  end else
    case random(15) of
      1: AntiBan;
      2: PickUpMouse;
      3: Wait(75)
      4: HoverSkill('cooking', False);
      5: AlmostLogout;
      6: Wait(50)
      7: Wait(20)
      8: Wait(30 + random(10))
    end;
end;

procedure Pickitup;
begin
  case random(2) of
    1: if FindBitmap(Chicken, x, y) then
      begin
        Mouse(x, y, 1, 1, True)
      end;
    2: ChooseOption(x, y, 'e Raw')
  end;
end;

procedure FindMeat;
begin
  if FindColorTolerance(x, y, 9606326, MSX1, MSY1, MSX2, MSY2, 2) then
  begin
    Mouse(x, y, 0, 0, False)
      Pickitup;
        ChicksUp := ChicksUp + 1
  end else
    if (FindColorTolerance(x, y, 924802, MSX1, MSY1, MSX2, MSY2, 5)) then
      MMouse(x, y, 1, 1)
        if (IsUpText('hicken')) then
        Mouse(x, y, 0, 0, False)
          ChooseOption(x, y, 'hicken')
          AntiRandoms;
  OutFight;
  AntiRandoms;
end;

procedure Walkthere;
begin
  if FindSymbol(x, y, 'churn') then
  begin
    Mouse(x, y, 1, 1, True)
      Flag;
  end;
end;

procedure CheckPot;
begin
  repeat
  If not loggedin then break;
    if (not (FindColorTolerance(x, y, 5453577, MSX1, MSY1, MSX2, MSY2, 5) or FindColorTolerance(x, y, 1610675, MSX1, MSY1, MSX2, MSY2, 5))) then
    begin
      RadialWalk(3297134, 179, 200, 20, 1, -1);
    end;
  until (FindColorTolerance(x, y, 5453577, MSX1, MSY1, MSX2, MSY2, 5))
end;


procedure Cookit;
begin
  Walkthere;
  MakeCompass('W')
    LowestAngle;
  KeyDown(38)
    wait(200)
    KeyUp(38)
    CheckPot;
  if FindDTM(Rawchicks, x,y,MIX1,MIY1,MIX2,MIY2) then // Looks for chicken in Inventory
  begin
    Mouse(x, y, 0, 0, True)
    if FindColorTolerance(x, y, 5453577, MSX1, MSY1, MSX2, MSY2, 5) or FindColorTolerance(x, y, 1610675, MSX1, MSY1, MSX2, MSY2, 5) then // Looks For Cooking Pot
    begin
      MMouse(x, y, 0, 0)
        wait(100)
        if IsUpText('pot') then
      begin
        Mouse(x, y, 0, 0, True)
          AntiRandoms;
        wait(4000 + Random(500))
          AntiRandoms;
        if FindColorTolerance(x, y, 11119560, 1, 1, 600, 600, 5) then // Finds The Chicken in the chat box thing
        begin
          AntiRandoms;
          Mouse(x, y, 1, 1, False)
            ChooseOption(x, y, 'All')
            if ClickToContinue then
          begin
            AntiRandoms;
            Mouse(x, y, 1, 1, False)
              ChooseOption(x, y, 'All')
              repeat
              Wait(500 + random(500))
                AntBan;
              ClickToContinue;
              until(not(FindDTM(Rawchicks, x,y,MIX1,MIY1,MIX2,MIY2))) // Until it doesnt find a raw chicken in The inventory
          end;
        end;
      end;
    end;
  end;
end;

procedure Dropit;
begin
  repeat
    if FindDTM(Rawchicks, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      Mouse(x, y, 0, 0, False)
        ChooseOption(x, y, 'rop')
    end;
  until (not (FindDTM(Rawchicks, x, y, MIX1, MIY1, MIX2, MIY2)))
end;


procedure Proggy;
begin
  writeln('~~~~~AutoCooker!~~~~~~')
    writeln('~~~~~By 3garrett3~~~~~')
    writeln('~~~Chickens Picked:' + IntToStr(ChicksUp) + '~~');
  Writeln('~~~Worked For :' + ScriptTime2(2) + '~~~~')
    Writeln('~~~~Loads Done:' + IntToStr(Loads) + '~~~')
    Writeln('~~~~~~~~~~~~~~~~~~~~~~')
end;

procedure Setup;
begin
  SetupSRL;
  ActivateClient;
  Bitmaps;
  DeclarePlayers;
  LoginPlayer;
end;

begin
  Setup;
  repeat
    repeat
      if not (loggedin) then break;
      MakeCompass('N')
        HighestAngle;
      repeat
        if not (loggedin) then break;
        FindMeat;
        Flag;
        AntBan;
      until (invfull)
        Cookit;
      repeat
        Wait(500)
          if clicktocontinue then
        begin
          Cookit;
        end;
      until (not (findDTM(rawchicks, x, y, MIX1, MIY1, MIX2, MIY2)))
        Dropit;
      Dropit;
      Loads := Loads + 1
        Proggy;
    until (Loads = Loadz)
      NextPlayer(True)
  until (False)
end.

THESE ARE MY TWO GOOD SCRIPTS THAT I WOULD LIKE YOU TO JUDGE MY SCRIPTING ABILITIES ON!


Here is my earliest script.DO NOT JUDGE THIS SCRIPT!(the one right below this lettering) It is just here to show how much I have improved.

{----------------------------------------------------------------------------}
{----------------------------Arrow Buyer V1!---------------------------------}
{----------------------------By:3Garrett3!-----------------------------------}
{----------------------------------------------------------------------------}
{Instructions!!!- Setup Lines 15 and 16. Have Lowe's shop open (only tested this
one) and have it on low detail}
{Credits: JAD, Markus, Yohojo8 (DTM), Jason2gs, and RScheater13 for letting me
use his Feather buyer to start this}
program Arrowbuyer;
{.include SRL/SRL.scar}

var BrArrow : Integer;
Bought : Integer;
IrArrow : Integer;

const
ArrowType=('Bronze'); //Type of arrow you want to buy (Bronze or Iron)
Buying= 10; //How many you want to buy
{--------------Writes a Progress Report------------------------------------}
procedure Report;
begin
  Writeln('[]========================================[]');
  Writeln('---------------->Progress Report<-----------');
  Writeln('------Worked For : ' + ScriptTime2(2) + '---')
  Writeln('  Bought ' + IntToStr(Bought) + 'Arrows ' + '');
  Writeln('[]========================================[]');
end;

procedure LoadDTMS;
 begin
 Writeln ('Loading DTMs')
 BrArrow:= DTMFromString('78DA631467606090634001D922BC0CFF81342' +
       '310FF07024605204392010D302291405A1048881250C309241409' +
       'A801C9F3105003728B327E350096CF06C0');
 IrArrow:= DTMFromString('78DA630C616060B06640013161610C3A8C0C0' +
       'C40C4F01F0818BD818C000634C0C820C9005103E6B9020927026A' +
       'A281843901357E40C28C801A4720E143404D1090F0C2AF0600EE3' +
       'D09CC');
 Writeln ('Done loading DTMs')
end;

Procedure BuyBrnz;
begin

 if(Not(ArrowType = 'Bronze'))then
  Begin
   Exit;
  End
 else

 if (ArrowType = 'Bronze')then
  begin
   Writeln ('Bronze Arrows Being Bought')
   FindDTM(BrArrow,x,y,1, 1, 200, 200)
   Mouse(x, y, 2, 2, False);
   ChooseOption(x, y, '10');
   Wait(1000+random(300));
   Bought:= Bought + 10
  end;
 end;
Procedure BuyIrn;
begin

 if(Not(ArrowType = 'Iron'))then
  Begin
   Exit;
  End
 else

 if (ArrowType = 'Iron')then
  begin
   Writeln ('Iron arrows being bought')
   FindDTM(IrArrow,x,y,1, 1, 200, 200)
   Mouse(x, y, 2, 2, False);
   ChooseOption(x, y, '10');
   Wait(1000+random(300));
   Bought:= Bought + 10
   If not(FindDTM(IrArrow,x,y,1, 1, 200, 200)) Then
   Writeln ('Cannont Find DTM')
  end;
end;


{------------Main Loop-----------------------------------------------------}
begin
SetupSRL;
LoadDTMS;
 repeat
  begin
  BuyBrnz;
  BuyIrn;
  Report;
  end;
 until(Bought = Buying);
 Writeln ('Finished Buying Arrows, Thank you for using 3Garrett3s Arrow Buyer')
end.

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

its fine, your not really supposed to attach, although it doesn't matter. most people just wrap in scar tags. They look pretty good, ill vote later.

ya, thanks for the reply, and i just figured i should because i thought it was like releasing a script. I guess not though.

I trust that you didn't copy a script (like almost every application now -.-), so I won't even wait for YoHoJo to try a copy bust. I vote yes. You're gonna be in for sure :D

Scripts all look original too me.
None seem copied.

yup, even thought up the ideas myself :p unless you include the parts that have credit given, all of it is mine. Thanks very much bullzeye, it means alot to me that all of my hard work is recognized

You have been around for a while, you help, have a high post count, and those scripts look good(the first one looks too basic though), but ill say yes, good job.

the very first one? the one that i said not to judge me by, it was made a month ago, and to look at the other two bottom ones when you actually vote? that one? :p

lol, i just scan through apps, i don't read all of it. I see now, good job.

ty :p maybe i should erase it? or make that text bold at least :p

You should probably make it the last script on the page :)

Crap, sorry for double post, i dont see where to delete post on this either for some reason.. it just doesnt seem to be there… Sorry

like that? i hope so, im going to bed, i will answer questions or comments in the morning, night all.

EDIT: 600th post?

Good scripts, I'll give it a yes.

I like em good stuff but please use the EDIT button I don't know why but I go all twitchy when I see a double post :p

Who voted no and why? These scripts aren't copied, and they're better than a lot of people's that have gotten in.

@rkroxpunk, I think it was accidental. He probably kept clicking the post button.

i clicked it, and it didnt post, so i clicked again, and it posted twice, and you cant delete posts here, sorry

ps: who voted no? and why?

I vote yes :)

And somebody may have miss clicked bullzeye, I have done that 1 or 2 times on an app, as well as voted yes accidentally on an app that I didn't think should have gotten in :p

Very nice though garret, your a good scripter and I think you have benefitted this community well, unlike some people that can just script good, apply, get in and then you never hear from them again, I think you'll stay helpful and active in these forums.

yup, maybe not in the summer, cause im getting buff :p and tennis and softball, but i will still be on to help out, on the weekends and at nights, so almost the same amount. But i wish the people that voted no would tell me why

i say yes. i see you on the forums telling noobs what they have done wrong in a script. noob: im getting this out of range on line 20 blah blah blah. 3garrett3: you didnt set up your players right.

sorry for the dramatization. but yes. and nice scripts.

Aw what the heck, i'll vote yes. But, promise me you'll learn Players[blah].Loc := 'watever'
this will make you'll script more organized and much better.

In.

yes, i will learn it :p i was going to try, but forgot to add it. And xcan, that is basically what i said, he got an error, and i said he didnt set the players up right

Yes, scripts seem very nice..
BTW: Try to click edit, there should be an option delete post.

i didnt see one, sorry. i will check again, but i didnt see it.

I vote yes, your a pretty good scripter, and I also see you around too helping how noobs lol even me :P Well good luck

ya, i just spent 20 minutes fixing some guys script up, he used findcolor wrong, about 20 times, used something called mousec, and used until without a repeat, and used the const feathercolor for something to do with buying willows or something :p it was quite a trial.

PS: how long does this voting thing normally take? :p

until Fawki takes a look dw won't be long and just FYI there is a delete post option ;)

Yes from me.

From: 3garrett3
And xcan, that is basically what i said, he got an error, and i said he didnt set the players up right

it is i looked at my thread while writing it.:P

and since when is there a delete post button?
edit:ahh guess there is one

very nice yes from me

From: rkroxpunk
until Fawki takes a look dw won't be long and just FYI there is a delete post option ;)

Actually, new admin in town Boreas does it some times now too :p

And yes, there's a delete post option when you click edit post as said above. Just click edit, and right next to Save, there's Go Advanced, and next to that there's the Delete button :p

begin
Setup;
Openitup;
Takeit;
repeat
if not LoggedIn then
begin
break;
Switchitup;
end;

What would that break do?

Have you tested this multipleplayers being true and false?

From: 3garrett3
ya, i just spent 20 minutes fixing some guys script up, he used findcolor wrong, about 20 times, used something called mousec, and used until without a repeat, and used the const feathercolor for something to do with buying willows or something :p it was quite a trial.

PS: how long does this voting thing normally take? :p

You think thats bad? I spent about 1hr fixing some guys script up that was filled with errors and getting it to work on divi 3.06. He put things like:

repeat
if findtree(x,y) then
begin
Mouse(x,y,0,0,true)
until(false)
end;

That wasn't an acual snipplet, just an example.

Anyway its a yes from me!

In!