*HELP* I have no idea how to make a teleporter!

Author

Message

cowboy21

16

Years of Service

User Offline

Joined: 10th Feb 2009

Location:

Posted: 11th Feb 2009 05:37

Link

I'm making a game that uses multiple rooms and i want to teleport between them. Only problem is, i have no idea how to make this happen. If anyone has working code i could download, that would be awesome.

Or, you can just tell me how lol

Back to top

Profile PM Email

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 11th Feb 2009 17:49

Link

When you hit the "teleporter" change the player's position to its exit. Teleporters can be kept track of using arrays like this:

Teleporters(5,2)

Where 5,1 would be the object number for a teleporter and 5,2 would be its exit. This can work both ways so that 3 can exit at 4, and then for 4, you have it's exit at 3 (or another number if you want it to get a little crazy).

*NOTE: The number 5 was an arbitrary number I chose. Change it to however many teleporters you plan to have.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 11th Feb 2009 18:04 Edited at: 11th Feb 2009 18:52

Link

The way I once did a teleporter (over a year ago now...) was fairly straightforward and very primitive. Here's an example....

Set Display Mode 1024,768,32
Sync On 
Sync Rate 60
Autocam Off

Rem make teleporter object
Make object cube 2,10
Color object 2,rgb(80,100,230)
Position object 2,0,0,10

Rem make platform
Make object box 3,4,1,20
Position object 3,0,0,0
Set object collision to boxes 3

Rem make character

Make object sphere 1,1
Color object 1,rgb(0,55,255)
Position object 1,0,10,0
Set object collision to spheres 1

Rem main loop
Do

Rem TELEPORTATION

if object collision(1,2) then position object 1,0,10,0

`controls
  if upkey()=1 then move object 1,0.23
  if downkey()=1 then move object 1,-0.23
  if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-1.5)
  if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+1.5)
  if spacekey()=1 and playergrav#=0 then playergrav#=0.30 : play sound 4

`get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

+ Code Snippet

Set Display Mode 1024,768,32
Sync On 
Sync Rate 60
Autocam Off

Rem make teleporter object
Make object cube 2,10
Color object 2,rgb(80,100,230)
Position object 2,0,0,10

Rem make platform
Make object box 3,4,1,20
Position object 3,0,0,0
Set object collision to boxes 3

Rem make character

Make object sphere 1,1
Color object 1,rgb(0,55,255)
Position object 1,0,10,0
Set object collision to spheres 1

Rem main loop
Do

Rem TELEPORTATION

if object collision(1,2) then position object 1,0,10,0

`controls
  if upkey()=1 then move object 1,0.23
  if downkey()=1 then move object 1,-0.23
  if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-1.5)
  if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+1.5)
  if spacekey()=1 and playergrav#=0 then playergrav#=0.30 : play sound 4

  `get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

Run that and see what happens. Some of that code is from the codebase (I used it in a recent project of mine), I'm not nearly that clever in programming yet.

Er, I forgot to add the collision commands..hehe...fixed now...

View my blog!!

Back to top

Profile

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 12th Feb 2009 06:04

Link

ummm he sinks through the floor other then that it works great lol i tried to fix it... idk why i couldn't hahahaha i added volocity though lol anyways i think bn2s is going to work better for him but he needs to remember to not teleport him into another box so then he would be in a infinite loop of teleports hahahahha that would be hilarius lol

Back to top

Profile PM Website

BN2 Productions

21

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 12th Feb 2009 08:26

Link

Quote: "he would be in a infinite loop of teleports hahahahha that would be hilarius lol "

unless of course he makes it only trigger when you hit an object (which teleports and sets a flag variable to 1) and then the flag is set to 0 when you STOP colliding with the box at the other side. The teleporter would only work if the flag is 0, so the teleporters won't work again until the player steps OUT of a teleporter.

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 12th Feb 2009 21:32

Link

Best thread title in a while lol

All you need are two locations stored in memory, BN2 touched on using arrays...

Quote: "Teleporters(5,2)

Where 5,1 would be the object number for a teleporter and 5,2 would be its exit. This can work both ways so that 3 can exit at 4, and then for 4, you have it's exit at 3 (or another number if you want it to get a little crazy).
"

but using different fields to store different types of data can get confusing, you'd have to remember which numbers mean exits and which mean objects. Using multiple arrays uses no more memory and sometimes less. (If you're not familiar with arrays look at TDK's tutorials; its one of the stickied threads on this board.)

It would be too easy if you could go from any teleporter to any other, life just isn't that simple for computer game characters

.
So like BN2 said we need to store which teleporters link together.

+ Code Snippet

Dim Teleporter_Mate(2)
Teleporter_Mate(1)= 2
Teleporter_Mate(2)= 1

Ok, so when our character uses a teleporter the computer will check this array to see where to zap him to and hey presto, he'll
be there before you can say "that's a nifty piece of code!"

+ Code Snippet

