Mô phỏng trò chơi bóng bàn

TRƯỜNG CAO ĐẲNG CÔNG NGHỆ HÀ NỘIKHOA CÔNG NGHỆ THÔNG TIN LỚP CNTT3 – K6 BÀI TẬP LỚN Kỹ Thuật Đồ Họa Pascal Đề tài: Mô phỏng trò chơi bóng bàn Nhóm: 1.. Writeln''; Readln; init_variables

TRƯỜNG CAO ĐẲNG CÔNG NGHỆ HÀ NỘI

KHOA CÔNG NGHỆ THÔNG TIN

LỚP CNTT3 – K6

BÀI TẬP LỚN

Kỹ Thuật Đồ Họa Pascal

Đề tài: Mô phỏng trò chơi bóng bàn

Nhóm:

1. Phạm Đức Tiến

2. Triệu Bảo Trung

3. Đỗ Viết Hoàng

CODE CHƯƠNG TRÌNH

Program PascalPong;

Uses Crt, graph;

{ global variables }

Var

physics_counter : byte;

raq_y, cpu_raq_y : integer;

ball_x, ball_y : integer;

ball_x_dir, ball_y_dir : integer;

score, score_cpu : integer;

exit : boolean;

//reset variables

Procedure reset_variables;

Begin

physics_counter := 0;

raq_y := 8;

cpu_raq_y := 8;

ball_x := 28;

ball_y := 8;

if Random(1) = 1 then ball_x_dir := 2

else ball_x_dir := -2;

if Random(1) = 1 then ball_y_dir := Random(2) + 1 else ball_y_dir := -(Random(2) + 1);

End;

//init variables

Procedure init_variables;

Begin

Randomize; { set random seed }

score := 0;

score_cpu := 0;

reset_variables;

End;

//handle screen

Procedure handle_screen;

Begin

TextBackground(black);

ClrScr;

TextBackground(white);

GotoXY(ball_x,ball_y); Write(' ');

TextBackground(white);

GotoXY(1,raq_y);

Writeln(' ');

Writeln(' ');

Writeln(' ');

Write(' ');

GotoXY(61,cpu_raq_y); Write(' ');

GotoXY(61,cpu_raq_y + 1); Write(' ');

GotoXY(61,cpu_raq_y + 2); Write(' ');

GotoXY(61,cpu_raq_y + 3); Write(' ');

TextBackground(black);

GotoXY(20,25);

Write('Player: ', score);

GotoXY(40,25);

Write('CPU: ', score_cpu);

GotoXY(1,26);

End;

// handle input

Procedure handle_input;

Var

key : char;

Begin

if KeyPressed then

begin

key := ReadKey;

case key of

'q' : exit := true;

'w' : if (raq_y > 1) then raq_y := raq_y - 1; 's' : if (raq_y < 17) then raq_y := raq_y + 1; end;

end;

//handle physics

Procedure handle_physics;

Begin

physics_counter := physics_counter + 1;

if physics_counter = 10 then

begin

physics_counter := 0;

//AI

if (cpu_raq_y > ball_y - 1) and (cpu_raq_y > 1) then

cpu_raq_y := cpu_raq_y - 1

else if (cpu_raq_y < ball_y - 1) and (cpu_raq_y < 17) then

cpu_raq_y := cpu_raq_y + 1;

//move ball

ball_x := ball_x + ball_x_dir;

ball_y := ball_y + ball_y_dir;

//check y

if (ball_y > 19) or (ball_y < 2) then ball_y_dir := ball_y_dir * -1;

//check x

if ball_x < 3 then //Nguoi choi

begin

if (ball_y >= raq_y) and (ball_y <= raq_y + 4) then

ball_x_dir := ball_x_dir * -1

else //cpu score + 1

begin

score_cpu := score_cpu + 1;

reset_variables;

end;

end

else if ball_x > 58 then //cpu

begin

if (ball_y >= cpu_raq_y) and (ball_y <= cpu_raq_y + 4) then ball_x_dir := ball_x_dir * -1

else //score + 1

begin

score := score + 1;

reset_variables;

end;

end;

//set correct position for ball

if ball_x < 1 then ball_x := 1;

if ball_y < 1 then ball_y := 1;

end;

End;

//MAIN

BEGIN

ClrScr;

Writeln('');

Writeln(' + -+'); Writeln(' | PASCAL PONG v0.1 |'); Writeln(' + -+'); Writeln(' by Antonio Ni¤o D¡az'); Writeln('');

Writeln('');

Writeln(' Controls');

Writeln(' -');

Writeln(' W/S : Up/Down');

Writeln(' Q : Quit game');

Writeln('');

Writeln('');

Writeln(' Press ENTER to start'); Writeln('');

Writeln('');

Readln;

init_variables; exit := false; Repeat

handle_input; handle_physics; handle_screen; Delay(20); Until exit;

END