Simulator - GameCreators Forum

Author

Message

Zan2032

19

Years of Service

User Offline

Joined: 12th Dec 2004

Location:

Posted: 16th Dec 2004 03:02

Link

Hello ppl
i don't know if u remember my previous posts
Im trying to make a simulator of a spinning ride, and slowly slowly its progressing, very simplisticaly, iv made the platform move away from the spinner, and the spinner to go up and down, and basicly to spin

but its very...blunt, when i press "1" it spins, then when i let go it stops, how can i make it so it slowly builds up speed to a spesific speed, and dosn't stop when i let go of the key, only when i press 0 or something will it go back to stoped mode, again, slowing down gradualy..

here is the code, and a picture

sync

SET DISPLAY MODE 1152, 864, 32
SET WINDOW SIZE 1152, 864
SET WINDOW OFF

make camera 1
POSITION CAMERA 1, 0, 200, -1000

make light 1
make light 2

load object "main.x", 1
load object "platform.x", 2
load object "spinner.x", 3
load image "metal.bmp", 4

load object "sky.x", 5
load image "cloud2.bmp", 6
SCALE OBJECT 5, 150, 150, 150

FOG ON

POSITION LIGHT 1, -290, 165, -480
COLOR LIGHT 1, 255, 10, 10

POSITION LIGHT 2, 280, 165, -480
COLOR LIGHT 2, 10, 250, 10

sync
do
oz#=object position z(2)
oy1#=object position y(3)

position object 2,ox#,oy#,oz#
position object 3,ox1#,oy1#,oz1#

if inkey$()="z" and oz#<0 then: MOVE OBJECT 2, 1
if inkey$()="x" and oz#>-110 then: MOVE OBJECT 2, -1
if inkey$()="q" and oy1#>0 then position object 3,ox1#,oy1#-1,oz1#
if inkey$()="e" and oy1#<110 then position object 3,ox1#,oy1#+1,oz1#

yspin=OBJECT ANGLE Y(3)

if inkey$()="1" then YROTATE OBJECT 3, yspin+1
if inkey$()="2" then YROTATE OBJECT 3, yspin+2

if upkey()=1 or inkey$()="w" then: move camera 1, 1.5
if downkey()=1 or inkey$()="s" then: move camera 1, -1.5
if leftkey()=1 or inkey$()="a" then: TURN CAMERA LEFT 1, 1
if rightkey()=1 or inkey$()="d" then: turn camera right 1, 1

loop

+ Code Snippet

sync

SET DISPLAY MODE 1152, 864, 32
SET WINDOW SIZE 1152, 864
SET WINDOW OFF

make camera 1
POSITION CAMERA 1, 0, 200, -1000

make light 1
make light 2

load object "main.x", 1
load object "platform.x", 2
load object "spinner.x", 3
load image "metal.bmp", 4

load object "sky.x", 5
load image "cloud2.bmp", 6
SCALE OBJECT 5, 150, 150, 150

FOG ON

POSITION LIGHT 1, -290, 165, -480
COLOR LIGHT 1, 255, 10, 10

POSITION LIGHT 2, 280, 165, -480
COLOR LIGHT 2, 10, 250, 10

 sync
do
oz#=object position z(2)
oy1#=object position y(3)

position object 2,ox#,oy#,oz#
position object 3,ox1#,oy1#,oz1#

if inkey$()="z" and oz#<0 then: MOVE OBJECT 2, 1
if inkey$()="x" and oz#>-110 then: MOVE OBJECT 2, -1
if inkey$()="q" and oy1#>0 then position object 3,ox1#,oy1#-1,oz1#
if inkey$()="e" and oy1#<110 then position object 3,ox1#,oy1#+1,oz1#

yspin=OBJECT ANGLE Y(3)

if inkey$()="1" then YROTATE OBJECT 3, yspin+1
if inkey$()="2" then YROTATE OBJECT 3, yspin+2

