im new please help me - GameCreators Forum

Author

Message

Milky the purple crab

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 19th Aug 2005 10:09 Edited at: 19th Aug 2005 10:55

Link

thanks for the help everyone

I don't fear pain.....I fear feeling it.

Back to top

Profile PM

Milky the purple crab

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 19th Aug 2005 12:51

Link

i have started a text adventure game

i have never done this before.

+ Code Snippet

hide mouse
` variables and arrays
prompt1$= "do you help? (Y or N)"
`welcome
print "welcome to sherwood forest, you are robin hood."
print "press any key to start"
`start main loop
start:
sync off
do
suspend for key
cls
print "you see a fair maiden being attacked by huge cannibal monkeys!!! ";prompt1$
input y
wait 500
`scene 1
scene1:
select y
CASE Y
PRINT "you charge forward and deafeat the monkeys!, the maiden rewards you with a kiss"
wait 500
PRINT "you move towards a cabin, you hear screams from the inside!"
wait 500
endcase
cls
exit
do
`scene 1a
scene1a:
case N
print "you have ignored a good deed!"
wait 500
print "you have been executed for thieft!"
wait 500
goto gameover
endcase

`game over
gameover:
exit
loop
end



loop

please help me i am trying to make it if the player inputs N that the code skips to scene1a.

I don't fear pain.....I fear feeling it.

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 19th Aug 2005 15:28 Edited at: 19th Aug 2005 15:31

Link

Here:

+ Code Snippet

hide mouse
` variables and arrays
prompt1$= "do you help? (Y or N)"
`welcome
print "welcome to sherwood forest, you are robin hood."
print "press any key to start"
`start main loop
start:
sync off
	do
	suspend for key
	cls
	print "you see a fair maiden being attacked by huge cannibal monkeys!!! ";prompt1$
	input y$
	wait 500

	`scene 1
	scene1:
	select upper$(y$)
		CASE "Y"
			PRINT "you charge forward and deafeat the monkeys!, the maiden rewards you with a kiss"
			wait 500
			PRINT "you move towards a cabin, you hear screams from the inside!"
			wait 500
		endcase
	cls
	exit

	do
	`scene 1a
	scene1a:
	case "N"
		print "you have ignored a good deed!"
		wait 500
		print "you have been executed for thieft!"
		wait 500
		goto gameover
	endcase

`game over
gameover:
	exit
	loop
	end

loop

The problems:

you aks the player to input "Y" or "N". But the variable y can only contain an integer value. So you have to change it to y$.

+ Code Snippet

input y

has to be

+ Code Snippet

input y$

Second, you compare it to a variable. Not a piece of text. So Y has to be "Y".

+ Code Snippet

CASE "Y"

not

+ Code Snippet

CASE Y

Third: just for completiness, I changed the select y$ to select upper$(y$). Because it is possible that the player will input a lower "y".

+ Code Snippet

SELECT Y$

becomes

+ Code Snippet

SELECT upper$(y$)

That's all. Good luck.

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Milky the purple crab

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 20th Aug 2005 07:38 Edited at: 20th Aug 2005 08:57

Link

thanks alot

i finished it its a bit messy and i have to change it a bit but its finished

hide mouse
` variables and arrays
prompt1$= "do you help? (Y or N)"
`welcome
print "welcome to sherwood forest, you are robin hood."
print "press any key to start"
`start main loop
start:
sync off
   do
   suspend for key
   cls
   `prompt1
   print "you see a fair maiden being attacked by huge cannibal monkeys!!! ";prompt1$
   input y$;a1$
   wait 1000
