SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
HTML (Lol), Little bit of Java, C++ i´ve used. Then i can script for scar

Other Communitys
www.rs-resources.com Middle Man, www.fagex.net VIP, www.rs2cheating.org.uk Admin

How Long have You Played Runescape
3 Years

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

Hello, my name is Reigo Hein, im from Estonia, 14 year old. I wish to become a SRL Member, i know i haven´t been active in this forum, but i will become active, as summer is about to start :D. Although, i disagree with some community´es, we should all respect Jagex, without them, neighter of this wouldnt have happen. I have been learning more of scripting lately. Thank you for taking to time to read my application.

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

//Desert Storm´s eye of newter

program Eye_of_Newt_Buyer;
{.include SRL/SRL.scar}
{.include SRL/SRL/misc/amount.scar}
{.include SRL/SRL/extended/xMapWalk.scar}

const
     PlantMM =  3835732;
//EDIT AT OWN RISK//
const
  DebugStyle     = 'Write';
  DebugLevel     = 1;
  MaxFenceCount = 7;
  MMLadder       = 1062250;
//EDIT AT OWN RISK//
  
var
Bank,EyeofNewt,BankBooth,LadderColor,FarmingColor,QuestColor,EyeofNewts,StartTime: Integer;
Coords:Tpoint;
BoxCoords: TBox;
WalkTries: Integer;
WorldList:array of TPoint;



procedure DeclarePlayers;
begin
  HowManyPlayers := 5;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Integer2:=100;//Number of banks to do, 10 or 15 is decent
  Players[0].Loc :='Shop';// Shop or Bank
  Players[0].Active:=True;

  Players[1].Name :='';
  Players[1].Pass :='';
  Players[1].Nick :='';
  Players[1].Integer2:=10;//Number of loads to do
  Players[1].Loc :='Bank';// Shop or Bank
  Players[1].Active:=True;

  Players[2].Name :='';
  Players[2].Pass :='';
  Players[2].Nick :='';
  Players[2].Integer2:=10;//Number of loads to do
  Players[2].Loc :='Bank';// Shop or Bank
  Players[2].Active:=True;

  Players[3].Name :='';
  Players[3].Pass :='';
  Players[3].Nick :='';
  Players[3].Integer2:=10;//Number of loads to do
  Players[3].Loc :='Bank';// Shop or Bank
  Players[3].Active:=True;

  Players[4].Name :='';
  Players[4].Pass :='';
  Players[4].Nick :='';
  Players[4].Integer2:=10;//Number of loads to do
  Players[4].Loc :='Bank';// Shop or Bank
  Players[4].Active:=True;
end;

procedure Chats;
begin
  SetChat('On',1);
  SetChat('Off',2);
  SetChat('On',3);
end;

function SLGetSymbol(var ax, ay: Integer; Symbol: string): Integer;
begin
  SymbolAccuracy := 0.7;
  if(Lowercase(Symbol) = 'bank')then
    SymbolAccuracy := 0.3;
  Result := GetSymbolColor(ax, ay, Symbol);
 // DebugMe(IntToStr(ax)+' '+IntToStr(ay), 1);
  SymbolAccuracy := 0.8;
end;

procedure DeclareDTMS;
begin
  Bank := DTMFromString('78DA639CC1C4C010CC8002DEBC79C3F01F483' +
       '302F17F20609C0254138DAAE6CF1F260665A81A10605C88A9E6ED' +
       '5B06543573089B030011E211D4');
       
  EyeofNewt := DTMFromString('78DA638C61606068644001928A27194480342' +
       '310FF0702C63820A393010D30C2D580792940A285809A4420514F' +
       '404D24906826A0269A0873406A3AF0AB0100FF4B0BC5');
  BankBooth := DTMFromString('78DA63FCC4C0C0708601055427BB312803694' +
       '620FE0F048CCC40D656543565F1CE703520C0F800486C4655D35D' +
       '1080AA8605C8BA8FAA2623541F55CD43207117554D5D8615AA9A4' +
       '740E21CAA9A96345B54354C8C186A8A224C51D40000CD9915E6');
end;




