SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
no

Other Communitys
no

How Long have You Played Runescape
a while

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

I have just started scripting, it was easier than i anticipated… and i was eschewed and there were some people saying I took it (I didn't see that one coming). So far only a few people believe i made the script.

Here is what one person said… and at first he didn't think i made it either…

From: lordgreggreg
Apply for members… I say ure ready.

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

{=========================================================================]
[                   Varrock Yew Chopper.                                  ]
[                                                                         ]
[           NAME        : Varrock Yew Chopper.                            ]
[           WRITER      : Omgwoot                                         ]
[           CATEGORY    : Woodcutting                                     ]
[           DESCRIPTION : Gathers Yews in East Varrock.                   ]
[           USAGE       : Yew gathering.                                  ]
[           AUTOCOLOR   : Yes                                             ]
[           NOTES       : Start in Varrock east bank.                     ]
[           CONTACT     : ...                                             ]
[           OTHER INFO  : Please inform me of any bugs.                   ]
[                                                                         ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Very Bright.                          ]
[ 2. Set your Screen to 32 bit TRUE color.                                ]
[ 3. Set Playernames and Passwords in DeclarePlayers.                     ]
[ 4. SET HOWMANYPLAYERS inside DeclarePlayers                             ]
[ 5. Make sure your character is in East Varrock Bank, in one of the      ]
[    bank booths towards the middle.                                      ]
[=========================================================================}

program Varrockyewchopper;

var boxx, symb, r1, yewcolor1, flagsx, color1, color2, px, py, tx, ty, grass, banker, logxs, entyew, axex, logx, cx, cy, xx, yy, integer2, rx, ry, p, grass, axe1, axe2, axe3, treec, logxs, loadsx, bankx, integer1, yewcolor : integer; whr, treeb, entt, treethere, whctr, woot, woot2, woot3, woot4, omg, ents, lowmsped: boolean; trees : string;
var
 TheChatText:String;
 ThePmText:String;
var
 Answers:Integer;
 Responds:Integer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/woodcutting.scar}

//******************** Set This Constant if Needed  **********************//

const StartPlayer         = 0;     // Determines who will play first
      Mspeed              = 12;    // Sets your mouse speed
      Dance               = true;  // Do you want to dance upon full inventory? I do.

//**********************RuneScape Constants*******************************//


//************************************************************************//
const VersionNumber       = 'Version 2.7B';      // Compliant with Rev 568+
//************************************************************************//

Procedure DeclarePlayers;
begin
     HowManyPlayers  :=6;               // Set Number of Players here.
     NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
     CurrentPlayer:=StartPlayer;        // CurrentPlayer = Array Index

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Loc  :='bank';
     players[0].integer1:=1;            // Loads to do
     Players[0].Active:=True;

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Loc  :='bank';
     players[1].integer1:=1;
     Players[1].Active:=True;

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Loc  :='bank';
     players[2].integer1:=1;
     Players[2].Active:=True;

     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Loc  :='bank';
     players[3].integer1:=1;
     Players[3].Active:=True;

     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Loc  :='bank';
     players[4].integer1:=1;
     Players[4].Active:=True;

     Players[5].Name :='';
     Players[5].Pass :='';
     Players[5].Nick :='';
     Players[5].Loc  :='bank';
     players[5].integer1:=1;
     Players[5].Active:=True;

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

end;

//************************************************************************//

function FindVRoadColor: Integer;     // From SRL Edited a little by me.
var
  GC, a, l, TestColor, Red, Green, Blue : integer;
var
  P:array of Tpoint;
