membuat game pascal 1

Membuat game dengan pascalDiposkan oleh miftahul 'ulum di 16:22
Sedikit refresh buat Mhs Matematika Unsyiah dengan membuat sebuah game..
Program Game;Uses crt;Var field : array [1..80,1..25] of boolean;
procedure init_field;var i : longint;beginclrscr; fillchar(field,sizeof(field),0);for i := 3 to 22 dobegingotoxy(20,i); write(#186); field[20,i] := true;gotoxy(36,i); write(#186); field[36,i] := true;gotoxy(60,i); write(#186); field[60,i] := true;gotoxy(76,i); write(#186); field[76,i] := true;end;for i := 1 to 15 dobegingotoxy(20+i,23); write(#205);field[19+i,23] := true;gotoxy(60+i,23); write(#205);field[59+i,23] := true;end;gotoxy(20,23); write(#200);gotoxy(60,23); write(#200);gotoxy(36,23); write(#188);gotoxy(76,23); write(#188);gotoxy(6,4); write('Next:');gotoxy(46,4); write('Next:');end;
type _points = array [1..4] of recordx, y : longint;end;type...tetris = recordpoints : _points;cshape,nshape,xmodel,xtetris,ymodel,ytetris: longint;end;var...tetris1, tetris2, ttetris : tetris;
Const template : array [1..8] of _points =(((x:1; y:1),(x:1; y:2),(x:2; y:1),(x:2; y:2)),((x:2; y:1),(x:1; y:1),(x:3; y:1),(x:4; y:1)),((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:3)),((x:2; y:2),(x:2; y:1),(x:2; y:3),(x:1; y:3)),((x:1; y:2),(x:1; y:1),(x:2; y:2),(x:2; y:3)),((x:1; y:2),(x:2; y:1),(x:2; y:2),(x:1; y:3)),((x:1; y:2),(x:1; y:1),(x:1; y:3),(x:2; y:2)),((x:1; y:2),(x:2; y:1),(x:2; y:2),(x:2; y:3)));
procedure init_tetris(var objek : tetris; id : longint);beginobjek.nshape := random(8) + 1;if id = 1 thenbeginobjek.xmodel := 7; objek.xtetris := 26;end else beginobjek.xmodel := 47; objek.xtetris := 66;end;objek.ymodel := 5; objek.ytetris := 2;dropnew(objek);end;
Procedure drawtetris(objek : tetris; mode : Boolean);Var I : longint;C : char;BeginIf mode then c := #178 else c := ‘ ‘;For I := 1 to 4 doBeginGotoxy(objek.tpoints[i].x, objek.tpoints[i].y);Write(c);Field[objek.tpoints[i].x,objek.tpoints[i].y]:=mode;End;Gotoxy(1,1);End;
procedure dropnew(var objek : tetris);var i : longint;beginif objek.cshape <> 0 thenbeginfor i := 1 to 4 dobeginttetris.points[i].x:=template[objek.nshape,i].x+objek.xmodel;ttetris.points[i].y:=template[objek.nshape,i].y+objek.ymodel;end;drawtetris(ttetris,false);end;objek.cshape := objek.nshape;objek.nshape := random(8) + 1;for i := 1 to 4 dobeginobjek.points[i].x:=template[objek.cshape,i].x+objek.xtetris;objek.points[i].y:=template[objek.cshape,i].y+objek.ytetris;ttetris.points[i].x:=template[objek.nshape,i].x+objek.xmodel;ttetris.points[i].y:=template[objek.nshape,i].y+objek.ymodel;if field[objek.points[i].x,objek.points[i].y] thenbegingameover := true;break;end;end;drawtetris(objek,true);drawtetris(ttetris,true);end;
beginrandomize;while not quit dobegininit_field;init_tetris(tetris1,1);init_tetris(tetris2,2);gameover := false;while not gameover dobeginslide(tetris1);slide(tetris2);userinput;end;gotoxy(1,25); write('Play Again[Y/N]? ');repeatanswer := upcase(readkey);until answer in ['Y','N',#27];if (answer = 'N') or (answer = #27) then break;end;end.
Kalo ga komplit ato masi Error, artikel lengkapa plus Tutorialnya download aja disiniAplikasi yang sudah dicompile bisa anda Download disini
email : mu.santryGaul.gmail.comHP : +6281323470510Himpunan Mahasiswa RpL 1 Smk negeri 3 banjar