Fishing...

[Nean]

I've been working on fishing, and I have run into a snag.

Code:

Sub HandleGoFishing(ByVal Index As Long)
Dim Chance As Long
Dim FishRod As Long
FishRod = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data2
Chance = Rand(100, GetPlayerLevel(Index))
    
    If GetPlayerEquipmentSlot(Index, Weapon) = FishRod Then
        'Randomize based on players level. If chance = player level, you caught a fish!
        If Chance = 100 Then
            Call PlayerMsg(Index, "THIS IS A TEST", Blue)
        Else
            Call PlayerMsg(Index, "NOOO", Red)
        End If
    Else
        Call PlayerMsg(Index, "doing it wrong", BrightRed)
    End If
End Sub

Code:

If frmMirage.OptFishing.Value Then
                    .Type = TILE_TYPE_FISHING
                    .Data1 = frmFish.scrlFishNo
                    .Data2 = frmFish.scrlToolNo
                    .Data3 = 0
                End If

Even though< i have the right tool equipped, it still prints "Doing it wrong"

Obviously I am doing something wrong, can anyone help me out?