function InMageShop: Boolean;
var xx,yy: Integer;
begin
  SymbolAccuracy:=0.8
  if (FindColorSpiralTolerance(x,y,6579308,155,66,355,266,15)) and
  (FindColorSpiralTolerance(x,y,4473930,155,66,355,266,15)) and
  (FindSymbol(xx,yy,'magic shop')) and
  (FindSymbol(x,y,'water')) and
  (FindSymbol(x,y,'Jewelery')) then
  begin
    WriteLn('I'#39'm in the mage shop');
    Result:=True
  end else
  begin
    Result:=False
  end;
  begin
    if (not(Result)) then
    begin
      Mouse(xx,yy,4,4,True);
      Flag;
      Result:=True
    end;
  end;
end;

procedure Betty;
var Tries,Tries2,Trys,BettyMark: Integer;
begin
  if (InvFull) then
   Exit;
  if (Not(LoggedIn)) then
   NextPlayer(False);
  if (ShopScreen) then
     Exit;
  if (Players[CurrentPlayer].Loc='Bank') then
   Exit;
  Tries:=0
  if (InMageShop) and
  (Players[CurrentPlayer].Loc='Shop') then
  begin
    Status('Betty');
    MarkTime(BettyMark);
    repeat
      FindNormalRandoms;
      if (FindMsColorTol(x,y,4917323,20)) and
      (Distance(x,y,MSCX,MSCY)<300) then
      MMouse(x,y,4,4);
      if (IsUpText('etty')) then //or
      //(IsUpTextMulti(' etty','-t o','- t o')) then
      begin
        Mouse(x,y,4,4,False);
        //ChooseOption(x,y,'rade')
        ClickOption('etty',2);
        Flag;
        FTWait(3);
        If(ShopScreen) then
         Exit;
        If (TimeFromMark(BettyMark)>30000) then
         Exit;
      end else
      begin
        if (FindMSColorTol(x,y,6490468,10)) then
        MMouse(x,y,4,4);
        if (IsUpTextMulti('etty','et ty','-to')) or
        (IsUpTextMulti(' etty','-t o','e tty')) then
        begin
          Mouse(x,y,4,4,False);
          ChooseOption(x,y,'rade');
          Flag;
          FTWait(3);
          If(ShopScreen) then
           Exit;
          If (TimeFromMark(BettyMark)>30000) then
           Exit;
          end;
        end;
        begin
          repeat
            if (FindColorTolerance(x,y,16777215,638,76,658,96,10)) or
            (FindColorTolerance(x,y,14869218,638,76,658,96,10)) then
            begin
              Mouse(x+2,y+1,1,1,True);
              Flag;
              FTWait(1);
              begin
                MMouse(MSCX,MSCY,4,4);
                if (IsUpTextMulti('etty','et ty','-to')) or
                (IsUpTextMulti(' etty','-t o','e tty')) then
                begin
                  GetMousePos(x,y);
                  Mouse(x,y,4,4,False);
                  ChooseOption(x,y,'rade');
                  Flag;
                  FTWait(3);
                  if (ShopScreen) then
                   Exit;
                  If (TimeFromMark(BettyMark)>40000) then
                   Exit;
                  Trys:=Trys+1
                end else
                begin
                  if (FindObject(x,y,'etty',6490468,10,True)) then
                  Mouse(x,y,4,4,False);
                  ChooseOption(x,y,'rade');
                  FTWait(3);
                  Flag;
                  if (ShopScreen) then
                   Exit;
                  Trys:=Trys+1
                end;
              end;
            end;
          until(ShopScreen) or (Trys>5)
          begin
            if (Trys>5) then
            begin
              WriteLn('I'#39've given up hope. Logging out. I will try later');
              NextPlayer(True);
              Trys:=0
            end;
          end;
        end;
      Tries:=Tries+1
    until(Tries>4);
    if (Tries>4) then
    begin
      WriteLn('Could not find Betty');
      if (FindSymbol(x,y,'magic shop')) then
      Mouse(x,y,4,4,true);
      Tries2:=Tries2+1
      if (Tries2>2) then
      begin
        NextPlayer(True);
        Tries2:=0
      end;
      Betty;
    end;
  end;
end;

function OpenBank4: Boolean;
var BankMark: Integer;
begin
  MarkTime(BankMark);
  if (Not(LoggedIn)) then
   Exit;
  if (BankScreen) then
   Exit;
  If (FindDTM(BankBooth,x,y,MSX1,MSY1,MSX2,MSY2)) then
  begin
    MMouse(x,y,4,4);
    Wait(150+random(50));
    if (IsUpTextMulti('ank','booth','b o oth')) and
    (Not(IsUpTextMulti('anker','ank er','an ker'))) then
    begin
      Mouse(x,y,4,4,False);
      Wait(100+random(50))
      ChooseOption(x,y,'quickly');
      Flag;
      FTWait(2);
      if (TimeFromMark(BankMark)>=35000) then
       Exit;
      Result:=True
    end else
    begin
      OpenBankGlass('feb',True,False);
      Flag;
      if (TimeFromMark(BankMark)>=35000) then
       Exit;
      Result:=True
    end;
  end;
end;

procedure MyBank;
var BankMark,Tries: Integer;
begin
  MarkTime(BankMark);
  Status('Banking');
  repeat
   OpenBank4;
   Deposit(2,28,2);
   CloseBank;
   Tries:=Tries+1
   If (Tries=2) then
    Exit;
   If (TimeFromMark(BankMark)>30000) then
    Exit;
  until(InvCount=1);
  Players[CurrentPlayer].Banked:=Players[CurrentPlayer].Banked + 1
  Banks:= Banks + 1
end;

procedure RColor;
begin
  RoadColor:=FindRoadColor;
end;

function CheckColor(ax, ay: Integer): Boolean;
var
  xCount, yCount, zCount: Integer;
begin
  for xCount := 0 to 4 do
    for yCount := 0 to 4 do
      if SimilarColors(GetColor(ax - 2 + xCount, ay - 2 + yCount), 16183532, 15) then
        zCount := zCount + 1;

  if(zCount <= MaxFenceCount)then
    Result := True;
end;

function IsFenceInLine(var ax, ay: Integer; x1, y1, x2, y2, fromPercent, toPercent: Integer): Boolean;
var
  a, b: Extended;
  t1, t2, Count: Integer;
begin
  t1 := x1; t2 := x2;
  x1 := Min(t1, t2);
  x2 := Max(t1, t2);
  if x1 <> t1 then begin t1 := y1; t2 := y2; y1 := t2; y2 := t1; end;
  t1 := -y1;
  t2 := -y2;
  a := (t2 - t1) div (x2 - x1);
  b := t1 - (a * x1);

  for Count := Trunc((fromPercent div 100.0) * (x2 - x1)) to Trunc((toPercent div 100.0) * (x2 - x1)) - 1 do
  begin
    ax := Count + x1;
    ay := Trunc(-1 * (a * ax + b));
    if SimilarColors(GetColor(ax, ay), 16183532, 15) then
    begin
      if CheckColor(ax, ay) then
      begin
        Result := True;
        Exit;
      end;
    end;
  end;
end;

{procedure WalkToBank;
var Tries: Integer;
begin
  if (Players[CurrentPlayer].Loc='Bank') then
   Exit;
  RColor;
  Tries:=0
  MakeCompass('N');
  Status('Walking to bank');
  Mouse(626-Random(10),19+Random(5),15,15,True);
 // Wait(6000);
  WaitTillFlag;
  Flag;
  RColor;
  RadialRoadWalk(RoadColor,335,395,65,1,0);
  repeat
   RadialRoadWalk(RoadColor,315,405,65,1,0);
   AntiBan;
   Tries:=Tries+1
  until(FindSymbol(x,y,'tree')) or (Tries>6)
  begin
    if (FindSymbol(x,y,'tree')) then
    begin
      RadialWalk(RoadColor,315,405,50,1,0);
      FindFallyRoadColor;
      Tries:=0
      repeat
       RadialWalk(TestColor,315,405,65,1,0);
       FindFallyRoadColor;
       Flag;
       Tries:=Tries+1
       if (FindDTM(Bank,x,y,MMX1,MMY1,MMX2,MMY2)) then
        Break;
      until(FindDTM(Bank,x,y,MMX1,MMY1,MMX2,MMY2)) or (Tries=3)
      begin
        if (FindDTM(Bank,x,y,MMX1,MMY1,MMX2,MMY2)) then
        begin
          Players[CurrentPlayer].Loc:='Bank'
          Mouse(x,y,4,4,True);
          Wait(2500);
          Flag;
          MyBank;
        end else
        begin
          if (FindSymbol(x,y,'bank')) then
          Mouse(x,y,4,4,True);
          Flag;
          Players[CurrentPlayer].Loc:='Bank'
          MyBank;
        end;
      end;
    end;
  end;
end;  }



{procedure WalkToMageShop;
var Walks: Integer;
begin
  if (Players[CurrentPlayer].Loc='Shop') then
   Exit;
  if (Not(InvCount=1)) then
    MyBank;
  MakeCompass('N');
  Status('Walking to Mage Shop');
  Walks:=0
  FindFallyRoadColor;
  RoadWalk(TestColor,'SW');
  RadialWalk(TestColor,165,195,60,0,1);
  Flag;
  RadialWalk(TestColor,165,195,40,0,1);
  Flag;
  Rcolor;
  AntiBan;
  FindNormalRandoms;
  begin
    repeat
     RadialRoadWalk(RoadColor,165,195,65,0,1);
     Flag;
     AntiBan;
     FindNormalRandoms;
     Walks:=Walks+1
    until(Walks=3)
    begin
      Mouse(651+Random(10),135+Random(15),10,10,True);
      Flag;
      If (InMageShop) then
         Players[CurrentPlayer].Loc:='Shop'
       Exit;
      begin
        FindSymbol(x,y,'magic shop');
        Mouse(x,y,4,4,True);
        Flag;
        Players[CurrentPlayer].Loc:='Shop'
      end;
    end;
  end;
end; }
////////////////DONT TOUCH/////////////////////
function SLWaterWalk(StartRadial, EndRadial: Integer; Radius,
  FFlagBreakOut: Integer; Xoff, Yoff, Xmod, Ymod: Integer): Boolean;
    // By Wizzup? and WT-Fakawi.
var
  i, X1, Y1: Integer;
begin
  Result := False;
  if not(LoggedIn)then
    Exit;
  if (StartRadial < EndRadial) then
  begin
    repeat
      for i := StartRadial to EndRadial do
      begin
        x1 := Round(Radius * Sine(i)) + 646;
        y1 := Round(-Radius * Cose(i)) + 84;
        if FindColor(x, y, RoadColor, X1, Y1, X1 + 1, Y1 + 1) then
        begin
          MouseFindNoFlag(x + Xoff, y + Yoff, Xmod, Ymod);
          Result := True;
          FFlag(FFlagBreakOut);
          Exit;
        end;
      end;
      Radius := Radius - 4;
    until Radius <= 1;
  end;
  if (StartRadial > EndRadial) then
  begin
    repeat
      for i := StartRadial downto EndRadial do
      begin
        x1 := Round(Radius * Sine(i)) + 646;
        y1 := Round(-Radius * Cose(i)) + 84;
        if (FindColor(x, y, RoadColor, X1, Y1, X1 + 1, Y1 + 1)) then
        begin
          MouseFindNoFlag(x + Xoff, y + Yoff, Xmod, Ymod);
          Result := True;
          FFlag(FFlagBreakOut);
          Exit;
        end;
      end;
      Radius := Radius - 4;
    until Radius <= 1;
  end;
end;
////////////////DONT TOUCH///////////////////////
procedure DebugMe(aString: string; Importance: Integer);
begin
  if(DebugLevel >= Importance)then
  begin
    case LowerCase(DebugStyle) of
      'write' : WriteLn(astring);
      'disguise' : DisguiseScar(astring);
      'status' : Status(astring);
    end;
  end;
end;
////////////////DONT TOUCH/////////////////////
function GotColor(ColorType: string): Boolean;
begin
  case LowerCase(ColorType) of
    'bank'  : Result := (BankColor    > 0);
    'road'  : Result := (RoadColor    > 0);
    'ladder': Result := (LadderColor  > 0);
    'quest' : Result := (QuestColor   > 0);
    'farm'  : Result := (FarmingColor > 0);
  end;
  if not(Result)then
  begin
    Writeln(ColorType + 'Color NOT found, setting to false');
    LogOut;
  end;
end;

procedure WalkToBank;
var
  ax, ay, bx, by, cx, cy, Count: Integer;
begin
  if LoggedIn then
  begin
    MouseSpeed := 5 + Random(5);
    MakeCompass('N');
    WriteLn('Willows to bank');
    repeat
    RadialRoadWalk(FindRoadColor, 90, 125, 50, 1, 1);
    wait(500 + random (250));
    until FindSymbol(ax, ay, 'farming spot');
    if(FarmingColor = 0)then
      FarmingColor := SLGetSymbol(ax, ay, 'farming spot');
      FindSymbol(x,y,'farming spot');
      Mouse(x,y,4,4,True);
      Flag;
    GotColor('Farm');

    if(QuestColor = 0)then
      QuestColor := SLGetSymbol(ax, ay, 'quest');
    GotColor('Quest');
    if(BankColor = 0)then
      BankColor := SLGetSymbol(ax, ay, 'bank');
    GotColor('Quest');

   { while(not FindColor(bx, by, QuestColor, 678, MMY1, MMX2, MMY2)) then do
    begin
      DebugMe('Didn''t find QuestColor', 1);
      if FindColor(ax, ay, FarmingColor, MMX1, MMY1, MMX2, MMY2) then
      begin
        MouseFindNoFlag(ax + 10 + Count, ay, 3, 3);
        DebugMe('Found farm color - optimating location (ax + 10 + '+IntToStr(Count)+')', 1);
        FFlag(0);
      end;
      //Count := Count + 6;
    end;

   // if Count = 30 then
   { begin
      WalkTries := WalkTries + 1;
      if(WalkTries = 4)then
      begin
        WriteLn('Player lost during walkback - WalkTries = 4 - setting false');
        Players[CurrentPlayer].Active := False;
      end;
 //     WillowsToBank;
      Exit;
    end;
      WalkTries := 0;}
  {  begin
    SLWaterWalk(100, 105, 50, 8, 0, 0, 3, 3);
    DebugMe('Walked left of bank using RoadWalk', 1);
    end;  }
    
    if FindColor(ax, ay, PlantMM, MMX1, MMY1, MMX2, MMY2) then
      begin
        MouseFindNoFlag(ax + 10 + Count, ay, 3, 3);
        end;
        
    if(FindColor(ax, ay, FarmingColor, MMX1, MMY1, MMX2, MMY2)) then//and
      //(FindColor(bx, by, QuestColor, 678, MMY1, MMX2, MMY2))then
    begin
      DebugMe('Found Farm + Quest color', 1);
      if IsFenceInLine(cx, cy, ax, ay, bx, by, 40, 60)then
      begin
        DebugMe('Used fence to walk clicking (cx + 8), ((by + ay) div 2 - 25)', 1);
        MouseFindNoFlag(cx + 8, (by + ay) div 2 - 25, 3, 3);
      end else
      begin
        DebugMe('used 30% Farm (x) and 70% Quest x, (by + ay) div 2 - 25', 1);
        MouseFindNoFlag( Trunc(ax * 0.3 + bx * 0.7), (by + ay) div 2 - 25, 3, 3);
      end;
    end;

    FFlag(0);
    if(not FindColor(bx, by, QuestColor, MMCX, MMY1, MMX2, MMY2))then
    begin
      DebugMe('We didn''t get all the way - Waiting(4000 + Random(1000)) and then do another FFlag(0)', 1);
      Wait(4000 + Random(1000));
      FFlag(0);
    end;

    if(FindColor(bx, by, QuestColor, MMCX, MMY1, MMX2, MMY2))then
    begin
      DebugMe('Found QuestColor - clicking Quest symbol', 1);
      MouseFindNoFlag(bx, by, 3, 3)
    end else
    begin
      WriteLn('Didn''t find QuestColor - setting player: false');
      Players[CurrentPlayer].Active := False;
      LogOut;
    end;

    if(RoadColor = 0)then
    begin
      DebugMe('RoadColor = 0, using FFlag(0)', 1);
      FFlag(0);
    end else
    begin
      DebugMe('RoadColor <> 0, using FFlag(10)', 1);
      FFlag(10);
    end;

    FindRoadColor;
    GotColor('Road');
    for Count := 0 to 2 do
    begin
      SLWaterWalk(150, 80, 60, 10, 0, 0, 4, 4);
      DebugMe('Walking the road - '+IntToStr(Count + 1)+'th time', 1);
      FindRoadColor;
      if(BankColor = 0)then
      begin
        DebugMe('BankColor = 0, trying to find BankSymbol', 1);
        BankColor := SLGetSymbol(ax, ay, 'bank');
        if(BankColor <> 0)then
        begin
          DebugMe('Found BankSymbol', 1);
          Break;
        end;
      end else
      begin
        DebugMe('BankColor <> 0, trying to find BankColor', 1);
        if FindColor(ax, ay, BankColor, MMX1, MMY1, MMX2, MMY2) then
        begin
          DebugMe('Found BankSymbol', 1);
          Break;
        end;
      end;
    end;

    if(BankColor <> 0)then
    begin
      DebugMe('BankColor <> 0, trying to find Bank using BankColor', 1);
      if(FindColor(ax, ay, BankColor, MMX1, MMY1, MMX2, MMY2))then
      begin
        DebugMe('Found BankColor on MM, walking to bank', 1);
        MouseFindNoFlag(ax, ay, 5, 5);
        FFlag(0);
      end else
      begin
        WriteLn('Didn''t find BankColor on MM, setting active: false');
        Players[CurrentPlayer].Active := False;
        LogOut;
      end;
    end else
    if(LadderColor <> 0)then
    begin
      DebugMe('BankColor = 0 and LadderColor <> 0 trying to find bank with LadderColor', 1);
      if(FindColor(ax, ay, LadderColor, MMX1, MMY1, MMX2, MMY2))then
      begin
        DebugMe('Found LadderColor - clicking LadderColor (ax + 20), (ay + 40), 5, 5', 1);
        MouseFindNoFlag(ax + 20, ay + 40, 5, 5);
        FFlag(0);
      end;
    end else
    begin
      WriteLn('Sorry we couldn''t find Ladder or BankColor - terminating');
      LogOut;
      Exit;
    end;

          Players[CurrentPlayer].Loc:='Bank'
          MyBank;
  end;
end;
////////////////DONT TOUCH/////////////////////
procedure WalkToMageShop;
var
  Radius:Integer; ax, ay, Count: Integer;
  begin
  if (Players[CurrentPlayer].Loc='Bank') then
  if LoggedIn then
  begin
    MouseSpeed := 5 + Random(5);
    MakeCompass('N');
    WriteLn('Bank to Shop');
    FindRoadColor;
    GotColor('Road');
    if(BankColor = 0)then
      BankColor := SLGetSymbol(ax, ay, 'bank');
    GotColor('Bank');
    if(LadderColor = 0)then
    begin
      LadderColor := FindLadderColor;
      GotColor('Ladder');
    end;

    SLWaterWalk(300, 220, 60, 8, 0, 0, 3, 3);
    DebugMe('Walked left of bank using RoadWalk', 1);

    if(QuestColor = 0)then
    begin
      DebugMe('QuestColor was 0, now finding QuestColor using symbol', 1);
      QuestColor := SLGetSymbol(ax, ay, 'quest');
      if(QuestColor = 0)then
        DebugMe('Didn''t find QuestColor at first try', 1);
    end;

    if(QuestColor <> 0)then
      DebugMe('QuestColor is not zero - QuestColor: '+IntToStr(QuestColor), 1);

    if(QuestColor = 0)or(not FindColor(ax, ay, QuestColor, MMX1, MMY1, MMX2, MMY2))then
    begin
      Wait(500 + Random(100));
      FFlag(0);
      DebugMe('Making FFlag(0) because of previously not found QuestColor, QuestColor: '+IntToStr(QuestColor), 1);
      if(QuestColor = 0)then
        QuestColor := SLGetSymbol(ax, ay, 'quest');

      if(QuestColor = 0)or(not FindColor(ax, ay, QuestColor, MMX1, MMY1, MMX2, MMY2))then
      begin
        DebugMe('Didn''t find QuestColor using FFlag(0) - using RoadWalk now, QuestColor: '+IntToStr(QuestColor), 1);
        FindRoadColor;
        SLWaterWalk(300, 220, 50, 0, 0, 0, 0, 0);
        if(QuestColor = 0)then
          QuestColor := SLGetSymbol(ax, ay, 'quest');

        if(QuestColor = 0)or(not FindColor(ax, ay, QuestColor, MMX1, MMY1, MMX2, MMY2))then
        begin
          DebugMe('Didn''t find QuestColor using RoadWalk then GetSymbolColor - setting False', 1);
          LogOut;
          Players[CurrentPlayer].Active := False;
        end;
      end;
    end;

    if FindColor(ax, ay, QuestColor, MMX1, MMY1, MMX2, MMY2) then
    begin
      DebugMe('Found QuestColor - Clicking x coordinate - 22', 1);
      MouseFindNoFlag(ax - 22, ay, 3, 3);
    end;

    FFlag(10);

    for Count := 3 downto 0 do
    begin
      if(SLGetSymbol(ax, ay, 'farming spot') <> 0)then
      begin
        DebugMe('Found farming spot', 1);
        if(ay - 25 > 25)then
        begin
          DebugMe('ay - 25 > 25 = true - we can safely click now', 1);
          Break;
        end else
          DebugMe('farming spot coordinates is to close to upper edge of MM', 1);
      end else
        DebugMe('Farming spot not visible yet', 1);

      if(QuestColor <> 0)then
        if FindColor(ax, ay, QuestColor, MMX1, MMY1, MMX2, MMY2) then
        begin
          MouseFindNoFlag(ax - 22 - 24 + (Count * 6), ay, 3, 3);
          DebugMe('Found QuestColor clicking closer to the fence ('+IntToStr(4-Count)+') - using FFlag(0)', 1);
        end;

      FFlag(0);
    end;

    if(SLGetSymbol(ax, ay, 'farming spot') <> 0)then
    begin
      DebugMe('Found farm spot clicking x + 20 + Random(5), y - 25 - Random(3)', 1);
      MouseFindNoFlag(ax + 20 + Random(5), ay - 25 - Random(3), 0, 7);
      if(not FlagPresent)then
      begin
        DebugMe('There were no flag (Waiting 1000 + Random(1000))', 1);
        Wait(1000 + Random(1000));
      end;
    end;

    FFlag(0);
    if(SLGetSymbol(ax, ay, 'farming spot') <> 0)then
    begin
      DebugMe('Found farm spot - clicking (ax + 10), (ay + 15)', 1);
      MouseFindNoFlag(ax + 10, ay + 15, 5, 5);
    end else
    begin
      DebugMe('Didn''t find farm spot number 2 - trying again', 1);
      FFlag(0);
      if(SLGetSymbol(ax, ay, 'farming spot') <> 0)then
      begin
        DebugMe('Found farm spot - clicking (ax + 10), (ay + 15)', 1);
        MouseFindNoFlag(ax + 10, ay + 15, 5, 5);
        FFlag(0);
      end;
      end;

            begin
            wait(1000 + random (500));
            RadialRoadWalk(RoadColor, 270, 280, 50, 1, 1);
            repeat
            RadialRoadWalk(RoadColor, 275, 300, 70, 1, 1);
            wait(500);
            until
               FindSymbol(ax, ay, 'magic shop')
               DebugMe('We Are At Mage Shop', 1);
                MouseFindNoFlag(ax + 1, ay + 1, 1, 1);
                Flag;
                Players[CurrentPlayer].Loc:='Shop'
              end;
            end;

    FFlag(0);
    //ChangeLoc('Betty');
    Players[CurrentPlayer].Loc:='Shop'
  //MouseSpeed := gMouseSpeed + Random(5);
  end;
////////////////DONT TOUCH/////////////////////
Function WorldListScreen:Boolean;//Pentii
begin
Result:=IsTextAtEx(16,3,'Select',0,upchars,False,False,0,0,-1);
end;

Function GetWorldScreen:Boolean;
begin
if(WorldListScreen)then
 begin
 Result:=True;
 Exit;
 end;
 if(FindText(x,y,'World',UpChars,6,457,100,496))then
  begin
  Mouse(x+5,y+5,15,20,True)
  repeat
  wait(100)
  until(WorldListScreen)
  Writeln('World list screen opened.')
  Result:=True;
  end
 else
Writeln('Couldn'#39't find worlds selecting button')
end;

Function SortWorldsBy(Which: String):Boolean;//Pentii
begin
if(WorldListScreen)then
begin
X:=302;
Y:=10;
Case Which of
'Number': begin
        Coords.x:=X;
        Coords.y:=Y;
        BoxCoords.x1:=Coords.X-3
        BoxCoords.y1:=Coords.Y-2
        BoxCoords.x2:=Coords.X+3
        BoxCoords.y2:=Coords.Y+2
         end;

'Players': begin
        Coords.X:=X+110;
        Coords.Y:=Y;
        BoxCoords.x1:=Coords.X-3
        BoxCoords.y1:=Coords.Y-2
        BoxCoords.x2:=Coords.X+3
        BoxCoords.y2:=Coords.Y+2
           end;

'Location':begin
        Coords.X:=X+220;
        Coords.Y:=Y;
        BoxCoords.x1:=Coords.X-3
        BoxCoords.y1:=Coords.Y-2
        BoxCoords.x2:=Coords.X+3
        BoxCoords.y2:=Coords.Y+2
          end;

'Type': begin
        Coords.X:=X+330;
        Coords.Y:=Y;
        BoxCoords.x1:=Coords.X-3
        BoxCoords.y1:=Coords.Y-2
        BoxCoords.x2:=Coords.X+3
        BoxCoords.y2:=Coords.Y+2
          end;
 end;
if(not(FindColorTolerance(x,y,2851375,BoxCoords.x1,BoxCoords.y1,BoxCoords.x2,BoxCoords.y2,5)))then
 begin
 Mouse(Coords.X,Coords.Y,5,5,True)
 Writeln('Worlds sorted by '+Which+'.')
 Result:=True;
 end;
end;
end;

Function SelectWorld(Order: Integer):Boolean;//Pentii
var
  Counter:Integer;
  i:Integer;
begin
SetArrayLength(WorldList,120)
if(WorldListScreen)then
begin
for Counter:=0 to 19 do
begin
WorldList[Counter].X:=95;
WorldList[Counter].Y:=45+(Counter*20)
end;

for Counter:=20 to 39 do
begin
WorldList[Counter].X:=190;
WorldList[Counter].Y:=45+((Counter*20)/2)
end;

for Counter:=40 to 59 do
begin
WorldList[Counter].X:=285;
WorldList[Counter].Y:=45+((Counter*20)/3)
end;

for Counter:=60 to 79 do
begin
WorldList[Counter].X:=375;
WorldList[Counter].Y:=45+((Counter*20)/4)
end;

for Counter:=80 to 99 do
begin
WorldList[Counter].X:=465;
WorldList[Counter].Y:=45+((Counter*20)/5)
end;

for Counter:=100 to 119 do
begin
WorldList[Counter].X:=565;
WorldList[Counter].Y:=45+((Counter*20)/6)
end;

Mouse(WorldList[Order].X,WorldList[Order].Y,10,0,True)
repeat
wait(100)
i:=i+1
until(not(WorldListScreen))or(i>=20)
wait(200)
if(WorldListScreen)then
 begin
 writeln('World is full.')
 Result:=False;
 Exit;
 end
else
 begin
Writeln('Selected world '+inttostr(Order)+' by list order.')
Result:=True;
 end;
end;
end;


Function SelectLeast:Boolean;//Pentii
var
 i:Integer;
begin
if(WorldListScreen)then
 begin
   SortWorldsBy('Players')
   SortWorldsBy('Type')
   repeat
   if(SelectWorld(i))then
    begin
    Result:=True;
    Break;
    end;
    if(i>=25)then
     begin
     Writeln('Couldn'#39't find world')
     Exit;
     end;
    i:=i+1
   until(Result)
 end;
end;

function iInvCount: Integer;//Just took out Gametab(4)
var
  i: Integer;
begin
  for i := 1 to 28 do
    if (ExistsItem(i)) then
      Result := Result + 1;
end;

procedure CloseShop;
begin
  MMouse(484,37,6,6);
  if (IsUpText('lose')) then
  begin
    Mouse(x,y,0,0,True);
    FTWait(2);
  end;
end;
  
procedure Buy;
begin
  if (Not(LoggedIn)) then
   Exit;
  if (iInvCount=28) then
   Exit;
  if (ShopScreen) then
  begin
    Status('Buying');
    MakeCompass('N');
    if (FindObj(x,y,'newt',11868949,10)) then
    MMouse(x,y,4,4);
    if (IsUpTextMulti('ne wt','newt','ye of')) then
    begin
      repeat
       Mouse(x,y,4,4,False);
       ChooseOption(x,y,'10');
       Wait(500+random(500));
       if (IsChatMessage('stock')) then
       begin
         CloseShop;
         Logout;
         GetWorldScreen;
         SelectLeast;
         LoginPlayer;
         Betty;
       end;
       if (IsChatMessage('enough coins')) then
       begin
         WalkToBank;
         MyBank;
         WalkToMageShop;
         Betty;
       end;
      until (IsChatMessage('inventory'))
      Players[CurrentPlayer].Integer1:=Players[CurrentPlayer].Integer1+27
      EyeofNewts:=EyeofNewts + 27
    end;
  end;
end;

procedure PlayerStats; //By Dankness
var Active: string;
var i: Integer;
begin
  if Players[CurrentPlayer].Active=True then
    Active:='True'
   else
    Active:='False';
  WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  WriteLn ('  Name         : '+ Players[CurrentPlayer].Name);
  WriteLn ('  Number       : '+inttostr(CurrentPlayer));
  WriteLn ('  Active       : '+ Active);
  WriteLn ('  Worked       : '+ inttostr(Players[CurrentPlayer].Worked)+'minutes.');
  WriteLn ('  Location     : '+ Players[CurrentPlayer].Loc);
  WriteLn ('  Bought       : '+ IntToStr(Players[CurrentPlayer].Integer1));
  WriteLn ('  Banked       : '+ IntToStr(Players[CurrentPlayer].Banked));
  WriteLn('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
  WriteLn('');
  WriteLn('     Nick -     Time    Location Bought Banked');
  for I := 0 to HowManyPlayers - 1 do
  begin
    if Players[i].Active=True then Active:='T' else Active:='F';
    WriteLn ( ' ' + Inttostr ( I) + ' : ' + Players[i].Nick + ' = ' + Active + ' '
    +'W: '+IntToStr(Players[i].Worked)+' min. '
    +'L: '+Players[i].Loc+' '
    +' B: '+IntToStr(Players[i].Integer1) + ' '
    +'  B: '+IntToStr(Players[i].Banked));
  end;
  WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
end;

procedure ProgressReport;
var Second,PerHour: Integer;
begin
  Second:=(1+((GetSystemTime-StartTime)/1000));
  PerHour:=(3600*(EyeOfNewts))/(Second);
  ClearDebug;
  WriteLn('     Worked for ' + (TimeRunning));
  WriteLn('     Bought total of ' + IntToStr(EyeofNewts) + ' Eye of Newts');
  WriteLn('     At rate of ' +IntToStr(PerHour) + ' per hour');
  WriteLn('     Banked total of ' + IntToStr(Banks) + ' banks');
  WriteLn('          Thanks for using');
  PlayerStats;
  SRLRandomsReport;
end;

procedure Start;
begin
  ClearReport;
  WriteLn('::::::|                 ,::|   ::\ ::|           :|');
  WriteLn(':::>   :\:| :~~/   ,::\ ::|    ::::::|:~~/ :::| :::|');
  WriteLn('::::::|`::| :::,   `::/ :|     ::| \:|:::, :/\|  :|');
  WriteLn('       .,:');
  WriteLn('::::::\');
  WriteLn('::>-::<:\:| :\:| :~~/ :::|');
  WriteLn('::::::/`::| `::| :::, :|');
  WriteLn('            .,:');
  Wait(1000);
  ClearDebug;
  StartTime:=GetSystemTime
  FindRS;
  ActivateClient;
  Wait(500);
  DeclareDTMS;
  DeclarePlayers;
  if (Not(LoggedIn)) then
  begin
    LoginPlayer;
    HighestAngle;
  end;
end;

procedure FreeDTMS;
begin
  FreeDTM(BankBooth);
  FreeDTM(EyeofNewt);
  FreeDTM(Bank);
end;




  
begin
  SetupSRL;
  NewLine:=NewLine
  MouseSpeed:=5
  Start;
  {repeat
   Chats;}
   repeat
    Betty;
    Buy;
    WalkToBank;
    WalkToMageShop;
    //ProgressReport;
   {until(Players[CurrentPlayer].Banked=Players[CurrentPlayer].Integer2);
   if (Players[CurrentPlayer].Banked=Players[CurrentPlayer].Integer2) then
   begin
     NextPlayer(True);
   end else
    NextPlayer(False);}
  until(False);
end.

And this i made to ARGA
This is Java

/**
* Falador To Camelot Walker Made By Desert Storm 
* This Script Is For "Educational" purposes only :D
* Only For Rs-Resources
*/

import com.ms.arga.common.*;
import com.ms.arga.hooks.*;
import com.ms.arga.sal.*;

public class Lumbridge2Camelot extends SALScript {
	public String getName() { return "Lumbridge2Camelot"; }
	Tile[] FaladorToCamelot = new Tile[] {
	new Tile(3222,3219), new Tile(3229,3219), new Tile(3232,3226),
        new Tile(3228,3233), new Tile(3224,3239), new Tile(3218,3243),
        new Tile(3211,3241), new Tile(3204,3242), new Tile(3197,3241),
        new Tile(3191,3237), new Tile(3183,3235), new Tile(3176,3237),
        new Tile(3169,3238), new Tile(3162,3239), new Tile(3155,3239),
        new Tile(3148,3240), new Tile(3141,3238), new Tile(3135,3233),
        new Tile(3128,3229), new Tile(3121,3228), new Tile(3114,3228),
        new Tile(3108,3233), new Tile(3108,3240), new Tile(3104,3246),
        new Tile(3098,3250), new Tile(3091,3249), new Tile(3084,3248),
        new Tile(3078,3252), new Tile(3074,3258), new Tile(3074,3265),
        new Tile(3073,3272), new Tile(3067,3276), new Tile(3060,3276),
        new Tile(3053,3276), new Tile(3045,3276), new Tile(3038,3276),
        new Tile(3031,3277), new Tile(3024,3277), new Tile(3017,3275),
        new Tile(3011,3279), new Tile(3007,3285), new Tile(3007,3292),
        new Tile(3005,3299), new Tile(3005,3306), new Tile(3005,3313),
        new Tile(3005,3320), new Tile(3005,3327), new Tile(3006,3334),
        new Tile(3006,3341), new Tile(3006,3348), new Tile(3002,3354),
        new Tile(3000,3361), new Tile(2995,3366), new Tile(2988,3370),
        new Tile(2981,3373), new Tile(2974,3377), new Tile(2967,3380), 
	new Tile(2966,3381), new Tile(2966,3388), new Tile(2966,3395), 
	new Tile(2966,3402), new Tile(2966,3409), new Tile(2961,3415), 
	new Tile(2955,3419), new Tile(2949,3423), new Tile(2947,3430), 
	new Tile(2947,3437), new Tile(2946,3444), new Tile(2941,3450), 
	new Tile(2934,3450), new Tile(2927,3449), new Tile(2920,3452), 
	new Tile(2913,3453), new Tile(2906,3454), new Tile(2899,3455), 
	new Tile(2892,3456), new Tile(2888,3450), new Tile(2888,3442), 
	new Tile(2888,3435), new Tile(2886,3428), new Tile(2878,3429), 
	new Tile(2875,3436), new Tile(2873,3443), new Tile(2873,3450), 
	new Tile(2874,3457), new Tile(2873,3464), new Tile(2871,3471), 
	new Tile(2868,3478), new Tile(2869,3485), new Tile(2871,3492), 
	new Tile(2875,3498), new Tile(2877,3505), new Tile(2876,3512),
	new Tile(2871,3517), new Tile(2868,3524), new Tile(2861,3524),
	new Tile(2854,3524), new Tile(2847,3524), new Tile(2840,3525),
	new Tile(2833,3526), new Tile(2826,3523), new Tile(2819,3522), 
	new Tile(2812,3521), new Tile(2804,3516), new Tile(2799,3511),
	new Tile(2797,3504), new Tile(2800,3497), new Tile(2807,3496), 
	new Tile(2814,3499), new Tile(2821,3499), new Tile(2828,3495), 
	new Tile(2832,3488), new Tile(2836,3482), new Tile(2838,3475), 
	new Tile(2839,3468), new Tile(2844,3462), new Tile(2846,3455), 
	new Tile(2848,3448), new Tile(2855,3444), new Tile(2853,3437), 
	new Tile(2846,3439), new Tile(2839,3437), new Tile(2832,3436), 
	new Tile(2825,3436), new Tile(2818,3436), new Tile(2811,3435), 
	new Tile(2804,3435), new Tile(2797,3433), new Tile(2791,3437), 
	new Tile(2785,3442), new Tile(2779,3446), new Tile(2774,3452), 
	new Tile(2770,3459), new Tile(2764,3463), new Tile(2763,3470), 
	new Tile(2756,3474), new Tile(2749,3476), new Tile(2742,3479), 
	new Tile(2735,3483), new Tile(2728,3485), new Tile(2726,3491), };
	int iPrev = -1;
	public int cycle() {
			int i = FaladorToCamelot.length - 1;
						while(i != iPrev) {
						if(distanceTo(FaladorToCamelot[i]) < 15){
							iPrev = i;
								walkTileMM(FaladorToCamelot[i]);
								wait(500);
								if(distanceTo(FaladorToCamelot[FaladorToCamelot.length-1]) < 7){return -1;
								}
								return random(800,1400);
						}
						i--;
						}
						return random(1000,1500);
	}
}

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

Tere! :D

Hmm.. Everything seems fine for me (If script is not copied)!
Script is pretty good I think (multiplayers etc).
Also that's cool someone used my world list functions. :D

I think it's yes from me!

"Tere" : ootko desert suomest?
Yes from me anywayz

From: Pentti
Tere! :D

Hmm.. Everything seems fine for me (If script is not copied)!
Script is pretty good I think (multiplayers etc).
Also that's cool someone used my world list functions. :D

I think it's yes from me!

Tere sulle kah, sa ka Eestlane? :D Btw, that means, Hello to you too, you too Estonian? :D, i dont want someone to misunderstand anything :P
Thanks =P

From: Desert Storm
Tere sulle kah, sa ka Eestlane? :D Btw, that means, Hello to you too, you too Estonian? :D, i dont want someone to misunderstand anything :P
Thanks =P

Ma ei rääkima eesti keel. :D
Ma ole soome poeg.

Dunno if that went right, but something like that, haha. :D

From: Pentti
Ma ei rääkima eesti keel. :D
Ma ole soome poeg.

Dunno if that went right, but something like that, haha. :D

Ma ei rääkima eesti keel. :D
Ma ole soome poeg.
Il translate it:
Ma ei räägi Eesti keelt.
Ma olen Soome poeg

I don't care about the ARGA script, as this is a scar community.
The scripts looks pretty good, antirandoms and stuff.
I'll vote yes.

From: markus
I don't care about the iBot script, as this is a scar community.

It's not for I-Bot, its for ARGA. :D

Nice app script! Anyway i vote yes :P

Read again, Pentti :p

well the script isnt THAT good, no multiplayer, atleast ur not using it (didnt look very much)
you should add failsafes.

and does the ARGA script work? i mean is it relieable?

im gonna hold my vote for now.

From: JuKKa
well the script isnt THAT good, no multiplayer, atleast ur not using it.
you should add failsafes.

and does the ARGA script work? i mean is it relieable?

im gonna hold my vote for now.

Lol, It's using multiplayers, read the whole script. :D

i'we lost my eyes read to me :(

well something is still not right with the script.

i have to vote: -No, sorry

The majority of your script is from Sumilion/Lorax/Pentii.

So, sorry I vote no…

Your script for arga is extremely nooby too. It doesn't show that you are very strong at java…
Plus, arga is broken atm.. If you made a java GUI or something, that would of even been better.

Omgz0rz its you :p

Make something made a little more by you :)

No from me.

not original enough.

-no, sorry.

Pentii

the guy is Pentti, not pentii :D

pretty much a complete copy of bob's newt buyer, with bits from other peoples scripts. sorry, but no from me. compare this form bobs script:

function InMageShop: Boolean;
var xx,yy: Integer;
begin
  SymbolAccuracy:=0.8
  if (FindColorSpiralTolerance(x,y,6579308,245,175,280,215,15)) and
  (FindColorSpiralTolerance(x,y,4473930,245,175,280,215,15)) and
  (FindSymbol(xx,yy,'magic shop')) and
  (FindSymbol(x,y,'water')) and
  (FindSymbol(x,y,'Jewelery')) then
  begin
    WriteLn('I'#39'm in the mage shop');
    Result:=True
  end else
  begin
    Result:=False
  end;
  begin
    if (not(Result)) then
    begin
      Mouse(xx,yy,4,4,True);
      Flag;
      Result:=True
    end;
  end;
end;

To this from desert storms script:

function InMageShop: Boolean;
var xx,yy: Integer;
begin
  SymbolAccuracy:=0.8
  if (FindColorSpiralTolerance(x,y,6579308,155,66,355,266,15)) and
  (FindColorSpiralTolerance(x,y,4473930,155,66,355,266,15)) and
  (FindSymbol(xx,yy,'magic shop')) and
  (FindSymbol(x,y,'water')) and
  (FindSymbol(x,y,'Jewelery')) then
  begin
    WriteLn('I'#39'm in the mage shop');
    Result:=True
  end else
  begin
    Result:=False
  end;
  begin
    if (not(Result)) then
    begin
      Mouse(xx,yy,4,4,True);
      Flag;
      Result:=True
    end;
  end;
end;

This script is pretty much a dumbed down version of bob's.

wow… I should try some copy checking too… Had no idea..

Too much stuff from other people.. No.

which makes me wonder…how did he have access to memebrs only scripts?

From: The Claw
which makes me wonder…how did he have access to memebrs only scripts?

Hmm… Ye, Where he got my world list functions?
Maybe you saw them on other script in 'SRL free scripts' -section or where?

From: n3ss3s
the guy is Pentti, not pentii :D

Lol ye. :D
People have been calling me with tens of different names:
Pentii, Penti, Penttii, Pennti, Petti, Pantti, Pentty, Peti etc. :D Haha!

ooo, can I call you Pentilope?
Or Pentlet?
Or Pentles?

From: neG
ooo, can I call you Pentilope?
Or Pentlet?
Or Pentles?

Lol you can call me anything you want to, I don't care because you see; i have became accustombed to it. :D
(Btw, not sure if that word 'accustombed' was right, sometimes I hate english language).

sorry but I agree with those other buys. Guys.


No.

From: Pentti
Lol you can call me anything you want to, I don't care because you see; i have became accustombed to it. :D
(Btw, not sure if that word 'accustombed' was right, sometimes I hate english language).

until u learn to spell we won't learn to spell ur name :D
"accustomed"

From: rkroxpunk
until u learn to spell we won't learn to spell ur name :D
"accustomed"

yeah penttii I agree with rk :P