SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
SCAR, a bit of Delphi, HTML

Other Communitys
Neofriends.net

How Long have You Played Runescape
3 years

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

Well I've been working with scar for over 2 months now, I've been working on a bunch of scripts and learning more about Delphi programming.

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

program SweetKharidMultiSmelter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Smithing.scar}
Const
     Loadz              = 100;         //How many loads you want to do PER player
     SRLStatsID         = '';          //Your SRL Stats ID
     SRLStatsPass       = '';          //Your SRL Stats Password
     BankPin            = '1111';      //Your bank pin, MUST BE A STRING!
     RunDir             = 'E';         //Direction to Run away from randoms
     StartPlayer        = 0;           //Your Start Player
{--------Colours--------}
     FurnaceColour      = 1121674;     //Colour of the Furnace, Leave Alone
     IronFurnace        = 5921634;     //Colour of the Iron Bar on the furnace
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
Var
     Loads : integer;
{~~~~~Player Setup~~~~~}
Procedure DeclarePlayers;
 begin
  HowManyPlayers :=4;              //Number of Players your using
  NumberOfPlayers(HowManyPlayers); //Just Leave Alone
  CurrentPlayer:= StartPlayer;     //Your Start Player which you set above

  Players[0].Name   :='Username';
  Players[0].Pass   :='Password';
  Players[0].Nick   :='NickName';
  Players[0].Skill  :='Smithing';
  Players[0].Loc    :=''
  Players[0].Active :=True;
  Players[0].String2:='Steel';      //Type of bars to make, MUST BE CAPATALIZED!

  Players[1].Name   :='Username';
  Players[1].Pass   :='Password';
  Players[1].Nick   :='Nickname';
  Players[1].Skill  :='Smithing';
  Players[1].Loc    :=''
  Players[1].Active :=True;
  Players[1].String2:='Iron';       //Type of bars to make, MUST BE CAPATALIZED!

  Players[2].Name   :='Username';
  Players[2].Pass   :='Password';
  Players[2].Nick   :='Nickname';
  Players[2].Skill  :='Smithing';
  Players[2].Loc    :=''
  Players[2].Active :=True;
  Players[2].String2:='Bronze';     //Type of bars to make, MUST BE CAPATALIZED!

  Players[3].Name   :='Username';
  Players[3].Pass   :='Password';
  Players[3].Nick   :='Nickname';
  Players[3].Skill  :='Smithing';
  Players[3].Loc    :=''
  Players[3].Active :=True;
  Players[3].String2:='Mithril';    //Type of bars to make, MUST BE CAPATALIZED!

 end;

{~~~~~End Setup~~~~~}

{~~Find Randoms~~}
Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 12 do
  begin
    case I of
       1:  If FindDead then
             Result := True;
       2:  If FindMod then
             Result := True;
       3:  If FindMime then
             Result := True;
       4:  If FindMaze then
             Result := True;
       5:  If FindQuiz then
             Result := True;
       6:  If FindDemon then
             Result := True;
       7: begin
             if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Writeln('No GameTabs, Logging out');
               Logout;
               Exit;
             end;
           end;
       8: begin
             If InBlack then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'InBlack';
               Writeln('In Black, Logging out');
               Logout;
               Exit;
             end;
           end;
       9 : If RC Then Result := True;

       10 :   If FindFight Then
             Begin
               Result := True;
               MakeCompass('N');
               RunTo(RunDir, True);
               MakeCompass('N');
             End;

       11: If FindTalk Then Result := True;

    End;
    Wait(1);
  end;
end;

{~~Half Way Furnace~~}
Procedure HalfWayFurn;
begin
 HighestAngle;
 MakeCompass('N');
 Wait(300);
 Mouse(671,24,681,34,true);
 FindFastRandoms;
 FindNormalRandoms;
 Flag;
end;

{~~To Furnace~~}
Procedure WalkToFurnace;
begin
  if (FindSymbol(x,y,'furnace')) or
     (FindMMColor(x,y,481263)) then
  begin
  MMouse(x,y,2,2);
  Mouse(x,y,2,2,True);
  FindFastRandoms;
  FindNormalRandoms;
  Flag;
  Wait(2500);
  end;
