Results 1 to 5 of 5

Thread: Most amazing funny script V [1].0

  1. #1
    Join Date
    Dec 2007
    Location
    Canada
    Posts
    187
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Most amazing funny script V [1].0

    ok so im working on a script that does a lot of cool things im not done it yet but atm it flips a coin, finds out your yearly income and im working on the dice roller version [1].0 has the dice roller functions and stuff in the script and is included in the setup and proggy but it does not work. The other parts in the script work but if anybody could please try my script and post there reports and please post on here how to make my dice roller work it would be greatly appreciated. I will post the script below

    ~Insanomano~

    SCAR Code:
    program AmazingScript;
    {                                        AMAZING SCRIPT
                                                 V [1].0

                        Author: Insanomano.
                        Version: [1].0.
                        Description: Tells you some stuff when you imput the correct information.
                        Setup: (lines 19-25), click run.
                       
                        DICE ROLLER DOES NOT WORK IN VERSION [1].0
    }

    var
    HeadsNumber, Tails, Heads, TailsNumber, FlipCount: integer; //coin flip
    One, Two, Three, Four, Five, Six, RollCount: integer; //dice roll
    YearsIncome : integer; //income calculator

    const
    {COIN FLIP}
    FlipAmount= 1000; // How many time you want to flip a coin.
    {DICE ROLL}
    RollAmount= 100;
    {YEARLY INCOME CALCULATOR}
    HourlyWage= 10; // Put how much money you make hourly at your job (WHOLE NUMBERS ONLY, ROUND UP).
    HoursWeekly= 40; // Put how many hours a week you work.

    Procedure Intro;
    var
    qwerty: integer;

    begin
      ClearDebug;
      Writeln('WELCOME TO THE WORLDS MOST AMAZING SCRIPT');
      wait(2000);
      ClearDebug;
      Writeln('IN JUST A FEW MOMENTS IM GOING TO HAVE ALL YOUR ANSWERS FOR YOU !!!!');
      wait(2000);
      ClearDebug;
      repeat
       Writeln('PLEASE WAIT .');
       wait(300);
       ClearDebug;
       Writeln('PLEASE WAIT ..');
       wait(300);
       ClearDebug;
       Writeln('PLEASE WAIT ...');
       wait(300);
       ClearDebug;
       QWERTY := qwerty + 1;
      until(QWERTY >= 4);
    end;

    function Flip : integer;
    begin
      case Random(2) of
        0: Result := 0;
        1: Result := 1;
      end;
      FlipCount := FlipCount+(1);
    end;

    function Roll : integer;
    begin
      case Random(6) of
        0: Result := 0;
        1: Result := 1;
        2: Result := 2;
        3: Result := 3;
        4: Result := 4;
        5: Result := 5;
      end;
      RollCount := RollCount+(1);
    end;

    procedure WhatWasCoin;
    begin
      if Flip = 0 then
        TailsNumber := TailsNumber+(1)
      else
        HeadsNumber := Headsnumber+(1);
    end;

    procedure WhatWasDice;
    begin
      if Roll = 0 then
        One := One+(1)
      else if Roll = 1 then
        Two := Two+(1)
      else if Roll = 2 then
        Three := Three+(1)
      else if Roll = 3 then
        Four := Four+(1)
      else if Roll = 4 then
        Five := Five+(1)
      else if Roll = 5 then
        Six := Six+(1)
    end;

    Procedure IncomeCalculator;
    begin
      YearsIncome := (HourlyWage) * (HoursWeekly) * 52 * (1);
    end;

    Procedure TheWholeAmazingLoop;
    begin
      IncomeCalculator;
      repeat
        WhatWasCoin;
      until (FlipCount = (FlipAmount));
       repeat
         WhatWasDice;
       until(RollCount = (RollAmount));
    end;
     
    Procedure EndingItAll;
    Begin
      Writeln('==========================================');
      Writeln('======= Worlds Most amazing script =======');
      writeln('==========================================');
      Writeln('======== YEARLY INCOME CALCULATOR ========');
      writeln('==========================================');
      Writeln('== Your yearly income was $' + IntToStr(YearsIncome) + '.');
      writeln('==========================================');
      Writeln('=============== COIN FLIP ================')
      writeln('==========================================');
      Writeln('== Flip  amount was ' + IntToStr(FlipAmount) + '.');
      Writeln('== Tails amount was ' + IntToStr(TailsNumber) + '.');
      Writeln('== Heads amount was ' + IntToStr(HeadsNumber) + '.');
      writeln('==========================================');
      writeln('=============== DICE ROLL ================');
      writeln('==========================================');
      Writeln('== Rolled 1 |' + IntToStr(One) + '| times');
      Writeln('== Rolled 2 |' + IntToStr(Two) + '| times');
      Writeln('== Rolled 3 |' + IntToStr(Three) + '| times');
      Writeln('== Rolled 4 |' + IntToStr(Four) + '| times');
      Writeln('== Rolled 5 |' + IntToStr(Five) + '| times');
      Writeln('== Rolled 6 |' + IntToStr(Six) + '| times');
      writeln('==========================================');
    end;

    Begin
      Intro;
      TheWholeAmazingLoop;
      EndingItAll;
    end.

    EDIT: Thx GoF
    I'm baaaack

  2. #2
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Not that bad x) Keep it up.

  3. #3
    Join Date
    Mar 2008
    Location
    The Netherlands
    Posts
    1,395
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    program AmazingScript;
    {                                        AMAZING SCRIPT
                                                 V [1].0

                        Author: Insanomano.
                        Version: [1].0.
                        Description: Tells you some stuff when you imput the correct information.
                        Setup: (lines 19-25), click run.

                        DICE ROLLER DOES NOT WORK IN VERSION [1].0
    }

    var
    HeadsNumber, Tails, Heads, TailsNumber, FlipCount: integer; //coin flip
    One, Two, Three, Four, Five, Six, RollCount: integer; //dice roll
    YearsIncome : integer; //income calculator

    const
    {COIN FLIP}
    FlipAmount= 1000; // How many time you want to flip a coin.
    {DICE ROLL}
    RollAmount= 1000;
    {YEARLY INCOME CALCULATOR}
    HourlyWage= 25; // Put how much money you make hourly at your job (WHOLE NUMBERS ONLY, ROUND UP).
    HoursWeekly= 40; // Put how many hours a week you work.

    Procedure Intro;
    var
    qwerty: integer;

    begin
      ClearDebug;
      Writeln('WELCOME TO THE WORLDS MOST AMAZING SCRIPT');
      wait(2000);
      ClearDebug;
      Writeln('IN JUST A FEW MOMENTS IM GOING TO HAVE ALL YOUR ANSWERS FOR YOU !!!!');
      wait(2000);
      ClearDebug;
      repeat
       Writeln('PLEASE WAIT .');
       wait(300);
       ClearDebug;
       Writeln('PLEASE WAIT ..');
       wait(300);
       ClearDebug;
       Writeln('PLEASE WAIT ...');
       wait(300);
       ClearDebug;
       QWERTY := qwerty + 1;
      until(QWERTY >= 4);
    end;

    function Flip : integer;
    begin
      case Random(2) of
        0: Result := 0;
        1: Result := 1;
      end;
      FlipCount := FlipCount+(1);
    end;

    function Roll : integer;
    begin
      case Random(6) of
        0: Result := 0;
        1: Result := 1;
        2: Result := 2;
        3: Result := 3;
        4: Result := 4;
        5: Result := 5;
      end;
      RollCount := RollCount+(1);
    end;

    procedure WhatWasCoin;
    begin
      if Flip = 0 then
        TailsNumber := TailsNumber+(1)
      else
        HeadsNumber := Headsnumber+(1);
    end;

    procedure WhatWasDice;
    begin
      if Roll = 0 then
        One := One+(1)
      else if Roll = 1 then
        Two := Two+(1)
      else if Roll = 2 then
        Three := Three+(1)
      else if Roll = 3 then
        Four := Four+(1)
      else if Roll = 4 then
        Five := Five+(1)
      else if Roll = 5 then
        Six := Six+(1)
    end;

    Procedure IncomeCalculator;
    begin
      YearsIncome := (HourlyWage) * (HoursWeekly) * 52 * (1);
    end;

    Procedure TheWholeAmazingLoop;
    begin
      IncomeCalculator;
      repeat
        WhatWasCoin;
      until (FlipCount = (FlipAmount));
       repeat
         WhatWasDice;
       until(RollCount = (RollAmount));
    end;

    Procedure EndingItAll;
    Begin
      Writeln('==========================================');
      Writeln('======= Worlds Most amazing script =======');
      writeln('==========================================');
      Writeln('======== YEARLY INCOME CALCULATOR ========');
      writeln('==========================================');
      Writeln('== Your yearly income was $' + IntToStr(YearsIncome) + '.');
      writeln('==========================================');
      Writeln('=============== COIN FLIP ================')
      writeln('==========================================');
      Writeln('== Flip  amount was ' + IntToStr(FlipAmount) + '.');
      Writeln('== Tails amount was ' + IntToStr(TailsNumber) + '.');
      Writeln('== Heads amount was ' + IntToStr(HeadsNumber) + '.');
      writeln('==========================================');
      writeln('=============== DICE ROLL ================');
      writeln('==========================================');
      Writeln('== Rolled 1 |' + IntToStr(One) + '| times');
      Writeln('== Rolled 2 |' + IntToStr(Two) + '| times');
      Writeln('== Rolled 3 |' + IntToStr(Three) + '| times');
      Writeln('== Rolled 4 |' + IntToStr(Four) + '| times');
      Writeln('== Rolled 5 |' + IntToStr(Five) + '| times');
      Writeln('== Rolled 6 |' + IntToStr(Six) + '| times');
      writeln('==========================================');
    end;

    begin
    TheWholeAmazingLoop;
    EndingItAll;
    end.

    Now it prints teh stuff out


  4. #4
    Join Date
    Dec 2007
    Location
    Canada
    Posts
    187
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm well i currently cant test your version but if this is the only part that you changed

    THIS:
    SCAR Code:
    function Roll : integer;
    begin
      case Random(6) of
        0: Result := 0;
        1: Result := 1;
        2: Result := 2;
        3: Result := 3;
        4: Result := 4;
        5: Result := 5;
      end;
    end;

    TO THIS:
    SCAR Code:
    function Roll : integer;
    begin
      case Random(6) of
        0: Result := 0;
        1: Result := 1;
        2: Result := 2;
        3: Result := 3;
        4: Result := 4;
        5: Result := 5;
      end;
      RollCount := RollCount+(1); //This is added
    end;

    I had tried that before and it just got really messed up it didnt work properly

    example: I would set it to roll 1000 times then in the progress report all the numbers rolled wouldnt add up to 1000

    Example:

    What it should look like after 1000 rolls
    SCAR Code:
    ==========================================
    =============== DICE ROLL ================
    ==========================================
    == Rolled 1 |200| times
    == Rolled 2 |150| times
    == Rolled 3 |150| times
    == Rolled 4 |200| times                                  // THEY ALL ADD UP TO 1000
    == Rolled 5 |25| times
    == Rolled 6 |275| times
    ==========================================

    what it does look like:
    SCAR Code:
    ==========================================
    =============== DICE ROLL ================
    ==========================================
    == Rolled 1 |45| times
    == Rolled 2 |67| times
    == Rolled 3 |88| times
    == Rolled 4 |115| times                                // THEY DONT ALL ADD UP TO 1000
    == Rolled 5 |29| times
    == Rolled 6 |46| times
    ==========================================

    understand what i mean?
    I'm baaaack

  5. #5
    Join Date
    Dec 2007
    Location
    Bonney Lake
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thats is a funny script lol!
    Brent8900

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Wow this is amazing XD
    By Dark_Sniper in forum News and General
    Replies: 35
    Last Post: 05-29-2007, 03:02 PM
  2. The most amazing story ever.
    By ManMan in forum Blogs and Writing
    Replies: 4
    Last Post: 05-06-2007, 08:22 AM
  3. The most amazing poem ever!
    By ManMan in forum Blogs and Writing
    Replies: 1
    Last Post: 04-10-2007, 12:19 AM
  4. Amazing Report?
    By pwnaz0r in forum News and General
    Replies: 8
    Last Post: 02-13-2007, 09:06 PM
  5. hi help needed plz for funny script
    By the scar noob in forum OSR Help
    Replies: 4
    Last Post: 01-25-2007, 08:52 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
  •