-----------------------------------

belldandy_angel

Tue Jun 01, 2004 5:35 pm


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

-----------------------------------

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

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

Tue Jun 01, 2004 5:48 pm



-----------------------------------

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

^^;


-----------------------------------

AsianSensation

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

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

Tue Jun 01, 2004 5:53 pm



-----------------------------------

well first you should make use of something called "variables" and "loops"  :lol: 
example: 
this 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

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  :roll:  :lol:


-----------------------------------

belldandy_angel

Tue Jun 01, 2004 6:22 pm



-----------------------------------

hey...
haha...im sowwie...i dunt reallie get it...
and no one can help me....  :cry: 

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

argh...i dunt know how to do this...      :evil:  :evil:  :evil: 

 :cry:  :cry: 



love u too!!!!!    :oops:


-----------------------------------

Paul

Tue Jun 01, 2004 6:22 pm



-----------------------------------

Here I simplified ur code for you

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

Tue Jun 01, 2004 6:30 pm



-----------------------------------

thanks!!!