-1

私は FreeBasic を学んでいて、基本的なテキスト アドベンチャー ゲームを書き始めました。私はしばらくの間同じ式に従ってきましたが、最近の開発では次のエラーが発生しました。

beta.bas(226) エラー 32: 'end' に 'END IF' が必要です

以前はすべて正常に機能していたので、これは奇妙です。これが私のコードの2つのコピーです-

壊れた-

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

明確にするために、「end」の前に「end if」を追加しようとしましたが、それでも次のようになりました。

「「end if」に「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
        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

私はこれについてまったくの初心者であり、非常に困惑しています。私は何を間違っていますか？

4

3 に答える 3

0

ElseIf の代わりに CASES を使用する

配列を使用して、var 内に複数の選択肢またはメッセージを格納できます


Dim as integer i = 0
dim as String Message(3)

Message(1) = "Hello"
Message(2) = "Middle Answer"
Message(3) = "End Answer"


   For i  = 1 To 16  Step 1 ' Init loop until 16 cicles
   print i

        Select Case as const i
            Case 1 
                Print "The message is:" & Message(i) ' The first 3 steps 
            Case 2 
                Print "The message is:" & Message(i) ' The first 3 steps 
            Case 3 
                Print "The message is:" & Message(i) ' The first 3 steps 
            Case 4    ' If i  = 4 Give this solution
                Print " Solution 1"
            Case  8    ' Same when = 8
                Print "Middle"
            Case 16   ' At last = 16
                Print "Last"
        End Select

    next i

ご覧のとおり、CASE を使用してさらに多くの条件付きの選択肢を入力できます。また、テキスト アドベンチャーでは、選択肢によって条件付けられたセット変数を作成する必要があります。

Dim AnswerPrompt As string
Dim MyStep as Integer
Dim MyGold as Integer 

'For a correct developing You Have to set each var before you use it

Dim as Integer MySword = 0 'Directly when you set

AnswerPrompt = "" 'Before the program ask
MyStep = 1
MyGold = 15

Line Input "Do you want give 10 gold for the Sword ?"; AnswerPrompt
If UCASE(AnswerPrompt) = "YES" Then ' UCASE transform all letter in capital
   If MyGold >= 10  Then 
      MyStep = MyStep + 5
      MyGold = MyGold - 10
      MySword = 1
    Else
      Print "Your Gold is not Enough"
    End If
Else
Print "Allright lets go away"
End If

FreeBASIC は互換性のために古い BASIC から GOTO を継承していますが、GOTO の使用を必要としない構造を作成し、Do While Until Loop でループを作成し、タスクを実行する前に指定された関数を使用することをお勧めします。

于 2020-04-06T13:20:22.610 に答える