SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
basic, learning c++ and delphi

Other Communitys
scar scripts

How Long have You Played Runescape
2 years

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

HEY im pretty new to this but i pik up languages pretty quick and with the help of some people here i have masde things that work:D errm not as activeas i would like as my internet is doggy and i have loads of A lvls ad stuff happening.

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

{------------------------------------------------------------------------------]
[                                                                              ]
[                                                                              ]
[   SSSSSSSSSSSSSSS                                                            ]
[ SS:::::::::::::::S                                                           ]
[S:::::SSSSSS::::::S                                                           ]
[S:::::S     SSSSSSS                                                           ]
[S:::::S           ppppp   ppppppppp     aaaaaaaaaaaaa   zzzzzzzzzzzzzzzzz     ]
[S:::::S           p::::ppp:::::::::p    a::::::::::::a  z:::::::::::::::z     ]
[ S::::SSSS        p:::::::::::::::::p   aaaaaaaaa:::::a z::::::::::::::z      ]
[  SS::::::SSSSS   pp::::::ppppp::::::p           a::::a zzzzzzzz::::::z       ]
[    SSS::::::::SS  p:::::p     p:::::p    aaaaaaa:::::a       z::::::z        ]
[       SSSSSS::::S p:::::p     p:::::p  aa::::::::::::a      z::::::z         ]
[            S:::::Sp:::::p     p:::::p a::::aaaa::::::a     z::::::z          ]
[            S:::::Sp:::::p    p::::::pa::::a    a:::::a    z::::::z           ]
[SSSSSSS     S:::::Sp:::::ppppp:::::::pa::::a    a:::::a   z::::::zzzzzzzz     ]
[S::::::SSSSSS:::::Sp::::::::::::::::p a:::::aaaa::::::a  z::::::::::::::z     ]
[S:::::::::::::::SS p::::::::::::::pp   a::::::::::aa:::az:::::::::::::::z     ]
[ SSSSSSSSSSSSSSS   p::::::pppppppp      aaaaaaaaaa  aaaazzzzzzzzzzzzzzzzz     ]
[                   p:::::p                                                    ]
[                   p:::::p                                                    ]
[                  p:::::::p                                                   ]
[                  p:::::::p                                                   ]
[                  p:::::::p                                                   ]
[                  ppppppppp                                                   ]
[                                                                              ]
[                                                                              ]
[                               By Spaztaz666                                  ]
[                                                                              ]
[                                                                              ]
[------------------------------------------------------------------------------}

program powerminer;

{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include SRL\SRL\Misc\Trade.scar}

Const
  StartPlayer    =    0; // Starting Player.
  NumberOfUsers  =    6; // How many players .
  YourSRLStatsID  =   '1234';
  YourSRLStatsPass =  '1234';
  SecondsToWait  =    5;  // Number Of Seconds You want to wait.
  TimetoWait        = 2500;
  MinutesPerLoad =    5; // Max amount of minutes to take before dropping.
  RunDir         =    'S'; // Run In Which Direction
  
Const
  VersionNumber  =    '1.0';
  
var x ,y ,F ,RX ,RY ,tx ,ty ,level,Tloads,CopperColor ,TinColor ,IronColor ,CoalColor ,
     Copper ,Tin ,Iron ,Coal,CopperBmp ,TinBmp ,IronBmp, CoalBmp:integer;
var OreToDrop:array[0..3] of Integer;

Const
  CopperRockColor       = 4286610;
  TinRockColor          = 9277080;
  IronRockColor         = 2370383;
  CoalRockColor         = 2834753;

  
