Fishing Script Problem.. Whats Wrong?

[Braydo25]

Im not sure why my fishing script wont work, its ment to work for a tile that you step on… but when i place the scripted tile somewhere and then walk onto it with the needed item for fishing nothing happens, and even without the item, nothing happens. whats wrong? here it is:

heres the part for the scripted tile
```
'Sub ScriptedTile(index, Script)

Case 0
  dim weapon
  weapon = GetPlayerWeaponSlot(index)
  If weapon = 0 Then
      Call PlayerMsg(index, "You don't have a Fishing Pole equiped!", 15)
      ElseIf GetPlayerInvItemNum(index, weapon) = 5 Then
      Call GoFishing(index, 6, 5, "Salmon")
      Else
      Call PlayerMsg(index, "You don't have a Fishing Pole equiped", 15)
  End If
End Select

```
Heres for the rest of it

```
Sub GoFishing(index, item, maxlevel, name)
  Dim c
  Dim level
  level = maxlevel + 1
      If GetPlayerlevel(index) < maxlevel Then
        c = Int(Rnd * Int(level - GetPlayerLevel(index)))
        If c = 1 Then
            Call PlayerMsg(index, GetPlayerName(index) & " caught a " & name, 2)
            Call ReplaceOneInvItem(index, 0, item)
        Else
            Call PlayerMsg(index, GetPlayerName(index) & " found nothing!", 12)
        End If
      Else
        Call PlayerMsg(index, GetPlayerName(index) & " caught a " & name, 2)
        Call ReplaceOneInvItem(index, 0, item)
      End If
End Sub
```

whats wrong?