Halp! Text adventure engine hiccups and I don't know what's what!

Author

Message

Bafflebox

14

Years of Service

User Offline

Joined: 25th Aug 2010

Location:

Posted: 26th Aug 2010 15:54

Link

So, it returns this:

Compiling project...
Subscript must be Integer or DWORD when referencing an array at line 87.
Compilation Failed (Syntax Errors)

I'm probably just reading across it entirely, but I've been breaking my head over it for an hour now. I ust want it to work

Hope you can help~!

type loc
name as string
description as string
north as integer
south as integer
east as integer
west as integer
up as integer
down as integer
endtype

Rem ==== DEFINE ALL ROOMS AND THEIR EXITS ====

totalRooms = 10

dim location(totalRooms) as loc

for i = 1 to totalRooms
read location(i).name
read location(i).description
read location(i).north
read location(i).south
read location(i).east
read location(i).west
read location(i).up
read location(i).down
next i

data "Manga Cafe", "put description here", 0, 0, 0, 2, 0, 0 `1
data "Angel Road", "put description here", 0, 3, 7, 1, 0, 0 `2
data "Angel Road", "put description here", 2, 4, 8, 5, 0, 0 `3
data "Angel Road", "put description here", 3, 0, 9, 6, 0, 0 `4
data "Pachinko", "put description here", 0, 0, 0, 3, 0, 0 `5
data "XXX", "put description here", 0, 0, 0, 4, 0, 0 `6
data "Super Market", "put description here", 0, 0, 2, 0, 0, 0 `7
data "Dark Alley", "put description here", 0, 0, 3, 10, 0, 0 `8
data "Department Store", "put description here", 0, 0, 0, 4, 0, 0 `9
data "Back Alley", "put description here", 0, 0, 0, 8, 0, 0 `10

plr_pos = 1

do
	cls
	gosub displayPosition
	
	gosub playerInput
	
	sync
loop

displayPosition:
	print location(plr_pos).name
	print location(plr_pos).description
return

nogos=4
dim nogo$(nogos)
for i = 0 to nogos
	read nogo$(i)
next i

data "You can't go that way."
data "You're scared to go that way!"
data "You can't see a thing there, it's too dark!"
data "The door is locked."

playerInput:
input "> ", cmd$
select cmd$
	case "n"
		if location(plr_pos).north < 1
			print nogo$(abs(location(plr_pos).north))
		else
			plr_pos = location(plr_pos).north
		endif
	end case
	case "s"
		if location(plr_pos).south < 1
			print nogo$(abs(location(plr_pos).south))
		else
			plr_pos = location(plr_pos).south
		endif
	end case
	case "e"
		if location(plr_pos).east < 1
			print nogo$(abs(location(plr_pos).east))
		else
			plr_pos = location(plr_pos).east
		endif
	end case
	case "w"
		if location(plr_pos).west < 1
			print nogo$(abs(location(plr_pos).west))
		else
			plr_pos = location(plr_pos).west
		endif
	end case
	case "u"
		if location(plr_pos).up < 1
			print nogo$(abs(location(plr_pos).up))
		else
			plr_pos = location(plr_pos).up
		endif
	end case
	case "d"
		if location(plr_pos).down < 1
			print nogo$(abs(location(plr_pos).down))
		else
			plr_pos = location(plr_pos).down
		endif
	end case
	case "l"

end case
end select

return

+ Code Snippet

type loc
name as string
description as string
north as integer
south as integer
east as integer
west as integer
up as integer
down as integer
endtype

Rem ==== DEFINE ALL ROOMS AND THEIR EXITS ====

totalRooms = 10

dim location(totalRooms) as loc

for i = 1 to totalRooms
read location(i).name
read location(i).description
read location(i).north
read location(i).south
read location(i).east
read location(i).west
read location(i).up
read location(i).down
next i

