Results 1 to 3 of 3

Thread: help...

  1. #1
    Join Date
    Jul 2008
    Posts
    907
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help...

    ok so what happens is it does all the banking and such you can start either logged in or logged out but after it does all the banking it either logs out or clicks on the mainscreen when trying to do radialwalk
    if someone could just look over the script and tell me what ive done wrong id be grateful
    SCAR Code:
    program new;
    {.include srl/srl.scar}
    var
    i, x, wit, smith, y, coal, coalbnk, steelbar, iron:integer;
     const
    LampLevel= 'smithing'; //Set the skill you want a lamp to do.
    furnaceshopfloorcolor=7311300;//you may need to do this every time
    bankfloorcolor=6454700;//same as above
    procedure loadbitmap;
    begin
      wit := BitmapFromString(134, 132, 'beNrt1DEOgCAMBVBv' +
           '5wVcvf8xdGOA2iCLou/FoVYiSb+4LIl9W0tR6vZp1QwXh+uTNyS3R' +
           'yPctDTDXSZVjaJn7Fdzbvv92SUB5f0/JzJQD2RaffnVdevAzjL2Bx' +
           'O5qgcS6TlTL09k7H9+dwhhIp1b/yoRAAAAAAAAAAAAAAAAAAAAAAA' +
           'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAL7vBM+giRc=' +
           '');
     coalbnk := BitmapFromString(84, 64, 'beNrt0c0KAVEAhuHjIiwsRDLN' +
           'ggVmyPhJRDIlpUSIkBKllFJWsnLZvjo1Gzdg6n06TV9n954xplXOL' +
           'YaVVejvJ/XjtHFddvTVNibheZ6+mUyyVMpW/bxOoZDWTcMv2qN9W3' +
           'efh8H7HH6uYxM3Xd9R+HZcU+9l3r5veqdZU/lRu+OkovYgcLWjfA2' +
           '91WPXj2n7oO7acCVHP1H7t13h9mjr3r6AHa/TKI7tAAAAAAAAAAAA' +
           'AAAAAAAAAAAAAAAAAP7RF8AdMGA=');
     smith := BitmapFromString(134, 132, 'beNrt10EKgCAQQNG5XRdo2/2PU' +
           'aEgQ9FWJ3gPF7rt02QRx77d62ze+76CiXKFfsx7RVYVGSFGDkWqFT' +
           'G1lhfJ80qRau9IzqGIqaXIY165/br9osgvviP56H+kyO33a3lKAAA' +
           'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
           'AAAAAMAMF9WTxs8=');
    end;


    Procedure Randoms;
    begin
    if (not(loggedin)) then exit;
      If(FindFight)then
      RunAway('N', True,1,15000);
      FindNormalRandoms;
      FindLamp((LampLevel));
      SolveNonTalkingRandoms;
      nogametablocs;
    end;

    procedure declareplayers;
    Begin

      HowManyPlayers := 3;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';//user
      Players[0].Pass := '';//pass
      Players[0].Nick := '';//3-4 letters of name in order except first
      Players[0].Active := True;//use this player?


      Players[1].Name := 'username';//user
      Players[1].Pass := 'password';//pass
      Players[1].Nick := 'sern';//3-4 letters of name in order except first
      Players[1].Active := True;//use this player?


      Players[2].Name := 'username';//user
      Players[2].Pass := 'password';//pass
      Players[2].Nick := 'sern';//3-4 letters of name in order except first
      Players[2].Active := True;//use this player?

    End;

    procedure antiban;
    begin
    if (not(loggedin)) then exit;
    randoms;
    wait(15000+random(4000));
    hoverskill('smithing', false);
    gametab(4);
    end;
    procedure loadtms;
    begin
      coal := DTMFromString('78DA63E4676260C862644006B6369A0C22401' +
           'A24FA1F081839806AE250D54064612490FE07646513500332A79C' +
           '801A31A09A42026AA4816A3208A89102AA49C0AF060091EF0926');
      iron := DTMFromString('78DA638C62626050626440063EFACA601A26C' +
           'AE80954A389AA06260B57130C54234E404D12508D24116AB408A8' +
           '8900AA31C0AF0600E58903A9');
    steelbar := DTMFromString('78DA63D46064607065400113DBDBC1342394C' +
           'FA80F643930A001465435BA40960F0135D240961F013512409627' +
           '01352A40962D01356A4056107E3500287204B3');
    end;


    procedure beginning;
    begin
    cleardebug;
    writeln('SSSSSSSS     A     N       N  D D   OOOOOOO SSSSSSSS');
    writeln('S           A A    N N     N  D  D  O     O S       ');
    writeln('SSSSSSSS   A A A   N   N   N  D   D O     O SSSSSSSS');
    writeln('       S  A A A A  N     N N  D  D  O     O        S');
    writeln('SSSSSSSS A       A N       N  D D   OOOOOOO SSSSSSSS');
    writeln('                                first ever script ® ');
    wait(1000);
    cleardebug;
    end;


    procedure open;
    begin
    if (not(loggedin)) then exit;
     begin
       openbankfast('akb');
     end;
    end;

    procedure withdrawiron;
    begin
    if (not(loggedin)) then exit;
     begin
      makecompass('n');
      if (findcolortolerance(x, y, 1910591, msx1, msy1, msx2, msy2, 10)) then
      begin
      mouse(x,y,3,3,false);
      wait(500);
      if (findbitmaptolerancein(wit, x, y, msx1, msy1, msx2, msy2, 20)) then
      mouse(x,y,3,3,true);
      wait(1000);
      typesend('9');
      end else
      closebank;
      logout;
      exit;
     end;
    end;
    procedure withdrawcoal;
    begin
      if (not(loggedin)) then exit;
      if (findbitmaptolerancein(coalbnk, x, y, msx1, msy1, msx2, msy2, 20)) then
       begin
        mouse(x,y,3,3,false);
        wait(500);
        if (findbitmaptolerancein(wit, x, y, msx1, msy1, msx2, msy2, 20)) then
        mouse(x,y,3,3,true);
        wait(1000);
        typesend('18');
        closebank;
       end else
      closebank;
      Logout;
      Exit;
    end;

    procedure walktofurnace;
    begin
    wait(200);
    if (not(loggedin)) then exit;
    wait(500+random(200));
    makecompass('w');
    RadialWalk(furnaceshopfloorcolor, 90, 127, 68, -1, 0);
    if not(findcolortolerance(x,y,1912725,msx1,msy1,msx2,msy2,20)) then
    findsymbol(x, y, 'kebab shop');
    mouse(x,y,3,3,true);
    wait(20000);
    end;

    procedure smelt;
    begin
    if (not(loggedin)) then exit;
     begin
      if (findcolortolerance(x,y,2039585,msx1,msy1,msx2,msy2,20)) then
       begin
        mouse(x,y,3,3,true);
        wait(200);
        if (findcolortolerance(x,y,7303032,msx1,msy1,msx2,msy2,20)) then
        mouse(x,y,3,3,false);
        if (findbitmaptolerancein(smith,x,y,275,641,615,547,20)) then
        wait(200);
        mouse(x,y,3,3,true);
        wait(300)
        typesend('9');
        wait(5000);
        randoms;
        wait(5000);
        randoms;
        wait(5000);
        randoms;
        antiban;
        wait(5000);
        randoms;
        wait(5000);
        randoms;
        wait(5000);
      end else
      logout;
      exit;
     end;
    end;
    procedure walktobank;
    begin
    if (not(loggedin)) then exit;
    wait(500+random(200));
    makecompass('w');
    RadialWalk(bankfloorcolor, 287, 274, 65, -1, 0);
    wait(20000);
    end;

    begin
    setupsrl;
    declareplayers;
    beginning;
    loadtms;
    loadbitmap;
    activateclient;
    wait(1000);
    if (not(loggedin)) then
    loginplayer;
     repeat
      randoms;
        repeat
         open;
         withdrawiron;
         withdrawcoal;
         randoms;
         walktofurnace;
         randoms;
         smelt;
         randoms;
         walktobank;
        until (not(loggedin));
      nextplayer(false);
     until (AllPlayersInactive);
    end.


  2. #2
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    You have:
    SCAR Code:
    end else
      closebank;
      logout;
    At the end of both your withdrawing procedures. You need a begin and end; otherwise it will only run the first line, so you're pretty much telling you script "else closebank, always logout". Adding the begin and end; around closebank and logout should fix it. Hope I helped.
    You may also want to fix up your standards a bit as they are almost there, just a lot of forgotten indents
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  3. #3
    Join Date
    Jul 2008
    Posts
    907
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ah ok thanks


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
  •