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

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

FishName = Item(scrlFishNo.Value).Name
ToolName = Item(scrlToolNo.Value).Name
FishNumber = frmFish.scrlFishNo.Value
ToolNumber = frmFish.scrlToolNo.Value
Unload Me