SRL Archive - Archive

newbiezkid - SRL Member Application Form

Orbital

2008-08-24 07:47:05

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

What is the meaning to life?

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

Programming Knowledge

Other Communitys
Sp0rk-eh, Blackscape, Paymeclicks

How Long have You Played Runescape
Around 3 years. (Including long breaks)

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

I've hanged around SRL for about 10 months now. I enjoy macroing and scripting and now im as enthusiastic about it than ever. I have tried especially hard at scripting for the past 2 months and have been much more active on the forums. I defiantly promise to keep it that way.

I have recently became Global mod on TOF's new site which i hope will soon be released and I am a private member on sp0rk-eh. Although those forums are dead now…

(My user was WhAcK) there…

Nothing much more but post below if you want to know more.

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

{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
 \\                                                                                                          \\
 //   WHAT IT DOES?                                                                                          //
 \\                                                                                                          \\
 //   SMELTS EVERY BAR (ALTHOUGH GOLD IS HIGHLY RECOMMENDED) AT FALLY EAST BANK INTO BARS. SMELTING GOLD     //
 \\   CONSIDERED TO BE VERT GOOD SMITHING EXPERIENCE WITH GOLDSMITH (OBTAINED FROM THE QUEST FAMILY CREST).  \\
 //   THIS SCRIPT DOES NOT REQUIRE THESE GLOVES BUT IT WOULD BE WISER TO HAVE THEM.                          //
 \\                                                                                                          \\
 //   SET YOUR CHARACTER AT FALADOR WEST BANK AND FILL OUT THE CHARACTER DETAILS BELOW. PRESS PLAY           //
 \\   AND WATCH YOUR CHARACTER SMELT.                                                                        \\
 //                                                                                                          //
 \\   PLEASE POST ANY BUGS WITH THE SCRIPT                                                                   \\
 //                                                                                                          //
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}

program FallyEasySmither;
{.include SRL\SRL\Misc\Smart.scar}
{.include SRl/SRl.scar}

var
  Loads: Integer;
  Bars: Integer;
  LoadsToGo: integer;

procedure declarePlayers;
begin
  HowManyPlayers := 3;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //username
  Players[0].Pass := ''; //password
  Players[0].Nick := ''; //3-4 letters from your username
  Players[0].Skill:= '';
  Players[0].loc  := '';
  Players[0].Active := true;
end;

const
  DeBug  =   True;
  Load  =     10; // Loads Until Next Player

{------------------------------------------------------------------------------]
[  procedure DebugText(what: string);                                          ]
[  by: Newbize                                                                 ]
[  Description: De-Bugs script                                                 ]
{------------------------------------------------------------------------------}

procedure DebugText(what: string);
begin
  case DeBug of
    True:
    begin
      Writeln(what);
      Status(what);
      Disguise(what);
    end;
    False: Status(what);
  end;
end;

{------------------------------------------------------------------------------]
[  procedure Prog(what: string);                                               ]
[  by: Newbize                                                                 ]
[  Description: De-Bugs script                                                 ]
{------------------------------------------------------------------------------}

procedure Prog(what: string);
var
  X,I: integer;

