Moving North South East and West

Author

Message

Ash273

16

Years of Service

User Offline

Joined: 16th Apr 2010

Location:

Posted: 11th May 2010 01:00

Link

I am working on a 2D, basic game, where you are a circle on a 6x6 board. you have to move in between rooms, collecting keys and answering riddles.
I know my coding abilities aren't the greatest, but here is my

+ Code Snippet

	circle x,y,15
	
	input "Place Command Here ---> ",command$

	```````````````````````````````````````````
	```````````````````NORTH```````````````````
	```````````````````````````````````````````	
	if command$="north" and zone1=1 and zone2=1
		y=y-50
		zone1=zone1+1
	endif
	```````````````````````````````````````````
	``````````````````SOUTH````````````````````
	```````````````````````````````````````````
	
	if command$="south" and zone1=2 and zone2=1
		y=y+50
		zone1=zone1-1
	endif
	``````````````````````````````````````````
	```````````````````WEST```````````````````
	``````````````````````````````````````````
	
	if command$="west" and zone1=1 and zone2=2
		x=x-50
		zone2=zone2-1
	endif
	``````````````````````````````````````````
	```````````````````EAST```````````````````
	``````````````````````````````````````````
	
	if command$="east" and zone1=1 and zone2=1
		x=x+50
		zone2=zone2+1
	endif

This coding is in a do/loop function. For East and North, when you type it in, it moves as far as it can in that respective direction (so east would move 6 for example)

The south and west move 1 square like they are supposed to.
Is there something wrong in my coding?

If you would like the whole code, I will message it to you. It doesn't use any external data

Thank you
Ash

Back to top

Profile PM

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 11th May 2010 14:39 Edited at: 11th May 2010 14:41

Link

I don't know why your using those zone1 and zone2 things for??? Doing it that way will only let you move left and right if zone2 = 1. If you move up or down then you can't move left or right until you get back to the start place.

Likewise, if you move left or right, you can't then move up or down for the same reason.

But this works as intended and is a lot sleeker than your code. (But I hate text based controls.

)

+ Code Snippet

Sync On : Sync
X = 3 : Y = 3
Do
  `Position the cursor in the top left corner and get the command.
   Set Cursor 0, 0 : Input "Enter Command: ", Command$
  `Convert the commend to lower case.
   Command$ = Lower$( Command$ )
   
  `Move the circle based on the direction entered.
  `Note I stop the values getting too big or small to keep the circle on screen.
   If Command$ = "north" And Y > 1 Then Y = Y - 1
   If Command$ = "south" And Y < 6 Then Y = Y + 1
   If Command$ = "west" And X > 1 Then X = X - 1
   If Command$ = "east" And X < 6 Then X = X + 1
   
  `Clear The screen
   Cls
  `Draw The Circle
   Circle X * 50, Y * 50, 50
  `Update the screen.
   Sync
Loop

My signature is NOT a moderator plaything! Stop changing it!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Moving North South East and West