SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys


How Long have You Played Runescape
1 year

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

hey guys trying again for membership to SRL been intrested in scripting just been on holidays for alot hehe:)

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

program Smelter;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/misc/Users.scar}

{          //////////////////////////////////////////
          ////////// Ub3r Sm3lt3r //////////////////
          //By Thechineseman ///////////////////////
         Credits to:
         NaumanAkhlaQ (fixed a small bit of find furnace and Form Design by NaumanAkhlaQ)
         and to all the other people who helped me :) Thank you!!!!!!!!!!}
         
  ////////////////////////////////////////////////////////////////////////////////////////
  /////To work the script you first have to setup you smart world then press play/////////
  /////you will then get a form choose 'setup players' to setup your players and /////////
  /////then press 'start script' to start!!///////////////////////////////////////////////
  ////////////////////////////////////////////////////////////////////////////////////////

  //Note:Remember this script is for fally west bank and will travel to the fally smelter to smelt your bars
  //so start in fally west bank with nothing in ur inv

const
SMART  = 108;//smart world
Steelc  = 7369081;
Bronzec = 2440270;
Ironc   = 5066067;
Goldc   = 1479089;
Silverc = 8879228;
Mithc   = 5124401;
Addyc   = 3359283;

var
  x,y,tries,t:integer;
  checked : Boolean;
var
  // Main_Menu variables.
  frmDesign : TForm;
  GroupBox1 : TGroupBox;
  Button1, Button2, Button3 : TButton;
  Memo1 : TMemo;

Procedure Click(Sender : TObject);
Begin
  Case Sender Of
    Button1 : SRLPlayerForm(True, [], [], ['What To Smelt'], []);
    Button2 : Wait(1);
    Button3 : FrmDesign.ModalResult := mrOk;
  end;
end;

// This form was parsed using: DFM Form Parser v.25 by Ron.
procedure Main_Menu;
var
  TimeMain_Menu : Integer;
begin
  TimeMain_Menu := GetSystemTime;
  frmDesign := CreateForm;
  with frmDesign do
  begin
    Position := poScreenCenter;
    BorderStyle := bsSingle;
    BorderIcons := [biMinimize,biSystemMenu];
    ClientWidth := 304;
    ClientHeight := 232;
    Caption := ' Ub3r Sm3lt3r By TheChineseMan';
    Color := clBtnFace;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PixelsPerInch := 96;
  end;
  GroupBox1 := TGroupBox.Create(frmDesign);
  with GroupBox1 do
  begin
    Parent := frmDesign;
    Left := 0;
    Top := 0;
    Width := 305;
    Height := 233;
    Caption := '                 The Chinese Man'#39's Ub3r Sm3lt0r !!!';
    Color := clTeal;
    ParentColor := False;
    TabOrder := 0;
  end;
  Button1 := TButton.Create(GroupBox1);
  with Button1 do
  begin
    Parent := GroupBox1;
    Left := 24;
    Top := 48;
    Width := 121;
    Height := 49;
    Caption := 'Set Up Your Players';
    TabOrder := 0;
    OnClick := @Click;
  end;
  Button2 := TButton.Create(GroupBox1);
  with Button2 do
  begin
    Parent := GroupBox1;
    Left := 24;
    Top := 120;
    Width := 121;
    Height := 49;
    Caption := 'Visit The Script Thread';
    TabOrder := 1;
    OnClick := @Click;
  end;
  Button3 := TButton.Create(GroupBox1);
  with Button3 do
  begin
    Parent := GroupBox1;
    Left := 24;
    Top := 184;
    Width := 249;
    Height := 33;
    Caption := 'Start Sm3lt0rzz!!!';
    TabOrder := 2;
    OnClick := @Click;
  end;
  Memo1 := TMemo.Create(GroupBox1);
  with Memo1 do
  begin
    Parent := GroupBox1;
    Left := 160;
    Top := 48;
    Width := 129;
    Height := 121;
    with Memo1.Lines do
    begin
      Add('Welcome to my smelter,');
      Add('The current version is V1. ');
      Add('This is still under testing');
      Add('Enjoy using :) !');
      Add('');
      Add('Current Version := 1.0');
      Add('Resent Version := 1.0;');
      Add('Up To Date !!!!!');
    end;
    ReadOnly := True;
    TabOrder := 3;
  end;
  WriteLn('Main_Menu compiled in ' + IntToStr(GetSystemTime - TimeMain_Menu) + ' milliseconds!');
end;

procedure SafeMain_Menu;
var
  V : TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('Main_Menu', V);
end;

procedure ShowMain_MenuModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowMain_MenuModal;
var
  V : TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowMain_MenuModal', V);
end;

procedure MainMain_Menu;
begin
  try
    SafeMain_Menu;
    SafeShowMain_MenuModal;
  finally
    FreeForm(frmDesign);
  except
    WriteLn('An error seems to have occurred in: Main_Menu');
  end;
end;