begin

  repeat
    X := GetSkillInfo('Smithing', False);
  until(X > 0);

  case what of
    'full':
    begin
      WriteLn('----------------------------');
      WriteLn('----------------------------');
      WriteLn('');
      WriteLn('Newbiz Smither East Fally ');
      WriteLn('');
      WriteLn('Ran For '+ TimeRunning);
      If Bars > 0 then
        WriteLn('Bars Made : '+IntToStr(Bars));
      If Loads > 0 then
        WriteLn('Loads done ' + IntToStr(Loads));
      if X > 0 then
      WriteLn('X');
      WriteLn('');
      WriteLn('----------------------------');
      WriteLn('----------------------------');
      Writeln('Player Info:');
      WriteLn('');
      WriteLn('|---------------------------');
      Disguise('-&#8226; Loads Done: ' + IntToStr(Loads)+'&#8226;&#8211;&#8211;');
      for i := 0 to HowManyPlayers - 1 do
       // WriteLn('|' + Capitalize(Players[i].nick));
        WriteLn('| ' + Players[i].loc);
    //    WriteLn('|'  +booltostr(Players[i].Active));
        WriteLn('|---------------------------');
        WriteLn('|---------------------------');
    end;
    'small':
    begin
      WriteLn('|---------------------------');
      WriteLn('|---------------------------');
      Writeln('Player Info:');
      WriteLn('');
      WriteLn('|---------------------------');
      Disguise('-&#8226; Loads Done: ' + IntToStr(Loads)+'&#8226;&#8211;&#8211;');
      for i := 0 to HowManyPlayers - 1 do
    //    WriteLn('|' + Capitalize(Players[i].nick));
        WriteLn('| ' + Players[i].loc);
     //   WriteLn('|' + +booltostr(Players[i].Active));
        WriteLn('|---------------------------');
        WriteLn('|---------------------------');
    end;
  end;
end;

{------------------------------------------------------------------------------]
[  function FindOre(what: string) Integer;                                     ]
[  by: Newbize                                                                 ]
[  Description: Finds Every Ore                                                ]
{------------------------------------------------------------------------------}

function FindOre(what: string): Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
  Color: Integer;
begin
  begin
    case what of
      'iron':   Color:=2305869;
      'silver': Color:=11971499;
      'coal':   Color:=2702653;
      'gold':   Color:=1815515;
    end;
  end;
  dtmMainPoint.x := 1080;
  dtmMainPoint.y := 406;
  dtmMainPoint.AreaSize := 0;
  dtmMainPoint.AreaShape := 0;
  dtmMainPoint.Color := Color;
  dtmMainPoint.Tolerance := 0;

  dtmSubPoints[0].x := 1080;
  dtmSubPoints[0].y := 406;
  dtmSubPoints[0].AreaSize := 0;
  dtmSubPoints[0].AreaShape := 0;
  dtmSubPoints[0].Color := Color
  dtmSubPoints[0].Tolerance := 0;

  dtmSubPoints[1].x := 1074;
  dtmSubPoints[1].y := 392;
  dtmSubPoints[1].AreaSize := 0;
  dtmSubPoints[1].AreaShape := 0;
  dtmSubPoints[1].Color := 65536;
  dtmSubPoints[1].Tolerance := 0;

  dtmSubPoints[2].x := 1092;
  dtmSubPoints[2].y := 399;
  dtmSubPoints[2].AreaSize := 0;
  dtmSubPoints[2].AreaShape := 0;
  dtmSubPoints[2].Color := 65536;
  dtmSubPoints[2].Tolerance := 0;

  dtmSubPoints[3].x := 1073;
  dtmSubPoints[3].y := 419;
  dtmSubPoints[3].AreaSize := 0;
  dtmSubPoints[3].AreaShape := 0;
  dtmSubPoints[3].Color := 65536;
  dtmSubPoints[3].Tolerance := 0;

  dtmSubPoints[4].x := 1063;
  dtmSubPoints[4].y := 404;
  dtmSubPoints[4].AreaSize := 0;
  dtmSubPoints[4].AreaShape := 0;
  dtmSubPoints[4].Color := 65536;
  dtmSubPoints[4].Tolerance := 0;

  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
  DebugText('Loading DDTMs');
end;

{------------------------------------------------------------------------------]
[  function FallyRdColor: Integer;                                             ]
[  by: Newbize                                                                 ]
[  Description: AutoColors Fally Road                                          ]
{------------------------------------------------------------------------------}