Procedure DeclarePlayers;

  Begin
    HowManyPlayers := NumberOfUsers;
    NumberOfPlayers( HowManyPlayers );
    CurrentPlayer := StartPlayer;

    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Active:=True;
    Players[0].Integers[0] := 2 //Total Loads
    Players[0].Strings[0]  := 'Blank';      // Leave!!!

     
    Players[1].Name :='';
    Players[1].Pass :='';
    Players[1].Nick :='';
    Players[1].Active:=True;
    Players[1].Integers[0] := 2 //Total Loads
    Players[1].Strings[0]  := 'Blank';      // Leave!!!

     
    Players[2].Name :='';
    Players[2].Pass :='';
    Players[2].Nick :='';
    Players[2].Active:=True;
    Players[2].Integers[0] := 2 //Total Loads
    Players[2].Strings[0]  := 'Blank';      // Leave!!!

     
    Players[3].Name :='';
    Players[3].Pass :='';
    Players[3].Nick :='';
    Players[3].Active:=True;
    Players[3].Integers[0] := 2 //Total Loads
    Players[3].Strings[0]  := 'Blank';      // Leave!!!
    
    Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  End;
  
  Procedure Report;

Begin
  ClearDebug;
  WriteLn('[]----------------------------------------------[]')
  WriteLn('')
  WriteLn('Powerminer created by Spaztaz666.')
  WriteLn('Version: '+VersionNumber+'.')
  WriteLn('')
  WriteLn('Copper Mined and Dropped : ' +IntToStr(Copper)+ 'ores');
  WriteLn('Tin Mined and Dropped : ' +IntToStr(Tin)+ 'ores');
  WriteLn('Iron Mined and Dropped : ' +IntToStr(Iron)+ 'ores');
  WriteLn('Coal Mined and Dropped : ' +IntToStr(Coal)+ 'ores');
  Writeln('Worked for '+ TimeRunning);
  WriteLn('')
  WriteLn('[]----------------------------------------------[]')
  WriteLn('')
  SRLRandomsReport;
  WriteLn('')
  WriteLn('[]----------------------------------------------[]')
End;

procedure OresDTM;
begin
  CopperColor := DTMFromString('78DA6314646060E0674001C70A0D191E02694' +
       '620FE0F048CD2408638AA9A7BB586609A11CA07AB616540038CA8' +
       '6A448104130135CC987661A8E1011232F8D50000F54808AD');
       
  TinColor := DTMFromString('78DA6314646060E06740012D55350C0F81342' +
       '310FF0702466920431C554D4F530D986684F2C16A5819D00023AA' +
       '1A5120C144400D33A65D186A7880840C7E350000A508BD');
       
  IronColor := DTMFromString('78DA6314646060E06740014EEA320C0F81342' +
       '310FF0702466920431C558D9FBE32986684F2C16A5819D00023AA' +
       '1A5120C144400D33A65D186A7880840C7E3500B4CB06DE');
       
  CoalColor := DTMFromString('78DA6314646060E067400146468A0C0F81342' +
       '310FF0702466920431C558D818202986684F2C16A5819D00023AA' +
       '1A5120C144400D33A65D186A7880840C7E350096CB06AE');
end;

