Results 1 to 3 of 3

Thread: Something Weird With Arrays.

  1. #1
    Join Date
    Feb 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Something Weird With Arrays.

    Well, I took Freddy's sample script and basically just made it so that it should spit out 2 sets of 6 random digits, then ask you to reenter the numbers. However, when it reaches the 2nd set, it gives out 12 numbers instead of 6. I want this script to first give out 6, then 9, then 12, and finally 16 numbers. Of course, after each set of digits, I hope the script can ask for an input. Here is the script as follows:
    Code:
    program Memorization;
    
    var
      Numbers: array[1..6] of Integer;
      s, nmb: string;
    
    const
      Msg = 'Please remember these numbers: ';
    
    procedure GenerateNumbers;
    var
      i: Integer;
    begin
      for i := 1 to 6 do
        Numbers[i] := Random(10);
    end;
    
    procedure GenerateNumbers2;
    var
      i: Integer;
    begin
      for i := 1 to 6 do
        Numbers[i] := Random(10);
    end;
    
    procedure ShowNumbers;
    var
      i: Integer;
    begin
      Cleardebug;
      for i := 1 to 6 do
        nmb := nmb + IntToStr(Numbers[i]);
      WriteLn(Msg + nmb);
      Wait(3000);
    end;
    
    procedure ShowNumbers2;
    var
       i: Integer;
    begin
       Cleardebug;
       for i := 1 to 6 do
         nmb := nmb + IntToStr(Numbers[i]);
       Writeln(Msg + nmb);
       Wait(3000)
    end;
    
    procedure AskAnswer;
    var
      i: Integer;
    begin
      for i := 1 to 6 do
        Cleardebug;
      Wait(3000);
      s := ReadLn('Enter Previous Number Here:');
      if nmb = s then
        Writeln('You Have Entered The Correct Answer!')
      else
        Writeln('You Have Entered An Incorrect Answer!');
      Wait(3000);
    end;
    
    procedure AskAnswer2;
    var
      i: Integer;
    begin
      for i := 1 to 6 do
        Cleardebug;
      Wait(3000);
      s := ReadLn('Enter Previous Number Here:');
      if nmb = s then
        Writeln('You Have Entered The Correct Answer!')
      else
        Writeln('You Have Entered the Incorrect Answer!');
      Wait(3000)
    end;
    
    begin
      GenerateNumbers;
      ShowNumbers;
      AskAnswer;
      GenerateNumbers2;
      ShowNumbers2;
      AskAnswer2;
    end.
    Please help, thank you.
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your signature!

  2. #2
    Join Date
    Jan 2007
    Posts
    834
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    <off topic> if this is a question thing, make it in delphi(i think thats what its called)Like when you open it pops up in the setup screen or something like secets merchanter, it justs pops of in the setup screen.So people wouldnt cheat.<off topic>

  3. #3
    Join Date
    Feb 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nevermind, got it.
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your signature!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Arrays!
    By Santa_Clause in forum OSR Intermediate Scripting Tutorials
    Replies: 5
    Last Post: 06-12-2008, 05:58 AM
  2. Arrays, stuck on arrays
    By Camaro' in forum OSR Help
    Replies: 1
    Last Post: 03-08-2008, 02:02 AM
  3. Help with Arrays
    By kooldude in forum OSR Help
    Replies: 16
    Last Post: 06-15-2007, 05:36 AM

Posting Permissions

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