function LoadDDTM(DDTM: Integer): Integer;
var
  dtmMainPoint: TDTMPointDef;
  dtmSubPoints: array[0..3] of TDTMPointDef;
  TempTDTM: TDTM;
begin
  if not LoggedIn then Exit;
  case DDTM of
    1: begin
         dtmMainPoint.x := 753;
         dtmMainPoint.y := 173;
         dtmMainPoint.AreaSize := 3;
         dtmMainPoint.AreaShape := 0;
         dtmMainPoint.Color := FindFallyRoadColor;
         dtmMainPoint.Tolerance := 0;
         dtmSubPoints[0].x := 754;
         dtmSubPoints[0].y := 201;
         dtmSubPoints[0].AreaSize := 3;
         dtmSubPoints[0].AreaShape := 0;
         dtmSubPoints[0].Color := FindFallyRoadColor;
         dtmSubPoints[0].Tolerance := 0;
         dtmSubPoints[1].x := 735;
         dtmSubPoints[1].y := 175;
         dtmSubPoints[1].AreaSize := 3;
         dtmSubPoints[1].AreaShape := 0;
         dtmSubPoints[1].Color := FindFallyRoadColor;
         dtmSubPoints[1].Tolerance := 0;
         dtmSubPoints[2].x := 758;
         dtmSubPoints[2].y := 152;
         dtmSubPoints[2].AreaSize := 3;
         dtmSubPoints[2].AreaShape := 0;
         dtmSubPoints[2].Color := FindFallyRoadColor;
         dtmSubPoints[2].Tolerance := 0;
         dtmSubPoints[3].x := 776;
         dtmSubPoints[3].y := 151;
         dtmSubPoints[3].AreaSize := 3;
         dtmSubPoints[3].AreaShape := 0;
         dtmSubPoints[3].Color := FindFallyRoadColor;
         dtmSubPoints[3].Tolerance := 0;
         TempTDTM.MainPoint := dtmMainPoint;
         TempTDTM.SubPoints := dtmSubPoints;
         Result := AddDTM(TempTDTM);
       end;
    2: begin
        dtmMainPoint.x := 908;
        dtmMainPoint.y := 166;
        dtmMainPoint.AreaSize := 0;
        dtmMainPoint.AreaShape := 0;
        dtmMainPoint.Color := FindFallyRoadColor;
        dtmMainPoint.Tolerance := 0;
        dtmSubPoints[0].x := 877;
        dtmSubPoints[0].y := 192;
        dtmSubPoints[0].AreaSize := 0;
        dtmSubPoints[0].AreaShape := 0;
        dtmSubPoints[0].Color := FindFallyRoadColor;
        dtmSubPoints[0].Tolerance := 0;
        dtmSubPoints[1].x := 958;
        dtmSubPoints[1].y := 255;
        dtmSubPoints[1].AreaSize := 0;
        dtmSubPoints[1].AreaShape := 0;
        dtmSubPoints[1].Color := FindFallyRoadColor;
        dtmSubPoints[1].Tolerance := 0;
        dtmSubPoints[2].x := 963;
        dtmSubPoints[2].y := 220;
        dtmSubPoints[2].AreaSize := 0;
        dtmSubPoints[2].AreaShape := 0;
        dtmSubPoints[2].Color := FindFallyRoadColor;
        dtmSubPoints[2].Tolerance := 0;
        dtmSubPoints[3].x := 958;
        dtmSubPoints[3].y := 206;
        dtmSubPoints[3].AreaSize := 0;
        dtmSubPoints[3].AreaShape := 0;
        dtmSubPoints[3].Color := FindFallyRoadColor;
        dtmSubPoints[3].Tolerance := 0;
        TempTDTM.MainPoint := dtmMainPoint;
        TempTDTM.SubPoints := dtmSubPoints;
        Result := AddDTM(TempTDTM);
      end;
   3: begin
        dtmMainPoint.x := 906;
        dtmMainPoint.y := 265;
        dtmMainPoint.AreaSize := 0;
        dtmMainPoint.AreaShape := 0;
        dtmMainPoint.Color := FindFallyRoadColor;
        dtmMainPoint.Tolerance := 0;
        dtmSubPoints[0].x := 890;
        dtmSubPoints[0].y := 238;
        dtmSubPoints[0].AreaSize := 0;
        dtmSubPoints[0].AreaShape := 0;
        dtmSubPoints[0].Color := FindFallyRoadColor;
        dtmSubPoints[0].Tolerance := 0;
        dtmSubPoints[1].x := 883;
        dtmSubPoints[1].y := 285;
        dtmSubPoints[1].AreaSize := 0;
        dtmSubPoints[1].AreaShape := 0;
        dtmSubPoints[1].Color := FindFallyRoadColor;
        dtmSubPoints[1].Tolerance := 0;
        dtmSubPoints[2].x := 883;
        dtmSubPoints[2].y := 253;
        dtmSubPoints[2].AreaSize := 0;
        dtmSubPoints[2].AreaShape := 0;
        dtmSubPoints[2].Color := FindFallyRoadColor;
        dtmSubPoints[2].Tolerance := 0;
        dtmSubPoints[3].x := 881;
        dtmSubPoints[3].y := 265;
        dtmSubPoints[3].AreaSize := 0;
        dtmSubPoints[3].AreaShape := 0;
        dtmSubPoints[3].Color := FindFallyRoadColor;
        dtmSubPoints[3].Tolerance := 0;
        TempTDTM.MainPoint := dtmMainPoint;
        TempTDTM.SubPoints := dtmSubPoints;
        Result := AddDTM(TempTDTM);
      end;
   4: begin
        dtmMainPoint.x := 765;
        dtmMainPoint.y := 216;
        dtmMainPoint.AreaSize := 0;
        dtmMainPoint.AreaShape := 0;
        dtmMainPoint.Color := FindFallyRoadColor;
        dtmMainPoint.Tolerance := 0;
        dtmSubPoints[0].x := 786;
        dtmSubPoints[0].y := 213;
        dtmSubPoints[0].AreaSize := 0;
        dtmSubPoints[0].AreaShape := 0;
        dtmSubPoints[0].Color := FindFallyRoadColor;
        dtmSubPoints[0].Tolerance := 0;
        dtmSubPoints[1].x := 762;
        dtmSubPoints[1].y := 238;
        dtmSubPoints[1].AreaSize := 0;
        dtmSubPoints[1].AreaShape := 0;
        dtmSubPoints[1].Color := FindFallyRoadColor;
        dtmSubPoints[1].Tolerance := 0;
        dtmSubPoints[2].x := 807;
        dtmSubPoints[2].y := 221;
        dtmSubPoints[2].AreaSize := 0;
        dtmSubPoints[2].AreaShape := 0;
        dtmSubPoints[2].Color := FindFallyRoadColor;
        dtmSubPoints[2].Tolerance := 0;
        dtmSubPoints[3].x := 821;
        dtmSubPoints[3].y := 252;
        dtmSubPoints[3].AreaSize := 0;
        dtmSubPoints[3].AreaShape := 0;
        dtmSubPoints[3].Color := FindFallyRoadColor;
        dtmSubPoints[3].Tolerance := 0;
        TempTDTM.MainPoint := dtmMainPoint;
        TempTDTM.SubPoints := dtmSubPoints;
        Result := AddDTM(TempTDTM);
      end;
   5: begin
        dtmMainPoint.x := 730;
        dtmMainPoint.y := 173;
        dtmMainPoint.AreaSize := 0;
        dtmMainPoint.AreaShape := 0;
        dtmMainPoint.Color := FindFallyRoadColor;
        dtmMainPoint.Tolerance := 0;
        dtmSubPoints[0].x := 740;
        dtmSubPoints[0].y := 139;
        dtmSubPoints[0].AreaSize := 0;
        dtmSubPoints[0].AreaShape := 0;
        dtmSubPoints[0].Color := FindFallyRoadColor;
        dtmSubPoints[0].Tolerance := 0;
        dtmSubPoints[1].x := 728;
        dtmSubPoints[1].y := 193;
        dtmSubPoints[1].AreaSize := 0;
        dtmSubPoints[1].AreaShape := 0;
        dtmSubPoints[1].Color := FindFallyRoadColor;
        dtmSubPoints[1].Tolerance := 0;
        dtmSubPoints[2].x := 726;
        dtmSubPoints[2].y := 173;
        dtmSubPoints[2].AreaSize := 0;
        dtmSubPoints[2].AreaShape := 0;
        dtmSubPoints[2].Color := FindFallyRoadColor;
        dtmSubPoints[2].Tolerance := 0;
        dtmSubPoints[3].x := 729;
        dtmSubPoints[3].y := 135;
        dtmSubPoints[3].AreaSize := 0;
        dtmSubPoints[3].AreaShape := 0;
        dtmSubPoints[3].Color := FindFallyRoadColor;
        dtmSubPoints[3].Tolerance := 0;
        TempTDTM.MainPoint := dtmMainPoint;
        TempTDTM.SubPoints := dtmSubPoints;
        Result := AddDTM(TempTDTM);
      end;
  end;