procedure DeclareBMP;
begin
  CopperBmp := BitmapFromString(34, 31, 'beNp9Vz1II0EUtrTc4oo' +
       'tLFywcOHuyOAProTD5IicOSyyYKGQQkIKkRQiKUSuOeSKI9WR0jal' +
       'paWtpaVl2iuvtL1v9tt8PmcTl8eS3Z1533zvfe/NpL7xvbkLa9U3r' +
       'O3vbX378moHe1v6ZB+/7n7Go6ZzcOBKL/eLWZhrvWkAl7E0u/hoRw' +
       'ILpil809iuCdEOxm/xamx/0joJkX1M8kaat1IBLb29xEigYkEU+Kw' +
       'ylcFDuho1NxNAXJ828ehWE9xHnWTcSW6Pk0k3HR8lARAdBjEMmFqO' +
       'mB7HUVZLAHHdb3Llvc0InifHyV03fbxwd6cp0aspFhx9iqnixgGY3' +
       'twpIW7O2njMa9FlI/YQp+nT0E1/uIezVBznxtBqLNAMgTDessDVXo' +
       'uuWzEgHgbp358O9jx0/ATWJ4eu18nOjzIByaf1bDWjoHGpXC0gEK7' +
       '7PiGywhzT59Zj+L88zvzCiiTSc+Bzad6F94TggEk3QS4E8e+XN+qw' +
       'XU8vu97/Tb89GrS5NqJYiOjDMlhzVcg4MoKJBNIaCghSyOxiMBhqF' +
       '8TookSRzBh/QCQrEevi5MDBeh1/V2bP6zFEZT2TI79iIpICLhAJIA' +
       'rL8d6KmSgBBPKIu1CQERQIMnI/E5XUi8diSgadFERyQjBilggCZSG' +
       'QR5pQbg59GUJaj4MSSLXgmSLv3SJcMxbKpi29VxSvRgep0ITCYgeX' +
       'pwuHSsGdQGw4lFYRrnw8zJUU1Z0yLgguDLNwFwoq0XM5S5+vHGx65' +
       'UtSOuQPoAiCRFj1eIOkAwLNyhJhsdvehdQjUNAYypD1CBSPOHQSvF' +
       'WF7WOUOiAgWmWE3D1K/xXFQwzKrqJ6FJ2guCwEU08IStET6ZYQNEk' +
       'FP5ALLB7OWYwsGbey3NuJ2aVVXEGf962JEDMi8u81OXiDgotEXn43' +
       'YYQ4qfkWfVt06UC9lovSAcFbFiphXlgJhQ0WL3/ysuTXImwEk2KjA' +
       'c1AWupgfr/olKVh/b/pHsUuhmGUnFLs47Betuhpobqgq1gUXxcmF0' +
       'EThvzAgitB0QWNZXToA4UwymxXsShSVLU7+e14JyFTrkSrZcmjfKj' +
       'qoLnZPYtW7X5y4s8VrZS7hkVBvWtMMDeQsQ4AsMC/DiqQH1mwFdh+' +
       'LqBFznWuq5406F8cQYQsyo1j1mw5zG7o9qwYHDCYmrlHvpn8HCHYc' +
       'Ko9au7E4Fz3zpGPKOw2hEC4xldhs10UpSqjRUc+K4yqhEQEdypWuu' +
       'Une7Z858gXCGNRli1KMHd/3ok6OPIFNG00RCToJNW/D63/mq/clQ=' +
       '=');
  TinBmp := BitmapFromString(34, 31, 'beNrNlrFr21AQxqFk7Gg6FN' +
       'PBiA7FeEhfPBhhQqqaNhEejMgghAcjNBjjwQgPRnQwIkMRnTz2j+1' +
       '375OfXyTFbtwECkeIE737ve/uu5Ovr75f/0dx8eaC8aoI99IJbrrB' +
       'SBmQ4Z5B/+p+ZtiI7se21xdKNvPw0fnQxs9oEsRhFE91hNHfg+5uB' +
       'sj/bXhVobTfvQUlS/ws8Xhzd+BG9wHyL2ZxtkoXSUz6s4QAZFP8ga' +
       'gAghR1qfyRJ4gkztZpsc3T5cJoPFnDL4NeY8XSmWdUSAE/dUERxEo' +
       'Qu4c832T8F1THYxVP3EXoPrdZzKA6Dhok0iAkjNL5AojiQcc2Y/tU' +
       'r724d9OpB+2pbuJxx1a0Ox2HZcdH1EpU6Pw7xs9CrtFr+8MuEfncL' +
       '5Y+0XUEJDvvW06nhSNu30HTcbDiXlMohH0ZtE98mJQIUnC9BkSnxb' +
       'mIbiVQ4WisTGe9oQtT2Znxd1QSqfA7DuJhaCGiWAUE1SkHBJo4Vih' +
       'yrClK5zHWQlOIMFeVCbqV50XL0t+tg7oWW4hRgSMMo8W/9UGBb1E0' +
       'utfOwL6zXKAYpfYzaAc6RSFAINJQTqXhgVJOoh4Tht0yuBd9Z7lKS' +
       'g3BjpcI1Cp8ZEhSuFKgIv+RMWAD48PSG4lnhFQpGgFHCUWPFSTged' +
       'zK3l1oPTqCcmEMy2HZ5mAZUWb8KwizcmnaaD+59DyCU8/jQIiQjaj' +
       'gmBDUMFyPEaQQgdazXHRjzpgfrCIFWacsFBCk8A6yPycBGndk3olg' +
       'U1ArJGe5yDL7lrfFPoGQ378KRInoKzGG7tpTy1nMo6eDA8LhlVgeR' +
       'piBm9DYUEGE3iEOhPAtAJn1eTeUcjpCt9AlqiRnSYmgGUyL9frqYo' +
       '5gbzrhiBaORqELle/zK70huQbZMhrPWIiLRV6a0whl1FHu52aKdpR' +
       '5idhJYHKsQSrlaNu3lbNL/QqwnFa3cWXhm/zm7yJkpIcUMSuVVsat' +
       'crYRwWh8gPajCq6Cxn1+MvnJt6Q0fb9t8AXDLNsjXx7OoEjTS4RnL' +
       '9uzb95I4bah94SyCZ6aiBf57lp5P774N1i1b676ty6/bvwBHGjw0w' +
       '==');
  IronBmp := BitmapFromString(33, 31, 'beNq1ll1rE2EQheudN7koB' +
       'AIhkIYQQgkxJbZb2oa02ZKQRhpqxAqlqFBUilSKXyiCCEKhiCCI/9' +
       'dHjwzDu7thWyoMSz72PWfOzJnZ3Vnb21kb9u5ajPt/frnZuBdvEoA' +
       'Povbu5p1UioWFW4rrUXgJiiT+Vqc2i9uHw46xGGkeajIfRCtKPsnC' +
       '8Va9FEcN8D+dDPm6srTEtV0pdqslYr1W5jqfBQowrVxwBRTV8mK/W' +
       '//wdPfzs5FyrhULhh83K1xFnb9ivh2cHW00yR/8r6d7fC0XbjdLi8' +
       'IftarTTh0WUze/dJKTLJTw7awolD/4xKRd01/ofbIfPZ9tnD3qXck' +
       'bOk6SylMS+o1/+LNug6taFrUqpw+3zo/6VJVIZQl8YpKFrxt8/uAr' +
       '5LpJb/nN8QDVX16ML1/tJxvEL6ViAbHKhxbThel2KzCq6m/IFtyMs' +
       'Q3/2/k0oBB+o1qU/4/G3ePJ6snBOldrJUaSeSykTv9ykEag4uLlBH' +
       'zi++sDXytRBPg0jqtRqMt0wSxkSfKVI9yPMZAAuPD9DeBTH49P4zA' +
       'GVz9uagQBUZAhd757HFMlyz/IQS2AAnz0QoExFEahWQCcdih8m2Qk' +
       'Zgf8H2/vBxKsxUgQPvnLGyRmFOBLBYOgkF1FpA9QGL6noMvgs4i8B' +
       'I2z30vqAskL3OZOoydvexsEixR8XK0uIEGSCc21zqoLRqGhMyHJIf' +
       'IUwpfroKBEwsd+2ks2dx7fRsO2VtbK5UfmC3waIQmGj/38kCpPm+v' +
       'D1abw/eJNXbmytPLH2IYvCg2pgjS03wzfKOQENSWVAmRNgc/fV1iP' +
       'JG6TwaynViWcYH1PpcA/vv7BasVs5K8VzWQFe0PzaAZT95MU5p/k5' +
       'mFe2G/SqDSCmbKtGyyurB1u4N7PlAh8lFIlaQw8H5zNesKm/stBzK' +
       'z8wUdsckVnnc3/vEOC8gefRtgKTb0/eLXISaFJ1OsHVfr5fpZVbWL' +
       '0l+WqFFomwqdKvz4+mPM+oxcMLyqPruSj/NplnxPeKv8D/wbiN4W5' +
       'cko=');
  CoalBmp := BitmapFromString(34, 31, 'beNq1lv9LU2EUxu0P8IdgM' +
       'JCByhgyxlJWXtGNzU025kKxRQUiFUiFRCF9owgiCIKIIIj+3z7ywM' +
       'PhvdtcUnC4MH3v+3mfc55z7pvV93c3iX7rpmPY3iT0938Yt3s7BPt' +
       '3s/rezg0Q/EzWLCxcU1wNEVXESBDN9dVxr36/v26QufPQ2ZDzd7MN' +
       'ZSlPYYdaudjLKiA+nvb5ubGywrNcLiqq1SWes0EgCLZ13sAllOWl6' +
       '+1G+f3jvU9PBjp5sbio/YlGY5Wn6LO1qBbRAJEy2F5DBYgvZ/tClE' +
       'oFIbaySrO5Vq8vW+PEHHpni8pnTAi/bgoqQBCw9C9UPzrIno63Xzx' +
       'o/a1VtANHdUVAcH4hFCpfViud3WueH7dJLzENlDjH2oXQAva3ikjB' +
       'h6NW9fVJF+2fnw2/vTyYWKyLbBQWUa1TUXEqctipJe5VLby5g8W43' +
       'Yjv54d5ihCV5YL64njYOBndOj3a4unKUhHZySGN+i8vUhS0fH0+Ak' +
       'H8eHWUJE2UBEEdeZqiopMxm8pH5SevsB6fIIT9hYhahCBREUEdsQr' +
       'PPIW6CBR3YOXbhz3SZRXxGG49UUAgHApWUcR+N0URSyZr0VMgfr65' +
       'kxfiiiNECFTILRwvT8EAChvA3oBiREKh6CAYVlGImj3OLguJNhPOh' +
       'o+uyI9cELhdFUGItBPqer2uuucp05oroQghK0IhV0LgSc0ut6QQSc' +
       'to5mhEz+h3Wg8ERZEQI/BkbOHYlZ1OlRBCI1pVmzacZXWpwPBGiKI' +
       'WVnASjUFRPDzVrRrRMyhsru6IKmK29RVjmSznEscRbRtMo+CoWItk' +
       'CGM/VGie03TJYFGi7G37LU+xo/LTiT5iDEqpThJPK+N582k2Tga+9' +
       '48mJ1cg0Eu6pDRpt+TdGZ/miQt4F4dLBQgkT5znl25+6VcSIVIBgq' +
       'J42E68ayU3k/kpalJdYEjXr3djJ8cXUVMGu1e5l7Khpo0QpOv3h7s' +
       'xYzq5bia+n/h1n2HOq0XyfYy5ipTk/mOB8yiK5olVdiGm3bIm3of/' +
       'xz3/4pL/B6fLhHc=');
  end;

  
Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 11 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;

       2:  If FindMod Then
             Result := True;

       3:  If FindMime Then
             Result := True;

       4:  If FindMaze Then
             Result := True;

       5:  If FindQuiz Then
             Result := True;

       6:  If FindDemon Then
             Result := True;

       7: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             End;
           End;

       8 : If RC Then
             Result := True;

       9 : If FindFight Then
              Begin
                Result := True;
                RunTo(RunDir, True);
              End;

       10: If FindTalk Then
             Result := True;

       11: If HandleTrade Then
             Result := True;
    End;
    Wait(1);
  End;
