SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Only SCAR

Other Communitys
SRL-Forums

How Long have You Played Runescape
5 years.

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

Hellllooooo, My name is Eerik. I'm 14 years old. :) Getting 15 on the 21st of February. I live in Estonia. Well, I've been learning SCAR for only about 2-3 weeks, mostly on weekends, because i do sports, too. :) I'm giving my best to learn scripting, and i learn fast and i want to learn! It was like, i didn't go to school for 3 days, i was studying scripting, (first days), it was like SO exciting. I'm peaceful person and i love joking. ;) I love this community, all these people, you guys are so cool. :) So i wanna be 1 of you. :)
Eerik.

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

program HeavenzRegularTreePwnzor;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
{.include srl/srl/misc/trade.scar}
var

  i, x, y, MadeRespond, Loads: Integer;
  NumberOfRegularTrees, NumberOfTrees: Integer;
  First: Boolean;

const
  YourSRLId = '';
  YourSRLPassword = '';
  Version = '0.1';

procedure DeclarePlayers;
begin
  CurrentPlayer := 0;
  NumberOfPlayers(3);

  Players[0].Name := ''; //Your username between ''
  Players[0].Pass := ''; //Your password between ''
  Players[0].Nick := ''; //Nickname from you username between ''
  Players[0].Active := True; //Active->True or False.
  Players[0].Integers[0] := 1; //Loads to do.
  Players[0].Strings[0] := ''; //Your Pin here if have any.

  Players[1].Name := ''; //Your username between ''
  Players[1].Pass := ''; //Your password between ''
  Players[1].Nick := ''; //Nickname from you username between ''
  Players[1].Active := True; //Active->True or False.
  Players[1].Integers[0] := 1; //Loads to do.
  Players[1].Strings[0] := ''; //Your Pin here if have any.

  Players[2].Name := ''; //Your username between ''
  Players[2].Pass := ''; //Your password between ''
  Players[2].Nick := ''; //Nickname from you username between ''
  Players[2].Active := True; //Active->True or False.
  Players[2].Integers[0] := 1; //Loads to do.
  Players[2].Strings[0] := ''; //Your Pin here if have any.in

end;

procedure FindRandoms;
begin
  FindNormalRandoms;
  if (FindFight) then
  begin
    RunAway('n', false, 1, 10000 + random(5000));
    FTwait(20 + random(10));
  end;
end;

procedure Sig;
begin
  ClearDebug;
  writeln(' Hello!');
  wait(1000 + random(1001));
  writeln('    My Regular Tree Pwnz0r.');
  wait(1000 + random(1001));
  writeln('         Brought to you by Heavenzeyez1:) ,');
  wait(1000 + random(1001));
  writeln('  Hope U''re going to like it. :)');
  wait(3000 + random(1001));
  writeln(' _   _                                                            ')
    writeln('( ) ( )                                                           ')
    writeln('| |_| |   __     _ _  _   _    __    __       ____                ')
    writeln('|  _  | / __`\ / _` )( ) ( ) / __`\/  _ `\   (_  ,)               ')
    writeln('| | | |(  ___/( (_| || \_/ |(  ___/| ( ) |    / /_                ')
    writeln('(_) (_)`\____)`\__,_)`\___/ `\____)(_) (_)   (____)               ')
    wait(2000 + random(1000));
  writeln(' _____                        ___                             __         ');
  writeln('(_   _)                      (  _`\                         /  _`\       ');
  writeln('  | | _ __   __     __       | |_) ) _   _   _   ___   ____ | ( ) | _ __ ');
  writeln('  | |(  __)/ __`\ / __`\     | ,__/ ( ) ( ) ( )/  _ `\(_  ,)| | | |(  __)');
  writeln('  | || |  (  ___/(  ___/     | |    | \_/ \_/ || ( ) | / /_ | (_) || |   ');
  writeln('  (_)(_)  `\____)`\____)     (_)    `\___x___/ (_) (_)(____)`\___/ (_)   ');
  Wait(4000);

end;

function SearchAxe1: Boolean;
var
  x, y, DTMAxe: integer;
