Hi, I'm trying to make a text based game and I'm trying to contain my text in data, then call it to whenever it must be. But I've got some problems and questions:
1. When I try to call these up I get a few cut off or that shouldn't appear... and at the y/n command it doesn't go on to the tutorial? Why?
Dim intro$(27)
Dim tut$(21)
for t=1 to 28
Read intro$(t)
next t
DATA "Year 2206"
DATA "You have been transported to the spacestation, orbiting the Earth as a volunteer to explore the deep space. Recently, the alien forces, Narka assaulted one team"
DATA "of space explorers, known as Spex,outside the solar system. One survivor explained what happened, also noting about the diskette they left on the ship and"
DATA "showed of the plans that were to","either own the solar system or to destroy it."
DATA "This caused much alarm to the world. As the people of Earth could forsee Narka's actions, they decided to plan ahead and to send a whole army of people to"
DATA "attack the Narka's forces. This project to be launched is to be Project:SAA"
DATA "Right now you are in your EX1 ship inside the space station just before the launch of Project:SAA where the whole solar system salutes you and the other 507"
DATA "pilates as you risk your lives to save the fate of the solar system."
DATA "3...2...1 Take off!"
DATA "As you make your way out of the station you see an array of ships all fighting by your side. Then the Giglet, an enormous battleship is made way for the lead."
DATA "SCI:>Uploading data..."
DATA "SCI:>Welcome player to the Ship Computer Interface (SCI). Would you like a recap on how to work the system?"
DATA "SCI:>Project:SAA"
DATA "SCI:>You are to go through the west spacegates until you reach Fian's Ledgend. Take the north gate then west. This is where some Narka are situated. I have"
DATA "uploaded 1000Kr to everyone's account so you may purchase what you wish. A good set of guns may become useful and a good sheild would also be good to defend"
DATA "yourself. Rendez-vous at GI87. Until we meet comrades."
DATA "<<<END OF TRANSMISION>>>"
DATA "SCI:>Group Alpha G - Mari, Higie, Devik, Junrey"
DATA "Group leader - Player"
DATA "Player:>Alright comrades, we've gotta get to GI87 so I propose we split up, buy what equipment we'd like and rendez-vous in Karka's Future."
DATA "Devik:>Where is that captian?"
DATA "Player:>It's easy, just go through the west gates two times and then you're in Karka's Future."
DATA "Higie:>Sounds good to me."
DATA "Player:>Anyway, once we are in GI87, we will be able to bring the enemy down. Let's keep in touch guys if we have any trouble. Any questions?"
DATA "Mari:>Nope."
DATA "Junrey:>Nada"
DATA "Higie:>Yes...err...no."
DATA "Player:>Good. See you all then. And don't be late!"
for t=1 to 21
read tut$(t)
next t
DATA "SCI:>Welcome to the Spex tutorial. If you wish to skip the tutrial press Esc at anytime."
DATA "This is the Ships Computer Interface, CSI for short. This is where you input your command to tell the ship what to do. To bring the whole list of"
DATA "commands, type 'help'."
DATA "Type in:"
DATA "'l.info' will give you the local information of the sector you are in. It will show the stations and ships inside the sectors."
DATA "'s.info' will show you some information on the ship; weapons, shield, items etc."
DATA "'m.info' will bring up your personal info; kredits, name, time played etc."
DATA "'dock station' will dock at the station specified eg 'dock eq' will dock at the equipment dock"
DATA "'log' will bring up the logs."
DATA "'cls' will clear the screen."
DATA "'direction','go direction' will go in the desired direction's space gate eg 'west' will go to the west gate."
DATA ""
DATA "Trade:"
DATA "When docked at a station you can use the commands that are displayed:"
DATA "'buy item' will buy a certain item."
DATA "'sell item' will sell a certain item."
DATA "'itemlist' will list the items to sell onboard"
DATA ""
DATA "Fighting:"
DATA "When engaged in a fight:"
DATA "'fight enemy' will fight an enemy, this process of fight is automatic"
DATA "To come back to this tutorial at the SCI prompt type in 'tut'."
GAME:
REM INTRO
For t=1 to 13
Print intro$(t)
Wait key
next t
REM TUTORIAL
Input "Y/N?>";ans$
if upper$(ans$)="Y"
For t=1 to 21
Print tut$(t)
wait key
next t
Endif
for t=12 to 27
Print intro$(t)
Wait key
next t
Print "Fin"
Wait key
2. For the parser bit i need an array inside an array (spacepos(spaceno(t)). Is this possible?
Thanks
The InTIMidator
"Press any key ... where's the any key"
AMD Athlon 64 3400, 1 Gb RAM, Radeon 9800 pro, 80GB HDD
