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:
Please help, thank you.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.


If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your signature!
Reply With Quote

