pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

 >  > Запись оставлена DArkwood 12.01.2017 в 01:13 Получить справку

Запись оставлена DArkwood 12.01.2017 в 01:13
запустить | скачать | новая запись

  1. var q,w,e:integer;
  2. var a,bc:string;
  3. var h:integer;
  4. var i:integer;
  5. var r:integer;
  6. var m:integer;
  7. var p:integer;
  8. var f:integer;
  9. var j,k:integer;
  10. var y:integer;
  11. var o:integer;
  12. var l:integer;
  13. begin
  14. f:= 0;
  15. h:= 30;
  16. o:= 10;
  17. writeln('Выберите клас вашего персонажа');
  18. writeln('1-клас воина, воины имеют самую большую атаку, но они имеют маленькую ловкость; 2-клас мага, использует заклинания для достижения любой цели; 3-клас наёмник имеет среднею атаку и среднею ловкость');
  19. readln(i);
  20. if (i=2) then begin
  21. writeln('Вы выбрали клас мага, атака= 10, защита=6');
  22. repeat writeln('у вас',' ',h,' ','жизней ',' ',f,' ',' денег',' ',o,' ',' маны');
  23. readln;
  24. randomize;
  25. r:= random(4);
  26. q:= random(10);
  27. w:= random(14);
  28. if (r=1) then begin writeln('За сегоднешний день ничего не произошло, вы можете зайти в магазин для этого нажмите 1, или продолжить путишествие нажмите 2');
  29. readln(m);
  30. if(m=2) then writeln('Вы продолжили свой путь');
  31. if (m=1) then begin writeln('Вы находитесь в магазине, выберите предмет который хотите купить: 1- лечение(стоит-20монет); 2- мана ,или выйти - 3');
  32. readln(p);
  33. if (p= 3) then begin writeln('вы вышли из магазина');
  34. end;
  35. if (p=2) then begin
  36. if (f>29) then begin
  37. writeln('Вы купили ману +10 к мане');
  38. o:= o+10;
  39. f:= f-30;
  40. end;
  41. if (f<30) then begin writeln('Вам не хватает денег');
  42. end;
  43. end;
  44. if (p=1) then begin
  45. if (f>19) then begin
  46. writeln('Вы купили лечение, к вашим жизням прибавиться 15хп');
  47. writeln(h,'+ 15');
  48. h:= h+15;
  49. f:= f-20;
  50. end;
  51. if (f<20) then begin writeln('Вам не хватает денег на покупку');
  52. end;
  53. end;
  54. end;
  55. end;
  56. if (r=3) then begin writeln('Вы напали на противника, готовы?1-да;2-нет');
  57. readln(y);
  58. if (y=1) then begin
  59. writeln('Вы можете использовать заклинание, 1-уменьшает атаку врага(2 маны),2- увеличивает вашу атаку на 5(2 маны), 3-ничего');
  60. readln(l);
  61. if (l=1) then begin
  62. w:= random(10);
  63. o:= o-2;
  64. end;
  65. if (l=2) then begin
  66. q:= random(15);
  67. o:= o-2;
  68. end;
  69.  
  70. if (l=3) then begin writeln('вы ничего не выбрали');
  71. q:= random(10);
  72. w:= random(15);
  73. end;
  74. if (q>w) then begin
  75. writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
  76. writeln('Вы победили');
  77. h:= h+w;
  78. f:= f+15;
  79. end;
  80. if (q<w) then begin
  81. writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
  82. writeln('вы проиграли');
  83. h:= h-w;
  84. end;
  85. if (q=w) then begin
  86. writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
  87. writeln('ничия');
  88. h:= h-w;
  89. end;
  90. end;
  91. end;
  92. readln;
  93. if (r=3) then begin
  94. writeln('На вас напал противник');
  95. writeln('Вы можете использовать заклинание, 1-уменьшает атаку врага(2 маны),2- увеличивает вашу атаку на 5(2 маны), 3-ничего');
  96. readln(l);
  97. if (l=1) then begin
  98. if (o>1) then
  99. w:= random(10);
  100. o:= o-2;
  101. if (o<2) then writeln('не хватает маны');
  102. end;
  103. if (l=2) then begin
  104. if (o>1) then
  105. q:= random(15);
  106. o:= o-2;
  107. if (o<2) then writeln('не хватает маны');
  108. end;
  109. if (l=3) then begin writeln('вы ничего не выбрали');
  110. q:= random(10);
  111. w:= random(15);
  112. end;
  113. readln;
  114. if (q>w) then begin
  115. writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
  116. writeln('Вы победили');
  117. h:= h+w;
  118. f:= f+10;
  119. end;
  120. if (q<w) then begin
  121. writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
  122. writeln('вы проиграли');
  123. h:= h-w;
  124. end;
  125. if (q=w) then begin
  126. writeln('вы нанесли противнику', ' ',q,' ','урона',' ','противник нанёс',' ',w,' ','урона');
  127. writeln('ничия');
  128. h:= h-w;
  129. readln;
  130. end;
  131. end;
  132. if (r=4) then writeln('день прожит в пустую');
  133. until h < 1;
  134. end;

Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.

Использовать подсветку синтаксиса
В текущей реализации JS-DOS Read/ReadLn работают только при подключенном модуле Crt! Для подсветки отдельных строк используйте для них префикс @@


картинка


Запомнить мои настройки