begin
  GC := 7304312;
  Flag;
  FindColorsSpiralTolerance(x, y, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
  l:=GetArrayLength(P);
  for a:= 0 to l-1 do
  begin
    TestColor := GetColor(P[a].x, P[a].y);
    red := (TestColor mod 256);
    green := ((TestColor / 256) mod 256);
    blue := ((TestColor / 256) / 256);
    if Red - Blue <= 12 then if Red - Blue >= 8 then
      if Red - Green <= 6 then if Red - Green >= -1 then
        if Green - Blue <= 10 then if Green - Blue >= 4 then
          if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
            if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
              if GetColor(P[a].x, P[a].y + 5) = TestColor then
                if GetColor(P[a].x + 5, P[a].y) = TestColor then
                  if GetColor(P[a].x, P[a].y + 3) = TestColor then
                    if GetColor(P[a].x + 3, P[a].y) = TestColor then
                      if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
                        if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
                        begin
                          Result := TestColor;
                          Exit;
                        end;
  end;
  WriteLn('Could not find Varrock Road Color!');
  Result := 0;
end;

//************************************************************************//

procedure fdtmrotated(d,x1,y1,x2,y2:integer);
var
  dtmComp, x, y: Integer;
  a: Extended;
begin
  repeat
    FindDTMRotated(d, x, y, x1,y1,x2,y2, 0, 360, 0.01, a);
    mmouse(x,y,0,0);
  until
  FindDTMRotated(d, x, y, x1,y1,x2,y2, 0, 360, 0.01, a);
  mouse(x,y,0,0,true);
  flag;
end;

//************************************************************************//

procedure bitmapsdtms;
begin
  boxx := DTMFromString('78DA633CC5C4C0308B91011914646632A4006' +
       '990E87F2060BC0454D38FAA06220B23813448CD3C026A4E00D52C' +
       '21A0661711E61C06AAE921C29C29F8D5000054C10F62');
  symb := DTMFromString('78DA636C646260A8624001CAABB9194480342' +
       '310FF070246909A4A54359233D8E06A4080B109D31C0C352073AA' +
       '09A869206C0E00C0D10D11');
  yewcolor1 := DTMFromString('78DA634C60646038C5800222626CC0345086E' +
       '13F1000003E2A061A');
  flagsx := DTMFromString('78DA63AC63626030674001B1C682609A11CA6' +
       '7ACC554F31F2607A341E6B812610E9A9A63612CA86A2A816A6C09' +
       'D8554E849A1AA01A0B22D4D8E057030084C50D42');
  grass := BitmapFromString2(False, 'aB707278DAED8CC10DC02' +
       '00C03570A344EE89320B2FF48601EED08FDF473B2ACB34544726C' +
       '48B40D33234549B041CC37CFC34607CE5C1B4D800FC8B3AD3CF30' +
       '152B9F5386F793FD92B7D0B3AD6D994CEB79202F54BE7CFAFB800' +
       'E12');
  logxs := DTMFromString('78DA632C66626078CA80023C4C39192630323' +
       '00011C37F20602C04AAB9C38006189148209D0554F39E809A02A0' +
       '9A0F04D43400D5BC26A0A61EA8E60901353540350F09A8A906AAB' +
       '949404D3250CD73026AD2816A1EE0570300EB9212B3');
  entyew := DTMFromString('78DA63AC67646048654001CF5F71826946289' +
       'FB10EC84A4255F3F4393BAA9A1A202B0555CDB3571CA86A6A81AC' +
       '745435B76F31A3AA69C454F3F831C22E906AC656202B1955CDCD9' +
       'B8C986AD0CCB9718301554D3B7E3783D57412614E1766F83C7ECC' +
       '86AAA604C88A23E0AF724C7330EC2AC7E61E34BF5712B60B009EB' +
       '42570');
  banker := BitmapFromString2(False, 'a93DE478DA758E4B0E033' +
       '10843AF4468F8CCB249E0FE472A4EA4E974512F9E2CCB581011E5' +
       '2CD0F082AA82D441412223BE3E361D1D3178763445B020B96F196' +
       '33605ECB8B5B1D7F2BABD31FA3AD0D137125A60B3EEE66C2B23A3' +
       'BD408A9F64D6AF9C9275B94AF87D279BB1A29259A2A3763ACFE4A' +
       'C1DFF4CFEF1034BA');
  axex:= DTMFromString('78DA63F4636260B8CD80025C63D2181238191' +
       '81881ECFF40C0E80F547383010D302291403A08A8E6166E35601C' +
       '0C54738F809A40A09A0704D480DCF390801A5FA09AFB04D47803D' +
       '5DC25A0C6830835EE44D8E50654F384801A17A09A1704D43803D5' +
       'BC26A0C60EA8E60301354E4035EFA860972BFEB401C200A40E19A' +
       'A');
  logx := DTMFromString('78DA632C66626078CA80023C4C39192630323' +
       '00011C37F20602C04AAB9C38006189148209D0554F39E809A02A0' +
       '9A0F04D43400D5BC26A0A61EA8E60901353540350F09A8A906AAB' +
       '949404D3250CD73026AD2816A1EE0570300EB9212B3');
  r1 := DTMFromString('78DA636C616260706640015DAD0D0C22409A1' +
       '188FF0301632B508D3B6E3520C0D844849A36A01A2722CC21A406' +
       'E41E7B026A40FEF226C21C5B026A9A816A3C89B0CB95087FB9106' +
       '18E3D11EEB127229CAD89708F1701358D40353EF8D50000B2772A' +
       'E4');
end;

//************************************************************************//

procedure randomcompass;
var c : integer;  compstr : string;
begin
  case random(4) of
    0: makecompass('N');

    1: makecompass('E');

    2: makecompass('W');

    3: makecompass('S');
  end;
end;

//************************************************************************//

function omgx : boolean;
var omgz : boolean;
begin
  if FindObjMultiText(x, y, 'Yew', 'Cho', 'ee', 4690821, 5) then
  begin
    mmouse(x,y,0,0);
    tx:=x;
    ty:=y;
  omgz:= true;
  end else
  begin
    Result := not(FindObjMultiText(x, y, 'Yew', 'Cho', 'ee', 4690821, 3)) or FindObjMultiText(x, y, 'Yew', 'Cho', 'ee', 4690821, 3) = false;
    omgz:= false;
  begin
    if omgz = true then
  begin
    mmouse(tx,ty,0,0);
    result := isuptext('Walk') or isuptext('Tree');
  end;
  end;
  end;
  omgz:= false;
end;

//************************************************************************//

function omgx2 : boolean;
var omgz2 : boolean;
begin
  if FindObjMultiText(x, y, 'Yew', 'Cho', 'ee', 4690821, 5) then
  begin
    mmouse(x,y,0,0);
    tx:=x;
    ty:=y;
    omgz2:= true;
  end else
    omgz2:= false;
    if omgz2 = true then
  begin
    mmouse(tx,ty,0,0)
    result := isuptext('Walk') or isuptext('Tree')
  end else
    result := omgz2=false;
  begin
    omgz2:= false;
  end;
end;

//************************************************************************//

procedure ent;
Var ox, oy : integer;
Begin
  If FindObjMultiText(x, y, 'Yew', 'ew', 'Ye', 4690821, 3) then
  Begin
    MMouse(x, Y, 0, 0)
    if FindColorTolerance(x, y, 55769, 85, 15, 115, 15, 20) then
  Begin
    ents:= true;
    mouse(648, 83,0,0,true);
    wait(10000);
    players[currentplayer].integer2:= players[currentplayer].integer2+1;
  end;
  end;
end;

//************************************************************************//

procedure LeaveScreen;// the one from srl didn't work too well, so i made my own
var
  a, xx1,xx2,xx3: Integer;
begin
mousespeed:= 14;
  xx1:= -178;
  xx2:= -28;
  xx3:=  63;
  begin
    case random(4) of
    0: a := 0;

    1: a := 1;

    2: a := 2;

    3: a := 3;

    4: a := 4;

    5: a := 5;
    end;
    if (a = 0) then
    begin
      MMouse(xx1+random(10),75+random(10),20,20);
      Wait(1000 + Random(1000));
    end;
    if (a = 1) then
    begin
      MMouse(xx2+random(10),586+random(10),20,20);
      Wait(1000 + Random(1000));
    end;
    if (a = 2) then
    begin
      MMouse(xx3+random(10),595+random(10),20,20);
      Wait(1000 + Random(1000));
    end;
    if (a = 3) then
    begin
      MMouse(862+random(10), 267+random(10),20,20);
      Wait(1000 + Random(1000));
    end;
    if (a = 4) then
    begin
      MMouse(504+random(10), 640+random(10),20,20);
      Wait(1000 + Random(1000));
    end;
    if (a = 5) then
    begin
      MMouse(-194+random(10), 193+random(10),20,20);
      Wait(1000 + Random(1000));
    end;
  end;
end;

procedure antibans;
begin
  case Random(9) of

    0: RandomRClick;

    1: begin
         HoverSkill('Woodcutting', false);
         wait(2000+random(1000));
         GameTab(4);
       end;

    2: begin
         case random(2) of
           0:  begin
                 keydown(VK_Right);
                 wait(random(1000));
                 keyup(Vk_Right);
               end;

           1:  begin
                 keydown(VK_Left);
                 wait(random(1000));
                 keyup(Vk_Left);
               end;
         end;
       end;

    3: leavescreen;

    4: RandomCompass;

    5: begin
         HoverSkill('Woodcutting', false);
         wait(random(500));
         gametab(4);
       end;

    6: PickUpMouse;

    7: leavescreen;

    8: begin
         GameTab(Random(13));
         wait(1000+random(1000));
         GameTab(4);
       end;
  end;
ent;
end;

//************************************************************************//

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

//************************************************************************//

procedure North;
begin
  makecompass('S');
  makecompass('E');
  makecompass('N');
  keydown(VK_RIGHT);
  wait(13);
  keyup(VK_RIGHT);
end;

//************************************************************************//

procedure staightmap;
begin
  keydown(VK_RIGHT);
  if finddtm(r1,x,y,611, 8, 668, 151) then
  keyup(VK_RIGHT);
end;

//************************************************************************//

procedure whereamI;
begin
 if(findsymbol(x,y,'bar'))then
 begin
   woot:= true;
 end else
 begin
   woot:= false;
 end;
end;

//************************************************************************//

procedure isthetreethere;
begin
  getmousepos(rx,ry);
  mmouse(rx,ry,0,0);
  if isuptext('Yew') then treethere:= true;
  if isuptext('Walk') then treethere:= false;
  if isuptext('Tree') then treethere:= false;
end;


//************************************************************************//

procedure istehtreethere;
begin
  getmousepos(xx,yy);
  if isuptext('tree') or isuptext('walk') then
  woot3:= true;
  if isuptext('Yew') then
  woot3:= false;
end;

//************************************************************************//

Procedure SetUp;
var v : integer;
begin
  SetupSRL;
  DeclarePlayers;
  RoadColor  := 0;
  WaterColor := 0;
  BankColor  := 0;
  yewcolor   := 3168336;
  cx:= 614;
  cy:= 74;
  whctr:=true;
  if players[0].name = '' then begin players[0].active:= false;  end;
  if players[1].name = '' then begin players[1].active:= false;  end;
  if players[2].name = '' then begin players[2].active:= false;  end;
  if players[3].name = '' then begin players[3].active:= false;  end;
  if players[4].name = '' then begin players[4].active:= false;  end;
  if players[5].name = '' then begin players[5].active:= false;  end;
  if players[0].active= true then v:= v + 1;
  if players[1].active= true then v:= v + 1;
  if players[2].active= true then v:= v + 1;
  if players[3].active= true then v:= v + 1;
  if players[4].active= true then v:= v + 1;
  if players[5].active= true then v:= v + 1;
  cleardebug;
  writeln('*--------------------------------------------------------------*');
  if v >1 then writeln('You currently have '+ inttostr(v)+ ' players active.');
  if v =1 then writeln('You currently have '+ inttostr(v)+ ' player active.');
  if players[0].active= true then writeln('Player[0] is active. '+'('+Players[0].name+')');
  if players[1].active= true then writeln('Player[1] is active. '+'('+Players[1].name+')');
  if players[2].active= true then writeln('Player[2] is active. '+'('+Players[2].name+')');
  if players[3].active= true then writeln('Player[3] is active. '+'('+Players[3].name+')');
  if players[4].active= true then writeln('Player[4] is active. '+'('+Players[4].name+')');
  if players[5].active= true then writeln('Player[5] is active. '+'('+Players[5].name+')');
  writeln('*--------------------------------------------------------------*');
end;


//************************************************************************//

procedure bankers;
var cx, cy : integer;
begin
  cx := 634;
  cy := 83;
  {if FindBitmapRotated(banker, cx, cy, 1, 631, 72, 652, 101))then
    mouse(cx,cy,0,0,true);}
