Battleship - SIMPLE DRAG + DROP HELP

[hez]

in this part of my prog i want to drag the "minesweeper image" then i will figure out the rest

can someone please tell me how to use drag and drop on an iamge in turing so i can figure out how to and where to place the ships



thnx alot

[Tony]

well while dragging you're just making the picture follow the mouse

code:

loop Mouse.Where(x,y,b) Pic.Draw(picID,x,y,picMerge) exit when b=1 end loop

now once you exit the loop (press the button) you find nearest cell.

code:

round(X/10)

that should result in the closest cell if each is 10 pixels in size. Ex: X=100, then its 10th cell.

[hez]

i'll see if it works thnx



ummm exactky were amm i suppsoed to put it in my prog?

[Tony]

while and after you drag

[hez]

lol that drag mouse thing is hell so i just used the arrow keys (don't midn me plz).......

thnx

[Blade]

well. i kinda whipped up an example that you could use. its fully documented... so heh..

code:

var x, y, b : int %the x,y coordinates for the mouse, and b for button var pic : int := Pic.FileNew ("c:/sites/images/avatars&sigs/blademoon.jpg") %import pic var sx, sy : int := 100 %the co-ordinates of x,y View.Set ("Graphics:600;600,nobuttonbar,offscreenonly") loop %loop to keep checking     Mouse.Where (x, y, b)     %checking to see where the mouse is, and if the button's been clicked     Pic.Draw (pic, sx, sy, picMerge)     %continuing to draw the picture     if (x > sx & x < sx + Pic.Width(pic) & y > sy & y < sy + Pic.Height(pic) & b = 1) then     %check to see if the image has been clicked on         loop     %loop to move the image             Mouse.Where (x, y, b)     %checking if you've moved the mouse             Pic.Draw (pic, sx, sy, picMerge)         %must draw the picture while moving             sx := x - Pic.Width(pic) div 2     %set the new co-ordinates of the picture to where the mouse is             sy := y - Pic.Height(pic) div 2    %same with x, but on the y axis             exit when b = 0     %exits the movement of the picture when you let go of the mouse button             View.Update             cls     %clear the screen         end loop     end if     View.Update     cls %clear again.. end loop