API tools faq
paste
Advertisement
Coriic

STATKI 30.12 20.00

Coriic
Dec 30th, 2015
96
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.77 KB | None | 0 0
raw download clone embed print report
  1. program statki;
  2.  
  3. uses allegro, crt, dos;
  4.  
  5. type
  6. tablica=ARRAY[1..10,1..10] of integer;
  7.  
  8. const
  9. ScreenWidth= 1200;
  10. ScreenHeight= 720;
  11.  
  12. var
  13. tab1, tab2, tab1_c, tab2_c : tablica;
  14. litery : ARRAY [1..20] of string;
  15. mx, my, mb : integer;
  16.  
  17. procedure inicjalizuj();
  18. var
  19. i, j: integer;
  20. begin
  21. al_init;
  22. al_install_keyboard;
  23. al_install_mouse;
  24. al_set_color_depth(32);
  25. al_set_gfx_mode(Al_GFX_AUTODETECT_WINDOWED,ScreenWidth,ScreenHeight,0,0);
  26. al_show_mouse( al_screen );
  27. al_unscare_mouse();
  28. for i:=1 to 10 do
  29. begin
  30. for j:=1 to 10 do
  31. begin
  32. tab1[i][j]:=0;
  33. tab2[i][j]:=0;
  34. tab1_c[i][j]:=0;
  35. tab2_c[i][j]:=0;
  36. end;
  37. end;
  38. litery[1]:='A';
  39. litery[2]:='B';
  40. litery[3]:='C';
  41. litery[4]:='D';
  42. litery[5]:='E';
  43. litery[6]:='F';
  44. litery[7]:='G';
  45. litery[8]:='H';
  46. litery[9]:='I';
  47. litery[10]:='J';
  48. litery[11]:='1';
  49. litery[12]:='2';
  50. litery[13]:='3';
  51. litery[14]:='4';
  52. litery[15]:='5';
  53. litery[16]:='6';
  54. litery[17]:='7';
  55. litery[18]:='8';
  56. litery[19]:='9';
  57. litery[20]:='10';
  58. end;
  59.  
  60. procedure pozycja_myszki();
  61. begin
  62. if ((mx <> al_mouse_x) AND (my <> al_mouse_y) AND (mb <> al_mouse_b)) then
  63. begin
  64. mx:=al_mouse_x;
  65. my:=al_mouse_y;
  66. mb:=al_mouse_b;
  67. end;
  68. end;
  69.  
  70. procedure clear ();
  71. begin
  72. al_clear_to_color( al_screen, al_makecol( 0, 0, 0 ) );
  73. end;
  74.  
  75. procedure wyswietl(var tab : tablica; var tab_c:tablica; gracz : string; parametr : integer);
  76. var
  77. i, j : integer;
  78. begin
  79. al_textout_ex(al_screen, al_font,gracz, 350, 10, al_makecol(200,200,200), -1);
  80. for i:=1 to 10 do
  81. begin
  82. for j:=1 to 10 do
  83. begin
  84. if (tab_c[i][j]=0) then
  85. begin
  86. al_rectfill( al_screen, (i-1)*30+35, (j-1)*30+65, i*30+30, j*30+60, al_makecol( 128, 30, 30 ) );
  87. al_rect( al_screen, (i-1)*30+35, (j-1)*30+65, i*30+30, j*30+60, al_makecol( 128, 30, 30 ) );
  88. end;
  89. if (tab_c[i][j]=-1) then
  90. begin
  91. al_rectfill( al_screen, (i-1)*30+35, (j-1)*30+65, i*30+30, j*30+60, al_makecol( 0, 0, 0 ) );
  92. al_rect( al_screen, (i-1)*30+35, (j-1)*30+65, i*30+30, j*30+60, al_makecol( 200, 200, 200 ) );
  93. end;
  94. if (tab_c[i][j]=-2) then
  95. begin
  96. al_rectfill( al_screen, (i-1)*30+35, (j-1)*30+65, i*30+30, j*30+60, al_makecol( 200, 200, 200 ) );
  97. al_rect( al_screen, (i-1)*30+35, (j-1)*30+65, i*30+30, j*30+60, al_makecol( 200, 200, 200 ) );
  98. end;
  99. if (tab_c[i][j]=-3) then
  100. begin
  101. al_rectfill( al_screen, (i-1)*30+35, (j-1)*30+65, i*30+30, j*30+60, al_makecol( 255, 255, 0 ) );
  102. al_rect( al_screen, (i-1)*30+35, (j-1)*30+65, i*30+30, j*30+60, al_makecol( 200, 200, 200 ) );
  103. end;
  104. end;
  105. end;
  106. for i:=1 to 10 do
  107. begin
  108. for j:=1 to 10 do
  109. begin
  110. if (tab[i][j]=0) then
  111. begin
  112. al_rectfill( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 128, 30, 30 ) );
  113. al_rect( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 128, 30, 30 ) );
  114. end;
  115. if (tab[i][j]>0) then
  116. begin
  117. al_rectfill( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 200, 30, 30 ) );
  118. al_rect( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 200, 30, 30 ) );
  119. end;
  120. if (tab[i][j]=-1) then
  121. begin
  122. al_rectfill( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 0, 0, 0 ) );
  123. al_rect( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 200, 200, 200 ) );
  124. end;
  125. if ((tab[i][j]=-10) OR (tab[i][j]=-11)) then
  126. begin
  127. al_rectfill( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 0, 0, 0 ) );
  128. al_rect( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 200, 200, 200 ) );
  129. al_line( al_screen, (i-1)*30+435, (j-1)*30+65, i*30+430, j*30+60, al_makecol( 200, 200, 200 ) );
  130. al_line( al_screen, (i-1)*30+435, (j-1)*30+90, i*30+430, j*30+35, al_makecol( 200, 200, 200 ) );
  131. end;
  132. end;
  133. end;
  134. al_textout_ex(al_screen, al_font,'Twoje statki', 540, 30, al_makecol(200,200,200), -1);
  135. al_textout_ex(al_screen, al_font,'Twoje strzaly', 130, 30, al_makecol(200,200,200), -1);
  136. for i:=1 to 10 do
  137. begin
  138. al_textout_ex(al_screen, al_font,litery[i], (i-1)*30+44, 50, al_makecol(200,200,200), -1);
  139. al_textout_ex(al_screen, al_font,litery[i], (i-1)*30+444, 50, al_makecol(200,200,200), -1);
  140. end;
  141. for i:=11 to 20 do
  142. begin
  143. al_textout_ex(al_screen, al_font, litery[i], 15, (i-11)*30+73, al_makecol(200,200,200), -1);
  144. al_textout_ex(al_screen, al_font, litery[i], 415, (i-11)*30+73, al_makecol(200,200,200), -1);
  145. end;
  146. if (parametr>=-1) then
  147. begin
  148. al_textout_ex(al_screen, al_font,'Stworz:', 750, 50, al_makecol(200,200,200), -1);
  149. al_textout_ex(al_screen, al_font,'1x czteromasztowiec', 750, 70, al_makecol(200,200,200), -1);
  150. al_textout_ex(al_screen, al_font,'2x trojmasztowiec', 750, 90, al_makecol(200,200,200), -1);
  151. al_textout_ex(al_screen, al_font,'3x dwumasztowiec', 750, 110, al_makecol(200,200,200), -1);
  152. al_textout_ex(al_screen, al_font,'4x jednomasztowiec', 750, 130, al_makecol(200,200,200), -1);
  153. end;
  154. if (parametr>=0) then
  155. begin
  156. al_line( al_screen, 750, (parametr*20)+75, 900, (parametr*20)+75, al_makecol( 200, 200, 200 ) );
  157. end;
  158. if (parametr=-2) then
  159. begin
  160. al_textout_ex(al_screen, al_font,'Legenda:', 750, 70, al_makecol(200,200,200), -1);
  161. al_rectfill( al_screen, 750, 90 , 780, 120, al_makecol( 0, 0, 0 ) );
  162. al_rect( al_screen, 750, 90, 780, 120, al_makecol( 200, 200, 200 ) );
  163. al_textout_ex(al_screen, al_font,'-pudlo', 790, 105, al_makecol(200,200,200), -1);
  164. al_rectfill( al_screen, 750, 130 , 780, 160, al_makecol( 200, 200, 200 ) );
  165. al_rect( al_screen, 750, 130, 780, 160, al_makecol( 200, 200, 200 ) );
  166. al_textout_ex(al_screen, al_font,'-trafiony, niezatopiony', 790, 145, al_makecol(200,200,200), -1);
  167. al_rectfill( al_screen, 750, 170 , 780, 200, al_makecol( 255, 255 , 0 ) );
  168. al_rect( al_screen, 750, 170, 780, 200, al_makecol( 200, 200, 200 ) );
  169. al_textout_ex(al_screen, al_font,'-trafiony, zatopiony', 790, 185, al_makecol(200,200,200), -1);
  170. al_rectfill( al_screen, 750, 210 , 780, 240, al_makecol( 200, 30 , 30 ) );
  171. al_rect( al_screen, 750, 210, 780, 240, al_makecol( 200, 200, 200 ) );
  172. al_textout_ex(al_screen, al_font,'-twoj statek', 790, 225, al_makecol(200,200,200), -1);
  173. al_rectfill( al_screen, 750, 250, 780, 280, al_makecol( 0, 0, 0 ) );
  174. al_rect( al_screen, 750, 250, 780, 280, al_makecol( 200, 200, 200 ) );
  175. al_line( al_screen, 750, 250, 780, 280, al_makecol( 200, 200, 200 ) );
  176. al_line( al_screen, 750, 280, 780, 250, al_makecol( 200, 200, 200 ) );
  177. al_textout_ex(al_screen, al_font,'-strzaly przeciwnika', 790, 265, al_makecol(200,200,200), -1);
  178. end;
  179. end;
  180.  
  181. function warunek_tworzenia_1(var tab : tablica) : boolean;
  182. begin
  183. if ((tab[((mx-370)DIV 30)+1][((my-365)DIV 30)-1]=0)AND (tab[((mx-370)DIV 30)+1][((my-370)DIV 30)]=0) AND (tab[(((mx-370)DIV 30)+1)][(((my-370)DIV 30)+1)]=0) AND (tab[((mx-370)DIV 30)][((my-370)DIV 30)+1]=0) AND (tab[((mx-370)DIV 30)][((my-370)DIV 30)-1]=0) AND (tab[((mx-370)DIV 30)-1][((my-370)DIV 30)-1]=0) AND (tab[((mx-370)DIV 30)-1][((my-370)DIV 30)]=0) AND (tab[((mx-370)DIV 30)-1][((my-370)DIV 30)+1]=0)) then
  184. warunek_tworzenia_1:=true
  185. else
  186. warunek_tworzenia_1:=false;
  187. end;
  188.  
  189. function warunek_tworzenia_2 (var tab:tablica; i : integer) : boolean;
  190. begin
  191. if (((tab[(((mx-370)DIV 30)+1)][((my-370)DIV 30)]=i) OR (tab[((mx-370)DIV 30)][(((my-370)DIV 30)+1)]=i) OR (tab[((mx-370)DIV 30)][(((my-370)DIV 30)-1)]=i) OR (tab[(((mx-370)DIV 30)-1)][((my-370)DIV 30)]=i))AND (tab[(mx-370)DIV 30][(my-370)DIV 30]=0)) then
  192. warunek_tworzenia_2:=true
  193. else
  194. warunek_tworzenia_2:=false;
  195. end;
  196.  
  197. function przekroczenie_1( a: integer; b: integer; c: integer; d: integer):boolean;
  198. begin
  199. if ((mb=1) AND (((mx<a) OR (mx>b)) OR ((my<c) OR (my>d)))) then
  200. begin
  201. al_textout_ex(al_screen, al_font, 'Jestes poza plansza', 310, 450, al_makecol(200,200,200), -1);
  202. przekroczenie_1 :=true;
  203. end
  204. else
  205. begin
  206. al_textout_ex(al_screen, al_font, 'Jestes poza plansza', 310, 450, al_makecol(0,0,0), -1);
  207. przekroczenie_1:=false;
  208. end;
  209. end;
  210.  
  211. procedure tworzenie_4(var tab : tablica;var tab_c :tablica; gracz : string);
  212. var
  213. m, p, c : integer;
  214. begin
  215. m:=0;
  216. p:=0;
  217. c:=0;
  218. al_textout_ex(al_screen, al_font, 'Stworz 4 masztowiec', 310, 400, al_makecol(200,200,200), -1);
  219. wyswietl(tab,tab_c, gracz, -1);
  220. repeat
  221. begin
  222. repeat
  223. pozycja_myszki();
  224. przekroczenie_1(435,750,65,360);
  225. until ((mb=1)AND (przekroczenie_1(435,750,65,360)=false));
  226. if ((m=0) AND (p=0)) then
  227. begin
  228. if (warunek_tworzenia_1(tab)=true) then
  229. begin
  230. tab[((mx-370)DIV 30)][((my-370)DIV 30)]:=10;
  231. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(0,0,0), -1);
  232. m:=m+1;
  233. end;
  234. if (warunek_tworzenia_1(tab)=false) then
  235. begin
  236. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(200,200,200), -1);
  237. end;
  238. end
  239. else if ((m>0) AND (c=1)) then
  240. begin
  241. if (warunek_tworzenia_2(tab, 10)=true) then
  242. begin
  243. tab[((mx-370)DIV 30)][((my-370)DIV 30)]:=10;
  244. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(0,0,0), -1);
  245. m:=m+1;
  246. p:=1;
  247. end;
  248. if (warunek_tworzenia_2(tab, 10)=false) then
  249. begin
  250. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(200,200,200), -1);
  251. end;
  252. end;
  253. wyswietl(tab,tab_c, gracz,-1);
  254. end;
  255. c:=1;
  256. until (m=4);
  257. wyswietl(tab,tab_c, gracz,-1);
  258. end;
  259.  
  260. procedure tworzenie_3(var tab: tablica; var tab_c :tablica; gracz : string);
  261. var
  262. m, p, c, d : integer;
  263. begin
  264. al_textout_ex(al_screen, al_font, 'Stworz 4 masztowiec', 310, 400, al_makecol(0,0,0), -1);
  265. for d:=8 to 9 do
  266. begin
  267. wyswietl(tab,tab_c, gracz,0);
  268. m:=0;
  269. p:=0;
  270. c:=0;
  271. al_textout_ex(al_screen, al_font, 'Stworz 3 masztowiec', 310, 400, al_makecol(200,200,200), -1);
  272. wyswietl(tab,tab_c, gracz,0);
  273. repeat
  274. begin
  275. repeat
  276. pozycja_myszki();
  277. przekroczenie_1(435,750,65,360);
  278. until ((mb=1) AND (przekroczenie_1(435,750,65,360)=false));
  279. if ((m=0) AND (p=0)) then
  280. begin
  281. if (warunek_tworzenia_1(tab)=true) then
  282. begin
  283. tab[((mx-370)DIV 30)][((my-370)DIV 30)]:=d;
  284. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(0,0,0), -1);
  285. m:=m+1;
  286. end;
  287. if(warunek_tworzenia_1(tab)=false) then
  288. begin
  289. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(200,200,200), -1);
  290. end;
  291. end
  292. else if ((m>0) AND (c=1)) then
  293. begin
  294. if (warunek_tworzenia_2(tab, d)=true) then
  295. begin
  296. tab[((mx-370)DIV 30)][((my-370)DIV 30)]:=d;
  297. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(0,0,0), -1);
  298. m:=m+1;
  299. p:=1;
  300. end;
  301. if(warunek_tworzenia_2(tab, d)=false) then
  302. begin
  303. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(200,200,200), -1);
  304. end;
  305. end;
  306. wyswietl(tab,tab_c, gracz,0);
  307. end;
  308. c:=1;
  309. until (m=3);
  310. wyswietl(tab,tab_c, gracz,0);
  311. end;
  312. end;
  313.  
  314. procedure tworzenie_2(var tab:tablica; var tab_c : tablica; gracz:string);
  315. var
  316. m, p, c, b : integer;
  317. begin
  318. al_textout_ex(al_screen, al_font, 'Stworz 3 masztowiec', 310, 400, al_makecol(0,0,0), -1);
  319. for b:=5 to 7 do
  320. begin
  321. wyswietl(tab,tab_c, gracz,1);
  322. m:=0;
  323. p:=0;
  324. c:=0;
  325. al_textout_ex(al_screen, al_font, 'Stworz 2 masztowiec', 310, 400, al_makecol(200,200,200), -1);
  326. wyswietl(tab,tab_c, gracz,1);
  327. repeat
  328. begin
  329. repeat
  330. pozycja_myszki();
  331. przekroczenie_1(435,750,65,360);
  332. until ((mb=1)AND(przekroczenie_1(435,750,65,360)=false));
  333. if ((m=0) AND (p=0)) then
  334. begin
  335. if(warunek_tworzenia_1(tab)=true) then
  336. begin
  337. tab[((mx-370)DIV 30)][((my-370)DIV 30)]:=b;
  338. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(0,0,0), -1);
  339. m:=m+1;
  340. end;
  341. if(warunek_tworzenia_1(tab)=false) then
  342. begin
  343. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(200,200,200), -1);
  344. end;
  345. end
  346. else if ((m>0) AND (c=1)) then
  347. begin
  348. if(warunek_tworzenia_2(tab, b)=true)then
  349. begin
  350. tab[((mx-370)DIV 30)][((my-370)DIV 30)]:=b;
  351. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(0,0,0), -1);
  352. m:=m+1;
  353. p:=1;
  354. end;
  355. if (warunek_tworzenia_2(tab, b)=true) then
  356. begin
  357. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(200,200,200), -1);
  358. end;
  359. end;
  360. wyswietl(tab,tab_c, gracz,1);
  361. end;
  362. c:=1;
  363. until (m=2);
  364. wyswietl(tab,tab_c, gracz,1);
  365. end;
  366. end;
  367.  
  368. procedure tworzenie_1(var tab:tablica; var tab_c : tablica; gracz:string);
  369. var
  370. m, a : integer;
  371. begin
  372. al_textout_ex(al_screen, al_font, 'Stworz 2 masztowiec', 310, 400, al_makecol(0,0,0), -1);
  373. for a:=1 to 4 do
  374. begin
  375. wyswietl(tab,tab_c, gracz,2);
  376. m:=0;
  377. al_textout_ex(al_screen, al_font, 'Stworz 1 masztowiec', 310, 400, al_makecol(200,200,200), -1);
  378. wyswietl(tab,tab_c, gracz,2);
  379. repeat
  380. begin
  381. repeat
  382. pozycja_myszki();
  383. przekroczenie_1(435,750,65,360);
  384. until ((mb=1) AND (przekroczenie_1(435,750,65,360)=false));
  385. if (m=0) then
  386. begin
  387. if((warunek_tworzenia_1(tab)=true) AND (tab[((mx-370)DIV 30)][((my-370)DIV 30)]=0))then
  388. begin
  389. tab[((mx-370)DIV 30)][((my-370)DIV 30)]:=a;
  390. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(0,0,0), -1);
  391. m:=m+1;
  392. end;
  393. if(warunek_tworzenia_1(tab)=false) then
  394. begin
  395. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(200,200,200), -1);
  396. end;
  397. if (tab[((mx-370)DIV 30)][((my-370)DIV 30)]<>0) then
  398. begin
  399. al_textout_ex(al_screen, al_font, 'Tu jest statek', 310, 420, al_makecol(200,200,200), -1);
  400. end
  401. else
  402. begin
  403. al_textout_ex(al_screen, al_font, 'Tu jest statek', 310, 420, al_makecol(0,0,0), -1);
  404. end;
  405. end;
  406. wyswietl(tab,tab_c, gracz,2);
  407. end;
  408. until (m=1);
  409. wyswietl(tab,tab_c, gracz,2);
  410. end;
  411. wyswietl(tab,tab_c, gracz,3);
  412. delay(1000);
  413. end;
  414.  
  415. procedure tworzenie(var tab:tablica; var tab_c : tablica; gracz : string);
  416. begin
  417. tworzenie_4(tab,tab_c, gracz);
  418. tworzenie_3(tab,tab_c, gracz);
  419. tworzenie_2(tab,tab_c, gracz);
  420. tworzenie_1(tab,tab_c, gracz);
  421. end;
  422.  
  423.  
  424. procedure przerwa();
  425. var
  426. m: integer;
  427. begin
  428. al_clear_to_color( al_screen, al_makecol( 0, 0, 0 ) );
  429. for m:=20 downto 11 do
  430. begin
  431. al_textout_ex(al_screen, al_font, 'Zmiana zawodnika, masz sekund', 310, 300, al_makecol(200,200,200), -1);
  432. al_textout_ex(al_screen, al_font, litery[m], 500, 300, al_makecol(200,200,200), -1);
  433. delay(1000);
  434. al_clear_to_color( al_screen, al_makecol( 0, 0, 0 ) );
  435. end;
  436. al_clear_to_color( al_screen, al_makecol( 0, 0, 0 ) );
  437. end;
  438.  
  439. procedure powitalny();
  440. begin
  441. al_textout_centre_ex(al_screen,al_font,'WITAJ W GRZE W STATKI', ScreenWidth div 2, ScreenHeight div 3, al_makecol(200,200,200), -1);
  442. al_textout_ex(al_screen, al_font, 'Wykonal: Kamil Sobolewski Informatyka EAIIB 2015', 800, 700, al_makecol(200,200,200), -1);
  443. end;
  444.  
  445. function sprawdzenie ( var tab : tablica; a: integer; b: integer) : integer;
  446. begin
  447. if (tab[a][b]>0) then
  448. begin
  449. if (((tab[a+1][b]=0) OR (tab[a+1][b]=-10)) AND ((tab[a-1][b]=0) OR (tab[a-1][b]=-10)) AND ((tab[a][b+1]=0) OR (tab[a][b+1]=-10)) AND ((tab[a][b-1]=0)OR (tab[a][b-1]=-10)))then
  450. begin
  451. al_textout_ex(al_screen, al_font, 'Trafiony, niezatapiony!', 310, 420, al_makecol(0,0,0), -1);
  452. al_textout_ex(al_screen, al_font, 'Trafiony, zatopiony!', 310, 420, al_makecol(200,200,200), -1);
  453. tab[a][b]:=-11;
  454. sprawdzenie:=1;
  455. end
  456. else
  457. begin
  458. al_textout_ex(al_screen, al_font, 'Trafiony, niezatapiony!', 310, 420, al_makecol(200,200,200), -1);
  459. al_textout_ex(al_screen, al_font, 'Trafiony, zatopiony!', 310, 420, al_makecol(0,0,0), -1);
  460. tab[a][b]:=-10;
  461. sprawdzenie:=2;
  462. end;
  463. end
  464. else
  465. begin
  466. tab[a][b]:=-10;
  467. sprawdzenie:=3;
  468. al_textout_ex(al_screen, al_font, 'Pudlo!', 310, 420, al_makecol(200,200,200), -1);
  469. end;
  470. end;
  471.  
  472. procedure ruch ( var tab : tablica; var tab_c : tablica; var tab_wys : tablica;gracz: string);
  473. var
  474. m, a, b, i, check : integer;
  475. begin
  476. clear();
  477. m:=0;
  478. i:=0;
  479. wyswietl(tab_wys, tab_c, gracz,-2);
  480. al_textout_ex(al_screen, al_font, 'Twoj ruch, wybierz pole i strzelaj', 310, 400, al_makecol(200,200,200), -1);
  481. repeat
  482. begin
  483. mb:=0;
  484. repeat
  485. pozycja_myszki();
  486. przekroczenie_1(35, 350, 65, 360);
  487. until ((mb=1) AND (przekroczenie_1(35,350,65,360)=false));
  488. if ((tab_c[(mx-10)DIV 30][(my-35)DIV 30]<>-1) AND (tab_c[(mx-10) DIV 30][(my-35) DIV 30]<>-2) AND (tab_c[(mx-10) DIV 30][(my-35) DIV 30]<>-3)) then
  489. begin
  490. a:=((mx-10) DIV 30);
  491. b:=((my-35) DIV 30);
  492. check:=sprawdzenie(tab,a,b);
  493. if (check=1) then
  494. begin
  495. tab_c[a][b]:=-3;
  496. if (tab_c[a][b]=-3) then writeln(tab1_c[a][b]);
  497. if (tab[a+1][b]=-10) then tab_c[a+1][b]:=-3;
  498. if (tab[a-1][b]=-10) then tab_c[a-1][b]:=-3;
  499. if (tab[a][b+1]=-10) then tab_c[a][b+1]:=-3;
  500. if (tab[a][b-1]=-10) then tab_c[a][b-1]:=-3;
  501. end;
  502. if (check=2) then tab_c[a][b]:=-2;;
  503. if (check=3) then tab_c[a][b]:=-1;
  504. m:=1;
  505. if (i<>0) then
  506. begin
  507. al_textout_ex(al_screen, al_font, 'To pole bylo wybrane wczesniej', 310, 420, al_makecol(0,0,0), -1);
  508. end;
  509. end
  510. else
  511. begin
  512. al_textout_ex(al_screen, al_font, 'To pole bylo wybrane wczesniej', 310, 420, al_makecol(200,200,200), -1);
  513. end;
  514. i:=i+1;
  515. end;
  516. until (m=1);
  517. wyswietl(tab_wys, tab_c, gracz,-2);
  518. delay(1000);
  519. end;
  520.  
  521. function warunek_gry (tab1 : tablica; tab2 : tablica) : boolean;
  522. var
  523. i, j : integer;
  524. licznik1, licznik2 : integer;
  525. begin
  526. licznik1:=0;
  527. licznik2:=0;
  528. for i:=1 to 10 do
  529. begin
  530. for j:=1 to 10 do
  531. begin
  532. if (tab1[i][j]<0) then licznik1:=licznik1+1;
  533. if (tab2[i][j]<0) then licznik2:=licznik2+1;
  534. end;
  535. end;
  536.  
  537. if ((licznik1=100) OR (licznik2=100)) then warunek_gry:=false
  538. else warunek_gry:=true;
  539.  
  540.  
  541. end;
  542.  
  543. begin
  544. inicjalizuj();
  545. powitalny();
  546. delay(3000);
  547. clear();
  548. wyswietl(tab1,tab1_c, 'Gracz 1.',-1);
  549. tworzenie(tab1,tab1_c, 'Gracz 1.');
  550. przerwa();
  551. wyswietl(tab2,tab2_c, 'Gracz 2.', -1);
  552. tworzenie(tab2,tab2_c, 'Gracz 2.');
  553. przerwa();
  554. repeat
  555. ruch(tab2, tab1_c, tab1, 'Gracz 1.');
  556. delay(1500);
  557. przerwa();
  558. clear();
  559. ruch(tab1, tab2_c, tab2, 'Gracz 2.');
  560. delay(1500);
  561. przerwa();
  562. clear();
  563. until (warunek_gry(tab1, tab2)=false);
  564. al_readkey;
  565. al_exit();
  566. 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!