end;

//************************************************************************//

procedure axecheck;
begin
  cleardebug;
  gametab(4);
  wait(1000);
  if finddtm(axex, x,y,0,0,700,700)then
    begin
      axe1:= getcolor(x,y)
      axe2:= getcolor(x+1,y+1)
      axe3:= getcolor(x+1,y-1)
      writeln('axe is in inventory.')
      writeln('axe colors are as follows: ')
      whr:= true;
      writeln(inttostr(axe1)+' '+inttostr(axe2)+' '+inttostr(axe3))
    end;
  if whr=false then
  begin
    gametab(5);
    wait(1000);
    if finddtm(axex, x,y,0,0,700,700)then
      begin
        axe1:= getcolor(x,y)
        axe2:= getcolor(x+1,y+1)
        axe3:= getcolor(x+1,y-1)
        writeln('axe is in equipped.')
        writeln('axe colors are as follows: ')
        writeln(inttostr(axe1)+' '+inttostr(axe2)+' '+inttostr(axe3))
      end;
  end;
end;

//************************************************************************//

procedure FindRandoms;
begin
  FindNormalRandoms;
  FindFastRandoms;
  ent;
  if(finddtm(boxx,x,y,553, 202,742, 465))then
    begin
      openbox;
      wait(random(1000));
      solvebox;
    end;
  if findcolortolerance(x,y,1479347,553, 202,742, 465,10) then
    begin
      mouse(x,y,0,0,false);
      wait(1000);
      chooseoption(x,y,'drop');
    end;
