hermpie,s auto cowhidetanner v 0.1 beta

hermpie,s auto cowhidetanner

version number : 0.1 beta

Features
-multiplayer
-takes all stuff from bank
-good failsafes
-DDTM used (i am so proud:))
-good stuff


Added in next version
-crafting option(almost finished)
-option to tan soft leather to
- if people request stuff i do it
-big update:)

credits
-n3ss3s for: helping me learning scripting and if i had questions i could always ask it
-derek for: almost the same
-the devs for: for srl include
-everyone who helped me for: everyhting

post proggy,s and bugs, thank you!

attach pl0x

yeah i click to fast on the post button and then i dont closed the upload file screen and then it wont add:( but now you can get it

woah looks pretty good in a couple of weeks apply again and i think u will get in

Thanks,
Its not so hard to add a crafting procedure.
So i will do that fast.
But should i make it a part of this script or make a other script for it?
to reduce lagg

hermpie

nice stuff, you wanne see a lil piece of mine I'm making?

EDIT: This is my FindEllis function:

SCAR Code:

function FindEllis: boolean;
var
  EllisTimer: longint;
  c, tol: integer;
begin
  MakeCompass('n');
  if not(LoggedIn)then Exit;
  c:= 1
  ColorTolerancespeed(2)
  repeat
    tol:= 10
    if (FindObjCustom(x, y, ['lli', 'lis', 'llis'], [5142743, 4813002, 4680899], tol))then
    begin
      Mouse(x, y, 0, 0, false);
      if not(ChooseOption('rade')) then FindEllis;
      repeat
        MarkTime(EllisTimer);
        Wait(300)
        TanningWindow
      until TanningWindow or (TimeFromMark(EllisTimer)>10000)
      if TanningWindow then
      begin
        Writeln('Trading with Ellis!');
        result:= true;
        Exit;
      end else
      if not(TanningWindow) then
      begin
        Writeln('We could not mannage to trade with Ellis.');
        result:= false;
        Exit;
      end;
    end else
    begin
      Writeln('Did not find Ellis ['+inttostr(c)+'/5].');
      tol:= tol+c
    end;
    c:= c+1
  until (c>5) or (result=true)
  if not(result) then Writeln('Could not find Ellis at all!');
  ColorTolerancespeed(1)
end;

you using 3 colors and 3 times a piece of text but mine works always to..

Quote:

---

Originally Posted by hermpie

you using 3 colors and 3 times a piece of text but mine works always to..

---

I'm using autocolor too

aw thats mean :mad: i dont know how to use it :mad:

Quote:

---

Originally Posted by hermpie

aw thats mean :mad: i dont know how to use it :mad:

---

pmed you what, but HSL an dstuff is diff I used ACA, but Sandcolor is changing all the time

This is how I find Ellis in my tanner

SCAR Code:

Ellis[1]:= 4681158;
  Ellis[2]:= 5472230;
  Ellis[3]:= 3692188;
  Ellis[4]:= 3758498;

Function TanAll:Boolean;
var Dmx, Dmy, Ax, Ay, x, STime, ETime,TTime: integer;
begin
  MarkTime(STime);
  repeat
    for x:=1 to 4 do
    begin
      if not LoggedIn then Exit;
      MarkTime(ETime);
      if FindColorTolerance(Ax, Ay, Ellis[x], MSX1, MSY1 + 20, MSX2, MSY2, 5) then
      begin
        MMouse(Ax, Ay, 0, 0);
        GetMousePos(Ax, Ay);
        Wait(50);
        if FindColorTolerance(Dmx, Dmy, 318168, 42, 8, 120, 21, 50) then  // Yellow
        begin
          if IsUpText('l') then
          begin
             Mouse(Ax, Ay, 0, 0, False);
            if not Chooseoption('Trade') then break;
            MarkTime(TTime);
            Repeat
              FlagFTWait;
              WWait(1000);
              if TimeFromMark(TTime) > 15000 then
              begin
                Break;
              End;
            Until TanScreen;
            Mouse(75, 90, 20, 30, False);
            Wait((1000)+Random(250));
            ChooseOption('All');
            TanHides := TanHides + 27;
            ReportVars[0]:=27;
            Result := True;
            Exit;
          end
        end
      end;
    end;
    Wait(100);
    if ETime-STime > 20000 then
    begin
      Mouse(MSCX,MSCY + 50, 2, 2, True);  // crude callib trying to find Ellis
    end;
    x := 1;
  until(ETime-STime > 55000);
end;

you using coords! i using a dtm i got more randomness then wt-fawaki woot :P

Quote:

---

Originally Posted by WT-Fakawi

This is how I find Ellis in my tanner

SCAR Code:

Ellis[1]:= 4681158;
  Ellis[2]:= 5472230;
  Ellis[3]:= 3692188;
  Ellis[4]:= 3758498;

Function TanAll:Boolean;
var Dmx, Dmy, Ax, Ay, x, STime, ETime,TTime: integer;
begin
  MarkTime(STime);
  repeat
    for x:=1 to 4 do
    begin
      if not LoggedIn then Exit;
      MarkTime(ETime);
      if FindColorTolerance(Ax, Ay, Ellis[x], MSX1, MSY1 + 20, MSX2, MSY2, 5) then
      begin
        MMouse(Ax, Ay, 0, 0);
        GetMousePos(Ax, Ay);
        Wait(50);
        if FindColorTolerance(Dmx, Dmy, 318168, 42, 8, 120, 21, 50) then  // Yellow
        begin
          if IsUpText('l') then
          begin
             Mouse(Ax, Ay, 0, 0, False);
            if not Chooseoption('Trade') then break;
            MarkTime(TTime);
            Repeat
              FlagFTWait;
              WWait(1000);
              if TimeFromMark(TTime) > 15000 then
              begin
                Break;
              End;
            Until TanScreen;
            Mouse(75, 90, 20, 30, False);
            Wait((1000)+Random(250));
            ChooseOption('All');
            TanHides := TanHides + 27;
            ReportVars[0]:=27;
            Result := True;
            Exit;
          end
        end
      end;
    end;
    Wait(100);
    if ETime-STime > 20000 then
    begin
      Mouse(MSCX,MSCY + 50, 2, 2, True);  // crude callib trying to find Ellis
    end;
    x := 1;
  until(ETime-STime > 55000);
end;

---

cool looks great, however fawki this is only a finder and extremly under construction:)
However, I think I'l just stop scripting or something.

you are scared of me ;)

Quote:

---

Originally Posted by hermpie

you are scared of me ;)

---

No I'm not, it's just I dunno why I would make it though.

i was joking add me on msn:) your a funny guy

Quote:

---

Originally Posted by hermpie

i was joking add me on msn:) your a funny guy

---

I'm just not in the mood, sorry.

your parents gonna sel your computer/laptop then you got a good reason that your not in a good mood :p

back on topic pls! pls pots proggy,s or i remove it here

i am gonna remove it! if i dont get proggy's or feedbacksorry for double post

double poster!!!!!!!!!! im telling!!!!!!!!!!!! jk lol

W/E its outdated i got the newest version on my comp but no one post proggy's of my not working version ;)

:D Works great!!! I got no errors and didnt lag much. 2 thumbs up :D

hmm strange proggy?

//////////////////////////////////////////////////////////////
// Ran for 1 Minutes and 22 Seconds
// Did 0 load(s) out of 5 loads set on this player
// You started with crafting level : 0
// You ended with crafting level : 0
//////////////////////////////////////////////////////////////


theres a proggy for you, it missed ellie or whatever the guys name is, then just logged out.

it dosent work mate just stays open in bank window