end;

procedure Antiban;
var
  z: integer;
begin
  if not LoggedIn then Exit;
  z := random(20);
  case z of
    1:     HoverSkill('Smithing',False);
    2:     Gametab(4);
    3:     Gametab(randomrange(3,5));
    4:     Gametab(8);
    5:     RandomMovement;
    7:     MouseSpeed := RandomRange(10,14);
    8:     MMouse(random(600),random(600),50,50);
  end;
end;

procedure Waitforstar;
var
  star: integer;

begin
  if not LoggedIn then Exit;
  Star := DTMFromString('78DA63946264607804C428A0814107280412F' +
       'D0F048CB240D6434C35200013650499739F801A3122CC1107B29E' +
       '10502343580D0008210D27');
  repeat
    FindDTM(Star,x,y,MCX1, MCY1, MCX2, MCY2);
    Wait(300);
    Inc(tries);
  until FindDTM(Star,x,y,MCX1, MCY1, MCX2, MCY2) or (tries =10);
  FreeDTM(Star);
  if (tries=10) then
  exit;
end;

procedure Bank;
begin
  setangle(True);
  MakeCompass('N');
  OpenBankFast('FEB');
  if (BankScreen) then
  exit;
end;

Procedure Withdrawores;
var
 Copper,Tin,Coal,Iron,Mith,Silver,Addy,Gold :integer;
