setscreen ("graphics:790;540") % graphics screen mode
var font : int := Font.New ("Comic Sans Ms:20") % two kinds
var font2 : int := Font.New ("Comic Sans Ms:50") % of fonts
var A, B : real := 0 % angle variables
var x, y, xx, yy, x1, y1, x2, y2, r, a, b : int
% various coorditates used in the program
x := 65
y := 125
xx := 695
yy := 125
x1 := 65
y1 := 125
x2 := 725
y2 := 125
r := 30
a := 0
b := 0
var V, count, t : int := 0 % velocity variable
var End := false
var shot : boolean := false % shot is made with help of this variable
var shotx, shoty : int % coordinates of cannonball
var ch : string (1) % variable for input from keyboard
var acc : int := 10 % acceleration of free fall
var grav : string (3) % gravity for input from keyboard
var g : int % game gravity
var hillx : int := 150
var hillxx : int := 640
var hilly, col : int
randint (hilly, 200, 500)
loop
randint (col, 0, 15)
exit when col not= 7 and col not= 0
end loop
var s : int := 1
var p1, p2 : int % percentage of power left in tanks
p1 := 100
p2 := 100
var V1, V2, v : int % maximum allowed velocity
V1 := 150
V2 := 150
v := 150
var cl : int % color of circling ball
procedure Key % waits until keyboard's key is pressed
var str : string (1)
loop
getch (str)
exit when str not= ""
end loop
end Key
procedure finish % game over
var scorch : string
cls
Font.Draw ("GAME OVER", 240, 270, font2, red)
if count mod 2 = 0 then
Font.Draw ("BLUE PLAYER LOST", 295, 240, font, blue)
else
Font.Draw ("RED PLAYER LOST", 300, 240, font, blue)
end if
Key
end finish
procedure explode % explosion
var cr : int
loop
randint (cr, 0, 15)
exit when cr not= col and cr not= white
% not empty explosion - should be colored
end loop
for j : 1 .. 40
drawfilloval (shotx, shoty, j, j, cr)
delay (10)
end for
drawfilloval (shotx, shoty, 40, 40, white)
% checking how close explosions are to tanks
% and changing power level if explosions are too close
if abs (shotx - x1) <= 105 and abs (shoty - y1) <= 105 then
if abs (shotx - x1) <= 75 and abs (shoty - y1) <= 75 then
if abs (shotx - x1) <= 50 and abs (shoty - y1) <= 50 then
if abs (shotx - x1) <= 30 and abs (shoty - y1) <= 30 then
if abs (shotx - x1) <= 15 and abs (shoty - y1) <= 15
then
if abs (shotx - x1) <= 5 and abs (shoty - y1)
<= 5 then
V1 := V1 - 35
p1 := p1 - 25
end if
V1 := V1 - 30
p1 := p1 - 20
end if
V1 := V1 - 25
p1 := p1 - 17
end if
V1 := V1 - 20
p1 := p1 - 14
end if
V1 := V1 - 15
p1 := p1 - 8
end if
V1 := V1 - 10
p1 := p1 - 6
end if
if p1 <= 0 then
V1 := 25
end if
if abs (shotx - x2) <= 105 and abs (shoty - y2) <= 105 then
if abs (shotx - x2) <= 75 and abs (shoty - y2) <= 75 then
if abs (shotx - x2) <= 50 and abs (shoty - y2) <= 50 then
if abs (shotx - x2) <= 30 and abs (shoty - y2) <= 30 then
if abs (shotx - x2) <= 15 and abs (shoty - y2) <= 15
then
if abs (shotx - x2) <= 5 and abs (shoty - y2)
<= 5 then
V2 := V2 - 35
p2 := p2 - 25
end if
V2 := V2 - 30
p2 := p2 - 20
end if
V2 := V2 - 25
p2 := p2 - 17
end if
V2 := V2 - 20
p2 := p2 - 14
end if
V2 := V2 - 15
p2 := p2 - 8
end if
V2 := V2 - 10
p2 := p2 - 6
end if
if p2 <= 0 then
V2 := 25
end if
if p2 <= 0 or p1 <= 0 then
explode
finish
end if
end explode
procedure arc (var count : int, x, y, xx, yy : int, var g, V : int, A :
real)
% draws cannonball's trajectory, shows explosions and finishes game
var i : real := 0
t := round (abs (2 * ( (V * sind (A)) / g))) % time
g := strint (grav)
loop
if s not= 1 then
if shotx < 790 and shotx > 0 and shoty < 540 and shoty > 97
then
drawfilloval (shotx, shoty, 2, 2, white)
drawfilloval (shotx + round (5 * cosd (B)), shoty +
round (5 * sind (B)), 1, 1, white)
drawfilloval (shotx + round (5 * cosd (B + 180)), shoty +
round (5 * sind (B + 180)), 1, 1, white)
% erasing previous cannonball - animation
end if
end if
B := B + 10 % increasing rotation angle
if B >= 3600 then % keeping number not too large
B := 0
end if
i := i + 0.1 % time parameter
if count mod 2 = 0 then % firing turns
shotx := x + round (V * i * cosd (A))
shoty := y + round (V * i * sind (A) - (g * i **
2) / 2)
else % coordinates of cannonball on its trajectory
shotx := xx - round (V * i * cosd (A))
shoty := yy + round (V * i * sind (A) - (g * i **
2) / 2)
end if
exit when shotx <= 0 or shotx >= 790
% exiting loop if cannonball flies offscreen in x-axis
exit when shoty >= 540
% exiting loop if cannonball flies offscreen in y-axis
if shoty <= 97 then % ground level explosion
explode
exit % exiting loop when cannonball hits ground
end if
if shotx < 790 and shotx > 0 and shoty < 540 and shoty > 97 then
% drawing cannonball
drawoval (shotx, shoty, 2, 2, black)
loop
randint (cl, 0, 15)
exit when cl not= col and cl not= white
end loop
drawoval (shotx + round (5 * cosd (B)), shoty + round (5 *
sind (B)), 1, 1, red)
drawoval (shotx + round (5 * cosd (B + 180)), shoty +
round (5 *
sind (B + 180)), 1, 1, red)
% 2 small balls flying around cannonball
end if
if whatdotcolor (shotx, shoty) = col then
% explosion when cannonball hits color
explode
exit % exit loop if cannonball hits ground's color
end if
s := s + 1
delay (25)
if (shotx <= 80 and shotx >= 50 and shoty <= 125 and
shoty >= 97) or (shotx <= 740 and shotx >= 710 and shoty
<= 125 and shoty >= 97) then % checking targets - both tanks
% condition for hit
explode
finish
End := true
exit
end if
end loop
shot := false
count := count + 1
end arc
procedure draw (var count : int, shot : boolean, x, y, xx, yy : int, var g,
V : int, A : real)
% draws tanks and ground, displays current values
var c : int
drawline (0, 97, 790, 97, col) % ground level
drawfillbox (50, 100, 80, 117, yellow) % first tank
drawfilloval (55, 100, 3, 3, blue)
drawfilloval (65, 100, 3, 3, blue)
drawfilloval (75, 100, 3, 3, blue)
drawfillbox (55, 104, 75, 114, red)
drawfillbox (60, 117, 70, 124, green)
drawfillbox (710, 100, 740, 117, grey) % second tank
drawfilloval (715, 100, 3, 3, red)
drawfilloval (725, 100, 3, 3, red)
drawfilloval (735, 100, 3, 3, red)
drawfillbox (715, 104, 735, 114, blue)
drawfillbox (720, 117, 730, 124, green)
if count mod 2 = 0 then % whose turn?
c := red
else
c := blue
end if
Font.Draw (intstr (p1), 40, 60, font, black) % percentage
Font.Draw ("%", 80, 60, font, black) % of
Font.Draw (intstr (p2), 700, 60, font, black) % power
Font.Draw ("%", 740, 60, font, black) % left
Font.Draw ("Power", 38, 35, font, red)
Font.Draw ("Power", 698, 35, font, blue)
Font.Draw ("Angle: ", 50, 480, font, black) % characteristics
Font.Draw (realstr (A, 3), 110, 480, font, c) % of
Font.Draw ("Velocity: ", 50, 430, font, black) % environment
Font.Draw (intstr (V), 133, 430, font, c) % and
Font.Draw ("Gravity: ", 640, 480, font, black) % current
Font.Draw (intstr (g), 718, 480, font, green) % values
drawline (x1, y1, x, y, black) % tanks'
drawline (x2, y2, xx, yy, black) % cannons
if shot = true then % condition for shot
arc (count, x, y, xx, yy, g, V, A)
end if
end draw
procedure distinguish (var count : int, shot : boolean, a, b : int, var
g, V
: int, A : real) % changing coordinates of cannons to move
if count mod 2 = 0 then
x := x1 + a
y := y1 + b
else
xx := x2 - a
yy := y2 + b
end if
draw (count, shot, x, y, xx, yy, g, V, A)
end distinguish
process point
% displays animated turn pointer like atom with circling electrones
var D : real := 0
var m, n : int % x - and y - coordinates of pointer
m := x1
n := y1 + 50
var cp : int % color of pointer
loop
drawfilloval (m, n, 4, 4, white)
drawfilloval (m + round (20 * cosd (D + 10)), n + round (10 *
sind (D + 10)), 3, 1, white)
drawfilloval (m + round (20 * cosd (D + 130)), n + round (10 *
sind (D + 130)), 3, 1, white)
drawfilloval (m + round (20 * cosd (D + 250)), n + round (10 *
sind (D + 250)), 3, 1, white)
drawfilloval (m + round (10 * cosd (D + 250)), n + round (20 *
sind (D + 250)), 3, 1, white)
if count mod 2 = 0 then
m := x1
n := y1 + 50
cp := red
else
m := x2
n := y2 + 50
cp := blue
end if
drawfilloval (m, n, 4, 4, 10)
drawfilloval (m + round (20 * cosd (D)), n + round (10 *
sind (D)), 3, 1, cp)
drawfilloval (m + round (20 * cosd (D + 120)), n + round (10 *
sind (D + 120)), 3, 1, cp)
drawfilloval (m + round (20 * cosd (D + 240)), n + round (10 *
sind (D + 240)), 3, 1, cp)
drawfilloval (m + round (10 * cosd (D + 240)), n + round (20 *
sind (D + 240)), 3, 1, 9)
D := D - 10
if D = 3600 then
D := 0
end if
delay (25)
end loop
end point
process shield % provides partial shield from shots from above
var u, v : int % coordinates of shield's centre
u := x1
v := y1 + 50
var E : real := 0 % angle of rotation
loop
drawline (u - round (50 * cosd (E - 10)), v - round (20 *
sind (E -
10)), u + round (50 * cosd (E - 10)), v +
round (20 * sind (E - 10)), white)
drawline (u - round (50 * cosd (E)), v - round (20 *
sind (E)), u + round (50 * cosd (E)), v +
round (20 * sind (E)), white)
drawline (u - round (50 * cosd (E - 10)), v - round (20 *
sind (E - 10)), u - round (50 * cosd (E)), v - round (20 *
sind (E)), white)
drawline (u + round (50 * cosd (E - 10)), v + round (20 *
sind (E - 10)), u + round (50 * cosd (E)), v + round (20 *
sind (E)), white)
drawline (u - round (50 * cosd (E + 80)), v - round (20 *
sind (E +
80)), u + round (50 * cosd (E + 80)), v +
round (20 * sind (E + 80)), white)
drawline (u - round (50 * cosd (E + 90)), v - round (20 *
sind (E + 90)), u + round (50 * cosd (E + 90)), v +
round (20 * sind (E + 90)), white)
drawline (u - round (50 * cosd (E + 80)), v - round (20 *
sind (E + 80)), u - round (50 * cosd (E + 90)), v -
round (20 *
sind (E + 90)), white)
drawline (u + round (50 * cosd (E + 80)), v + round (20 *
sind (E + 80)), u + round (50 * cosd (E + 90)), v +
round (20 *
sind (E + 90)), white)
if count mod 2 = 0 then
u := x2
v := y2 + 50
else
u := x1
v := y1 + 50
end if
drawline (u - round (50 * cosd (E)), v - round (20 * sind (E)),
u + round (50 * cosd (E)), v +
round (20 * sind (E)), col)
drawline (u - round (50 * cosd (E + 10)), v - round (20 *
sind (E + 10)), u + round (50 * cosd (E + 10)), v +
round (20 * sind (E + 10)), col)
drawline (u - round (50 * cosd (E)), v - round (20 * sind (E)),
u - round (50 * cosd (E + 10)), v - round (20 * sind (E +
10)), col)
drawline (u + round (50 * cosd (E)), v + round (20 * sind (E)),
u + round (50 * cosd (E + 10)), v + round (20 * sind (E +
10)), col)
drawline (u - round (50 * cosd (E + 90)), v - round (20 *
sind (E +
90)),
u + round (50 * cosd (E + 90)), v +
round (20 * sind (E + 90)), col)
drawline (u - round (50 * cosd (E + 100)), v - round (20 *
sind (E + 100)), u + round (50 * cosd (E + 100)), v +
round (20 * sind (E + 100)), col)
drawline (u - round (50 * cosd (E + 90)), v - round (20 *
sind (E +
90)),
u - round (50 * cosd (E + 100)), v - round (20 * sind (E +
100)), col)
drawline (u + round (50 * cosd (E + 90)), v + round (20 *
sind (E +
90)),
u + round (50 * cosd (E + 100)), v + round (20 * sind (E +
100)), col)
E := E + 10
if E = 3600 then
E := 0
end if
delay (5)
end loop
end shield
process symbol
% displays symbol in form of planet with circling around it satellite
var C : real := 0 % angle of satellite's revolution
loop
drawfilloval (395 + round (50 * cosd (C - 10)), 45 +
round (30 * sind (C - 10)), 10, 10, col)
% erasing previous satellite's appearance
if col not= 1 then
drawfilloval (395, 45, 20, 20, col - 1) % drawing planet
end if
drawfilloval (395 + round (50 * cosd (C)), 45 + round (30 *
sind (C)), 10, 10, green) % satellite's revolution
C := C + 10
if C >= 3600 then % keeping number not too large
C := 0
end if
delay (50) % making program work smoother
end loop
end symbol
process cloud % displays clouds in the sky
var i : int := 0
var j : real := 0
var sd : int := 525
var cn : int := 1
loop
if cn mod 2 = 0 then
i := 0
else
i := 790
end if
loop
drawfilloval (i, sd + round (10 * sind (j)), 50, 10, 0)
if cn mod 2 = 0 then
i := i + 1
else
i := i - 1
end if
if j >= 3600 then
j := 0
end if
j := j + 5
drawfilloval (i, sd + round (10 * sind (j)), 50, 10, col - 7)
if (i >= 830 and cn mod 2 = 0) or (i <= - 40 and cn mod 2
not=
0) then
exit
end if
delay (10)
end loop
cn := cn + 1
end loop
end cloud
procedure getKey
%waits until keyboard 's key is pressed and acts accordingly
fork point % simultaneous
fork shield % subpragrams'
fork cloud % run
var o, p, q, i, j : int
o := 0
p := 97
i := 0
j := 0
randint (q, 100, 300)
drawbox (0, 0, 790, 540, 7)
loop
exit when o >= 790
randint (i, - 20, 20)
if o >= 300 and o <= 490 then
drawline (o, p + j, 395, p + q, 7)
o := o + 200
drawline (395, p + q, o, p + j, 7)
end if
drawline (o, p + j, o + 20, p + i, 7)
j := i
delay (50)
o := o + 20
end loop
drawfill (395, 10, col, 7)
drawline (0, 97, 790, 97, col)
fork symbol
loop
getch (ch)
if ord (ch) = 205 then % arrow right
A := A + 1
if A > 180 then
A := 0
end if
a := round (r * cosd (A))
b := round (r * sind (A))
elsif ord (ch) = 203 then % arrow left
A := A - 1
if A < 0 then
A := 180
end if
a := round (r * cosd (A))
b := round (r * sind (A))
end if
drawline (x1, y1, x, y, white) % redrawing
drawline (x2, y2, xx, yy, white) % after
drawfillbox (107, 485, 147, 505, white) % explosion
drawfillbox (130, 435, 170, 455, white) % that
drawfillbox (718, 485, 758, 505, white) % erases
drawfillbox (40, 65, 75, 85, col) % some
drawfillbox (700, 65, 735, 85, col) % screen
drawline (0, 97, 790, 97, col) % elements
if count mod 2 = 0 then
% whose turn? maximum allowed cannonball velocity for each tank
v := V1
else
v := V2
end if
if ord (ch) = 200 then % arrow up
if V >= 0 and V < v then
V := V + 1
elsif V = 0 then
a := r
b := 0
end if
elsif ord (ch) = 208 then % arrow down
if V > 0 and V <= v then
V := V - 1
end if
end if
if ord (ch) = 32 then
shot := true
end if
distinguish (count, shot, a, b, g, V, A)
exit when End = true
end loop
end getKey
process program
var i : int
for o : 0 .. 790
for p : 0 .. 540
randint (i, - 5, 5)
drawdot (o, p + i, black)
end for
end for
Font.Draw ("WILD TANKS", 220, 400, font2, red)
Key
cls
drawline (0, 97, 790, 97, black)
drawfillbox (50, 100, 80, 117, yellow)
drawfilloval (55, 100, 3, 3, black)
drawfilloval (65, 100, 3, 3, black)
drawfilloval (75, 100, 3, 3, black)
drawfillbox (55, 104, 75, 114, red)
drawfillbox (60, 117, 70, 124, green)
drawfillbox (710, 100, 740, 117, grey)
drawfilloval (715, 100, 3, 3, red)
drawfilloval (725, 100, 3, 3, red)
drawfilloval (735, 100, 3, 3, red)
drawfillbox (715, 104, 735, 114, blue)
drawfillbox (720, 117, 730, 124, green)
loop
cls
Font.Draw ("Enter gravity: ", 177, 450, font2, blue)
get grav
if grav = "" then
g := acc
Font.Draw (intstr (g), 517, 450, font2, red)
else
g := strint (grav)
Font.Draw (intstr (g), 517, 450, font2, red)
end if
Key
cls
if grav = "0" then
Font.Draw ("Invalid Gravity", 200, 450, font2, red)
Key
end if
exit when grav not= "0"
end loop
Key
cls
getKey
end program
fork program
(
geocities.com/mathladies/cs) (
geocities.com/mathladies)