End;

procedure WhatOre;
  Begin
  Status('Getting Mining Level');
  GameTab(2);
  level := GetSkillLevel('mining');
    If(level >= 1) then
     Begin
       Players[CurrentPlayer].Strings[0] := 'Copper';
     end;
     If(level >= 3) then
     Begin
       Players[CurrentPlayer].Strings[0] := 'Tin';
     end;
    If(level >= 20) Then
     Begin
       Players[CurrentPlayer].Strings[0] := 'Iron';
     end;
    If(level >= 38) Then
     Begin
       Players[CurrentPlayer].Strings[0] := 'Coal';
     end;
   Gametab(4);
   TLoads := Players[CurrentPlayer].Integers[0]
   WriteLn(Players[CurrentPlayer].Name + ' will mine ' + Players[CurrentPlayer].Strings[0] + '.');
 end;
 
 procedure CheckCopperInv;  //By Tails111(WC)
 Begin
  If Not(LoggedIn) Then
   begin
     LoginPlayer;
     Exit;
   end;
  Status('Checking Inventory.');
   If(FindDTM(CopperColor, tx, ty, 684, 430, 727, 462))Then
     Begin
       Copper := Copper + 27;
       TLoads := TLoads + 1;
      Repeat
       If(FindDTM(CopperColor, tx, ty, 550, 210, 730, 460)) Then
        Begin
          Status('Dropping All Copper');
          Wait(150+Random(100));
          Mouse(tx, ty, 10, 10, False);
          wait(50+Random(500));
          ChooseOption('rop');
          wait(250+Random(300));
        end;
      Until Not(FindDTM(CopperColor, tx, ty, 550, 210, 730, 462))
    end;
 end;

  procedure CheckTinInv;
 Begin
  If Not(LoggedIn) Then
   begin
     LoginPlayer;
     Exit;
   end;
  Status('Checking Inventory.');
   If(FindDTM(TinColor, tx, ty, 684, 430, 727, 462))Then
     Begin
       Tin := Tin + 27;
       TLoads := TLoads + 1;
      Repeat
        If(FindDTM(TinColor, tx, ty, 550, 210, 730, 460)) Then
        Begin
          Status('Dropping All Tin');
          Wait(150+Random(100));
          Mouse(tx, ty, 10, 10, False);
          wait(50+Random(500));
          ChooseOption('rop');
          wait(250+Random(300));
        end;
      Until Not(FindDTM(TinColor, tx, ty, 550, 210, 730, 462))
    end;
 end;
 
  procedure CheckIronInv;
 Begin
  If Not(LoggedIn) Then
   begin
     LoginPlayer;
     Exit;
   end;
  Status('Checking Inventory.');
   If(FindDTM(IronColor, tx, ty, 684, 430, 727, 462))Then
     Begin
       Iron := Iron + 27;
       TLoads := TLoads + 1;
      Repeat
        If(FindDTM(IronColor, tx, ty, 550, 210, 730, 460)) Then
        Begin
          Status('Dropping All Iron');
          Wait(150+Random(100));
          Mouse(tx, ty, 10, 10, False);
          wait(50+Random(500));
          ChooseOption('rop');
          wait(250+Random(300));
        end;
      Until Not(FindDTM(IronColor, tx, ty, 550, 210, 730, 462))
    end;
 end;
 
  procedure CheckCoalInv;
 Begin
  If Not(LoggedIn) Then
   begin
     LoginPlayer;
     Exit;
   end;
  Status('Checking Inventory.');
   If(FindDTM(CoalColor, tx, ty, 684, 430, 727, 462))Then
     Begin
       Coal := Coal + 27;
       TLoads := TLoads + 1;
      Repeat
        If(FindDTM(CoalColor, tx, ty, 550, 210, 730, 460)) Then
        Begin
          Status('Dropping All Coal');
          Wait(150+Random(100));
          Mouse(tx, ty, 10, 10, False);
          wait(50+Random(500));
          ChooseOption('rop');
          wait(250+Random(300));
        end;
      Until Not(FindDTM(CoalColor, tx, ty, 550, 210, 730, 462))
    end;
 end;
 
//Mining\\
procedure MineCopperOre;
begin
  repeat
    if(FindColorTolerance(x, y, CopperRockColor, 0, 0, 700, 500, 4))then
    begin
      Mouse(x, y, 0, 0, true);
      Wait(TimetoWait-200);
      FindFastRandoms;
    end
    Wait(200);
  until(InvFull)
end;

procedure MineTinOre;
begin
  repeat
    if(FindColorTolerance(x, y, TinRockColor, 0, 0, 700, 500, 4))then
    begin
      Mouse(x, y, 0, 0, true);
      Wait(TimetoWait-200);
      FindFastRandoms;
    end
    Wait(200);
  until(InvFull)
end;

procedure MineIronOre;
begin
  repeat
    if(FindColorTolerance(x, y, IronRockColor, 0, 0, 700, 500, 4))then
    begin
      Mouse(x, y, 0, 0, true);
      Wait(TimetoWait-200);
      FindFastRandoms;
    end
    Wait(200);
  until(InvFull)
end;

procedure MineCoalOre;
begin
  repeat
    if(FindColorTolerance(x, y, CoalRockColor, 0, 0, 700, 500, 4))then
    begin
      Mouse(x, y, 0, 0, true);
      Wait(TimetoWait-200);
      FindFastRandoms;
    end
    Wait(200);
  until(InvFull)
