我一直在学习 FreeBasic 并开始编写一个很好的Basic文字冒险游戏。我已经遵循相同的公式一段时间了，但在我最近的开发中得到了以下错误：
beta.bas(226) 错误 32：“end”中应为“END IF”
这很奇怪，因为之前一切正常。这是我的代码的两份副本-
破碎的-
Dim As String strInput
main:
print "You have awakened in a dark room. What do you do? "
input ">", strInput
sleep 500
if strinput = "Leave" then
goto option1L1
else if strinput = "leave" then
goto option1L1
else
print "You can't do that."
end if
sleep 500
goto main
option1L1:
print "You have left the room"
sleep 500
print "You are now outside. What do you want to do.?"
input ">", strInput
sleep 500
if strinput = "Look around" then
goto lookaround1
else if strinput = "look around" then
goto lookaround1
else
print "You can't do that."
end if
goto option1L1
lookaround1:
print "You see a road leading into a dark forest, and a road leading into a happy looking meadow. Which path do you take?"
sleep 500
input ">", strinput
if strinput = "Dark forest" then
goto darkforest
else if strinput = "dark forest" then
goto darkforest
else if strinput = "Dark Forest" then
goto darkforest
else if strinput = "Happy meadow" then
goto happymeadow
else if strinput = "Happy Meadow" then
goto happymeadow
else if strinput = "happy meadow" then
goto happymeadow
else if strinput = "happy looking meadow" then
goto happymeadow
else if strinput = "Happy looking meadow" then
goto happymeadow
else if strinput = "Happy Looking Meadow" then
goto happymeadow
else
print "You can't do that."
end if
goto lookaround1
end if
end
darkforest:
print "You have taken the path leading into the dark forest. Before you, you see a bear. What do you do?"
print "Options- 'Attack bear' or 'Run from bear'"
print "Tip- Commands are case sensitive"
sleep 500
input ">", strinput
if strinput = "Attack bear" then
goto attackbear
else if strinput = "Run from bear" then
goto runfrombear
else
print "You can't do that."
END if
goto darkforest
END
happymeadow:
print "The meadow turns out to be a trap. Unfortunately, you are caught in this trap and are now dead. Goodbye."
END if
end
attackbear:
print "You attack the bear with your 'bare' hands. You prevail, but have broken your arm. What do you do?"
print "Your options are to 'Make a splint' or to 'Press onward'"
sleep 500
input ">", strinput
if strinput = "Make a splint" then
goto makeasplint
else if strinput = "Press onward" then
goto pressonward
else
print "You can't do that."
END if
goto attackbear
end if
END
runfrombear:
print "You tried to run from the bear, but were eaten. Sorry!"
END if
end
makeasplint:
print "You made a splint, and are able to carry on."
print "Travelling..."
sleep 1000
print "You have come to a small house. What do you do?"
print "Options- 'Go inside', 'Wait outside, 'Keep travelling'"
input ">", strinput
if strinput = "Go inside" then
goto insidehouse
else if strinput = "Wait outside" then
goto outsidehouse
else if strinput = "Keep travelling" then
goto keeptravelling
else
print "You can't do that."
print "Tip: Commands are case sensitive"
goto makeasplint
END if
end
pressonward:
print "You press onward, but trip on a rock and die."
END if
end
insidehouse:
print "You have entered the cabin. Inside you find a sword. Do you want to equip the sword?"
print "Options: 'Yes' or 'No'"
input ">", strinput
if strinput = "Yes" then
goto yes
else if strinput = "No" then
goto no
else
print "Please enter either 'Yes' or 'No'"
print "Remember, all commands are case sensitive. Sorry!"
goto insidehouse
end if
end
outsidehouse:
print "You wait around outside the huse. You eventually die of starvation."
end if
end
keeptravelling:
print "You keep travelling and eventually find your way out of the forest. "
print "Travelling..."
sleep 2000
print "You have now come to a giant castle. What do you want to do?"
print "Your options are 'Go inside' and 'Leave'"
input ">", strinput
if strinput = "Go inside" then
goto insidecastle
else if strinput = "Leave" then
goto leave
else
print "You can't do that"
goto keeptravelling
END if
end
yes:
print "You equip the sword, but slip and stab yourself with it. You are dead."
end if
end
no:
print "You leave the house."
goto makeasplint
end if
end
insidecastle:
print "After entering the castle, you slip on a stone and hit your face on the floor, rendering you unconscious."
print "..."
sleep 2000
print "After you awake, you find your movement to be constricted by some sort of leather strap."
print "..."
sleep 2000
print "You hear a sound. It is a rough voice saying 'This is my swamp..."
print "The ogre kills you, and you are dead."
end if
end
leave:
print "You leave the castle, and find your way to a happy cottage, where you find a bed. What do you do now?"
print "Your options are 'Sleep' and 'Don't sleep'"
input ">", strinput
if strinput = "Sleep" then
goto sleeping
else if strinput = "Don't sleep" then
goto dontsleep
else
print "You can't do that."
goto leave
end if
end
sleeping:
print "You die in your sleep."
end if
end
dontsleep:
print "By not sleeping, you avoided the ghosts. Congrats, you've survived!"
sleep 5000
print "Do you wish to exit?"
input ">", strinput
if strinput = "Yes" then
goto exitgame
if strinput = "No" then
print "Too bad!"
goto exitgame
end if
end
exitgame:
end
需要明确的是，我试图在“结束”之前添加一个“结束如果”，但它仍然给了我：
“在‘结束如果’中预期‘结束如果’”
最后工作-
Dim As String strInput
main:
print "You have awakened in a dark room. What do you do? "
input ">", strInput
sleep 500
if strinput = "Leave" then
goto option1L1
else if strinput = "leave" then
goto option1L1
else
print "You can't do that."
end if
sleep 500
goto main
option1L1:
print "You have left the room"
sleep 500
print "You are now outside. What do you want to do.?"
input ">", strInput
sleep 500
if strinput = "Look around" then
goto lookaround1
else
print "You can't do that."
end if
goto option1L1
lookaround1:
print "You see a road leading into a dark forest, and a road leading into a happy looking meadow. Which path do you take?"
sleep 500
input ">", strinput
if strinput = "Dark forest" then
goto darkforest
else if strinput = "Happy meadow" then
goto happymeadow
else
print "You can't do that."
end if
goto lookaround1
end
darkforest:
print "You have taken the path leading into the dark forest. Before you, you see a bear. What do you do?"
print "Options- 'Attack bear' or 'Run from bear'"
print "Tip- Commands are case sensitive"
sleep 500
input ">", strinput
if strinput = "Attack bear" then
goto attackbear
else if strinput = "Run from bear" then
goto runfrombear
else
print "You can't do that."
END if
goto darkforest
END
happymeadow:
print "The meadow turns out to be a trap. Unfortunately, you are caught in this trap and are now dead. Goodbye."
END if
end
attackbear:
print "You attack the bear with your 'bare' hands. You prevail, but have broken your arm. What do you do?"
print "Your options are to 'Make a splint' or to 'Press onward'"
sleep 500
input ">", strinput
if strinput = "Make a splint" then
goto makeasplint
else if strinput = "Press onward" then
goto pressonward
else
print "You can't do that."
END if
goto attackbear
END
runfrombear:
print "You tried to run from the bear, but were eaten. Sorry!"
END if
end
makeasplint:
print "You made a splint, and are able to carry on."
print "Travelling..."
sleep 1000
print "You have come to a small house. What do you do?"
print "Options- 'Go inside', 'Wait outside, 'Keep travelling'"
input ">", strinput
if strinput = "Go inside" then
goto insidehouse
else if strinput = "Wait outside" then
goto outsidehouse
else if strinput = "Keep travelling" then
goto keeptravelling
else
print "You can't do that."
print "Tip: Commands are case sensitive"
goto makeasplint
END if
end
pressonward:
print "You press onward, but trip on a rock and die."
END if
end
insidehouse:
print "You have entered the cabin. Inside you find a sword. Do you want to equip the sword?"
print "Options: 'Yes' or 'No'"
input ">", strinput
if strinput = "Yes" then
goto yes
else if strinput = "No" then
goto no
else
print "Please enter either 'Yes' or 'No'"
print "Remember, all commands are case sensitive. Sorry!"
goto insidehouse
end if
end
outsidehouse:
print "You wait around outside the huse. You eventually die of starvation."
end if
end
keeptravelling:
print "You keep travelling and eventually find your way out of the forest. "
print "Travelling..."
sleep 2000
print "You have now come to a giant castle. What do you want to do?"
print "Your options are 'Go inside' and 'Leave'"
input ">", strinput
if strinput = "Go inside" then
goto insidecastle
else if strinput = "Leave" then
goto leave
else
print "You can't do that"
goto keeptravelling
END if
end
yes:
print "You equip the sword, but slip and stab yourself with it. You are dead."
end if
end
no:
print "You leave the house."
goto makeasplint
end if
end
insidecastle:
print "After entering the castle, you slip on a stone and hit your face on the floor, rendering you unconscious."
print "..."
sleep 2000
print "After you awake, you find your movement to be constricted by some sort of leather strap."
print "..."
sleep 2000
print "You hear a sound. It is a rough voice saying 'This is my swamp..."
print "The ogre kills you, and you are dead."
end if
end
leave:
print "You leave the castle, and find your way to a happy cottage, where you find a bed. What do you do now?"
print "Your options are 'Sleep' and 'Don't sleep'"
input ">", strinput
if strinput = "Sleep" then
goto sleeping
else if strinput = "Don't sleep" then
goto dontsleep
else
print "You can't do that."
goto leave
end if
end
sleeping:
print "You die in your sleep."
END if
end
dontsleep:
print "By not sleeping, you avoided the ghosts. Congrats, you've survived!"
end if
end
我在所有这一切都是一个新手，我很困惑。我究竟做错了什么？