Begin
  if (bankscreen) then
  begin
    depositall;
    banks := banks + 1;
    case lowercase(players[currentplayer].Strings[0]) of
    'steel': begin
      Coal := DTMFromString('78DA636C626460C80262246069A1C6C005A44' +
       '1A2FF81807102909584AA06220B2381742390554E404D11909543' +
       '404D1990954C404D0F9055885F0D000B0C0A45');
      Iron := DTMFromString('78DA635CC7C8C09005C448C0434791810B488' +
       '344FF0301E31E202B19550D44164602E9CD4056110135F380AC5C' +
       '026A961061D70A20AB1CBF1A008B530B46');
      if (FindDTM(Coal,x,y,MSX1, MSY1, MSX2, MSY2)) then
      begin
        mouse(x,y,2,2,false);
        chooseOption('X');
        waitforstar;
        Wait(200);
        Typesend('18');
        FreeDTM(Coal);
        wait(100);
        if (FindDTM(Iron,x,y,MSX1, MSY1, MSX2, MSY2)) then
        begin
          mouse(x,y,2,2,false);
          ChooseOption('X');
          waitforstar;
          Wait(200);
          Typesend('9');
          FreeDTM(iron);
        end else
        begin
          WriteLn('Cant find ores in bank logging');
          closebank;
          NextPlayer(False);
          Exit; // Exit the procedure, so it wont continue!!
        end;
      end;
    end;
    
    'bronze': begin
      Copper := DTMFromString('78DA63AC63646078C180026ED45A30C80169A' +
       '00CC37F2060EC06B21E32A00146241248E703594F08A82904B23E' +
       '1050D30164BDC7AF06002F600CB8');
      Tin := DTMFromString('78DA635463646078C58002BA9B1A19E480345' +
       '086E13F10301A0259F719D000231209A42580ACC704D4C801595F' +
       '09A83100B2DEE357030079520B09');
      if (FindDTM(Tin,x,y,MSX1, MSY1, MSX2, MSY2)) then
      begin
        mouse(x,y,2,2,false);
        chooseOption('X');
        waitforstar;
        wait(1000);
        Typesend('14');
        FreeDTM(Tin);
        if (FindDTM(Copper,x,y,MSX1, MSY1, MSX2, MSY2)) then
        mouse(x,y,2,2,false);
        wait(1000);
        chooseOption('All');
        FreeDTM(Copper);
      end else
      begin
        WriteLn('Cant find ores in bank logging');
        closebank;
        NextPlayer(False);
        Exit; // Exit the procedure, so it wont continue!!
      end;
    end;
    
    'iron': begin
      Iron := DTMFromString('78DA635CC7C8C09005C448C0434791810B488' +
       '344FF0301E31E202B19550D44164602E9CD4056110135F380AC5C' +
       '026A961061D70A20AB1CBF1A008B530B46');
      if (FindDTM(Iron,x,y,MSX1, MSY1, MSX2, MSY2)) then
      begin
        mouse(x,y,2,2,false);
        wait(1000);
        chooseOption('All');
        FreeDTM(Iron);
      end else
      begin
        WriteLn('Cant find ores in bank logging');
        closebank;
        NextPlayer(False);
        Exit; // Exit the procedure, so it wont continue!!
      end;
    end;
    
    'silver': begin
      Silver := DTMFromString('78DA6364636260C866644006F3E7AF66E007D' +
       '220D1FF40C0F80DC8CA445503918591401A644E29013522403529' +
       '04D43001D5C41050C3075453885F0D00539B09B7');
      if (FindDTM(Silver,x,y,MSX1, MSY1, MSX2, MSY2)) then
      begin
        mouse(x,y,2,2,false);
        wait(1000);
        chooseOption('All');
        FreeDTM(Silver);
      end else
      begin
        WriteLn('Cant find ores in bank logging');
        closebank;
        NextPlayer(False);
        Exit; // Exit the procedure, so it wont continue!!
      end;
    end;
    
    'gold': begin
      Gold := DTMFromString('78DA63BCCDC8C09005C448E0F62669067E200' +
       'D12FD0F048C2F81AC54543510591809A4CF02592904D45C04B20A' +
       '08A8B905649511500372731C7E3500DD2B0D5F');
      if (FindDTM(Gold,x,y,MSX1, MSY1, MSX2, MSY2)) then
      begin
        mouse(x,y,2,2,false);
        wait(1000);
        chooseOption('All');
        FreeDTM(Gold);
      end else
      begin
        WriteLn('Cant find ores in bank logging');
        closebank;
        NextPlayer(False);
        Exit; // Exit the procedure, so it wont continue!!
      end;
     end;
     
    'mith': begin
      Coal := DTMFromString('78DA636C626460C80262246069A1C6C005A44' +
       '1A2FF81807102909584AA06220B2381742390554E404D11909543' +
       '404D1990954C404D0F9055885F0D000B0C0A45');
      Mith := DTMFromString('78DA63346462604867644006F6F631601A26C' +
       'AE800549382AA06260B57A307541343408D12504D260135064035' +
       'E5986AF891D5D800D5E4E336870588016EB204B4');
      if (FindDTM(Mith,x,y,MSX1, MSY1, MSX2, MSY2)) then
      begin
        mouse(x,y,2,2,false);
        wait(1000);
        chooseOption('5');
        FreeDTM(Mith);
        if (FindDTM(Coal,x,y,MSX1, MSY1, MSX2, MSY2)) then
        begin
          mouse(x,y,2,2,false);
          wait(1000);
          chooseOption('X');
          waitforstar;
          wait(1000);
          Typesend('20');
          FreeDTM(Coal);
        end else
        begin
          WriteLn('Cant find ores in bank logging');
          closebank;
          NextPlayer(False);
          Exit; // Exit the procedure, so it wont continue!!
        end;
      end;
    end;
  
    'addy': begin
      Coal := DTMFromString('78DA636C626460C80262246069A1C6C005A44' +
       '1A2FF81807102909584AA06220B2381742390554E404D11909543' +
       '404D1990954C404D0F9055885F0D000B0C0A45');
      Addy := DTMFromString('78DA63DCC6C4C090C5C8800CBC62BD18F8813' +
       '448F43F10301E01AA49415503918591407A05504D1A01359B816A' +
       'CA09A801B9279E0A6A0E02D514E0570300B9140D01');
      if (FindDTM(Addy,x,y,MSX1, MSY1, MSX2, MSY2)) then
      begin
        mouse(x,y,2,2,false);
        chooseOption('X');
        waitforstar;
        wait(1000);
        Typesend('3');
        FreeDTM(Addy);
        if (FindDTM(Coal,x,y,MSX1, MSY1, MSX2, MSY2)) then
        begin
          mouse(x,y,2,2,false);
          wait(1000);
          chooseOption('X');
          waitforstar;
          wait(1000);
          Typesend('21');
          FreeDTM(Coal);
        end else
        begin
          WriteLn('Cant find ores in bank logging');
          closebank;
          NextPlayer(False);
          Exit; // Exit the procedure, so it wont continue!!
        end;
      end;
    end;
  end;
  closebank;
