Help with text positioning? - GameCreators Forum

Author

Message

Mugen Wizardry

User Banned

Posted: 19th Nov 2010 18:38 Edited at: 19th Nov 2010 18:39

I am making a multiple server select in my game.

The problem is, the text won't stay in the right place.

I need the 1st 3 lines to stay at y=10 and x=text width()+len(text$)

So it looks like this:

SERVER 1 SERVER 2 SERVER 3 SERVER 4 SERVER 5 SERVER 6
SERVER 7 SERVER 8 SERVER 9

etc..

here's the code:

+ Code Snippet

Global maxservers=10

Dim Servername$(maxservers) as string
Servername$(0) = "Zealous Server"
Servername$(1) = "Kikoa Server"
Servername$(2) = "Test1 Server"
Servername$(3) = "Test2 Server"
Servername$(4) = "Test3 Server"
Servername$(5) = "Test4 Server"
Servername$(6) = "Test5 Server"
Servername$(7) = "Test6 Server"
Servername$(8) = "Test7 Server"

do
inc xspace,10
`if connected
if conn>0
for x=0 to 8
if x<=2
yspace=10
else
if x<=5
yspace=30
endif
endif
set cursor xspace,yspace
print Servername$(x)
endif
sync
loop

i basically need the 1st text to be on the left of the screen. the 2nd text in the middle of the screen, and the third text on the right of the screen no matter WHICH server it is.

thanks!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Neco

18

Years of Service

User Offline

Joined: 13th Jul 2008

Location: Waterloo, Wisconsin USA

Posted: 19th Nov 2010 18:53 Edited at: 19th Nov 2010 18:55

Link

If the window this is displayed in is a static size that does not change. The easiest method would be to manually place everything with..

Text X, Y, $Servername

If the window is variable in size, you could probably do it out in more drawn out steps that get the screen width and height and then extrapolate the X/Y positions from there.

Old Skool Games - Bringing the gaming past to the present

Back to top

Profile PM Website

Mugen Wizardry

User Banned

Posted: 19th Nov 2010 19:58

Link

i dont understand a WORD u just said

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Indicium

18

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 19th Nov 2010 20:27

Link

Quote: "i dont understand a WORD u just said"

God man, your ungratefulness irritates me, all we do on this forum is try and help and get responses like that. Perhaps it would be better to give Neco an idea of what you did not understand, as I understood it perfectly, and thank him for his time.

Back to top

Profile PM

Mugen Wizardry

User Banned

Posted: 19th Nov 2010 21:12

Link

don't smart off to me. i did NOTHING to u.

end of story. no one post here.

because i will not respond.

thanks for ruining the thread madnightmare.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Neco

18

Years of Service

User Offline

Joined: 13th Jul 2008

Location: Waterloo, Wisconsin USA

Posted: 19th Nov 2010 22:24 Edited at: 19th Nov 2010 22:29

Link

I'm posting here just to spite you. You need a serious attitude adjustment. We are not code robots, that is not what this forum is for.

If you could not figure out what I was saying, you need to go back to the basics and try to learn something. Multiplayer is the least of your worries.

Printing text to the screen, and formatting text are very basic functions that should not be hard to figure out. Did you even consult your help files on the TEXT command? Did you even try to run some random test code based on my example?

People like you are the reason people like me feel anxious about asking people smarter than me for help on a problem. The only person who ruined this thread is you and your demand for instant satisfaction.

Here.. I did it for you. It's not elegant and not exactly what you want. But if you can't make it work based on this code, then I don't know what to tell you.

+ Code Snippet


SET DISPLAY MODE 640,480,32

DisplWidth = SCREEN WIDTH()
DisplHeight = SCREEN HEIGHT()
Spacer = 50
Global maxservers=10

Dim Servername$(maxservers) as string
Servername$(0) = "Zealous Server"
Servername$(1) = "Kikoa Server"
Servername$(2) = "Test1 Server"
Servername$(3) = "Test2 Server"
Servername$(4) = "Test3 Server"
Servername$(5) = "Test4 Server"
Servername$(6) = "Test5 Server"
Servername$(7) = "Test6 Server"
Servername$(8) = "Test7 Server"

Col1x = 0
Col2x = Col1x + text width(Servername$(1)) + Spacer
Col3x = Col2x + text width(Servername$(2)) + Spacer
Text Col1x, 10, Servername$(0)
Text Col2x, 10, Servername$(1)
Text Col3x, 10, Servername$(2)

Text Col1x, 35, Servername$(3)
Text Col2x, 35, Servername$(4)
Text Col3x, 35, Servername$(5)

Text Col1x, 60, Servername$(6)
Text Col2x, 60, Servername$(7)
Text Col3x, 60, Servername$(8)


wait key
end

Because of your responses to this thread, and a lack of time, I have intentionally left some errors in the code and have not commented it.

Have fun.

Old Skool Games - Bringing the gaming past to the present

Back to top

Profile PM Website

=PRoF=

23

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 19th Nov 2010 22:36

Link

+ Code Snippet

sync on
sync rate 60

Global maxservers=10
Dim Servername$(maxservers) as string
Servername$(0) = "Zealous Server"
Servername$(1) = "Kikoa Server"
Servername$(2) = "Test1 Server"
Servername$(3) = "Test2 Server"
Servername$(4) = "Test3 Server"
Servername$(5) = "Test4 Server"
Servername$(6) = "Test5 Server"
Servername$(7) = "Test6 Server"
Servername$(8) = "Test7 Server"

do
	cls
	
	count=0
	y=10
	
	// version 1 (As you described in the text)
	for a=0 to maxServers
		text count,y,serverName$(a)
		count=count+text width(serverName$(a))+10
		if count>screen Width()
			count=0
			y=y+text size()
		endif
	next a
	
	count=0
	y=y+30
	
	// version 2 (As you later went on to describe)
	for a=0 to maxServers
		text count,y,serverName$(a)
		count=count+210
		if count>600
			count=0
			y=y+text size()
		endif
	next a
	
	sync
loop

I'm a bit confused as to what you actually want, but there are two options in the code above for you to look at.

And I think Mad Nightmare is a bit miffed at your RUDE response when Neco tried to help you. I am a bit as well tbh, you are quite often rude to people who try to help you.

But still we volunteer assistance and code for you.

TGC Forums truly is full of wonderful people

Hope that helps

Back to top

Profile PM Email Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 19th Nov 2010 23:11

Link

@Mugen,
If you don't get an answer that helps, then it's possible that you didn't state your question clearly enough. That's when you should provide extra information to help people to help you.

Rather than that though, you consistently post one-line dismissals of the answers given, which is just plain rude. Then when called out on your behaviour, you step it up another level.

I think that we'll put you on post approval for a month, just to give people a break from your bad manners.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 19th Nov 2010 23:12

Link

Flame

This thread has been locked due to the predicted

unmanageable number of flame responses. Please refer to section 3.11 - 3.12 of the Acceptable Usage Policy for full details:

http://www.thegamecreators.com/?gf=aup#forum

AUP Section 3.17 ...Moderators shall, at their discretion, determine what constitutes a violation of these terms, along with generally accepted netiquette standards, and can take action against those who violate these rules.

If you contributed to the reason for locking, you may now find yourself on moderation, or in extreme cases a ban.

Utility plug-ins (26-JUL-2010)
I'm applying terms of use that require you to wear a red nose and honk a horn whenever you use the Internet

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / [LOCKED] Help with text positioning?