Adding Scripted Tile

[Jacob]

Code:

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

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

You should pass the Index into the sub. Right now your index will always be 0.