From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

AWIN / PerlQt-1.04 / tutorial / t13 / GameBoard.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126

              
package GameBoard;
use Qt;
use QFont;
use QLabel;
use QLCDNumber;
use QPushButton;
use CannonField;
use LCDRange;
use slots 'fire()', 'hit()', 'missed()', 'newGame()';
@ISA = qw(QWidget);
sub new {
    my $self = shift->SUPER::new(@_);
    $self->setMinimumSize(500, 355);
    my $quit = new QPushButton('Quit', $self, 'quit');
    $quit->setFont(new QFont('Times', 18, $Weight{Bold}));
    $qApp->connect($quit, 'clicked()', 'quit()');
    my $angle = new LCDRange('ANGLE', $self, 'angle');
    $angle->setRange(5, 70);
    my $force = new LCDRange('FORCE', $self, 'force');
    $force->setRange(10, 50);
    my $cannonField = new CannonField($self, 'cannonField');
    $cannonField->setBackgroundColor(new QColor(250, 250, 200));
    $cannonField->connect($angle, 'valueChanged(int)', 'setAngle(int)');
    $angle->connect($cannonField, 'angleChanged(int)', 'setValue(int)');
    $cannonField->connect($force, 'valueChanged(int)', 'setForce(int)');
    $force->connect($cannonField, 'forceChanged(int)', 'setValue(int)');
    $self->connect($cannonField, 'hit()', 'hit()');
    $self->connect($cannonField, 'missed()', 'missed()');
    $angle->setValue(60);
    $force->setValue(25);
    my $shoot = new QPushButton('Shoot', $self, 'shoot');
    $shoot->setFont(new QFont('Times', 18, $Weight{Bold}));
    $self->connect($shoot, 'clicked()', 'fire()');
    my $restart = new QPushButton('New Game', $self, 'newgame');
    $restart->setFont(new QFont('Times', 18, $Weight{Bold}));
    $self->connect($restart, 'clicked()', 'newGame()');
    my $hits = new QLCDNumber(2, $self, 'hits');
    my $shotsLeft = new QLCDNumber(2, $self, 'shotsleft');
    my $hitsL = new QLabel('HITS', $self, 'hitsLabel');
    my $shotsLeftL = new QLabel('SHOTS LEFT', $self, 'shotsleftLabel');
    $quit->setGeometry(10, 10, 75, 30);
    $angle->setGeometry(10, $quit->y() + $quit->height() + 10, 75, 130);
    $force->setGeometry(10, $angle->y() + $angle->height() + 10, 75, 130);
    $cannonField->move($angle->x() + $angle->width() + 10, $angle->y());
    $shoot->setGeometry(10, 315, 75, 30);
    $restart->setGeometry(380, 10, 110, 30);
    $hits->setGeometry(130, 10, 40, 30);
    $hitsL->setGeometry($hits->x() + $hits->width() + 5, 10, 60, 30);
    $shotsLeft->setGeometry(240, 10, 40, 30 );
    $shotsLeftL->setGeometry($shotsLeft->x() + $shotsLeft->width() + 5, 10,
                             60, 30);
    @$self{'quit', 'angle', 'force', 'cannonField', 'shoot', 'restart', 'hits',
       'hitsL', 'shotsLeft', 'shotsleftL'} =
        ($quit, $angle, $force, $cannonField, $shoot, $restart, $hits, $hitsL,
         $shotsLeft, $shotsLeftL);
    $self->newGame();
    return $self;
}
sub resizeEvent {
    my $self = shift;
    my $cannonField = $$self{'cannonField'};
    $cannonField->resize($self->width()  - $cannonField->x() - 10,
                         $self->height() - $cannonField->y() - 10);
}
sub fire {
    my $self = shift;
    my($cannonField, $shotsLeft) = @$self{'cannonField', 'shotsLeft'};
    return if $cannonField->gameOver() || $cannonField->isShooting();
    $shotsLeft->display($shotsLeft->intValue() - 1);
    $cannonField->shoot();
}
sub hit {
    my $self = shift;
    my($hits, $cannonField, $shotsLeft) =
        @$self{'hits', 'cannonField', 'shotsLeft'};
    $hits->display($hits->intValue() + 1);
    if($shotsLeft->intValue() == 0) { $cannonField->setGameOver() }
    else { $cannonField->newTarget() }
}
sub missed {
    my $self = shift;
    my($cannonField, $shotsLeft) = @$self{'cannonField', 'shotsLeft'};
    $cannonField->setGameOver() if $shotsLeft->intValue() == 0;
}
sub newGame {
    my $self = shift;
    my($hits, $cannonField, $shotsLeft) =
        @$self{'hits', 'cannonField', 'shotsLeft'};
    $shotsLeft->display(15);
    $hits->display(0);
    $cannonField->restartGame();
    $cannonField->newTarget();
}