IF a1$="y" then gosub scene1
IF a1$="Y" then gosub scene1
If a1$="n" then gosub death
IF a1$="N" then gosub death
`prompt2
print "do you: "
wait 2000
print "a)Investigate"
print "b)Ignore it"
print "c)scream for help"
input y$;a2$
IF a2$="a" THEN gosub scene2
IF a2$="A" THEN gosub scene2
IF a2$="b" THEN gosub scene2a
IF a2$="B" THEN gosub scene2
IF a2$="c" THEN gosub scene2b
IF a2$="C" THEN gosub scene2
wait 2000
cls
`prompt3
print "you trip over and accidently defeat the thieves!!!"
wait 2000
cls
print "the fair maiden takes you back to the evil kings castle"
wait 1000
print " he is afraid of the ugly duckling! says the fair maiden"
wait 1000
print "press anykey to continue"
suspend for key
cls
print "the kings guards take you to the throne room"
wait 1000
print "you see 3 animals, a cow, a baby swan and a dog"
wait 2000
cls
print "the king looks at you and says"
wait 1000
print "you are going to be executed"
wait 1000
cls
print "do you: "
wait 1000
print "take the "
print "a)cow "
wait 1000
print "b)baby swan "
wait 1000
print "c)dog"
wait 1000
input y$;a3$
wait 2000
cls
IF a3$="a" THEN gosub death2
IF a3$="A" THEN gosub death2
IF a3$="b" THEN gosub scene3
IF a3$="B" then gosub scene3
IF a3$="c" then gosub death2
IF a3$="C" then gosub death2

exit
loop
end

`game over
gameover:
end
`death
   death:
   cls
      print "you have ignored a good deed!"
      wait 1000
      print "you have been executed for thieft!"
      wait 1000
      print "press any key to end"
      suspend for key
      gosub gameover
`death2
death2:
cls
wait 500
print "you are dead!"
gosub gameover

`scene 1
   scene1:
   cls
         PRINT "you charge forward and deafeat the monkeys!, the maiden rewards you with a kiss"
         wait 1000
         PRINT "you move towards a cabin, you hear screams from the inside!"
         wait 2000

return

`scene2
scene2:
cls
print "you sneak up to the window and peek through....."
cls
wait 2000
print "you see a band of thieves, beating a fair maiden!"
cls
wait 1000
print "do you rush in to help(Y or N) ?"
input y$;a2a$
IF a2a$= "n" then gosub death
IF a2a$= "N" then gosub death
print "you rush in and.... "
return

`scene2a
scene2a:
cls
gosub death

`scene2b
scene2b:
cls
wait 1000
print "you scream, arrrrrrhhhhhhhhh!!!!!"
wait 2000
cls
print " a band of thieves rush out and kill you!!"
gosub death2

`scene3
scene3:
print "you throw the baby swan at the evil king!"
wait 1000
print "I surrender!!!!! says the evil king"
wait 2000
cls
gosub win

`win
win:
print "you take over the evil king's kingdom and marry the fair maiden"
wait 1000
print "and live happily ever after!"
wait 3000
cls
print "press anykey to end"
suspend for key
gosub gameover

+ Code Snippet

hide mouse
` variables and arrays
prompt1$= "do you help? (Y or N)"
`welcome
print "welcome to sherwood forest, you are robin hood."
print "press any key to start"
`start main loop
start:
sync off
   do
   suspend for key
   cls
   `prompt1
   print "you see a fair maiden being attacked by huge cannibal monkeys!!! ";prompt1$
   input y$;a1$
   wait 1000
IF a1$="y" then gosub scene1
IF a1$="Y" then gosub scene1
If a1$="n" then gosub death
IF a1$="N" then gosub death
`prompt2
print "do you: "
wait 2000
print "a)Investigate"
print "b)Ignore it"
print "c)scream for help"
input y$;a2$
IF a2$="a" THEN gosub scene2
IF a2$="A" THEN gosub scene2
IF a2$="b" THEN gosub scene2a
IF a2$="B" THEN gosub scene2
IF a2$="c" THEN gosub scene2b
IF a2$="C" THEN gosub scene2
wait 2000
cls
`prompt3
print "you trip over and accidently defeat the thieves!!!"
wait 2000
cls
print "the fair maiden takes you back to the evil kings castle"
wait 1000
print " he is afraid of the ugly duckling! says the fair maiden"
wait 1000
print "press anykey to continue"
suspend for key
cls
print "the kings guards take you to the throne room"
wait 1000
print "you see 3 animals, a cow, a baby swan and a dog"
wait 2000
cls
print "the king looks at you and says"
wait 1000
print "you are going to be executed"
wait 1000
cls
print "do you: "
wait 1000
print "take the "
print "a)cow "
wait 1000
print "b)baby swan "
wait 1000
print "c)dog"
wait 1000
input y$;a3$
wait 2000
cls
IF a3$="a" THEN gosub death2
IF a3$="A" THEN gosub death2
IF a3$="b" THEN gosub scene3
IF a3$="B" then gosub scene3
IF a3$="c" then gosub death2
IF a3$="C" then gosub death2


exit
loop
end

`game over
gameover:
end
`death
   death:
   cls
      print "you have ignored a good deed!"
      wait 1000
      print "you have been executed for thieft!"
      wait 1000
      print "press any key to end"
      suspend for key
      gosub gameover
`death2
death2:
cls
wait 500
print "you are dead!"
gosub gameover


   `scene 1
   scene1:
   cls
         PRINT "you charge forward and deafeat the monkeys!, the maiden rewards you with a kiss"
         wait 1000
         PRINT "you move towards a cabin, you hear screams from the inside!"
         wait 2000


return

`scene2
scene2:
cls
print "you sneak up to the window and peek through....."
cls
wait 2000
print "you see a band of thieves, beating a fair maiden!"
cls
wait 1000
print "do you rush in to help(Y or N) ?"
input y$;a2a$
IF a2a$= "n" then gosub death
IF a2a$= "N" then gosub death
print "you rush in and.... "
return


