Results 1 to 6 of 6

Thread: Help with my script?

  1. #1
    Join Date
    Dec 2008
    Posts
    70
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with my script?

    I made an auto alcher script, but for some reason it wont click on the mage book. I'm not sure what happened. but here's the script

    SCAR Code:
    program AutoAlcher;

    var
    x, y: integer;
    numAlchsCasted: integer;
    magelongBitmap: integer;
    yewlongBitmap: integer;
    i: integer;
    r: integer;

    const
    username = '';//username goes here
    password = '';//password goes here
    ItemToAlch = 'MageLong';//YewLong, MageLong

    Procedure SendKeysHuman(text:String);
    Var
      a1 : Integer;
    Begin
      a1:= 1;
      Repeat
        wait(random(220) + 15);
        sendkeys(copy(text, a1, 1));
        a1:= a1 + 1;
      Until a1 > length(text);
    End;

    Procedure ClickHuman(x, y : Integer; left : Boolean);
    Begin
      holdmouse(x, y, left);
      wait(random(20) + 15);
      releasemouse(x, y, left);
    End;

    procedure loginsequence;
    begin;
      MoveMouseSmoothEx(383, 184+random(0),20,40,45,25,20);
      ClickMouse(383, 184, true);
      wait(10);
      MoveMouseSmoothEx(378, 278+random(0),20,40,45,25,20);
      ClickMouse(378, 278, true);
      SendKeysHuman(username)
      sendkeysVb('{ENTER}',false);
      SendKeysHuman(password);
      SendKeysVb('{ENTER}',false);
      MoveMouseSmoothEx(381, 380+random(0),20,40,45,25,20);
      ClickMouse(381, 380, true)
      MoveMouseSmoothEx(380, 348+random(0),20,40,45,25,20);
      wait(5000);
      ClickMouse(380, 348, true);
    end;

    procedure logoutsequence;
    begin
      MoveMouseSmoothEx(752, 12+random(0),20,40,45,25,20);
      ClickHuman(752, 12, true)
      MoveMouseSmoothEx(640, 376+random(0),20,40,45,25,20);
      wait(11000)
      ClickHuman(640, 376, true)
    end;

    Procedure report;
    begin
    writeln('This is my AutoMager')
    writeln('Alchs casted: ' + inttostr(numAlchsCasted))
    writeln('Total experience: ' + inttostr(numAlchsCasted * 64))
    writeln('End Report')
    end;

    procedure LoadBmps;
      begin
      magelongBitmap := BitmapFromString(26, 18, 'beNpN1MlvGlccB/' +
           'AHJrHjOnaiZlMVJc2hanqoIvXUQ1opkSIlbdU0VZqm6ZKkdhyvscF' +
           'sxhiDAQPeGJZhMbPDDAzMwDBgbDA4gBvb2FGsNEkvvfTQP6Svy6HS' +
           'uz3po+/7ve971UCPEmQIsxS3414t5TNH3Maz3QrjyINOAMp5TgWAQ' +
           'gm+vPUpaAco7gyFjbmIXkZHW+KcgI7UeEcpaS2w1te7zH4z9muLOQ' +
           'oAFzVkaZuc8CQjtlR0btmmhpR5vK8dbsWDb59QXb32EVABX3SW4+b' +
           '5kO6Z4CDd97fEOZkyPpU8m5KnWVpu1cO7T0NQq4gLUAt7RviYlfKZ' +
           'RHpBYgMQHB/89tQxgMU8PccAaAO8RLhcYwyqy+PG3RIi0cYia8a8v' +
           'c8bwRdbod0asr2xfOfGB90KAE02YuRjFi4yzUUsbNRWSPkhdfvm5T' +
           'YlaO8AH166AEGK9iZw6woymqGnxcRULj5ZX3W3NpHmuuvgWXCntni' +
           'mExA+NVwwIRPQRBYGecxcSLkzjFPkFs+dUaqffN+mAG8dBecvnAJK' +
           'EGeXpLyPIS2FnCeXthKhgd9fUtsV95tW+GDLF0eNxaSrwDliy8MVw' +
           'ZXGDBgytMrb80kHgeoz7MJhBXgy8qNCAbqPdrx/8V04QFUXQLFphr' +
           'NvlP2F3KzIaF/toM2i/aCBVLM+xN7bkH2R+Uc40p+ldbHln/PcZEl' +
           '0VItegXWfPg56H9xqA4DEwkAB2nra7g1/B7pAvoKTlCXFml/tkXs1' +
           '5M/f+BJrEAgbrAcTVBe5mXhoKBkbljl9ntWti9YUqc9xTiZmOwyAX' +
           'vO4ow0gfi84BC5/dQ0WJi6iJOMsFZD6GtKq+nfLyDtHALzNND4FD5' +
           'ghtBl8nI+NiOSTQlInJbTN0iIT0WF+A0ssQNBu1sJs4Mjhi598DLq' +
           'UXJ6OEZ7NCtnaJDalpZcN/DiA2kwaN/1fy1JjRU5XYPUlflqkpgXa' +
           'TkVsRNgJ6zc4+BC0q8Bh1c0fvoEDLFf5BOnZkNE3u6lfioH3TkLNk' +
           'iEn05guQ2iglsZGpX+0umyviDaBmEyuGD3W3jg2y9OLnR2gb3RAda' +
           'z7+tefwcKwXCjLB543+Wdr2B8vi4WEM8uYMuTfwQRy4j+NVK9xxob' +
           'kEImJdEybWjGsCYtM1DRv68PCNoUK3O//6frnV+/e+wJWcbuRWc0G' +
           '9+uJuozu1fBcwpChJmAwqAm4RsTUMqlb46YyUfXehp8Ljyej2oDro' +
           'RifERhLNuVGg9YjneBx/+27d66cO3som/Y2N4idTfL1fvrNfiqX0A' +
           'v0hEBqYJIs1GITMmkos9aDWliM6RhkKDr/kIuOMaERItCPLvXn08t' +
           'S2t+uADdvXLpy+fyJHrC1SWzVovX1YKuBwbsTabVIarKkNofroCAT' +
           'U2V2di1ulQhTEh2r5+dwpDceHUhTo5WcLYlPJqKT9bXQ6W7QoQSVk' +
           'm81v7BVD283oi9apJQwCZQejk6gTAIxlY6ZcoS1xLpkxlbmXamIlv' +
           'YPMugAtzLERB5BU6T05cycSE+xmK4MP5CSd6ce2qr6d+rBVjOUjrt' +
           '4Zi5JOTjSmSKcPDknUG6RdlVyAcqvW025CWSUW9Fgvj6ZNbKRYYnW' +
           'y3Hjasq8npnZyDrqBc922btXC/y7Og8BWPJ2JYDvETaqQwE6laBLB' +
           'eCPdO4k8Nr66KBGSlji4VE4PRzpkxidnDCUUlPljKUqzjZk18760n' +
           '7Vt18N7P8F5UzB1Q==');
      yewlongbitmap := BitmapFromString(27, 18, 'beNotVPlTU1cYvSB' +
           'ICMgmihujlqoVOnamLtP+onXGtlNrO63dHEtbRQ2yJyEaxBBCICQC' +
           'CUleQrb3krckeS8vy8vyQsgGCQQIgrhUprXTX/qf9NnpzPfDnTv3n' +
           'jnfOd/5fM6zZw437AEBt1atEMR8OpY2jElu22ZkjeXgUXdnDQCZUK' +
           'i+vPzWT9f5JYBCIYta6jHL5slJ0i7MhOVxWsz6RIXk2EpC/fsa/Gw' +
           'Jvvrph4f2Aq2q/+kKaZuVaOR3FqN2FFLGPPYqAHp+aa/fVboQ9PMA' +
           'qKsA2nHpRsYv6/0uHZgupg2Y+V6clsQo4Xpmciun31oyb6Rsn3x8+' +
           'tJHJ480Ah5HwKWAITFhHcZNw6hesRTx7uOBzpvfc2j7+GWfXzzPHf' +
           'xO7fOcD4UG52klYe1OBIeyMflmXrecmMqxur+2mB+/vlwBQDJiR20' +
           'yNzxEOYfh2V5iTpIJmbIhR4SYqy0FMnEXB1W1C3x5+XxzHZiS399I' +
           'ozQqKyRnKHSARvsKmenXRXQ1bd1ZD/BLQTKK2o2PbZDI65TSuAS3d' +
           'DuN9/OsgcEmUJM8hBvreaD/7o06HuBgL509wQfgcC1gyHGHsYvCBh' +
           'fn1bnk9ErSXFxCt3JUVSmAZmSYXbE4byQcfZhdQNjuUs4ewtoT942' +
           'nw8ZM2Moh9HR821AJYrTjxJE9dWUAt45yHi2noGLebNZ15FP6tSz8' +
           '5kWMdj2pLQMLITzm00PTgjD1yGW9HaH6DOpr2chI2CPlFJj3azGLv' +
           'GY3eNjXXlMOhkUdHE/16P1aHpiPTDttosWkYTlrySXhNGs/1PC2C8' +
           'Zj474QjodBj8TtuEUivyUZUSYqZQgRBYsxiwS3yUKEltPwQe/Pxw9' +
           'UcgoMdH5TzwckNhIPawpLtoWovpDF1pcoDq1mFyARg8eh9BNyN9Ll' +
           'xzu9SHvQfcdlvuG23v37pZvGhp1mCUvPUpiae9975/rBOlBZAqbGB' +
           'bxSECDH/J6xdBza2Y4G3LPHmngNFSU0aqKcKsYz5nP1hzzdPtftMC' +
           'lYTStyrMIHD+iU7S6zGJrqmdMKCVh5oA58drHtveMVdpOkuQn4vYq' +
           'nq67ljD0Vs/zzppBLeBvKAe00ko7xIKEg4f4g3kvBHQzR5TTczMfH' +
           'FyMqllIG8NEAobQbhIhJGqOMh2rB0MD1r660SAeutrUATqtnBSLkf' +
           'vJilUkxSH0Z8CGzXvtEABvj0hRA+0m7IIT1riYmF+gRn0PiQ6TcZC' +
           'LQAGodpHG5frIngKv38oCo6wpuE1aXgwVGs5FHnheonc1oKmjnshD' +
           'EINqpCXvUfmQoTEj9iDDqlvrhQdYjD6EjxNxgnFK5HRKLXgCb+kKE' +
           'yo8qucl/5yB40HVpVPrFfj7Istpi2rG9TG1myEYeCKB6H6KOEBoaf' +
           'sRgw7RDEsEfp2hN3DORDWndZolR1QFD3WxwFLX0YiaxyyiMeEZZSn' +
           '7qCOCovlq3J4Oq7bxraxF7ueyvf6uhjnSoGGySsg0HXTLK+pBxjbz' +
           'KEy6dOIAotrJOs+aeXv0rFwrSJUoFpwizeDtn88FCg+qHVEj+x1OE' +
           'JUeKKUs+Cv1ZZP5r2Uwj2jChpx0TDKb2O5QRTON3TKzNu3BIxi0KS' +
           'NOdCmtRqwi3D0KTgkLCEnA+fpa3cJatZ3Qxr+zlKrK+YMsypp3V0I' +
           'W2U42V5Vy4OLu52lPyf7U0VXGXbUfrx6WdflQHaSS6yYGIVx/1GGH' +
           '9UJycCeLKIDqSic0UEuaVBSu3gl6vswXWc+PatQutra1Hm8+dPnXu' +
           '9IkP3j12pqX5/eOHW481Ne/l76sq2V9d2sgH1aWAC2/tblANwMmDP' +
           'A4zgKmKWYSl1UvsHOvTriW9m4uhxL8gAcTB');
    end;

    procedure UseBitmapMageLong;
    begin
    if(FindBitmap(magelongBitmap, x, y)) then
     begin
      MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
      Wait(1000+random(100));
      ClickMouse(x,y,true);
     end;
    end;

    procedure UseBitmapYewLong;
    begin
    if(FindBitmap(yewlongBitmap, x, y)) then
     begin
      MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
      Wait(1000+random(100));
      ClickMouse(x,y,true);
     end;
    end;

    procedure HighAlchYewlong;
    begin
    numAlchsCasted:= 0;
    begin
    if ItemToAlch = 'YewLong' then
      begin
       MoveMouseSmoothEx(744, 185 + random(0),20,40,45,25,20);
       Wait(1000);
       ClickMouse(575, 355, true);
       MoveMouseSmoothEx(575, 353 + random(0),20,40,45,25,20);
       wait(1000)
       ClickMouse(575, 353, true);
       UsebitMapYewLong;
       numAlchsCasted:= numAlchsCasted + 1;
      end;
    end;
    end;

    Procedure HighAlchMageLong;
    begin
    numAlchsCasted:= 0;
    begin
    if itemtoAlch= 'MageLong' then
      begin
        MoveMouseSmoothEx(744, 185 + random(0),20,40,45,25,20);
        Wait(1000+random(100));
        ClickMouse(575, 355, true);
        MoveMouseSmoothEx(575, 353 + random(0),20,40,45,25,20);
        ClickMouse(575, 353, true);
        UseBitMapYewLong;
        numAlchsCasted:= numAlchsCasted + 1;
      end;
    end;
    end;

    procedure HighAlchDelay;//delays 3 seconds for high alch animation
    begin
    if itemtoalch = 'Yewlong' then
    begin
      HighAlchYewlong;
      wait(3000);
     end else
     begin
      highalchMageLong;
      wait(3000);
     end;
    end;

    procedure HighAlchAuto;
    begin
    i:= 0;
     repeat
      i:= i + 1;
      HighAlchDelay
     until(i >= 195);
    end;

    Procedure HighAlchSequence;
     begin
      LoadBmps
      LoginSequence;
      wait(5000)
      HighAlchAuto;
      LogoutSequence;
      Report;
      wait(5000)
     end;

    begin
    r:= 0;
    repeat
    HighAlchSequence;
    until(false)
    end.


    Hope to get feed back =) thanks

  2. #2
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Use SRL man, thats what its there for. It will make your life loads easier. Go to Tutorial Island o this forum and read some TUT'S it will make everything clear to you.

    EX. MMouse instead of MoveMouseSilent
    Mouse instead of holdmouse(x, y, left);
    wait(random(20) + 15);
    releasemouse(x, y, left);
    Logout; instead of your "logoutsequence;"

    ...just for some examples.

    GoodLuck!

    PM me if you have any questions.

  3. #3
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You could also implement DeclarePlayers so you could use LoginPlayer :P

  4. #4
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You can also use CastSpell(), look in magic.scar

    Edit: dtms might be better too for logs, more reliable

  5. #5
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Don't you see he's not using SRL?
    Ce ne sont que des gueux


  6. #6
    Join Date
    Feb 2007
    Location
    Estonia.
    Posts
    1,938
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Why don't you help him then?
    To include SRL, simply add:
    SCAR Code:
    program plapla;
    {.include srl/srl.scar}  //Include this line. :)
    //rest of the script..
    This can help you very much I believe.
    ~Eerik~

Thread Information

Users Browsing this Thread

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

Posting Permissions

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