function FallyRdColor: Integer;
var
  H,S,L,X,Y,Z : Extended;
  R,G,B,P,A,Color : Integer;
  TPA : TPointArray;
  begin
    FindColorsSpiralTolerance(MMCX, MMCY, TPA, 6187895, MMX1, MMY1, MMX2, MMY2, 60)
    P := High(TPA);
    for A := 0 to P do
    begin
      if RS_OnMinimap(TPA[A].X, TPA[A].Y) then
      begin
        Color := GetColor(TPA[A].X, TPA[A].Y);
        if SimilarColors(Color, 6187895, 50) then
        begin
          ColorToRGB(Color, R, G, B);
          ColorToHSL(Color, H, S, L);
          ColorToXYZ(Color, X, Y, Z);
          if InRange(R - G, -8, 32) then
            if InRange(R - B, 5, 45) then
              if InRange(G - B, -7, 33) then
                if InRange(Round(X) - Round(Y), -7, 7) then
                  if InRange(Round(Y) - Round(Z), -5, 9) then
                    if GetColor(TPA[A].X + 2, TPA[A].Y + 2) = Color then
                      if GetColor(TPA[A].X + 1, TPA[A].Y + 1) = Color then
                        begin
                          Result := Color;
                          Exit;
                        end;
                      end;
                   end;
                end;
                Writeln('Color Was Not Found.');
                DebugText('Color Not Foind');
                Result := 0;
           end;
           
{------------------------------------------------------------------------------]
[  function WalkDTM(where:string):Integer;                                     ]
[  by: Newbize                                                                 ]
[  Description: Walks with radial and DDTM                                     ]
{------------------------------------------------------------------------------}

function WalkDTM(where:string):Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: Array [0..4] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  case where of
    '1':
    begin
      dtmMainPoint.x := 1100;
      dtmMainPoint.y := 302;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := FallyRdColor;
      dtmMainPoint.Tolerance := 0;

      dtmSubPoints[0].x := 1100;
      dtmSubPoints[0].y := 302;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := FallyRdColor;
      dtmSubPoints[0].Tolerance := 0;

      dtmSubPoints[1].x := 1094;
      dtmSubPoints[1].y := 294;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := 1664615;
      dtmSubPoints[1].Tolerance := 15;

      dtmSubPoints[2].x := 1103;
      dtmSubPoints[2].y := 309;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := 1530207;
      dtmSubPoints[2].Tolerance := 15;

      dtmSubPoints[3].x := 1103;
      dtmSubPoints[3].y := 292;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := 1598051;
      dtmSubPoints[3].Tolerance := 15;

      dtmSubPoints[4].x := 1087;
      dtmSubPoints[4].y := 299;
      dtmSubPoints[4].AreaSize := 0;
      dtmSubPoints[4].AreaShape := 0;
      dtmSubPoints[4].Color := 16119795;
      dtmSubPoints[4].Tolerance := 15;

      DebugText('Loaded DTM1');
    end;
    '2':
    begin
      dtmMainPoint.x := 1147;
      dtmMainPoint.y := 343;
      dtmMainPoint.AreaSize := 0;
      dtmMainPoint.AreaShape := 0;
      dtmMainPoint.Color := FallyRdColor;
      dtmMainPoint.Tolerance := 0;

      dtmSubPoints[0].x := 1147;
      dtmSubPoints[0].y := 343;
      dtmSubPoints[0].AreaSize := 0;
      dtmSubPoints[0].AreaShape := 0;
      dtmSubPoints[0].Color := FallyRdColor;
      dtmSubPoints[0].Tolerance := 0;

      dtmSubPoints[1].x := 1130;
      dtmSubPoints[1].y := 335;
      dtmSubPoints[1].AreaSize := 0;
      dtmSubPoints[1].AreaShape := 0;
      dtmSubPoints[1].Color := 2117978;
      dtmSubPoints[1].Tolerance := 12;

      dtmSubPoints[2].x := 1153;
      dtmSubPoints[2].y := 357;
      dtmSubPoints[2].AreaSize := 0;
      dtmSubPoints[2].AreaShape := 0;
      dtmSubPoints[2].Color := 2185566;
      dtmSubPoints[2].Tolerance := 12;

      dtmSubPoints[3].x := 1136;
      dtmSubPoints[3].y := 355;
      dtmSubPoints[3].AreaSize := 0;
      dtmSubPoints[3].AreaShape := 0;
      dtmSubPoints[3].Color := 2119002;
      dtmSubPoints[3].Tolerance := 12;
      DebugText('Loading DDTM 2');
    end;
  end;
  TempTDTM.MainPoint := dtmMainPoint;
  TempTDTM.SubPoints := dtmSubPoints;
  Result := AddDTM(TempTDTM);
