hi....i need some help w/ my battleship game

belldandy_angel · **Posted:** Tue Jun 01, 2004 5:35 pm

hi..can someone help me w/ my battleship game????

if u can...thanx a bunch!!!! love u!!! hehehe

this is wut i have so far...

setscreen ("graphics:500;350")

%%%%%%%%%%%%%%%%%%%%
%declare variables %
%%%%%%%%%%%%%%%%%%%%
var font1, font2, font3, font4, font5 : int
var pti, ptf : int
var picID : int
var mousex, mousey, button : int := 0

%%%%%%%%%%%%%%
%subprograms %
%%%%%%%%%%%%%%

%procedure for the introduction
proc intro

drawfillbox (0, 0, 250, 350, 37)
drawfillbox (500, 0, 250, 360, 240)
font1 := Font.New ("eddie:50:bold")
font2 := Font.New ("times new roman:13")
font3 := Font.New ("comic sans ms :8")
font4 := Font.New ("eddie:40")
font5 := Font.New ("times new roman:24:bold")

Font.Draw ("BATTL", 30, 300, font1, 240)
Font.Draw ("ESHIP", 280, 300, font1, 37)
Font.Draw ("game", 180, 220, font4, 81)
Font.Draw ("By: Annie Ng", 414, 15, font3, 101)
Font.Draw ("Krystal Chiu", 430, 5, font3, 101)
Font.Draw ("PLAYER", 74, 130, font2, 101)
Font.Draw ("V S", 223, 60, font5, 101)
Font.Draw ("CPU", 384, 130, font2, 101)

picID := Pic.FileNew ("ba.bmp")
Pic.Draw (picID, 60, 30, picCopy)
Pic.Free (picID)
picID := Pic.FileNew ("ba1.bmp")
Pic.Draw (picID, 360, 30, picCopy)
Pic.Free (picID)
delay (700)
cls
end intro

proc grid
drawbox (0, 0, 255, 299, 42)

drawbox (0, 0, 25, 299, 42)
drawbox (0, 0, 50, 299, 42)
drawbox (0, 0, 75, 299, 42)
drawbox (0, 0, 100, 299, 42)
drawbox (0, 0, 125, 299, 42)
drawbox (0, 0, 150, 299, 42)
drawbox (0, 0, 175, 299, 42)
drawbox (0, 0, 200, 299, 42)
drawbox (0, 0, 225, 299, 42)
drawbox (253, 25, 2, 2, 42)
drawbox (253, 50, 2, 2, 42)
drawbox (253, 75, 2, 2, 42)
drawbox (253, 100, 2, 2, 42)
drawbox (253, 125, 2, 2, 42)
drawbox (253, 150, 2, 2, 42)
drawbox (253, 175, 2, 2, 42)
drawbox (253, 200, 2, 2, 42)
drawbox (253, 225, 2, 2, 42)
drawbox (253, 250, 2, 2, 42)
drawbox (253, 275, 2, 2, 42)
drawbox (253, 297, 2, 2, 42)

drawbox (0, 0, 280, 299, 42)
drawbox (0, 0, 305, 299, 42)
drawbox (0, 0, 330, 299, 42)
drawbox (0, 0, 355, 299, 42)
drawbox (0, 0, 380, 299, 42)
drawbox (0, 0, 405, 299, 42)
drawbox (0, 0, 430, 299, 42)
drawbox (0, 0, 455, 299, 42)
drawbox (0, 0, 480, 299, 42)
drawbox (0, 0, 499, 299, 42)
drawbox (497, 25, 0, 2, 42)
drawbox (497, 50, 0, 2, 42)
drawbox (497, 75, 0, 2, 42)
drawbox (497, 100, 0, 2, 42)
drawbox (497, 125, 0, 2, 42)
drawbox (497, 150, 0, 2, 42)
drawbox (497, 175, 0, 2, 42)
drawbox (497, 200, 0, 2, 42)
drawbox (497, 225, 0, 2, 42)
drawbox (497, 250, 0, 2, 42)
drawbox (497, 275, 0, 2, 42)
drawbox (497, 297, 0, 2, 42)
end grid

%procedure to assign
proc assign
%placing three units
put "Please click on an open square on the board to place one end "
put "of your ship (leave three units)"
grid
delay (500)
%placing five units
% put "Please click on an open square on the board to place one end "
% put "of your ship (leave five units)"
% grid
% put "Please click on an open square on the board to place one end "
% put "of your ship (leave two units)"
% put "Please click on an open square on the board to place one end "
% put "of your ship (leave two units)"
% put "Please click on an open square on the board to place one end "
% put "of your ship (leave three units)"

end assign

%%%%%%%%%%%%%%%
%Main Program %
%%%%%%%%%%%%%%%
intro
grid
assign
loop
mousewhere (mousex, mousey, button)
if button not= 0 and mousex + 8 < 250 then
Draw.Oval (mousex, mousey, 5, 5, red)
drawfill (mousex, mousey, red, red)
end if
end loop

again thanx!!!!

AsianSensation · **Posted:** Tue Jun 01, 2004 5:46 pm

well, easiest is if you do arrays.

by keeping an array of positions for the grid, you can do this

1. whenever someone clicks, check for which square he clicked on
2. then draw a circle (or whatever picture) on that square, by making use of the coordinates of those squares stored in the array.

