API tools faq
paste
Advertisement
Coriic

STATKI 03.01 17.00

Coriic
Jan 3rd, 2016
83
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 24.23 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..11,-1..11] 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, tryb : 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:=0 to 11 do
  29. begin
  30. for j:=0 to 11 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_c (var tab : tablica);
  76. var
  77. i, j : integer;
  78. begin
  79. for i:=1 to 10 do
  80. begin
  81. for j:=1 to 10 do
  82. begin
  83. if (tab[i][j]>0) then
  84. begin
  85. al_rectfill( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 200, 30, 30 ) );
  86. al_rect( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 200, 30, 30 ) );
  87. end;
  88. end;
  89. end;
  90. end;
  91.  
  92. procedure wyswietl (var tab : tablica; var tab_c:tablica; gracz : string; parametr : integer);
  93. var
  94. i, j : integer;
  95. begin
  96. al_textout_ex(al_screen, al_font,gracz, 350, 10, al_makecol(200,200,200), -1);
  97. for i:=1 to 10 do
  98. begin
  99. for j:=1 to 10 do
  100. begin
  101. if (tab_c[i][j]=0) then
  102. begin
  103. al_rectfill( al_screen, (j-1)*30+35, (i-1)*30+65, j*30+30, i*30+60, al_makecol( 128, 30, 30 ) );
  104. al_rect( al_screen, (j-1)*30+35, (i-1)*30+65, j*30+30, i*30+60, al_makecol( 128, 30, 30 ) );
  105. end;
  106. if (tab_c[i][j]=-1) then
  107. begin
  108. al_rectfill( al_screen, (j-1)*30+35, (i-1)*30+65, j*30+30, i*30+60, al_makecol( 0, 0, 0 ) );
  109. al_rect( al_screen, (j-1)*30+35, (i-1)*30+65, j*30+30, i*30+60, al_makecol( 200, 200, 200 ) );
  110. end;
  111. if (tab_c[i][j]=-2) then
  112. begin
  113. al_rectfill( al_screen, (j-1)*30+35, (i-1)*30+65, j*30+30, i*30+60, al_makecol( 200, 200, 200 ) );
  114. al_rect( al_screen, (j-1)*30+35, (i-1)*30+65, j*30+30, i*30+60, al_makecol( 200, 200, 200 ) );
  115. end;
  116. if (tab_c[i][j]=-3) then
  117. begin
  118. al_rectfill( al_screen, (j-1)*30+35, (i-1)*30+65, j*30+30, i*30+60, al_makecol( 255, 255, 0 ) );
  119. al_rect( al_screen, (j-1)*30+35, (i-1)*30+65, j*30+30, i*30+60, al_makecol( 200, 200, 200 ) );
  120. end;
  121. end;
  122. end;
  123. for i:=1 to 10 do
  124. begin
  125. for j:=1 to 10 do
  126. begin
  127. if (tab[i][j]=0) then
  128. begin
  129. al_rectfill( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 128, 30, 30 ) );
  130. al_rect( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 128, 30, 30 ) );
  131. end;
  132. if (tab[i][j]>0) then
  133. begin
  134. al_rectfill( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 200, 30, 30 ) );
  135. al_rect( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 200, 30, 30 ) );
  136. end;
  137. if (tab[i][j]=-1) then
  138. begin
  139. al_rectfill( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 0, 0, 0 ) );
  140. al_rect( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 200, 200, 200 ) );
  141. end;
  142. if ((tab[i][j]=-10) OR (tab[i][j]=-11)) then
  143. begin
  144. al_rectfill( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 0, 0, 0 ) );
  145. al_rect( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 200, 200, 200 ) );
  146. al_line( al_screen, (j-1)*30+435, (i-1)*30+65, j*30+430, i*30+60, al_makecol( 200, 200, 200 ) );
  147. al_line( al_screen, (j-1)*30+435, (i-1)*30+90, j*30+430, i*30+35, al_makecol( 200, 200, 200 ) );
  148. end;
  149. end;
  150. end;
  151. al_textout_ex(al_screen, al_font,'Twoje statki', 540, 30, al_makecol(200,200,200), -1);
  152. al_textout_ex(al_screen, al_font,'Twoje strzaly', 130, 30, al_makecol(200,200,200), -1);
  153. for i:=1 to 10 do
  154. begin
  155. al_textout_ex(al_screen, al_font,litery[i], (i-1)*30+44, 50, al_makecol(200,200,200), -1);
  156. al_textout_ex(al_screen, al_font,litery[i], (i-1)*30+444, 50, al_makecol(200,200,200), -1);
  157. end;
  158. for i:=11 to 20 do
  159. begin
  160. al_textout_ex(al_screen, al_font, litery[i], 15, (i-11)*30+73, al_makecol(200,200,200), -1);
  161. al_textout_ex(al_screen, al_font, litery[i], 415, (i-11)*30+73, al_makecol(200,200,200), -1);
  162. end;
  163. if (parametr>=-1) then
  164. begin
  165. al_textout_ex(al_screen, al_font,'Stworz:', 750, 50, al_makecol(200,200,200), -1);
  166. al_textout_ex(al_screen, al_font,'1x czteromasztowiec', 750, 70, al_makecol(200,200,200), -1);
  167. al_textout_ex(al_screen, al_font,'2x trojmasztowiec', 750, 90, al_makecol(200,200,200), -1);
  168. al_textout_ex(al_screen, al_font,'3x dwumasztowiec', 750, 110, al_makecol(200,200,200), -1);
  169. al_textout_ex(al_screen, al_font,'4x jednomasztowiec', 750, 130, al_makecol(200,200,200), -1);
  170. end;
  171. if (parametr>=0) then
  172. begin
  173. al_line( al_screen, 750, (parametr*20)+75, 900, (parametr*20)+75, al_makecol( 200, 200, 200 ) );
  174. end;
  175. if (parametr=-2) then
  176. begin
  177. al_textout_ex(al_screen, al_font,'Legenda:', 750, 70, al_makecol(200,200,200), -1);
  178. al_rectfill( al_screen, 750, 90 , 780, 120, al_makecol( 0, 0, 0 ) );
  179. al_rect( al_screen, 750, 90, 780, 120, al_makecol( 200, 200, 200 ) );
  180. al_textout_ex(al_screen, al_font,'-pudlo', 790, 105, al_makecol(200,200,200), -1);
  181. al_rectfill( al_screen, 750, 130 , 780, 160, al_makecol( 200, 200, 200 ) );
  182. al_rect( al_screen, 750, 130, 780, 160, al_makecol( 200, 200, 200 ) );
  183. al_textout_ex(al_screen, al_font,'-trafiony, niezatopiony', 790, 145, al_makecol(200,200,200), -1);
  184. al_rectfill( al_screen, 750, 170 , 780, 200, al_makecol( 255, 255 , 0 ) );
  185. al_rect( al_screen, 750, 170, 780, 200, al_makecol( 200, 200, 200 ) );
  186. al_textout_ex(al_screen, al_font,'-trafiony, zatopiony', 790, 185, al_makecol(200,200,200), -1);
  187. al_rectfill( al_screen, 750, 210 , 780, 240, al_makecol( 200, 30 , 30 ) );
  188. al_rect( al_screen, 750, 210, 780, 240, al_makecol( 200, 200, 200 ) );
  189. al_textout_ex(al_screen, al_font,'-twoj statek', 790, 225, al_makecol(200,200,200), -1);
  190. al_rectfill( al_screen, 750, 250, 780, 280, al_makecol( 0, 0, 0 ) );
  191. al_rect( al_screen, 750, 250, 780, 280, al_makecol( 200, 200, 200 ) );
  192. al_line( al_screen, 750, 250, 780, 280, al_makecol( 200, 200, 200 ) );
  193. al_line( al_screen, 750, 280, 780, 250, al_makecol( 200, 200, 200 ) );
  194. al_textout_ex(al_screen, al_font,'-strzaly przeciwnika', 790, 265, al_makecol(200,200,200), -1);
  195. end;
  196. al_rectfill( al_screen, 10, 660 , 100, 710, al_makecol( 0, 0, 0 ) );
  197. al_rect( al_screen, 10, 660, 100, 710, al_makecol( 200, 200, 200 ) );
  198. al_textout_ex(al_screen, al_font,'Wyjdz', 35, 685, al_makecol(200,200,200), -1);
  199. end;
  200.  
  201. function warunek_tworzenia_1(var tab : tablica; d : integer) : boolean;
  202. begin
  203. if (((tab[((my-65)DIV 30)+2][((mx-435)DIV 30)]=d) OR (tab[((my-65)DIV 30)+2][((mx-435)DIV 30)]=0)) AND ((tab[((my-65)DIV 30)+2][((mx-435)DIV 30)+1]=d) OR (tab[((my-65)DIV 30)+2][((mx-435)DIV 30)+1]=0)) AND ((tab[((my-65)DIV 30)+2][((mx-435)DIV 30)+2]=d) OR (tab[((my-65)DIV 30)+2][((mx-435)DIV 30)+2]=0)) AND ((tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+2]=d) OR (tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+2]=0)) AND ((tab[((my-65)DIV 30)+1][((mx-435)DIV 30)]=d) OR (tab[((my-65)DIV 30)+1][((mx-435)DIV 30)]=0)) AND ((tab[((my-65)DIV 30)][((mx-435)DIV 30)]=d) OR (tab[((my-65)DIV 30)][((mx-435)DIV 30)]=0)) AND ((tab[((my-65)DIV 30)][((mx-435)DIV 30)+1]=d) OR (tab[((my-65)DIV 30)][((mx-435)DIV 30)+1]=0)) AND ((tab[((my-65)DIV 30)][((mx-435)DIV 30)+2]=d)OR (tab[((my-65)DIV 30)][((mx-435)DIV 30)+2]=0)))then
  204. warunek_tworzenia_1:=true
  205. else
  206. warunek_tworzenia_1:=false;
  207. end;
  208.  
  209. function warunek_tworzenia_2 (var tab:tablica; i : integer) : boolean;
  210. begin
  211. if (((tab[((my-65)DIV 30)+2][((mx-435)DIV 30)+1]=i) OR (tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+2]=i) OR (tab[((my-65)DIV 30)+1][((mx-435)DIV 30)]=i) OR (tab[((my-65)DIV 30)][((mx-435)DIV 30)+1]=i))AND (tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]=0)) then
  212. warunek_tworzenia_2:=true
  213. else
  214. warunek_tworzenia_2:=false;
  215. end;
  216.  
  217. procedure koniec(wygrany : string);
  218. begin
  219. al_textout_centre_ex(al_screen,al_font,'KONIEC GRY', ScreenWidth div 2, ScreenHeight div 3, al_makecol(200,200,200), -1);
  220. al_textout_centre_ex(al_screen,al_font,'Wygral:', ScreenWidth div 2-30, ScreenHeight div 3+15, al_makecol(200,200,200), -1);
  221. al_textout_centre_ex(al_screen,al_font,wygrany, (ScreenWidth div 2)+42, ScreenHeight div 3+15, al_makecol(200,200,200), -1);
  222. al_readkey;
  223. halt;
  224. end;
  225.  
  226. function przekroczenie_1( a: integer; b: integer; c: integer; d: integer):boolean;
  227. begin
  228. if ((mb=1) AND (((mx<a) OR (mx>b)) OR ((my<c) OR (my>d)))) then
  229. begin
  230. al_textout_ex(al_screen, al_font, 'Jestes poza plansza', 310, 450, al_makecol(200,200,200), -1);
  231. przekroczenie_1 :=true;
  232. if ((mx>10) AND (mx<100) AND(my>660) AND (my<710)) then
  233. begin
  234. al_rectfill( al_screen, 10, 660 , 100, 710, al_makecol( 200, 200, 200 ) );
  235. al_rect( al_screen, 10, 660, 100, 710, al_makecol( 200, 200, 200 ) );
  236. al_textout_ex(al_screen, al_font,'Wyjdz', 35, 685, al_makecol(0,0,0), -1);
  237. delay(500);
  238. clear();
  239. koniec('pies');
  240. end;
  241. end
  242. else
  243. begin
  244. al_textout_ex(al_screen, al_font, 'Jestes poza plansza', 310, 450, al_makecol(0,0,0), -1);
  245. przekroczenie_1:=false;
  246. end;
  247. end;
  248.  
  249. procedure tworzenie_4(var tab : tablica;var tab_c :tablica; gracz : string);
  250. var
  251. m : integer;
  252. begin
  253. m:=0;
  254. al_textout_ex(al_screen, al_font, 'Stworz 4 masztowiec', 310, 400, al_makecol(200,200,200), -1);
  255. wyswietl(tab,tab_c, gracz, -1);
  256. repeat
  257. begin
  258. mb:=0;
  259. repeat
  260. pozycja_myszki();
  261. przekroczenie_1(435,750,65,360);
  262. until ((mb=1)AND (przekroczenie_1(435,750,65,360)=false));
  263. if (m=0) then
  264. begin
  265. tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]:=10;
  266. m:=m+1;
  267. al_rectfill( al_screen, 240, 415 , 800, 440, al_makecol( 0, 0, 0 ) );
  268. end
  269. else
  270. begin
  271. if (warunek_tworzenia_2(tab, 10)=true) then
  272. begin
  273. tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]:=10;
  274. m:=m+1;
  275. al_rectfill( al_screen, 240, 415 , 800, 440, al_makecol( 0, 0, 0 ) );
  276. end
  277. else if (warunek_tworzenia_2(tab, 10)=false) then
  278. begin
  279. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(200,200,200), -1);
  280. end;
  281. end;
  282. end;
  283. wyswietl_c(tab);
  284. until (m=4);
  285. wyswietl_c(tab);
  286. end;
  287.  
  288. procedure tworzenie_3(var tab: tablica; var tab_c :tablica; gracz : string);
  289. var
  290. m, d, p : integer;
  291. begin
  292. al_textout_ex(al_screen, al_font, 'Stworz 4 masztowiec', 310, 400, al_makecol(0,0,0), -1);
  293. for d:=8 to 9 do
  294. begin
  295. wyswietl(tab,tab_c, gracz,0);
  296. m:=0;
  297. al_textout_ex(al_screen, al_font, 'Stworz 3 masztowiec', 310, 400, al_makecol(200,200,200), -1);
  298. wyswietl_c(tab);
  299. repeat
  300. begin
  301. mb:=0;
  302. repeat
  303. pozycja_myszki();
  304. przekroczenie_1(435,750,65,360);
  305. until ((mb=1) AND (przekroczenie_1(435,750,65,360)=false));
  306. if (warunek_tworzenia_1(tab, d)=true) then
  307. begin
  308. tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]:=d;
  309. al_rectfill( al_screen, 240, 415 , 800, 440, al_makecol( 0, 0, 0 ) );
  310. m:=m+1;
  311. end
  312. else if(warunek_tworzenia_1(tab, d)=false) then
  313. begin
  314. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(200,200,200), -1);
  315. p:=1
  316. end;
  317. if(p=0) then
  318. begin
  319. if (warunek_tworzenia_2(tab, d)=true) then
  320. begin
  321. tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]:=d;
  322. al_rectfill( al_screen, 240, 415 , 800, 440, al_makecol( 0, 0, 0 ) );
  323. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(0,0,0), -1);
  324. m:=m+1;
  325. end
  326. else if(warunek_tworzenia_2(tab, d)=false) then
  327. begin
  328. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(200,200,200), -1);
  329. end;
  330. end;
  331. wyswietl_c(tab);
  332. end;
  333. p:=0;
  334. until (m=3);
  335. wyswietl_c(tab);
  336. end;
  337. end;
  338.  
  339. procedure tworzenie_2(var tab:tablica; var tab_c : tablica; gracz:string);
  340. var
  341. m, p, b : integer;
  342. begin
  343. al_textout_ex(al_screen, al_font, 'Stworz 3 masztowiec', 310, 400, al_makecol(0,0,0), -1);
  344. for b:=5 to 7 do
  345. begin
  346. wyswietl(tab,tab_c, gracz,1);
  347. m:=0;
  348. al_textout_ex(al_screen, al_font, 'Stworz 2 masztowiec', 310, 400, al_makecol(200,200,200), -1);
  349. wyswietl_c(tab);
  350. repeat
  351. begin
  352. mb:=0;
  353. repeat
  354. pozycja_myszki();
  355. przekroczenie_1(435,750,65,360);
  356. until ((mb=1)AND(przekroczenie_1(435,750,65,360)=false));
  357. if(warunek_tworzenia_1(tab, b)=true) then
  358. begin
  359. tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]:=b;
  360. al_rectfill( al_screen, 240, 415 , 800, 440, al_makecol( 0, 0, 0 ) );
  361. m:=m+1;
  362. end
  363. else if(warunek_tworzenia_1(tab, b)=false) then
  364. begin
  365. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(200,200,200), -1);
  366. p:=1;
  367. end;
  368. if (p=0) then
  369. begin
  370. if(warunek_tworzenia_2(tab, b)=true)then
  371. begin
  372. tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]:=b;
  373. al_rectfill( al_screen, 240, 415 , 800, 440, al_makecol( 0, 0, 0 ) );
  374. m:=m+1;
  375. p:=1;
  376. end
  377. else if (warunek_tworzenia_2(tab, b)=false) then
  378. begin
  379. al_textout_ex(al_screen, al_font, 'Statek musi byc polaczony', 250, 420, al_makecol(200,200,200), -1);
  380. end;
  381. end;
  382. wyswietl_c(tab);
  383. end;
  384. p:=1;
  385. until (m=2);
  386. wyswietl_c(tab);
  387. end;
  388. end;
  389.  
  390. procedure tworzenie_1(var tab:tablica; var tab_c : tablica; gracz:string);
  391. var
  392. m, a : integer;
  393. begin
  394. al_textout_ex(al_screen, al_font, 'Stworz 2 masztowiec', 310, 400, al_makecol(0,0,0), -1);
  395. for a:=1 to 4 do
  396. begin
  397. wyswietl(tab,tab_c, gracz,2);
  398. m:=0;
  399. al_textout_ex(al_screen, al_font, 'Stworz 1 masztowiec', 310, 400, al_makecol(200,200,200), -1);
  400. wyswietl_c(tab);
  401. repeat
  402. begin
  403. mb:=0;
  404. repeat
  405. pozycja_myszki();
  406. przekroczenie_1(435,750,65,360);
  407. until ((mb=1) AND (przekroczenie_1(435,750,65,360)=false));
  408. if((warunek_tworzenia_1(tab,a)=true) AND (tab[((mx-370)DIV 30)][((my-370)DIV 30)]=0))then
  409. begin
  410. tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]:=a;
  411. al_rectfill( al_screen, 240, 415 , 800, 440, al_makecol( 0, 0, 0 ) );
  412. m:=m+1;
  413. end
  414. else if(warunek_tworzenia_1(tab,a)=false) then
  415. begin
  416. al_textout_ex(al_screen, al_font, 'Nowo utworzony statek nie moze dotykac statku wczesniej utworzonego', 310, 420, al_makecol(200,200,200), -1);
  417. end;
  418. if (tab[((my-65)DIV 30)+1][((mx-435)DIV 30)+1]<>0) then
  419. begin
  420. al_rectfill( al_screen, 240, 415 , 800, 440, al_makecol( 0, 0, 0 ) );
  421. end
  422. else
  423. begin
  424. al_textout_ex(al_screen, al_font, 'Tu jest statek', 310, 420, al_makecol(0,0,0), -1);
  425. end;
  426. end;
  427. wyswietl_c(tab);
  428. until (m=1);
  429. wyswietl_c(tab);
  430. end;
  431. wyswietl_c(tab);
  432. delay(1000);
  433. end;
  434.  
  435. procedure tworzenie(var tab:tablica; var tab_c : tablica; gracz : string);
  436. begin
  437. tworzenie_4(tab,tab_c, gracz);
  438. tworzenie_3(tab,tab_c, gracz);
  439. tworzenie_2(tab,tab_c, gracz);
  440. tworzenie_1(tab,tab_c, gracz);
  441. end;
  442.  
  443.  
  444. procedure przerwa();
  445. var
  446. m: integer;
  447. begin
  448. al_clear_to_color( al_screen, al_makecol( 0, 0, 0 ) );
  449. for m:=20 downto 11 do
  450. begin
  451. al_textout_ex(al_screen, al_font, 'Zmiana zawodnika, masz sekund', 310, 300, al_makecol(200,200,200), -1);
  452. al_textout_ex(al_screen, al_font, litery[m], 500, 300, al_makecol(200,200,200), -1);
  453. delay(1000);
  454. al_clear_to_color( al_screen, al_makecol( 0, 0, 0 ) );
  455. end;
  456. al_clear_to_color( al_screen, al_makecol( 0, 0, 0 ) );
  457. end;
  458.  
  459. function powitalny() : byte;
  460. begin
  461. 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);
  462. al_textout_ex(al_screen, al_font, 'Wykonal: Kamil Sobolewski Informatyka EAIIB 2015', 800, 700, al_makecol(200,200,200), -1);
  463. al_rectfill( al_screen, 470, 270 , 730, 320, al_makecol( 0, 0, 0 ) );
  464. al_rect( al_screen, 470, 270, 730, 320, al_makecol( 200, 200, 200 ) );
  465. al_textout_ex(al_screen, al_font, 'Gra z innym uzytkownikiem', 500, 295, al_makecol(200,200,200), -1);
  466. al_rectfill( al_screen, 470, 330 , 730, 380, al_makecol( 0, 0, 0 ) );
  467. al_rect( al_screen, 470, 330, 730, 390, al_makecol( 200, 200, 200 ) );
  468. al_textout_ex(al_screen, al_font, 'Gra z komputerem', 540, 360, al_makecol(200,200,200), -1);
  469. repeat
  470. pozycja_myszki();
  471. if((mx>470) AND (mx<730) AND (my<320) AND (my>270))then
  472. begin
  473. al_rectfill( al_screen, 470, 270 , 730, 320, al_makecol( 200, 200, 200 ) );
  474. al_rect( al_screen, 470, 270, 730, 320, al_makecol( 200, 200, 200 ) );
  475. al_textout_ex(al_screen, al_font, 'Gra z innym uzytkownikiem', 500, 295, al_makecol(0,0,0), -1);
  476. end;
  477. if((mx>470) AND (mx<730) AND (my<390) AND (my>330))then
  478. begin
  479. al_rectfill( al_screen, 470, 330 , 730, 390, al_makecol( 200, 200, 200 ) );
  480. al_rect( al_screen, 470, 330, 730, 390, al_makecol( 200, 200, 200 ) );
  481. al_textout_ex(al_screen, al_font, 'Gra z komputerem', 540, 360, al_makecol(0,0,0), -1);
  482. end;
  483. until (mb=1);
  484. if((mx>470) AND (mx<730) AND (my<390) AND (my>330))then
  485. begin
  486. powitalny:=2;
  487. end;
  488. if((mx>470) AND (mx<730) AND (my<320) AND (my>270))then
  489. begin
  490. powitalny:=1;
  491. end;
  492. end;
  493.  
  494. function sprawdzenie ( var tab : tablica; a: integer; b: integer) : integer;
  495. begin
  496. if (tab[a][b]>0) then
  497. begin
  498. 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
  499. begin
  500. al_textout_ex(al_screen, al_font, 'Trafiony, niezatapiony!', 310, 420, al_makecol(0,0,0), -1);
  501. al_textout_ex(al_screen, al_font, 'Trafiony, zatopiony!', 310, 420, al_makecol(200,200,200), -1);
  502. tab[a][b]:=-11;
  503. sprawdzenie:=1;
  504. end
  505. else
  506. begin
  507. al_textout_ex(al_screen, al_font, 'Trafiony, niezatapiony!', 310, 420, al_makecol(200,200,200), -1);
  508. al_textout_ex(al_screen, al_font, 'Trafiony, zatopiony!', 310, 420, al_makecol(0,0,0), -1);
  509. tab[a][b]:=-10;
  510. sprawdzenie:=2;
  511. end;
  512. end
  513. else
  514. begin
  515. tab[a][b]:=-10;
  516. sprawdzenie:=3;
  517. al_textout_ex(al_screen, al_font, 'Pudlo!', 310, 420, al_makecol(200,200,200), -1);
  518. end;
  519. end;
  520.  
  521. procedure ruch ( var tab : tablica; var tab_c : tablica; var tab_wys : tablica;gracz: string);
  522. var
  523. m, a, b, i, iterator1,iterator2, check : integer;
  524. begin
  525. clear();
  526. m:=0;
  527. i:=0;
  528. wyswietl(tab_wys, tab_c, gracz,-2);
  529. al_textout_ex(al_screen, al_font, 'Twoj ruch, wybierz pole i strzelaj', 310, 400, al_makecol(200,200,200), -1);
  530. repeat
  531. begin
  532. mb:=0;
  533. repeat
  534. pozycja_myszki();
  535. przekroczenie_1(35, 350, 65, 360);
  536. until ((mb=1) AND (przekroczenie_1(35,350,65,360)=false));
  537. if ((tab_c[((my-65)DIV 30)+1][((mx-35)DIV 30)+1]<>-1) AND (tab_c[((my-65)DIV 30)+1][((mx-35) DIV 30)+1]<>-2) AND (tab_c[((my-65)DIV 30)+1][((mx-35) DIV 30)+1]<>-3)) then
  538. begin
  539. a:=((my-65)DIV 30)+1;
  540. b:=((mx-35) DIV 30)+1;
  541. check:=sprawdzenie(tab,a,b);
  542. if (check=1) then
  543. begin
  544. tab_c[a][b]:=-3;
  545. for iterator1:=-3 to 3 do
  546. begin
  547. for iterator2:=-3 to 3 do
  548. begin
  549. if(tab[a+iterator1][b+iterator2]=-10) then
  550. begin
  551. if ((a+iterator1>11) OR (a+iterator1<0) OR (b+iterator2>11) OR (b+iterator2<0)) then
  552. break;
  553. tab[a+iterator1][b+iterator2]:=-11;
  554. tab_c[a+iterator1][b+iterator2]:=-3;
  555. end;
  556. end;
  557. end;
  558. end;
  559. if (check=2) then tab_c[a][b]:=-2;;
  560. if (check=3) then tab_c[a][b]:=-1;
  561. m:=1;
  562. if (i<>0) then
  563. begin
  564. al_textout_ex(al_screen, al_font, 'To pole bylo wybrane wczesniej', 310, 420, al_makecol(0,0,0), -1);
  565. end;
  566. end
  567. else
  568. begin
  569. al_textout_ex(al_screen, al_font, 'To pole bylo wybrane wczesniej', 310, 420, al_makecol(200,200,200), -1);
  570. end;
  571. i:=i+1;
  572. end;
  573. until (m=1);
  574. wyswietl(tab_wys, tab_c, gracz,-2);
  575. delay(1000);
  576. end;
  577.  
  578. function warunek_gry (tab1 : tablica; tab2 : tablica) : integer;
  579. var
  580. i, j : integer;
  581. licznik1, licznik2 : integer;
  582. begin
  583. licznik1:=0;
  584. licznik2:=0;
  585. for i:=1 to 10 do
  586. begin
  587. for j:=1 to 10 do
  588. begin
  589. if (tab1[i][j]<=0) then licznik1:=licznik1+1;
  590. if (tab2[i][j]<=0) then licznik2:=licznik2+1;
  591. end;
  592. end;
  593. if (licznik1=100) then warunek_gry:=0;
  594. if (licznik2=100) then warunek_gry:=1;
  595. if((licznik1<>100) AND (licznik2<>100))then warunek_gry:=2;
  596. end;
  597.  
  598. procedure dwoch_graczy ();
  599. var
  600. wygrany : string;
  601. warunek : integer;
  602. begin
  603. wyswietl(tab1,tab1_c, 'Gracz 1.',-1);
  604. tworzenie(tab1,tab1_c, 'Gracz 1.');
  605. przerwa();
  606. wyswietl(tab2,tab2_c, 'Gracz 2.', -1);
  607. tworzenie(tab2,tab2_c, 'Gracz 2.');
  608. przerwa();
  609. warunek:=5;
  610. repeat
  611. ruch(tab2, tab1_c, tab1, 'Gracz 1.');
  612. warunek:=warunek_gry(tab1,tab2);
  613. if((warunek=0) OR (warunek=1)) then break;
  614. delay(1500);
  615. przerwa();
  616. clear();
  617. ruch(tab1, tab2_c, tab2, 'Gracz 2.');
  618. delay(1500);
  619. warunek:=warunek_gry(tab1,tab2);
  620. if((warunek=0) OR (warunek=1)) then break;
  621. przerwa();
  622. clear();
  623. until ((warunek=0) OR (warunek=1));
  624. if (warunek_gry(tab1, tab2)=0) then wygrany:='Gracz 2.';
  625. if (warunek_gry(tab1, tab2)=1) then wygrany:='Gracz 1.';
  626. clear();
  627. koniec(wygrany);
  628. end;
  629.  
  630. procedure komputer ();
  631. begin
  632. al_textout_ex(al_screen, al_font, 'Robim co mozem', 310, 420, al_makecol(200,200,200), -1);
  633. {wyswietl(tab1,tab1_c, 'Gracz 1.',-1);
  634. tworzenie(tab1,tab1_c, 'Gracz 1.');}
  635.  
  636.  
  637. end;
  638.  
  639. begin
  640. inicjalizuj();
  641. tryb:=powitalny();
  642. delay(500);
  643. clear();
  644. case tryb of
  645. 1 : dwoch_graczy();
  646. 2 : komputer();
  647. end;
  648. al_readkey;
  649. al_exit();
  650. 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!