Results 1 to 8 of 8

Thread: Old script - what is outdated

  1. #1
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Old script - what is outdated

    Ok, this is the script i made ages ago, it worked and it worked well... could you tell me what is outdated please

    SCAR Code:
    // setup lines 11-13 and 22- 24
    // replywhatsup and replyhi creds go to dudesareus



    program Miner;
    {.include SRL\SRL.scar}



    const
    RockColour = 2240332; //iron
    runawaydirection1 = 'N';// N, E, S, W
    TimeToMine=1; //How long it takes you to mine a pack in minutes

    Procedure DeclarePlayers;
    begin
        HowManyPlayers:=1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

        Players[0].Name :='login_name';
        Players[0].Pass :='login_pass';
        Players[0].Nick :='4_letters_of_login_name';
        Players[0].Active :=True;
    end;

    var
    IronOreDTM: integer;
    DropIronOreDTM, S : Integer;
    TooFullDTM : integer;

    {------------------------------}

    procedure Mine;
    Var
     MineStop: Integer;
    begin
     MarkTime(MineStop)
     S:=S*1000
     repeat
      if (FindMSColor(x,y,RockColour)) then
      Mouse(x,y,2,2,true);
      FTWait(1000+random(1000));
     until(InvFull) Or (TimeFromMark(MineStop) >= S)
    end;

    {------------------------------}

    Procedure LoadDTMs;
    begin

      IronOreDTM := DTMFromString('78DA630C64606070614001CE1A32609A11CA6' +
           '70C0012410C688011558D13482301351E40C28E801A905D9604D4' +
           '4410A1261E48D81250130D247CF0AB01007110053E');
      DropIronOreDTM := DTMFromString('78DA63CC6760608865C00A1861B43D906822A' +
           '0269E08351544A8E92142CD1C22D46C00128D44A82920424D0211' +
           '6A028850634940CD4220614A404D36903021A0C69B08357640C28' +
           'D083589F8D50000D6D20E16');
      TooFullDTM := DTMFromString('78DA637CC5C0C010C4800236CD2C05D38C503' +
           'EA31D90B060C00AE06A4066381050930B24AC09A8E90212B604D4' +
           'AC2542CD4622D49C0512F604D45C07125604D4BC20C2AEDF40C28' +
           'E801A6146C26AAC180987732211E69413A1A6990835ED84D50000' +
           'E0710F94');
    end;

    {------------------------------}

    procedure DropIron;
    begin
    if (InvFull) then
    if (findDTM(TooFullDTM, x, y, 555, 200, 705, 700))then
    Repeat
    if (findDTM(IronOreDTM, x, y, 555, 200, 705, 700))then
    Mouse(x, y, 2, 2, false);
    if (findDTM(DropIronOreDTM, x, y, 555, 200, 705, 700))then
    Mouse(x, y, 2, 2, true);
    Until(Not(findDTM(IronOreDTM, x, y, 555, 200, 705, 700)))
    end;

    {------------------------------}

    procedure replywhatsup;
    begin
     if(FindChatText('whats up'))or
       (FindChatText('whats new'))or
       (FindChatText('whats hap'))then
       typesend('not much, just mining!')
    end;
    {------------------------------}
    procedure replyhi;
    begin
     if(FindChatText('hello'))or
       (FindChatText('hi'))or
       (FindChatText('hey'))or
       (FindChatText('yo'))then
       typesend('yo')
    end;
    {------------------------------}
    procedure replymininglvls;
    begin
     if(FindChatText('min lvls'))or
       (FindChatText('mine lvls'))or
       (FindChatText('minin lvls'))or
       (FindChatText('mining lvls'))then
       typesend('not saying :D')
    end;
    {------------------------------}
    procedure AntiRandoms;
    begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = true) then
    begin
    RunAwayDirection(runawaydirection1);
    Wait(10000 + random(2000));
    RunBack;
    end;
    end;
    {------------------------------}
    Begin
    SetupSRL;
    DeclarePlayers;
    repeat
    S:=TimeToMine
    Mine;
    DropIron;
    AntiRandoms;
    replywhatsup;
    replyhi;
    replymininglvls;
    until(false)
    end.
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    It's not outdated...but it won't work well at all. Plus, it's made by Dudesareus, a scammer on these forums
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i made it...
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  4. #4
    Join Date
    Jul 2007
    Location
    St. Louis, Missouri, USA.
    Posts
    575
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    // setup lines 11-13 and 22- 24
    // replywhatsup and replyhi creds go to dudesareus



    program Miner;
    {.include SRL/SRL.scar}



    const
      RockColour = 2240332; //iron
      runawaydirection1 = 'N';// N, E, S, W
      TimeToMine=1; //How long it takes you to mine a pack in minutes

    Procedure DeclarePlayers;
    begin
      HowManyPlayers:=1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name :='login_name';
      Players[0].Pass :='login_pass';
      Players[0].Nick :='4_letters_of_login_name';
      Players[0].Active :=True;
    end;

    var
      IronOreDTM, x, y: integer;  //added x and y
      DropIronOreDTM, S : Integer;
      TooFullDTM : integer;

    {------------------------------}

    procedure MineIt; //changed
    Var
      MineStop: Integer;
    begin
      MarkTime(MineStop)
      S:=S*1000
      repeat
        if (FindColorTolerance(x,y,RockColour, MSX1, MSY1, MSX2, MSY2, 5)) then //changed
        Mouse(x, y, 2, 2,true);
        FTWait(1000+random(1000));
      until(InvFull) Or (TimeFromMark(MineStop) >= S)
    end;

    {------------------------------}

    Procedure LoadDTMs;
    begin

      IronOreDTM := DTMFromString('78DA630C64606070614001CE1A32609A11CA6' +
           '70C0012410C688011558D13482301351E40C28E801A905D9604D4' +
           '4410A1261E48D81250130D247CF0AB01007110053E');
      DropIronOreDTM := DTMFromString('78DA63CC6760608865C00A1861B43D906822A' +
           '0269E08351544A8E92142CD1C22D46C00128D44A82920424D0211' +
           '6A028850634940CD4220614A404D36903021A0C69B08357640C28' +
           'D083589F8D50000D6D20E16');
      TooFullDTM := DTMFromString('78DA637CC5C0C010C4800236CD2C05D38C503' +
           'EA31D90B060C00AE06A4066381050930B24AC09A8E90212B604D4' +
           'AC2542CD4622D49C0512F604D45C07125604D4BC20C2AEDF40C28' +
           'E801A6146C26AAC180987732211E69413A1A6990835ED84D50000' +
           'E0710F94');
    end;

    {------------------------------}

    procedure DropIron;
    begin
      if (InvFull) then
        if (findDTM(TooFullDTM, x, y, 555, 200, 705, 700))then
        Repeat
        if (findDTM(IronOreDTM, x, y, 555, 200, 705, 700))then
          Mouse(x, y, 2, 2, false);
        if (findDTM(DropIronOreDTM, x, y, 555, 200, 705, 700))then
          Mouse(x, y, 2, 2, true);
        Until(Not(findDTM(IronOreDTM, x, y, 555, 200, 705, 700)))
    end;

    {------------------------------}

    procedure replywhatsup;
    begin
     if(FindChatText('whats up'))or
       (FindChatText('whats new'))or
       (FindChatText('whats hap'))then
       typesend('not much, just mining!');
    end;
    {------------------------------}
    procedure replyhi;
    begin
     if(FindChatText('hello'))or
       (FindChatText('hi'))or
       (FindChatText('hey'))or
       (FindChatText('yo'))then
       typesend('yo');
    end;
    {------------------------------}
    procedure replymininglvls;
    begin
     if(FindChatText('min lvls'))or
       (FindChatText('mine lvls'))or
       (FindChatText('minin lvls'))or
       (FindChatText('mining lvls'))then
       typesend('not saying :D');
    end;
    {------------------------------}
    procedure AntiRandoms;
    begin
      FindTalk;
      FindNormalRandoms;
      if (FindFight = true) then
      begin
        RunTo(runawaydirection1, True); //changed
        Wait(10000 + random(2000));
        RunBack;
      end;
    end;
    {------------------------------}
    Begin
      SetupSRL;
      DeclarePlayers;
      repeat
        S := TimeToMine;
        MineIt;   //changed
        DropIron;
        AntiRandoms;
        replywhatsup;
        replyhi;
        replymininglvls;
      until(false)
    end.

    It compiles now, and I standardized it a little for you. But I don't recommend saying the same exact thing if somebody says hi or mining levels. You should use a case.
    -You can call me Mick-



  5. #5
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    http://www.villavu.com/forum/showthr...?t=7703?t=8821


    thats the link btw... did Dudesareus coppy it?
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  6. #6
    Join Date
    Oct 2006
    Location
    MI USA
    Posts
    3,166
    Mentioned
    6 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by 05hartor View Post
    http://www.villavu.com/forum/showthr...?t=7703?t=8821


    thats the link btw... did Dudesareus coppy it?

    Weird...when I open up your script... I see....

    // setup lines 11-13 and 22- 24
    // replywhatsup and replyhi creds go to dudesareus

    Now, why would you ask if Dudesaurus copied it from you, when you credit him in your script ?!?!?!!?

    Anyone else smell something fishy with this story.....

  7. #7
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sounds like Dudesaurus wrote it... then this guy maby changed some things and now wants it fixed :S cos i agree with RAM y would u cred Dudesaurus if u think he copied it....

    spaz

  8. #8
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    no, a quote from santa

    "Plus, it's made by Dudesareus,"

    i only mean the reply bits

    I only copied this

    "procedure replywhatsup;
    begin
    if(FindChatText('whats up'))or
    (FindChatText('whats new'))or
    (FindChatText('whats hap'))then
    typesend('not much, just mining!');
    end;
    {------------------------------}
    procedure replyhi;
    begin
    if(FindChatText('hello'))or
    (FindChatText('hi'))or
    (FindChatText('hey'))or
    (FindChatText('yo'))then
    typesend('yo');
    end;
    {------------------------------}
    procedure replymininglvls;
    begin
    if(FindChatText('min lvls'))or
    (FindChatText('mine lvls'))or
    (FindChatText('minin lvls'))or
    (FindChatText('mining lvls'))then
    typesend('not saying ');
    end;"
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Fix Outdated Script.
    By zealkctro in forum OSR Help
    Replies: 1
    Last Post: 03-04-2009, 10:59 AM
  2. Is this script outdated?
    By AC Lova123 in forum OSR Help
    Replies: 5
    Last Post: 05-15-2008, 07:06 AM
  3. Replies: 6
    Last Post: 02-18-2008, 03:11 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
  •