end;

procedure Drop; //By The Claw
begin
    SetArrayLength(OreToDrop, 4);

    OreToDrop[0] := CopperBmp;  //Copper
    OreToDrop[1] := TinBmp;     //Tin
    OreToDrop[2] := IronBmp;    //Iron
    OreToDrop[3] := CoalBmp;    //Coal

    for F:= 0 to 3 do
    begin
      Writeln('Dropping: ' + IntToStr(F));
      repeat
        FindFastRandoms;
        ClickAllItemsBmpTolWait(OreToDrop[F], 'rop', 30, (300 + Random(300)));
      until (not FindBitmapToleranceIn(OreToDrop[F], Rx, Ry, MIX1, MIY1, MIX2, MIY2, 40));
    end;
  end;




//Main Loop\\
begin
  SetupSRL;
  SRLID := YourSRLSTATSID;
  SRLPassword:= YOURSRLSTATSPASS;
ActivateClient;
wait(200);
DeclarePlayers;
  LoginPlayer;
MouseSpeed := 10;
WhatOre;
If(Players[CurrentPlayer].Strings[0] = 'Copper') Then
   Begin
     repeat
       WhatOre;
       CheckCopperInv;
       MineCopperOre;
       Drop;
       Report;
    Until(Players[CurrentPlayer].Integers[0] = TLoads);
   end;
