Results 1 to 4 of 4

Thread: Help, stats don't seem to work

  1. #1
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default Help, stats don't seem to work

    I've set up my stats stuff like most people have with their stats but it doesn't seem to update in my sig, so I'm not quite sure why its not working. Can anyone see whats wrong. Script is below.

    Thanks


    SCAR Code:
    Program AutoAlcher;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/magic.scar}

    Var
      Tries, AlchesDone, x, y :integer;

    Const
      Magelvl = '1'; //Type your mage lvl in for auto-respond
      StatsID = ''; //Your srl stats ID
      StatsPass = ''; //Your srl stats pass

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

      Players[0].Name := '';//Your runescape username
      Players[0].Pass := '';//Your runescape password
      Players[0].Nick := '';//3 letter of your runescape username
      Players[0].Active := True;
    End;

    Var
    DTM: integer;

    Procedure DeclareBMPs;
    Begin
         DTM := DTMFromString('78DA63CC6362606065644006C7D64932FC07D' +
           '220D1FF40C0980054F393010D30229140BA0CA8469411BF9A4CA0' +
           '1A76026A8A806A3808A8C906AAF947C03DF140357F08A8C905AAE' +
           '1C66F17008C970D32');
    End;


    Procedure GetThingFromBank;   //By NaumanAkhlaq
    Begin
     Repeat
      If FindObjCustom(x,y,['Use','Bank','Booth'],[5405328,5339277,804444],5) then
        Mouse(x,y,0,0,False)
        ChooseOption('uickly')
        Wait(1000+Random(2000))
        Tries:=Tries+1;
      Until(BankScreen) or (Tries >= 6)
          If BankScreen then
           Begin
            MMouse(95-Random(5), 77+Random(5),2,2)
             If IsUpText('ongbo') then
              Begin
               Mouse(95-Random(5), 77+Random(5),2,2,False)
               ChooseOption('All')
               wait(1000+Random(200))
               CloseBank;
            end;
        end;
    end;


    Procedure ClickYewLong;
      Begin
      if(FindDTM(DTM,x,y,MIX1,MIY1,MIX2,MIY2))then
        Begin
          Mouse(x,y,2,2,true);
          Exit;
        End;
         Begin
          Wait (800 + random(150))
           Begin
            if not(FindDTM(DTM,x,y,MIX1,MIY1,MIX2,MIY2)) then
             Begin
               Mouse(543, 27,10,10,true)
               WriteLN('Couldnt find any yew longs');
               WriteLN('Getting Another Load');
               GetThingFromBank;
             End;
          End;
      End;
    End;

    Procedure Alch;
    Var
    ibot:integer;
    Begin
     MarkTime(ibot)
     Begin
      Gametab(7);
        Repeat
          CastSpell(35)
          Wait(500 + random(300));
          ClickYewLong;
          wait(2500+Random(500))
          AlchesDone:= AlchesDone+1;
        Until (not(FindDTM(DTM,x,y,MIX1,MIY1,MIX2,MIY2))) or (TimeFromMark(ibot) >18000)
      End;
    End;


    Function InChatLine(myString: string): Boolean;
      Begin
        Result := ( pos(myString, TheLine) <> 0 );
      End;

    Procedure AntiBan;   //By NaumanAkhlaq
    Begin
      Case Random(15) of
       1,0,9,4: MMouse(116-Random(100), 285-Random(256),60,60)
       2,3,5,8: MMouse(MSX1,MSY1,1,1);
      end;
     Exit;
    end;

    Function ChatBack: Boolean; // By Lorax(SL Scripts)
    Begin
      SaveToChatLog;

      if ( OldLine = TheLine ) or ( pos(Players[CurrentPlayer].Nick, TheName) <> 0 ) then
        Exit;

      if InChatLine(Players[CurrentPlayer].Nick) then
      Begin
        Wait(1000 + Random(500));
        case Random(6) of
          0: TypeSend('hello');
          1: TypeSend('hi');
          2: TypeSend('hey');
          3: TypeSend('hey you');
          4: TypeSend('yo');
          5: TypeSend('sup?');
        End;

        Result := True;
        Exit;
      End;

      if ( InChatLine('mage') or InChatLine('magic') or InChatLine('age') ) and
         ( InChatLine('lv') or InChatLine('leve') ) then
      Begin
        Wait(1000 + Random(500));
        case Random(2) of
          0: TypeSend ('im '+(magelvl)+'');
          1: Typesend ('me,'+(magelvl)+'.');
      End;

        Result := True;
        Exit;
      End;

      if InChatLine('hi ') or InChatLine('ello') or InChatLine('sup') or
         InChatLine('whats up') then
      Begin
        Wait(1000 + Random(500));
        case Random(4) of
          0: TypeSend('hello');
          1: TypeSend('hey');
          2: TypeSend('hey there');
          3: TypeSend('hi');
      End;

        Result := True;
        Exit;
      End;

      if InChatLine('lol') or InChatLine('hehe') or InChatLine('hihi') or
         InChatLine('haha') then
      Begin
        Wait(1000 + Random(500));
        case Random(4) of
          0: TypeSend('...');
          1: TypeSend('lool');
          2: TypeSend('rofl');
      End;

        Result := True;
        Exit;
      End;

        Result := True;
        Exit;
      End;

    Procedure Siggy;
    Begin
      Writeln('Dude_Richard.......')
      Wait(1000)
      Writeln('Presents.......')
      wait(1200)
      Writeln('The One the Only.......')
      wait(1300)
      writeln('Yew Long Auto-Alcher v1.1!  ')
      wait(1500)
    end;


    Procedure ProgressReport;
     Begin
      ClearDebug
      WriteLn('<<<<<<<<<<<<Auto Alcher v1.0>>>>>>>>>>>>');
      WriteLn('Alched for ' + TimeRunning + ' ');
      WriteLn('Did ' + IntToStr(AlchesDone) + ' High Alches ');
      WriteLn('Earnt ' + IntToStr(AlchesDone * 65) + ' XP');
      WriteLn('<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>');
      WriteLn(' ');
      WriteLN('Please post progress reports on thread')
      WriteLn(' ')
      Wait(2000 + random(200))
    End;

    Procedure AntiRandoms;
    Begin
      ChatBack;
      FindNormalRandoms;
      FindTalk;
      AntiBan;
    End;

    Procedure Prepare;
    Begin
     SetupSRL;
     ClearDebug;
     DeclareBMPs;
     Siggy;
       Case random(8) of
         1: Disguise('iTunes');
         2: Disguise('Windows Live Messenger');
         3: Disguise('AIM');
         4: Disguise('Internet Explorer ');
         5: Disguise('Google')
         6: Disguise('Microsoft Word')
         7: Disguise('Control Panel')
         8: Disguise('Windows Help Centre')
       end;
     DeclarePlayers;
     Wait(10);
     ScriptID := '568';
     SRLID := StatsID;
     SRLPassword := StatsPass;
     ActivateClient;
     Wait(10);
     LoginPlayer;
     Wait(10);
     SRLRandomsReport;
     GameTab(7);
    End;

    Begin
    MakeCompass('N')
    SetAngle(True)
    Prepare;
      Repeat
       if (Not(LoggedIn)) then
        Exit;
        Alch;
        AntiRandoms;
        ProgressReport;
      Until (Not(Loggedin));
       If (not(loggedin)) then
        Begin
         Logout;
         ProgressReport;
         FreeDTM(DTM);
        End;
    End.

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

    Default

    Doesn't look like you used the variables anywhere in your script (e.g. LogsCut:= LogsCut+1; ) that you have on your script account. Well, not as far as I can see. Also, you need SRLRandomsReport to appear every so often (at least at the end of the script) otherwise it won't submit any of the data except at the beginning.

  3. #3
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Add: SRLRandomsReport; in ur progressreport procedure.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  4. #4
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    kk, thanks. I'll try them now and see if they work. If they don't would you be able to help me with it?

    EDIT: sorted now, see I have xp in my sig

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. my stats stilll wont work
    By RudeBoiAlex in forum SRL Site Discussion
    Replies: 0
    Last Post: 10-04-2007, 08:15 PM

Posting Permissions

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