data "Manga Cafe", "put description here", 0, 0, 0, 2, 0, 0 `1
data "Angel Road", "put description here", 0, 3, 7, 1, 0, 0 `2
data "Angel Road", "put description here", 2, 4, 8, 5, 0, 0 `3
data "Angel Road", "put description here", 3, 0, 9, 6, 0, 0 `4
data "Pachinko", "put description here", 0, 0, 0, 3, 0, 0 `5
data "XXX", "put description here", 0, 0, 0, 4, 0, 0 `6
data "Super Market", "put description here", 0, 0, 2, 0, 0, 0 `7
data "Dark Alley", "put description here", 0, 0, 3, 10, 0, 0 `8
data "Department Store", "put description here", 0, 0, 0, 4, 0, 0 `9
data "Back Alley", "put description here", 0, 0, 0, 8, 0, 0 `10


plr_pos = 1

do
	cls
	gosub displayPosition
	
	gosub playerInput
	
	sync
loop

displayPosition:
	print location(plr_pos).name
	print location(plr_pos).description
return

nogos=4
dim nogo$(nogos)
for i = 0 to nogos
	read nogo$(i)
next i

data "You can't go that way."
data "You're scared to go that way!"
data "You can't see a thing there, it's too dark!"
data "The door is locked."

playerInput:
input "> ", cmd$
select cmd$
	case "n"
		if location(plr_pos).north < 1
			print nogo$(abs(location(plr_pos).north))
		else
			plr_pos = location(plr_pos).north
		endif
	end case
	case "s"
		if location(plr_pos).south < 1
			print nogo$(abs(location(plr_pos).south))
		else
			plr_pos = location(plr_pos).south
		endif
	end case
	case "e"
		if location(plr_pos).east < 1
			print nogo$(abs(location(plr_pos).east))
		else
			plr_pos = location(plr_pos).east
		endif
	end case
	case "w"
		if location(plr_pos).west < 1
			print nogo$(abs(location(plr_pos).west))
		else
			plr_pos = location(plr_pos).west
		endif
	end case
	case "u"
		if location(plr_pos).up < 1
			print nogo$(abs(location(plr_pos).up))
		else
			plr_pos = location(plr_pos).up
		endif
	end case
	case "d"
		if location(plr_pos).down < 1
			print nogo$(abs(location(plr_pos).down))
		else
			plr_pos = location(plr_pos).down
		endif
	end case
	case "l"

	end case
end select

return

Back to top

Profile PM

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 26th Aug 2010 22:33 Edited at: 26th Aug 2010 22:34

Link

Take the spaces out of end case so its endcase and end select so its endselect, then it'll start going.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Bafflebox

14

Years of Service

User Offline

Joined: 25th Aug 2010

Location:

Posted: 27th Aug 2010 02:10

Link

No, that doesn't fix it

It still returns the same problem. Silly syntax error, but yeah, the problem remains. Any other suggestions? ^_^; I really hope someone can help me out here~

