Adding Scripted Tile

[Nean]

I have:

Code:

If Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Type = TILE_TYPE_SCRIPTED Then
             Call Scripted(Val(Map(GetPlayerMap(index)).Tile(GetPlayerX(index), GetPlayerY(index)).Data1), index)
        End If

And:

Code:

Sub Scripted(ByVal scriptnum As Long, index As Long)
Select Case scriptnum

Case 0
    Call PlayerMsg(index, "You're a fag!", Blue)
    Exit Sub
End Select
End Sub

Still doesn't work. :\