end;

{------------------------------------------------------------------------------]
[  function WalkDTM(where:string):Integer;                                     ]
[  by: Newbize                                                                 ]
[  Description: Walks with radial and DDTM                                     ]
{------------------------------------------------------------------------------}

Function Walk(WhereTo: string): boolean;
var
  DTMM: integer;
  X,Y: Integer;
begin
  SetRun(True);
  case whereTo of

    'Smith':
    begin
      If (Not LoggedIn) then
        Exit;
      If RadialWalk(FallyRdColor,00,00,00,2,2) then
      begin
        Writeln('RoadColor Is Good');
        DebugText('Walked Step 1');
      end else

      begin
        Writeln('RadialWalk Failed, DDTM now');
        if not DTMRotated(WalkDTM('1'), x, y,  MMX1, MMY1, MMX2, MMY2) then
        begin
          Writeln ('did not found bank dtm');
          Nextplayer(false);
          DebugText('Bank Not found');
          Exit;
        end;
        FFlag(0);
      end;

      if RadialWalk(FallyRdColor,20,80,65,2,2) then
      begin
        Writeln('Walked To Point 2');
        DebugText('WalkedToPoint 2');
      end else
      begin
        DebugText('Radial Failed DDTM');
        if not DTMRotated(WalkDTM('2'), x, y,  MMX1, MMY1, MMX2, MMY2) then
        begin
          Writeln ('did not found dtm');
          DebugText('No DDTM found NecxPlayer');
          Nextplayer(false);
          Exit;
        end;
        FFlag(0);
      end;

      if (findSymbol(x, y, 'bank')) then
      begin
        writeln('Smithing Symbol Found');
        DebugText('Found Symbol,, Arrived');
        Mouse(x, y -5, 2 , 2, true);
        FFlag(0);
        Writeln('Arrived At Smith');
        Exit;
      end;
      Mouse(661, 129 - 5 , 2, 2, True);
      FFlag(0);
    end;

    'Bank':
    begin
      DTMM := DTMFromString('78DA633466616098C6C8800CB6ACEA07D3305' +
           '1460BA09AD9A86AFEFC61425563805D0D3FB21A73A09A3904D4D8103' +
           '6070012480E37');
      if Not RadialWalk(FallyRdColor,250,330,67, 2 , 2) then
      begin
        if not DTMRotated(WalkDTM('2'), x, y,  MMX1, MMY1, MMX2, MMY2) then
        begin
          Writeln ('did not found dtm');
          DebugText('DTM not found');
          Nextplayer(false);
          Exit;
        end;

        FFlag(0);
        if not DTMRotated(WalkDTM('1'), x, y,  MMX1, MMY1, MMX2, MMY2) then
        begin
          RadialWalk(FallyRdColor,180, 240 , 70 ,2 ,2);
          Writeln ('did not found dtm');
          DebugText('DTM not found');
        end;

        FFlag(0);
        if not DTMRotated(DTMM, x, y,  MMX1, MMY1, MMX2, MMY2) then
        begin
          DebugText('DTM not found');
          DebugText('backing up');
          Mouse(630, 87,2,2,true);
        end;

        FFlag(0);
      end;
    end;
  end;
  FindNormalRandoms;
  Result:= True;
  FreeDTM(walkDTM('1'));
  FreeDTM(walkDTM('2'));
end;

{------------------------------------------------------------------------------]
[  function FindSmelt : Boolean;                                               ]
[  by: Newbize                                                                 ]
[  Description: Finds the Smelt With Simaple TPA                               ]
{------------------------------------------------------------------------------}

function FindSmelt : Boolean;
var
  Z,I : Integer;
  TPA: TPointArray;
  TPAS: T2DPointArray;