Oh, PS!
This is a little off-topic, but the editor is a bit slow on the uptake for me, does anyone know why? I'm using W7 x64 on a 2.33GHz Core2Quad with 4GB RAM, so I don't think my computer would be to slow (I certainly meet the requirements)
Still, the editor is reaaally sluggish for me :o
Any thoughts on that? (to clarify, there's an increasing latency between typing and visual display, which is rather distracting :o)

Back to top

Profile PM

Wysardry

14

Years of Service

User Offline

Joined: 10th Jun 2010

Location: Yew Kay

Posted: 27th Aug 2010 02:57

Link

It doesn't seem to like the abs command being used with your array. Also, the code where you set the values for nogo$ is never reached as it's after the loop and outside the subroutines.

I'm still new to DB Pro myself, but the following code at least compiles and runs. I'm just not sure it's doing what you wanted it to:-

type loc
name as string
description as string
north as integer
south as integer
east as integer
west as integer
up as integer
down as integer
endtype

Rem ==== DEFINE ALL ROOMS AND THEIR EXITS ====

totalRooms = 10

dim location(totalRooms) as loc

for i = 1 to totalRooms
read location(i).name
read location(i).description
read location(i).north
read location(i).south
read location(i).east
read location(i).west
read location(i).up
read location(i).down
next i

data "Manga Cafe", "put description here", 0, 0, 0, 2, 0, 0 `1
data "Angel Road", "put description here", 0, 3, 7, 1, 0, 0 `2
data "Angel Road", "put description here", 2, 4, 8, 5, 0, 0 `3
data "Angel Road", "put description here", 3, 0, 9, 6, 0, 0 `4
data "Pachinko", "put description here", 0, 0, 0, 3, 0, 0 `5
data "XXX", "put description here", 0, 0, 0, 4, 0, 0 `6
data "Super Market", "put description here", 0, 0, 2, 0, 0, 0 `7
data "Dark Alley", "put description here", 0, 0, 3, 10, 0, 0 `8
data "Department Store", "put description here", 0, 0, 0, 4, 0, 0 `9
data "Back Alley", "put description here", 0, 0, 0, 8, 0, 0 `10

plr_pos = 1

nogos=4
dim nogo$(nogos)
for i = 0 to nogos
    read nogo$(i)
next i

data "You can't go that way."
data "You're scared to go that way!"
data "You can't see a thing there, it's too dark!"
data "The door is locked."

do
    cls
    gosub displayPosition
    
    gosub playerInput
    
    sync
loop

displayPosition:
    print location(plr_pos).name
    print location(plr_pos).description
return

playerInput:
input "> ", cmd$
select cmd$
    case "n"
        if location(plr_pos).north < 1
            print nogo$(location(plr_pos).north)
        else
            plr_pos = location(plr_pos).north
        endif
    endcase
    case "s"
        if location(plr_pos).south < 1
            print nogo$(location(plr_pos).south)
        else
            plr_pos = location(plr_pos).south
        endif
    endcase
    case "e"
        if location(plr_pos).east < 1
            print nogo$(location(plr_pos).east)
        else
            plr_pos = location(plr_pos).east
        endif
    endcase
    case "w"
        if location(plr_pos).west < 1
            print nogo$(location(plr_pos).west)
        else
            plr_pos = location(plr_pos).west
        endif
    endcase
    case "u"
        if location(plr_pos).up < 1
            print nogo$(location(plr_pos).up)
        else
            plr_pos = location(plr_pos).up
        endif
    endcase
    case "d"
        if location(plr_pos).down < 1
            print nogo$(location(plr_pos).down)
        else
            plr_pos = location(plr_pos).down
        endif
    endcase
    case "l"

endcase
endselect

return

+ Code Snippet

type loc
name as string
description as string
north as integer
south as integer
east as integer
west as integer
up as integer
down as integer
endtype

Rem ==== DEFINE ALL ROOMS AND THEIR EXITS ====

totalRooms = 10

dim location(totalRooms) as loc

for i = 1 to totalRooms
read location(i).name
read location(i).description
read location(i).north
read location(i).south
read location(i).east
read location(i).west
read location(i).up
read location(i).down
next i

data "Manga Cafe", "put description here", 0, 0, 0, 2, 0, 0 `1
data "Angel Road", "put description here", 0, 3, 7, 1, 0, 0 `2
data "Angel Road", "put description here", 2, 4, 8, 5, 0, 0 `3
data "Angel Road", "put description here", 3, 0, 9, 6, 0, 0 `4
data "Pachinko", "put description here", 0, 0, 0, 3, 0, 0 `5
data "XXX", "put description here", 0, 0, 0, 4, 0, 0 `6
data "Super Market", "put description here", 0, 0, 2, 0, 0, 0 `7
data "Dark Alley", "put description here", 0, 0, 3, 10, 0, 0 `8
data "Department Store", "put description here", 0, 0, 0, 4, 0, 0 `9
data "Back Alley", "put description here", 0, 0, 0, 8, 0, 0 `10


plr_pos = 1

nogos=4
dim nogo$(nogos)
for i = 0 to nogos
    read nogo$(i)
next i

data "You can't go that way."
data "You're scared to go that way!"
data "You can't see a thing there, it's too dark!"
data "The door is locked."

do
    cls
    gosub displayPosition
    
    gosub playerInput
    
    sync
loop

displayPosition:
    print location(plr_pos).name
    print location(plr_pos).description
return

playerInput:
input "> ", cmd$
select cmd$
    case "n"
        if location(plr_pos).north < 1
            print nogo$(location(plr_pos).north)
        else
            plr_pos = location(plr_pos).north
        endif
    endcase
    case "s"
        if location(plr_pos).south < 1
            print nogo$(location(plr_pos).south)
        else
            plr_pos = location(plr_pos).south
        endif
    endcase
    case "e"
        if location(plr_pos).east < 1
            print nogo$(location(plr_pos).east)
        else
            plr_pos = location(plr_pos).east
        endif
    endcase
    case "w"
        if location(plr_pos).west < 1
            print nogo$(location(plr_pos).west)
        else
            plr_pos = location(plr_pos).west
        endif
    endcase
    case "u"
        if location(plr_pos).up < 1
            print nogo$(location(plr_pos).up)
        else
            plr_pos = location(plr_pos).up
        endif
    endcase
    case "d"
        if location(plr_pos).down < 1
            print nogo$(location(plr_pos).down)
        else
            plr_pos = location(plr_pos).down
        endif
    endcase
    case "l"

    endcase
endselect

return

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 27th Aug 2010 07:02 Edited at: 27th Aug 2010 07:03

Link

Yeah HowDo is right about your SELECT/CASE statements and Wysardry is right about ABS(). ABS() is used to convert a negative number to a positive. There's no need to use ABS() since your room numbers are never negative. With ABS() it was giving an array out of bounds error so use Wysardrys modification of your code.

That's a nice start on a text adventure game by the way.

Back to top

Profile PM Email

Bafflebox

14

Years of Service

User Offline

Joined: 25th Aug 2010

Location:

Posted: 27th Aug 2010 12:25

Link

Thanks so much!
I got rid of the excessive spacing and the ABS() function. The reason I had it in there was to be able to create different kinds of "You can't go there" messages (for which I'd use the NOGO$ array)

I wonder how I should fix that, now, though ^^:
Also, thanks Grueslayer!

I used one of the newbie tutorials as a basis for it. Although it's very largely based on it, actually, I'm not sure how much of it is exactly the same. I did try to rewrite the code myself, but I'm sure I did a lot from memory

Back to top

Profile PM

Wysardry

14

Years of Service

User Offline

Joined: 10th Jun 2010

Location: Yew Kay

Posted: 27th Aug 2010 15:47

Link

Try this:-

type loc
name as string
description as string
north as integer
south as integer
east as integer
west as integer
up as integer
down as integer
endtype

Rem ==== DEFINE ALL ROOMS AND THEIR EXITS ====

totalRooms = 10

dim location(totalRooms) as loc

for i = 1 to totalRooms
read location(i).name
read location(i).description
read location(i).north
read location(i).south
read location(i).east
read location(i).west
read location(i).up
read location(i).down
next i

data "Manga Cafe", "put description here", 0, 0, 0, 2, 0, 0 `1
data "Angel Road", "put description here", 0, 3, 7, 1, 0, 0 `2
data "Angel Road", "put description here", 2, 4, 8, 5, 0, 0 `3
data "Angel Road", "put description here", 3, 0, 9, 6, 0, 0 `4
data "Pachinko", "put description here", 0, 0, 0, 3, 0, 0 `5
data "XXX", "put description here", 0, 0, 0, 4, 0, 0 `6
data "Super Market", "put description here", 0, 0, 2, 0, 0, 0 `7
data "Dark Alley", "put description here", 0, 0, 3, 10, 0, 0 `8
data "Department Store", "put description here", 0, 0, 0, 4, 0, 0 `9
data "Back Alley", "put description here", 0, 0, 0, 8, 0, 0 `10

plr_pos = 1
nogo_message_number = 0
nogos=4
dim nogo$(nogos)
for i = 0 to nogos
    read nogo$(i)
next i

data "You can't go that way."
data "You're scared to go that way!"
data "You can't see a thing there, it's too dark!"
data "The door is locked."

do
    cls
    gosub displayPosition
    
    gosub playerInput
    
    sync
loop

displayPosition:
    print location(plr_pos).name
    print location(plr_pos).description
return

playerInput:
input "> ", cmd$
select cmd$
    case "n"
        if location(plr_pos).north < 1
            nogo_message_number = abs(location(plr_pos).north)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).north
        endif
    endcase
    case "s"
        if location(plr_pos).south < 1
            nogo_message_number = abs(location(plr_pos).south)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).south
        endif
    endcase
    case "e"
        if location(plr_pos).east < 1
            nogo_message_number = abs(location(plr_pos).east)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).east
        endif
    endcase
    case "w"
        if location(plr_pos).west < 1
            nogo_message_number = abs(location(plr_pos).west)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).west
        endif
    endcase
    case "u"
        if location(plr_pos).up < 1
            nogo_message_number = abs(location(plr_pos).up)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).up
        endif
    endcase
    case "d"
        if location(plr_pos).down < 1
            nogo_message_number = abs(location(plr_pos).down)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).down
        endif
    endcase
    case "l"