end;
end;

procedure Checkores;
var
  Ore: integer;
begin
  if not LoggedIn then Exit;
  MakeCompass('N');
  antiban;
  Ore := DTMFromString('78DA635CC7C8C09005C448C0434791E10B500' +
       '824FA1F0818F70059C9A86A20B23012486F06B28A08A8990764E5' +
       '1250B38408BB560059E5F8D500003BA10C31');
  gametab(4)
  findnormalrandoms;
  if not (FindDTM(Ore,x,y,MIX1, MIY1, MIX2, MIY2)) then
  begin
    bank;
    Withdrawores;
    if (not(checked))then checkores;
    WriteLn('Ore check failed');
  end else
  WriteLn('Ore check passed');
  FreeDTM(Ore);
end;

function walk(walker: integer): boolean;
var
  WalkDTM: integer;
begin
  case walker of
  1: begin
       WalkDTM := LoadDDTM(1);
       if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
       begin
         WriteLn('DDTM walking to point 1 sucessful');
         Mouse(X, Y, 0, 0, True);
         FFlag(0);
         Result := True;
       end else
       if RadialRoadWalk(FindFallyRoadColor, 29, 53, 70, 1, 1) then
       begin
         FreeDTM(WalkDTM);
         Writeln('DDTM failed on point 1 using radial');
         Result := True;
       end else
       begin
         Result := False;
         Writeln('DDTM and radial failed logging out');
         FreeDTM(WalkDTM);
         if not (Result) then
         begin
           Players[CurrentPlayer].Active := False; // Set your player to false!!
           Players[CurrentPlayer].Loc := 'Walking to there';
           LogOut; // Log him out!!
           Exit; // Exit the procedure, so it wont continue!!
         end;
       end;
     end;

     2: begin
          WalkDTM := LoadDDTM(2);
          if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
          begin
          WriteLn('DDTM walking to point 2 sucessful');
          Mouse(X, Y, 0, 0, True);
          FFlag(0);
          Result := True;
       end else
       if RadialRoadWalk(FindFallyRoadColor, 79, 128, 70, 1, 1) then
       begin
         FreeDTM(WalkDTM);
         Writeln('DDTM failed on point 2 trying again');
         Result := True;
       end else
       begin
         Result := False;
         Writeln('DDTM and radial failed logging out');
         FreeDTM(WalkDTM);
         if not (Result) then
         begin
           Players[CurrentPlayer].Active := False; // Set your player to false!!
           Players[CurrentPlayer].Loc := 'Walking to there';
           LogOut; // Log him out!!
           Exit; // Exit the procedure, so it wont continue!!
         end;
       end;
     end;

     3: begin
          WalkDTM := LoadDDTM(3);
          if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
          begin
            Writeln('DDTM walking to point 3 sucessful');
            Mouse(X, Y, 0, 0, True);
            FFlag(0);
            Result := True
          end else
          if RadialRoadWalk(FindFallyRoadColor, 79, 128, 70, 1, 1) then
          begin
            FreeDTM(WalkDTM);
            Writeln('DDTM failed on point 3 trying again');
            Result := True;
          end else
          begin
            Result := False;
            Writeln('DDTM and radial failed logging out');
            FreeDTM(WalkDTM);
            if not (Result) then
            begin
              Players[CurrentPlayer].Active := False; // Set your player to false!!
              Players[CurrentPlayer].Loc := 'Walking to there';
              LogOut; // Log him out!!
              Exit; // Exit the procedure, so it wont continue!!
            end;
          end;
        end;

        4: begin
             WalkDTM := LoadDDTM(4);
             if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
             begin
               Writeln('DDTM walking back to point 4 sucessful');
               Mouse(X, Y, 0, 0, True);
               FFlag(0);
               Result := True;
             end else
             if RadialRoadWalk(FindFallyRoadColor, 246, 281, 60, 1, 1) then
             begin
               FreeDTM(WalkDTM);
               Writeln('DDTM failed on point 4 trying again');
               Result := True;
             end else
             begin
               Result := False;
               Writeln('DDTM and radial failed logging out');
               FreeDTM(WalkDTM);
               if not (Result) then
               begin
                 Players[CurrentPlayer].Active := False; // Set your player to false!!
                 Players[CurrentPlayer].Loc := 'Walking to there';
                 LogOut; // Log him out!!
                 Exit; // Exit the procedure, so it wont continue!!
               end;
             end;
           end;

           5: begin
                WalkDTM := LoadDDTM(5);
                if FindDTM(WalkDTM, X, Y, MMx1,MMy1,MMx2,MMy2) then
                begin
                  Writeln('DDTM walking back to point 5 sucessful');
                  Mouse(X, Y, 0, 0, True);
                  FFlag(0);
                  Result := True;
                end else
                if RadialRoadWalk(FindFallyRoadColor, 246, 281, 60, 1, 1) then
                begin
                  FreeDTM(WalkDTM);
                  Writeln('DDTM failed on point 5 trying again');
                  Result := True;
                end else
                begin
                  Result := False;
                  Writeln('DDTM and radial failed logging out');
                  FreeDTM(WalkDTM);
                  if not (Result) then
                  begin
                    Players[CurrentPlayer].Active := False; // Set your player to false!!
                    Players[CurrentPlayer].Loc := 'Walking to there';
                    LogOut; // Log him out!!
                    Exit; // Exit the procedure, so it wont continue!!
                  end;
                end;
              end;
            end;
          end;

function Walktosmelter: boolean;
begin
  walk(1);
  walk(2);
  walk(5);
  SymbolAccuracy := 0.7;
  if (FindSymbol(x,y,'Furnace')) then
  begin
    SymbolAccuracy := 0.7;
    Mouse(x,y,0,0,True);
    Writeln('Found the furance symbol walking now');
    Result := True;
  end else
  begin
    Writeln('Cant find the furnace symbol trying again');
    RadialRoadWalk(FindFallyRoadColor, 143, 208, 50, 1, 1);
    FFLag(0);
    wait(1000);
    SymbolAccuracy := 0.7;
    if (FindSymbol(x,y,'Furnace')) then
    begin
      SymbolAccuracy := 0.7;
      Mouse(x,y,0,0,True);
      Writeln('Found the Furnace walking to it now');
      wait(1000);
      Result := True;
    end else
    begin
      RadialRoadWalk(FindFallyRoadColor, 53, 101, 70, 1, 1);
      FFLag(0);
      wait(1000);
      Result := True;
      SymbolAccuracy := 0.7;
      if (FindSymbol(x,y,'Furnace')) then
      begin
        SymbolAccuracy := 0.7;
        Mouse(x,y,0,0,True);
        FFlag(0);
        Writeln('Found the Furnace walking to it now');
        Result := True;
      end else
      begin
        Result := False;
        Writeln('Cant find the furnace symbol logging out');
        if not (Result) then
        begin
          Players[CurrentPlayer].Active := False; // Set your player to false!!
          Players[CurrentPlayer].Loc := 'Walking to there';
          LogOut; // Log him out!!
          Exit;
        end;
      end;
    end;
  end;
end;

Function FindFurnace : Boolean;  //Ty to NaumanAkhlaQ, for the fix :)
var
  FColor : array [0..4] of Integer;
  i,c : integer;

