API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 25th, 2014
201
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 41.71 KB | None | 0 0
raw download clone embed print report
  1. program weee (input,output,save);
  2. uses crt;
  3. type a31415=array [1..10,1..10] of integer;
  4. var save: text; a,b,d,e,str,hp,acr,def,str2,hp2,acr2,def2,qpoints,mlvl,nmonk,brnqd,frzns,frzqd,dhqd,rplqd,place,lvl,el,edl,c,z,emoney,hpl,acrl,strl,across,down,defl,aaa,bbb,ccc,ddd,stash,bombs,healpo: integer; ep,exp,test,neededexp: real; w,x,y,mon,anok,bnok,rpl,dh,boss: boolean; aaaaa,aaaab,aaaac,aaaad,aaaae,aaaaf,frzq,brnq,dhq,rplq,brnl,rpll: integer; a1,a2,a3,junk: char; land: a31415;
  5. label 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,95,96,97,98,99,100,995,996,997,998,999,9999;
  6. BEGIN
  7. assign(save,'C:/x.txt');
  8. lvl:=3;
  9. neededexp:=1.3;
  10. textbackground(green);
  11. textcolor(white);
  12. clrscr;
  13. for a:=1 to 10 do                      {Copyright 2006, Edward Swernofsky}
  14.     begin
  15.     for b:=1 to 10 do
  16.         begin
  17.         c:=0;
  18.         repeat
  19.         inc(c);
  20.         until c=5000000;
  21.         randomize;
  22.         land[a,b]:=(random(2)+1)-1;
  23.         end;
  24.     end;
  25. for a:=1 to 3 do
  26.     begin
  27.     for b:=1 to 3 do
  28.         begin
  29.         land[a,b]:=1;
  30.         end;
  31.     end;
  32. land[1,10]:=2;
  33. land[10,1]:=2;
  34. land[10,10]:=2;
  35. across:=1;
  36. down:=1;
  37. brnl:=1;
  38. rpll:=1;
  39. writeln('your magic progresses as you gain levels');
  40. 4:
  41. if y then goto 100;
  42. hp:=100+10*lvl+10*hpl;
  43. hp2:=100+10*el;
  44. if bnok then
  45. begin
  46. bnok:=false;
  47. goto 995;
  48. end;
  49. if mon then
  50. begin
  51. mon:=false;
  52. goto 1;
  53. end;
  54. 999:
  55. place:=land[across,down];
  56. writeln('-----------------------------------------');                                                                                                                        
  57. writeln('|   |   |   |   |   |   |   |   |   |   |');
  58. writeln('| ',land[1,1],' | ',land[2,1],' | ',land[3,1],' | ',land[4,1],' | ',land[5,1],' | ',land[6,1],' | ',land[7,1],' | ',land[8,1],' | ',land[9,1],' | ',land[10,1],' |');
  59. writeln('|   |   |   |   |   |   |   |   |   |   |');
  60. writeln('-----------------------------------------');                                                                                                                        
  61. writeln('|   |   |   |   |   |   |   |   |   |   |');
  62. writeln('| ',land[1,2],' | ',land[2,2],' | ',land[3,2],' | ',land[4,2],' | ',land[5,2],' | ',land[6,2],' | ',land[7,2],' | ',land[8,2],' | ',land[9,2],' | ',land[10,2],' |');
  63. writeln('|   |   |   |   |   |   |   |   |   |   |');
  64. writeln('-----------------------------------------');                                                                                                                        
  65. writeln('|   |   |   |   |   |   |   |   |   |   |');
  66. writeln('| ',land[1,3],' | ',land[2,3],' | ',land[3,3],' | ',land[4,3],' | ',land[5,3],' | ',land[6,3],' | ',land[7,3],' | ',land[8,3],' | ',land[9,3],' | ',land[10,3],' |');
  67. writeln('|   |   |   |   |   |   |   |   |   |   |');
  68. writeln('-----------------------------------------');                                                                                                                          
  69. writeln('|   |   |   |   |   |   |   |   |   |   |');
  70. writeln('| ',land[1,4],' | ',land[2,4],' | ',land[3,4],' | ',land[4,4],' | ',land[5,4],' | ',land[6,4],' | ',land[7,4],' | ',land[8,4],' | ',land[9,4],' | ',land[10,4],' |');
  71. writeln('|   |   |   |   |   |   |   |   |   |   |');
  72. writeln('-----------------------------------------');                                                                                                                        
  73. writeln('|   |   |   |   |   |   |   |   |   |   |');
  74. writeln('| ',land[1,5],' | ',land[2,5],' | ',land[3,5],' | ',land[4,5],' | ',land[5,5],' | ',land[6,5],' | ',land[7,5],' | ',land[8,5],' | ',land[9,5],' | ',land[10,5],' |');
  75. writeln('|   |   |   |   |   |   |   |   |   |   |');
  76. writeln('-----------------------------------------');                                                                                                                        
  77. writeln('|   |   |   |   |   |   |   |   |   |   |');
  78. writeln('| ',land[1,6],' | ',land[2,6],' | ',land[3,6],' | ',land[4,6],' | ',land[5,6],' | ',land[6,6],' | ',land[7,6],' | ',land[8,6],' | ',land[9,6],' | ',land[10,6],' |');
  79. writeln('|   |   |   |   |   |   |   |   |   |   |');
  80. writeln('-----------------------------------------');                                                                                                                        
  81. writeln('|   |   |   |   |   |   |   |   |   |   |');
  82. writeln('| ',land[1,7],' | ',land[2,7],' | ',land[3,7],' | ',land[4,7],' | ',land[5,7],' | ',land[6,7],' | ',land[7,7],' | ',land[8,7],' | ',land[9,7],' | ',land[10,7],' |');
  83. writeln('|   |   |   |   |   |   |   |   |   |   |');
  84. writeln('-----------------------------------------');                                                                                                                        
  85. writeln('|   |   |   |   |   |   |   |   |   |   |');
  86. writeln('| ',land[1,8],' | ',land[2,8],' | ',land[3,8],' | ',land[4,8],' | ',land[5,8],' | ',land[6,8],' | ',land[7,8],' | ',land[8,8],' | ',land[9,8],' | ',land[10,8],' |');
  87. writeln('|   |   |   |   |   |   |   |   |   |   |');
  88. writeln('-----------------------------------------');                                                                                                                        
  89. writeln('|   |   |   |   |   |   |   |   |   |   |');
  90. writeln('| ',land[1,9],' | ',land[2,9],' | ',land[3,9],' | ',land[4,9],' | ',land[5,9],' | ',land[6,9],' | ',land[7,9],' | ',land[8,9],' | ',land[9,9],' | ',land[10,9],' |');        
  91. writeln('|   |   |   |   |   |   |   |   |   |   |');
  92. writeln('-----------------------------------------');
  93. writeln('|   |   |   |   |   |   |   |   |   |   |');
  94. writeln('| ',land[1,10],' | ',land[2,10],' | ',land[3,10],' | ',land[4,10],' | ',land[5,10],' | ',land[6,10],' | ',land[7,10],' | ',land[8,10],' | ',land[9,10],' | ',land[10,10],' |');
  95. writeln('|   |   |   |   |   |   |   |   |   |   |');
  96. writeln('-----------------------------------------');
  97. writeln('1 is a city, 2 is a boss, and 0 is a hunting place');
  98. writeln('you are at ',across,',',down);
  99. if place=0 then
  100.    begin
  101.    writeln('type 1 to go hunting, and 2 to save or recover');
  102.    readln(a);
  103.    clrscr;
  104.    if a=1 then goto 997;
  105.    if a=2 then goto 996;
  106.    goto 999;
  107.    end;
  108. if place=1 then
  109.    begin
  110.    writeln('type 1 to go shopping, 2 to move, 3 to save or recover, and 4 to see your stats');
  111.    readln(a);
  112.    clrscr;
  113.    if a=1 then goto 998;
  114.    if a=2 then goto 995;
  115.    if a=3 then goto 996;
  116.    if a=4 then goto 95;
  117.    goto 999;
  118.    end;
  119. if place=2 then
  120.    begin
  121.    textcolor(yellow);
  122.    writeln('BBB OOO SSS SSS!');
  123.    writeln('BBB OOO SSS SSS!');
  124.    writeln('BBB OOO SSS SSS!');
  125.    textcolor(white);
  126.    el:=lvl*3;
  127.    boss:=true;
  128.    mon:=true;
  129.    goto 4;
  130.    end;      
  131. if place=3 then
  132.    begin
  133.    textcolor(red);
  134.    writeln('MMM EEE GGG AAA BBB OOO SSS SSS!');
  135.    writeln('MMM EEE GGG AAA BBB OOO SSS SSS!');
  136.    writeln('MMM EEE GGG AAA BBB OOO SSS SSS!');
  137.    textcolor(white);
  138.    el:=lvl*10;
  139.    boss:=true;
  140.    mon:=true;
  141.    goto 4;
  142.    end;
  143. 998:
  144.    begin
  145.    writeln('you have ',stash,' gp,');
  146.    writeln;
  147.    writeln('type 1 to buy a sword upgrade for 10000 gp,');
  148.    writeln;                                    
  149.    writeln('type 2 to buy a shield upgrade for 10000 gp,');
  150.    writeln;
  151.    writeln('type 3 to buy an eye glass upgrade for 10000 gp,');
  152.    writeln;
  153.    writeln('type 4 to buy a health potion for 5000 gp,');
  154.    readln(a);
  155.    clrscr;
  156.    if a=1 then
  157.       begin
  158.       if stash>10000 then
  159.          begin
  160.          writeln('purchased!');
  161.          inc(aaaaa);
  162.          stash:=stash-10000;
  163.          goto 998;
  164.          end;
  165.       end;
  166.    if a=2 then
  167.       begin
  168.       if stash>10000 then
  169.          begin
  170.          writeln('purchased!');
  171.          inc(aaaab);
  172.          stash:=stash-10000;
  173.          goto 998;
  174.          end;
  175.       end;
  176.    if a=3 then
  177.       begin
  178.       if stash>10000 then
  179.          begin
  180.          writeln('purchased!');
  181.          inc(aaaac);
  182.          stash:=stash-10000;
  183.          goto 998;
  184.          end;
  185.       end;
  186.    if a=4 then
  187.       begin
  188.       if stash>5000 then
  189.          begin
  190.          writeln('purchased!');
  191.          inc(healpo);
  192.          stash:=stash-5000;
  193.          goto 998;
  194.          end;
  195.       end;
  196.    goto 999;
  197.    end;
  198. 997:
  199.    begin
  200.    randomize;
  201.    e:=random(100)+1;
  202.    if e>20 then
  203.       begin
  204.       if e>40 then
  205.          begin
  206.          if e>60 then
  207.             begin
  208.             if e>70 then
  209.                begin
  210.                   if e>90 then
  211.                      begin
  212.                      if e>99 then
  213.                         begin
  214.                         textcolor(blue);
  215.                         writeln('YOU LEVELED UP!!!!!!!!!');
  216.                         textcolor(white);
  217.                         writeln;
  218.                         goto 96;
  219.                         end;  
  220.                      textcolor(blue);
  221.                      writeln('YOU FOUND A TREASURE CHEST!!!!');
  222.                      textcolor(white);
  223.                      writeln;
  224.                      stash:=stash+1000;
  225.                      goto 999;
  226.                      end;
  227.                textcolor(blue);
  228.                writeln('YOU FOUND A POTION!!!!');
  229.                textcolor(white);
  230.                writeln;
  231.                healpo:=healpo+1;
  232.                goto 999;
  233.                end;
  234.             textcolor(yellow);
  235.             writeln('YOU DID NOT FIND ANYTHING!!!!!!!!');  
  236.             textcolor(white);
  237.             writeln;
  238.             goto 999;
  239.             end;
  240.          writeln('YOU WERE ATTACKED!!!!!!!!!!!! -1         !!!!!!!!!');
  241.          writeln;
  242.          el:=lvl-1;
  243.          mon:=true;
  244.          goto 4;
  245.          end;
  246.       writeln('YOU WERE ATTACKED!!!!!!!!!!!! +1         !!!!!!!!!');
  247.       writeln;
  248.       el:=lvl+1;
  249.       mon:=true;
  250.       goto 4;
  251.       end;
  252.    writeln('YOU WERE ATTACKED!!!!!!!!!!!! Same lvl   !!!!!!!!!');
  253.    writeln;
  254.    el:=lvl;
  255.    mon:=true;
  256.    goto 4;
  257.    end;
  258. 996:
  259.    begin
  260.    writeln('type 1 to save, 2 to recover and 3 to quit');
  261.    readln(a);
  262.    clrscr;
  263.    if a=1 then
  264.       begin
  265.       rewrite(save);
  266.       writeln(save,lvl,' ',stash,' ',exp,' ',neededexp,' ',acrl,' ',strl,' ',defl,' ',bombs,' ',healpo,' ',hpl,' ',aaaaa,' ',aaaab,' ',aaaac,' ',aaaad,' ',brnq,' ',frzq,' ',dhq,' ',rplq,' ',brnl,' ',rpll,' ',across,' ',down);
  267.       close(save);
  268.       goto 999;
  269.       end;
  270.    if a=2 then
  271.       begin
  272.       reset(save);
  273.       readln(save,lvl,stash,exp,neededexp,acrl,strl,defl,bombs,healpo,hpl,aaaaa,aaaab,aaaac,aaaad,brnq,frzq,dhq,rplq,brnl,rpll,across,down);
  274.       close(save);
  275.       brnqd:=brnq;
  276.       frzqd:=frzq;
  277.       dhqd:=dhq;
  278.       rplqd:=rplq;
  279.       goto 4;
  280.       end;
  281.    if a=3 then goto 999;
  282.    end;
  283. 95:
  284.    begin
  285.    writeln;                        
  286.    writeln('your level is ',lvl);
  287.  
  288.    writeln('you have ',hp,' health');
  289.    writeln('you have ',strl,' strength');
  290.    writeln('you have ',acrl,' acuracy');
  291.    writeln('you have ',defl,' defence');
  292.  
  293.    writeln('you have ',brnq,' burn spells per battle');
  294.    writeln('you have ',frzq,' freeze spells per battle');
  295.    writeln('you have ',dhq,' double hit spells per battle');
  296.    writeln('you have ',rplq,' repel spells per battle');
  297.  
  298.    writeln('your burn level is ',brnl);                  
  299.    writeln('your repel level is ',rpll);
  300.  
  301.    writeln('you have ',stash,' gp');      
  302.    writeln('your sword lvl is ',aaaaa);
  303.    writeln('your shield lvl is ',aaaab);
  304.    writeln('your eyeglass lvl is ',aaaac);
  305.    writeln('you have ',healpo,' health potions');
  306.  
  307.    writeln('you have ',round(exp),' experience');
  308.    writeln('you need ',round((neededexp-exp)),' more experience to get to the next level');
  309.    writeln;
  310.    readln;
  311.    clrscr;
  312.    goto 999;
  313.    end;
  314. 1:
  315. if hp2<1 then
  316.    begin
  317.    if boss then
  318.    begin
  319.    boss:=false;
  320.    writeln('you beat a boss!!!!!!!');
  321.    emoney:=el*100;
  322.    inc(qpoints);
  323.    if (qpoints mod 5)=0 then land[10,10]:=3;
  324.    end
  325.    else emoney:=el*50;
  326.    writeln('you got ',emoney,' gp');
  327.    stash:=stash+emoney;
  328.    ep:=1.1;
  329.    brnqd:=brnq;
  330.    frzqd:=frzq;
  331.    dhqd:=dhq;
  332.    rplqd:=rplq;
  333.    for a:=1 to el do
  334.       begin
  335.       ep:=ep*1.1;
  336.       end;
  337.    exp:=exp+ep;
  338.    writeln('you win!');
  339.    if exp>neededexp then
  340.       begin
  341. 96:
  342.       inc(lvl);
  343.       exp:=0;
  344.       writeln;
  345.       writeln('YOU GAINED A LEVEL!!!!!!!');
  346.       writeln;
  347.       neededexp:=neededexp*1.4;
  348.       y:=true;
  349.       end;
  350.    bnok:=true;
  351.    readln;
  352.    clrscr;
  353.    goto 4;
  354.    end;
  355. if hp<1 then
  356.    begin
  357.    brnqd:=brnq;
  358.    frzqd:=frzq;
  359.    dhqd:=dhq;
  360.    rplqd:=rplq;
  361.    textcolor(red);
  362.    writeln('you lose!');
  363.    textcolor(white);
  364.    lvl:=lvl-1;
  365.    exp:=0;
  366.    neededexp:=1.3;
  367.    for a:=1 to (lvl-2) do neededexp:=neededexp*1.3;
  368.    bnok:=true;
  369.    readln;
  370.    goto 4;
  371.    end;
  372.    if anok then
  373.    begin
  374. 995:
  375. anok:=false;
  376. place:=land[across,down];
  377. writeln('-----------------------------------------');                                                                                                                        
  378. writeln('|   |   |   |   |   |   |   |   |   |   |');
  379. writeln('| ',land[1,1],' | ',land[2,1],' | ',land[3,1],' | ',land[4,1],' | ',land[5,1],' | ',land[6,1],' | ',land[7,1],' | ',land[8,1],' | ',land[9,1],' | ',land[10,1],' |');
  380. writeln('|   |   |   |   |   |   |   |   |   |   |');
  381. writeln('-----------------------------------------');                                                                                                                        
  382. writeln('|   |   |   |   |   |   |   |   |   |   |');
  383. writeln('| ',land[1,2],' | ',land[2,2],' | ',land[3,2],' | ',land[4,2],' | ',land[5,2],' | ',land[6,2],' | ',land[7,2],' | ',land[8,2],' | ',land[9,2],' | ',land[10,2],' |');
  384. writeln('|   |   |   |   |   |   |   |   |   |   |');
  385. writeln('-----------------------------------------');                                                                                                                        
  386. writeln('|   |   |   |   |   |   |   |   |   |   |');
  387. writeln('| ',land[1,3],' | ',land[2,3],' | ',land[3,3],' | ',land[4,3],' | ',land[5,3],' | ',land[6,3],' | ',land[7,3],' | ',land[8,3],' | ',land[9,3],' | ',land[10,3],' |');
  388. writeln('|   |   |   |   |   |   |   |   |   |   |');
  389. writeln('-----------------------------------------');                                                                                                                          
  390. writeln('|   |   |   |   |   |   |   |   |   |   |');
  391. writeln('| ',land[1,4],' | ',land[2,4],' | ',land[3,4],' | ',land[4,4],' | ',land[5,4],' | ',land[6,4],' | ',land[7,4],' | ',land[8,4],' | ',land[9,4],' | ',land[10,4],' |');
  392. writeln('|   |   |   |   |   |   |   |   |   |   |');
  393. writeln('-----------------------------------------');                                                                                                                        
  394. writeln('|   |   |   |   |   |   |   |   |   |   |');
  395. writeln('| ',land[1,5],' | ',land[2,5],' | ',land[3,5],' | ',land[4,5],' | ',land[5,5],' | ',land[6,5],' | ',land[7,5],' | ',land[8,5],' | ',land[9,5],' | ',land[10,5],' |');
  396. writeln('|   |   |   |   |   |   |   |   |   |   |');
  397. writeln('-----------------------------------------');                                                                                                                        
  398. writeln('|   |   |   |   |   |   |   |   |   |   |');
  399. writeln('| ',land[1,6],' | ',land[2,6],' | ',land[3,6],' | ',land[4,6],' | ',land[5,6],' | ',land[6,6],' | ',land[7,6],' | ',land[8,6],' | ',land[9,6],' | ',land[10,6],' |');
  400. writeln('|   |   |   |   |   |   |   |   |   |   |');
  401. writeln('-----------------------------------------');                                                                                                                        
  402. writeln('|   |   |   |   |   |   |   |   |   |   |');
  403. writeln('| ',land[1,7],' | ',land[2,7],' | ',land[3,7],' | ',land[4,7],' | ',land[5,7],' | ',land[6,7],' | ',land[7,7],' | ',land[8,7],' | ',land[9,7],' | ',land[10,7],' |');
  404. writeln('|   |   |   |   |   |   |   |   |   |   |');
  405. writeln('-----------------------------------------');                                                                                                                        
  406. writeln('|   |   |   |   |   |   |   |   |   |   |');
  407. writeln('| ',land[1,8],' | ',land[2,8],' | ',land[3,8],' | ',land[4,8],' | ',land[5,8],' | ',land[6,8],' | ',land[7,8],' | ',land[8,8],' | ',land[9,8],' | ',land[10,8],' |');
  408. writeln('|   |   |   |   |   |   |   |   |   |   |');
  409. writeln('-----------------------------------------');                                                                                                                        
  410. writeln('|   |   |   |   |   |   |   |   |   |   |');
  411. writeln('| ',land[1,9],' | ',land[2,9],' | ',land[3,9],' | ',land[4,9],' | ',land[5,9],' | ',land[6,9],' | ',land[7,9],' | ',land[8,9],' | ',land[9,9],' | ',land[10,9],' |');        
  412. writeln('|   |   |   |   |   |   |   |   |   |   |');
  413. writeln('-----------------------------------------');
  414. writeln('|   |   |   |   |   |   |   |   |   |   |');
  415. writeln('| ',land[1,10],' | ',land[2,10],' | ',land[3,10],' | ',land[4,10],' | ',land[5,10],' | ',land[6,10],' | ',land[7,10],' | ',land[8,10],' | ',land[9,10],' | ',land[10,10],' |');
  416. writeln('|   |   |   |   |   |   |   |   |   |   |');
  417. writeln('-----------------------------------------');
  418. writeln('1 is a city and 0 is a hunting place');
  419. writeln('you are at ',across,',',down);
  420.    writeln('type 1 to go up, 2 to go down, 3 to go left, 4 to go right, and 5 to stay where you are');
  421.    readln(a);
  422.    if a=1 then
  423.       begin
  424.       if down=1 then
  425.       begin
  426.       clrscr;
  427.       goto 995;
  428.       end;
  429.       down:=down-1;
  430.       clrscr;    
  431.       goto 999;
  432.       end;  
  433.    if a=2 then
  434.       begin      
  435.       if down=10 then
  436.       begin
  437.       clrscr;
  438.       goto 995;
  439.       end;
  440.       down:=down+1;
  441.       clrscr;    
  442.       goto 999;
  443.       end;
  444.    if a=3 then
  445.       begin                    
  446.       if across=1 then
  447.       begin
  448.       clrscr;
  449.       goto 995;
  450.       end;
  451.       across:=across-1;
  452.       clrscr;    
  453.       goto 999;
  454.       end;
  455.    if a=4 then
  456.       begin    
  457.       if across=10 then
  458.       begin
  459.       clrscr;
  460.       goto 995;
  461.       end;
  462.       across:=across+1;
  463.       clrscr;    
  464.       goto 999;
  465.       end;
  466.       clrscr;
  467.    if a=5 then goto 999;
  468.    goto 995;
  469.    end;
  470. writeln('type 1 to attack');
  471. if healpo>0 then writeln('type 2 to use potion');
  472. if brnq>0 then writeln('type 3 to use burn');
  473. if frzq>0 then writeln('type 4 to use freeze');
  474. if dhq>0 then writeln('type 5 to use double hit');
  475. if rplq>0 then writeln('type 6 to use repel');
  476. readln(a);
  477. clrscr;
  478. if a=1 then goto 3;
  479. if a=2 then
  480.    begin
  481.    if healpo>0 then
  482.       begin
  483.       healpo:=healpo-1;
  484.       hp:=hp+2*el+50;
  485.       goto 1;
  486.       end;
  487.    end;
  488. if a=3 then
  489.    begin  
  490.    if brnqd>0 then
  491.    begin
  492.    brnqd:=brnqd-1;
  493.    randomize;
  494.    str:=brnl*10+(random(5)+1)-1;
  495.    goto 9999;
  496.    end;
  497.    end;
  498. if a=4 then
  499.    begin
  500.    if frzqd>0 then
  501.    begin
  502.    frzqd:=frzqd-1;
  503.    inc(frzns);
  504.    end;
  505.    end;
  506. if a=5 then
  507.    begin
  508.    if dhqd>0 then
  509.    begin      
  510.    dhqd:=dhqd-1;
  511.    dh:=true;
  512.    goto 3;
  513.    end;
  514.    end;
  515. if a=6 then
  516.    begin
  517.    if rplqd>0 then
  518.    begin    
  519.    rplqd:=rplqd-1;
  520.    rpl:=true;
  521.    goto 3;
  522.    end;
  523.    end;
  524. goto 1;
  525. 3:
  526. writeln('  YOU                       HIM');
  527. writeln('---------------------------------');
  528. writeln('  ***        //      ||     ***  ');
  529. writeln(' *****      //       ||    ***** ');
  530. writeln('  ***      //        ||     ***  ');
  531. writeln('************         ************');
  532. writeln('***********           ***********');
  533. writeln('*******                   *******');
  534. writeln('*******                   *******');
  535. writeln('**   **                   **   **');
  536. writeln('**   **                   **   **');
  537. writeln('**   **                   **   **');
  538. writeln('---------------------------------');
  539. z:=1;
  540. goto 5;
  541. 6:
  542. writeln('   YOU                      HIM');
  543. writeln('---------------------------------');
  544. writeln('   ***        //     ||     ***  ');
  545. writeln('  *****      //      ||    ***** ');
  546. writeln('   ***      //       ||     ***  ');
  547. writeln(' ************        ************');
  548. writeln(' ***********          ***********');
  549. writeln(' *******                  *******');
  550. writeln(' *******                  *******');
  551. writeln(' **   **                  **   **');
  552. writeln(' **   **                  **   **');
  553. writeln(' **   **                  **   **');
  554. writeln('---------------------------------');
  555. inc(z);
  556. goto 5;
  557. 7:
  558. writeln('    YOU                     HIM');
  559. writeln('---------------------------------');
  560. writeln('    ***        //    ||     ***  ');
  561. writeln('   *****      //     ||    ***** ');
  562. writeln('    ***      //      ||     ***  ');
  563. writeln('  ************       ************');
  564. writeln('  ***********         ***********');
  565. writeln('  *******                 *******');
  566. writeln('  *******                 *******');
  567. writeln('  **   **                 **   **');
  568. writeln('  **   **                 **   **');
  569. writeln('  **   **                 **   **');
  570. writeln('---------------------------------');
  571. inc(z);
  572. goto 5;
  573. 8:
  574. writeln('      YOU                   HIM');
  575. writeln('---------------------------------');
  576. writeln('      ***        //  ||     ***  ');
  577. writeln('     *****      //   ||    ***** ');
  578. writeln('      ***      //    ||     ***  ');
  579. writeln('    ************     ************');
  580. writeln('    ***********       ***********');
  581. writeln('    *******               *******');
  582. writeln('    *******               *******');
  583. writeln('    **   **               **   **');
  584. writeln('    **   **               **   **');
  585. writeln('    **   **               **   **');
  586. writeln('---------------------------------');
  587. inc(z);
  588. goto 5;
  589. 9:
  590. writeln('       YOU                  HIM');
  591. writeln('---------------------------------');
  592. writeln('       ***        // ||     ***  ');
  593. writeln('      *****      //  ||    ***** ');
  594. writeln('       ***      //   ||     ***  ');
  595. writeln('     ************    ************');
  596. writeln('     ***********      ***********');
  597. writeln('     *******              *******');
  598. writeln('     *******              *******');
  599. writeln('     **   **              **   **');
  600. writeln('     **   **              **   **');
  601. writeln('     **   **              **   **');
  602. writeln('---------------------------------');
  603. inc(z);
  604. goto 5;
  605. 10:
  606. writeln('        YOU                 HIM');
  607. writeln('---------------------------------');
  608. writeln('        ***        //||     ***  ');
  609. writeln('       *****      // ||    ***** ');
  610. writeln('        ***      //  ||     ***  ');
  611. writeln('      ************   ************');
  612. writeln('      ***********     ***********');
  613. writeln('      *******             *******');
  614. writeln('      *******             *******');
  615. writeln('      **   **             **   **');
  616. writeln('      **   **             **   **');
  617. writeln('      **   **             **   **');
  618. writeln('---------------------------------');
  619. inc(z);
  620. goto 5;
  621. 11:
  622. writeln('         YOU                HIM');
  623. writeln('---------------------------------');
  624. writeln('         ***        //|     ***  ');
  625. writeln('        *****      //||    ***** ');
  626. writeln('         ***      // ||     ***  ');
  627. writeln('       ************  ************');
  628. writeln('       ***********    ***********');
  629. writeln('       *******            *******');
  630. writeln('       *******            *******');
  631. writeln('       **   **            **   **');
  632. writeln('       **   **            **   **');
  633. writeln('       **   **            **   **');
  634. writeln('---------------------------------');
  635. inc(z);
  636. goto 5;
  637. 12:
  638. writeln('          YOU               HIM');
  639. writeln('---------------------------------');
  640. writeln('          ***        //     ***  ');
  641. writeln('         *****      //|    ***** ');
  642. writeln('          ***      //||     ***  ');
  643. writeln('        ************ ************');
  644. writeln('        ***********   ***********');
  645. writeln('        *******           *******');
  646. writeln('        *******           *******');
  647. writeln('        **   **           **   **');
  648. writeln('        **   **           **   **');
  649. writeln('        **   **           **   **');
  650. writeln('---------------------------------');
  651. inc(z);
  652. goto 5;
  653. 13:
  654. writeln('          YOU               HIM');
  655. writeln('---------------------------------');
  656. writeln('          ***            || ***  ');
  657. writeln('         *****           ||***** ');
  658. writeln('          ***            || ***  ');
  659. writeln('        ***********----------****');
  660. writeln('        ************---------****');
  661. writeln('        *******           *******');
  662. writeln('        *******           *******');
  663. writeln('        **   **           **   **');
  664. writeln('        **   **           **   **');
  665. writeln('        **   **           **   **');
  666. writeln('---------------------------------');
  667. inc(z);
  668. goto 5;
  669. 14:
  670. writeln('          YOU               HIM');
  671. writeln('---------------------------------');
  672. writeln('          ***         ||    ***  ');
  673. writeln('         *****        ||   ***** ');
  674. writeln('          ***         ||    ***  ');
  675. writeln('        ************\ ***********');
  676. writeln('        *********** \\ **********');
  677. writeln('        *******      \\   *******');
  678. writeln('        *******       \\  *******');
  679. writeln('        **   **        \\ **   **');
  680. writeln('        **   **           **   **');
  681. writeln('        **   **           **   **');
  682. writeln('---------------------------------');
  683. inc(z);
  684. goto 5;
  685. 15:
  686. writeln('        YOU                 HIM');
  687. writeln('---------------------------------');
  688. writeln('        ***          ||     ***  ');
  689. writeln('       *****         ||    ***** ');
  690. writeln('        ***          ||     ***  ');
  691. writeln('      ************\  ************');
  692. writeln('      ************\\  ***********');
  693. writeln('      *******      \\     *******');
  694. writeln('      *******       \\    *******');
  695. writeln('      **   **        \\   **   **');
  696. writeln('      **   **             **   **');
  697. writeln('      **   **             **   **');
  698. writeln('---------------------------------');
  699. inc(z);
  700. goto 5;
  701. 16:
  702. writeln('      YOU                   HIM');
  703. writeln('---------------------------------');
  704. writeln('      ***            ||     ***  ');
  705. writeln('     *****           ||    ***** ');
  706. writeln('      ***            ||     ***  ');
  707. writeln('    ************\    ************');
  708. writeln('    *********** \\    ***********');
  709. writeln('    *******      \\       *******');
  710. writeln('    *******       \\      *******');
  711. writeln('    **   **        \\     **   **');
  712. writeln('    **   **               **   **');
  713. writeln('    **   **               **   **');
  714. writeln('---------------------------------');
  715. inc(z);
  716. goto 5;
  717. 17:
  718. writeln('     YOU                    HIM');
  719. writeln('---------------------------------');
  720. writeln('     ***             ||     ***  ');
  721. writeln('    *****            ||    ***** ');
  722. writeln('     ***             ||     ***  ');
  723. writeln('   ***********_______************');
  724. writeln('   ************______ ***********');
  725. writeln('   *******                *******');
  726. writeln('   *******                *******');
  727. writeln('   **   **                **   **');
  728. writeln('   **   **                **   **');
  729. writeln('   **   **                **   **');
  730. writeln('---------------------------------');
  731. inc(z);
  732. goto 5;
  733. 18:
  734. writeln('   YOU                      HIM');
  735. writeln('---------------------------------');
  736. writeln('   ***         //    ||     ***  ');
  737. writeln('  *****       //     ||    ***** ');
  738. writeln('   ***       //      ||     ***  ');
  739. writeln(' *************       ************');
  740. writeln(' ************         ***********');
  741. writeln(' *******                  *******');
  742. writeln(' *******                  *******');
  743. writeln(' **   **                  **   **');
  744. writeln(' **   **                  **   **');
  745. writeln(' **   **                  **   **');
  746. writeln('---------------------------------');
  747. inc(z);
  748. goto 5;
  749. 19:
  750. writeln('  YOU                       HIM');
  751. writeln('---------------------------------');
  752. writeln('  ***     ||         ||     ***  ');
  753. writeln(' *****    ||         ||    ***** ');
  754. writeln('  ***     ||         ||     ***  ');
  755. writeln('************         ************');
  756. writeln('***********           ***********');
  757. writeln('*******                   *******');
  758. writeln('*******                   *******');
  759. writeln('**   **                   **   **');
  760. writeln('**   **                   **   **');
  761. writeln('**   **                   **   **');
  762. writeln('---------------------------------');
  763. inc(z);
  764. goto 5;        
  765. 20:
  766. writeln('  YOU                      HIM');
  767. writeln('---------------------------------');
  768. writeln('  ***     ||        ||     ***  ');
  769. writeln(' *****    ||        ||    ***** ');
  770. writeln('  ***     ||        ||     ***  ');
  771. writeln('************        ************');
  772. writeln('***********          ***********');
  773. writeln('*******                  *******');
  774. writeln('*******                  *******');
  775. writeln('**   **                  **   **');
  776. writeln('**   **                  **   **');
  777. writeln('**   **                  **   **');
  778. writeln('---------------------------------');
  779. inc(z);
  780. goto 5;
  781. 21:
  782. writeln('  YOU                     HIM');
  783. writeln('---------------------------------');
  784. writeln('  ***     ||    \\        ***  ');
  785. writeln(' *****    ||     \\      ***** ');
  786. writeln('  ***     ||      \\      ***  ');
  787. writeln('************       ************');
  788. writeln('***********         ***********');
  789. writeln('*******                 *******');
  790. writeln('*******                 *******');
  791. writeln('**   **                 **   **');
  792. writeln('**   **                 **   **');
  793. writeln('**   **                 **   **');
  794. writeln('---------------------------------');
  795. inc(z);
  796. goto 5;
  797. 22:
  798. writeln('  YOU                    HIM');
  799. writeln('---------------------------------');
  800. writeln('  ***     ||   \\        ***  ');
  801. writeln(' *****    ||    \\      ***** ');
  802. writeln('  ***     ||     \\      ***  ');
  803. writeln('************      ************');
  804. writeln('***********        ***********');
  805. writeln('*******                *******');
  806. writeln('*******                *******');
  807. writeln('**   **                **   **');
  808. writeln('**   **                **   **');
  809. writeln('**   **                **   **');
  810. writeln('---------------------------------');
  811. inc(z);
  812. goto 5;
  813. 23:
  814. writeln('  YOU                   HIM');
  815. writeln('---------------------------------');
  816. writeln('  ***     ||  \\        ***  ');
  817. writeln(' *****    ||   \\      ***** ');
  818. writeln('  ***     ||    \\      ***  ');
  819. writeln('************     ************');
  820. writeln('***********       ***********');
  821. writeln('*******               *******');
  822. writeln('*******               *******');
  823. writeln('**   **               **   **');
  824. writeln('**   **               **   **');
  825. writeln('**   **               **   **');
  826. writeln('---------------------------------');
  827. inc(z);
  828. goto 5;
  829. 24:
  830. writeln('  YOU                  HIM');
  831. writeln('---------------------------------');
  832. writeln('  ***     || \\        ***  ');
  833. writeln(' *****    ||  \\      ***** ');
  834. writeln('  ***     ||   \\      ***  ');
  835. writeln('************    ************');
  836. writeln('***********      ***********');
  837. writeln('*******              *******');
  838. writeln('*******              *******');
  839. writeln('**   **              **   **');
  840. writeln('**   **              **   **');
  841. writeln('**   **              **   **');
  842. writeln('---------------------------------');
  843. inc(z);
  844. goto 5;
  845. 25:
  846. writeln('  YOU                 HIM');
  847. writeln('---------------------------------');
  848. writeln('  ***     ||\\        ***  ');
  849. writeln(' *****    || \\      ***** ');
  850. writeln('  ***     ||  \\      ***  ');
  851. writeln('************   ************');
  852. writeln('***********     ***********');
  853. writeln('*******             *******');
  854. writeln('*******             *******');
  855. writeln('**   **             **   **');
  856. writeln('**   **             **   **');
  857. writeln('**   **             **   **');
  858. writeln('---------------------------------');
  859. inc(z);
  860. goto 5;
  861. 26:
  862. writeln('  YOU              HIM');
  863. writeln('---------------------------------');
  864. writeln('  ***     |\\        ***  ');
  865. writeln(' *****    ||\\      ***** ');
  866. writeln('  ***     || \\      ***  ');
  867. writeln('************  ************');
  868. writeln('***********    ***********');
  869. writeln('*******            *******');
  870. writeln('*******            *******');
  871. writeln('**   **            **   **');
  872. writeln('**   **            **   **');
  873. writeln('**   **            **   **');
  874. writeln('---------------------------------');
  875. inc(z);
  876. goto 5;
  877. 27:
  878. writeln('  YOU               HIM');
  879. writeln('---------------------------------');
  880. writeln('  ***     \\        ***  ');
  881. writeln(' *****    |\\      ***** ');
  882. writeln('  ***     ||\\      ***  ');
  883. writeln('************ ************');
  884. writeln('***********   ***********');
  885. writeln('*******           *******');
  886. writeln('*******           *******');
  887. writeln('**   **           **   **');
  888. writeln('**   **           **   **');
  889. writeln('**   **           **   **');
  890. writeln('---------------------------------');
  891. inc(z);
  892. goto 5;
  893. 28:
  894. writeln('  YOU               HIM');
  895. writeln('---------------------------------');
  896. writeln('  ***     ||        ***  ');
  897. writeln(' *****    ||       ***** ');
  898. writeln('  ***     ||        ***  ');
  899. writeln('****----------***********');
  900. writeln('****---------************');
  901. writeln('*******           *******');
  902. writeln('*******           *******');
  903. writeln('**   **           **   **');
  904. writeln('**   **           **   **');
  905. writeln('**   **           **   **');
  906. writeln('---------------------------------');
  907. inc(z);
  908. goto 5;
  909. 29:
  910. writeln('  YOU               HIM');
  911. writeln('---------------------------------');
  912. writeln('  ***    ||         ***  ');
  913. writeln(' *****   ||        ***** ');
  914. writeln('  ***    ||         ***  ');
  915. writeln('*********** /************');
  916. writeln('********** // ***********');
  917. writeln('*******   //      *******');
  918. writeln('*******  //       *******');
  919. writeln('**   ** //        **   **');
  920. writeln('**   **           **   **');
  921. writeln('**   **           **   **');
  922. writeln('---------------------------------');
  923. inc(z);
  924. goto 5;  
  925. 30:
  926. writeln('  YOU                HIM');
  927. writeln('---------------------------------');
  928. writeln('  ***    ||          ***  ');
  929. writeln(' *****   ||         ***** ');
  930. writeln('  ***    ||          ***  ');
  931. writeln('***********  /************');
  932. writeln('**********  // ***********');
  933. writeln('*******    //      *******');
  934. writeln('*******   //       *******');
  935. writeln('**   **  //        **   **');
  936. writeln('**   **            **   **');
  937. writeln('**   **            **   **');
  938. writeln('---------------------------------');
  939. inc(z);
  940. goto 5;
  941. 31:
  942. writeln('  YOU                 HIM');
  943. writeln('---------------------------------');
  944. writeln('  ***    ||           ***  ');
  945. writeln(' *****   ||          ***** ');
  946. writeln('  ***    ||           ***  ');
  947. writeln('***********   /************');
  948. writeln('**********   // ***********');
  949. writeln('*******     //      *******');
  950. writeln('*******    //       *******');
  951. writeln('**   **   //        **   **');
  952. writeln('**   **             **   **');
  953. writeln('**   **             **   **');
  954. writeln('---------------------------------');
  955. inc(z);
  956. goto 5;
  957. 32:
  958. writeln('  YOU                   HIM');
  959. writeln('---------------------------------');
  960. writeln('  ***    ||             ***  ');
  961. writeln(' *****   ||            ***** ');
  962. writeln('  ***    ||             ***  ');
  963. writeln('***********     /************');
  964. writeln('**********     // ***********');
  965. writeln('*******       //      *******');
  966. writeln('*******      //       *******');
  967. writeln('**   **     //        **   **');
  968. writeln('**   **               **   **');
  969. writeln('**   **               **   **');
  970. writeln('---------------------------------');
  971. inc(z);
  972. goto 5;
  973. 33:
  974. writeln('  YOU                    HIM');
  975. writeln('---------------------------------');
  976. writeln('  ***     ||             ***  ');
  977. writeln(' *****    ||            ***** ');
  978. writeln('  ***     ||             ***  ');
  979. writeln('************_______***********');
  980. writeln('*********** ______************');
  981. writeln('*******                *******');
  982. writeln('*******                *******');
  983. writeln('**   **                **   **');
  984. writeln('**   **                **   **');
  985. writeln('**   **                **   **');
  986. writeln('---------------------------------');
  987. inc(z);
  988. goto 5;
  989. 34:
  990. writeln('  YOU                     HIM');
  991. writeln('---------------------------------');
  992. writeln('  ***     ||    \\        ***  ');
  993. writeln(' *****    ||     \\      ***** ');
  994. writeln('  ***     ||      \\      ***  ');
  995. writeln('************       ************');
  996. writeln('***********         ***********');
  997. writeln('*******                 *******');
  998. writeln('*******                 *******');
  999. writeln('**   **                 **   **');
  1000. writeln('**   **                 **   **');
  1001. writeln('**   **                 **   **');
  1002. writeln('---------------------------------');
  1003. inc(z);
  1004. goto 5;
  1005. 35:
  1006. writeln('  YOU                      HIM');
  1007. writeln('---------------------------------');
  1008. writeln('  ***     ||        ||     ***  ');
  1009. writeln(' *****    ||        ||    ***** ');
  1010. writeln('  ***     ||        ||     ***  ');
  1011. writeln('************        ************');
  1012. writeln('***********          ***********');
  1013. writeln('*******                  *******');
  1014. writeln('*******                  *******');
  1015. writeln('**   **                  **   **');
  1016. writeln('**   **                  **   **');
  1017. writeln('**   **                  **   **');
  1018. writeln('---------------------------------');
  1019. inc(z);      
  1020. goto 5;
  1021. 36:
  1022. writeln('  YOU                       HIM');
  1023. writeln('---------------------------------');
  1024. writeln('  ***     ||         ||     ***  ');
  1025. writeln(' *****    ||         ||    ***** ');
  1026. writeln('  ***     ||         ||     ***  ');
  1027. writeln('************         ************');
  1028. writeln('***********           ***********');
  1029. writeln('*******                   *******');
  1030. writeln('*******                   *******');
  1031. writeln('**   **                   **   **');
  1032. writeln('**   **                   **   **');
  1033. writeln('**   **                   **   **');
  1034. writeln('---------------------------------');
  1035. inc(z);
  1036. 5:
  1037. c:=0;
  1038. repeat
  1039. inc(c);
  1040. until c=1000000;
  1041. clrscr;
  1042. if z=1 then goto 6;
  1043. if z=2 then goto 7;
  1044. if z=3 then goto 8;
  1045. if z=4 then goto 9;
  1046. if z=5 then goto 10;
  1047. if z=6 then goto 11;
  1048. if z=7 then goto 12;
  1049. if z=8 then goto 13;
  1050. if z=9 then goto 14;
  1051. if z=10 then goto 15;
  1052. if z=11 then goto 16;
  1053. if z=12 then goto 17;
  1054. if z=13 then goto 18;
  1055. if z=14 then goto 19;
  1056. if z=15 then goto 21;
  1057. if z=16 then goto 22;
  1058. if z=17 then goto 23;
  1059. if z=18 then goto 25;
  1060. if z=19 then goto 26;
  1061. if z=20 then goto 27;
  1062. if z=21 then goto 28;
  1063. if z=22 then goto 29;
  1064. if z=23 then goto 30;
  1065. if z=24 then goto 31;
  1066. if z=25 then goto 32;
  1067. if z=26 then goto 33;
  1068. if z=27 then goto 34;
  1069. if z=28 then goto 35;
  1070. if z=29 then goto 36;
  1071. randomize;
  1072. acr:=random(100+lvl+acrl)+1;
  1073. acr:=round(acr*0.1*(10+aaaac));
  1074. if acr>33 then
  1075.    begin
  1076.    c:=0;
  1077.    repeat
  1078.    inc(c);
  1079.    until c=5000000;
  1080.    randomize;
  1081.    str:=random(10+lvl+strl)+1;
  1082.    str:=round(str*0.1*(10+aaaaa));
  1083.    if dh then
  1084.       begin
  1085.       dh:=false;
  1086.       str:=str*2;
  1087.       end;
  1088.    x:=true;
  1089.    if acr<66 then
  1090.       begin
  1091.       goto 99;
  1092.       98:    
  1093.       c:=0;
  1094.       repeat
  1095.       inc(c);
  1096.       until c=5000000;
  1097.       randomize;
  1098.       def2:=random(7+2*el)+1;
  1099.       str:=str-def2;
  1100.       if str<0 then str:=0;
  1101.       end;
  1102.    9999:
  1103.    hp2:=hp2-str;
  1104.    writeln('you did ',str,' damage');
  1105.    writeln('enemy health = ',hp2);
  1106.    end
  1107. else writeln('you missed');
  1108. writeln;
  1109. c:=0;
  1110. repeat
  1111. inc(c);
  1112. until c=5000000;
  1113. if frzns>0 then
  1114. begin
  1115. frzns:=frzns-1;
  1116. goto 1;
  1117. end;
  1118. 37:
  1119. randomize;
  1120. acr2:=random(100+round(2*el))+1;
  1121. if acr2>33 then
  1122. begin
  1123. randomize;
  1124. str2:=random(10+round(2*el))+1;
  1125. x:=false;
  1126. writeln;
  1127. if rpl then
  1128.    begin
  1129.    rpl:=false;        
  1130.    writeln('repelled ',round(rpll/20*str2),' damage');
  1131.    hp2:=hp2-round(rpll/20*str2);
  1132.    str2:=str2-round((rpll/20)*str2);
  1133.    end;
  1134. if acr2<66 then
  1135. begin
  1136. goto 99;
  1137. 97:
  1138. begin
  1139. randomize;
  1140. def:=random(7+lvl+defl)+1;
  1141. def:=round(def*0.1*(10+aaaab));
  1142. end;
  1143. str2:=str2-def;
  1144. if str2<0 then str2:=0;
  1145. end;
  1146. hp:=hp-str2;
  1147. writeln;
  1148. writeln('enemy did ',str2,' damage');
  1149. writeln('your health = ',hp);
  1150. end
  1151. else writeln('enemy missed');
  1152. writeln;
  1153. goto 1;
  1154. 99:
  1155. c:=0;
  1156. repeat
  1157. inc(c);
  1158. until c=5000000;
  1159. if x then goto 98;
  1160. goto 97;
  1161. 100:
  1162. writeln('<1> for 3 health');
  1163. writeln('******************');
  1164. writeln('<2> for 3 acuracy');
  1165. writeln('******************');
  1166. writeln('<3> for 3 strength');
  1167. writeln('******************');
  1168. writeln('<4> for 3 defence');
  1169. writeln('------------------');
  1170. writeln('<5> for 1 more ammo of burn magic');
  1171. writeln('------------------');      
  1172. writeln('<6> for 1 more ammo of freeze magic');
  1173. writeln('------------------');
  1174. writeln('<7> for 1 more ammo of double hit magic');
  1175. writeln('------------------');
  1176. writeln('<8> for 1 more ammo of repel magic');
  1177. writeln('------------------');                
  1178. writeln('<9> for 1 more level of burn magic');
  1179. writeln('------------------');  
  1180. writeln('<10> for 1 more level of repel magic');
  1181. writeln('------------------');
  1182. readln(aaa);
  1183. if aaa<11 then
  1184. begin
  1185. if aaa=1 then
  1186. begin
  1187. hpl:=hpl+3;
  1188. end;
  1189. if aaa=2 then
  1190. begin
  1191. acrl:=acrl+3;
  1192. end;
  1193. if aaa=3 then
  1194. begin
  1195. strl:=strl+3;
  1196. end;        
  1197. if aaa=4 then
  1198. begin
  1199. defl:=defl+3;
  1200. end;        
  1201. if aaa=5 then
  1202. begin
  1203. inc(brnq);
  1204. end;        
  1205. if aaa=6 then
  1206. begin
  1207. inc(frzq);
  1208. end;        
  1209. if aaa=7 then
  1210. begin
  1211. inc(dhq);
  1212. end;        
  1213. if aaa=8 then
  1214. begin
  1215. inc(rplq);
  1216. end;        
  1217. if aaa=9 then
  1218. begin
  1219. inc(brnl);
  1220. end;        
  1221. if aaa=10 then
  1222. begin
  1223. inc(rpll);
  1224. end;
  1225. end
  1226. else goto 100;
  1227. clrscr;
  1228. brnqd:=brnq;
  1229. frzqd:=frzq;
  1230. dhqd:=dhq;
  1231. rplqd:=rplq;
  1232. y:=false;
  1233. bnok:=true;
  1234. goto 4;
  1235. 2: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!