REM Pseudo Code
Teleporter= 1 :`stores which teleporter we're in

Teleporter= Teleporter_Mate(Teleporter)

That's the relationship between the ports taken care of, now we need position them. Seeing as this is in 3D we can use the position of the teleporter object, seems logical enough.
Like BN2 hinted at, the teleporter number wont neccessarily be the same as the object number for that teleporter. So many numbers my head hurts

. Let's make an array to store which Teleporters belong to which objects.

+ Code Snippet

Dim Teleporter_Object(2)
Teleporter_Object(1)= 10
Teleporter_Object(2)= 20

I've intentionally given different numbers so we don't get confused between our theoretical teleporter and the 3D object of our teleporter.
Sounds confusing having two representations of our teleporters but you have to remember that computer graphics don't act like real objects, in fact they don't act at all, so we have to control everything in the background like a puppeteer.
OK, so lets use this new data...

+ Code Snippet

rem PSEUDO CODE

rem [store the character's x/y/z position in variables]
rem [write some code to move the character around]

if returnkey()=1
  p= 1 to 2
    rem [compare the position of the player and each teleporter]
    rem [use ABS(playerpos-teleporterpos) to get the distance]
    rem [if the player is within range...]
      port= Teleporter_Mate(port)
      playerx= Object Position X(Teleporter_Object(port)      
      playery= Object Position Y(Teleporter_Object(port)
      playerz= Object Position Z(Teleporter_Object(port)
  next p
endif

That's basically it, sorry I'm getting a bit bored now

One more thing

That code will send your player back and forth between teleporters because there's no switch. Switches are pretty simple to write once you get the idea. Here's one...

+ Code Snippet

sync on

DO
  oldin=newin
  newin=returnkey()
  if newin>oldin then print "It Works!"
  sync
LOOP

That switch just gives one "pulse" when you press return because newin=1 and oldin=0 but when the next loop starts oldin becomes 1 too so the switch doesn't "fire" any more.

It's possible to make more complex switches, see if you can make one that acts like a light-switch, turning on the first time you press it and off the second time.

The Universe has been erased by a mod because it was larger
than 240x80 pixels.

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 13th Feb 2009 07:02

Link

exactly! lol your always great at writing examples obese hahhaa

Back to top

Profile PM Website

Yodaman Jer

User Banned

Posted: 13th Feb 2009 19:46

Link

Obese, you're fantastic!! That example looks great!

I do wonder why my collision didn't work for my example..not that it matters, but that does bug me. Hehe. 'Bug'. Hehe.

View my blog!!

Back to top

Profile

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 13th Feb 2009 21:04

Link

@Yodaman Jer

Your collision didn't work because of the collision type you set on the objects. You can only use

get object collision x()
get object collision y()
get object collision z()

if you create an object collision box or static collision box around the object.

Here's a correction of your example with just a change in the collision type though I'm not sure what you were doing with the teleportation:

Set Display Mode 1024,768,32
Sync On
Sync Rate 60
Autocam Off

Rem make teleporter object
Make object cube 2,10
Color object 2,rgb(80,100,230)
Position object 2,0,0,10

set object collision on 2
make object collision box 2,-5,-5,-5,5,5,5,0

Rem make platform
Make object box 3,4,1,20
Position object 3,0,0,0
`Set object collision to boxes 3

set object collision on 3
make object collision box 3,-2,-.5,-10,2,.5,10,0

Rem make character

Make object sphere 1,1
Color object 1,rgb(0,55,255)
Position object 1,0,10,0
`Set object collision to spheres 1

set object collision on 1
make object collision box 1,-.5,-.5,-.5,.5,.5,.5,0

Rem main loop
Do

Rem TELEPORTATION

if object collision(1,2) then position object 1,0,10,0

`controls
  if upkey()=1 then move object 1,0.23
  if downkey()=1 then move object 1,-0.23
  if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-1.5)
  if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+1.5)
  if spacekey()=1 and playergrav#=0 then playergrav#=0.30 : play sound 4

`get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

+ Code Snippet

Set Display Mode 1024,768,32
Sync On
Sync Rate 60
Autocam Off

Rem make teleporter object
Make object cube 2,10
Color object 2,rgb(80,100,230)
Position object 2,0,0,10

set object collision on 2
make object collision box 2,-5,-5,-5,5,5,5,0

Rem make platform
Make object box 3,4,1,20
Position object 3,0,0,0
`Set object collision to boxes 3

set object collision on 3
make object collision box 3,-2,-.5,-10,2,.5,10,0

Rem make character

Make object sphere 1,1
Color object 1,rgb(0,55,255)
Position object 1,0,10,0
`Set object collision to spheres 1

set object collision on 1
make object collision box 1,-.5,-.5,-.5,.5,.5,.5,0


Rem main loop
Do

Rem TELEPORTATION

if object collision(1,2) then position object 1,0,10,0

`controls
  if upkey()=1 then move object 1,0.23
  if downkey()=1 then move object 1,-0.23
  if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-1.5)
  if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+1.5)
  if spacekey()=1 and playergrav#=0 then playergrav#=0.30 : play sound 4

  `get current object position
  posx#=object position x(1)
  posy#=object position y(1)
  posz#=object position z(1)
  ` gravity
  playergrav#=playergrav#-0.01
  posy#=posy#+playergrav#
  `sliding collision
  position object 1,posx#,posy#,posz#
  if object collision(1,0)>0
    dec posx#,get object collision x()
    dec posy#,get object collision y()
    dec posz#,get object collision z()
    playergrav#=-0.0
  endif
  `set size for controlled object
  s#=object size y(1)/2.0
  `update with new object position
  position object 1,posx#,posy#,posz#
  `camera
  angle#=object angle y(1)
  camdist#=10.5 : camhigh#=posy#+2.5 : camfade#=12.5
  set camera to follow posx#,posy#,posz#,angle#,camdist#,camhigh#,camfade#,1
  xrotate camera 10
  `end loop
  sync
loop

Enjoy your day.

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 13th Feb 2009 21:09

Link

Oh! I don't know what I was thinking....hehe. Thanks Latch. I should have studied the differences between collision types a bit better than I did.

So, cowboy21, having any luck?

View my blog!!

Back to top

Profile

arbiter chewbacca hybrid

16

Years of Service

User Offline

Joined: 30th Nov 2008

Location:

Posted: 18th Feb 2009 20:38

Link

We have the same avatar

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / HELP I have no idea how to make a teleporter!

Sorry your browser is not supported!

DarkBASIC Discussion / *HELP* I have no idea how to make a teleporter!

DarkBASIC Discussion / HELP I have no idea how to make a teleporter!