Character coordinates - GameCreators Forum

Author

Message

Silence

13

Years of Service

User Offline

Joined: 14th Oct 2012

Location:

Posted: 18th Mar 2013 15:14

Link

How can something be printed if the character coordinates are specific?

So say if the character's coordinates are 650,10,650 how can I make a code that says something like this

+ Code Snippet

if object position x(1) = 650 and object position z(1) = 650
   center text 300,300, "Press B"
endif

To make myself clear that way no people have a hard time understanding, I want something to print on the screen as soon as someone is in the correct coordinates of the game and as soon as you leave from those coordinates it dissapears

Back to top

Profile PM

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 18th Mar 2013 15:37

Link

here are few ways to do that:
1) create a hiden object on the screen, so.
if Obj Collision(HIdenObj,Player)=1 then center text 300,300,"Press B"

2) you always can use the Val() command to convert "Object position x()" to an integer (cuz Obj Position X is FLOAT)
if val(Object position x(1) = 640) then center text...

3) or you can use between values.. X: between 10 to 30
if Object position x(1)=>10 and Object position x(1) <= 30 then center text...

Advanced Updater for your games!

Back to top

Profile PM Website

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 18th Mar 2013 16:38

Link

What type of game is this?

If it is something with fixed step movement then ignore my post.

If you are using a third person / first person engine with free movement you shouldn't really be dealing with character locations like that. Too mathematical for what it is worth.

Option 1 in Sergey K's recommendation is the one to use; you can also search for distance checking and Matrix1 zones for additional methods.

This is where a level editor helps you to reduce code; you could have zones put in place in a 3D editor and use your chosen collision method to test the location of the player with a few lines of code.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 19th Mar 2013 00:05

Link

Quote: "you always can use the Val() command to convert "Object position x()" to an integer (cuz Obj Position X is FLOAT)"

Why not just use int?

Even using integers, it's unlikely your character would match up perfectly to the coordinate you want. What you should do is make a hot spot or zone. And if you plan on having more than a single trigger zone, start using arrays.

+ Code Snippet

Type Zone
    x as float
    z as float
    radius as float
EndType

dim zones() as Zone

bZone = addZone(650, 650, 10)


if inZone(1, bZone) then center text 300,300, "Press B"



function addZone(x, z, r)
    array insert at bottom zones()
    zones().x = x
    zones().z = z
    zones().radius = r
    c = array count(zones())
endfunction c


function inZone(obj, zoneId)
    x# = object position x(obj) - zones(zoneId).x
    z# = object position z(obj) - zones(zoneId).z
    r# = zones(zoneId).radius
    if x#*x# + z#*z# <= r#*r# then exitfunction 1
endfunction 0

"You're all wrong. You're all idiots." ~Fluffy Rabbit

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 19th Mar 2013 00:42

Link

Indeed, Val converts strings to numbers; Int converts floats to integers. He must of got them mixed up.

Back to top

Profile PM Email Website

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 19th Mar 2013 16:49 Edited at: 19th Mar 2013 16:50

Link

You can check the distance between your player and the desired hot-spot coordinates:

+ Code Snippet