end;

//************************************************************************//

function FindCBox(c, t, rx, ry, ex, ey : integer): boolean;
begin
  Result := FindColorTolerance(x, y, c, rx+5, ry+5, ex+5, ey+5, t);
end;

//************************************************************************//

procedure totree;
begin
  writeln('Walking from bank to tree 1');
  north;
  bankers;
  wait(random(1000));
  setrun(true);
  gametab(4);
  RadialWalk( FindVRoadColor, 325, 318, 50, -1, 0);
  flag;
  RadialWalk(FindVRoadColor, 0, 25, 65, 0, 0);
  flag;
  RadialWalk(FindVRoadColor, 0, 25, 65, 0, 0);
  flag;
  findsymbol(x,y,'rare trees');
  mouse(x, y, 0, 0, true);
  wait(3000);
  flag;
  players[currentplayer].loc:= 'Yew trees.';
  setrun(false);
  gametab(4);
  players[currentplayer].loc:='Tree 1';
end;

//*************************************************************************//

procedure treewalk2;
var tmark : integer;
begin
  writeln('Now walking to tree 1');
  north;
  whctr:= true;
  treeb:= true;
  woot:=true;
  treethere:= false;
  findrandoms;
  mouse(615, 80, 4, 4, true);
  flag;
  findsymbol(x,y,'altar');
  mouse(x,y,0,0,true);
  wait(7000);
  repeat
    wait(1000);
    tmark:= tmark+ 1;
    if tmark > 11 then break;
  until
  finddtm(symb, x, y, 590, 88, 701, 147);
  findsymbol(x,y,'rare trees');
  mouse(x,y,0,0,true);
  wait(random(500));
  wait(3000);
  flag;
  findsymbol(x,y,'rare trees');
  mouse(x,y,0,0,true);
  wait(random(500));
  wait(3000);
  flag;
  players[currentplayer].loc:='Tree 1';
end;

//*************************************************************************//

procedure treewalk1;
begin
  writeln('Now walking to tree 2');
  north;
  treeb:= false;
  whctr:= false;
  woot:=false;
  treethere:=false;
  findrandoms;
  RadialWalk( FindVRoadColor , 345, 5, 56, 0, 0);
  wait(3000);
  flag;
  RadialWalk( FindVRoadColor , 0, 33, 40, 0, 0);
  wait(3000);
  flag;
  mouse(697, 51, 6, 6, true);
  wait(3000);
  flag;
  mouse(673, 104, 6, 6, true);
  wait(3000);
  flag;
  findsymbol(x,y,'rare trees');
  if treeb = false then
    begin
      mouse(x,y,0,0,true);
      wait(random(500));
      wait(3000);
      flag;
      findsymbol(x,y,'rare trees');
      mouse(x,y,0,0,true);
      wait(random(500));
      wait(3000);
      flag;
      players[currentplayer].loc:='Tree 2';
   end;
end;

//*************************************************************************//