if upkey()=1 or inkey$()="w" then: move camera 1, 1.5
if downkey()=1 or inkey$()="s" then: move camera 1, -1.5
if leftkey()=1 or inkey$()="a" then: TURN CAMERA LEFT 1, 1
if rightkey()=1 or inkey$()="d" then: turn camera right 1, 1

loop

Attachments

Login to view attachments

Back to top

Profile PM

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 17th Dec 2004 00:44 Edited at: 17th Dec 2004 02:10

Link

u'd need variables for the maximum speed, current speed and minimum speed and then increase the speed as you press 1... just add in the code below... i think (haven't tried it but it should work)

+ Code Snippet

maxspeed#=3
minspeed#=0
curspeed#=0

and then in the main loop

+ Code Snippet

if inkey$()="1" then curspeed#=curspeed#+0.5 `if 1 is pressed, increase speed
if inkey$()="0" then curspeed#=curspeed#-0.5 `if 0 is pressed, decrease speed

rem limits
if curspeed#>maxspeed# then curspeed#=maxspeed#
if curspeed#<minspeed# then curspeed#=minspeed#

rem rotation
YROTATE OBJECT 3, yspin+curspeed#

I think that should work... hope it helps

Am I the only one here who's really confused?

Back to top

Profile PM Website

Zan2032

19

Years of Service

User Offline

Joined: 12th Dec 2004

Location:

Posted: 18th Dec 2004 04:53

Link

wow yeah it does, its not really what i wanted though, still, its what ill use
oh is it just me, but when i press any keyboard key (input$=" "), that all the rest of the commands get "stuck", like if im pressing "w" (move forward), i cant move my ride up ("e"), at the same time untill i let go of w, is there a way to get around that?

Back to top

Profile PM

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 18th Dec 2004 08:24

Link

Use 'keystate' to allow multiple key presses. To find out the keystate codes, use 'scancode'. If your still stuck after consulting the help files, then I'll go into more detail.

Back to top

Profile PM Email Website

Zan2032

19

Years of Service

User Offline

Joined: 12th Dec 2004

Location:

Posted: 18th Dec 2004 15:25

Link

yep, thankx
now is really the final thing i will ask

i want the camera to be placed like im actualy riding the simulator (like RTC3), just something simple, spinning along with the ride, pointing to the middle, i was thinking about this, but also the ride is gonna tilt, i and i don't know how to follow with that

here's a pic from another angle

Attachments

Login to view attachments

Back to top

Profile PM

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 18th Dec 2004 21:03 Edited at: 18th Dec 2004 21:04

Link

I can think of several ways of doing that - I think the simplest would be to attach a limb to your spinning object (just a simple cube would do), offset it from the middle to where you want to be 'sitting'. Then hide the limb, because it's only there as a dummy marker. That would be something like:

+ Code Snippet

make object cube [objectnumber,1]
make mesh from object [meshnumber,objectnumber]
delete object [objectnumber]
add limb [objectnumber,limbnumber,meshnumber]
offset limb [objectnumber,limbnumber,x,y,z]
hide limb [objectnumber,limbnumber]

Then position the camera at the limb position and point it at the centre:

+ Code Snippet

position camera [limb position x (objectnumber,limbnumber), limb position y (objectnumber,limbnumber),limb position z(objectnumber,limbnumber)]

point camera [object position x(object number),object position y(object number),object position z(object number)]

Back to top

Profile PM Email Website

Zan2032

19

Years of Service

User Offline

Joined: 12th Dec 2004

Location:

Posted: 19th Dec 2004 00:52

Link

+ Code Snippet

make object cube 7,1
make mesh from object 8,7
delete object 7
add limb 3,9,8
offset limb 3,9,200,0,0
hide limb 3,9



sync
do
position camera limb position x (3,9), limb position y (3,9),limb position z(3,9)

point camera object position x(3),object position y(3),object position z(3)

thats the part of the code

is that right? (after the do, its the main loop)

Back to top

Profile PM

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 21st Dec 2004 11:13

Link

Looks right to me - but only one way to find out .... give it a go!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Simulator

Attachments

Attachments