If(Players[CurrentPlayer].Strings[0] = 'Tin') Then
   Begin
     repeat
       WhatOre;
       CheckTinInv;
       MineTinOre;
       Drop;
       Report;
    Until(Players[CurrentPlayer].Integers[0] = TLoads);
   end;
If(Players[CurrentPlayer].Strings[0] = 'Iron') Then
   Begin
     repeat
       WhatOre;
       CheckIronInv;
       MineIronOre;
       Drop;
       Report;
     Until(Players[CurrentPlayer].Integers[0] = TLoads);
   end;
If(Players[CurrentPlayer].Strings[0] = 'Coal') Then
   Begin
     repeat
       WhatOre;
       CheckCoalInv;
       MineCoalOre;
       Drop;
       Report;
    Until(Players[CurrentPlayer].Integers[0] = TLoads);
   end;

end.

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

Sorry, your mining functions are really too simple, and the "CheckOreInv.." could've all be done in one procedure.

and toooooooooooooo biiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiggggggggggggggggggggggggggggggggggggggggggggggggggggggggg bitmaps sorry a no

but i see you will become someday a srl member just dont give up and you will get in ;)

try saving each bitmap to an array and then calling

for i := 0 to 4 do

FindDTM(Ore);

why that HUGE bmp's?
sorry, no, to simple for me.

plz come back when you got an awesome script

Sorry, it's a no because of all the procedures. Standards are wrong and you haven't learnt cases.

even a superuperdupersuper-computer would lagg with that bitmaps :eek:

yea way too big bmps, failsafes missing, srl stats won't report anything exept randoms, 8 procedure can be do in 2…. no

I'm going to agree with the others. Your bitmaps are pretty big. There aren't any failsafes. Read some tuts and learn a little more and try back in a month :)

I voted no. The script didn't look half bad, but you failed to use any of the following:

A) FreeBitmap();
B) FreeDTM();
C) Case Statement.

And finally, the script could be coded a hell of a lot better.

I voted no, same reasons as everyone else.

From: Pancakes
I voted no, same reasons as everyone else.

thats a good reason good for pointing that out pancakes :p