First of all, let me get something clear. This is not a script related to RuneScape! This script is for my science project. I want as many people as possible to run this script and give me feedback before 3:00 P.M. Pacific Time of Wednesday, February 28. Please have your feedback look like this:
Name (optional)
Age (required)
Gender (required)
Which set of numbers you failed on; 1st set (6 digits), 2nd set (9 digits), or 3rd set (12 digits). (required)
If you failed on one of the sets, please try to tell on which digit of which set you failed. (recommended)
Please, please, please be truthful! It will do me no good to have incorrect data for my science fair project! You may run the script twice and send the second result if you feel the first try was terrible. If you are concerned about privacy, you may private message me the information instead. So please, help me out and spend about one minute to gather some data for me. Thanks in advance. Script as follows (hopefully it works):
This is what the script should do: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 3 do Numbers[i] := Random(10); end; procedure GenerateNumbers3; var i: Integer; begin for i := 1 to 3 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(2000); end; procedure ShowNumbers2; var i: Integer; begin Cleardebug; for i := 1 to 3 do nmb := nmb + IntToStr(Numbers[i]); Writeln(Msg + nmb); Wait(4500) end; procedure ShowNumbers3; var i: Integer; begin Cleardebug; for i := 1 to 3 do nmb := nmb + IntToStr(Numbers[i]); Writeln(Msg + nmb); Wait(6000) end; procedure AskAnswer; var i: Integer; begin for i := 1 to 6 do Cleardebug; Wait(2000); 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(2000); end; procedure AskAnswer2; var i: Integer; begin for i := 1 to 3 do Cleardebug; Wait(2000); 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(2000); end; procedure AskAnswer3; var i: Integer; begin for i := 1 to 3 do Cleardebug; Wait(2000); 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(2000); end; begin GenerateNumbers; ShowNumbers; AskAnswer; GenerateNumbers2; ShowNumbers2; AskAnswer2; GenerateNumbers3; ShowNumbers3; AskAnswer3; end.
1. Give out a set of 6 digits in the debugging box.
2. Digits will disappear after 2 seconds.
3. A pop-up will appear asking for the user to input the previous numbers.
4. If answered correctly, will say you have entered correct numbers and continue on.
5. If answered incorrectly, will say you have entered incorrect numbers and continue on. (If you answered incorrectly, please restart script.)
6. Will repeat steps 1-5, but digits will increase to 9, then 12.
Lots of thanks to Freddy1990, JAD, and other people who helped me.


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