`scene2a
scene2a:
cls
gosub death

`scene2b
scene2b:
cls
wait 1000
print "you scream, arrrrrrhhhhhhhhh!!!!!"
wait 2000
cls
print " a band of thieves rush out and kill you!!"
gosub death2

`scene3
scene3:
print "you throw the baby swan at the evil king!"
wait 1000
print "I surrender!!!!! says the evil king"
wait 2000
cls
gosub win

`win
win:
print "you take over the evil king's kingdom and marry the fair maiden"
wait 1000
print "and live happily ever after!"
wait 3000
cls
print "press anykey to end"
suspend for key
gosub gameover

any hints on how to clean it up?

I don't fear pain.....I fear feeling it.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 20th Aug 2005 11:13

Link

When you get input you can change it to higher case so you only check for highercase strings.

+ Code Snippet

a2$=upper$(a2$)
IF a2$="A" THEN gosub scene2
IF a2$="B" THEN gosub scene2a
IF a2$="C" THEN gosub scene2b

If you don't really want to see the text output you can use inkey$(). It has to be in a loop though... inkey$() checks for keys when it sees that line and instantly goes to the next line. You don't have to use different strings for each input either (no a1$, a2$, a3$... all can be a$ or whatever you want).

+ Code Snippet

do
 a$=inkey$()
 a$=upper$(a$)
 if a$>""
  if a$="A" THEN gosub scene2
  if a$="B" THEN gosub scene2a
  if a$="C" THEN gosub scene2b
 endif
loop

One of the most important things you need to learn is spacing your code. See how the above snip has the "do" to the far left and the next command under that is one space over " a$=inkey$()". When you nest properly everything should line up. Sven B uses tabs to space code which is just as good. It just depends on your preference. But spaced out code is much, much easier to read... especially when you go back to it months or even years later.

And I hate to nitpick too but "cannibal monkeys" eat other monkeys... not humans.

Back to top

Profile PM Email

Milky the purple crab

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 21st Aug 2005 02:22

Link

thanks grog.
the cannibal monkeys were ummmmm angry because the maiden didn't want to have any monkey legs

I don't fear pain.....I fear feeling it.

Back to top

Profile PM

Milky the purple crab

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 24th Aug 2005 10:07 Edited at: 24th Aug 2005 10:17

Link

REMOVED POST

I don't fear pain.....I fear feeling it.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 26th Aug 2005 07:35

Link

Quote: "thanks grog.
the cannibal monkeys were ummmmm angry because the maiden didn't want to have any monkey legs "

Oh it makes sense now.

(sorry I didn't reply right away... i've been playing Dungeon Siege 2)

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / im new please help me