procedure fromtree;
begin
  north;
  writeln('walking to bank');
  findsymbol(x,y,'rare trees');
  mouse(x,y,0,0,true);
  wait(random(500));
  wait(3000);
  flag;
  whereami;
  if (woot = true) or (whctr = false) or (woot3 = true) or (treeb=false) then
    begin
      north;
      whctr:= true;
      treeb:= true;
      woot:=true;
      treethere:= false;
      findrandoms;
      mouse(604, 79, 6, 6, true);
      flag;
      findsymbol(x,y,'altar');
      mouse(x,y,0,0,true);
      wait(5000);
        repeat
          wait(1000);
        until
        finddtm(symb,x,y,0,0,700,700);
        findsymbol(x,y,'rare trees');
        mouse(x,y,0,0,true);
        flag;
        findsymbol(x,y,'rare trees');
        mouse(x,y,0,0,true);
        wait(random(500));
        wait(3000);
        flag;
        findsymbol(x,y,'rare trees');
        mouse(x,y,0,0,true);
        wait(random(500));
        wait(3000);
        flag;
        players[currentplayer].loc:='Tree 1';
    end;
  findsymbol(x,y,'rare trees');
  mouse(x,y,0,0,true);
  wait(random(500));
  wait(3000);
  flag;
  north;
  setrun(false);
  gametab(4);
  wait(random(500));
  findrandoms;
  RadialWalk(FindVRoadColor,192, 169, 52,0,0)
  flag;
  RadialWalk(FindVRoadColor,192, 169, 52,0,0)
  flag;
  RadialWalk(FindVRoadColor,192, 169, 52,0,0)
  flag;
  RadialWalk(FindVRoadColor,192, 169, 35,0,0)
  flag;
  if(not(findsymbol(x,y,'bank')))then
    begin
      mouse(682, 88, 6, 6, true);
      flag;
    end;
  findsymbol(x,y,'bank');
  mouse(x, y, 0, 0, true);
  flag;
  players[currentplayer].loc:= 'Bank.';
end;

//*************************************************************************//

function colorcheck : boolean;
begin
  if color1 = color2 then
  result := true;
end;

//*************************************************************************//

Procedure tree;
var w,zx,zy : integer; wtf : boolean;
Begin
  highestangle;
  treeb:= true;
  whctr:= true;
  Repeat
    wait(random(1000)+4000);
    begin
      antibans;
      if Finddtm(yewcolor1,x, y,0,0,700,700) then
        begin
          mmouse(x,y,0,0);
          if (IsUpText('Yew')) then
          Mouse(x, y, 2, 2, true);
          ent;
          wait(3500);
        end;
      if findfight then
    begin
      makecompass('N');
      setrun(true);
      mouse(655, 31,0,0,true);
      flag;
      wait(5000);
      findsymbol(x,y,'rare trees');
      mouse(x,y,0,0,true);
      flag;
      setrun(false);
    end;
  if not loggedin then players[currentplayer].active := false;
  if finddtm(yewcolor1,x,y,0,0,700,700) and treeb = false then
  begin
    mmouse(x,y,0,0);
    if not isuptext('Yew') then
      begin
        if not FindObjMultiText(x, y, 'Yew', 'ew', 'Ye', 4690821, 10) then
          begin
            if whctr= false then treewalk2;
          end;
      end;
  end;
  end;
  if not finddtm(yewcolor1,x,y,0,0,700,700) and treeb = true then
    begin
      if FindObjMultiText(x, y, 'Yew', 'Cho', 'ee', 4690821, 25)= false  then
        begin
          if whctr= true then treewalk1;
        end;
    end;
  FindRandoms;
  isthetreethere;
  mmouse(rx,ry,0,0);
  whereamI;
  if invfull then break;
  if invcount = 28 then break;
  Until invcount = 28;
  if dance = true then
    begin
      gametab(12);
      mouse(578, 380,1,1,true);
      wait(1000+random(200));
      mouse(618, 380,1,1,true);
      gametab(4);
      wait(1000+random(200));
    End;
end;

//*************************************************************************//

procedure bank;
begin
  makecompass('S');
  lowestangle;
  openbank3;
  wait(random(500));
  fixbank;
  wait(random(500));
  finddtm(logx, x, y, 560, 210, 739, 458);
  mouse(x,y,0,0,false);
  chooseoption(x,y,'All');
  closebank;
  players[currentplayer].banked := players[currentplayer].banked + 1;
end;

//************************************************************************//

procedure mainloop2;
begin
  repeat
    highestangle;
    totree;
    wait(random(500));
    tree;
    findrandoms;
    wait(2000);
    fromtree;
    bank;
    loadsx:= loadsx + 1;
  until loadsx = players[currentplayer].integer1;
end;

//*************************************************************************//

procedure depositelogs;
begin
  makecompass('S');
  lowestangle;
  openbank3;
  wait(random(500));
  fixbank;
  wait(random(500));
  finddtm(logxs, x, y, 560, 210, 739, 458);
  mouse(x,y,0,0,false);
  chooseoption(x,y,'All');
  closebank;
  highestangle;
end;

//*************************************************************************//

procedure PlayerStats;
var Active: string;
var i: Integer;
begin
  writeln('**********************************************');
  writeln('Name         : '+ Players[CurrentPlayer].Name);
  writeln('Number       : '+ inttostr(CurrentPlayer));
  writeln('Worked for   : '+ inttostr(scripttime(2))+' minutes.');
  writeln('Banked       : '+ inttostr(Players[CurrentPlayer].Banked) + ' times.');
  writeln('Avoided      : '+ inttostr(players[currentplayer].integer2)+' ents.');
  if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
  writeln('Active       : '+ Active);
  writeln('Location     : '+ Players[CurrentPlayer].loc);
  writeln('**********************************************');

