2016-09-07 18:50:38 +02:00
|
|
|
|
Namespace Abilities
|
|
|
|
|
|
|
|
|
|
|
|
Public Class HoneyGather
|
|
|
|
|
|
|
|
|
|
|
|
Inherits Ability
|
|
|
|
|
|
|
|
|
|
|
|
Public Sub New()
|
|
|
|
|
|
MyBase.New(118, "Honey Gather", "The Pok<6F>mon may gather Honey from somewhere.")
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Public Shared Sub GatherHoney()
|
|
|
|
|
|
For Each p As Pokemon In Core.Player.Pokemons
|
2019-02-03 07:24:41 +01:00
|
|
|
|
If p.Ability IsNot Nothing AndAlso p.Ability.Name.ToLower() = "honey gather" Then
|
2016-09-07 18:50:38 +02:00
|
|
|
|
If p.Item Is Nothing Then
|
|
|
|
|
|
Dim chance As Integer = CInt(Math.Ceiling(p.Level / 10) * 5)
|
|
|
|
|
|
If Core.Random.Next(0, 100) < chance Then
|
|
|
|
|
|
p.Item = Item.GetItemByID(253)
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
Next
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
End Class
|
|
|
|
|
|
|
|
|
|
|
|
End Namespace
|
