API tools faq
paste
Advertisement
WadeRollins2710

[Game] Paper Rock Scrissor!!!!

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