Results 1 to 2 of 2

Thread: Progress Report Problem

  1. #1
    Join Date
    Apr 2007
    Location
    The Buckeye State
    Posts
    482
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Progress Report Problem

    SCAR Code:
    //|=======================================================================|
    //|Welcome to EZTyper, brough to by Esteban! Please Enjoy.                |
    //|Remember set the constants with comments after them.                   |
    //|Text Colors: Red: - Green: - White: - Cyan: - Purple:                  |
    //|Text Color Effects: Flash1: - Flash2: - Flash3: - Scroll: - Shake:     |
    //|Wave: - Wave2: - Slide: - Glow1: - Glow2: - Glow3                      |
    //|Text Color and Effect Format: Color:Effect: Text                       |
    //|Example: Red:wave: Hello! You would type this in the message1,2, or 3  |
    //|=======================================================================|
    program EZTyper;
    {.include SRL\SRL.SCAR}
    {.include SRL/SRL/Misc/Trade.scar}

    var
    messagenum : integer;

    const

    { ________________________________________________________________________ }
    {|Evey Hammond: Who are you?                                              |}
    {|                                                                        |}
    {|V: Who? Who is but the form following the function of what,             |}
    {|and what I am is a man in a mask.                                       |}
    {|                                                                        |}
    {|Evey Hammond: Well I can see that.                                      |}
    {|                                                                        |}
    {|V: Of course you can. I'm not questioning your powers of observation,   |}
    {|I'm merely remarking upon the paradox of asking a masked man who he is. |}
    {|                                                                        |}
    {|                                  - V For Vendetta                      |}
    {|________________________________________________________________________|}

    {===============================================================}
    {=====================Messages to Auto-Type=====================}
    {===============================================================}

    Message1='Hey';//Type First Message Here
    Message2='Whats up?';//Type Second Message Here
    Message3='lol';//Type Third Message Here
    TalkWait= 4000;//This is How Long (in ms) to Wait Before Typing the Next Message.
    //Set TalkWait to Zero (0) if you want it to spam messages

    AntiBanExtra=True;

    //======================Do not add or delete anything under this, but feel free to use it for your own script.===============

    Const

    {===============================================================}
    {============================Credits============================}
    {===============================================================}

    Credits1=' ____  ___    _____       __   ____  ___    ';
    Credits2='|        /      |   \  / |__| |     |___|   ';
    Credits3='|---    /  ---  |    \/  |    |---  | \      BY';
    Credits4='|____  /__      |    /   |    |____ |  \    ';
    Credits5=' ';
    Credits6='8888888         888            888';
    Credits7='88              888            888';
    Credits8='88              888            888';
    Credits9='8888   .d8888b  888888 .d88b.  88888b.   8888b.  8888b.';
    CreditsA='88     88K      888   d8P  Y8b 888 "88b     "88b 888 88b';
    CreditsB='88     "Y8888b. 888   88888888 888  888 .d888888 888 888';
    CreditsC='88          X88 Y88b. Y8b.     888 d88P 888  888 888 888';
    CreditsD='8888888 88888P/  "Y888 "Y8888  88888P"  "Y888888 888 888';
    CreditsD1=' ';
    CreditsE='With thanks to jarlaxe for guidance from his script';
    CreditsF='Script Beginning in...';
    CreditsG='5... (Click on the RuneScape Client Before it Starts!)';
    CreditsH='4...';
    CreditsI='3...';
    CreditsJ='2...';
    CreditsK='1...';
    CreditsL='Script Starting!';

    procedure Nickname;
    begin
    NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);
    end;

    procedure Credits;
    begin
    wait(1000+Random(100));
    writeln(Credits1);
    wait(500);
    writeln(Credits2);
    wait(500);
    writeln(Credits3);
    wait(500);
    writeln(Credits4);
    wait(500);
    writeln(Credits5);
    wait(500);
    writeln(Credits6);
    wait(500);
    writeln(Credits7);
    wait(500);
    writeln(credits8);
    wait(500);
    writeln(credits9);
    wait(500);
    writeln(creditsA);
    wait(500);
    writeln(creditsB);
    wait(500);
    writeln(creditsC);
    wait(500);
    writeln(creditsD);
    wait(500);
    writeln(CreditsD1);
    writeln(creditsE);
    wait(5000);
    ClearDebug;
    writeln(creditsF);
    wait(1000);
    writeln(creditsG);
    wait(1000);
    writeln(creditsH);
    wait(1000);
    writeln(creditsI);
    wait(1000);
    writeln(creditsJ);
    wait(1000);
    writeln(creditsK);
    wait(1000);
    writeln(creditsL);
    wait(1000);
    end;

    procedure Messages;
    begin
    TypeSend(Message1);
    messagenum :=messagenum+1
    wait(TalkWait+Random(500))
    TypeSend(Message2);
    messagenum :=messagenum+1
    wait(TalkWait+Random(500))
    TypeSend(Message3);
    messagenum :=messagenum+1
    wait(TalkWait+Random(500))
    end;

    begin
    SetupSRL;
    ClearDebug
    Credits;
    ClearDebug
    writeln('You have sent ' + IntToStr(messagenum)+ ' messages!');
    FindNormalRandoms;
    repeat
    Messages;
    Wait(500+Random(100))
    FindNormalRandoms;
    Wait(200+Random(100))
    until(false)
    end.

    Well, in my script above, i have a progress report in it. But when i run the script, when it starts the progress report, it always says "you have sent 0 messages"

    why isn't it adding 1 to the messages sent each time a message is sent?

  2. #2
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Because the integer "messagenum" is 0?
    SCAR Code:
    writeln('You have sent ' + IntToStr(messagenum)+ ' messages!');
    FindNormalRandoms;
    repeat
    Messages;
    You only start adding 1 to the variable in the procedure Messages. Before that, the variables value is only 0.
    Try this as the main loop:
    SCAR Code:
    begin
      SetupSRL;
      ClearDebug
      Credits;
      FindNormalRandoms;
      repeat
        Messages;
        ClearDebug
        writeln('You have sent ' + IntToStr(messagenum)+ ' messages!'); //Moved the Proggy here
        Wait(500+Random(100))
        FindNormalRandoms;
        Wait(200+Random(100))
      until(false)
    end.
    Huehuehuehuehue

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with Progress Report
    By Richard in forum OSR Help
    Replies: 4
    Last Post: 01-04-2008, 06:48 PM
  2. Best progress report?
    By Dangerous Garden Tools in forum News and General
    Replies: 12
    Last Post: 10-05-2007, 04:14 AM
  3. progress report:(
    By macromacro123 in forum OSR Help
    Replies: 0
    Last Post: 08-25-2007, 05:41 PM
  4. help with Progress Report
    By codx1 in forum OSR Help
    Replies: 10
    Last Post: 05-31-2007, 04:38 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
  •