Results 1 to 7 of 7

Thread: Ancient History

  1. #1
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default Ancient History

    Found this while I was strolling trough my files:



    (Completely unrelated, just for a good laugh

  2. #2
    Join Date
    Oct 2008
    Location
    /root
    Posts
    181
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Wow that is a long time ago, waay before I knew about SRL I was still kick'n it old school hand-doing everything T_T
    Time is just an illusion, we are all dying from the disease of age.
    When in doubt, please go here.

  3. #3
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Wow how long ago was that, and at what forum?
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  4. #4
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by noidea View Post
    Wow how long ago was that, and at what forum?
    Kaitnieks.com

    Freddy1990's feather buyer returns - 06-20-2005, 02:35 PM


    This made me lol:
    SCAR Code:
    // Freddy1990's Big Net dropper v2.5 //
    program bignetdropper;
    {.include osi.txt}

    {v1.0 - First release}
    {v2.0 - Fixed some bugs with boots, gloves and oyster(removed)}
    {v2.5 - Auto V-Bright, Auto silent mouse off}
                         /// SETUP ///
    const
    rawbass=true; // Drop raw bass? True=yes False=no //
    rawmackerel=true; // Drop raw mackerel? True=yes False=no //
    emptyoyster=true; // Drop empty oyster? True=yes False=no //
    oysterpearl=true; // Drop oyster pearl? True=yes False=no //
    rawcod=true; // Drop raw cod? True=yes False=no //
    leatherboots=true; // Drop leather boots? True=yes False=no //
    seaweed=true; // Drop seaweed? True=yes False=no //
    burntfish=true; // Drop burnt fish? True=yes False=no //
    leathergloves=true; // Drop leather gloves? True=yes False=no //
                         /////////////

    procedure Vbright;
     begin;
      MoveMouseSmooth(674+random(21),466+random(30));
      wait(100+random(100));
      Clickmouse(674+random(21),466+random(30),true);
      wait(500+random(200));
      MoveMouseSmooth(697+random(38),251+random(24));
      wait(100+random(100));
      Clickmouse(697+random(38),251+random(24),true);
     end;

    begin
     SetMouseMode(false);
     Loadchars('');
     Vbright;
     Openbag;
     if(leatherboots=true)then
      begin;
       DropColorTol(2699850,5);
      end;
     if(leathergloves=true)then
      begin;
       DropColorTol(1065799,5);
      end;
     if(seaweed=true)then
      begin;
       AutoDrop('Use Seaweed');
      end;
     if(emptyoyster=true)then
      begin;
       Autodrop('Use Empty oyster');
      end;
     if(rawmackerel=true)then
      begin;
       AutoDrop('Use Raw mackerel');
      end;
     if(rawbass=true)then
      begin;
       AutoDrop('Use Raw bass');
      end;
     if(rawcod=true)then
      begin;
       AutoDrop('Use Raw cod');
      end;
     if(burntfish=true)then
      begin;
       AutoDrop('Use Burnt fish');
      end;
     if(oysterpearl=true)then
      begin;
       AutoDrop('Use Oyster pearl');
      end;
    end.

    Lol, my only ScarScape script ever:
    SCAR Code:
    {.Script Info:
    # ScriptName  = Freddy1990's Eye of Newt Buyer
    # Author      = Freddy1990
    # Description = Eye of Next buyer with banking function
    # Version     = v1.00
    # Date        = 19th Septembre 2005
    # Comments    = Enjoy the script =)
    /Script Info}


    //////////////////////////////////////////////////////////////
    ////         Freddy1990's Eye of Newt Buyer v1.00         ////
    //////////////////////////////////////////////////////////////
    ////                                                      ////
    ////  - Script only uses Scarscape                        ////
    ////  - Have you money in the second bank slot            ////
    ////  - No setup needed                                   ////
    ////  - Start in Draynor bank                             ////
    ////                                                      ////
    //////////////////////////////////////////////////////////////
    //// This script can not be edited or be used for other   ////
    //// scripts. This script can also not be redistributed.  ////
    //////////////////////////////////////////////////////////////

    program EyeOfNewtBuyer;
    {.include squig.txt}

    var DT1, DT2, DT3, DT4, DT5, DT6, DT7, DT8, DT9, D10, D11, D12, D13, buy10,
        bought : integer;
        ST : longint;
       
    procedure LoadBmps;
     begin;
      buy10 := BitmapFromString(37, 6, 'z78DA333000015317531313' +
         '7337246080243EB024C425F8DD864BD60D031820014C35B8CCA44' +
         '49C18923CDF21FB851857191011D7A48AD3DA77F4F1C5A8EF06BF' +
         'EF70E568DAF90E57BE0600DA9D347D');
     end;

    procedure LoadDtms;
     begin;
      DT1 := DTMFromString('78DA63E465606050654001D1A1A10C46409A1' +
           '188FF0301A30090618BAAE6C99327609A11CA07AB1125A04681B0' +
           '1A00348A0E19');
      DT2 := DTMFromString('78DA63B463606060654001B179320C46409A1' +
           '188FF030123488D0CAA9A274F9E806946289FD10A48F0A0AA9196' +
           '604055A308244CF09B0300C56D0BE1');
      DT3 := DTMFromString('78DA63E463606030624001D1A1A160214620F' +
           'E0F048CE2986A9E3C7902A619A17CB01A55026A84818423AA9A77' +
           'EFDEA1AAB10612EAA86A2C2D2D51D4000065ED0F86');
      DT4 := DTMFromString('78DA6364676060F0674001D1A1A10C46409A1' +
           '188FF0301A310901183AA8631891142C3F82240C21055CD93274F' +
           '50D58400095D22D4C4E0570300A2800FE0');
      DT5 := DTMFromString('78DA63E463606008664001D1A1A10C46409A1' +
           '188FF0301A31490918AAA46D80E423342F98C6A40220B558DB404' +
           '9A9A28209184AA86318911558D3A90904755F3E4C9131435007F7' +
           '70B44');
      DT6 := DTMFromString('78DA6354656060A8664001D1A1A10C46409A1' +
           '188FF0301A302909188AA86D1144AC3F8F640A21B55CD93274F50' +
           'D5F80189745435D21268E6F800094154359ED28C286A0063A30BB' +
           '5');
      DT7 := DTMFromString('78DA636C65606030644001D1A1A1609A11CA6' +
           '78C05125EA86A9E3C7982AAA60448B81150D306243C50D52C5F79' +
           '1E450D0007FE0B6A');
      DT8 := DTMFromString('78DA63AC666060D0624001D1A1A1609A11CA6' +
           '78C0612C9A86AA4DDAFA3AA310112EAA86A84ED1850D544020931' +
           '5435EFDEBD43510300F4F2078F');
      DT9 := DTMFromString('78DA63EC66606008614001D1A1A1609A11CA6' +
           '7CC021236A86ADEBD7B87AAA609485810501309248A50D508DB31' +
           'A0A8010012A209FD');
      D10 := DTMFromString('78DA636C63606008604001D1A1A1609A11CA6' +
           '78C0012A9A86A188D1851D5A40309735435EFDEBD4355E30824CC' +
           '50D568C90BA1AA910712B1A86A84ED1850D40000369307DE');
      D11 := DTMFromString('78DA634C656060A8634001E1E9920C46409A1' +
           '188FF0301630090118FAA2606A88601AA064CBB0009135435EFDE' +
           'BD4355530124DC51D5585A5AA2A801001BAE0C28');
      D12 := DTMFromString('78DA63D4616060B0644001D1A1A10C46409A1' +
           '188FF03012313906180AAE6C99327609A11CA670469604155232D' +
           'C180AAC60E48C8E0370700D1810BEE');
      D13 := DTMFromString('78DA63F465606008624001D1A1A1609A11CA6' +
           '7B40312A6A86A9E3C7982A94686801A262061805F0D00BEA90AB0' +
           '');
     end;

    procedure Report;
    var
      RHours, Minutes, Seconds, RMinutes, RSeconds : LongInt;
      Time:String;
     begin;
      Seconds:=(GetSystemTime-ST) div 1000;
      Minutes:=Seconds div 60;
      RHours:=Minutes div 60;
      Time:=inttostr(Seconds)+' Seconds';
      if Minutes<>0 then
      begin;
       RSeconds:=Seconds Mod (Minutes*60);
       Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
      end;
      if RHours<>0 then
      begin;
       RMinutes:=Minutes Mod (RHours*60);
       RSeconds:=Seconds Mod (Minutes*60);
       Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds.';
      end;
      begin;
      writeln(' ');
      writeln('  ________________________________________________');
      writeln('  --      Freddy1990''s Eye of Newt Buyer        --');
      writeln('  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯');
      writeln('  Worked for '+Time);
      writeln('  You have bought ' + inttostr(bought) + ' Eyes of Newt.');
      writeln('  ________________________________________________');
      end;
      end;

    procedure Randoms;
     begin;
      Status('Searching for randoms')
      FindRandoms;
      LookForMime;
      CheckForPlant;
      FindMaze;
     end;

    procedure Bank;
     begin;
      OpenBank;
      DepositAll;
      Withdraw(1,1,84);
      CloseBank;
     end;

    procedure BankToShop;
    var xx,yy:integer;
     begin;
      Randoms;
      SetRunOn;
      Status('Walking to MagicShop 0/7');
      If FindDTM(DT1,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Status('Walking to MagicShop 1/7');
      Wait(12500+random(2500));
      If FindDTM(DT2,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Randoms;
      Status('Walking to MagicShop 2/7');
      Wait(12500+random(2500));
      If FindDTM(DT3,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Status('Walking to MagicShop 3/7');
      Wait(12500+random(2500));
      If FindDTM(DT4,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Randoms;
      Status('Walking to MagicShop 4/7');
      Wait(12500+random(2500));
      If FindDTM(DT5,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Status('Walking to MagicShop 5/7');
      Wait(12500+random(2500));
      If FindDTM(DT6,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Randoms;
      Status('Walking to MagicShop 6/7');
      Wait(12500+random(2500));
      If FindColorSpiral(xx,yy,99552,558,0,735,164) or FindColorSpiral(xx,yy,197597,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Status('Walking to MagicShop 7/7');
      Wait(12500+random(2500));
     end;

    procedure ShopToBank;
    var xx,yy:integer;
     begin;
      Randoms;
      SetRunOn;
      Status('Walking to Bank 0/8');
      If FindDTM(DT7,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Status('Walking to Bank 1/8');
      Wait(12500+random(2500));
      If FindDTM(DT8,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Randoms;
      Status('Walking to Bank 2/8');
      Wait(12500+random(2500));
      If FindDTM(DT9,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Status('Walking to Bank 3/8');
      Wait(12500+random(2500));
      If FindDTM(D10,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Randoms;
      Status('Walking to Bank 4/8');
      Wait(12500+random(2500));
      If FindDTM(D11,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Status('Walking to Bank 5/8');
      Wait(12500+random(2500));
      If FindDTM(D12,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Randoms;
      Status('Walking to Bank 6/8');
      Wait(12500+random(2500));
      If FindDTM(D13,xx,yy,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Status('Walking to Bank 7/8');
      Wait(12500+random(2500));
      If FindColorSpiral(xx,yy,3060683,558,0,735,164) then
       begin;
        MouseC(xx,yy,1);
       end;
      Randoms;
      Status('Walking to Bank 8/8');
      Wait(12500+random(2500));
     end;

    procedure Check;
     begin;
      if getcolor(582, 226) = 12656409 then bought:=bought+1
      if getcolor(624, 225) = 12459801 then bought:=bought+1
      if getcolor(667, 225) = 11934742 then bought:=bought+1
      if getcolor(708, 225) = 12459801 then bought:=bought+1
      if getcolor(582, 262) = 12656409 then bought:=bought+1
      if getcolor(625, 261) = 11934742 then bought:=bought+1
      if getcolor(582, 298) = 12656409 then bought:=bought+1
      if getcolor(708, 262) = 12656409 then bought:=bought+1
      if getcolor(582, 298) = 12656409 then bought:=bought+1
      if getcolor(623, 298) = 13181209 then bought:=bought+1
      if getcolor(666, 298) = 12656409 then bought:=bought+1
      if getcolor(708, 297) = 12459801 then bought:=bought+1
      if getcolor(582, 333) = 12459801 then bought:=bought+1
      if getcolor(624, 333) = 12459801 then bought:=bought+1
      if getcolor(667, 333) = 11934742 then bought:=bought+1
      if getcolor(708, 333) = 12459801 then bought:=bought+1
      if getcolor(582, 370) = 12656409 then bought:=bought+1
      if getcolor(624, 369) = 12459801 then bought:=bought+1
      if getcolor(667, 369) = 11934742 then bought:=bought+1
      if getcolor(708, 370) = 12656409 then bought:=bought+1
      if getcolor(582, 406) = 12656409 then bought:=bought+1
      if getcolor(624, 406) = 12656409 then bought:=bought+1
      if getcolor(665, 406) = 13181209 then bought:=bought+1
      if getcolor(708, 406) = 12656409 then bought:=bought+1
      if getcolor(581, 442) = 13181209 then bought:=bought+1
      if getcolor(624, 442) = 12656409 then bought:=bought+1
      if getcolor(666, 442) = 12656409 then bought:=bought+1
      if getcolor(708, 442) = 12656409 then bought:=bought+1
     end;

    procedure Shop;
    var counter,xx,yy:integer;
     begin;
      Randoms;
      Status('Finding Betty');
      TradeNpc('Betty',1184278);
      Wait(2000+random(1000));
      Status('Buying Eyes of Newt');
      MouseC(83+random(15),120+random(15),2);
      Wait(500+random(500));
      counter:=0
      repeat
       counter:= counter+1
       MouseC(86+random(12),123+random(12),2);
       Wait(500+random(500));
       if FindBitmapSpiral(buy10,xx,yy,0,0,765,500) then
        begin;
         MouseC(xx,yy,1);
        end;
      until counter = 3
      Wait(1000+random(500));
      MouseC(425+random(50),39+random(4),1);
      Wait(1000+random(500));
     end;

    begin
    SetupSquig;
    ClearDebug;
    ST:=GetSystemTime;
    LoadDtms;
    LoadBmps;
     repeat
      Bank;
      BankToShop;
      Shop;
      Check;
      ShopToBank;
      Report;
     until false
    end.

  5. #5
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Ugh! Your standards were terrible lol!
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  6. #6
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    lovin the featherbuyer banner thing

    and ewww! noideas right they were (or are?) quite horrible!
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  7. #7
    Join Date
    Feb 2006
    Location
    Belgium
    Posts
    3,137
    Mentioned
    3 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Dan Cardin View Post
    lovin the featherbuyer banner thing

    and ewww! noideas right they were (or are?) quite horrible!
    Yea, lol, I kinda threw up a bit in the back of my throat when I opened those files I especially "like" the check procedure in the eye of newt buyer

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. SRL History?
    By Goodpeople in forum NOTA
    Replies: 5
    Last Post: 02-11-2009, 09:53 PM
  2. PA28cr's history
    By pa28cr in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 01-18-2008, 12:21 AM
  3. History of RS cheating
    By phoenixlament in forum News and General
    Replies: 21
    Last Post: 10-02-2007, 12:51 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
  •