begin
  FColor[0] := 3750205;
  FColor[1] := 4144964;
  FColor[2] := 3552826;
  FColor[3] := 3947585;
  FColor[4] := 2829359;
  begin
    For i:= 0 to 4 do
    begin
      Repeat
        If FindObjTPA(x,y,FColor[i], 10, 2, 20, 20, 30,['el', 'mel', 'lt']) then
        begin
          if IsUpText('melt') Then
          begin
            Mouse(x, y, 0, 0, True);
            Wait(3000 + Random(75));
            Findnormalrandoms;
            Result := FindColorTolerance(x,y,Steelc,30,389,498,451,15);
            C := C +1;
          end;
        end;
      Until(Result) or (C > 10);
      Exit;
      if (C > 10) then
      begin
        Writeln('Cant find the furance...');
        Players[CurrentPlayer].Active := False; // Set your player to false!!
        Players[CurrentPlayer].Loc := 'Walking to there';
        LogOut; // Log him out!!
        Exit;
      end;
    end;
  end;
end;

procedure Makebars;
var
  Ore: integer;
begin
  Ore := DTMFromString('78DA635CC7C8C09005C448C0434791E10B500' +
       '824FA1F0818F70059C9A86A20B23012486F06B28A08A8990764E5' +
       '1250B38408BB560059E5F8D500003BA10C31');
  case lowercase(players[currentplayer].Strings[0]) of
    'bronze':
    begin
      FindColorTolerance(x,y,Bronzec,22,389,498,451,15);
      Mouse(x, y, 0, 0, false);
      chooseOption('X');
      waitforstar;
      wait(500);
      Typesend('121');
      repeat
        wait(45000);
        antiban;
      until (TimeFromMark(t) > 45000) or (not loggedin)
    end;

    'iron':
    begin
      FindColorTolerance(x,y,Ironc,30,389,498,451,15);
      Mouse(x, y, 0, 0, false);
      chooseOption('X');
      waitforstar;
      wait(500);
      Typesend('121');
      antiban;
      repeat
        wait(85000);
      until (TimeFromMark(t) > 85000) or (not loggedin)
    end;

    'steel':
    begin
      FindColorTolerance(x,y,Steelc,30,389,498,451,15);
      Mouse(x, y, 0, 0, false);
      wait(500);
      chooseOption('10');
      antiban;
      repeat
        wait(33000);
      until (TimeFromMark(t) > 34000) or (not loggedin) or not (FindDTM(Ore,x,y,MIX1, MIY1, MIX2, MIY2))
    end;

    'silver':
    begin
      FindColorTolerance(x,y,Silverc,30,389,498,451,15);
      Mouse(x, y, 0, 0, false);
      chooseOption('X');
      waitforstar;
      wait(500);
      Typesend('121');
      antiban;
      repeat
        wait(85000);
      until (TimeFromMark(t) > 85000) or (not loggedin)
    end;

    'gold':
    begin
      FindColorTolerance(x,y,Goldc,30,389,498,451,15);
      Mouse(x, y, 0, 0, false);
      chooseOption('X');
      waitforstar;
      wait(500);
      Typesend('121');
      antiban;
      repeat
        wait(85000);
      until (TimeFromMark(t) > 85000) or (not loggedin)
    end;

    'mith':
    begin
      FindColorTolerance(x,y,Mithc,30,389,498,451,15);
      Mouse(x, y, 0, 0, false);
      wait(500);
      chooseOption('10');
      antiban;
      repeat
        wait(25000);
      until (TimeFromMark(t) > 20000) or (not loggedin)
    end;

    'addy':
    begin
      FindColorTolerance(x,y,Addyc,30,389,498,451,15);
      Mouse(x, y, 0, 0, false);
      wait(500);
      chooseOption('10');
      antiban;
      repeat
        wait(15000);
      until (TimeFromMark(t) > 10000) or (not loggedin)
    end;
  end;
  FreeDTM(Ore);
end;


Function Walkback: boolean;
begin
  walk(5);
  walk(2);
  walk(4);
  SymbolAccuracy := 0.7;
  if (FindSymbol(x,y,'Bank')) then
  begin
    SymbolAccuracy := 0.7;
    Mouse(x,y,3,3,True);
    Writeln('Found the Bank symbol walking to it now');
    Result := True;
  end else
  begin
    Writeln('Cant find the Bank symbol trying again');
    SymbolAccuracy := 0.7;
    if (FindSymbol(x,y,'Water')) then
    Result := True;
    SymbolAccuracy := 0.7;
    begin
      Writeln('Found the Water symbol walking to it now');
      Mouse(x,y,0,0,True);
      FFLag(5);
      wait(1000);
    end;
    SymbolAccuracy := 0.7;
    if (FindSymbol(x,y,'Bank')) then
    begin
      SymbolAccuracy := 0.7;
      Mouse(x,y,3,3,True);
      FFlag(0);
      Writeln('Found the Bank walking to it now');
      Result := True;
    end else
    RadialRoadWalk(FindFallyRoadColor, 246, 281, 60, 1, 1);
    FFLag(0);
    wait(1000);
    SymbolAccuracy := 0.7;
    if (FindSymbol(x,y,'Bank')) then
    begin
      SymbolAccuracy := 0.7;
      Mouse(x,y,3,3,True);
      FFlag(0);
      Writeln('Found the Bank walking to it now');
      Result := True;
    end else
    begin
      Result := False;
      Writeln('Cant find the Bank logging out');
      if not (Result) then
      begin
        Players[CurrentPlayer].Active := False; // Set your player to false!!
        Players[CurrentPlayer].Loc := 'Walking to there';
        LogOut; // Log him out!!
        Exit; // Exit the procedure, so it wont continue!!
      end;
    end;
  end;