end;

{~~Smelt Furnace~~}
Procedure SmeltFurny;
begin
 OpenFurnace2;
 Wait(200);
 If (Players[CurrentPlayer].String2='Iron') then
  begin
 If (FindColorTolerance(x,y,4013379,156,397,157,398,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
   end;
  end;

 If (Players[CurrentPlayer].String2='Bronze') then
  begin
 If (FindColorTolerance(x,y,1584702,51,339,52,400,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
    end;
   end;

 If (Players[CurrentPlayer].String2='Steel') then
  begin
 If (FindColorTolerance(x,y,6316394,256,396,257,397,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
   end;
  end;

 If (Players[CurrentPlayer].String2='Mithril') then
  begin
 If (FindColorTolerance(x,y,5124657,359,394,360,395,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
   end;
  end;

 If (Players[CurrentPlayer].String2='Adamant') then
  begin
 If (FindColorTolerance(x,y,3425076,415,396,414,397,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
   end;
  end;

 If (Players[CurrentPlayer].String2='Rune') then
  begin
 If (FindColorTolerance(x,y,5524277,463,396,464,397,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
   end;
  end;

 If (Players[CurrentPlayer].String2='Gold') then
  begin
 If (FindColorTolerance(x,y,951463,555,641,556,642,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
   end;
  end;

 If (Players[CurrentPlayer].String2='Silver') then
  begin
 If (FindColorTolerance(x,y,8945020,451,640,452,641,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
   end;
  end;

 If (Players[CurrentPlayer].String2='Blurite') then
  begin
 If (FindColorTolerance(x,y,11492442,350,640,351,641,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out'));
   end;
 end;
end;

{~~Back To Bank~~}
Procedure BackToBank;
begin
   Mouse(659,118,669,128,true);
   FindFastRandoms;
   FindNormalRandoms;
   Flag;
   if (FindSymbol(x,y,'Bank')) then
      begin
         Mouse(x,y,2,2,true);
         Flag;
      end;
end;

{~~Open Bank~~}
Procedure OpenBankProcedure;
Begin
   OpenBankQuiet('akb');
   if (PinScreen) then
      begin
         InPin(BankPin);
      end;
end;
{~~Withdraw Ores~~}
Procedure WithdrawOres;
begin
   if (Players[CurrentPlayer].String2='Bronze') then
      begin
         Withdraw(1,1,14);
         Wait(200);
         Withdraw(1,2,14);
      end;
   if (Players[CurrentPlayer].String2='Blurite') then
      begin
         Withdraw(1,1,28);
      end;
   if (Players[CurrentPlayer].String2='Iron') then
      begin
         Withdraw(1,1,28);
      end;
   if (Players[CurrentPlayer].String2='Silver') then
      begin
         Withdraw(1,1,28);
      end;
   if (Players[CurrentPlayer].String2='Steel') then
      begin
         Withdraw(1,1,9);
         Wait(200);
         Withdraw(1,2,18);
      end;
   if (Players[CurrentPlayer].String2='Gold') then
      begin
         Withdraw(1,1,28);
      end;
   if (Players[CurrentPlayer].String2='Mithril') then
      begin
         Withdraw(1,1,5);
         Wait(200);
         Withdraw(1,2,20);
      end;
   if (Players[CurrentPlayer].String2='Adamant') then
      begin
         Withdraw(1,1,4);
         Wait(200);
         Withdraw(1,2,24);
      end;
   if (Players[CurrentPlayer].String2='Runite') then
      begin
         Withdraw(1,1,3);
         Wait(200);
         Withdraw(1,2,24);
      end;
   CloseBank;
end;

{~~DepositLoad~~}
Procedure DepositLoad;
begin
   OpenBankQuiet('akb');
   Wait(200+Random(550));
   DepositAll;
end;

{~~Proggy~~}
Procedure Proggy;
begin
 ClearDebug;
 writeln(' [ ]Sweet Multi Smelter Revamb![ ]');
 writeln('   [ ]-----For Al Kharid-----[ ]');
 writeln('[ ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[ ]');
 writeln(' |------Made By Dudesareus!------|');
 writeln('    Time Running: '+ ScriptTime2(2));
 writeln('    Loads Done: '+ inttostr(Loads) +' Loads');
 writeln(' |-------------------------------|');
 writeln('[ ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[ ]');
end;
 
{~~Main Frame~~}
begin
SetupSRL;
DeclarePlayers;
DisguiseScar('Google - Mozilla Firefox');
NEWLINE:='';
SRLRandomsReport;
SRLID:=SRLStatsID;
SRLPassword:=SRLStatsPass;
repeat
   if (Not(LoggedIn)) then
      begin
         LoginPlayer;
      end;
   Proggy;
   OpenBank;
   DepositLoad;
   WithdrawOres;
   HalfWayFurn;
   WalkToFurnace;
   SmeltFurny;
   BackToBank;
   OpenBankProcedure;
   DepositLoad;
   Loads:=Loads+1;
if (Loads=Loadz) then
   begin
      Logout;
      NextPlayer(True);
      Loads:=0;
   end;
until(False);
end.

{
By Dudesareus, this smelts ores in Al Kharid

Kind of bars to make are
Iron   Bronze   Steel   Mithril   Adamant   Rune  Gold  Silver  and  Blurite


Future Updates Will Include;
The Ability to smelt in Falador!
}
program DudesKharidSmelter;
{.include SRL/SRL.scar}
{.include SRL\SRL\skill\Smithing.scar}

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
Const
     Loadz              = 100;         //How many loads you want to do PER player
     SRLStatsID         = '';          //Your SRL Stats ID
     SRLStatsPass       = '';          //Your SRL Stats Password
     BankPin            = '1111';      //Your bank pin, MUST BE A STRING!
     RunDir             = 'E';         //Direction to Run away from randoms
     StartPlayer        = 0;           //Your Start Player
{--------Colours--------}
     FurnaceColour      = 1121674;     //Colour of the Furnace, Leave Alone
     IronFurnace        = 5921634;     //Colour of the Iron Bar on the furnace
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
Var
     Loads : integer;
     Copper, Tin, Iron, Coal, Mithril, Adamant, Rune, Blurite, Silver, Gold  : integer;
{~~~~~Player Setup~~~~~}
Procedure DeclarePlayers;
 begin
  HowManyPlayers :=4;              //Number of Players your using
  NumberOfPlayers(HowManyPlayers); //Just Leave Alone
  CurrentPlayer:= StartPlayer;     //Your Start Player which you set above

  Players[0].Name   :='Username';
  Players[0].Pass   :='Password';
  Players[0].Nick   :='NickName';
  Players[0].Skill  :='Smithing';
  Players[0].Loc    :=''
  Players[0].Active :=True;
  Players[0].String2:='Steel';      //Type of bars to make, MUST BE CAPATALIZED!

  Players[1].Name   :='Username';
  Players[1].Pass   :='Password';
  Players[1].Nick   :='Nickname';
  Players[1].Skill  :='Smithing';
  Players[1].Loc    :=''
  Players[1].Active :=True;
  Players[1].String2:='Iron';       //Type of bars to make, MUST BE CAPATALIZED!

  Players[2].Name   :='Username';
  Players[2].Pass   :='Password';
  Players[2].Nick   :='Nickname';
  Players[2].Skill  :='Smithing';
  Players[2].Loc    :=''
  Players[2].Active :=True;
  Players[2].String2:='Bronze';     //Type of bars to make, MUST BE CAPATALIZED!

  Players[3].Name   :='Username';
  Players[3].Pass   :='Password';
  Players[3].Nick   :='Nickname';
  Players[3].Skill  :='Smithing';
  Players[3].Loc    :=''
  Players[3].Active :=True;
  Players[3].String2:='Mithril';    //Type of bars to make, MUST BE CAPATALIZED!

 end;
 
{~~~~~End Setup~~~~~}

{~~DTMs~~}
Procedure DeclareBMPs;
begin
  Copper := BitmapFromString(6, 4, '874518974E18AA581FCA6728CA6728C' +
       'A6728974E18974E18B96021CA6728D66F29D66F29974E18AA581F' +
       'B96021CA6728DE7229DE7229AA581FB96021CA6728D66F29EA782' +
       'BEA782B');

  Tin := BitmapFromString(6, 4, 'z78DA6D8CB10DC0300CC37E8A25CBAB' +
       'DDF6FF971A404B8076E1424A6808E4C283CEE0B0C59C9C93B63FC' +
       'D28B44C36F78BED7691E1A6202ACCAFF5B64A976EF305031B1FD6' +
       '');

  Iron := BitmapFromString(6, 4, 'z78DA33B23434313430B234B4303430' +
       '3634740692964606A8244416438D050A09114737C1C2C4C8C8044' +
       '61250636C646168010032671CFE');

  Coal := BitmapFromString(6, 4, 'z78DA33B43034377033B43074363430' +
       '32343200929646168616C8A421716A70C93AC349882C5E35005E2' +
       'A1D97');

  Mithril := BitmapFromString(6, 4, 'z78DA6D8CB90D002010C366BA247C25' +
       '4262FF91780B40346EEC0406C7808428D008552646974F2EFB34C' +
       '5F364B74579DBEB47369AC98F1D5B41F461B10199951E62');

  Adamant := BitmapFromString(6, 4, 'z78DA6D8C310A00200C03DFD424053B' +
       'EAFF1FA545110B0EB9211702A7A121182B26D2181A8C97DBD68D5' +
       'BDA43174E5F1ED20A6925EFD27773EDE60474721DD6');

  Rune := BitmapFromString(6, 4, 'z78DA4D8CC10D003108C3660292543C' +
       '4BF7DFA9277195F8F8115BF18C827BC2B0C35064249762B2ED6CE' +
       '03CCAC96FC77830EE6765AAE6B4FDFC371057342FA2FA1E80');
       
  Blurite := BitmapFromString(6, 4, '4547874A4D945A5CB26568CB6568CB6' +
       '568CB4A4D944A4D945A5CB27576CE7576CE7576CE5256A55A5CB2' +
       '6568CB7576CE848AD6848AD65A5CB26362BD6568CB8282D68C8ED' +
       '69595D9');

  Silver := BitmapFromString(6, 4, '64646E6D6D767E7E8A8D8E9A92929F8' +
       'D8E9A6D6D766D6D7682828E9999A69999A69B9BA874747E7E7E8A' +
       '8D8E9A9696A3A2A2AEA4A4B07E7E8A89899692929F9E9EABA7A7B' +
       '2A9A9B4');
       
  Gold := BitmapFromString(6, 4, 'z78DAB370333730B0B000938E2E1696' +
       '064ECEE6968E8606C8A4055E352EE68EE63035105964351059088' +
       '95F164202001F31203D');
end;

{~~Find Randoms~~}
Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 12 do
  begin
    case I of
       1:  If FindDead then
             Result := True;
       2:  If FindMod then
             Result := True;
       3:  If FindMime then
             Result := True;
       4:  If FindMaze then
             Result := True;
       5:  If FindQuiz then
             Result := True;
       6:  If FindDemon then
             Result := True;
       7: begin
             if NoGameTab then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Writeln('No GameTabs, Logging out');
               Logout;
               Exit;
             end;
           end;
       8: begin
             If InBlack then
             begin
               Result := True;
               Players[CurrentPlayer].loc := 'InBlack';
               Writeln('In Black, Logging out');
               Logout;
               Exit;
             end;
           end;
       9 : If RC Then Result := True;

       10 :   If FindFight Then
             Begin
               Result := True;
               MakeCompass('N');
               RunTo(RunDir, True);
               MakeCompass('N');
             End;

       11: If FindTalk Then Result := True;

    End;
    Wait(1);
  end;
end;

{~~Function ExtendFurnace~~}
Function ExtendFurnace : boolean;
begin
 if (FindMSColor(x,y,2631725)) or
    (FindMSColor(x,y,2302758)) or
    (FindMSColor(x,y,3026482)) or
    (FindMSColor(x,y,2105377)) and
    (IsUpText('melt')) or
    (IsUpText('elt')) or
    (IsUpText('urnace')) or
    (IsUpText('nace')) then
 begin
  Result :=True;
  Mouse(x,y,2,2,false);
  Wait(150);
  ChooseOption(x,y,'melt');
  Wait(150);
 end;
end;

{~~Answer To Messages~~}
Procedure AnswerBack;
var
   response, level:string;
   reply:integer;
begin
 if (FindChatText('smithing')) or
    (FindChatText('smithin')) or
    (FindChatText('smith')) and
    (FindChatText('lvl')) or
    (FindChatText('level')) then
     begin
      reply:= Random(2)+1;
      level:= IntToStr(GetSkillLevel('smithing'));
       Case (Reply) of
        0 : response:= ('my smithing level is.....' +level+'!!');
        1 : response:= ('level' +level);
        2 : response:= ('only level' +level);
       end;
      TypeSend(response);
     end;
    end;

{~~Set Brightness~~}
Procedure SetBrightness;
begin
 GameTab(11);
 Wait(150);
 Mouse(679,228,680,229,true);
end;

{~~Map Settings~~}
Procedure MapSettings;
begin
 HighestAngle;
 MakeCompass('N');
 Wait(500);
 MakeCompass('N');
 Wait(500);
 SetRun(True);
end;

{~~Half Way Furnace~~}
Procedure HalfWayFurn;
begin
 MakeCompass('N');
 Wait(300);
 if (FindMMColor(x,y,1129564)) then
 begin
  MMouse(x,y,2,2);
  Mouse(x,y,2,2,true);
  Flag;
  Wait(2000);
 end;
 FindFastRandoms;
 Wait(1000);
end;

{~~To Furnace~~}
Procedure WalkToFurnace;
begin
  if (FindSymbol(x,y,'furnace')) or
     (FindMMColor(x,y,481263)) then
  begin
  MMouse(x,y,2,2);
  Mouse(x,y,2,2,True);
  FindFastRandoms;
  FindNormalRandoms;
  Flag;
  Wait(2500);
  end;
end;

{~~Smelt Iron~~}
Procedure SmeltFurny;
begin
 ExtendFurnace;
 Wait(200);
 If (Players[CurrentPlayer].String2='Iron') then
  begin
 If (FindColorTolerance(x,y,4013379,156,397,157,398,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(iron,x,y)));
   end;
  end;
  
 If (Players[CurrentPlayer].String2='Bronze') then
  begin
 If (FindColorTolerance(x,y,1584702,51,339,52,400,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(copper,x,y)));
    end;
   end;
    
 If (Players[CurrentPlayer].String2='Steel') then
  begin
 If (FindColorTolerance(x,y,6316394,256,396,257,397,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(iron,x,y)));
   end;
  end;

 If (Players[CurrentPlayer].String2='Mithril') then
  begin
 If (FindColorTolerance(x,y,5124657,359,394,360,395,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(mithril,x,y)));
   end;
  end;
  
 If (Players[CurrentPlayer].String2='Adamant') then
  begin
 If (FindColorTolerance(x,y,3425076,415,396,414,397,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(adamant,x,y)));
   end;
  end;
   
 If (Players[CurrentPlayer].String2='Rune') then
  begin
 If (FindColorTolerance(x,y,5524277,463,396,464,397,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(rune,x,y)));
   end;
  end;
  
 If (Players[CurrentPlayer].String2='Gold') then
  begin
 If (FindColorTolerance(x,y,951463,555,641,556,642,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(Gold,x,y)));
   end;
  end;
  
 If (Players[CurrentPlayer].String2='Silver') then
  begin
 If (FindColorTolerance(x,y,8945020,451,640,452,641,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(Silver,x,y)));
   end;
  end;
  
 If (Players[CurrentPlayer].String2='Blurite') then
  begin
 If (FindColorTolerance(x,y,11492442,350,640,351,641,5)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,False);
   ChooseOption(x,y,'Smelt X');
   Wait(100);
   TypeSend('999' +chr(13));
    repeat
     FindFastRandoms;
     FindNormalRandoms;
     Wait(250 +random(250));
     GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);
    until(FindChatText('run out')) or
         (Not (FindBitmap(iron,x,y)));
   end;
  end;
  
 end;

{~~Half Way Back~~}
Procedure HalfWayBack;
begin
 HighestAngle;
 MakeCompass('N');
 Wait(500);
 MakeCompass('N');
 if (FindMMColor(x,y,1915766)) then
 begin
 MMouse(x,y,2,2);
 Mouse(x,y,2,2,true);
 FindFastRandoms;
 Flag;
 Wait(1000);
 end;
end;

{~~Back To Bank~~}
Procedure BackToBank;
begin
 if (FindSymbol(x,y,'bank')) or
    (FindMMColor(x,y,3520475)) then
  begin
   MMouse(x,y,2,2);
   Mouse(x,y,2,2,true);
   FindFastRandoms;
   FindNormalRandoms;
   Flag;
   Wait(1000);
end;
Loads:=Loads+1
end;

{~~Bank~~}
procedure StartBanking;
begin
HighestAngle;
PerfectNorth;
 if (Not (PinScreen)) or
    (Not (BankScreen)) then
 begin
  repeat
   OpenBankQuiet('akb');
  until (BankScreen) or
        (PinScreen)
 end else
 If (PinScreen) then
  begin
   InPin(BankPin);
  end;
 Wait(150);
 DepositAll;
  
{~~Iron~~}
  
   if (Players[CurrentPlayer].String2='Iron') then
    begin
     if (FindBitmap(iron,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw All');
       end else if (Not (FindBitmap(iron,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;
    
{~~Bronze~~}
      
   if (Players[CurrentPlayer].String2='Bronze') then
    begin
     if (FindBitmap(copper,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('14' +chr(13));
        Wait(150);
       end;
     if (FindBitmap(tin,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('14' +chr(13));
        Wait(150);
       end else if (Not (FindBitmap(copper,x,y))) or
                   (Not (FindBitmap(tin,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;

{~~Steel~~}

   if (Players[CurrentPlayer].String2='Steel') then
    begin
     if (FindBitmap(iron,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('8' +chr(13));
        Wait(150);
       end;
     if (FindBitmap(coal,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('16' +chr(13));
        Wait(150);
       end else if (Not (FindBitmap(iron,x,y))) or
                   (Not (FindBitmap(coal,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;
       
{~~Mithril~~}
       
   if (Players[CurrentPlayer].String2='Mithril') then
    begin
     if (FindBitmap(mithril,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('5' +chr(13));
        Wait(150);
       end;
     if (FindBitmap(coal,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('20' +chr(13));
        Wait(150);
       end else if (Not (FindBitmap(mithril,x,y))) or
                   (Not (FindBitmap(coal,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;

{~~Adamant~~}
       
   if (Players[CurrentPlayer].String2='Adamant') then
    begin
     if (FindBitmap(adamant,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('4' +chr(13));
        Wait(150);
       end;
     if (FindBitmap(coal,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('24' +chr(13));
        Wait(150);
       end else if (Not (FindBitmap(adamant,x,y))) or
                   (Not (FindBitmap(coal,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;
    
{~~Rune~~}
        
   if (Players[CurrentPlayer].String2='Rune') then
    begin
     if (FindBitmap(rune,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('3' +chr(13));
        Wait(150);
       end;
     if (FindBitmap(coal,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw X');
        Wait(150);
        SendKeys('24' +chr(13));
        Wait(150);
       end else if (Not (FindBitmap(rune,x,y))) or
                   (Not (FindBitmap(coal,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;
    
{~~Gold~~}

   if (Players[CurrentPlayer].String2='Gold') then
    begin
     if (FindBitmap(Gold,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw All');
       end else if (Not (FindBitmap(Gold,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;
    
{~~Silver~~}

   if (Players[CurrentPlayer].String2='Silver') then
    begin
     if (FindBitmap(Silver,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw All');
       end else if (Not (FindBitmap(Gold,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;
    
{~~Blurite~~}

   if (Players[CurrentPlayer].String2='Blurite') then
    begin
     if (FindBitmap(Blurite,x,y)) then
       begin
        MMouse(x,y,6,6);
        Mouse(x,y,2,2,false);
        Wait(100);
        ChooseOption(x,y,'Withdraw All');
       end else if (Not (FindBitmap(Gold,x,y))) then
        begin
         CloseBank;
         Writeln('Necessary ores NOT found, Next Player');
         Logout;
         NextPlayer(True);
        end;
       CloseBank;
    end;
end;
 {~~Progress Report~~}
Procedure DudeProgReport;
begin
 ClearDebug;
 writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 writeln('   [ ]-----For Al Kharid-----[ ]');
 writeln('[ ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[ ]');
 writeln(' |------Made By Dudesareus!------|');
 writeln('     Time Running: '+ ScriptTime2(2));
 writeln('     Loads Done: '+ inttostr(Loads) +' Loads');
 writeln('[ ]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[ ]');
 end;

{~~Neat Proggy~~}
Procedure NeatProggy;
begin
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('   [ ]-~-~-For Al ');
 Wait(250);
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('                  Kharid-~-~-[ ]');
 Wait(250);
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('   [ ]-~-~-For Al ');
 Wait(250);
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('                  Kharid-~-~-[ ]');
 Wait(250);
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('   [ ]-~-~-For Al ');
 Wait(250);
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('                  Kharid-~-~-[ ]');
 Wait(250);
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('   [ ]-~-~-For Al ');
 Wait(250);
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('                  Kharid-~-~-[ ]');
 Wait(250);
 ClearDebug;
 Writeln('  [ ]~~~Sweet Multi Smelter~~~[ ]');
 Writeln('   [ ]-~-~-For Al Kharid-~-~-[ ]');
end;

{~~Main Frame~~}
begin
SetupSRL;
DeclarePlayers;
ActivateClient;
DisguiseScar('Welcome to Neopets! - Mozilla Firefox');
NEWLINE:='';
SRLRandomsReport;
SRLID:=SRLStatsID;
SRLPassword:=SRLStatsPass;
NeatProggy;
BankLocation;
DeclareBMPs;
SetBrightness;
repeat
LoginPlayer;
DudeProgReport;
MapSettings;
StartBanking;
HalfWayFurn;
Flag;
WalkToFurnace;
SmeltFurny;
AnswerBack;
HalfWayBack;
BackToBank;
if (Loads = Loadz) then
begin
 NextPlayer(True);
 Loads:=0;
end;
Until(False);
end.

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

Very nice script.


EDIT: Whoah I didn't realize this guy and what he had done, I apologize to the SRL community for voting yes, and would change it if I could. I will be more careful next time.

I still can't trust you after the Mage of Begu thing. Sorry, no.

Hmmm.

Interesting point there, I think I'll have to think about this a bit.

I'll probably go the same way Boreas went, though.

Agreed with boreas.
And also you dont even know how to use the main SRL Function properly:

 Mouse(679,228,680,229,true);

???Whoa???

That line alone PROVES that you dint even take the time to test these scripts.
How do you know a script can work if you dont even test it?

Also in your find randoms you have
for i:=1 to 12 do

yet only 11 cases.
No, Sorry

You also didnt take much advice from your last app.
Try learning about failsafes, talk to me on MSN if you want to know how.

       10 :   If FindFight Then
             Begin
               Result := True;
               MakeCompass('N');
               RunTo(RunDir, True);
               MakeCompass('N');
             End;

does it find its way back ???
it only runs north….

   reply:= Random(2)+1;
      level:= IntToStr(GetSkillLevel('smithing'));
       Case (Reply) of
        0 : response:= ('my smithing level is.....' +level+'!!');
        1 : response:= ('level' +level);
        2 : response:= ('only level' +level);
       end;

When you put case reply, it will never
say "response:= ('my smithing level is…..' +level+'!!');"
because when you put reply:=Random(2)+1 it will only
do 1 or 2, but if you did reply:= Random(3) then
it will do 0,1,2 :p

MMouse(x,y,2,2);
  Mouse(x,y,2,2,True);

In the Procedure Mouse(dx, dy, rx, ry) there is
MMouse already in it, so you only need this
"Mouse(x, y, 2, 2, True)" or "Mouse(x, y, 4, 4, True)"

      GameTab(2);
     HoverSkill('smithing',false);
     Wait(500);
     GameTab(4);
     Wait(7000);

thoughs gamtabs are usless
hoverskill already open gametab for you
and find randoms will click gametab(4) for you also

i am not going to vote… for now

When I saw dudeasaurus app I thought the exact same thing as Boreas thing.. "Not sure if this guy can be trusted". If you had an amazing script, it would be a little different, but even then I still may vote no. I love that FindFastRandoms function that you made. Its great. Could I use it in my scripts..? *Sarcasm*

TypeSend('999' +chr(13))

+chr(13)) isn't needed because TypeSend presses enter.

I still just don't know about this guy, and I don't want to give him the rank of SRL member. With that title comes a great deal of respect, and to some extent, trustability. If people start to get the wrong impression of members being "hackers".. That wouldn't be a good thing :p

Does this one compile?

And looks like you are not even able to fix your script by yourself…
Look post #4
And you don't know much about SRL…
And I have heard enought of you.
No!

alright YoHoJo, I added you on MSN, I've been working sooooo hard on making scripts and it doesn't pay off. And just because I'm friends with MOB you get the impression that I too am a hacker. Thats low.

From: dudesareus
alright YoHoJo, I added you on MSN, I've been working sooooo hard on making scripts and it doesn't pay off. And just because I'm friends with MOB you get the impression that I too am a hacker. Thats low.

It's called a precaution.. Would you trust a burglar being president for a day?

Choose your friends wisely.

if boreas and few other guys say no, my judge is following:

function BoreasSeesNo:boolean;
begin
  if(BoreasOpinion=no)then
  begin
    result:=false;
  end 
  else
  begin
    result:=true;
  end;
end;
begin
if(BoreasSeesNo)then
writeln('naa');
if(not(BoreasSeesNo))then
writeln('yup');
end.

From: JAD
It's called a precaution.. Would you trust a burglar being president for a day?

True, and I do choose my friends wisely, I was friends with him before he did that.

It's not just about being friends with a scammer. It's about letting someone else post on your account. Now we can't trust anything we read in your posts.

lol, what did MOB do?
just curious… :p

Well he posted up one of his scripts and accidentally left his username and password in. He got hacked so he chucked a hissy fit and made a few of his scripts so that they would send off peoples passwords off to him….Of course he got hiss ass banned and now no one trusts him anymore :D

And he posted on dude's account on his other app to help him get in.

Well dude I really hate wat MOB did but I have nothing against u…..but that really was a stupid thing to do. How are we ever going to trust a single one of ur posts again??
[offtopic] anyone else get bugged by the fact that in the application it asks Where you Referred to SRL? If yes, by whom? it should be Were not where :) soz those little things really annoy me rofl [/offtopic]

dude in a way i feel bad for MOB but thats just sad he had to get back
at people that did nothing to him….. :(

From: rkroxpunk
Well dude I really hate wat MOB did but I have nothing against u…..but that really was a stupid thing to do. How are we ever going to trust a single one of ur posts again??

Nothing against dude?
Well, he also applyed with Mage of Begus script last time…
Cheating, right?

Yeah I meant I had nothing against him until I found out about that…..

From: rkroxpunk
Yeah I meant I had nothing against him until I found out about that…..

Hmm… i think I know why you have nothing against him… I know still something more about you and dudesareus and some other guys. :D

Closed.