begin
  if (not (LoggedIn)) then exit;
  DTMAxe := DTMFromString('78DA63DCCDC4C0B09791011974660831FC07D' +
    '220D1FF40C07800A86623AA1A882C8C04D23B806A4E1150B30DA8' +
    'E6380135BB806A761150B39708F7EC07AAD9815F0D00F3891069');
  begin
    GameTab(4);
    wait(500 + random(501));
    if FindDTM(DTMAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      Result := True;
      writeln('axe in bag.');
    end
    else
    begin
      Result := False;
      writeln('axe not in bag.');
    end;
  end;
  FreeDTM(DTMAxe);
end;

function SearchAxe2: Boolean;
var
  x, y, DTMAxe: Integer;
begin
  if (not (LoggedIn)) then exit;
  DTMAxe := DTMFromString('78DA63DCCDC4C0B09791011974660831FC07D' +
    '220D1FF40C07800A86623AA1A882C8C04D23B806A4E1150B30DA8' +
    'E6380135BB806A761150B39708F7EC07AAD9815F0D00F3891069');
  begin
    GameTab(5);
    wait(500 + random(501));
    if FindDTM(DTMAxe, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      Result := True;
      writeln('axe wielded.');
    end
    else
    begin
      Result := False;
      writeln('axe not wielded.');
    end;
  end;
  Freedtm(DTMAxe);
end;

procedure Check4Axe;
begin
  if not (LoggedIn) then exit;
  if not (SearchAxe1) and not (SearchAxe2) then
  begin
    LogOut;
    writeln('didn''t find any axe.')
  end
  else
  begin
    writeln('All clear got axes.');
  end;
end;

function CheckIfAxeIsBroken: Boolean;

var
  x, y, BrokenAxeDTM: Integer;

begin
  BrokenAxeDTM := DTMFromString('78DA636C616260E0636440061D697C601A26C' +
    'AD80354C38FAA06260B57D30754C34D404D2F508D080135CD4035' +
    '5C04D4D400D5A8E05703008C0604B4');
  GameTab(4);
  Wait(200 + random(100));
  if FindDTM(BrokenAxeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    Result := True;
    LogOut;
  end;
  FreeDTM(BrokenAxeDTM);
end;

procedure AutoResponder;
var
  WcText: array of string;
  i: Integer;
begin
  SetArrayLength(WcText, 3);
  WcText[0] := 'wc';
  WcText[1] := 'lvl';
  WcText[2] := 'wc lvl';
  for I := 0 to 2 do
    if InChat(WcText[i]) then
      if not FindBlackChatMessage(players[currentplayer].nick) then
      begin
        Typesend('My wc lvl is ' + inttostr(GetSkillInfo('woodcutting', false)));
        MadeRespond := MadeRespond + 1;
        Break;
      end;
end;

procedure AutoTrader;
begin
  if (SomeoneTrades) then
  begin
    AcceptTrade;
    Wait(4000 + random(1000));
    Decline;
    Trades := Trades + 1;
    case random(10) of
      0: Typesend('Maybe later.');
      1: Typesend('No thanks, my friend.');
      2: Typesend('Nvm.');
      3: Typesend('I never needed that.');
      4: Typesend('Thanks for offering.');
      5: Typesend('You are so cool with your things.');
      6: Typesend('Go and sell these to some1 else.');
      7: Typesend('Sorry I already have it.');
      8: Typesend('Leave me alone.');
      9: Typesend('Nice.');
    end;
  end;
end;

procedure HoverToSkill;
begin
  if (not (LoggedIn)) then exit;
  case Random(20) of

    0: HoverSkill('Woodcutting', false);
    1: HoverSkill('Mining', false);
    2: HoverSkill('Runecrafting', false);
    3: HoverSkill('Magic', false);
    4: HoverSkill('Smithing', false);
    5: HoverSkill('Strenght', false);
    6: HoverSkill('Attack', false);
    7: HoverSkill('Defence', false);
    8: HoverSkill('Hitpoints', false);
    9: HoverSkill('Firemaking', false);
    10: HoverSkill('Crafting', false);

  end;
end;

procedure RandomTalk;
begin
  if (not (LoggedIn)) then exit;
  case Random(50) of

    0: Typesend('We love chopping trees.');
    1: Typesend('Hello.');
    2: Typesend('Hello ppl.');
    3: Typesend('Hello fellos.');
    4: Typesend('I''m Woodcutting.');
    5: Typesend('I''m so happy.');
    6: Typesend('Do you know Fred?');
    7: Typesend('Can i have yor logs?');
    8: Typesend('I have extremly great marks at school.');
    9: Typesend('Do you love Runescape?(i do)');
    10: Typesend('Can you speak english?');
    11: Typesend('My favourite color is red.'); //pane 12-30 ka sama rea peale
    12: Typesend('I''m bored.');
    13: Typesend('I''m tired.');
    14: Typesend('I''m lazy.');
    15: Typesend('My fingers hurt already.');
    16: Typesend('I want to sleep!');
    17: Typesend('I will must finish playing soon.');
    18: Typesend('My father wants to get to the internet.');
    19: Typesend('We love runescape.');
    20: Typesend('WC lvl?');
    21: Typesend('WC lvls?');
    22: Typesend('Woodcuttin lvl?');
    23: Typesend('Woodcutting lvls?');
    24: Typesend('I want candy.');
    25: Typesend('I ate candy last time 5 days ago.');
    26: Typesend('I must go to shop.');
    27: Typesend('My father is insener.');
    28: Typesend('Do u beleave in ghosts?');
    29: Typesend('Have u met Santa?');
    30: FTWait(4);

  end;
end;

procedure ChopLogs;
var
  x, y, ChopStart, EntFound: Integer;
begin
  repeat
    if (not (LoggedIn)) then Exit;
    if InvCount = 28 then Exit;
    FindRandoms;
    AutoTrader;
    AutoResponder;
    Wait(500 + random(500));
    if FindObjCustom(x, y, ['Tree', 'ree'], [1801068, 1331530], 3) then
    begin
      Mouse(x, y, 0, 0, True);
      GetMousePos(x, y); //annab scarile teada, kus hiir on.
      FFlag(0); //enne ei tee midagi kuni lipp ära kaob.
      MarkTime(ChopStart); //märgib ära puu klikkamise aja. käivitab aja.
      repeat //kui leiab puu, aga ei kliki, ja leiab ka endi
        if FindEnt(x, y, True) then
        begin
          FindRandoms;
          EntFound := EntFound + 1;
        end;
        FindRandoms;
        FTWait(1); //otsib viimaselt realt.
        if FindBlackChatMessage('cutting level of') then break;
        Wait(250);
        if FindBlackChatMessage('have an axe') then
          Break;
        FTWait(1);
      until (not LoggedIn) or (not IsUpText('hop')) or (TimeFromMark(Chopstart) > (15000 + random(10000)));
    end;
  until (InvFull) and (InvCount = 28) or (not LoggedIn);
end;
//invcount-> asjad palju invis on.

procedure AntiBan;
begin
  if (not (LoggedIn)) then exit;
  case random(15) of
    0: SetRun(true);
    1: wait2(3000 + random(2000), true);
    2: RandomMovement;
    3: AlmostLogout;
    4: PickUpMouse;
    5: BoredHuman;
    6: HoverSkill('woodcutting', false);
    7: HoverSkill('random', false);
    8: RandomTalk;
    9: HoverToSkill;
    10: DoEmote(1 + random(30));
  end;
end;

function FindTrees: Boolean;
var
  x, y: Integer;
begin
  if not (LoggedIn) then exit;
  if FindObjCustom(x, y, ['Tree', 'ree'], [5277052, 2572095], 7) then
    Result := FindObjCustom(x, y, ['Tree', 'ree'], [5277052, 2572095], 7);
end;

function WalkUpToTrees: Boolean;
var
  x, y,FailSafe: Integer;

begin
  SetRun(false);
  SetAngle(true);
  MakeCompass('n');
  SymbolAccuracy := 0.5;
  if FindSymbol(x, y, 'bank') then
    if Distance(x, y, MMCX, MMCY) < 20 then
      if RadialRoadWalk(FindVarrockRoadColor, 20, 135, 65, 0, 0) then
        if RadialRoadWalk(FindVarrockRoadColor, 80, 100, 30, 0, 0) then
          if RadialRoadWalk(FindVarrockRoadColor, 80, 100, 30, 0, 0) then
            if RadialWalk(FindRockColor, 310, 390, 70, 0, 0) then
            begin
              FFlag(0);
              MakeCompass('50');
              Mouse(621, 35, 0, 0, true);
              FFlag(0);
              Wait(400 + random(200));
              SetAngle(true);
              MakeCompass('n');
              SetRun(true);
              if FindTrees then
              begin
                Result := True;
                Writeln('I''m at the trees.');
                SymbolAccuracy := 0.8;
              end
              else
                LogOut;
            end;
end;



function WalkBackToBank: Boolean;
var
  x, y: Integer;
begin
  SetAngle(true);
  MakeCompass('n');
  SetRun(true);
  if RadialWalk(FindRockColor, 90, 180, 72, 0, 0) then
    if RadialRoadWalk(FindVarrockRoadColor, 180, 270, 70, 0, 0) then
      if RadialRoadWalk(FindVarrockRoadColor, 245, 295, 30 + random(20), 0, 0) then
      begin
        SymbolAccuracy := 0.5;
        if not FindSymbol(x, y, 'bank') then LogOut;
        begin
          Mouse(x, y, 0, 0, true);
          Result := True;
          Writeln('I made it to the bank.');
        end;
        SymbolAccuracy := 0.8;
      end;
end;

procedure HowManyTrees; //Idea by Osmm, edited for me. :)
var
  NumberOfTrees: byte;
  TreeDTM: integer;
begin
  TreeDTM := DTMFromString('78DA633CC1C4C0B09F91011914459830FC07D' +
       '220D1FF40C0B81FA8662BAA1A882C8C04D2E7816A3611507319A8' +
       'E628013507816A4E1150B31DA8E6107E3500C64C0F35');
  if not LoggedIn then Exit;
  GameTab(4);
  NumberOfTrees := CountItemsDTM('inv', TreeDTM);
  Writeln('Got ' + inttostr(numberoftrees) + ' trees this time.');
  IncEx(NumberOfRegularTrees, NumberOfTrees);
  IncEx(ReportVars[1], NumberOfTrees);
  IncEx(ReportVars[2], Round(25 * NumberOfTrees));
  FreeDTM(TreeDTM);
end;

procedure BankingTreesATM;
var
  x, y, Loads: Integer;
begin
  Wait(3000);
  if not (LoggedIn) then Exit;
  SymbolAccuracy := 0.5;
  if (FindSymbol(x, y, 'bank')) then
    Mouse(x, y, 2, 2, true);
  Flag;
  Writeln('found bank.');
  SetAngle(false);
  MakeCompass('s');
  repeat
    OpenBankQuiet('veb');
  until (PinScreen) or (BankScreen);
  repeat
    if PinScreen then
      Writeln('found pinscreen, trying to resolve');
    InPin(players[currentplayer].Strings[0]);
  until (BankScreen) or not (LoggedIn);
  Writeln('pin entered');
  if (BankScreen) then
  begin
    HowManyTrees;
    FixBank;
    if SearchAxe1 then
      Deposit(2, 28, 2)
    else
      Deposit(1, 28, 2);
    CloseBank;
    Writeln('things banked.');
    SetAngle(true);
    MakeCompass('n');
    SymbolAccuracy := 0.8;
  end;
end;

procedure AfterBank;
begin
  Loads := Loads + 1;
  Inc(reportvars[0]);
  Writeln('ready to go for a new load.');
end;

procedure ProgressReport;
begin
  SrlRandomsReport;
  Writeln('========================');
  Writeln('Heavens''s RegularTreePwnaz0r v' + version);
  Writeln('Worked:' + timerunning);
  Writeln('Banked ' + inttostr(Loads) + ' loads.');
  Writeln('Gained ' + IntToStr(Round(25 * numberofregulartrees)) + ' exp.');
  Writeln('Chopped ' + IntToStr(numberofregulartrees) + ' logs.');
  Writeln('Talked ' + inttostr(MadeRespond) + ' times to other ppl.');
  Writeln('Made ' + inttostr(Trades) + ' trades.');
  Writeln('Please post proggies at my script homepage.');
  Writeln('========================');
end;

function SwitchPlayers: Boolean;
begin
  if Loads = Players[CurrentPlayer].Integers[0] then
  begin
    Result := True;
    WriteLn('Loads done.');
    Loads := 0;
  end;
end;

procedure PlayerSetup;
var
  LvlComment, WCLvl: Integer;
begin
  LoginPlayer;
  Wait(2000 + random(1000));
  SetAngle(true);
  MakeCompass('n');
  FindRandoms;
  Check4axe;
  First := True;
  if LoggedIn then
  begin
    WCLvl := GetSkillInfo('woodcutting', false);
    if WCLvl > 0 then
      Writeln('Wc lvl = ' + inttostr(wclvl))
    else
    begin
      Writeln('Error with getting wc lvl.');
      LogOut;
    end;
    if LoggedIn then
      for LvlComment := 0 to 3 do
        case LvlComment of
          0:
            begin
              if (WCLvl > 0) and (WCLvl < 15) then
                Writeln('Uhh, you can''t even cut oaks with wc lvl of' + inttostr(wclvl));
            end;
          1:
            begin
              if (WCLvl > 14) and (WCLvl < 30) then
                Writeln('Pretty nice WC, best for chopping oaks, or ' + inttostr(wclvl) + ' isn''t enough for you? =]');
            end;
          2:
            begin
              if (WCLvl > 29) and (WCLvl < 60) then
                Writeln('Nice WC level,' + inttostr(60 - wclvl) + ' levels more and you''re ready for yews!');
            end;
          3:
            begin
              if (WCLvl >= 60) then
                Writeln('Dude, you should chop yews, not use this stupid Pwnz0r...Wow, ' + inttostr(wclvl) + ' WC');
            end;

        end;
  end;
end;

begin
  SRLId := YourSRLId;
  SRLPassword := YourSRLPassword;
  SetupSRL;
  ScriptID := '633'; //633 on mu scripti ID.
  DeclarePlayers;
  Sig;
  repeat
    PlayerSetup;
    repeat
      Disguise('Done ' + inttostr(NumberOfRegularTrees) + ' Logs so far.');
      begin
        if WalkUpToTrees then
        begin
          AntiBan;
          ChopLogs;
          if WalkBackToBank then
          begin
            AntiBan;
            BankingTreesATM;
            AntiBan;
            AfterBank;
            ProgressReport;
          end;
        end;
      end;
    until (not LoggedIn) or (SwitchPlayers);
    NextPlayer(LoggedIn);
  until False;
end.

This is my brand new script, maybe some bugs in it. :)
Eerik.

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

Yes. A good guy, nice script, definite yes from me.

Thanks, :)
Eerik.

Yes^^…Failsafes, failsafes, failsafes…but he's quick learner

From: Negaal
Yes^^…Failsafes, failsafes, failsafes…but he's quick learner

I'm working on them, ;)
Thanks, :)
Eerik.