begin
  SetAngle(True);
  if not LoggedIn then Exit;
  FindColorsSpiralTolerance(MSCX, MSCY - 75, TPA, 4022675, MSX1, MSY1, MSX2, MSY2, 10);
  for z:= 0 to High(TPA)do
  begin
    TPAS := TPAToATPA(TPA, 25);
    if GetArrayLength(TPAS) < 6 then
      Exit;
    for I := 0 To High(TPAS) do
      TPA[I] := MiddleTPA(TPAS[I]);
    for I := 0 To Length(TPA) do
    MMouse(TPA[I].X , TPA[I].Y , 5, 5);

    if IsUpText('melt') then
    begin
      Result := True;
      FindNormalRandoms;
      DeBugText('Found');
      Exit;
    end;

  Wait(350+random(350));
  end;
  Result := False;
  FindNormalRandoms;
  DeBugText('Not found');
end;

{------------------------------------------------------------------------------]
[  function FindPerson : Boolean;                                              ]
[  by: Newbize                                                                 ]
[  Description: Finds People With Simaple TPA                                  ]
{------------------------------------------------------------------------------}

function FindPerson : Boolean;
var
  Person: TPointArray;
  People: T2DPointArray;
  I: integer;


begin
  if not LoggedIn then
    Exit;
  FindColorsSpiralTolerance(MSCX, MSCY, Person, 456736775, MSX1, MSY1, MSX2, MSY2, 40);
  People := TPAToATPA(Person, 16);
  if GetArrayLength(people) < 3 then
    Exit;
  for I := 0 To High(People) do
    Person[I] := MiddleTPA(People[I]);
  for I := 0 To Length(Person) do
  MMouse(Person[I].X , Person[I].Y , 5, 5);
  if IsUpText('alk') then
    Result:= True;
  wait(1);
end;

{------------------------------------------------------------------------------]
[  procedure PosArray;                                                         ]
[  by: Newbize /SRL                                                            ]
[  Description: Based Off the One Removed From SRL                             ]
{------------------------------------------------------------------------------}
function PosArray(Text: array of string): Boolean;
var
  I : integer;
  II: string;

begin
  Result := False;
  GetLastChatText(II);
  for I := 0 to High(Text) do
  if Pos(Lowercase(Text[i]), Lowercase(II)) > 0 then
    Result := True;
  wait(1)
end;

{------------------------------------------------------------------------------]
[  procedure AutoRespond;                                                      ]
[  by: Newbize                                                                 ]
[  Description: Finds People With Simaple TPA                                  ]
{------------------------------------------------------------------------------}

procedure AutoRespond;
var
  Text: string;
  OldMessage: string;
  X: integer;
begin
  GetLastChatText(Text);
  if OldMessage = Text then
    Exit;
  if not FindPerson then
  begin
    DeBugText('Not found People Around');
    Exit;
  end;

  if PosArray(['smith l','lvl', 'ith lv', 'sm l', 'smithing lvl']) then
  begin
    repeat
      X := GetSkillInfo('Smithing', False);
    until(X > 0);

    Case Random(4) of
      0: TypeSend(IntToStr(x));
      1: TypeSend('im ' + IntToStr(x) + ' and you?');
      2: TypeSend('go away');
      3: TypeSend('I' + chr(39) + 'm ' + IntToStr(x));
    end;
    exit;
  end;

  if PosArray(['lol','ha','lmao','rofl','lmfao']) then
  begin
    case random(5) of
      0: TypeSend('ahahah good 1');
      1: TypeSend('lol');
      2: TypeSend('rofl');
      3: TypeSend('lmao');
      4: TypeSend('Meh.');
    end;
    Exit;
  end;

  if PosArray(['hi','hello','sup']) then
  begin
    case random(5) of
      0: TypeSend('hey');
      1: TypeSend('lol hey');
      2: TypeSend('hi');
      3: TypeSend('hi!!!!');
      4: TypeSend('yessum?');
    end;
    Exit;
  end;
end;

{------------------------------------------------------------------------------]
[  Function Smith(Number: integer): boolean;                                   ]
[  by: Newbize                                                                 ]
[  Description: Smiths Tabs WIth Simple Mathhhhh                               ]
{------------------------------------------------------------------------------}