endcase
endselect

return

+ Code Snippet

type loc
name as string
description as string
north as integer
south as integer
east as integer
west as integer
up as integer
down as integer
endtype

Rem ==== DEFINE ALL ROOMS AND THEIR EXITS ====

totalRooms = 10

dim location(totalRooms) as loc

for i = 1 to totalRooms
read location(i).name
read location(i).description
read location(i).north
read location(i).south
read location(i).east
read location(i).west
read location(i).up
read location(i).down
next i

data "Manga Cafe", "put description here", 0, 0, 0, 2, 0, 0 `1
data "Angel Road", "put description here", 0, 3, 7, 1, 0, 0 `2
data "Angel Road", "put description here", 2, 4, 8, 5, 0, 0 `3
data "Angel Road", "put description here", 3, 0, 9, 6, 0, 0 `4
data "Pachinko", "put description here", 0, 0, 0, 3, 0, 0 `5
data "XXX", "put description here", 0, 0, 0, 4, 0, 0 `6
data "Super Market", "put description here", 0, 0, 2, 0, 0, 0 `7
data "Dark Alley", "put description here", 0, 0, 3, 10, 0, 0 `8
data "Department Store", "put description here", 0, 0, 0, 4, 0, 0 `9
data "Back Alley", "put description here", 0, 0, 0, 8, 0, 0 `10


