SRL Archive - Archive

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

What is the meaning to life?
for srl afcourse :)

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


Programming Knowledge
none(only scar(pascal))

Other Communitys
sythe,mopar

How Long have You Played Runescape
too long

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

i am hermpie
called hermen
thursday i am 14 (:) yeah i want a present ;))
i am not gonna make this to long because almost evryone knows me if not talk with on msn
i like scripting i script more then i auto because scripting is more fun i only need rs gp for member script to make p2p scripts or buy items needed to test scripts or create like thread :p

hermpie

(ps. if you look at my apply you see the box meaning of life there is in this apply section(the 2e time it happens) no box for it to fill in just to let you guys know)

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

heres my script it works with ss(scarscape) i did few loads dont got the proggy i am not finished the crafting thingy because dotn got gp to get higher skill to make that :p
but i think its good enough now

if i need to post my others scripts like i did in my other apply just say it
here it is my ultimate hidetanner v 0.2 (special updated for secret :p)//DDTM w00t!
use scarscape or it possible wont work

program HideTannerAndCrafter;
{.include srl/srl.scar}

var
  CactusColor, Thread, Needle, SoftLeather, HardLeather, CowHide, HideText, Loads, Load, Coin, HardLeather, EndSkill, StartSkill, Cash, AlKharidDTM, x, y: Integer;
  AlKharidMP: TDTMPointDef;
  AlKharidSP: array[0..4] of TDTMPointDef;
  AlKharidDTMSkel: TDTM;

const
  //set this or it wont work
  RockColor = 4088977; //the red/brown rock outside bank(north)(for accurety:))
  RoadColor1 = 7581646; //road color the yellow one
  CraftLeather = false; //is in testing stage
  Whichleather = 'hardleather'; //you can choose on off: hardleather,softleather.

procedure DeclarePlayers;
begin

  HowManyPlayers := 6; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
  CurrentPlayer := 0; // CurrentPlayer - Player That Will Login First

  Players[0].Name := 'username'; //Player Username.
  Players[0].Pass := 'password'; //Player Password.
  Players[0].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[0].Active := True; //Will You Be Using This Player?
  Players[0].Integers[0] := 5; //How Much Loads To Do?

  Players[1].Name := 'username'; //Player Username.
  Players[1].Pass := 'password'; //Player Password.
  Players[1].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[1].Active := True; //Will You Be Using This Player?
  Players[1].Integers[0] := 5; //How Much Loads To Do?

  Players[2].Name := 'username'; //Player Username.
  Players[2].Pass := 'password'; //Player Password.
  Players[2].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[2].Active := True; //Will You Be Using This Player?
  Players[2].Integers[0] := 5; //How Much Loads To Do?

  Players[3].Name := 'username'; //Player Username.
  Players[3].Pass := 'password'; //Player Password.
  Players[3].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[3].Active := True; //Will You Be Using This Player?
  Players[3].Integers[0] := 5; //How Much Loads To Do?

  Players[4].Name := 'username'; //Player Username.
  Players[4].Pass := 'password'; //Player Password.
  Players[4].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[4].Active := True; //Will You Be Using This Player?
  Players[4].Integers[0] := 5; //How Much Loads To Do?

  Players[5].Name := 'username'; //Player Username.
  Players[5].Pass := 'password'; //Player Password.
  Players[5].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[5].Active := True; //Will You Be Using This Player?
  Players[5].Integers[0] := 5; //How Much Loads To Do?


  writeln(inttostr(HowManyPlayers) + ' Players');

end;

{=====================================================================================]
            DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}

{===============================================]
    this function finds randoms by:wt-fawaki
[===============================================}

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 9 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;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: begin
          if FindFight then
          begin
            RunTo('N', False);
          end;
        end;
    end;

  end;
end;


procedure LoadRoadDDtms;
var
  Tol: integer;
begin
  Tol := 30;


  AlKharidMP.x := 675;
  AlKharidMP.y := 123;
  AlKharidMP.areasize := 1;
  AlKharidMP.areashape := 0;
  AlKharidMP.color := RoadColor1;
  AlKharidMP.tolerance := 255;

  AlKharidSP[0].x := 671;
  AlKharidSP[0].y := 122;
  AlKharidSP[0].areasize := 1;
  AlKharidSP[0].areashape := 0;
  AlKharidSP[0].color := RoadColor1;
  AlKharidSP[0].tolerance := Tol;

  AlKharidSP[1].x := 681;
  AlKharidSP[1].y := 121;
  AlKharidSP[1].areasize := 1;
  AlKharidSP[1].areashape := 0;
  AlKharidSP[1].color := RoadColor1;
  AlKharidSP[1].tolerance := Tol;

  AlKharidSP[2].x := 674;
  AlKharidSP[2].y := 125;
  AlKharidSP[2].areasize := 1;
  AlKharidSP[2].areashape := 0;
  AlKharidSP[2].color := RoadColor1;
  AlKharidSP[2].tolerance := Tol;

  AlKharidSP[3].x := 680;
  AlKharidSP[3].y := 124;
  AlKharidSP[3].areasize := 1;
  AlKharidSP[3].areashape := 0;
  AlKharidSP[3].color := RoadColor1;
  AlKharidSP[3].tolerance := Tol;

  AlKharidDTMSkel.MainPoint := AlKharidMP;
  AlKharidDTMSkel.SubPoints := AlKharidSP;
  AlKharidDTM := AddDTM(AlKharidDTMSkel);
end;

procedure LoadDTMs;
begin
  {HideText := DTMFromString('78DA633CCFC8C0D00CC458004C94F10890D54' +
       '4849A3A026A761261CE7620AB910835AD04D4DC24C29C9744B8E7' +
       '19116A1E03590DA86A7EA0ABD90B64F51350738C08351731D560B' +
       '8E73A903599809A0340D624026AF6629A83E19EF544F87D139055' +
       '4F40CD6622D2CF66C2691500FDE0200E'); }
  Thread := DTMFromString('78DA63CC63666068656440061B972E65F80FA' +
    '441A2FF81803111A86622AA1A882C8C04D22073A6105053095453' +
    '4D404D2E504D250135A9986EC650530A54D349404D01504D1F11E' +
    '634E157030022330FD3');

  HardLeather := DTMFromString('78DA63F4626260F8C08002CC0D6419B880342' +
    '310FF0702C620A09ABF0C6880118904D20E40353F08A8B103AA79' +
    '47404D2850CD73026AC231DD8CA1C61DA8E60F01357E40354F08A' +
    '8B105AAF948408D2F50CD3FFC6A0056DD111A');

  Needle := DTMFromString('78DA638C666460F8C1800296CD9AC5F01F480' +
    '36518FE0301632890F587010D302291403A02C8FA47404D3C90F5' +
    '05B71A26109D0E643D22A02603C87A4C404D2290F58A801A907BD' +
    'E12501381193E186AC281AC9F04D480C2F92F01357140D677FC6A' +
    '0022B416DC');

  SoftLeather := DTMFromString('78DA6394666260F8C880027C3C3819B880342' +
    '310FF0702460D4C3510591809A465816AFE1150C30F54F38D801A' +
    '41A09A3704D42803D53C23A04613A8E6250135AA4035BF09A8112' +
    '1428D1450CD63FC6A00167F0F5E');

  HideText := DTMFromString('78DA63DCCBC0C0B08101159CF8C1C005A4188' +
    '1F83F103082D4AC63C00A1861F47E20B19E801A90395B8930670B' +
    '7E350056450CFC');

  HardLeather := DTMFromString('78DA633CCCCCC07098910119EC5ABF8EE13F9' +
    '00689FE0702C61D4035BB51D540646124903E0954B393809AB340' +
    '352708A8D909547396809A2D40354708A8390E547311BF1A001AC' +
    'D11E9');

  CowHide := DTMFromString('78DA63E4656060006124B06BE346062E20CD0' +
    '8C4FF81809119C8606740038C48249006A91121A0860F48481150' +
    '2301249809A891041202F8D50000C82E06DB');

end;

procedure GetCactusColor;
var
  Cactus: Integer;
begin
  if not LoggedIn then Exit;
  Cactus := BitmapFromString2(False, 'aB199078DA1DCCC911C0200' +
    'C43D1960C5E732404FA2F297C2E6F3492C722225F3F488D830E74' +
    '5B18E4F0C208349A5EC6EA13F7EDEF034B2567C3879C2F97391D0' +
    '78DA85F97564C6D3F568');

  CactusColor := AutoColorThis(Cactus, 200, MMX1, MMY1, MMX2, MMY2);
  WriteLn('//CactusColor: ' + IntToStr(CactusColor));
  FreeBitmap(Cactus);
end;


