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

mynameisbob

Mon Jul 12, 2004 10:08 pm


Saving mouse coordinates

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

ok heres what i want the program to do...

var xm, ym, b : int
setscreen ("offscreenonly")
drawfillbox (0, 0, maxx, maxy, black)
drawfilloval (200, 200, 100, 100, brightblue)
loop
    mousewhere (xm, ym, b)
    if b = 1 and whatdotcolour (xm, ym) = brightblue then
        drawfilloval (xm, ym, 10, 10, black)
    end if
    delay (10)
    View.Update
end loop

but i want to place these two lines inside the loop
drawfillbox (0, 0, maxx, maxy, black)
drawfilloval (200, 200, 100, 100, brightblue)

and whenever the user clicks the mouse on the blue circle i want to save the coordinates where they clicked and draw the black circle at that point each time you go through the loop.


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

Tony

Tue Jul 13, 2004 12:45 am



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

so have an array, and each time you're about to draw your black circle, record its position in the array.

then when you need to draw those circles on screen, just use a forloop to go though the array's index


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

mynameisbob

Tue Jul 13, 2004 6:21 pm



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

yea, the first time i used an array it didnt work out, but now i've got it. the problem was, everytime i click, the same values were being assigned to all the variables in the array. i changed a few lines around and now got it to work. thanks


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

the_short1

Fri Jul 16, 2004 11:07 am



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

u know..


drawfillbox (0, 0, maxx, maxy, black) 


instead of that..
you can do this..


colorback (black)
cls

works better :)


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

DanShadow

Mon Jul 26, 2004 7:01 pm



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

or you could try this:

type bullets:
record
x,y:int
end record
var bullet:array 1.. 9999 of bullets
var bulletsShot,x,y,b:int:=1
%Set initial bullets offset off the screen, to make the for loop
%  that draws the bullets work correctly.
bullet(bulletsShot).x:=-50
bullet(bulletsShot).y:=-50
loop
setscreen("offscreenonly")
View.Update
cls
mousewhere(x,y,b)
delay(5)
for i:1..bulletsShot
drawfilloval(bullet(i).x,bullet(i).y,1,1,16)
end for
if b=1 then
bullet(bulletsShot).x:=x
bullet(bulletsShot).y:=y
bulletsShot+=1
end if
end loop

I dont have Turing on this computer, but this code should work pretty well. I included it on my friends shooting gallery ISU, he got a pretty good mark just for including that in it. So that might work for you.


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

Delta

Thu Aug 05, 2004 11:54 am



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

your code doesn't work... jeez... I know I'm posting late... but I don't care... because all your (DanShadow's) posts are like 10 days after the last response... your pretty much spamming old topics just to increase your post count and look all fancy... typical computer geek... get a life dude...


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

DanShadow

Thu Aug 05, 2004 3:37 pm



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

Hey Delta, be quiet. This post was made like many months ago fool. And that was before I was even a mod...so just keep your comments to yourself.


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

Delta

Fri Aug 06, 2004 1:55 am



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

Don't even try tellin' me what to do... and I did say that my post was late... which goes to show that you don't pay much attention to detail in the first place... like how I have more seniority than you do since I joined compsci first and all anyways... have a nice day...


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

DanShadow

Sat Aug 07, 2004 2:29 pm



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

Makes no difference, and I DID read that. But you seriously are like flaming me alot recently, so, plz stop the burning. And since this post has
already been answer:



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

AsianSensation

Sat Aug 07, 2004 5:49 pm



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

What? I didn't know DanShadow could lock stuff in Turing section, I feel so un-unique now... :cry:  :cry: 

anyways guys, don't kill each other, what would we do if we are suddenly missing two mods once the two of you decide to double K.O. each other?


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

DanShadow

Sun Aug 08, 2004 6:19 pm



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

Yep, I was recently added to the Turing Gods club. :D Your still special AsianSensation.