Page 18 of 41 FirstFirst ... 8161718192028 ... LastLast
Results 426 to 450 of 1012

Thread: Offical SRL Download....

  1. #426
    Join Date
    Jan 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ya where the hell is the download button?

  2. #427
    Join Date
    Jan 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wont work!! just says 'unexpected end of archive' however many times i download it.. i think im downloading the right thing ?? is it the thing that says srl 360b??

  3. #428
    Join Date
    Jan 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    done it thanx

  4. #429
    Join Date
    Jan 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default god

    hey i cant even figure out whee download the thing lol is it that box that say release on the top right?

  5. #430
    Join Date
    Jan 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty!

  6. #431
    Join Date
    Jan 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    {=========================================================================]
    [                    Ultimate Power MIner                                 ]
    [                                                                         ]
    [                        by: Rams89                                       ]
    [                                                                         ]
    [                                                                         ]
    [           DESCRIPTION AND NOTES : It power mines any rock.              ]
    [                             v1.6                                        ]
    [           *Next version will include player array.                      ]
    [           *Better anti ban and random event handling(DONE)              ]
    [           *Tested with SRL 3.4                                          ]
    [           ***NOT RESPONSIBLE FOR BANNED ACCOUNTS***                     ]
    [           ***Updated on Oct 28th 2006                                   ]
    [                                                                         ]
    [                                                                         ]
    [                                                                         ]
    [=========================================================================]
    [                           Instructions.                                 ]
    [=========================================================================]
    [ 1. USE Runescape with Low Detail, Very Bright.                          ]
    [ 2. Set Colours(Lines 40-48) and Specifications(Lines 52-59)             ]
    [ 3. Press Play and enjoy.                                                ]
    [=========================================================================]
    [                              Features                                   ]
    [=========================================================================]
    [-Antiban.                                                                ]
    [-Handle's Trades(Will trade ore to any player).                          ]
    [-Fully Updated Randoms.                                                  ]
    [=========================================================================]
    
    program Powerminer;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}
    {.include SRL\SRL\extended\xmapwalk.scar}
    {.Include SRL/SRL/Misc/Trade.Scar}
    
    
    const
    {==================  Setup Colours Here (Optional) =======================}
     Adamant = 6322272;
     Clay    = 4885165;
     Coal    = 1383709;
     Copper  = 3824769;
     Gold    = 3775149;
     Iron    = 1976644;
     Mithril = 7359564;
     Silver  = 10856117;
     Tin     = 8684172;
    {=========================================================================}
                          {Set The Following}
    
    rockwait = 4500;    {Time between each click in (ms) 1000ms= 1sec }
    rockcolor = iron;   {What type of ore would you like to mine ?}
    Antiban2 = true;    {Do you want to use Antiban function?(suggested)}
    Rdirection = 'N';   {If attacked, in what direction do you want to run?}
    LoadsD = 500;       {How many loads do you want to do?}
    Pickaxew = true;    {Is your pickaxe weild?}
    Autotalk = true;    {Autotalk?}
    Nickname = 'aseb';  {Type 3-4 letters of your runescape username}
    
    {========= Do not touch below unless you know what you are doing!=========}
    var
     loads: Integer;
     ores: Integer;
     Pr: TPoint;
     i: Integer;
     TraderName: String;
     OreMask: Integer;
     RunDirection: String;
     EvilChicken, EvilChickens: Integer;
     LostPick: Boolean;
     Ox, Oy: Integer;
    {==================Updated AntiRandoms to SRL 3.4=========================}
    
    Procedure RunAway;
    Begin
     Case (Random(9+1)) of
      0 : Begin TypeSend('ahh'); end
      1 : Begin TypeSend('=S'); end
      2 : Begin TypeSend('hah'); end
      3 : Begin TypeSend('stupid randoms'); end
      4 : Begin TypeSend('-.-'); end
      5 : Begin TypeSend('ahh not again!'); end
      6 : Begin TypeSend('0o0o'); end
      7 : Begin TypeSend('Ahh!'); end
      8 : Begin TypeSend('!!!!'); end
      9 : Begin TypeSend('whoa'); end
      10 : Begin TypeSend('=/'); end
     End
     RunAwayDirection(RunDirection);
     Wait(8000+Random(2000));
     RunBack;
    End;
    
    Procedure ExitWindow;
    Var
    Close: Integer;
     Begin
       Close := BitmapFromString(10, 11, 'z78DA3330000243033069E66' +
           '4EA62628C9F3440528F4912AF0BBF38015913537313430889DF3D' +
           '505D48EA3149F274E13201971A533753236367641297BD982A89D' +
           '185DF04FC6A70C96211B7347131B6C42409B807872E5C260000D9' +
           '5685F1');
       If(FindBitmapToleranceIn(Close, x, y, MSX1, MSY1, MSX2, MSY2, 10))then
        Begin
         MMouse(x, y, 3, 3);
         GetMousePos(x, y);
         Mouse(x, y, 0, 0, True);
       End;
     FreeBitmap(Close);
    End;
    
    {=============FindEvilChicken taken from SRL created by Dankness=========}
    
    Function FindEvilChicken: Boolean;
    Var
    CX, CY: Integer;
    Begin
     If(EvilChicken= 0)then
       EvilChicken:= CreateBitmapMaskFromText('egone,', UpChars);
       If(FindName)then
       If(FindBitmapMaskTolerance(EvilChicken, CX, CY, 3, 3, 515, 336, 0, 40))then
        Begin
         Result:= True;
         EvilChickens:= EvilChickens + 1;
         WriteLn('******** FOUND EVIL CHICKEN RANDOM ********');
         WriteFileString(TheFile, '******** FOUND EVIL CHICKEN RANDOM ********' +Chr(13));
      End;
    End;
    
    {===================Function FindPickHead taken from SRL==================}
    
    Function FindPickHead: Boolean;
    Var
    C, XH, YH: Integer;
    ReEquipPick: Boolean;
    Begin
     GameTab(4);
     Result:= True;
    
      If(FindBitmapToleranceIn(PickHandle, x, y, MIX1, MIY1, MIX2, MIY2, 30))or
         (GetColor(472, 380)= 0) and (GetColor(482, 383)= 0)then
    
      Begin
       GameTab(5);
       Wait(750+Random(250));
       If(GetColor(604, 300)= 65536) and (GetColor(601, 298)= 65536)then
        Begin
         WriteLn('Broken Pickaxe..');
         NoPick:= True;
         LostPick:= True;
         GameTab(4);
         Result:= False;
         Exit;
        End;
        GameTab(4);
        Wait(2000+Random(100));
        If(FindBitmapMaskTolerance(OreMask, x, y, 559, 210, 735, 460, 10, 5))then
         Begin
          MMouse(x, y, 5, 5);
          Mouse(x, y, 0, 0, False);
          ChooseOption(x, y, 'rop');
         End
    
        Repeat
          If(not(LoggedIn))then Exit;
           C:= C + 1;
           x:= Random(510)+5;
           y:= Random(330)+5;
           If(FindColorSpiral(x, y, hc1, MSX1, MSY1, MSX2, MSY2))or
              (FindColorSpiral(x, y, hc2, MSX1, MSY1, MSX2, MSY2))or
               (FindColorSpiral(x, y, hc3, MSX1, MSY1, MSX2, MSY2))or
                (FindColorSpiral(x, y, hc4, MSX1, MSY1, MSX2, MSY2))or
                 (FindColorSpiral(x, y, hc5, MSX1, MSY1, MSX2, MSY2))then
              Begin
                MMouse(x, y, 0, 0);
                If(IsUpText('ake'))then
                 Begin
                  GetMousePos(x, y);
                  Mouse(x, y, 1, 1, True);
                 End
                Flag;
               Wait(750+Random(250));
              End else
            If(PickUpItems)then
           ItemGrab;
        Until((FindBitmapToleranceIn(PickHead, x, y, MIX1, MIY1, MIX2, MIY2, 50)) or (C>=10));
        If(not(FindBitmapToleranceIn(PickHead, x, y, MIX1, MIY1, MIX2, MIY2, 50)))then
         Begin
          NoPick:= True;
          Result:= False;
          LostPick:= True;
          Exit;
         End;
    
        WriteLn('Found Head!');
        LostPick:= False;
    
        GameTab(5);
        Wait(250+Random(100));
    
        If(FindBitmapToleranceIn(PickHandle, XH, YH, 560, 280, 615, 322, 50))then
         Begin
          WriteLn('UnEquiping Handle..');
          Mouse(XH, YH, 0, 0, True);
          ReEquipPick:= True;
         End;
    
        Wait(250+Random(100));
        GameTab(4);
        Wait(250+Random(100));
    
        If(FindItemBmpTol(PickHead, 50)) and (FindItemBmpTol(PickHandle, 50))then
         Begin
          ClickItemBmpTol(PickHead, 50, True);
          Wait(750+Random(250));
          ClickItemBmpTol(PickHandle, 50, True);
          PickAxeAttached:= PickAxeAttached + 1;
          WriteLn('Attached Head & Handle!');
          NoPick:= False;
          Result:= True;
         If((EquipPick) or (ReEquipPick))then
          Begin
           Wait(2000+Random(1000));
           ClickItemColor(hc1, True);
          End;
        End;
      End;
    End;
    
    {==================Function HandleTrade taken from SRL====================}
    
    Function HandleTrade: Boolean;
    Var
    TradeMark: LongInt;
    Begin
     If(AcceptTrade) or (TradeScreen)then
      Begin
       Result:= True;
       Wait(1000+Random(500));
       TraderName:= GetTraderName;
       ClickAllItemsBmpMaskTolWait('ffer', OreMask, 20, 25, 30+Random(30));
       Wait(1000+Random(500));
       Accept;
       MarkTime(TradeMark)
       While(not PlayerAccepted) and (TimeFromMark(TradeMark) < 15000) do Wait(1000+Random(500));
        If(TimeFromMark(TradeMark) > 15000)then Decline;
         Accept;
         MarkTime(TradeMark)
       While (TradeScreen2) and (TimeFromMark(TradeMark) < 15000) do Wait(1000+Random(501));
        If(TimeFromMark(TradeMark) > 15000)then Decline;
        If(TimeFromMark(TradeMark) > 15000)then TypeSend('Thanks '+TraderName)
       Else TypeSend('What do u want '+TraderName)
      Trades:= Trades + 1;
     ExitWindow;
     End;
    End;
    
    {=======================Up to date Random Events==========================}
    
    Procedure FindRandoms;
    Begin
     HandleTrade;
     DwarfItem;
     FindPickHead;
     FindNormalRandoms;
      If(FindFight) or (FindEvilChicken)then
       Begin
        RunAway;
      End
    End;
    
    {============================Autotalk=====================================}
    
    procedure randomtalk;
    begin
    if Autotalk = true then
    case random(10) of
    0: typesend('mining lvls'+chr(13));
    1: typesend('so boooring'+chr(13));
    2: typesend('man this stinks'+chr(13));
    3: typesend('yay almost next lvl'+chr(13));
    4: typesend('hi'+chr(13));
    5: typesend('grr'+chr(13));
    6: typesend('omg'+chr(13));
    7: typesend('so slow'+chr(13));
    8: typesend('la dee da'+chr(13));
    9: typesend('da dee dum'+chr(13));
    10:typesend('u like this?'+chr(13));
    end;
    end;
    
    procedure AntiBan1;
    begin
      RandomChatEvery(10 + Random(5));
      RotateEvery(20 + Random(10));
      LeaveScreenEvery(5 + Random(5));
      HoverEvery(15 + Random(5), 'random');
      PickUpMouseEvery(5 + Random(10))
        RandomRClickEvery(15 + random(5))
        if (KillScriptTime > 0) then
        KillScript(KillScriptTime);
    end;
    
    procedure ProgressReport;
    begin
     WriteLn('');
     WriteLn('<============== Rams PowerMiner Report ===============>');
     WriteLn(' Time working : ' + TimeRunning);
     WriteLn(' Loads dropped : ' + inttostr(loads) + ' loads.');
     WriteLn(' Ores dropped : ' + inttostr(ores) + ' ores.');
     SRLRandomsReport;
    end;
    
    Procedure dropore;
    begin
     WriteLn('Load complete. Ore dropping...');
     if (Pickaxew = true) then for i := 1 to 28 do
     begin
      Pr := ItemCoords(i);
      MouseSpeed := 8+random(2);
      Wait(100+random(200));
      mmouse(Pr.x, Pr.y, 3, 3);
      wait(100+random(100));
      Mouse(Pr.x, Pr.y, 3, 3, False);
      Wait(100+random(200));
      ClickOption('Drop', 2)
     end;
     if (Pickaxew = false) then for i := 2 to 28 do
     begin
      Pr := ItemCoords(i);
      MouseSpeed := 8+random(2);
      Wait(100+random(200));
      mmouse(Pr.x, Pr.y, 3, 3);
      wait(100+random(100));
      Mouse(Pr.x, Pr.y, 3, 3, False);
      Wait(100+random(200));
      ClickOption('Drop', 2)
      FindRandoms;
     end;
     WriteLn('Finished another load');
     loads := loads + 1
     if (Pickaxew = true) then ores := ores + 28
     if (Pickaxew = false) then ores := ores + 27
     wait(200+random(800))
    end;
    
    Procedure WeAtMine;
    Var
       WX, WY : Integer;
    
    Begin If (Not(FindSymbol(Wx, WY, 'mining site'))) Then Begin
        RunWhere('N', false) If (Not(FindSymbol(Wx, WY, 'mining site'))) Then Begin
        RunBack;
        Flag;
        RunWhere('E', False) If (Not(FindSymbol(Wx, WY, 'mining site'))) Then Begin
        RunBack;
        Flag;
        RunWhere('S', False) If (Not(FindSymbol(Wx, WY, 'mining site'))) Then Begin
            RunBack;
            Flag;
            Runwhere('W', False) If (Not(FindSymbol(Wx, WY, 'mining site'))) Then
            WriteLn('We are defantly lost termInating script')
            TerminateScript;
          End; End; End; End; End;
    
    
    procedure mineore;
    begin
     repeat
      MouseSpeed := 10+random(2);
      FindRandoms;
      if (FindObjOre(Ox,Oy,'ine',rockcolor,10,3)) then
      begin
       ClickToContinue;
       mmouse(Ox,Oy,3,3);
       if (not(Findgas(Ox,Oy))) then
       begin
        wait(100+random(100));
        mouse(Ox,Oy,2,2,true);
        if (FindGas(Ox,Oy)) then
         begin
          wait(100+random(100));
          RunAwayDirection(Rdirection);
          Wait(1000+random(1000));
          RunBack;
         end;
        FindTalk;
       end
      else
       begin
        wait(100+random(100));
        RunAwayDirection(Rdirection);
        Wait(1000+random(1000));
        RunBack;
       end;
    wait(rockwait+random(500));
      FindPick;
      Antiban1;
      FindRandoms;
      RandomTalk;
      ProgressReport;
      end;
     until (InvFull);
    end;
    
    
    
    begin
     SetupSRL;
      SetupSRLMining;
       MouseSpeed := 8+random(2);
        ActivateClient;
         DisguiseScar('Notepad');
          LoadGhostSpeakWords('Mining');
         NickNameBmp:=CreateBitmapMaskFromText(Nickname,UpChars);
        if not FindPickHeadColor then
       begin
      Exit;
     end;
    repeat
     WeAtMine;
     mineore;
     randomtalk;
      dropore;
      until (LoadsD = Loads)
     Logout;
     ProgressReport;
     SRLRandomsReport;
     WriteLn('All loads requested are now done')
     WriteLn('Thank you for using Rams Ultimate Power Miner');
     Exit;
    end.
    the error is

    Code:
     Line 233: [Error] (20194:10): Duplicate identifier 'HANDLETRADE' in script C:\Program Files\SCAR 2.03\Scripts\power miner.scar

    what might cause this?

  7. #432
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    here is d/l

    dankness maybe somehow you should auto sticky the link to d/l to every post made in here lol then no one can't not find it
    STOP PM'ING ME

  8. #433
    Join Date
    Feb 2006
    Location
    Myrtle Beach, SC USA!
    Posts
    841
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Hobbit View Post
    here is d/l

    dankness maybe somehow you should auto sticky the link to d/l to every post made in here lol then no one can't not find it
    No sorry, the developers on this project have spent over a year of time, to provide this include. If people cant spend 5 mins of there own time locating the download link then we dont want them using this include anyway.

  9. #434
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    ok so no more attaching...but i can still direct them where to go right?
    STOP PM'ING ME

  10. #435
    Join Date
    Jan 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i cant find the download button

  11. #436
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default



    Sorry if that's too easy Dank, but nooby posts are clogging up my ispy!

  12. #437
    Join Date
    Jan 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i cant find the download button whenever i use the forum jump to the download page and click the attatchment im logged in and i automatically log out after i use the forum jump plz help me

  13. #438
    Join Date
    Jan 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it look different for me and i automatically log out when i go to that page[IMG]C:\Documents and Settings\Admin\My Documents\My Pictures\untitled.bmp[/IMG]

  14. #439
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    ok first of all please dont double psot and second....its on theFIRST PAGE on the LEFT side near the TOP just under the button that says Install

    Boreas do you think this is too specific?
    STOP PM'ING ME

  15. #440
    Join Date
    Jan 2007
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Thanks

    Great job, SRL is ownage =p

  16. #441
    Join Date
    Jan 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how do u start the install?

  17. #442
    Join Date
    Jan 2007
    Location
    Tennessee
    Posts
    642
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    im getting the same error everyone else is. unexpected end of file. does anyone know how to fix it?

  18. #443
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Quote Originally Posted by almost View Post
    im getting the same error everyone else is. unexpected end of file. does anyone know how to fix it?
    redownload it and try again it took me a few tries to get it
    STOP PM'ING ME

  19. #444
    Join Date
    Jan 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok either im stupid....which i think is what is happening here or there is no link to download this...where is it?and if its that stupid install thing on the side it dont work....i did an hour long search on my computer to find the file...nothing....i even downloaded firefox cuz thats wut is in the pictures..still not working

  20. #445
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    lol you dont click the install button to download it...click the name of the file under the isntall button lol
    STOP PM'ING ME

  21. #446
    Join Date
    Jan 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thx

  22. #447
    Join Date
    Jan 2007
    Location
    Ausrtalia, Melbourne
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I need to know how to include stuff from SRL to the real SCAR. and i need to know it a.s.a.p
    please....

  23. #448
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    well it depends which include u want to include...theres too many for me to list them all but take a look for the ones u want just go to mycomputer>c drive> program files> scar 2.03> includes>srl(if u havent already run srl set-up script located here) then > srl and those are the diff types of includes u can have...heres example of how to put in script
    SCAR Code:
    program blah;
    {.include srl/srl.scar}  //(must be added if u include any srl includes)
    procedure blahblah;
     begin
      clickmouse(445,292,true);
      end;
     
    //-----------------main loops----------------------------
     begin
      ActiveateClient;
      setupsrl;
      blahblah;
      end.
    STOP PM'ING ME

  24. #449
    Join Date
    Jan 2007
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    how the fuck do u dl it

  25. #450
    Join Date
    Jan 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    please help me i get as far as:Scar 2.03\Includes\SRL\SetupSRL.Scar but i can only get to includes, then srl setup srl isnt there, ive downloaded both manul and no manual but when i try to extract without manual it says crc failed this file is corrupt and then unexpected end of archive.

    so what should i do?

Page 18 of 41 FirstFirst ... 8161718192028 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. More Offical Looking
    By bmbm873 in forum OSR Help
    Replies: 5
    Last Post: 11-23-2008, 08:20 AM
  2. Offical neXus question thread.
    By ruler in forum News and General
    Replies: 32
    Last Post: 09-23-2007, 03:00 AM
  3. The Offical Hybrid Mager [Not Released Yet]
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 08-29-2007, 10:49 PM
  4. Replies: 6
    Last Post: 08-09-2007, 05:03 AM
  5. Offical my buns!
    By cause in forum Semi Stupid Pictures
    Replies: 97
    Last Post: 04-28-2007, 12:43 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •