module ball_tb;

    reg clk;
    reg rst;
    reg [10:0] curr_x;
    reg [9:0] curr_y;
    reg [10:0] x_paddle1, x_paddle2, vcount, curr_y;
    reg [9:0] y_paddle1, y_paddle2, hcount, curr_x;

    // Outputs
    wire [1:0] x_velocity, y_velocity;
    wire [3:0] p1_score, p2_score;
    wire [10:0] x_ball;
    wire [9:0] y_ball;
    wire touch1, touch2;

    localparam L_position = 11'd350;
    localparam R_position = 11'd850;
    localparam paddlewidth = 11'd50;
    localparam paddleheight1 = 10'd590;
    localparam paddleheight2 = 10'd590;

    localparam V_active = 10'd799;
    localparam y_initial = V_active/2;
    localparam x_initial1 = L_position;
    localparam x_initial2 = R_position;
    localparam H_active = 11'd1279;


    // Instantiate the ball module
    ball uut (
        .clk(clk),
        .rst(rst),
        .curr_x(curr_x),
        .curr_y(curr_y),
        .x_paddle1(x_inital1),
        .x_paddle2(x_initial2),
        .y_paddle1(y_initial),
        .y_paddle2(y_initial),
        .paddlewidth(paddlewidth),
        .paddleheight1(paddleheight1),
        .paddleheight2(paddleheight2),
        .p1_score(p1_score),
        .p2_score(p2_score),
        .x_ball(x_ball),
        .y_ball(y_ball),
        .x_velocity(x_velocity),
        .y_velocity(y_velocity),
        .p1_touch(touch1),
        .p2_touch(touch2)
    );

    always @(posedge clk)
    begin
        if(hcount < 1679)
            hcount <= hcount + 1'b1;
         else
            begin
            if(vcount< 827)
                begin
                hcount <= 11'd0;
                vcount <= vcount + 1'b1;
                end
             else
                begin
                hcount <= 11'd0;
                vcount <= 10'd0;
                end
            end
    end

    assign display = (335 <= hcount && hcount <= 1614) && (27 <= vcount && vcount <= 826);


    always @(posedge clk)
    begin
    if(display)
    begin
        if(curr_x < 1279)
            curr_x <= curr_x + 1'b1;
        else
            begin
            if(curr_y < 799)
                begin
                    curr_y <= curr_y + 1'b1;
                    curr_x <= 11'd0;
                end
             else
                begin
                curr_x <= 11'd0;
                curr_y <= 10'd0;
                end
            end
    end
    end

    // Initial values
    initial begin
        clk = 1'b0;
        rst = 1'b1;
        curr_x = 640; // Initial x-coordinate for ball
        curr_y = 400; // Initial y-coordinate for ball
        x_paddle1 = x_initial1; // Initial x-coordinate for paddle 1
        x_paddle2 = x_initial2; // Initial x-coordinate for paddle 2
        y_paddle1 = y_initial; // Initial y-coordinate for paddle 1
        y_paddle2 = y_initial; // Initial y-coordinate for paddle 2

        #10 rst = 1'b0;

        $finish;
        end

    always #5 clk = ~clk;

endmodule