Sure.
rem Initialisation blah etc.
sync on
sync rate 30
hide mouse
autocam off
make object sphere 1,100
make matrix 1,1000,1000,5,5
x#=500
y#=0
z#=500
gravity#=0
rem Main Loop
do
a#=wrapvalue(a#+mousemovex())
rem This is what you're interested in
rem If the mouse is clicked and it is not already jumping
rem then set it's velocity upwards, and it's accelereation
rem downwards to bring it down again.
if mouseclick()=1 and jumping=0
jumping=1
yvel#=20
gravity#=-0.5
endif
rem Make the object accelerate downwards due to gravity, and
rem move it by it's velocity. Note this will produce different
rem effects with different framerates, so you'll need to mess
rem about with it.
yvel#=yvel#+gravity#
y#=y#+yvel#
rem If the object hits the floor, set it's velocity and gravity
rem to zero
if y#<=0
yvel#=0
gravity#=0
jumping=0
endif
rem Put the object in it's position
position object 1,x#,y#+50,z#
rem Camera positioning stuff blah etc.
position camera 500+(sin(a#)*500),200+(y#/2),500+(cos(a#)*500)
point camera x#,y#+50,z#
sync
loop
I assume you know about velocity, gravity and acceleration, basic stuff.