Function Smith(Number: integer): boolean;
begin
  while LoggedIn do
    DeBugText('Clicking Smithing Box');
    MouseBox(40+(Number - 1)* 50,398,61+(Number - 1)* 50,412,1);
    wait(500 + random(300));
    FindNormalRandoms;
    Result:= True;
end;

{------------------------------------------------------------------------------]
[  procedure Banking;                                                          ]
[  by: Newbize                                                                 ]
[  Description: Banks for each or =d                                           ]
{------------------------------------------------------------------------------}

procedure Banking;
var
  KK,x,y:integer;
begin
  DeBugText('Banking');

  repeat
    OpenBankFast('FWB');
    if TimeFromMark(Kk) > 20000 then
      Exit;
    wait(4);
  until(BankScreen);

  if BankScreen then
  begin
    DeBugText('Banking');
    Deposit(1,28,true);
  end else
  begin
    NextPlayer(False);
    DeBugText('Next Player');
  end;

  Wait(500+random(100));
  begin
    case (Players[CurrentPlayer].Skill) of
      'iron':
      begin
        FindOre('iron');
        begin
          mouse(x,y,3,3,false);
          wait(200+random(100));
          chooseOption('All');
          FreeDTM(FindOre('iron'));
        end;
      end;

      'silver':
      begin
        FindOre('silver');
        begin
          mouse(x,y,3,3,false);
          wait(200+random(100));
          chooseOption('All');
          FreeDTM(FindOre('silver'));
        end;
      end;

      'steel':
      begin
        FindOre('iron');
        begin
          mouse(x,y,3,3,false);
          wait(200+random(100));
          if chooseOption('X') then
          begin
            wait(300+random(100));
            typesend('9');
          end;
          FreeDTM(FindOre('iron'));
        end;
        FindOre('coal');
        begin
          mouse(x,y,3,3,false);
          wait(200+random(100));
          if chooseOption('X') then
          begin
            wait(300+random(100));
            typesend('18');
          end;
        end;
        FreeDTM(FindOre('coal'));
      end;

      'gold':
      begin
        FindOre('gold');
        begin
          mouse(x,y,3,3,false);
          wait(200+random(100));
          chooseOption('All');
          FreeDTM(FindOre('gold'));
        end;
      end;
    end;
    wait(1000+random(200));
    CloseBank;
    FindNormalRandoms;
    AutoRespond;
  end;
end;

{------------------------------------------------------------------------------]
[  function AntiBan(High:string): boolean;                                     ]
[  by: Newbize                                                                 ]
[  Description: AntiBans At Low And high Levels                                ]
{------------------------------------------------------------------------------}

function AntiBan(High:string): boolean;
begin
  case High of
    'high':
     begin
       case random(3) of
         1:begin
             BoredHuman;
             Result := True;
          end;
         2:begin
            RandomRClick;
            Wait(2000 + random(2500));
            Result := True;
          end;
          3:begin
              PickUpMouse;
              Wait(2000 + random(2500));
              Result := True;
            end;
         end;
         Result := True;
      end;

     'low':
     begin
       case random(5) of
         1:begin
            if GameTab(1+random(8)) then wait(random(500));
          end;
         2:begin
            if GameTab(1+random(2)) then wait(random(500));
          end;
         3:wait(random(1000));
         4:PickUpMouse;
         5:RandomRClick;
      end;
      Result := True;
    end;
  end;
end;

{------------------------------------------------------------------------------]
[  procedure Main                                                              ]
[  by: Newbize                                                                 ]
[  Description: 1 load of this script                                          ]
{------------------------------------------------------------------------------}

procedure Main;
var
  XX,X,Y: integer;

