http://www.mychildplayhouses.com/geo...in-deluxe.html
Cracking this bitch.
Need some help with getting the array declaration of the LetterWheels part to actually run. (compiles fine)
SCAR Code:
program MagnetToyCracker;
{.Include SRL\SRL.SCAR}
{A E I O U - 0 points
B C F G L N R S T - 2 points
D H M P Y - 4 points
J W V X - 6 points
K Q Z - 8 points}
procedure Unknown;
var
LetterWheels: array[1..8] of array[0..9] of string;
EightLetteredWords, CurrentWord: string;
WordsFile, I, Count: LongInt;
begin
OpenFile(ScriptPath + 'EightLetteredWords.TXT', False);
ReadFileString(WordsFile, EightLetteredWords, FileSize(WordsFile));
CloseFile(WordsFile);
LetterWheels[1] := ['o', 'y', 'w', 'i', 'e', 'n', 'a', 's', 'u', 'x'];
LetterWheels[2] := ['u', 'd', 'i', 'b', 'e', 'h', 'o', 'c', 'a', 't'];
LetterWheels[3] := ['m', 'o', 'f', 'u', 'z', 'a', 'n', 'i', 'l', 'e'];
LetterWheels[4] := ['p', 'e', 'd', 'o', 'h', 'u', 's', 'i', 'r', 'a'];
LetterWheels[5] := ['e', 'n', 'k', 'a', 'f', 'b', 'o', 'l', 'i', 'r'];
LetterWheels[6] := ['i', 'd', 'w', 'a', 'v', 'j', 'e', 'r', 't', 'q'];
LetterWheels[7] := ['l', 'a', 'v', 'n', 't', 'w', 'e', 'p', 'g', 's'];
LetterWheels[8] := ['c', 'r', 'o', 'y', 'e', 'n', 't', 'm', 'g', 'u'];
I := -8;
repeat
I := I + 9;
CurrentWord := Copy(EightLetteredWords, I, 8);
WriteLn(CurrentWord);
//Wait(1); idk
Count := Count + 1;
until (CurrentWord = 'zyzzyvas');
WriteLn(IntToStr(Count) + ' words used.');
end;
begin
ClearDebug;
Unknown;
WriteLn('Took ' + LowerCase(TimeRunning) + '.');
end.
8 Lettered words.
http://74.125.155.132/search?q=cache...&ct=clnk&gl=us
Going to need to probably add 4 lettered words - 7 lettered words.
Any ideas?
EDIT
Problem solved
SCAR Code:
LetterWheels: array[1..8] of array[0..9] of string;
change to
SCAR Code:
LetterWheels: array[1..8] of array of string;
SCAR Code:
program MagnetToyCracker;
{.Include SRL\SRL.SCAR}
{A E I O U - 0 points
B C F G L N R S T - 2 points
D H M P Y - 4 points
J W V X - 6 points
K Q Z - 8 points}
procedure Unknown;
var
LetterWheels: array[1..8] of array of string;
EightLetteredWords, CurrentWord: string;
WordsFile, I, Count: LongInt;
begin
OpenFile(ScriptPath + 'EightLetteredWords.TXT', False);
ReadFileString(WordsFile, EightLetteredWords, FileSize(WordsFile));
CloseFile(WordsFile);
LetterWheels[1] := ['o', 'y', 'w', 'i', 'e', 'n', 'a', 's', 'u', 'x'];
LetterWheels[2] := ['u', 'd', 'i', 'b', 'e', 'h', 'o', 'c', 'a', 't'];
LetterWheels[3] := ['m', 'o', 'f', 'u', 'z', 'a', 'n', 'i', 'l', 'e'];
LetterWheels[4] := ['p', 'e', 'd', 'o', 'h', 'u', 's', 'i', 'r', 'a'];
LetterWheels[5] := ['e', 'n', 'k', 'a', 'f', 'b', 'o', 'l', 'i', 'r'];
LetterWheels[6] := ['i', 'd', 'w', 'a', 'v', 'j', 'e', 'r', 't', 'q'];
LetterWheels[7] := ['l', 'a', 'v', 'n', 't', 'w', 'e', 'p', 'g', 's'];
LetterWheels[8] := ['c', 'r', 'o', 'y', 'e', 'n', 't', 'm', 'g', 'u'];
I := -8;
repeat
I := I + 9;
CurrentWord := Copy(EightLetteredWords, I, 8);
WriteLn(CurrentWord);
//Wait(1); idk
Count := Count + 1;
until (CurrentWord = 'zyzzyvas');
WriteLn(IntToStr(Count) + ' words used.');
end;
begin
ClearDebug;
Unknown;
WriteLn('Took ' + LowerCase(TimeRunning) + '.');
end.