Whats wrong here?

[Reguba]

This is the tile
Case 1
        Call Prompt(index, "Enter the bosses lair?", 1)

this is the prompt set up
Sub PlayerPrompt(index, Prompt, Value)
If Prompt = 6 Then
    Select Case Value
        Case 0
            Call PlayerMsg(index,"You entered the Bosses lair!", 1) then
Call playerWarp(index,37,11,6)
        Case 1
            Call GlobalMsg("This is case 1?", 3)
    End Select
Else
    Select Case Value
        Case 0
            Call PlayerMsg(index,"You Decide not to enter", 1)
        Case 1
            Call GlobalMsg("You Decided not to enter", 4)
    End Select
End If
End Sub

I cant figure out what i am doing wrong if you can tell me it is greatly appreciated!