for i := 0 to HowManyPlayers-1 do
   begin
   if Players[i].Active=True then Active:='True' else Active:='False';
      writeln( (inttostr(i))+' : '+Players[i].name+ ' = '+Active+
      '. - B :'+inttostr(Players[i].Banked)+' Times.'+ ' Avoided. '+ inttostr(players[i].integer2) +
      ' -  : '+IntToStr(scripttime(2))+' mins.'+' - Loc: '+Players[i].loc);
    end
   writeln('**********************************************');
end;

//*************************************************************************//

procedure ProgressReport;
begin
cleardebug;
  begin
  WriteLn(' ');
  WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
  SRLRandomsReport;
  Writeln(' ');
  end;
  PlayerStats;
end;

//*************************************************************************//

procedure brightnessnchat;
begin
  mmouse(30, 487, 0, 0);
  getmousepos(x,y);
  if not  findcolor(x,y,255, 38, 476, 74, 500)then
    begin
      repeat
        mouse(x,y,0,0,true);
        wait(500);
      until findcolor(x,y,255, 38, 476, 74, 500);
    end;
  mmouse(157, 487, 0, 0);
  getmousepos(x,y);
  if not findcolor(x,y,255, 158, 479, 202, 500)then
    begin
      repeat
        wait(500);
        mouse(x,y,0,0,true);
      until findcolor(x,y,255, 158, 479, 202, 500);
    end;
  mmouse(297, 488, 0, 0);
  getmousepos(x,y);
  if not  findcolor(x,y,255, 306, 477, 345, 499)then
    begin
      repeat
        wait(500);
        mouse(x,y,0,0,true);
      until findcolor(x,y,255, 306, 477, 345, 499);
    end;
  gametab(11);
  if(findcolor(x,y,9981222, 705, 221, 720, 236)) then gametab(4)
    else
      if(not(findcolor(x,y,9981222, 705, 221, 720, 236)))then
        begin
          mouse(715, 228, 0, 0, true);
          gametab(4);
        end;
end;

//*************************************************************************//
//
//                               Main Event Loop
//
//*************************************************************************//
begin
  bitmapsdtms;
  Setup;
  wait(5000);
  writeln(' ');
  writeln('Starting script...');
  wait(1000);
  activateclient;
  wait(2000);
  if(not(loggedin))then LoginPlayer;
  if lowmsped = false then mousespeed:= mspeed;
  if lowmsped = true then mousespeed:= 12;
  benmouse:= true;
  repeat
    brightnessnchat;
    axecheck;
    if finddtm(logxs, x, y, 560, 210, 739, 458)then depositelogs;
    mmouse(488, 427,1,1);
    wait(random(500));
    getmousepos(x,y);
    holdmouse(x,y,true);
    wait(1000+random(500));
    releasemouse(x,y,true);
    mainloop2;
    if loadsx = players[currentplayer].integer1 then
    logout;
    ProgressReport;
    nextplayer(true);
  until(false);
end.

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

no.

i have to say no..

procedure fdtmrotated(d,x1,y1,x2,y2:integer);
var
  dtmComp, x, y: Integer;
  a: Extended;
begin
  repeat
    FindDTMRotated(d, x, y, x1,y1,x2,y2, 0, 360, 0.01, a);
    mmouse(x,y,0,0);
  until
  FindDTMRotated(d, x, y, x1,y1,x2,y2, 0, 360, 0.01, a);
  mouse(x,y,0,0,true);
  flag;
end;

Needs a failsafe, what if the DTM is never found? It will loop forever.

All of your walking needs failsafes. It does the walking and just assmues your there. You should check for a symbol or landmark on the map to make sure you are tehre.

You didnt really use multiplayer properly.
You need more failsafes, and then make the player logout.
Like:

If Dead Then 
Logout;

At the begening of every procedure put

If LoggedOut Then Edit

So if you are logged out for any reason, the procedure wont happen.
And then in our main loop put if

LoggedOut Then NextPlayer(False)

Pretty much that.

Except for that stuff it seems ok to me.
IDK What im gonna vote yet though :p.

And Jukka

From: JuKKa
i have to say no..

What a nice helpful sentence. Love how you tell him why you vote no and what he can improve on, way to be a good SRL member.
And if you were being sarcastic you must use a :p face! Nothing is sarcastic unless you use a :p face!
:p

i didn't use the finddtmrotated, it wasn't really working…. as for the other stuff, i will fix it…

From: YoHoJo

And then in our main loop put if

LoggedOut Then NextPlayer(False)

where in the mainloop?

i owe you a yes.

Its advanced, it has all the requirments i can think of.

Thanks :D

From: omgwoot
i didn't use the finddtmrotated, it wasn't really working…. as for the other stuff, i will fix it…



where in the mainloop?

That would be the reason why I'm giving this a big NO and PROBABLY stolen.

EDIT: Looking through his posts I don't think he stole it, but from what he said above that still makes me pretty mad ….

:P :P

EDIT2: Good luck, my apologies. the main loop is where there's no procedure/fucntion

begin

blahblah

end.

end has a period(.) not (;) thingy lol

you gave me a no because i didn't use the procedure? or i didn't know where to put

loggedout then nextplayer(false)

in the mainloop? either way, it doesn't sound very fair…

Hes just being stupid.

The main loop is whats repeated between

Begin
End.