begin
  Banking;
  DeBugText('Looping');
  if walk('There') then
  begin
    if FindSmelt then
    begin
      GetMousePos(X, Y);
      Mouse(X, Y, 0, 0, True);
    end;
  end else
  begin
    DeBugText('Lost NextPLayer');
    NextPlayer(False);
    Exit;
  end;

  begin
    case (Players[CurrentPlayer].Skill) of
      'iron'    : Smith(1);
      'steel'   : Smith(4);
      'gold'    : Smith(6);
      'silver'  : Smith(2);
    end;
  end;
  MarkTime(XX);

  repeat
    AntiBan('high');
    AntiBan('low');
    AutoRespond;
    if TimeFromMark(xx) > 25000 then
      Break;
    wait(2);
  until(false);

  FindNormalRandoms;
  if walk('There') then
  begin
    DeBugText('+ 1 Loads');
    Exit;
    Loads:= Loads + 1;
    Bars:= Bars + 1;
  end;
  Writeln('Lost');
  NextPlayer(False);
  Exit;
end;

{------------------------------------------------------------------------------]
[  procedure Loop;                                                             ]
[  by: Newbize                                                                 ]
[  Description: Loops until load = done                                        ]
{------------------------------------------------------------------------------}

procedure Loop;
begin
  repeat
    Main;
    LoadsToGo:= LoadsToGo - 1;
    Prog('full');
  until(LoadsToGo = 0)or(not LoggedIn);
  NextPlayer(true);
end;

begin
  SmartSetUp('world104',true,true,false);
  wait(2000);
  wait(2000);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  LoadsToGo := Load;
  DeclarePLayers;
  prog('full');
  LoginPlayer;
  SetAngle(true);
  SetChat('on',1);
  SetChat('on',2);
  SetChat('on',3);
  SetChat('on',4);
  SetChat('on',5);
  SetRun(true);
  MakeCompass ('n');
  repeat
    Loop;
  until(false);
end.

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

NiCbaZ

2008-08-24 07:52:04

wow nice app better than your first one i have been helping you on msn for a while now your just getting better and better some cool functions there nice tpas good standards yep

Naike

2008-08-24 08:14:17

Nice app.. Better then most apps these days :)

Also try using LowerCase(String) in your cases..

Y e e s !

NiCbaZ

2008-08-24 08:16:06

oh and grats on winning sotW btw

skilld u

2008-08-24 08:27:16

fosho.

Scaper

2008-08-24 08:41:04

nice app nice to see you have rrw backed up with those DTMs
theres alot more i have to say about it but im going out now cya :D

YES

GoF

2008-08-24 09:00:39

Didn't you have WhAcK and some other acc here too -.- …

Anyhow, I'll vote later.

boberman

2008-08-24 11:34:15

I'm voting yes. It is pretty good.

There are some redundant things though. Like the road color function (forget its name now). SRL already has a fally roadcolor function, you should us that instead. (Helps to keep your script up to date)

Other then that, and a few other nitpicks, it is a pretty good looking script. Good job.

NiCbaZ

2008-08-25 02:20:03

ok sorry i didnt say much in the first post .. il comment on it now…'

Like the DDTM for the ores neat.
standards are very nice
you could have a little more antiban while smithing but your people finder is cool

MouseBox(40+(Number - 1)* 50,398,61+(Number - 1)* 50,412,1);

nice, did you get that off my simple math tut?

i like the script its all looks good.

Orbital

2008-08-25 02:21:24

Thanks a lot guys… =]…

@ GoF… It's a long story that I have explained to the admins…

ive been working on something new on my script here it is if anyone wants to see its not finshed but its getting there.

http://pastebin.com/m681d5bc2

Nava2

2008-08-25 10:20:49

Yes, good standards, clean code.

Few things to improve, but I believe you can help out SRL as a bright yellow. ;)

GoF

2008-08-26 15:03:42

Well.. In that case.. All I can say is:

Torrent of Flame

2008-08-26 15:45:08

I say yes too.

Its better then my app and I got in so (:

Naike

2008-08-27 02:26:53

Graats buddy your propely getting in :)

MasterKill

2008-08-27 03:35:21

yes from me.

Naum

2008-08-27 08:21:54

Why not, Its the best app of the month :).

Yessir!

Bonfield

2008-08-27 08:34:33

yea great app

Negaal

2008-08-27 09:05:45

From: MasterKill
yes from me.

nielsie95

2008-08-27 11:47:56

Welcome, sir.