Actuly very good but i have to say ….. YES!

was the 1st yes but didn't post :p
nice script, and fast learned. gl with you're future scripts ;)

pssst, in search axe to you did the dtm right, in HowManyTrees; you didn't :p

Yes from me.. Lots of things to work on especially failsafes as negaal pointed out but definately getting there..

No.

@ RikJess, what is wrong in HowManyTrees?:) Thanks!
@ n1keee, Thanks!
@ PriSoner, working on them. ;) Thanks!
Eerik.

I'm not gonna vote, but a sidenote -

You do not want to use 0.5 Symbol Accuracy.

From: n3ss3s
I'm not gonna vote, but a sidenote -

You do not want to use 0.5 Symbol Accuracy.

And why not?:O
To me it seems working perfect, 0.4 gets lost, i tried. :)
Eerik.

Hell yea 0.4 gets lost, it recognizes like

,_
[}}

as a symbol xD

0.8 is the default (AFAIK?), and should work properly, if not, start lowering by 0.05's to maximize accuracy results :)

From: n3ss3s
Hell yea 0.4 gets lost, it recognizes like

,_
[}}

as a symbol xD

0.8 is the default (AFAIK?), and should work properly, if not, start lowering by 0.05's to maximize accuracy results :)

Thanks, ;)
Eerik.