Hers yours with my thingy added:

 begin
  bitmapsdtms;
  Setup;
  wait(5000);
  writeln(' ');
  writeln('Starting script...');
  wait(1000);
  activateclient;
  wait(2000);
  if(not(loggedin))then LoginPlayer;
  if lowmsped = false then mousespeed:= mspeed;
  if lowmsped = true then mousespeed:= 12;
  benmouse:= true;
  repeat
{    If Not(LoggedIn) Then NextPlayer(False) }
    brightnessnchat;
    axecheck;
    if finddtm(logxs, x, y, 560, 210, 739, 458)then depositelogs;
    mmouse(488, 427,1,1);
    wait(random(500));
    getmousepos(x,y);
    holdmouse(x,y,true);
    wait(1000+random(500));
    releasemouse(x,y,true);
    mainloop2;
    if loadsx = players[currentplayer].integer1 then
    logout;
    ProgressReport;
    nextplayer(true);
  until(false);
end.

So in each procedure first put

Porcedure Blah;
Begin
  If Not(LoggedIn) Then Exit;
  Stuff 
  Stuff
End;

And in loop do

Begin
  SetupSRL
  Repeat
    If Not(LoggedIn) Then NextPlayer(False)
    Chop
    Drop
    Poop
  Until (Whatever)
End.

From: Ejjman1
That would be the reason why I'm giving this a big NO and PROBABLY stolen.

EDIT: Looking through his posts I don't think he stole it, but from what he said above that still makes me pretty mad ….

:P :P

EDIT2: Good luck, my apologies. the main loop is where there's no procedure/fucntion

begin

blahblah

end.

end has a period(.) not (;) thingy lol

Ejjman, he was saying he didn't know where to put it IN the main loop not that he didn't know WHERE the main loop was -.-. Busted.

Oh snappp my bad

I say yes, but you need more posts too ;)

Ya ejj, Your bad :p

You and your other account have been here a while, but you still haven't seen Nielsie's multiplayer tut?

:o 2 accounts? Whats the others username?

ihavefriends

Haha no you don't Boreas! [cough] just kidding, just kidding, just kidding!!! [/cough]

I remember Ihavefriends, He posted 3 topics of the same.. something, script. I think it was a smelter, major noob. Just for having two accounts, no from me.

I know him, i go over to his house… he is really the one who got me in to runescape
and i'm not the owner of the ihavefriends account…

From: hy71194
Haha no you don't Boreas! [cough] just kidding, just kidding, just kidding!!! [/cough]

dead.


Im not gonna vote at all..

From: 3garrett3
I remember Ihavefriends, He posted 3 topics of the same.. something, script. I think it was a smelter, major noob. Just for having two accounts, no from me.

I think that is a bit harsh. I had two accounts, before I realised how stupid and suspicious it looked. Maybe he didn't want to be known as a noob / leecher that he was formally?

Anyway, I'm holding my vote.

i don't have two accounts…

Ok, Ok, Not Just because he has/might have 2 accounts, there are other reasons, 29 posts is a good one, I had around 600 or so I think when I applied, to give time for people to get to know me, we dont know anything about this guy. I dont have to give out my reasons anyway.

well, i didn't know post count limited level of ability. I was unaware we need a certain number of posts before applying.

You dont need. Its just good thing. Now you have 30 posts which propably is enough. I think it was Claw or who who had like 1-5 posts and got in?

From: omgwoot
i don't have two accounts…

http://img473.imageshack.us/img473/7606/omg1fk2.png
http://img148.imageshack.us/img148/1986/omg2qg5.png

You started a thread with one account, and replied back on the wrong account. That was mistake #2. Mistake #1 was making a second account. Mistake #3 was assuming I can't see threads you deleted. Mistake #4 was lying to me about not having two accounts. Mistake #5 will be not explaining yourself to me.

From: Boreas
http://img473.imageshack.us/img473/7606/omg1fk2.png
http://img148.imageshack.us/img148/1986/omg2qg5.png

You started a thread with one account, and replied back on the wrong account. That was mistake #2. Mistake #1 was making a second account. Mistake #3 was assuming I can't see threads you deleted. Mistake #4 was lying to me about not having two accounts. Mistake #5 will be not explaining yourself to me.

mistake #6 was forgetting Boreas comes to SRL often :D


Haha Boreas you crack me up :D ,no from me for the obvious reasons

Ouchie :p. Thats alot of mistakes, too many to get to members.

Lol, oops, slip up.

as i said before, i go to his house… which is where i joined these forums…
and he usually has his passwords saved.

i agree with the others. No from me. you busted your self…

think what you want….

i have a question… even if i did own the two accounts… why would it matter? i thought you guys were looking for scripters who knew enough to make a useful working script…

Because it's in the rules and we don't like rule breakers. To be an SRL member you must also be responsible.

either way, one of your fellow srl members said they had more than one account.. and i still stand by what i said.. i don't have two accounts.

From: omgwoot
as i said before, i go to his house… which is where i joined these forums…
and he usually has his passwords saved.

From: omgwoot
think what you want….

i have a question… even if i did own the two accounts… why would it matter? i thought you guys were looking for scripters who knew enough to make a useful working script…

What would be the reason for having 2 accounts in the first place ?

From: omgwoot
either way, one of your fellow srl members said they had more than one account.. and i still stand by what i said.. i don't have two accounts.

[sarcasm] I believe you…Boreas must have completely fabricated those images….Tell you what…I'm gonna 1 week temp ban him, and Auto-Accept you…..[/sarcasm] …..NOT

