put the circle on the line and roll it.

Author

Message

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 24th Sep 2003 14:30

Link

Hi all

It's simple what i wish to do but how do you :

1. get two key inputs at the same time. want to press "A" and "'" at the same time and make the line move up the screen or "A" and "?" to make one side go up and the other side go down.

2. make the circle roll up and down the line in relation to the angle of the line plus the speed of roll.

here's the code

+ Code Snippet

 
sync on :sync rate 0
a=480
b=480
roll=340

do

cls
if inkey$()="a" then a=a-1
if inkey$()="z" then a=a+1
if inkey$()="'" then b=b-1
if inkey$()="/" then b=b+1
if a<0 then a=0
if a>480 then a=480
if b<0 then b=0
if b>480 then b=480
line 0,a,680,b
circle roll,b-a,20

sync


loop

cheers.

Back to top

Profile PM

Watsisname

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Wales

Posted: 24th Sep 2003 22:01 Edited at: 24th Sep 2003 22:06

Link

Hi,
I had this problem just recently. The solution is to use the keystate command rather than inkey$. You need to know the scancode of the key you want. There's a DB example called 'Keyboard Control' which could help you here. The codes for the keys you want are:
a - 30
z - 44
' - 40
/ - 53
and here's the code

+ Code Snippet

sync on :sync rate 0
a=480
b=480
roll=340

do

cls
if keystate(30)=1 then a=a-1
if keystate(44)=1 then a=a+1
if keystate(40)=1 then b=b-1
if keystate(53)=1 then b=b+1
if a<0 then a=0
if a>480 then a=480
if b<0 then b=0
if b>480 then b=480
line 0,a,680,b
circle roll,b-a,20

sync


loop

That's the first part of your question at least. I'm not entierly sure what you mean by the second part. Do you mean like rolling down a hill under gravity or something? Oh well, Hope that helps!

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Sep 2003 02:07

Link

Thanks Watsisname

Just what I was looking for

.
The second part is like you said, I want the circle to roll along the line as the line moves up or down, like a ball in a pipe.
trying to get the basic functions to work then I can start to make it 3D. No good running before I can Walk.

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Sep 2003 02:25

Link

Hi all

Well the keystate bit works great have got the circle moving left and right with the line but not sitting on it. when there is a steep angle or the speed. have seen some code for speed and gravity but not sure how to put it in the code.

here what I got so far

+ Code Snippet

sync on : sync rate 0
a=480
b=480
roll#=340

do

cls
if keystate(30)=1 then a=a-1
if keystate(44)=1 then a=a+1
if keystate(40)=1 then b=b-1
if keystate(53)=1 then b=b+1
if a<0 then a=0
if a>480 then a=480
if b<0 then b=0
if b>480 then b=480
line 0,a,680,b

if ((a+b)/2)<a or ((a+b)/2)>b then roll#=roll#-0.1
if ((a+b)/2)>a or ((a+b)/2)<b then roll#=roll#+0.1

circle roll#,((a+b)/2)-20,20

sync


loop

Cheers

Back to top

Profile PM

Watsisname

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Wales

Posted: 25th Sep 2003 02:57

Link

This seems to do the job

+ Code Snippet

sync on : sync rate 0
a=480
b=480
roll#=340

do

cls
if keystate(30)=1 then a=a-1
if keystate(44)=1 then a=a+1
if keystate(40)=1 then b=b-1
if keystate(53)=1 then b=b+1
if a<0 then a=0
if a>480 then a=480
if b<0 then b=0
if b>480 then b=480
line 0,a,680,b

if ((a+b)/2)<a or ((a+b)/2)>b then roll#=roll#-0.1
if ((a+b)/2)>a or ((a+b)/2)<b then roll#=roll#+0.1

rem 680.0 here is screen width in pixels (I think)
frac# = roll#/680.0
height# = frac#*b + (1.0 - frac#)*a - 20

circle roll#,int(height#),20

sync


loop

Gravity should be easy to put into something like that. I'll have a go once I've made a cuppa

.

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Sep 2003 03:03

Link

Yep thanks, thats got those bits out the way now just the speed bit on a steep angle.

Cheers

Back to top

Profile PM

Watsisname

21

Years of Service

User Offline

Joined: 20th Aug 2003

Location: Wales

Posted: 25th Sep 2003 03:28

Link

And this one should do gravity

+ Code Snippet

sync on: sync rate 20
a=480
b=480
roll#=340
speed# = 0.0

do
cls
if keystate(30)=1 then a=a-1
if keystate(44)=1 then a=a+1
if keystate(40)=1 then b=b-1
if keystate(53)=1 then b=b+1
if a<0 then a=0
if a>480 then a=480
if b<0 then b=0
if b>480 then b=480
line 0,a,640,b

rem 680.0 here is screen width in pixels (I think)
frac# = roll#/640.0
height# = frac#*b + (1.0 - frac#)*a


if height#<a or height#>b then speed# = speed# - (a-b)*00000.1
if height#>a or height#<b then speed# = speed# + (b-a)*00000.1

roll# = roll# + speed#

rem make sure circle doesn't leave screen
if speed#<0 and roll#<20 then speed# = 0.0: roll# = 20
if speed#>0 and roll#>620 then speed# = 0.0: roll# = 620

circle roll#,height# - 20,20

sync

loop

I've corrected a few other small bugs which might have been a problem e.g. I think the default screen width is 640. I can't seem to slow down the circle

, maybe it just needs a bit of messing around, or something. Hope that makes sense

.

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Sep 2003 03:39

Link

Yep thats it thanks again, now for the fun bit making it look 3D.
very realistic moves just how I want to.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / put the circle on the line and roll it.