Could any 1 help fix this

[Diskmaster]

I was using all of these scripts just fine then SUDDENLY they stopped working  :icon_crap: Here is the scripted section that is not working, NONE of the scripts on here work (that is, nothing happens when I step on them) could someone help!!
________________________________________________________________________
```
' Executes when a player steps onto a scripted tile.
Sub ScriptedTile(Index, Script)
Select Case Script
Case 0
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest1") = "Have" Then
  Call playermsg(index, "Empty", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest1", "Have")
Call GiveCurrency(Index, 2, 1000)
Call playermsg(index, "You found 1000 gold!", 14)

Case 1
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest2") = "Have" Then
  Call playermsg(index, "Only Take 1", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest2", "Have")
Call GiveItem(Index, 92, 1)
Call playermsg(index, "In the chest sat a Rose of Returning", 14)

Case 2
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest3") = "Have" Then
  Call playermsg(index, "Only Take 1", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest3", "Have")
Call GiveItem(Index, 176, 1)
Call playermsg(index, "Hey, in this chest is a Graveyard Key", 14)

Case 3
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest4") = "Have" Then
  Call playermsg(index, "Only Take 1", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest4", "Have")
Call GiveItem(Index, 177, 1)
Call playermsg(index, "In this chest is a Noob Certifricate", 14)

Case 4
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest5") = "Have" Then
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest5", "Have")
Call GiveItem(Index, 21, 1)
Call playermsg(index, "Suddenly a Sword appears in your hand", 14)

Case 5
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest6") = "Have" Then
  Call playermsg(index, "Empty", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest6", "Have")
Call GiveCurrency(Index, 2, 100)
Call playermsg(index, "You found 100 gold, quest complete", 14)

Case 6
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest7") = "Have" Then
  Call playermsg(index, "This chest is empty", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest7", "Have")
Call GiveCurrency(Index, 2, 100)
Call playermsg(index, "You found 100 gold, quest complete", 14)

Case 7
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest8") = "Have" Then
  Call playermsg(index, "Please get this delivered, just use it on the door", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest8", "Have")
Call GiveItem(Index, 261, 1)
Call playermsg(index, "Could you take this to the room over there with the rug", 14)

Case 8
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest9") = "Have" Then
  Call playermsg(index, "There was only 1...", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest9", "Have")
Call GiveItem(Index, 220, 1)
Call playermsg(index, "You find the RARE BLUE GEM OF THE SEA", 14)

Case 9
If GetFreeSlots(Index) = 0 Then
  Call PlayerMsg(Index, "You don't have enough slots!", RED)
  Exit Sub
End If
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest10") = "Have" Then
  Call playermsg(index, "There was only 1...", 14)
  Exit Sub
End if
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest10", "Have")
Call GiveItem(Index, 221, 1)
Call playermsg(index, "You find the RARE GEM OF THE SAND", 14)

Case 10
If CanTake(Index, 269, 0) Then
  Call TakeItem(Index, 269, 0)
  Call GiveItem(Index, 270, 1)
  Call playermsg(index, "You Cook the meat", 14)
  Exit Sub
End if
Call playermsg(index, "You have no meat to cook", 14)

Case 11
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest11") = "Have" Then
  Call playermsg(index, "You can only do this quest once", 14)
  Exit Sub
End if
If CanTake(Index, 178, 0) Then
  Call GiveCurrency(Index, 2, 125)
  Call playermsg(index, "You hand Her your graveyard key, She then hands it back", 14)
  Call playermsg(index, "Thanks, I just never got to see one before!", 14)
  Call playermsg(index, "She hands you 125 Gold QUEST COMPLETE", 14)
Call PutVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest11", "Have") 
  Exit Sub
End if
Call playermsg(index, "Oh... You don't have it...", 14)

Case 12
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest12") = "Have" Then
  Call playermsg(index, "Quest Progress for Bad Kid:", 14)
  Call playermsg(index, "Finished", 10)
  Exit Sub
End if
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest14") = "Have" Then
  Call playermsg(index, "Quest Progress for Bad Kid:", 14)
  Call playermsg(index, "Started", 14)
      Exit Sub
End if
If GetVar("Chest\" & GetPlayerName(index) & ".ini", "Chest", "Chest2") = "Have" Then
  Call playermsg(index, "Quest Progress for Bad Kid:", 14) 
Call playermsg(index, "Not Started, Location of Quest: Moonwell town", 4) 

Case Else
Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE)
Exit Sub
End Select
End Sub

```

[Admiral Refuge]

Case 12, you're missing an "End If"

[Diskmaster]

WOW… (boy do I feel stupid) thx