end;

procedure Proggies;
begin
  WriteLn('?!?!?!?!?!?!?!Progrees Time?!?!?!?!?!?!?!?!??');
  WriteLn('How long did the ub3r script run for??!?!?!?!');
  WriteLn('?!?!?!?!?!?!?Pls post proggie after done?!?!?!?!?!?!?!?!');
  WriteLn('Player: ' + Players[CurrentPlayer].Name);
  WriteLn('Script has been running for ' + Timerunning);
  WriteLn('Script has done ' + IntToStr(Banks)+  ' loads of bars that ur making');
end;


procedure Mainloop;
begin
  SmartSetupEx(SMART, true, true, false);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  ClearDebug;
  GetApplication.BringToFront;

  MainMain_Menu;
  GetApplication.Minimize;
  SRLPlayerForm(False, [], [], ['What To Smelt'], []);
  loginplayer;
  cleardebug;
  repeat
    repeat
      Bank;
      Withdrawores;
      Checkores;
      Walktosmelter;
      Findfurnace;
      Makebars;
      Walkback;
      Proggies;
    Until (not loggedin);
    NextPlayer(True);
  Until False;
end;

begin
  Mainloop;
end.

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

No because you did not listsen 2 me when i tryed to help you, all the walking procedures could be one used like

function walk(what: string): boolean;

you could create a DDTM and make it dynamic so you dont need a seperate dtm for each ore, there more but 2g2.

I tried to use the DDTM for the ore but i spent like 2 hours on that but it still wouldnt work… it wouldnt find the ores and just kept searching around in the bank soz

EDIT: made the walking procedures all into 1 to make it take up less space in procedure list

looks good, EXCEPT you dont use DTMRotated, its okay, because you know DDTM's and stuff, but just use DTMRotated when you do mapwalking with DTM's and DDTM's. Also if you edit the script at all, keep the original and post the new one below it.

Edit-9 posts till 1k

Edit-Forgot to say, Yes

yes,

It's obvious this guy can script.

YES!

Just make sure you use FindDTMRotated for finding DTMs on the minimap.

Cut em2 it

NicBaz - Don't give this guy a no becuase he ignores you.. I do that alot ;)

Yes defently in.

Yes ^^

Yep.
~Eerik~

i'm not gonna vote but everyone above me except nicbaz i agree with you can script and i'm guessing your in dude youve got a good script

From: N1ke!
NicBaz - Don't give this guy a no becuase he ignores you.. I do that alot ;)

Yes defently in.

Not what im getting at, justs there are lots of things he can improve on.

From: NiCbaZ
Not what im getting at, justs there are lots of things he can improve on.

Nicbaz if your going to flame him, should flame me, he obvisously used my tutorial:
http://www.villavu.com/forum/showthread.php?t=32608

BTW, very nice script, GL.

From: NiCbaZ
No because you did not listsen 2 me when i tryed to help you, all the walking procedures could be one used like

function walk(what: string): boolean;

you could create a DDTM and make it dynamic so you dont need a seperate dtm for each ore, there more but 2g2.

not a good enough reason to vote no, did u see the thread that WT Fawki posted last weeek?

From: NiCbaZ
Not what im getting at, justs there are lots of things he can improve on.

if u think he can improve it would benifit him more if u told him where he needs improvement not just say there is alot of work needed

anyways good script and you have always had a good attitude towards me so im voting yes and goodluck on getting members just try to become more active

YES!

But i cant vote lol, sorry if i got you excited. Looks pretty good to me, only suggest you clean up the functions abit, looks abit messy. Only had a lil look through as i am at work.

10 - 2 though, so looking good :D

yea thx guys im really excited about this, going on holiday for about 2 weeks so i wont be able to check out SRL in a long time… i just cant wait!!!!!!!!!!!

Are you really chinese? :x
[offtopic]I have a chinese kiddy @ school who LEARNS, LEARNS, and if he gets a A- (or 9.0 outta 10 in Holland) he has bruises in his neck next day :/ [/offtopic]

Anyways, you can script, so yes.

Great Job man, see that you credited accordingly. Thats a definate yes!

From: Laur€ns
Are you really chinese? :x
[offtopic]I have a chinese kiddy @ school who LEARNS, LEARNS, and if he gets a A- (or 9.0 outta 10 in Holland) he has bruises in his neck next day :/ [/offtopic]

Anyways, you can script, so yes.

Haha well u can say im part chinese but im not that smart to get A-… and i get like B and C and sometimes an A but i never get brusies just get them from sports…

yep :)

~shut

Welcome, sir.