From: heavenzeyez1
@ RikJess, what is wrong in HowManyTrees?:) Thanks!

you have to find out you're self :p
the different in declaring the dtm those 2 functions.

Use symbol acurracy 0.1
lol Just see what happens.

From: NaumanAkhlaq
Use symbol acurracy 0.1
lol Just see what happens.

I think it will click to a random place? :)
Eerik.

From: NaumanAkhlaq
Use symbol acurracy 0.1
lol Just see what happens.

Rather than posting useless shit it'd be cool if you posted why the no vote..

Lol Gof I didn't vote no! Symbol accuracy 0.05 is the best :)
I'll get nielsie to check!

From: NaumanAkhlaq
Lol Gof I didn't vote no! Symbol accuracy 0.05 is the best :)
I'll get nielsie to check!

0.05? Rofl?
Eerik.

0.05 is dead accurate I think. Anyway yes. Your a great scripter and a fast learner too.

Yes. Is a nice person, and has the required skills to get in.

From: NaumanAkhlaq
Lol Gof I didn't vote no! Symbol accuracy 0.05 is the best :)
I'll get nielsie to check!

:confused: Why'd you post "No." then w/o any reason.

From: GoF
:confused: Why'd you post "No." then w/o any reason.

you're always confused..:duh:

NextPlayer(LoggedIn);

^ sexy!

yes from me.

Thank you all! :)
Eerik.

From: Hugolord
you're always confused..:duh:

Atleast, unlike you, my iq. is higher than 65, retard.

ooops min0r beefage

From: NaumanAkhlaq
Use symbol acurracy 0.1
lol Just see what happens.

Symbol accuracy as 0.1 still finds symbols. I used it in my Karamja fisher to find the fishing spot, since the fishing symbol is the only symbol on the minimap. Finds it every time…

Welcome sir.