HotSpotX#=?  `(desired coordinate)
HotSpotY#=?  `(desired coordinate)
HotSpotZ#=?  `(desired coordinate)
Range=?      `(desired range of hot spot)

do
x#=object position x(player)
y#=object position y(player)
z#=object position z(player)
InRange=1
if abs(x#-HotSpotX#)>Range then InRange=0
if abs(y#-HotSpotY#)>Range then InRange=0
if abs(z#-HotSpotZ#)>Range then InRange=0
if InRange=1 then print "Player Within Range!"
loop

(There are more efficient ways of doing this, but this will work.)

D.D.

Back to top

Profile PM

Silence

13

Years of Service

User Offline

Joined: 14th Oct 2012

Location:

Posted: 20th Mar 2013 00:43

Link

Thank you all I got it to work. But I have one more question.

The quote "Press B" will actually be changed into an Order of Operations question. What troubles me is that everytime I start the game the equations need to be different. I need at least 10-15 questions so it changes everytime I start the game and come into contact with the object.

How can I do this?

Back to top

Profile PM

Sergey K

22

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 20th Mar 2013 07:26 Edited at: 20th Mar 2013 07:29

Link

in this case, the best way, you will have to try the Arrays.
for example..

+ Code Snippet

//Data Type
type TMyQuestion
 Q as String
 Key as String
endtype

//Array of 10 items..
dim QuestionList(10) as TMyQuestion 

//Creating questions:
QuestionList(0).Q = "Press B"
QuestionList(0).Key = "b"

QuestionList(1).Q = "Press number 1"
QuestionList(1).Key = "1"

//runing question loop:
CurrentQuestion = 0 //selected question..
do
 cls
text 0,0,QuestionList(CurrentQuestion).Q
if InKey$() = QuestionList(CurrentQuestion).Key then text 0,15,"You Pressed the "+QuestionList(CurrentQuestion).Key+" key"

loop

note that i used Inkey$() function to check for a key press.
if you want to use more advanced system, you try scancode() instead.
it will work on Esc/Return keys too.

Advanced Updater for your games!

Back to top

Profile PM Website

Silence

13

Years of Service

User Offline

Joined: 14th Oct 2012

Location:

Posted: 21st Mar 2013 03:33

Link

I tried to do something similar but the problem is that it's not even registering. Before whenever I came into collision with the object the words printed on the screen just fine and when you walked away from collision it would disappear.

This is what I did

q1 = rnd (9) + 1

if object exist(128)
	if q1= 1 and object collision (1,140)>0
   		set text size 30
   		center text 200,400, "6 -(5-3)+10 = ?"
  		center text 200,420, "A) 20"
  		center text 200,440, "B) 14"
   		Center text 200,460, "C) 7"
   		if inkey$()="b"
   			paste image 999,250,500
   			delete object 128
   			delete object 140
  		 endif
	endif
endif

if object exist (128)
	if q1 = 2 and object collision (1,140)>0
   		center text 200,400, "6*3 - 3+4/16 = ?"
   		center text 200,420, "A) 20"
  		center text 200,440, "B) 12"
   		center text 200,460, "C) 11"
  		if inkey$()="a"
   			paste image 999,250,500
  			delete object 128
   			delete object 140
   		endif
	endif
endif

if object exist (128)
	if q1 = 3 and object collision (1,140)>0
   		center text 200,400, "4*3-(5+2) + 14 = ?"
   		center text 200,420, "A) 23"
   		center text 200,440, "B) 17"
   		center text 200,460, "C) 19"
   		if inkey$()="c"
   			paste image 999,250,500
   			delete object 128
   			delete object 140
   		endif
	endif
endif

+ Code Snippet

q1 = rnd (9) + 1

if object exist(128)
	if q1= 1 and object collision (1,140)>0
   		set text size 30
   		center text 200,400, "6 -(5-3)+10 = ?"
  		center text 200,420, "A) 20"
  		center text 200,440, "B) 14"
   		Center text 200,460, "C) 7"
   		if inkey$()="b"
   			paste image 999,250,500
   			delete object 128
   			delete object 140
  		 endif
	endif
endif

if object exist (128)
	if q1 = 2 and object collision (1,140)>0
   		center text 200,400, "6*3 - 3+4/16 = ?"
   		center text 200,420, "A) 20"
  		center text 200,440, "B) 12"
   		center text 200,460, "C) 11"
  		if inkey$()="a"
   			paste image 999,250,500
  			delete object 128
   			delete object 140
   		endif
	endif
endif

if object exist (128)
	if q1 = 3 and object collision (1,140)>0
   		center text 200,400, "4*3-(5+2) + 14 = ?"
   		center text 200,420, "A) 23"
   		center text 200,440, "B) 17"
   		center text 200,460, "C) 19"
   		if inkey$()="c"
   			paste image 999,250,500
   			delete object 128
   			delete object 140
   		endif
	endif
endif

The problem is that the words dont even show up so I cant tell if it works or not. Will this even work what I'm doing?

Back to top

Profile PM

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 21st Mar 2013 10:22

Link

Just a polite question. Why are you not using a ready made solution for reference?

Back to top

Profile PM Email Website

Silence

13

Years of Service

User Offline

Joined: 14th Oct 2012

Location:

Posted: 21st Mar 2013 18:10

Link

Because I'd rather stick to something I know rather than waste time and try and learn a new piece of code that I would most likely not succeed with because of my limited knowledge. This is a project that's due very soon.

In all honesty I am quite upset when it comes to this forum at times.

Back to top

Profile PM

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 21st Mar 2013 19:24 Edited at: 21st Mar 2013 19:24

Link

I am just asking because you could copy and paste what you need into your program and finish it; a bit like putting clipart into Microsoft Word instead of hand drawing it... It's good practice, great programmers copy and paste. Anyway happy coding.

Back to top

Profile PM Email Website

Silence

13

Years of Service

User Offline

Joined: 14th Oct 2012

Location:

Posted: 21st Mar 2013 22:35 Edited at: 21st Mar 2013 22:52

Link

The thing is what if the code handed to me doesnt work? Then that's time wasted of having someone trying to explain it in a way that's too advanced for a beginner. So whenever I ask a question, I would just like it to be answered and not have someone go off on some tangent and me not understand what they're trying to tell me.

And as it just so happens I have fixed my problem. So thank you.

Back to top

Profile PM

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 22nd Mar 2013 01:48 Edited at: 22nd Mar 2013 01:58

Link

Great to hear.

I am guess you may have had bad experiences from using ready made code because you asked what if coded handed to you doesn't work; but I wouldn't have recommended that you use code that doesn't work; that wouldn't be very helpful. Code that doesn't work was probably created by someone inexperienced.

A good technique is to not think too specifically when problem solving; gotta focus on the big picture; use more open questions and post the whole program. For example; if you ask how to display text when a character is at a certain position, you end up spending a number of days waiting for 5 or 10 people to get spare time to read your post, pay the rent, cook dinner, play COD, watch Oprah then spend some of their limited time figuring out a solution for you. Then after all that, 2 days later you end up learning how to display text when a character is at the position.... But if you asked; how would you create a user interface for this program I made, I need text to display when the character is in a certain position and post the whole program; over the course of the day you would receive 10 times more valuable help, in addition you would also get further tips on the program as a whole; because A you posted the whole program so we have more to think with; and B, the question posed is the big picture, when we get the spare time to help out, we are answering a more useful question far more beneficial for you.

Anyway, in good time you will understand why I made my comments

Back to top

Profile PM Email Website

Silence

13

Years of Service

User Offline

Joined: 14th Oct 2012

Location:

Posted: 22nd Mar 2013 02:14

Link

Sounds reasonable enough. Can you help me with one more thing then?

I have an input code that is malfunctioning. When the player presses the Enter key it takes them to a new section to input their own answer. Problem is it's not working correctly. I tried numerous ways to get it to work and I bring it to you

+ Code Snippet

questionsection:
sync on
sync rate 60
set display mode 800,600,32
cls 0
load bitmap "media\code.bmp"
load sound "sounds\wrong answer.wav",1
load sound "sounds\thinking song.wav",3
stop sound 2
loop sound 3

lock$ = "24"
do
set text size 25
   input "Type the answer to unlock the door.       "   ;lock
   if lock$ = "24"
   set cursor 250,290
   input "Comfirm? [Y/N] = " ;confirm$
   if confirm$ = "y" then gosub winsection
         if confirm$ = "n" then cls
         if confirm$ = "n" then gosub questionsection
         if confirm$ = "n" then confirm$ = ""
         if confirm$ = "n" then lock$ = ""
    endif
   
   if lock$ <> "24"
      play sound 1
   endif
   sync
loop

What happens when I use this is that Darkbasic considers every answer wrong and you cant win the game. I really have no clue what to do here.

Back to top

Profile PM

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 22nd Mar 2013 03:34

Link

Boy am I glad you almost posted all of the code; the problems are more easy to see when you can look at them. Unfortunately it is 2:30 am in the morning and I should really go to bed;

for now, be sure to make sure the input statement assigns the value to the variable 'lock$'; currently it is assigning to the variable 'lock' without the dollar sign, which is not only a different variable, but a non string variable which is not fit for an input command. And I am sure there is a missing EndIf command there; is this the code that actually compiled?

There is more, but my head is falling of my neck; hopefully someone on the other side of the planet who has sunlight can point out the issues.

Post the rest of the code, there might be more problems unseen; I think it might be good for me to add some comments directly into the source code explaining some tips

Later

Back to top

Profile PM Email Website

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 22nd Mar 2013 08:53 Edited at: 22nd Mar 2013 08:55

Link

Just to get that out of the way, the code indentation should actually look somewhat like this:

+ Code Snippet

questionsection:
sync on
sync rate 60
set display mode 800,600,32
cls 0
load bitmap "media\code.bmp"
load sound "sounds\wrong answer.wav",1
load sound "sounds\thinking song.wav",3
stop sound 2
loop sound 3

lock$ = "24"
do
   set text size 25
   input "Type the answer to unlock the door.       "   ;lock
   if lock$ = "24"
      set cursor 250,290
      input "Comfirm? [Y/N] = " ;confirm$
      if confirm$ = "y" then gosub winsection
      if confirm$ = "n" then cls
      if confirm$ = "n" then gosub questionsection
      if confirm$ = "n" then confirm$ = ""
      if confirm$ = "n" then lock$ = ""
   endif
   
   if lock$ <> "24"
      play sound 1
   endif
   sync
loop

(Note: If you write [ code lang=dbp] (without the first space) inside your opening code-tag when posting here, the code will be highlighted accordingly)
Most importantly the 'if lock$="24"' and its endif 8 lines below should be on the same level, and everything in between one tab to the right. This way you avoid confusion as experienced by Chris Tate regarding the correct number and order of selection- and nesting-operations.

As to why the code doesn't work properly, as Christ mentioned, the existence of two different variables lock$ and lock might be the primary problem here. On top of that your block of if-statements regarding the confirm$-variable doesn't look good. What if the user inputs an empty string, any other letter than "y" or "n" or even "Y" (note that upper and lower case are actually different values, so confirm$ = "y" would return 'false')? In this case nothing will happen. You should go with if-else-endif here (and possibly use the lower$()-function to make sure "y" and "Y" are handled equally):

+ Code Snippet

      input "Comfirm? [Y/N] = ", confirm$
      if lower$(confirm$) = "y"
         gosub winsection
      else
         cls
         gosub questionsection
         confirm$ = ""
         lock$ = ""
      endif

Back to top

Profile PM Email Website

Silence

13

Years of Service

User Offline

Joined: 14th Oct 2012

Location:

Posted: 22nd Mar 2013 15:53

Link

Thank you all for your patience. I got it to work.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Character coordinates