Case ITEM_TYPE_POLE
            Randomize Timer
            Dice1 = (Int((100 - 1 + 1) * Rnd + 1))
            Slevel = Int(GetPlayerStat(Index, Stats.Defense))
            chance = (Int(((Slevel) * 100) / (32000)))
        If Dice1 <= chance Then
            i = 1
                Do While i <= 24
                     
            i = i + 1
                Loop
            If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_WATERSIDE Then
                Call PlayerMsg(Index, "You have succeeded.", Yellow)
            Else
                Call PlayerMsg(Index, "You are not near the water.", Red)
            End If
        Else
            Call PlayerMsg(Index, "Failure.", Red)
        End If