API tools faq
paste
Advertisement
WadeRollins2710

[Pascal] Paper Rock Scissor Code Remastered

WadeRollins2710
Sep 24th, 2016
137
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 30.27 KB | None | 0 0
raw download clone embed print report
  1. {You need a file named OPTI.TXT contain 3 number in the same line }
  2. {Any report pls send to my email pewdiepie@gmail.com}
  3. {This was made by Tran Viet Anh AKA Wade Rollins}
  4. Program A_very_boring_game;
  5. Uses crt;
  6. Var
  7.         A, B, C, IC, Di, TC1, TC2, TC3, Name: String;
  8.         i, n, s, e, f: Integer;
  9.         x, y:Integer;
  10.         m, v, o, m1, m2, m3, n1, n2, n3, o1, o2, o3, ro, rou: Integer;
  11.         t: text;
  12.  
  13. Function Up(m: String): String;
  14.         Var
  15.                 i: Integer;
  16.         Begin
  17.                 For i:=1 to length(m) do
  18.                 m[i]:=Upcase(m[i]);
  19.                 Up:=m;
  20.         End;
  21.  
  22. Procedure Enter_Name;
  23.         Begin
  24.                 TextColor(s);
  25.                 Write('Enter your name: '); TextColor(e); Readln(Name);
  26.         End;
  27.  
  28. Procedure Ask;
  29.         Begin
  30.                 TextColor(s);
  31.                 clrscr;
  32.                 Write('Hey!!!'); Delay(750); TextColor(e); Writeln(' ',Name,'!!!');
  33.                 TextColor(s);
  34.                 Writeln('Wanna play PAPER ROCK SCRISSOR???'); Delay(750);
  35.                 Write('Answer(Yes/No): '); TextColor(e); Readln(A); TextColor(s);
  36.         End;
  37.  
  38. Procedure Denied;
  39.         Begin
  40.                 Writeln('God damn it!!!'); Delay(1000);
  41.                 Writeln('Then get outta here!!!'); Delay(1000);
  42.                 Halt;
  43.         End;
  44.  
  45. Procedure Option;
  46.         Begin
  47.                 clrscr; Delay(1000);
  48.                 Write('Welcome to '); TextColor(e); Write('option'); TextColor(s);
  49.                 Writeln('!'); Delay(1000);
  50.                 Writeln('This is where you change some function of the game!'); Delay(1000);
  51.                 Writeln('Just type what you need to change then press Enter ok???'); Delay(1000);
  52.                 Write('1.Normal Text Color(Instant: '); TextColor(s); Write(TC1);
  53.                 TextColor(s); Write('): '); Readln(TC1);
  54.                 Write('2.Important Text Color(Instant: '); TextColor(e); Write(TC2);
  55.                 TextColor(s); Write('): '); Readln(TC2);
  56.                 Write('3.Number Text Color(Instant: '); TextColor(f); Write(TC3);
  57.                 TextColor(s); Write('): '); Readln(TC3);
  58.                 Write('4.Difficulties: (Instant: '); TextColor(e); Write(Di);
  59.                 TextColor(s); Write('): '); Readln(Di);
  60.                 {**************************************************}
  61.                 If (TC1='Blue') or (TC1='blue') then s:=1;
  62.                 If (TC1='Green') or (TC1='green') then s:=2;
  63.                 If (TC1='Cyan') or (TC1='cyan') then s:=3;
  64.                 If (TC1='Red') or (TC1='red') then s:=4;
  65.                 If (TC1='Purple') or (TC1='purple') then s:=5;
  66.                 If (TC1='Brown') or (TC1='brown') then s:=6;
  67.                 If (TC1='Gray') or (TC1='gray') then s:=7;
  68.                 If (TC1='Pink') or (TC1='pink') then s:=12;
  69.                 If (TC1='Yellow') or (TC1='yellow') then s:=14;
  70.                 If (TC1='White') or (TC1='white') then s:=15;
  71.                 {*******************************************}
  72.                 If (TC2='Blue') or (TC2='blue') then e:=1;
  73.                 If (TC2='Green') or (TC2='green') then e:=2;
  74.                 If (TC2='Cyan') or (TC2='cyan') then e:=3;
  75.                 If (TC2='Red') or (TC2='red') then e:=4;
  76.                 If (TC2='Purple') or (TC2='purple') then e:=5;
  77.                 If (TC2='Brown') or (TC2='brown') then e:=6;
  78.                 If (TC2='Gray') or (TC2='gray') then e:=7;
  79.                 If (TC2='Pink') or (TC2='pink') then e:=12;
  80.                 If (TC2='Yellow') or (TC2='yellow') then e:=14;
  81.                 If (TC2='White') or (TC2='white') then e:=15;
  82.                 {*******************************************}
  83.                 If (TC3='Blue') or (TC3='blue') then f:=1;
  84.                 If (TC3='Green') or (TC3='green') then f:=2;
  85.                 If (TC3='Cyan') or (TC3='cyan') then f:=3;
  86.                 If (TC3='Red') or (TC3='red') then f:=4;
  87.                 If (TC3='Purple') or (TC3='purple') then f:=5;
  88.                 If (TC3='Brown') or (TC3='brown') then f:=6;
  89.                 If (TC3='Gray') or (TC3='gray') then f:=7;
  90.                 If (TC3='Pink') or (TC3='pink') then f:=12;
  91.                 If (TC3='Yellow') or (TC3='yellow') then f:=14;
  92.                 If (TC3='White') or (TC3='white') then f:=15;
  93.                 TextColor(s); Write('Done!!!!!'); Delay(1000); Writeln(' Lets play!');
  94.                 Assign(t,'OPTI.TXT'); Rewrite(t);
  95.                 Write(t,s,' ',e,' ',f);
  96.                 Close(t);
  97.         End;
  98.  
  99. Procedure Allowed;
  100.         Begin
  101.                 Writeln('OK!!!'); Delay(1000);
  102.                 Writeln('Lets play!'); Delay(1000);
  103.         End;
  104.  
  105. Procedure Introduction;
  106.         Begin
  107.                 TextColor(e);
  108.                 Writeln('Paper beats Rocks'); Delay(1000);
  109.                 Writeln('Rocks beats Scrissor'); Delay(1000);
  110.                 Writeln('Scrissor beats Paper'); Delay(1000);
  111.                 TextColor(s);
  112.                 Write('You can choose '); TextColor(e); Write('Rock/Paper/Scrissor ');
  113.                 TextColor(s); Write('or '); TextColor(e); Writeln('R/P/S');
  114.                 TextColor(s); Write('Just type "');TextColor(e);
  115.                 Write('Stop'); TextColor(s);
  116.                 Writeln('" when you want to stop while playing ok???'); Delay(1000);
  117.         End;
  118.  
  119. Procedure Choose;
  120.         Begin
  121.                 Write('If you want to go to the option now, type "'); TextColor(e);
  122.                 Write('option'); TextColor(s); Writeln('" then Enter');
  123.                 Write('Or you can type "'); TextColor(e); Write('play'); TextColor(s);
  124.                 Writeln('" and press Enter to play right now!');
  125.         End;
  126.  
  127. Procedure Round;
  128.         Begin
  129.                 clrscr;
  130.                 Delay(500);
  131.                 Write('choose round(<50): '); Readln(ro);
  132.                 While 50<ro do
  133.                         Begin
  134.                                 Write('choose again!!!: '); Readln(ro);
  135.                         End;
  136.                 clrscr; Delay(1000);
  137.                 Randomize;
  138.                 Write('Remember, you only have '); TextColor(e); Write(ro); TextColor(s);
  139.                 Writeln(' round to battle! Be careful!');
  140.                 rou:=1; x:=0; y:=0; N:=5; m:=0; v:=0; o:=0; m1:=0;
  141.                 m2:=0; m3:=0; n1:=0; n2:=0; n3:=0; o1:=0; o2:=0; o3:=0;
  142.                 While (rou<=ro) do
  143.                         Begin
  144.                                 Write('You choose: '); TextColor(e); Readln(A); TextColor(s);
  145.                                 i:=Random(N);
  146.                                 Case i of
  147.                                         0: B:='Rock';
  148.                                         1: B:='Paper';
  149.                                         2: B:='Scrissor';
  150.                                 End;
  151.                                 If ((Up(A)='ROCK') or (Up(A)='R')) and (B='Rock') then
  152.                                         Begin
  153.                                                 m:=m+1;
  154.                                                 Write('I choose '); TextColor(e); Write(B);
  155.                                                 TextColor(s); Writeln(', Its a tie!!!');
  156.                                                 Delay(750);  m1:=m1+1;
  157.                                                 Writeln(x,'-',y,'!!!');  rou:=rou+1;
  158.                                                 If ro-rou<0 then
  159.                                                         Begin
  160.                                                                 TextColor(e);
  161.                                                                 Writeln('Battle over!');
  162.                                                                 TextColor(s);
  163.                                                         End
  164.                                                 else
  165.                                                         Writeln(ro-rou+1,' round left!');
  166.                                         End;
  167.                                 If ((Up(A)='ROCK') or (Up(A)='R')) and (B='Paper') then
  168.                                         Begin
  169.                                                 m:=m+1;
  170.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  171.                                                 Writeln(', I win!!!'); y:=y+1;
  172.                                                 Delay(750);   m3:=m3+1;
  173.                                                 Writeln(x,'-',y,'!!!'); rou:=rou+1;
  174.                                                 If ro-rou<0 then
  175.                                                         Begin
  176.                                                                 TextColor(e);
  177.                                                                 Writeln('Battle over!');
  178.                                                                 TextColor(s);
  179.                                                         End
  180.                                                 else
  181.                                                         Writeln(ro-rou+1,' round left!');
  182.                                         End;
  183.                                 If ((Up(A)='ROCK') or (Up(A)='R')) and (B='Scrissor') then
  184.                                         Begin
  185.                                                 m:=m+1;
  186.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  187.                                                 Writeln(', You win!!!'); x:=x+1;
  188.                                                 Delay(750);    m2:=m2+1;
  189.                                                 Writeln(x,'-',y,'!!!'); rou:=rou+1;
  190.                                                 If ro-rou<0 then
  191.                                                         Begin
  192.                                                                 TextColor(e);
  193.                                                                 Writeln('Battle over!');
  194.                                                                 TextColor(s);
  195.                                                         End
  196.                                                 else
  197.                                                         Writeln(ro-rou+1,' round left!');
  198.                                         End;
  199.                                 If ((Up(A)='PAPER') or (Up(A)='P')) and (B='Paper') then
  200.                                         Begin
  201.                                                 v:=v+1;
  202.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  203.                                                 Writeln(', Its a tie!!!');
  204.                                                 Delay(750);  n1:=n1+1;
  205.                                                 Writeln(x,'-',y,'!!!'); rou:=rou+1;
  206.                                                 If ro-rou<0 then
  207.                                                         Begin
  208.                                                                 TextColor(e);
  209.                                                                 Writeln('Battle over!');
  210.                                                                 TextColor(s);
  211.                                                         End
  212.                                                 else
  213.                                                         Writeln(ro-rou+1,' round left!');
  214.                                         End;
  215.                                 If ((Up(A)='PAPER') or (Up(A)='P')) and (B='Scrissor') then
  216.                                         Begin
  217.                                                 v:=v+1;
  218.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  219.                                                 Writeln(', I win!!!'); y:=y+1;
  220.                                                 Delay(750);   n3:=n3+1;
  221.                                                 Writeln(x,'-',y,'!!!');  rou:=rou+1;
  222.                                                 If ro-rou<0 then
  223.                                                         Begin
  224.                                                                 TextColor(e);
  225.                                                                 Writeln('Battle over!');
  226.                                                                 TextColor(s);
  227.                                                         End
  228.                                                 else
  229.                                                 Writeln(ro-rou+1,' round left!');
  230.                                         End;
  231.                                 If ((Up(A)='PAPER') or (Up(A)='P')) and (B='Rock') then
  232.                                         Begin
  233.                                                 v:=v+1;
  234.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  235.                                                 Writeln(', You win!!!'); x:=x+1;
  236.                                                 Delay(750);    n2:=n2+1;
  237.                                                 Writeln(x,'-',y,'!!!');  rou:=rou+1;
  238.                                                 If ro-rou<0 then
  239.                                                         Begin
  240.                                                                 TextColor(e);
  241.                                                                 Writeln('Battle over!');
  242.                                                                 TextColor(s);
  243.                                                         End
  244.                                                 else
  245.                                                         Writeln(ro-rou+1,' round left!');
  246.                                         End;
  247.                                 If ((Up(A)='SCRISSOR') or (Up(A)='S')) and (B='Scrissor') then
  248.                                         Begin
  249.                                                 o:=o+1;
  250.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  251.                                                 Writeln(', Its a tie!!!');
  252.                                                 Delay(750);      o1:=o1+1;
  253.                                                 Writeln(x,'-',y,'!!!');  rou:=rou+1;
  254.                                                 If ro-rou<0 then
  255.                                                         Begin
  256.                                                                 TextColor(e);
  257.                                                                 Writeln('Battle over!');
  258.                                                                 TextColor(s);
  259.                                                         End
  260.                                                 else
  261.                                                         Writeln(ro-rou,' round left!');
  262.                                         End;
  263.                                 If ((Up(A)='SCRISSOR') or (Up(A)='S')) and (B='Rock') then
  264.                                         Begin
  265.                                                 o:=o+1;
  266.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  267.                                                 Writeln(', I win!!!'); y:=y+1;
  268.                                                 Delay(750);      o3:=o3+1;
  269.                                                 Writeln(x,'-',y,'!!!'); rou:=rou+1;
  270.                                                 If ro-rou<0 then
  271.                                                         Begin
  272.                                                                 TextColor(e);
  273.                                                                 Writeln('Battle over!');
  274.                                                                 TextColor(s);
  275.                                                         End
  276.                                                 else
  277.                                                         Writeln(ro-rou,' round left!');
  278.                                         End;
  279.                                 If ((Up(A)='SCRISSOR') or (Up(A)='S')) and (B='Paper') then
  280.                                         Begin
  281.                                                 o:=o+1;
  282.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  283.                                                 Writeln(', You win!!!'); x:=x+1;
  284.                                                 Delay(750);       o2:=o2+1;
  285.                                                 Writeln(x,'-',y,'!!!');  rou:=rou+1;
  286.                                                 If ro-rou<0 then
  287.                                                         Begin
  288.                                                                 TextColor(e);
  289.                                                                 Writeln('Battle over!');
  290.                                                                 TextColor(s);
  291.                                                         End
  292.                                                 else
  293.                                                         Writeln(ro-rou,' round left!');
  294.                                         End;
  295.                         End;
  296.                 Write('Ok!!!'); Delay(1000);
  297.                 Writeln(' Its so fun while playing with you!');
  298.                 Delay(1000);
  299.                 Writeln('The final result is ',x,'-',y,'!!!');
  300.                 If x>y then
  301.                         Begin
  302.                                 Writeln('You won the whole match!');
  303.                                 Delay(1000); Writeln('Congratulation!');
  304.                         End;
  305.                 If x<y then
  306.                         Begin
  307.                                 Writeln('I win the whole match!');
  308.                                 Delay(1000); Writeln('Better luck next time fellas!');
  309.                         End;
  310.                 If x=y then
  311.                         Begin
  312.                                 Writeln('Its a tie!');
  313.                                 Delay(1000); Writeln('I will beat you at the next time LOL');
  314.                         End;
  315.                 Write('If you want to see the result of the match, type "');
  316.                 TextColor(e); Write('Result'); TextColor(s);Writeln('" then Enter');
  317.                 Write('If you want to exit now, type "');
  318.                 TextColor(e); Write('skip');TextColor(s); Writeln('" then Enter');
  319.                 TextColor(e); Readln(A); TextColor(s);
  320.                 If Up(A)='RESULT' then
  321.                         Begin
  322.                                 TextColor(e); Writeln(x,'-',y); TextColor(s);
  323.                                 Writeln('In the match, you choose: ');
  324.                                 Write('Rock: ');TextColor(f);Write(m); TextColor(s);
  325.                                 Write(' time(s); win: '); TextColor(f); Write(m2); TextColor(s);
  326.                                 Write('; tie: ');TextColor(f); Write(m1); TextColor(s); Write('; lose: ');
  327.                                 TextColor(f); Writeln(m3); TextColor(s);
  328.                                 Write('Scrissor: '); TextColor(f); Write(o); TextColor(s);
  329.                                 Write(' time(s); win: '); TextColor(f); Write(o2); TextColor(s);
  330.                                 Write('; tie: '); TextColor(f); Write(o1); TextColor(s);
  331.                                 Write('; lose: '); TextColor(f); Writeln(o3); TextColor(s);
  332.                                 Write('Paper: '); TextColor(f); Write(n); TextColor(s);
  333.                                 Write(' time(s); win: '); TextColor(f); Write(n2); TextColor(s);
  334.                                 Write('; tie: ');TextColor(f); Write(n1); TextColor(s);
  335.                                 Write('; lose: '); TextColor(f); Writeln(n3); TextColor(s);
  336.                                 Write('Press enter...'); Readln;
  337.                         End;
  338.                 Writeln('Press any key to exit!'); Repeat Until KeyPressed;
  339.         End;
  340.  
  341. Procedure Infinity;
  342.         Begin
  343.                 clrscr;
  344.                 Delay(500);
  345.                 Randomize;
  346.                 Write('Remember, type "'); TextColor(e); Write('Stop'); TextColor(s);
  347.                 Writeln('" when you want to stop playing');
  348.                 C:='Continue'; x:=0; y:=0; N:=3; m:=0; v:=0; o:=0; m1:=0;
  349.                 m2:=0; m3:=0; n1:=0; n2:=0; n3:=0; o1:=0; o2:=0; o3:=0;
  350.                 While (C<>'Stop') and (C<>'stop') do
  351.                         Begin
  352.                                 Write('You choose: '); TextColor(e); Readln(A); TextColor(s);
  353.                                 i:=Random(N);
  354.                                 Case i of
  355.                                         0: B:='Rock';
  356.                                         1: B:='Paper';
  357.                                         2: B:='Scrissor';
  358.                                 End;
  359.                                 If ((Up(A)='ROCK') or (Up(A)='R')) and (B='Rock') then
  360.                                         Begin
  361.                                                 m:=m+1;
  362.                                                 Write('I choose '); TextColor(e); Write(B);
  363.                                                 TextColor(s); Writeln(', Its a tie!!!');
  364.                                                 Delay(750);  m1:=m1+1;
  365.                                                 Writeln(x,'-',y,'!!!');
  366.                                         End;
  367.                                 If ((Up(A)='ROCK') or (Up(A)='R')) and (B='Paper') then
  368.                                         Begin
  369.                                                 m:=m+1;
  370.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  371.                                                 Writeln(', I win!!!'); y:=y+1;
  372.                                                 Delay(750);   m3:=m3+1;
  373.                                                 Writeln(x,'-',y,'!!!');
  374.                                         End;
  375.                                 If ((Up(A)='ROCK') or (Up(A)='R')) and (B='Scrissor') then
  376.                                         Begin
  377.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  378.                                                 Writeln(', You win!!!'); x:=x+1;
  379.                                                 Delay(750);    m2:=m2+1;
  380.                                                 Writeln(x,'-',y,'!!!');
  381.                                         End;
  382.                                 If ((Up(A)='PAPER') or (Up(A)='P')) and (B='Paper') then
  383.                                         Begin
  384.                                                 v:=v+1;
  385.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  386.                                                 Writeln(', Its a tie!!!');
  387.                                                 Delay(750);  n1:=n1+1;
  388.                                                 Writeln(x,'-',y,'!!!');
  389.                                         End;
  390.                                 If ((Up(A)='PAPER') or (Up(A)='P')) and (B='Scrissor') then
  391.                                         Begin
  392.                                                 v:=v+1;
  393.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  394.                                                 Writeln(', I win!!!'); y:=y+1;
  395.                                                 Delay(750);   n3:=n3+1;
  396.                                                 Writeln(x,'-',y,'!!!');
  397.                                         End;
  398.                                 If ((Up(A)='PAPER') or (Up(A)='P')) and (B='Paper') then
  399.                                         Begin
  400.                                                 v:=v+1;
  401.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  402.                                                 Writeln(', You win!!!'); x:=x+1;
  403.                                                 Delay(750);    n2:=n2+1;
  404.                                                 Writeln(x,'-',y,'!!!');
  405.                                         End;
  406.                                 If ((Up(A)='SCRISSOR') or (Up(A)='S')) and (B='Scrissor') then
  407.                                         Begin
  408.                                                 o:=o+1;
  409.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  410.                                                 Writeln(', Its a tie!!!');
  411.                                                 Delay(750);      o1:=o1+1;
  412.                                                 Writeln(x,'-',y,'!!!');
  413.                                         End;
  414.                                 If ((Up(A)='SCRISSOR') or (Up(A)='S')) and (B='Rock') then
  415.                                         Begin
  416.                                                 o:=o+1;
  417.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  418.                                                 Writeln(', I win!!!'); y:=y+1;
  419.                                                 Delay(750);      o3:=o3+1;
  420.                                                 Writeln(x,'-',y,'!!!');
  421.                                         End;
  422.                                 If ((Up(A)='SCRISSOR') or (Up(A)='S')) and (B='Paper') then
  423.                                         Begin
  424.                                                 o:=o+1;
  425.                                                 Write('I choose '); TextColor(e); Write(B); TextColor(s);
  426.                                                 Writeln(', You win!!!'); x:=x+1;
  427.                                                 Delay(750);       o2:=o2+1;
  428.                                                 Writeln(x,'-',y,'!!!');
  429.                                         End;
  430.                                 C:=A;
  431.                         End;
  432.                 Write('Ok!!!'); Delay(1000);
  433.                 Writeln(' Its so fun while playing with you!');
  434.                 Delay(1000);
  435.                 Writeln('The final result is ',x,'-',y,'!!!');
  436.                 If x>y then
  437.                         Begin
  438.                                 Writeln('You won the whole match!');
  439.                                 Delay(1000); Writeln('Congratulation!');
  440.                         End;
  441.                 If x<y then
  442.                         Begin
  443.                                 Writeln('I win the whole match!');
  444.                                 Delay(1000); Writeln('Better luck next time fellas!');
  445.                         End;
  446.                 If x=y then
  447.                         Begin
  448.                                 Writeln('Its a tie!');
  449.                                 Delay(1000); Writeln('I will beat you at the next time LOL');
  450.                         End;
  451.                 Write('If you want to see the result of the match, type "');
  452.                 TextColor(e); Write('Result'); TextColor(s);Writeln('" then Enter');
  453.                 Write('If you want to exit now, type "');
  454.                 TextColor(e); Write('skip');TextColor(s); Writeln('" then Enter');
  455.                 TextColor(e); Readln(A); TextColor(s);
  456.                 If (A='Result') or (A='result') then
  457.                         Begin
  458.                                 TextColor(e); Writeln(x,'-',y); TextColor(s);
  459.                                 Writeln('In the match, you choose: ');
  460.                                 Write('Rock: ');TextColor(f);Write(m); TextColor(s);
  461.                                 Write(' time(s); win: '); TextColor(f); Write(m2); TextColor(s);
  462.                                 Write('; tie: ');TextColor(f); Write(m1); TextColor(s); Write('; lose: ');
  463.                                 TextColor(f); Writeln(m3); TextColor(s);
  464.                                 Write('Scrissor: '); TextColor(f); Write(o); TextColor(s);
  465.                                 Write(' time(s); win: '); TextColor(f); Write(o2); TextColor(s);
  466.                                 Write('; tie: '); TextColor(f); Write(o1); TextColor(s);
  467.                                 Write('; lose: '); TextColor(f); Writeln(o3); TextColor(s);
  468.                                 Write('Paper: '); TextColor(f); Write(n); TextColor(s);
  469.                                 Write(' time(s); win: '); TextColor(f); Write(n2); TextColor(s);
  470.                                 Write('; tie: ');TextColor(f); Write(n1); TextColor(s);
  471.                                 Write('; lose: '); TextColor(f); Writeln(n3); TextColor(s);
  472.                                 Write('Press enter...'); Readln;
  473.                         End;
  474.                 Writeln('Press any key to exit!'); Repeat Until KeyPressed;
  475.      End;
  476.  
  477. Procedure Loading_Screen;
  478.         Begin
  479.                 TextColor(s);
  480.                 clrscr;
  481.                 Writeln('LOADING...');
  482.                 Write('This game was made by '); TextColor(e);
  483.                 Write('Tran Viet Anh'); TextColor(s); Write(' AKA ');
  484.                 TextColor(e); Writeln('Wade Rollins'); TextColor(s);
  485.                 Write('If you found any bugs pls send to my email: '); TextColor(e);
  486.                 Writeln('pewdiepievietanh@gmail.com'); TextColor(s);
  487.                 Delay(11000); Gotoxy(10,1);
  488.                 Write('Game loaded');
  489.                 Delay(2000);
  490.         End;
  491.  
  492. Procedure Playing;
  493.         Begin
  494.                 clrscr; Write('Choose mode(Infinity/Round): '); Readln(A);
  495.                 While (A<>'Infinity') and (A<>'infinity') and (A<>'Round') and (A<>'round') do
  496.                         Begin
  497.                                 Write('Choose again!!!: '); Readln(A);
  498.                         End;
  499.                 If (A='Infinity') or (A='infinity') then Infinity;
  500.                 If (A='Round') or (A='round') then Round;
  501.         End;
  502.  
  503. Begin
  504.         clrscr;
  505.         TC1:='Gray'; TC2:='Yellow'; TC3:='Brown'; Di:='easy';
  506.         Assign(t,'OPTI.txt');
  507.         Reset(t);
  508.         Read(t,s,e,f);
  509.         Enter_Name;
  510.         Ask;
  511.         If Up(A)='NO' then Denied;
  512.         If Up(A)='YES' then
  513.                  Begin
  514.                         Allowed;
  515.                         Introduction;
  516.                         Choose;
  517.                         TextColor(e); Readln(A); TextColor(s);
  518.                         If Up(A)='OPTION' then Option;
  519.                         Writeln('Ready?? Press any key to continue!');
  520.                         Repeat Until KeyPressed;
  521.                         Loading_Screen;
  522.                         Playing;
  523.                  End;
  524. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!