Computer Science Canada :: View topic

setscreen ("graphics:800;600,offscreenonly")
%const detail := 10
var speed : int := 0
const startx := 0
const starty := 0
var shotx, shoty : real
var mx, my, mb : int
var deltax, deltay : real
var b : real
var ang : real
var grav := 0
var starttime, endtime : int
var counter : real := 0

loop
shotx := startx
shoty := starty
loop
mousewhere (mx, my, mb)
b := Math.Distance (startx, starty, mx, my)
deltay := my - starty
deltax := mx - startx

ang := arcsind (deltay / b)
if mx < startx then
ang := 180 - ang
end if
locate (1, 1)
put "Angle is: ",ang
View.Update
exit when mb = 1

end loop
grav := 0
deltay := my - starty
deltax := mx - startx
counter := 0

b := Math.Distance (startx, starty, mx, my)

ang := arcsind (deltay / b)
if mx < startx then
ang := 180 - ang
end if

loop
mousewhere (mx, my, mb)

exit when mb = 1
end loop
starttime := Time.Elapsed
loop
mousewhere (mx, my, mb)
counter += 1.5
locate (2, 1)
put "POWER: ", counter
drawfillbox (0, 0, round (counter * 8), 25, brightblue)
drawfillbox (0, 8, round (counter * 8), 17, blue)
drawfilloval (0, 0, 5, 5, white)
drawfilloval (0, 25, 5, 5, white)
drawfilloval (round (counter * 8), 0, 5, 5, white)
drawfilloval (round (counter * 8), 25, 5, 5, white)
View.Update
exit when mb = 0 or counter >= 100
end loop
endtime := Time.Elapsed
speed := round ((endtime - starttime) / 25)

loop
shotx := shotx + (deltax / ((Math.Distance (startx, starty, mx, my)) / speed))
shoty := shoty + (deltay / ((Math.Distance (startx, starty, mx, my)) / speed))
grav := grav + 2
shoty := shoty - grav
drawfilloval (round (shotx), round (shoty), 10, 10, red)
View.Update
cls
put "Angle is: ", ang
exit when shoty < -10
end loop
end loop

Author:	xHoly-Divinity [ Wed Apr 26, 2006 4:09 pm ]
Post subject:
Might want to add something to slow down the power bar (when u click the mouse). Delay might not be the best solution but it works.

Author:	BenLi [ Wed Apr 26, 2006 4:13 pm ]
Post subject:
well im trying to model it from gunbound,so the delay thing is accurate, but i think i should use button initiation instead of mouse

Author:	xHoly-Divinity [ Thu Apr 27, 2006 3:51 pm ]
Post subject:
Nahhh, no way it's that fast in gunbound. Oh well, ur choice. Yeah, I would make it using button initiation, probably the space bar.

Author:	TokenHerbz [ Thu Apr 27, 2006 7:01 pm ]
Post subject:
what's so special about that "math." feature... i dont have it and all the games that USE it i cant run Making your own mathimatical proceadures is much better for througly understanding how things work, and at least this way, people like me can play the code asks for the Math. fcn to add to his turing lib (just pm me with it, and instructions please ) /me waits for smart cervantes to hook him up

Author:	codemage [ Fri Apr 28, 2006 8:56 am ]
Post subject:
I think Turing 4.0.3 is missing the Math functions.

Author:	Andy [ Fri Apr 28, 2006 9:47 am ]
Post subject:
if you indeed go to massey, then i think i know who you are.. anywho, ask mr.mckenzie about the gunbound shawnli and shane li made 2 years ago. he should still have it.

Author:	BenLi [ Sat Apr 29, 2006 9:53 am ]
Post subject:
Andy Sun? Andyeah, i took grade 10 compsci, big mistake, anyways, i'll ask mr mac

Author:	Cervantes [ Sat Apr 29, 2006 4:24 pm ]
Post subject:
TokenHerbz wrote: asks for the Math. fcn to add to his turing lib (just pm me with it, and instructions please ) /me waits for smart cervantes to hook him up This question is asked far too often. Search around a bit. There's even a tutorial on this very subject!

Author:	BenLi [ Sun Apr 30, 2006 4:10 pm ]
Post subject:
well right the power bar and shot relies entiredly on the speed the computer loops, im working on a system to make it the same on every comp

Author:	Andy [ Tue May 02, 2006 12:33 pm ]
Post subject:
use a timer instead of delay