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

spen

Sun Jun 13, 2004 2:36 am


Problem.....for Drop the ball.

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

I am making game I got some problem that Drop the ball. 

the player should avoid ball when the ball hit the ground.



1. :!: So how can I drop the ball per seconds?? 

( The numbers of balls will be increased by time going) 
 1 sec = 1ball
2 sec =2 2 ball
3sec= 3 ball.......

The position of ball is from y= maxy, x = random


2.   I asked this question before..but..I coludn't find the way....

 :!: How can I make movement smoothly for my character??
(same way as below program, Draw. command)

I hope u guys answer thank you~~



* the ball is an image file (bmp)
* When I use Delay command, the game is jammmed..too slow
* The character is made by Draw. Command


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

Cervantes

Sun Jun 13, 2004 7:24 am



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

here's how I would do it.

setscreen ("offscreenonly")
var ball_time := 0
var counter := 1
var x, y, vy : array 1 .. 15 of real
var draw : array 1 .. 15 of boolean
for i : 1 .. 15
    x (i) := Rand.Int (0, maxx)
    y (i) := maxy
    vy (i) := 0
    draw (i) := false
end for

const gravity := 0.015

loop
    cls
    if Time.Elapsed - ball_time >= 1000 then
        ball_time := Time.Elapsed
        if counter >= 15 then
            counter := 1
        else
            counter += 1
        end if
        draw (counter) := true
    end if

    for b : 1 .. 15
        if draw (b) then
            vy (b) -= gravity
            y (b) += vy (b)
            drawfilloval (round (x (b)), round (y (b)), 10, 10, black)
            if y (b) < 0 then
                y (b) := maxy
                vy (b) := 0
                draw (b) := false
            end if
        end if
    end for
    View.Update
    delay (10)
end loop


note that it would look a bit better if you were to make the balls spawn just a little above maxy, so that the user can't actually see them materialize like they do :?


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

spen

Sun Jun 13, 2004 11:32 am


Thank u~!!

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

Thank u so much~ :D

It's cool~