now, you are only drawing a circle wherever the user clicks. You need to be able to keep track of where is the position of every square of the grid.

belldandy_angel · **Posted:** Tue Jun 01, 2004 5:48 pm

okay....how do i do that???
hhehehe

^^;

AsianSensation · **Posted:** Tue Jun 01, 2004 5:51 pm

well, for arrays, I suggest you learn them first.

http://www.compsci.ca/v2/viewtopic.php?t=1117

belldandy_angel · **Posted:** Tue Jun 01, 2004 5:53 pm

i know how to do array...
but

how do i check wut square they clicked on?? and how do i keep trackk?

Paul · **Posted:** Tue Jun 01, 2004 5:53 pm

well first you should make use of something called "variables" and "loops" Laughing

example:
this code:

code:

drawbox (0, 0, 25, 299, 42)
drawbox (0, 0, 50, 299, 42)
drawbox (0, 0, 75, 299, 42)
drawbox (0, 0, 100, 299, 42)
drawbox (0, 0, 125, 299, 42)
drawbox (0, 0, 150, 299, 42)
drawbox (0, 0, 175, 299, 42)
drawbox (0, 0, 200, 299, 42)
drawbox (0, 0, 225, 299, 42)

can be reduced to

code:

for a: 1..9
drawbox (0, 0, a*(25), 299, 42)
end for

You get what I mean?
For what he said, you could map out the field with a 2D array, you could have 2 of those, one for the x position and one for the y position of each square, run a for loop to do that. Then each time you click, run a loop to check which square is clicked and use the predetermined coordinates stored in your arrays to draw a circle.
P.S. I love you too Rolling Eyes

belldandy_angel · **Posted:** Tue Jun 01, 2004 6:22 pm

hey...
haha...im sowwie...i dunt reallie get it...
and no one can help me.... Crying or Very sad

sooo after u click u need to store the coordinates...

argh...i dunt know how to do this... Evil or Very Mad

love u too!!!!! Embarassed

Paul · **Posted:** Tue Jun 01, 2004 6:22 pm

Here I simplified ur code for you

code:

setscreen ("graphics:500;350")

%%%%%%%%%%%%%%%%%%%%
%declare variables %
%%%%%%%%%%%%%%%%%%%%
var font1, font2, font3, font4, font5 : int
var pti, ptf : int
var picID : int
var mousex, mousey, button : int := 0

%%%%%%%%%%%%%%
%subprograms %
%%%%%%%%%%%%%%

%procedure for the introduction
proc intro

drawfillbox (0, 0, 250, 350, 37)
drawfillbox (500, 0, 250, 360, 240)
font1 := Font.New ("eddie:50:bold")
font2 := Font.New ("times new roman:13")
font3 := Font.New ("comic sans ms :8")
font4 := Font.New ("eddie:40")
font5 := Font.New ("times new roman:24:bold")

Font.Draw ("BATTL", 30, 300, font1, 240)
Font.Draw ("ESHIP", 280, 300, font1, 37)
Font.Draw ("game", 180, 220, font4, 81)
Font.Draw ("By: Annie Ng", 414, 15, font3, 101)
Font.Draw ("Krystal Chiu", 430, 5, font3, 101)
Font.Draw ("PLAYER", 74, 130, font2, 101)
Font.Draw ("V S", 223, 60, font5, 101)
Font.Draw ("CPU", 384, 130, font2, 101)

picID := Pic.FileNew ("ba.bmp")
Pic.Draw (picID, 60, 30, picCopy)
Pic.Free (picID)
picID := Pic.FileNew ("ba1.bmp")
Pic.Draw (picID, 360, 30, picCopy)
Pic.Free (picID)

delay (700)
cls
end intro
var y, x : int := 0
proc grid
drawbox (0, 0, 255, 299, 42)
for a : 1 .. 2
for b : 1 .. 9
drawbox (0, 0, x + (b * 25), 299, 42)
end for
x := 255
end for
y := 0
x := 0
for b : 1 .. 2
for a : 1 .. 11
drawbox (x, y + (a * 25), 2, 2, 42)
end for
x := 497
end for
drawbox (253, 297, 2, 2, 42)
drawbox (497, 297, 0, 2, 42)
drawbox (0, 0, 499, 299, 42)
end grid

%procedure to assign
proc assign
%placing three units
put "Please click on an open square on the board to place one end "
put "of your ship (leave three units)"
grid
delay (500)
%placing five units
% put "Please click on an open square on the board to place one end "
% put "of your ship (leave five units)"
% grid
% put "Please click on an open square on the board to place one end "
% put "of your ship (leave two units)"
% put "Please click on an open square on the board to place one end "
% put "of your ship (leave two units)"
% put "Please click on an open square on the board to place one end "
% put "of your ship (leave three units)"

end assign

%%%%%%%%%%%%%%%
%Main Program %
%%%%%%%%%%%%%%%
intro
grid
assign
loop
mousewhere (mousex, mousey, button)
if button not= 0 and mousex + 8 < 250 then
Draw.Oval (mousex, mousey, 5, 5, red)
drawfill (mousex, mousey, red, red)
end if
end loop

belldandy_angel · **Posted:** Tue Jun 01, 2004 6:30 pm

thanks!!!

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members