plr_pos = 1
nogo_message_number = 0
nogos=4
dim nogo$(nogos)
for i = 0 to nogos
    read nogo$(i)
next i

data "You can't go that way."
data "You're scared to go that way!"
data "You can't see a thing there, it's too dark!"
data "The door is locked."

do
    cls
    gosub displayPosition
    
    gosub playerInput
    
    sync
loop

displayPosition:
    print location(plr_pos).name
    print location(plr_pos).description
return

playerInput:
input "> ", cmd$
select cmd$
    case "n"
        if location(plr_pos).north < 1
            nogo_message_number = abs(location(plr_pos).north)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).north
        endif
    endcase
    case "s"
        if location(plr_pos).south < 1
            nogo_message_number = abs(location(plr_pos).south)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).south
        endif
    endcase
    case "e"
        if location(plr_pos).east < 1
            nogo_message_number = abs(location(plr_pos).east)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).east
        endif
    endcase
    case "w"
        if location(plr_pos).west < 1
            nogo_message_number = abs(location(plr_pos).west)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).west
        endif
    endcase
    case "u"
        if location(plr_pos).up < 1
            nogo_message_number = abs(location(plr_pos).up)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).up
        endif
    endcase
    case "d"
        if location(plr_pos).down < 1
            nogo_message_number = abs(location(plr_pos).down)
            print nogo$(nogo_message_number)
            wait 1000
        else
            plr_pos = location(plr_pos).down
        endif
    endcase
    case "l"

    endcase
endselect

return

There's a bit more code, but I think it now does what you were aiming for.

Back to top

Profile PM

Bafflebox

14

Years of Service

User Offline

Joined: 25th Aug 2010

Location:

Posted: 28th Aug 2010 01:11

Link

I could've sworn I had replied :o

In any event, thanks! That's definitely working now

Now all I need are items and flags and I'll be all set to make a decent TA ^-^

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Halp! Text adventure engine hiccups and I don't know what's what!