So, let me get this straight…your friend…Auto-Saves his passwords…….and you released the script on his account ? Then posted on yours ?…..Um…..That story, would almost make sense…If you posted the script on your account…and were at his house…and accidentally posted a follow up on his account….

I really think we need a ban option for this applicant……It's a shame,whoever you are, obviously has a lot of talent….but you are very much lacking in ethics and credibility….

~RAM

Disclaimer: Any similarities and representations of Administrative powers were merrily a coincidence…..and any thoughts that were expressed, or implied, were and will always be…My Humble Opinions (h)

ihavefriends has his password auto saved, so he doesn't have to log in everytime, and when i posted my script, my account didn't log in correctly, i'm not sure how it happened. so he told me how to fix it.

I don't see myself as lacking ethics, as for credibility.. maybe here, that may be explained by me not knowing anyone..

From: bobarkinator
Because it's in the rules and we don't like rule breakers. To be an SRL member you must also be responsible.

you don't like rule breakers… your a member of a runescape cheating site..
the last time i checked, cheating on rs is against the rules…

From: omgwoot
ihavefriends has his password auto saved, so he doesn't have to log in everytime, and when i posted my script, my account didn't log in correctly, i'm not sure how it happened. so he told me how to fix it.

I don't see myself as lacking ethics, as for credibility.. maybe here, that may be explained by me not knowing anyone..




you don't like rule breakers… your a member of a runescape cheating site..
the last time i checked, cheating on rs is against the rules…

There is more stuff to members than just being able to script. You need to be helpfull, and you need to have a good atitude, and we need to be convinced that you are who you are.

Well said greg.

I had a good attitude when i joined, i can be helpful.. but i'm not sure i can convince this bunch of people i am who i am?

Since i have a bad feeling about this… i hear i-bot is good… hopefully i can learn java script too… i take that back, but only because the website is down…

Go ahead…no from me.

Last chance to own up.

that new update messed up my scar scripts….

Is that saying you aren't going to admit? Because I have yet to vote.

even with one vote for me, that would be 6 to 10, and i still stand by what i said..

From: omgwoot
even with one vote for me, that would be 6 to 10, and i still stand by what i said..

bad move, bob speaks for many more people then himself… edit your post if you want.

the circumstance is that I admit the untrue.

…i dont know what to say. your in a tight spot. Boreas, as I recall, has never been wrong. And his word against your own… well, you loose.

But look, you story seems to line up with me.

You have great scritpitng talent.

Use this month to make ure script even bette,r and also try to be more active on the forums. Lots of work in the "scripting help section" would help you alot.

Ask boreas to delete ure other account, and then youll be smooth sailing.

I already made my script better, it runs all night.. (well not after the last rs update…now they don't work.)

also, there is one problem… i only have one account.

From: omgwoot
I already made my script better, it runs all night.. (well not after the last rs update…now they don't work.)

also, there is one problem… i only have one account.

then it wont hurt if he deleltes it.

ok, then u need to be more active and helpfull so we can know you better, and know that you will be a copntributing member.

I read someone had 1-5 posts when they became a SRL member, why was that not required of them?

Standards have gone up since then?

your reply posed as a question tells me your not sure, not a very good reason.

You started a thread with one account, and replied back on the wrong account. That was mistake #2. Mistake #1 was making a second account. Mistake #3 was assuming I can't see threads you deleted. Mistake #4 was lying to me about not having two accounts. Mistake #5 will be not explaining yourself to me.

Mistake # 6 was not knowin boreas is admin :D

From: omgwoot
your reply posed as a question tells me your not sure, not a very good reason.

it doesnt matter.

it could have been a mistake.

he could have had a fawki level script

he could have been invted from a diferent forum

point is… its is defanitly not going to pass noradays, with out a very outstanding reason.

you dont happen to have an outstanding reason.

no offence, but you have to do things the normal way, now start being helpfull.

From: omgwoot
I read someone had 1-5 posts when they became a SRL member, why was that not required of them?

they were known before or their script was amazing.

or greg level

and greg go online?

From: hugolord
they were known before or their script was amazing.

or greg level

and greg go online?

you kind of repeated the previous post….

Yes, but he still answered your question.

I read someone had 1-5 posts when they became a SRL member, why was that not required of them?

I said that :) And I was talking about The Claw. And, no reason to not let him in, the script was "Excellent" and no problems with the members.

I got all that crap about helping people, and now that i need help the best you guys can give is is:

From: hy71194
SRL not working atm :S

ok well how about u don't complain and try to fix what isn't working yourself im sure the devs are working hard to get srl updated for the new runescape.

you don't think i've tried to fix it myself? why would i ask for help unless i'm not able to fix it myself… and tons of people have been helping others…

Okay, seems like you and some members dont get along too well, and the script has like no failsafes… I think this could be closed. Apply again in a month.

From: omgwoot
you don't think i've tried to fix it myself? why would i ask for help unless i'm not able to fix it myself… and tons of people have been helping others…

Your attitude is ridiculously horibble.

Sure, it may be what you feel, but you could at least mask it diplomatically.

I have tried as hard as I can to be your freind and help you out.

Im done with that, you don't deserve one bit of it.

You srtike out at the people trying to help you, you have no respect.

Im sick of this.

Change your attitude, apreicate people trying to help you, and help others. I dont care if your script runs for weeks, you are not getting my vote untill you do.

What he said