home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
five.zip
/
INSTRUCT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-03-14
|
5KB
|
117 lines
Const Hold_time = 4000;
begin
window(36,2,78,24);
clrscr;
window(37,2,78,24);
clrscr;
writeln;
writeln(' Instructions');
writeln;
writeln('The game of 5000 is played by one or');
writeln('more players, using a cup of six dice.');
writeln('Each Player rolls the dice to increase');
writeln('his score. When any player scores over');
writeln('5,000 Points, the remaining players');
writeln('get one more chance to get high score.');
writeln;
writeln('Each time you get the cup you must roll');
writeln('the dice and pull out some dice that');
writeln('score. You may keep rolling the dice');
writeln('until you no longer can pull out a score.');
writeln('HOWEVER--if you can''t pull a score, you');
writeln('lose all points you''ve accumulated this');
writeln('turn. This is called a scratch.');
writeln;
writeln('If you use all six dice in forming a');
writeln('score, you may pick up all dice and');
writeln('continue rolling.');
writeln;
delay(Hold_time);
writeln('To begin scoring points, you must have');
delay(Hold_time);
writeln('500 points or 50 points more than the');
delay(Hold_time);
writeln('player before you. After you''ve first');
delay(Hold_time);
writeln('scored, you only need 350 points, or');
delay(Hold_time);
writeln('50 points more than the player before.');
delay(Hold_time);
writeln;
writeln('The first thing the program asks is the');
delay(Hold_time);
writeln('number of players. You must enter a');
delay(Hold_time);
writeln('number between 1 and 15. The computer');
delay(Hold_time);
writeln('can play any number of times in each');
delay(Hold_time);
writeln('round. The computer can have three');
delay(Hold_time);
writeln('different names, depending on strategy.');
delay(Hold_time);
writeln('Each name begins with "Comp" and a digit');
delay(Hold_time);
writeln('between 1 and 3. The name may have any');
delay(Hold_time);
writeln('following identifying characters that');
delay(Hold_time);
writeln('you wish.');
writeln;
delay(Hold_time);
writeln('After you''ve entered all of the players');
delay(Hold_time);
writeln('names, all that must be done is to play');
delay(Hold_time);
writeln('the dice. To pull dice, move the cursor');
delay(Hold_time);
writeln('"^", with the left and right arrow');
delay(Hold_time);
writeln('keys, until it points to a die that''s');
delay(Hold_time);
writeln('to be pulled. The space bar marks and');
delay(Hold_time);
writeln('un-marks the dice. When all of the dice');
delay(Hold_time);
writeln('that you wish to pull are marked, press');
delay(Hold_time);
writeln('the "RETURN" key. STUDY CAREFULLY, when');
delay(Hold_time);
writeln('you press the return key, there''s no');
delay(Hold_time);
writeln('turning back.');
delay(Hold_time);
writeln;
delay(Hold_time);
writeln('The scoring of the dice is:');
delay(Hold_time);
writeln;
delay(Hold_time);
writeln('STRAIGHT 1,500');
delay(Hold_time);
writeln('THREE PAIRS 500');
delay(Hold_time);
writeln('Three Aces 1,000');
delay(Hold_time);
writeln('Aces 100');
delay(Hold_time);
writeln('Fives 50');
delay(Hold_time);
writeln('Three of a kind 300 X face Value');
delay(Hold_time);
delay(Hold_time);
writeln;
delay(Hold_time);
writeln('Losing without any score on the board');
delay(Hold_time);
writeln('will cost you double. The stakes are');
delay(Hold_time);
writeln('a QUARTER a GAME and a DIME for EACH');
delay(Hold_time);
writeln('SCRATCH.');
window(2,2,34,24);
end;