procedure WithDrawCraftStuff;
begin
  if not LoggedIn then Exit;
  if craftleather then
  begin
    LoadDtms;
    writeln('//going to craft tha leather')
      if (bankscreen = false) then
    begin
      openbankfast('akb');

    end else
      depositall;
    if (FindDTM(Needle, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('1')) then
      begin
        writeln('//whitdrawing needle');
      end else
        writeln('//could find needle');
    end;
    if (FindDTM(Thread, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        writeln('//whitdrawing Thread');
      end else
        writeln('//could find thread');
    end;
    if (WhichLeather = 'HardLeather') then
    begin
      if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
      begin
        Mouse(x, y, 5, 5, false);
        if (ChooseOption('ll')) then
        begin
          writeln('//whitdrawing Hardleather');
        end else
          writeln('//could find Hardleather');
      end;
    end else
      if (WhichLeather = 'SoftLeather') then
      begin
        if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Softleather');
          end else
            writeln('//could find Softleather');
        end;
        wait(100 + random(((((50))))));
        closebank;
        freedtm(hardleather);
        freedtm(Softleather);
        freedtm(thread);
        freedtm(Needle);
      end;
  end;
end;

procedure BankAndWithdraw;
begin
  loaddtms;
  openbankfast('akb');
  deposit(3, 28, 2);
  case Lowercase(WhichLeather) of
    'hardleather': begin
        if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Hardleather');
          end else
            writeln('//could find Hardleahter');
        end;
      end;
    'softleather': begin
        if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Softleather');
          end else
            writeln('//could find Softleahter');
        end;
      end;
  end;
  wait(100 + random(((((50))))));
  closebank;
  freedtm(hardleather);
  freedtm(Softleather);
end;

procedure CraftingLeather;
begin
  WithdrawCraftStuff;
  LoadDTMs;
  case Lowercase(WhichLeather) of
    'hardleather': begin
        if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 3, 2, True);
        if (FindDTM(HardLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 3, 2, True);
      end;
    'softleather': begin
        if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 3, 2, True);
        if (FindDTM(SoftLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 3, 2, True);
      end;
  end;
end;

function GetSkillStartEnd(Skill: string; Option: boolean): integer;
begin
  if not LoggedIn then Exit;
  if (Option = True) then
  begin
    GameTab(2);
    StartSkill := GetSkillLevel(Skill);
  end else
  begin
    GameTab(2);
    EndSkill := GetSkillLevel(Skill);
  end;
end;

procedure proggy;
begin
  WriteLn('//////////////////////////////////////////////////////////////');
  WriteLn('//   Thanks for using my HideTanner and Leathercrafter.     //');
  WriteLn('//                post Proggy,s and bugs.                   //');
  WriteLn('//////////////////////////////////////////////////////////////');
  WriteLn('// Ran for ' + (timerunning) + '                                        ');
  WriteLn('// Did ' + inttostr(load) + ' load(s) out of ' + inttostr(Players[CurrentPlayer].Integers[0]) + ' loads set on this player ');
  WriteLn('// You started with crafting level : ' + inttostr(startskill) + '');
  WriteLn('// You ended with crafting level   : ' + inttostr(startskill) + '');
  WriteLn('//////////////////////////////////////////////////////////////');
end;

function ToTanRoom: boolean;
begin
  if findsymbol(x, y, 'tanner') then
  begin
    result := true
      Mouse(x + 10, y + 5, 6, 6, True);
    Flag;
  end else
    logout;
  exit;

end;

procedure bankclick;
begin
  if not LoggedIn then Exit;
  GetCactusColor;
  RadialRoadWalk(CactusColor, 150, 270, 65, -30, +10);
  Flag;
end;

procedure ToBank;
begin
  if not loggedin then exit;
  setrun(true);
  LoadRoadDDtms;
  if (FindDTM(AlKharidDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
  begin
    MouseFlag(x - 17, y + 12, 2, 3);
    Writeln('//Walking to bank 1.');
    bankclick;
  end;
  FreeDTM(AlKharidDTM);
end;

function FindHideText: Boolean;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  loaddtms;
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1
      if (FindDTM(HideText, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y - 10, 0, 0, False);
      Result := True;
      break;
    end;
  until (LoopInteger >= 15)

  FreeDTM(HideText);
end;


procedure GetHides;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  loaddtms;
  MakeCompass('N')
    HighestAngle;
  GetSkillStartEnd('crafting', True);
  Wait(1 + random(2));
  OpenBankFast('akb');
  Wait(10 + random(5));
  FixBank;
  Deposit(2, 28, 2);
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1;
    if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        WriteLn('//Taking Hides from Bank.');
        CloseBank;
        findtalk;
        Wait(500 + Random(100));
        Load := load + 1
          break;
      end;
    end;
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    exit;
  end;
  makecompass('N')
    FreeDTM(CowHide);
end;


procedure GetCoinsAndHides;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  LoadDTMs;
  HighestAngle;
  Cash := ((Players[CurrentPlayer].Integers[0]) * 81);
  Wait(1 + random(2));
  OpenBankFast('akb');
  Wait(10 + random(5));
  FixBank;
  depositall;
  LoopInteger := 0;
  Coin := DTMFromString('78DA637CC5C0C0709001057C3B21CBF01F483' +
    '302F17F2060BC0B64EC6140038C482490BE03244E1250F31348EC' +
    '2742CD19FC6A0078830F4B');
  repeat
    LoopInteger := LoopInteger + 1
      if (FindDTM(Coin, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Wait(100 + Random(50));
      Mouse(x, y, 0, 0, False);
      Wait(100 + Random(50));
    end;
    if (ChooseOption('X')) then
    begin
      Wait(1000 + random(100));
      WriteLn('//taking money from bank');
      TypeSend(inttostr(cash));
      break;
    end;
    Wait(1000 + random(500));
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    Exit;
  end;
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1;
    if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        WriteLn('//Taking Hides from Bank.');
        CloseBank;
        findtalk;
        break;
        Wait(500 + Random(100))
      end;
    end;
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    exit;
  end;
  FreeDTM(Coin);
  FreeDTM(Cowhide);
  MakeCompass('N');
end;



function WalkingOne: boolean;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 1');
  SetRun(True);
  GetCactusColor;
  RadialRoadWalk(CactusColor, 50, 120, 60, 1, -30);
  Flag;
  ToTanRoom;
end;



function WalkingTwo: boolean;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 2');
  SetRun(True);
  if FindColorTolerance(x, y, RockColor, MMX1, MMY1, MMX2, MMY2, 25) then
  begin
    Mouse(x + 20, y - 12, 0, 0, true);
    flag;
    wait(1000);
    ToTanRoom;
  end;
end;

function WalkingThree: boolean;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 3');
  SetRun(True);
  GetCactusColor;
  RadialWalk(CactusColor, 50, 120, 60, 2, -30);
  Flag;
  ToTanRoom;
end;


procedure ToHideTanner;
begin
  if not LoggedIn then Exit;
  case Random(3) of
    0: WalkingOne;
    1: WalkingTwo;
    2: WalkingThree;
  end;
end;


procedure TalkToEllis;
begin
  repeat
    FindTalk;
    Wait(50 + Random(50));
    if FindObjCustom(x, y, ['llis', 'alk'], [5076433, 4285618], 10) then
    begin
      Mouse(x, y, 1, 1, false);
      if ChooseOption('ade') then
      begin
        WriteLn('//Trading To Ellis');
        Wait(3000 + Random(1000));
      end;
    end;
  until (FindHideText)
    if ChooseOption('ll') then
    closebank;
end;

procedure SetupClient;
begin
  ActivateClient;
  wait(1);
  DeclarePlayers;
  wait(1);
  LoginPlayer;
  wait(1 + random(50))
end;

{====================]
      Main-Loop
[====================}
begin
  SetUpSRL;
  SetUpClient;
  repeat
    GetCoinsAndHides;
    repeat
      ToHideTanner;
      TalkToEllis;
      ToBank;
      Gethides;
      proggy;
    until ((Load >= Players[CurrentPlayer].Integers[0]) or (not (LoggedIn)))
      Loads := 0;
    if (Load >= Players[CurrentPlayer].Integers[0]) then
    begin
      logout;
      NextPlayer(True);
    end else
    begin
      logout;
      NextPlayer(False);
    end;
  until (CurrentPlayer > HowManyPlayers - 1)
end.

credits to:
-n3ss3s and derek and the scar noob for: if i had a question i always get an answer, thanks!


i hope i get much of fun if i get in

hermpie(i am gonna kill myself for this)

somthing wrong?pm me!

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

you need to wait 1 month before you can aply again.

i'll wait for a dev and hold my vote.

Ya that was only a couple weeks? Maybe one?

Radial walking, multiplayer, antirandoms, dtms/bitmaps…only thing that it could do with more is FailSafes, it definately needs them. like if not LoggedIn then Exit inside every procedure at the start, sorta thing. you seem to put effort into your scripts though, so I'm sure you will learn how to do failsafes quickly :) yes from me

Well I don't remember reading your other application so I'll just comment on this on.

Firstly, don't I get at least a little bit of credit for helping you with a procedure or two?

Secondly, you have a heap of functions that don't return anything. Procedures would be better suited to those.

Thirdly, I'm guessing you don't know how to use cases because there are a number of places where a case would be so much better than an if then else statement. I was sort of hoping that by using cases in the procedures I help you with you would learn how they work and how to use them. An example from your script:

    if (WhichLeather = 'HardLeather') then
    begin
      if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
      begin
        Mouse(x, y, 5, 5, false);
        if (ChooseOption('ll')) then
        begin
          writeln('//whitdrawing Hardleather');
        end else
          writeln('//could find Hardleather');
      end;
    end else
      if (WhichLeather = 'SoftLeather') then
      begin
        if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Softleather');
          end else
            writeln('//could find Softleather');
        end;

This could have been done with a case:

 
    case Lowercase(WhichLeather) of
      'hardleather':  begin
                        if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
                        begin
                          Mouse(x, y, 5, 5, false);
                          if (ChooseOption('ll')) then
                          begin
                            writeln('//whitdrawing Hardleather');
                          end else
                            writeln('//could find Hardleather');
                        end;
      'softleather':  begin
                        if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
                        begin
                          Mouse(x, y, 5, 5, false);
                          if (ChooseOption('ll')) then
                          begin
                            writeln('//whitdrawing Softleather');
                          end else
                            writeln('//could find Softleather');
                        end;
    end;

or better still :D:

    case Lowercase(WhichLeather) of
      'hardleather':  TheDTM := HardLeather;
      'softleather':  TheDTM := SoftLeather;
    end;
    if (FindDTM(TheDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        writeln('//whitdrawing ' + WhichLeather);
      end else
        writeln('//could find ' + WhichLeather);
    end;
    FreeDTM(TheDTM);

Fourthly, you don't have many failsafes in your script. For example with your 'BankClick' procedure, the player is lost if the cactus colour isn't found.

Fifthly, you've set your AlKharidDTM's SubPoint TDTMPointDef array to a length of 5 (from 0 to 4) while you're only using 4 points. This might stuff up the DDTM when the script tries to use it.

Lastly, your standards are terrible in some places. ;)

I'm sorry but I'm voting no.

Oh and in your last line (apart from the 'end.'), you have this:

  until (CurrentPlayer > HowManyPlayers - 1)

CurrentPlayer will never be greater than HowManyPlayers - 1. I think you want this:

  until (CurrentPlayer >= HowManyPlayers - 1)

no standards in most places

most of ur script is stuff you too kout of people and you didnt credit them.

no waiting one month before re-applying

NO.

From: hugolord
no standards in most places

most of ur script is stuff you too kout of people and you didnt credit them.

no waiting one month before re-applying

NO.

1. Standards aren't too bad.

2. He made most himself.

3. That's for the admins to decide.

Yes from me.

w8 a sec it was a month or always a month and which procedures you talking about… and i am sorry if its not a month then i will wait longer sorry i thought it was a month and abouit failsafes i deleted some of them because the script was otehrwise not working and pls say where maybe i can explain why because i had to much b4

and close it…
one question the time before here when i posted a updated script better the the script i apllyed with i only got good news good this good that and i gained much yes but i had too much no votes before the new one now i posting an new new newer version of the script and i only get no's is this because i aplyed to fast or is it because my scripts sucks? or somthing like that
i am really not mad just wanna know you know;)
if i did it to soon i am very very sorry close it and i will do it a week later or a month from this apply(i hope not so)

i am really sorry if this was to soon
hermpie

edit: were i dint credit pls say were i dont know where ya talkign about..if you mean small fixes like posted above with the…

until (CurrentPlayer > HowManyPlayers - 1)

if you talking about that. then i know what you mean else :( nope but i still can say at every procedure wat it does and credit it to myself or other:D

From: ZephyrsFury
Well I don't remember reading your other application so I'll just comment on this on.

Firstly, don't I get at least a little bit of credit for helping you with a procedure or two?

Secondly, you have a heap of functions that don't return anything. Procedures would be better suited to those.

Thirdly, I'm guessing you don't know how to use cases because there are a number of places where a case would be so much better than an if then else statement. I was sort of hoping that by using cases in the procedures I help you with you would learn how they work and how to use them. An example from your script:

    if (WhichLeather = 'HardLeather') then
    begin
      if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
      begin
        Mouse(x, y, 5, 5, false);
        if (ChooseOption('ll')) then
        begin
          writeln('//whitdrawing Hardleather');
        end else
          writeln('//could find Hardleather');
      end;
    end else
      if (WhichLeather = 'SoftLeather') then
      begin
        if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Softleather');
          end else
            writeln('//could find Softleather');
        end;

This could have been done with a case:

 
    case Lowercase(WhichLeather) of
      'hardleather':  begin
                        if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
                        begin
                          Mouse(x, y, 5, 5, false);
                          if (ChooseOption('ll')) then
                          begin
                            writeln('//whitdrawing Hardleather');
                          end else
                            writeln('//could find Hardleather');
                        end;
      'softleather':  begin
                        if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
                        begin
                          Mouse(x, y, 5, 5, false);
                          if (ChooseOption('ll')) then
                          begin
                            writeln('//whitdrawing Softleather');
                          end else
                            writeln('//could find Softleather');
                        end;
    end;

or better still :D:

    case Lowercase(WhichLeather) of
      'hardleather':  TheDTM := HardLeather;
      'softleather':  TheDTM := SoftLeather;
    end;
    if (FindDTM(TheDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        writeln('//whitdrawing ' + WhichLeather);
      end else
        writeln('//could find ' + WhichLeather);
    end;
    FreeDTM(TheDTM);

Fourthly, you don't have many failsafes in your script. For example with your 'BankClick' procedure, the player is lost if the cactus colour isn't found.

Fifthly, you've set your AlKharidDTM's SubPoint TDTMPointDef array to a length of 5 (from 0 to 4) while you're only using 4 points. This might stuff up the DDTM when the script tries to use it.

Lastly, your standards are terrible in some places. ;)

I'm sorry but I'm voting no.

Oh and in your last line (apart from the 'end.'), you have this:

  until (CurrentPlayer > HowManyPlayers - 1)

CurrentPlayer will never be greater than HowManyPlayers - 1. I think you want this:

  until (CurrentPlayer >= HowManyPlayers - 1)

sorry for double just wanna comment most of the posts

i know how to use otherwise i woulnd apply but.. i did that really fast -_- but still thanks i will think about it

thanks for feedback i always accept critism that makes me better scripting(wheres secret?:D)

From: hermpie

i know how to use otherwise i woulnd apply but.. i did that really fast -_- but still thanks i will think about it

If you knew how to do it, why wouldn't you? And it's not that hard to change, even if you did do it really fast, seeing as this is your member app.

Anyways I thought you should be a member on your last app, but I'll wait on my vote for now.

From: The Claw
Radial walking, multiplayer, antirandoms, dtms/bitmaps…only thing that it could do with more is FailSafes, it definately needs them. like if not LoggedIn then Exit inside every procedure at the start, sorta thing. you seem to put effort into your scripts though, so I'm sure you will learn how to do failsafes quickly :) yes from me

i know in all the new procedure i forgot

if not loggedin then exit

stupid i know *_* like the new crafting stuff i did it really fast i just forgot it lol:(
but its not wors because i am temp. not using the crafting stuff

From: hugolord
no standards in most places

most of ur script is stuff you too kout of people and you didnt credit them.

no waiting one month before re-applying

NO.

i like you much hugo but you say i didnt make it?


ehm i see people vote yes and there only 2 posts i vite yes because -_-
its really not bad or i really wont shoot you if you vote yes :D

From: Tim0suprem0
If you knew how to do it, why wouldn't you? And it's not that hard to change, even if you did do it really fast, seeing as this is your member app.

Anyways I thought you should be a member on your last app, but I'll wait on my vote for now.

lol i really forgot it and on my other app when i changed it they only were saying ''you need to bring a full working script''//i did that but i wil change if you want to
thanks for feedback

*changing the stuff*-_-

hermpie

Yes I don't think changing it will hurt, although some people will question your preparation. If you're going to apply to members take time to make it good, don't say things like "oh it's bad because I did it so fast", that's making me lean towards voting no.

i sorry but first i didnt wanted to add the crafting stuff
i mean in this apply script because evryone critismed my crafting procedures and if i didnt added yeah then i got more yes votes and i almost ready with the fixed
one
edit:

program HideTannerAndCrafter;
{.include srl/srl.scar}

var
  CactusColor, Thread, Needle, SoftLeather, HardLeather, CowHide, HideText, Loads, Load, Coin, HardLeather, EndSkill, StartSkill, Cash, AlKharidDTM, x, y: Integer;
  AlKharidMP: TDTMPointDef;
  AlKharidSP: array[0..4] of TDTMPointDef;
  AlKharidDTMSkel: TDTM;

const
  //set this or it wont work
  RockColor = 4088977; //the red/brown rock outside bank(north)(for accurety:))
  RoadColor1 = 7581646; //road color the yellow one
  CraftLeather = false; //is in testing stage
  Whichleather = 'hardleather'; //you can choose on off: hardleather,softleather.

procedure DeclarePlayers;
begin

  HowManyPlayers := 6; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
  CurrentPlayer := 0; // CurrentPlayer - Player That Will Login First

  Players[0].Name := 'username'; //Player Username.
  Players[0].Pass := 'password'; //Player Password.
  Players[0].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[0].Active := True; //Will You Be Using This Player?
  Players[0].Integers[0] := 5; //How Much Loads To Do?

  Players[1].Name := 'username'; //Player Username.
  Players[1].Pass := 'password'; //Player Password.
  Players[1].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[1].Active := True; //Will You Be Using This Player?
  Players[1].Integers[0] := 5; //How Much Loads To Do?

  Players[2].Name := 'username'; //Player Username.
  Players[2].Pass := 'password'; //Player Password.
  Players[2].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[2].Active := True; //Will You Be Using This Player?
  Players[2].Integers[0] := 5; //How Much Loads To Do?

  Players[3].Name := 'username'; //Player Username.
  Players[3].Pass := 'password'; //Player Password.
  Players[3].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[3].Active := True; //Will You Be Using This Player?
  Players[3].Integers[0] := 5; //How Much Loads To Do?

  Players[4].Name := 'username'; //Player Username.
  Players[4].Pass := 'password'; //Player Password.
  Players[4].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[4].Active := True; //Will You Be Using This Player?
  Players[4].Integers[0] := 5; //How Much Loads To Do?

  Players[5].Name := 'username'; //Player Username.
  Players[5].Pass := 'password'; //Player Password.
  Players[5].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[5].Active := True; //Will You Be Using This Player?
  Players[5].Integers[0] := 5; //How Much Loads To Do?


  writeln(inttostr(HowManyPlayers) + ' Players');

end;

{=====================================================================================]
            DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}

{===============================================]
    this function finds randoms by:wt-fawaki
[===============================================}

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 9 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;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: begin
          if FindFight then
          begin
            RunTo('N', False);
          end;
        end;
    end;

  end;
end;
{======================================================================]
    MY OWN(first) DDTM MADE WITH YOHOHO'S TUT THANKS YOU YOHOHO by: me
[======================================================================}

procedure LoadRoadDDtms;
var
  Tol: integer;
begin
  Tol := 30;


  AlKharidMP.x := 675;
  AlKharidMP.y := 123;
  AlKharidMP.areasize := 1;
  AlKharidMP.areashape := 0;
  AlKharidMP.color := RoadColor1;
  AlKharidMP.tolerance := 255;

  AlKharidSP[0].x := 671;
  AlKharidSP[0].y := 122;
  AlKharidSP[0].areasize := 1;
  AlKharidSP[0].areashape := 0;
  AlKharidSP[0].color := RoadColor1;
  AlKharidSP[0].tolerance := Tol;

  AlKharidSP[1].x := 681;
  AlKharidSP[1].y := 121;
  AlKharidSP[1].areasize := 1;
  AlKharidSP[1].areashape := 0;
  AlKharidSP[1].color := RoadColor1;
  AlKharidSP[1].tolerance := Tol;

  AlKharidSP[2].x := 674;
  AlKharidSP[2].y := 125;
  AlKharidSP[2].areasize := 1;
  AlKharidSP[2].areashape := 0;
  AlKharidSP[2].color := RoadColor1;
  AlKharidSP[2].tolerance := Tol;

  AlKharidSP[3].x := 680;
  AlKharidSP[3].y := 124;
  AlKharidSP[3].areasize := 1;
  AlKharidSP[3].areashape := 0;
  AlKharidSP[3].color := RoadColor1;
  AlKharidSP[3].tolerance := Tol;

  AlKharidDTMSkel.MainPoint := AlKharidMP;
  AlKharidDTMSkel.SubPoints := AlKharidSP;
  AlKharidDTM := AddDTM(AlKharidDTMSkel);
end;
 {===============================================]
    the dtm's       by:me
[===============================================}

procedure LoadDTMs;
begin
  {HideText := DTMFromString('78DA633CCFC8C0D00CC458004C94F10890D54' +
       '4849A3A026A761261CE7620AB910835AD04D4DC24C29C9744B8E7' +
       '19116A1E03590DA86A7EA0ABD90B64F51350738C08351731D560B' +
       '8E73A903599809A0340D624026AF6629A83E19EF544F87D139055' +
       '4F40CD6622D2CF66C2691500FDE0200E'); }
  Thread := DTMFromString('78DA63CC63666068656440061B972E65F80FA' +
    '441A2FF81803111A86622AA1A882C8C04D22073A6105053095453' +
    '4D404D2E504D250135A9986EC650530A54D349404D01504D1F11E' +
    '634E157030022330FD3');

  HardLeather := DTMFromString('78DA63F4626260F8C08002CC0D6419B880342' +
    '310FF0702C620A09ABF0C6880118904D20E40353F08A8B103AA79' +
    '47404D2850CD73026AC231DD8CA1C61DA8E60F01357E40354F08A' +
    '8B105AAF948408D2F50CD3FFC6A0056DD111A');

  Needle := DTMFromString('78DA638C666460F8C1800296CD9AC5F01F480' +
    '36518FE0301632890F587010D302291403A02C8FA47404D3C90F5' +
    '05B71A26109D0E643D22A02603C87A4C404D2290F58A801A907BD' +
    'E12501381193E186AC281AC9F04D480C2F92F01357140D677FC6A' +
    '0022B416DC');

  SoftLeather := DTMFromString('78DA6394666260F8C880027C3C3819B880342' +
    '310FF0702460D4C3510591809A465816AFE1150C30F54F38D801A' +
    '41A09A3704D42803D53C23A04613A8E6250135AA4035BF09A8112' +
    '1428D1450CD63FC6A00167F0F5E');

  HideText := DTMFromString('78DA63DCCBC0C0B08101159CF8C1C005A4188' +
    '1F83F103082D4AC63C00A1861F47E20B19E801A90395B8930670B' +
    '7E350056450CFC');

  HardLeather := DTMFromString('78DA633CCCCCC07098910119EC5ABF8EE13F9' +
    '00689FE0702C61D4035BB51D540646124903E0954B393809AB340' +
    '352708A8D909547396809A2D40354708A8390E547311BF1A001AC' +
    'D11E9');

  CowHide := DTMFromString('78DA63E4656060006124B06BE346062E20CD0' +
    '8C4FF81809119C8606740038C48249006A91121A0860F48481150' +
    '2301249809A891041202F8D50000C82E06DB');

end;
{=====================================================================================]
   used to get the cactuscolor outside the bank by: me(thanks for the tut nielsie)
[=====================================================================================}

procedure GetCactusColor;
var
  Cactus: Integer;
begin
  if not LoggedIn then Exit;
  Cactus := BitmapFromString2(False, 'aB199078DA1DCCC911C0200' +
    'C43D1960C5E732404FA2F297C2E6F3492C722225F3F488D830E74' +
    '5B18E4F0C208349A5EC6EA13F7EDEF034B2567C3879C2F97391D0' +
    '78DA85F97564C6D3F568');

  CactusColor := AutoColorThis(Cactus, 200, MMX1, MMY1, MMX2, MMY2);
  WriteLn('//CactusColor: ' + IntToStr(CactusColor));
  FreeBitmap(Cactus);
end;

{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure WithDrawCraftStuff;
begin
  if not LoggedIn then Exit;
  if craftleather then
  begin
    LoadDtms;
    writeln('//going to craft tha leather')
      if (bankscreen = false) then
    begin
      openbankfast('akb');

    end else
      depositall;
    if (FindDTM(Needle, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('1')) then
      begin
        writeln('//whitdrawing needle');
      end else
        writeln('//could find needle');
    end;
    if (FindDTM(Thread, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        writeln('//whitdrawing Thread');
      end else
        writeln('//could find thread');
    end;
    if (WhichLeather = 'HardLeather') then
    begin
      if (FindDTM(HardLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
      begin
        Mouse(x, y, 5, 5, false);
        if (ChooseOption('ll')) then
        begin
          writeln('//whitdrawing Hardleather');
        end else
          writeln('//could find Hardleather');
      end;
    end else
      if (WhichLeather = 'SoftLeather') then
      begin
        if (FindDTM(SoftLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
        begin
          Mouse(x, y, 5, 5, false);
          if (ChooseOption('ll')) then
          begin
            writeln('//whitdrawing Softleather');
          end else
            writeln('//could find Softleather');
        end;
        wait(100 + random(((((50))))));
        closebank;
        freedtm(hardleather);
        freedtm(Softleather);
        freedtm(thread);
        freedtm(Needle);
      end;
  end;
end;

{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure BankAndWithdraw;
begin
  if not LoggedIn then Exit;
  loaddtms;
  openbankfast('akb');
  deposit(3, 28, 2);
  case Lowercase(WhichLeather) of
    'hardleather': TheDTM := HardLeather;
    'softleather': TheDTM := SoftLeather;
  end;
  if (FindDTM(TheDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
  begin
    Mouse(x, y, 5, 5, false);
    if (ChooseOption('ll')) then
    begin
      writeln('//whitdrawing ' + WhichLeather);
    end else
      writeln('//could find ' + WhichLeather);
  end;
  FreeDTM(TheDTM);
  wait(100 + random(((((50))))));
  closebank;
end;
{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure CraftingLeather;
begin
  if not LoggedIn then Exit;
  WithdrawCraftStuff;
  LoadDTMs;
  case Lowercase(WhichLeather) of
    'hardleather': begin
        if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 3, 2, True);
        if (FindDTM(HardLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 3, 2, True);
      end;
    'softleather': begin
        if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 3, 2, True);
        if (FindDTM(SoftLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
          Mouse(x, y, 3, 2, True);
      end;
  end;
end;
{======================================================================================================]
    this uses getskill out of the srl include by: mat_the_b and me(its not so big so it doesnt matter)
[======================================================================================================}

function GetSkillStartEnd(Skill: string; Option: boolean): integer;
begin
  if not LoggedIn then Exit;
  if (Option = True) then
  begin
    GameTab(2);
    StartSkill := GetSkillLevel(Skill);
  end else
  begin
    GameTab(2);
    EndSkill := GetSkillLevel(Skill);
  end;
end;
{===============================================]
     this is my proggy            by: me
[===============================================}

procedure proggy;
begin
  WriteLn('//////////////////////////////////////////////////////////////');
  WriteLn('//   Thanks for using my HideTanner and Leathercrafter.     //');
  WriteLn('//                post Proggy,s and bugs.                   //');
  WriteLn('//////////////////////////////////////////////////////////////');
  WriteLn('// Ran for ' + (timerunning) + '                                        ');
  WriteLn('// Did ' + inttostr(load) + ' load(s) out of ' + inttostr(Players[CurrentPlayer].Integers[0]) + ' loads set on this player ');
  WriteLn('// You started with crafting level : ' + inttostr(startskill) + '');
  WriteLn('// You ended with crafting level   : ' + inttostr(startskill) + '');
  WriteLn('//////////////////////////////////////////////////////////////');
end;
 {==============================================================]
    clicks the tanroom the scar noob reminded me of this  by:me
[===============================================================}//i tried findsymbol before didnt work out and

function ToTanRoom: boolean; //the scar noob reminded me of this so i tried again(works)
begin
  if not LoggedIn then Exit;
  if findsymbol(x, y, 'tanner') then
  begin
    result := true
      Mouse(x + 10, y + 5, 6, 6, True);
    Flag;
  end else
    logout;
  exit;

end;
{===================================================]
   clicks the bank used in tobank; look down. by:me
[===================================================}

procedure bankclick;
begin
  if not LoggedIn then Exit;
  GetCactusColor;
  RadialRoadWalk(CactusColor, 150, 270, 65, -30, +10);
  Flag;
end;
{==========================================================================]
  clicks-down towards the bank and uses bankclick to click the bank bye:me
[==========================================================================}

procedure ToBank;
begin
  if not loggedin then exit;
  setrun(true);
  LoadRoadDDtms;
  if (FindDTM(AlKharidDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
  begin
    MouseFlag(x - 17, y + 12, 2, 3);
    Writeln('//Walking to bank 1.');
    bankclick;
  end;
  FreeDTM(AlKharidDTM);
end;
{===============================================================]
    this finds the dtm used to tan the hides    by: me
[==============================================================}

function FindHideText: Boolean;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  loaddtms;
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1
      if (FindDTM(HideText, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y - 10, 0, 0, False);
      Result := True;
      break;
    end;
  until (LoopInteger >= 15)

  FreeDTM(HideText);
end;

{===============================================]
    takes the hides from the bank    by:me
[===============================================}

procedure GetHides;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  loaddtms;
  MakeCompass('N')
    HighestAngle;
  GetSkillStartEnd('crafting', True);
  Wait(1 + random(2));
  OpenBankFast('akb');
  Wait(10 + random(5));
  FixBank;
  Deposit(2, 28, 2);
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1;
    if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        WriteLn('//Taking Hides from Bank.');
        CloseBank;
        findtalk;
        Wait(500 + Random(100));
        Load := load + 1
          break;
      end;
    end;
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    exit;
  end;
  makecompass('N')
    FreeDTM(CowHide);
end;

{===============================================================================================================]
   when the player logs in it only need 1 time coins so i made this to use it 1 time each player     by:me
[===============================================================================================================}

procedure GetCoinsAndHides;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  LoadDTMs;
  HighestAngle;
  Cash := ((Players[CurrentPlayer].Integers[0]) * 81);
  Wait(1 + random(2));
  OpenBankFast('akb');
  Wait(10 + random(5));
  FixBank;
  depositall;
  LoopInteger := 0;
  Coin := DTMFromString('78DA637CC5C0C0709001057C3B21CBF01F483' +
    '302F17F2060BC0B64EC6140038C482490BE03244E1250F31348EC' +
    '2742CD19FC6A0078830F4B');
  repeat
    LoopInteger := LoopInteger + 1
      if (FindDTM(Coin, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Wait(100 + Random(50));
      Mouse(x, y, 0, 0, False);
      Wait(100 + Random(50));
    end;
    if (ChooseOption('X')) then
    begin
      Wait(1000 + random(100));
      WriteLn('//taking money from bank');
      TypeSend(inttostr(cash));
      break;
    end;
    Wait(1000 + random(500));
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    Exit;
  end;
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1;
    if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        WriteLn('//Taking Hides from Bank.');
        CloseBank;
        findtalk;
        break;
        Wait(500 + Random(100))
      end;
    end;
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    exit;
  end;
  FreeDTM(Coin);
  FreeDTM(Cowhide);
  MakeCompass('N');
end;


{===============================================]
    one of the walkings to the hidetanner
[===============================================}

function WalkingOne: boolean;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 1');
  SetRun(True);
  GetCactusColor;
  RadialRoadWalk(CactusColor, 50, 120, 60, 1, -30);
  Flag;
  ToTanRoom;
end;


{===============================================]
    one of the walkings to the hidetanner
[===============================================}

function WalkingTwo: boolean;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 2');
  SetRun(True);
  if FindColorTolerance(x, y, RockColor, MMX1, MMY1, MMX2, MMY2, 25) then
  begin
    Mouse(x + 20, y - 12, 0, 0, true);
    flag;
    wait(1000);
    ToTanRoom;
  end;
end;
{===============================================]
    one of the walkings to the hidetanner
[===============================================}

function WalkingThree: boolean;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 3');
  SetRun(True);
  GetCactusColor;
  RadialWalk(CactusColor, 50, 120, 60, 2, -30);
  Flag;
  ToTanRoom;
end;

{===============================================]
    chooses one of the walkings above by:me
[===============================================}

procedure ToHideTanner;
begin
  if not LoggedIn then Exit;
  case Random(3) of
    0: WalkingOne;
    1: WalkingTwo;
    2: WalkingThree;
  end;
end;

{===============================================]
    talks to ellis and tans teh hides bye:Me
[===============================================}

procedure TalkToEllis;
begin
  repeat
    FindTalk;
    Wait(50 + Random(50));
    if FindObjCustom(x, y, ['llis', 'alk'], [5076433, 4285618], 10) then
    begin
      Mouse(x, y, 1, 1, false);
      if ChooseOption('ade') then
      begin
        WriteLn('//Trading To Ellis');
        Wait(3000 + Random(1000));
      end;
    end;
  until (FindHideText)
    if ChooseOption('ll') then
    closebank;
end;

{===============================================]
    this does all the normal stuff  :) by:me
[===============================================}

procedure SetupClient;
begin
  ActivateClient;
  wait(1);
  DeclarePlayers;
  wait(1);
  LoginPlayer;
  wait(1 + random(50))
end;

{====================]
      Main-Loop
[====================}
begin
  SetUpSRL;
  SetUpClient;
  repeat
    GetCoinsAndHides;
    repeat
      ToHideTanner;
      TalkToEllis;
      ToBank;
      Gethides;
      proggy;
    until ((Load >= Players[CurrentPlayer].Integers[0]) or (not (LoggedIn)))
      Loads := 0;
    if (Load >= Players[CurrentPlayer].Integers[0]) then
    begin
      logout;
      NextPlayer(True);
    end else
    begin
      logout;
      NextPlayer(False);
    end;
  until (CurrentPlayer >= HowManyPlayers - 1)
end.

i hope the standards are good enough and i said what you guys did and if you look in the mainloop i dont call for crafting because its not ready

pls critsm or somthing like that i wanna learn from this again
one thing i dont get i fixed all the stuff you peopled didnt liked in my apply a month ago and now stuff again are not okay and then some1 says pls make it fully next time it was about the hidetanner the leathercrafter is just an extra its not need my script is called''hidetanner''
i am not mad but just bit confusing
thanks for feedback

hermpie
edit:
added explaination and credit..
edit:

thanks for the votes and feedback man wen lordgreg gonna post or bohohobo?

Yes, tis a pretty good script

-mostly standards
-undetectable procedures
-multiplayer mostly
-failsafes not fantastic but are there
-eww at autocolorthis but anyways at least u can use it
-like DTM's apparently :D

i've definately seen worse get in and ur obviously keen so I say yes

I </3 your English, I am usually very formal with my English, but SRL apps are not about how well you can type ^^

I say YES, Enjoy the members section ^_^

thanks evryone sorry for my english and why evryones says bad failsafes but my old script had to much of them so post where i need to use more
thanks for feedback


hermpie

Hermpieeee!! I told ya on msn that wait a month

from Messenger Plus logs
(14:28) Hermpie:D: should i apply now?
(14:29) Juissi: no
(14:30) Juissi: its not been a month since your last apply

And then you start talking about the scar noob -.-

And zephyr, that was so trivial, ofcourse people can use if()then else when you're sorting out 2 occasions!

Easier to write, in case()of you have to mess more with standards.

so, one down - hugo to go.

Hugolord, though people have their own opinions, but for example Penttis MCMB's standards are horrible, but its more popular than Mining Guild Raper and propably is more than Wizzup's VEM, and no one has no balls or business to go complain him about his standards. (talking bout experience :p)

So, 2 down - 0 to go.

i didnt saw ot n3ss3s they already told but i posted my apply and i said sorry then you still vote no because i made a mistake?
i am not mad because my fault i didnt read it but its just a mistake and it almost have been a month

fixing the crafting stuff you guys and i can use casses few people think i cant i will show it but now i need to my homework :S


hermpie

ps. did you vote now because i read your post again i see your were ''protecting me'' lol how to say?

Grats on 1k posts herm ;)

I voted yes. You've shown you want to learn by changing what you thought was wrong, you know the basics of scripting, you participate positively, and I think you will be a welcome addition to the Members aspect of the community.

thanks! for vote and yes 1k post no srl member shame on me:(

ps. scar 3.12 out!

From: hermpie
sorry for double just wanna comment most of the posts

i know how to use otherwise i woulnd apply but.. i did that really fast -_- but still thanks i will think about it

thanks for feedback i always accept critism that makes me better scripting(wheres secret?:D)

im right here :D

first off, the whole thing about

until (CurrentPlayer > HowManyPlayers - 1)

zephyer i think its another way of doing until(false) cuz currentplayers will never be > than howmanyplayers -1 so it will keep repeating…

2nd off, it hasnt been a month yet, so really it should prolly be a no, but then again

3rd off, this one actually uses multiplayer (atleast it looks like it) and this script actually has all procedures completed

so i will vote 'yes' for you this time :D, ive seen way worse get in, also your obviously active here so

active too much(looks like spam) check my post count way too much and thanks mate lol you vote yes???????????
and the other no the world is confused…

ehm i am in?or i need to wait 7 days? or somthing like that just asking ;)


hermpie

tell me how to improve and i will do the crafting laters

dubble posting will not get you a better chance of becomming member…

i know it was a mistake i thought i was editing is but cant delete it anymore sorry

hermpie

and to answer you question you have to get a 'In' from fawaki

okay, thanks to here

I was at school so i couldnt reply but its a yes :D

were are the case statements I asked you to add?
I wont say yes until you have added them!

From: hermpie
thanks! for vote and yes 1k post no srl member shame on me:(

ps. scar 3.12 out!

You've been around for a month or so and you've got +1k posts :rolleyes:..

Hmm.. And I don't see any point in applying if someone clearly says it's not been a month since you last applied -.-.. Seems kinda stupid.

Not sure what I'll vote if I vote at all.

Naa, I wouldnt take the post count as in ++, because we dont want to encourage spamming, right?

Off-topic: n3ss3s = 2k posts

No, we don't want to encourage spamming.

Even though I feel it's a bit too early for me to judge other applicants, I'm gonna give my opinion anyway.

His script is pretty good, and he hasn't got problems with asking if there are any problems.

Maybe his help in the forum could be better, but ok, that's not what we judge applicants on. Even though it is an important value to have.

I'll hold my vote for now, because I don't feel like deciding anything at the moment.

-Knives

becaue many people''hold'' your vote tell me wat to do and teh scar noob i added it i will edit this post

i am not a spammer just like to be active..

hermpie

edit:
i did make casses that zeph thought i couldnt handel casses i know why you people think that and because scar noob said it i did add them the one that zeph showed in his post i added that and made 2 cases for the procedures:

procedure WithDrawCraftStuff;

and

procedure BankAndWithdraw;

look at that 2 i almost did the same and i know what cases are because
somthing like this is a case to
a case is you let it randomly choose or you use it like i do in the procedures i writes yet;)

case random(10) + 1 of//the 10 so somtimes it doesnt do randoms(the + 1 is to not //have0 to [number] but now you have 1 to [numb]
1:hovermouse;
2:do somthing
3:do somting elsel
4:hover skill;
5:and so on:
//it chooses randomly somthing like this and
end;

so i hope showed enough that of above is not a thing i ever should use :P
ow i use cases to with my walking to the tohidetanner; just look there i really know what it is

need more info ask me [email]kotsz@live.nl[/email]

hermpie

From: hermpie
becaue many people''hold'' your vote tell me wat to do and teh scar noob i added it i will edit this post

i am not a spammer just like to be active..

hermpie

edit:
i did make casses that zeph thought i couldnt handel casses i know why you people think that and because scar noob said it i did add them the one that zeph showed in his post i added that and made 2 cases for the procedures:

procedure WithDrawCraftStuff;

and

procedure BankAndWithdraw;

look at that 2 i almost did the same and i know what cases are because
somthing like this is a case to
a case is you let it randomly choose or you use it like i do in the procedures i writes yet;)

case random(10) + 1 of//the 10 so somtimes it doesnt do randoms(the + 1 is to not //have0 to [number] but now you have 1 to [numb]
1:hovermouse;
2:do somthing
3:do somting elsel
4:hover skill;
5:and so on:
//it chooses randomly somthing like this and
end;

so i hope showed enough that of above is not a thing i ever should use :P
ow i use cases to with my walking to the tohidetanner; just look there i really know what it is

need more info ask me [email]kotsz@live.nl[/email]

hermpie

were are the cases in the banking? post them plz :p
-stijn.

k ill do before that look this
or you were joking??
a easy one ;)

procedure ToHideTanner;
begin
  if not LoggedIn then Exit;
  case Random(3) of
    0: WalkingOne;
    1: WalkingTwo;
    2: WalkingThree;
  end;
end;

or

{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure WithDrawCraftStuff;
begin
  if not LoggedIn then Exit;
  if craftleather then
  begin
    LoadDtms;
    writeln('//going to craft tha leather')
      if (bankscreen = false) then
      begin
        openbankfast('akb');
        deposit(3, 28, 2);
      end else
        depositall;
      end;
    if (FindDTM(Needle, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('1')) then
      begin
        writeln('//whitdrawing needle');
      end else
        writeln('//could find needle');
      end;
    if (FindDTM(Thread, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        writeln('//whitdrawing Thread');
      end else
        writeln('//could find thread');
      end;

    case Lowercase(WhichLeather) of
    'hardleather': THaLeather := HardLeather;
    'softleather': THaLeather := SoftLeather;
  end;
  if (FindDTM(THaLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
  begin
    Mouse(x, y, 5, 5, false);
    if (ChooseOption('ll')) then
    begin
      writeln('//whitdrawing ' + WhichLeather);
    end else
      writeln('//could find ' + WhichLeather);
  end;
  FreeDTM(THaLeather);
  wait(100 + random(((((50))))));
  closebank;
end;



{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure BankAndWithdraw;
begin
  if not LoggedIn then Exit;
  loaddtms;
  openbankfast('akb');
  deposit(3, 28, 2);
  case Lowercase(WhichLeather) of
    'hardleather': THaLeather := HardLeather;
    'softleather': THaLeather := SoftLeather;
  end;
  if (FindDTM(THaLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
  begin
    Mouse(x, y, 5, 5, false);
    if (ChooseOption('ll')) then
    begin
      writeln('//whitdrawing ' + WhichLeather);
    end else
      writeln('//could find ' + WhichLeather);
  end;
  FreeDTM(THaLeather);
  wait(100 + random(((((50))))));
  closebank;
end;
{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure CraftingLeather;
begin
  if not LoggedIn then Exit;
  WithdrawCraftStuff;
  LoadDTMs;
  case Lowercase(WhichLeather) of
    'hardleather': ThaLeather := HardLeather;
    'softleather': ThaLeather := SoftLeather;
  end;
    if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
      Mouse(x, y, 3, 2, True);
    if (FindDTM(ThaLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
      Mouse(x, y, 3, 2, false);
      if chooseoption('ll') then
      begin
        writeln('//whitdrawed leather');
      end;
 end;

you wanna see do me somthing more?(again) say it and i will do it. i cant update the script got much to much homework

From: hermpie
k ill do before that look this
or you were joking??
a easy one ;)

procedure ToHideTanner;
begin
  if not LoggedIn then Exit;
  case Random(3) of
    0: WalkingOne;
    1: WalkingTwo;
    2: WalkingThree;
  end;
end;

or

{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure WithDrawCraftStuff;
begin
  if not LoggedIn then Exit;
  if craftleather then
  begin
    LoadDtms;
    writeln('//going to craft tha leather')
      if (bankscreen = false) then
      begin
        openbankfast('akb');
        deposit(3, 28, 2);
      end else
        depositall;
      end;
    if (FindDTM(Needle, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('1')) then
      begin
        writeln('//whitdrawing needle');
      end else
        writeln('//could find needle');
      end;
    if (FindDTM(Thread, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        writeln('//whitdrawing Thread');
      end else
        writeln('//could find thread');
      end;

    case Lowercase(WhichLeather) of
    'hardleather': THaLeather := HardLeather;
    'softleather': THaLeather := SoftLeather;
  end;
  if (FindDTM(THaLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
  begin
    Mouse(x, y, 5, 5, false);
    if (ChooseOption('ll')) then
    begin
      writeln('//whitdrawing ' + WhichLeather);
    end else
      writeln('//could find ' + WhichLeather);
  end;
  FreeDTM(THaLeather);
  wait(100 + random(((((50))))));
  closebank;
end;



{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure BankAndWithdraw;
begin
  if not LoggedIn then Exit;
  loaddtms;
  openbankfast('akb');
  deposit(3, 28, 2);
  case Lowercase(WhichLeather) of
    'hardleather': THaLeather := HardLeather;
    'softleather': THaLeather := SoftLeather;
  end;
  if (FindDTM(THaLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
  begin
    Mouse(x, y, 5, 5, false);
    if (ChooseOption('ll')) then
    begin
      writeln('//whitdrawing ' + WhichLeather);
    end else
      writeln('//could find ' + WhichLeather);
  end;
  FreeDTM(THaLeather);
  wait(100 + random(((((50))))));
  closebank;
end;
{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure CraftingLeather;
begin
  if not LoggedIn then Exit;
  WithdrawCraftStuff;
  LoadDTMs;
  case Lowercase(WhichLeather) of
    'hardleather': ThaLeather := HardLeather;
    'softleather': ThaLeather := SoftLeather;
  end;
    if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
      Mouse(x, y, 3, 2, True);
    if (FindDTM(ThaLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
      Mouse(x, y, 3, 2, false);
      if chooseoption('ll') then
      begin
        writeln('//whitdrawed leather');
      end;
 end;

you wanna see do me somthing more?(again) say it and i will do it. i cant update the script got much to much homework

Ok, it seems copied from the one Zephy posted or do it only seems like? :redface:
I'll give it a no……

ok, a yes then :]

From: n3ss3s
Naa, I wouldnt take the post count as in ++, because we dont want to encourage spamming, right?

This made me laugh, but grats on 2k anyways :)

lol take your mouse over his text :p
you really wanted to saw my face when he posted that :( w00t!:)

I always miss those white messages… They should be made illegal! I never notice them. One day, I end up writing the worst rant ever, to a message that contains a white-message underneath…

-Knives

lol, thats sounds funny but you dudes had to see my face he said why you voted now i can do cases i said and showed he keep saying select it i thought wtf ow :p :redface:


hermpie
edit: working on the leather stuff gonna put somthing in if you use softleather that it will automaticly choose the best one ;) or just manually and gonna update the hide tanenr more randomness

still working on my script though but it works great now very great a small bug and after i fixed that i will post it here

hermpie

This looks fine for me, some failsafes are missing but most importal is he knows how to write scripts, standards are good, but if i should use it im 99% sure it can't run overnight, still it looks good, so yes for me

i know abot that your right the walk to uses symbol finding not 100% you know but the rest is great i really love dtm and DDTM's(i am do proud :p)

hermpie

I have seen how you code.

It is a mess, it is unorganized and un standardized, and bloody imposible to think through.

You creat uncomilable errors, and then ignore them, you dont fix them, and soon you have 500 lines scatered with critical errors.

You dont understand begins and end.

And whats more, i dont think you take any personal pride in your code. I fixed about 20 critical logic errors in your code, and as thanks i get "whoo i found and error and fixed it, who knew one error could do so much".

No, i found 20 errors. Not you. and whats more, after this you give me your account and want me to test it, and you want me to make it work. Look, this isnt my code. this is your project, your child.

YOU need to spend the time on it, you tell me you want me to fix it because you dont have time?? WTF! I am in school, my time is worth more than yours, and you are lucky I already spent hours on your code.

YOU are responisble for it, and I am not fixing it.

Take pride in your code, make it your self, do it yourself, and then be proud of it.

I had boreas switch my vote. Do not IM me untill you have code that compiles, and is standardized.

your right greg
- it was.. unorginazed i gonna do this the next time else
-cmon the standards arent to bad..

about that testing no one wants to test so i ask it nice to you and i was asking you so if you found stuff tell me I will fix it because it works fine for me
i am sorry if i asked to much but no one just wanted to test only n3ss3s helped me testing sometimes(thanks you n3ss3s and mat_de_b:))

about that errors i just was messiing around with that crafting stuff just a little bit this a little bit that then i gained a error i onyl wanted you to fix only that error i would do the rest and that other errors were just forgotten ends that doesnt mean i will forget that again and i dotn mean just that it doesnt mean anything i just was messing around next time i will always have it compiling thanks you that you said that i learned from it.thanks!

and it compiles and its standardized and it works great!
just a bit testing ;)(i mean it works now!)

thanks all!

hermpie
edit:
greg:
I have seen how you code.

It is a mess, it is unorganized and un standardized, and bloody imposible to think through.

You creat uncomilable errors, and then ignore them, you dont fix them, and soon you have 500 lines scatered with critical errors.
//greg

ehm your right got an idea to change that?

edit:
you cant run both crafting and hidetanning maybe you can i am not sure

program HideTannerAndCrafter;
{.include srl/srl.scar}

var
  CactusColor, Thread, Needle, SoftLeather, THaLeather, CowHide, HideText, Loads, Load, Coin, HardLeather, EndSkill, StartSkill, Cash, AlKharidDTM, x, y, XItem, YItem: Integer;
  AlKharidMP: TDTMPointDef;
  AlKharidSP: array[0..4] of TDTMPointDef;
  AlKharidDTMSkel: TDTM;
  ItemToCraft:string;
const

/////////////////////////////COLOR SET-UP//////////////////////////////////////////////
  RockColor = 4088977; //the red/brown rock outside bank(north)(for accurety:))    ////
  RoadColor1 = 7581646; //road color the yellow(sandcolor) one                      ////
///////////////////////////////////////////////////////////////////////////////////////



//////// CRAFTING/TANNING SET-UP(LET THEBANKAT('AKB'); IF YOU CRAFT AT ALKHARID ///////
///////////////////////////////////////////////////////////////////////////////////////
  TanCowhides = False; //if you not wanna run the tanning procedure
  CraftLeather = True; //is in testing stage

  TheBankAt = 'akb'; //the bank your crafting at
  Whichleather = 'softleather'; //THIS IS ONLY FOR CRAFTING!you can choose on off: hardleather,softleather.
///////////////////////////////////////////////////////////////////////////////////////


////////////////////////////////PLAYER SET-UP  ////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////


procedure DeclarePlayers;
begin

  HowManyPlayers := 6; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
  CurrentPlayer := 0; // CurrentPlayer - Player That Will Login First

  Players[0].Name := 'bla!'; //Player Username.
  Players[0].Pass := 'bla!'; //Player Password.
  Players[0].Nick := 'bla!'; //3 or 4 Letters From The Username Of This Player.
  Players[0].Active := True; //Will You Be Using This Player?
  Players[0].Integers[0] := 28; //How Much Loads To TAN?
  Players[0].Integers[1] := 5; //How Much Loads To CRAFT?

  Players[1].Name := 'bla!'; //Player Username.
  Players[1].Pass := 'bla!'; //Player Password.
  Players[1].Nick := 'bla!'; //3 or 4 Letters From The Username Of This Player.
  Players[1].Active := True; //Will You Be Using This Player?
  Players[1].Integers[0] := 5; //How Much Loads To TAN?
  Players[1].Integers[1] := 5; //How Much Loads To CRAFT?

  Players[2].Name := 'username'; //Player Username.
  Players[2].Pass := 'password'; //Player Password.
  Players[2].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[2].Active := True; //Will You Be Using This Player?
  Players[2].Integers[0] := 5; //How Much Loads To TAN?
  Players[2].Integers[1] := 5; //How Much Loads To CRAFT?

  Players[3].Name := 'username'; //Player Username.
  Players[3].Pass := 'password'; //Player Password.
  Players[3].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[3].Active := True; //Will You Be Using This Player?
  Players[3].Integers[0] := 5; //How Much Loads To TAN?
  Players[3].Integers[1] := 5; //How Much Loads To CRAFT?

  Players[4].Name := 'username'; //Player Username.
  Players[4].Pass := 'password'; //Player Password.
  Players[4].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[4].Active := True; //Will You Be Using This Player?
  Players[4].Integers[0] := 5; //How Much Loads To TAN?
  Players[4].Integers[1] := 5; //How Much Loads To CRAFT?

  Players[5].Name := 'username'; //Player Username.
  Players[5].Pass := 'password'; //Player Password.
  Players[5].Nick := 'nick'; //3 or 4 Letters From The Username Of This Player.
  Players[5].Active := True; //Will You Be Using This Player?
  Players[5].Integers[0] := 5; //How Much Loads To TAN?
  Players[5].Integers[1] := 5; //How Much Loads To CRAFT?


  writeln(inttostr(HowManyPlayers) + ' Players');

end;

{=====================================================================================]
            DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
[=====================================================================================}

{===============================================]
    this function finds randoms by:wt-fawaki
[===============================================}

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 9 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;
      8: begin
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      9: begin
          if FindFight then
          begin
            RunTo('N', False);
          end;
        end;
    end;

  end;
end;
{======================================================================]
    MY OWN(first) DDTM MADE WITH YOHOHO'S TUT THANKS YOU YOHOHO by: me
[======================================================================}

procedure LoadRoadDDtms;
var
  Tol: integer;
begin
  Tol := 30;


  AlKharidMP.x := 675;
  AlKharidMP.y := 123;
  AlKharidMP.areasize := 1;
  AlKharidMP.areashape := 0;
  AlKharidMP.color := RoadColor1;
  AlKharidMP.tolerance := 255;

  AlKharidSP[0].x := 671;
  AlKharidSP[0].y := 122;
  AlKharidSP[0].areasize := 1;
  AlKharidSP[0].areashape := 0;
  AlKharidSP[0].color := RoadColor1;
  AlKharidSP[0].tolerance := Tol;

  AlKharidSP[1].x := 681;
  AlKharidSP[1].y := 121;
  AlKharidSP[1].areasize := 1;
  AlKharidSP[1].areashape := 0;
  AlKharidSP[1].color := RoadColor1;
  AlKharidSP[1].tolerance := Tol;

  AlKharidSP[2].x := 674;
  AlKharidSP[2].y := 125;
  AlKharidSP[2].areasize := 1;
  AlKharidSP[2].areashape := 0;
  AlKharidSP[2].color := RoadColor1;
  AlKharidSP[2].tolerance := Tol;

  AlKharidSP[3].x := 680;
  AlKharidSP[3].y := 124;
  AlKharidSP[3].areasize := 1;
  AlKharidSP[3].areashape := 0;
  AlKharidSP[3].color := RoadColor1;
  AlKharidSP[3].tolerance := Tol;

  AlKharidDTMSkel.MainPoint := AlKharidMP;
  AlKharidDTMSkel.SubPoints := AlKharidSP;
  AlKharidDTM := AddDTM(AlKharidDTMSkel);
end;
 {===============================================]
    the dtm's       by:me
[===============================================}

procedure LoadDTMs;
begin
  {HideText := DTMFromString('78DA633CCFC8C0D00CC458004C94F10890D54' +
       '4849A3A026A761261CE7620AB910835AD04D4DC24C29C9744B8E7' +
       '19116A1E03590DA86A7EA0ABD90B64F51350738C08351731D560B' +
       '8E73A903599809A0340D624026AF6629A83E19EF544F87D139055' +
       '4F40CD6622D2CF66C2691500FDE0200E'); }
  Thread := DTMFromString('78DA63EC636460B8C98002362C59C2F01F480' +
       '36518FE0301631390F594010D30229140BA1FC87A4140CD2420EB' +
       '210135D331DD83A1A61DC8BA815F0D0037CC0F92');

  HardLeather := DTMFromString('78DA63F4626260F8C08002CC0D6419B880342' +
    '310FF0702C620A09ABF0C6880118904D20E40353F08A8B103AA79' +
    '47404D2850CD73026AC231DD8CA1C61DA8E60F01357E40354F08A' +
    '8B105AAF948408D2F50CD3FFC6A0056DD111A');

  Needle := DTMFromString('78DA638C666460F8C1800296CD9AC5F01F480' +
    '36518FE0301632890F587010D302291403A02C8FA47404D3C90F5' +
    '05B71A26109D0E643D22A02603C87A4C404D2290F58A801A907BD' +
    'E12501381193E186AC281AC9F04D480C2F92F01357140D677FC6A' +
    '0022B416DC');

  SoftLeather := DTMFromString('78DA63DCC9C0C0E0CD8002FCBC38195881342' +
       '310FF0702C64D404628031A60442281F43620114140CD5E20114D' +
       '40CD4920E14F841A37026A8E028948026AD603091F026A4E00891' +
       '0FC6A00F2820E4A');

  HideText := DTMFromString('78DA63DCCBC0C0B08101159CF8C1C005A4188' +
    '1F83F103082D4AC63C00A1861F47E20B19E801A90395B8930670B' +
    '7E350056450CFC');

  HardLeather := DTMFromString('78DA633CCCCCC07098910119EC5ABF8EE13F9' +
    '00689FE0702C61D4035BB51D540646124903E0954B393809AB340' +
    '352708A8D909547396809A2D40354708A8390E547311BF1A001AC' +
    'D11E9');

  CowHide := DTMFromString('78DA63E4656060006124B06BE346062E20CD0' +
    '8C4FF81809119C8606740038C48249006A91121A0860F48481150' +
    '2301249809A891041202F8D50000C82E06DB');

end;


{======================================================================================================]
    this uses getskill out of the srl include by: mat_the_b and me(its not so big so it doesnt matter)
[======================================================================================================}

function GetSkillStartEnd(Skill: string; Option: boolean): integer;
begin
  if not LoggedIn then Exit;
  if (Option = True) then
  begin
    GameTab(2);
    StartSkill := GetSkillLevel(Skill);
  end else
  begin
    GameTab(2);
    EndSkill := GetSkillLevel(Skill);
  end;
end;

{=====================================================================================]
   used to get the cactuscolor outside the bank by: me(thanks for the tut nielsie)
[=====================================================================================}

procedure GetCactusColor;
var
  Cactus: Integer;
begin
  if not LoggedIn then Exit;
  Cactus := BitmapFromString2(False, 'aB199078DA1DCCC911C0200' +
    'C43D1960C5E732404FA2F297C2E6F3492C722225F3F488D830E74' +
    '5B18E4F0C208349A5EC6EA13F7EDEF034B2567C3879C2F97391D0' +
    '78DA85F97564C6D3F568');

  CactusColor := AutoColorThis(Cactus, 200, MMX1, MMY1, MMX2, MMY2);
  WriteLn('//CactusColor: ' + IntToStr(CactusColor));
  FreeBitmap(Cactus);
end;


{===============================================]
    auto chooses wich SOFTleather to craft by:me
[===============================================}

procedure Choose;
begin
    case EndSkill of
      1, 2, 3, 4, 5, 6: ItemToCraft := 'gloves';
      7, 8: ItemToCraft := 'boots';
      9, 10: ItemToCraft := 'cowl';
      11, 12, 13: ItemToCraft := 'vambraces';
      14, 15, 16, 17: ItemToCraft := 'body';
      18, 19, 20, 21, 22, 23,
        24, 25, 26, 27, 28, 29, 30, 31, 32,
        33, 34, 35, 36, 37, 38, 39, 40, 41,
        42, 43, 44, 45, 46, 47, 48, 49, 50: ItemToCraft := 'chaps';
    end;
end;

procedure PickXandY;
begin
  case ItemTocraft of
    'gloves':begin
               XItem := 191;
               Yitem := 117;
             end;
    'boots': begin
               XItem := 316;
               Yitem := 114;
             end;
    'cowl': begin
              XItem := 382;
              Yitem := 234;
            end;
    'vambraces': begin
                   XItem := 445;
                   Yitem := 247;
                 end;
    'body': begin
              XItem := 72;
              Yitem := 109;
            end;
    'chaps': begin
               XItem := 126;
               Yitem := 247;
             end;
  end;
end;
{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure WithDrawCraftStuff;
begin
			  if not LoggedIn then Exit;
			  if craftleather then
			  begin
			    LoadDtms;
			    writeln('//going to craft tha leather');
			      if (bankscreen = false) then
			    begin
			      openbankfast(thebankat);
			      deposit(3, 28, 2);
			    end else
			      depositall;
			  end;
			  if (FindDTM(Needle, x, y, MSX1, MSY1, MSX2, MSY2)) then
			  BEGIN
			  Mouse(x, y, 5, 5, false);
			    if (ChooseOption('1')) then
			    begin
			      writeln('//whitdrawing needle');
			      end
			    else
			    begin
			    writeln('//could find needle');
			    end;
         end;

if (FindDTM(Thread, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
  Mouse(x, y, 5, 5, false);
  if (ChooseOption('ll')) then
  begin
    writeln('//whitdrawing Thread');
  end;
end
else
begin
  writeln('//could find thread');
end;

case Lowercase(WhichLeather) of
  'hardleather': THaLeather := HardLeather;
  'softleather': THaLeather := SoftLeather;
end;
if (FindDTM(THaLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
begin
  Mouse(x, y, 5, 5, false);
  if (ChooseOption('ll')) then
  begin
    writeln('//whitdrawing ' + WhichLeather);
    END
    end
else
begin
  writeln('//could find ' + WhichLeather);
end;
FreeDTM(THaLeather);
wait(100 + random(((((50))))));
closebank;
end;



{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure BankAndWithdraw;
begin
  if not LoggedIn then Exit;
  loaddtms;
  openbankfast(thebankat);
  deposit(3, 28, 2);
  case Lowercase(WhichLeather) of
    'hardleather': THaLeather := HardLeather;
    'softleather': THaLeather := SoftLeather;
  end;
  if (FindDTM(THaLeather, x, y, MSX1, MSY1, MSX2, MSY2)) then
  begin
    Mouse(x, y, 5, 5, false);
    if (ChooseOption('ll')) then
    begin
      writeln('//whitdrawing ' + WhichLeather);
    end else
      writeln('//could find ' + WhichLeather);
  end;
  FreeDTM(THaLeather);
  wait(100 + random(((((50))))));
  closebank;
end;

procedure FindNeedleAndLeather;
begin
 LoadDtms;
 if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
 Mouse(x, y, 3, 2, True);
 if (FindDTM(ThaLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
 begin
   Mouse(x, y, 3, 2, false);
   chooseoption('eather')
   wait(1000+random(500));
 end;
end;
{===============================================]
    still in progess of making a crafter by:me
[===============================================}

procedure CraftingLeather;
begin
  if not LoggedIn then Exit;
  GetSkillStartEnd('crafting',False);
  choose;
  PickXAndY;
  writeln('// Crafting '+(ITemToCraft)+'');
  GameTab(4);
  LoadDTMs;
  case Lowercase(WhichLeather) of
    'hardleather': ThaLeather := HardLeather;
    'softleather': ThaLeather := SoftLeather;
  end;
  wait(1000+random(500));
  if (FindDTM(Needle, x, y, MIX1, MIY1, MIX2, MIY2)) then
    Mouse(x, y, 3, 2, True);
  if (FindDTM(ThaLeather, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    Mouse(x, y, 3, 2, false);
    if chooseoption('eather') then
    begin
      writeln('//crafting ' + (whichleather));
      if (whichLeather='softleather') then
      begin
        choose;
        PickXAndY;
        wait(1000+random(500))
        MMouse(XItem,YItem,10,15);
        Mouse(XItem,YItem,10,15,false);
        if chooseoption('ll') then
        repeat
           wait(100+random(50));
           if ClickToContinue then
           begin
             Wait(50+random(50));
             ClickToContinue;
             GetSkillStartEnd('crafting',False);
             ClickToContinue;
             gametab(4);
             if (not(FindDTM(ThaLeather, x, y, MIX1, MIY1, MIX2, MIY2))) then break;
             Choose;
             PickXAndY;
             FindNeedleAndLeather;
             MMouse(XItem,YItem,10,15);
             Mouse(XItem,YItem,10,15,false);
             ChooseOption('ll');
           end;
           until (not(FindDTM(ThaLeather, x, y, MIX1, MIY1, MIX2, MIY2)));
       end;
    end;
  end;
  BankAndWithdraw;
end;


{===============================================]
     this is my proggy            by: me
[===============================================}

procedure proggy;
begin
  WriteLn('//////////////////////////////////////////////////////////////');
  WriteLn('//   Thanks for using my HideTanner and Leathercrafter.     //');
  WriteLn('//                post Proggy,s and bugs.                   //');
  WriteLn('//////////////////////////////////////////////////////////////');
  WriteLn('// Ran for ' + (timerunning) + '                                        ');
  WriteLn('// Did ' + inttostr(load) + ' load(s) out of ' + inttostr(Players[CurrentPlayer].Integers[0]) + ' loads set on this player ');
  WriteLn('// You started with crafting level : ' + inttostr(startskill) + '');
  WriteLn('// You ended with crafting level   : ' + inttostr(startskill) + '');
  WriteLn('//////////////////////////////////////////////////////////////');
end;
 {==============================================================]
    clicks the tanroom the scar noob reminded me of this  by:me
[===============================================================}//i tried findsymbol before didnt work out and

function ToTanRoom: boolean; //the scar noob reminded me of this so i tried again(works)
begin
  if not LoggedIn then Exit;
  if findsymbol(x, y, 'tanner') then
  begin
    result := true
      Mouse(x + 10, y + 5, 6, 6, True);
    Flag;
  end else
    logout;
  exit;

end;
{===================================================]
   clicks the bank used in tobank; look down. by:me
[===================================================}

procedure bankclick;
begin
  if not LoggedIn then Exit;
  GetCactusColor;
  RadialRoadWalk(CactusColor, 150, 270, 65, -30, +10);
  Flag;
  wait(500+random(250));
end;
{==========================================================================]
  clicks-down towards the bank and uses bankclick to click the bank bye:me
[==========================================================================}

procedure ToBank;
begin
  if not loggedin then exit;
  setrun(true);
  LoadRoadDDtms;
  if (FindDTM(AlKharidDTM, x, y, MMX1, MMY1, MMX2, MMY2)) then
  begin
    MouseFlag(x-22, y+17, 2, 3);
    Writeln('//Walking to bank 1.');
    bankclick;
  end;
  FreeDTM(AlKharidDTM);
end;
{===============================================================]
    this finds the dtm used to tan the hides    by: me
[==============================================================}

function FindHideText: Boolean;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  loaddtms;
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1
      if (FindDTM(HideText, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y - 10, 0, 0, False);
      Result := True;
      break;
    end;
  until (LoopInteger >= 15)
  wait(1000+random(500));
  FreeDTM(HideText);
end;

{===============================================]
    takes the hides from the bank    by:me
[===============================================}

procedure GetHides;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  loaddtms;
  MakeCompass('N')
    HighestAngle;
  GetSkillStartEnd('crafting', True);
  Wait(1 + random(2));
  OpenBankFast('akb');
  Wait(10 + random(5));
  FixBank;
  Deposit(2, 28, 2);
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1;
    if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        WriteLn('//Taking Hides from Bank.');
        CloseBank;
        findtalk;
        Wait(500 + Random(100));
        Load := load + 1
          break;
      end;
    end;
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    exit;
  end;
  makecompass('N')
    FreeDTM(CowHide);
end;

{===============================================================================================================]
   when the player logs in it only need 1 time coins so i made this to use it 1 time each player     by:me
[===============================================================================================================}

procedure GetCoinsAndHides;
var
  LoopInteger: Integer;

begin
  if not LoggedIn then Exit;
  LoadDTMs;
  HighestAngle;
  Cash := ((Players[CurrentPlayer].Integers[0]) * 81);
  Wait(1 + random(2));
  OpenBankFast('akb');
  Wait(10 + random(5));
  FixBank;
  depositall;
  LoopInteger := 0;
  Coin := DTMFromString('78DA637CC5C0C0709001057C3B21CBF01F483' +
    '302F17F2060BC0B64EC6140038C482490BE03244E1250F31348EC' +
    '2742CD19FC6A0078830F4B');
  repeat
    LoopInteger := LoopInteger + 1
      if (FindDTM(Coin, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Wait(100 + Random(50));
      Mouse(x, y, 0, 0, False);
      Wait(100 + Random(50));
    end;
    if (ChooseOption('X')) then
    begin
      Wait(1000 + random(100));
      WriteLn('//taking money from bank');
      TypeSend(inttostr(cash));
      break;
    end;
    Wait(1000 + random(500));
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    Exit;
  end;
  LoopInteger := 0;
  repeat
    Wait(50 + Random(50));
    LoopInteger := LoopInteger + 1;
    if (FindDTM(CowHide, x, y, MSX1, MSY1, MSX2, MSY2)) then
    begin
      Mouse(x, y, 5, 5, false);
      if (ChooseOption('ll')) then
      begin
        WriteLn('//Taking Hides from Bank.');
        CloseBank;
        findtalk;
        break;
        Wait(500 + Random(100))
      end;
    end;
  until (LoopInteger >= 10)
    if (LoopInteger >= 10) then
  begin
    Logout;
    exit;
  end;
  FreeDTM(Coin);
  FreeDTM(Cowhide);
  MakeCompass('N');
end;


{===============================================]
    one of the walkings to the hidetanner
[===============================================}

procedure WalkingOne;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 1');
  SetRun(True);
  GetCactusColor;
  RadialRoadWalk(CactusColor, 50, 120, 60, 1, -30);
  Flag;
  ToTanRoom;
end;


{===============================================]
    one of the walkings to the hidetanner
[===============================================}

procedure WalkingTwo;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 2');
  SetRun(True);
  if FindColorTolerance(x, y, RockColor, MMX1, MMY1, MMX2, MMY2, 25) then
  begin
    Mouse(x + 20, y -10, 0, 0, true);
    flag;
    wait(1000);
    ToTanRoom;
  end;
end;
{===============================================]
    one of the walkings to the hidetanner
[===============================================}

procedure WalkingThree;
begin
  if not LoggedIn then Exit;
  WriteLn('//To Hide Tanner Walking 3');
  SetRun(True);
  GetCactusColor;
  RadialWalk(CactusColor, 50, 120, 60, 2, -30);
  Flag;
  ToTanRoom;
end;

{===============================================]
    chooses one of the walkings above by:me
[===============================================}

procedure ToHideTanner;
begin
  if not LoggedIn then Exit;
  case Random(3) of
    0: WalkingOne;
    1: WalkingTwo;
    2: WalkingThree;
  end;
end;

{===============================================]
    talks to ellis and tans teh hides bye:Me
[===============================================}

procedure TalkToEllis;
begin
  repeat
    FindTalk;
    Wait(500+ Random(50));
    if FindObjCustom(x, y, ['llis', 'alk'], [5076433, 4285618], 10) then
    begin
    Mouse(x, y, 1, 1, false);
      if ChooseOption('ade') then
      begin
        WriteLn('//Trading To Ellis');
        Wait(3000 + Random(1000));
      end;
    end;
  until (FindHideText)
    if ChooseOption('ll') then
    closebank;
end;

{===============================================]
    this does all the normal stuff  :) by:me
[===============================================}

procedure SetupClient;
begin
  ActivateClient;
  wait(1);
  DeclarePlayers;
  wait(1);
  LoginPlayer;
  wait(1 + random(50))
end;

{====================]
      Main-Loop
[====================}
begin
  SetUpSRL;
  SetUpClient;
  loaddtms;
  if TanCowhides then
  begin
    repeat
      GetCoinsAndHides;
      repeat
        ToHideTanner;
        TalkToEllis;
        ToBank;
        Gethides;
        proggy;
      until ((Load >= Players[CurrentPlayer].Integers[0]) or (not (LoggedIn)))
        Loads := 0;
      if (Load >= Players[CurrentPlayer].Integers[0]) then
      begin
        logout;
        NextPlayer(True);
      end else
      begin
        logout;
        NextPlayer(False);
      end;
    until (CurrentPlayer >= HowManyPlayers - 1)
  end;
  if CraftLeather then
      begin
        WithDrawCraftStuff;
        repeat
        GetSkillStartEnd('crafting',False);
        CraftingLeather;
        until ((Load >= Players[CurrentPlayer].Integers[1]) or (not (LoggedIn)))
        Loads := 0;
      if (Load >= Players[CurrentPlayer].Integers[1]) then
      begin
        logout;
        NextPlayer(True);
      end else
      begin
        logout;
        NextPlayer(False);
      end;
      end;
end.

ps.option to hardleather is impossible now i am only 24 craft. so sorry guys ;) test it!

From: n3ss3s
Naa, I wouldnt take the post count as in ++, because we dont want to encourage spamming, right?

loool, you Mister, are probably the last person that can talk about spamming, rofl

got anything to say about ^^?

lol i arent spamming i just active i make 20 posts a day and its not spam(like this one :p)

hermpie

edit: dont use my script i just dont got few failsafes that it needs

loool, you Mister, are probably the last person that can talk about spamming, rofl

Wtf stfu go to BBQ and read the thread by me -.-

HBTY.

Welcome.