Added No.174 Igglybuff. Fixed the legal range of HP from 10 to 500 (was from 0 to 200). Fixed the error when the Pokémon has no evolution form. Advanced the version number to 0.2.5.

PokemonGoIV/0Main.vb

@@ -547,15 +547,17 @@ Function fnFindIV ( _
 	End If
 	subReadStarDust
 	nEvolved = UBound (aBaseStats.mEvolved)
-	ReDim Preserve maEvBaseStats (nEvolved) As New aStats
+	If nEvolved > -1 Then
-	For nI = 0 To nEvolved
+		ReDim Preserve maEvBaseStats (nEvolved) As New aStats
-		aTempStats = fnGetBaseStats (aBaseStats.mEvolved (nI))
+		For nI = 0 To nEvolved
-		With maEvBaseStats (nI)
+			aTempStats = fnGetBaseStats (aBaseStats.mEvolved (nI))
-			.nAttack = aTempStats.nAttack
+			With maEvBaseStats (nI)
-			.nDefense = aTempStats.nDefense
+				.nAttack = aTempStats.nAttack
-			.nStamina = aTempStats.nStamina
+				.nDefense = aTempStats.nDefense
-		End With
+				.nStamina = aTempStats.nStamina
-	Next nI
+			End With
+		Next nI
+	End If
 	nN = -1
 	For fLevel = 1 To UBound (mStarDust) Step fStep
 		If mStarDust (CInt (fLevel - 0.5)) = aQuery.nStarDust Then

PokemonGoIV/1Data.vb

@@ -13,7 +13,7 @@
 ' limitations under the License.
 
 ' 1Data: The Pokémon GO data for IV calculation
-'   by imacat <imacat@mail.imacat.idv.tw>, 2016-12-06
+'   by imacat <imacat@mail.imacat.idv.tw>, 2016-12-15
 '   Generated with 9Load.subReadDataSheets ()
 
 Option Explicit
@@ -171,7 +171,8 @@ Function fnGetBaseStatsData As Variant
 		Array ("Dragonair", "148", 122, 163, 138, Array ("Dragonite")), _
 		Array ("Dragonite", "149", 182, 263, 201, Array ()), _
 		Array ("Mewtwo", "150", 212, 330, 200, Array ()), _
-		Array ("Mew", "151", 200, 210, 209, Array ()))
+		Array ("Mew", "151", 200, 210, 209, Array ()), _
+		Array ("Igglybuff", "174", 180, 69, 34, Array ("Jigglypuff", "Wigglytuff")))
 End Function
 
 ' fnGetCPMData: Returns the combat power multiplier data.

VERSION

@@ -1 +1 @@
-0.2.4
+0.2.5

oxt/AddonConfiguration.xcu

@@ -824,6 +824,11 @@
 				<value>%origin%/icons/pokemons/mew.png</value>
 			</prop>
 		</node>
+		<node oor:name="PokemonIgglybuff" oor:op="replace">
+			<prop oor:name="Url" oor:type="xs:string" oor:localized="true">
+				<value>%origin%/icons/pokemons/igglybuff.png</value>
+			</prop>
+		</node>
 	</node>
 	
 <!--  Localized messages -->	

oxt/PokemonGoIV/0Main.xba

@@ -549,15 +549,17 @@ Function fnFindIV ( _
 	End If
 	subReadStarDust
 	nEvolved = UBound (aBaseStats.mEvolved)
-	ReDim Preserve maEvBaseStats (nEvolved) As New aStats
+	If nEvolved > -1 Then
-	For nI = 0 To nEvolved
+		ReDim Preserve maEvBaseStats (nEvolved) As New aStats
-		aTempStats = fnGetBaseStats (aBaseStats.mEvolved (nI))
+		For nI = 0 To nEvolved
-		With maEvBaseStats (nI)
+			aTempStats = fnGetBaseStats (aBaseStats.mEvolved (nI))
-			.nAttack = aTempStats.nAttack
+			With maEvBaseStats (nI)
-			.nDefense = aTempStats.nDefense
+				.nAttack = aTempStats.nAttack
-			.nStamina = aTempStats.nStamina
+				.nDefense = aTempStats.nDefense
-		End With
+				.nStamina = aTempStats.nStamina
-	Next nI
+			End With
+		Next nI
+	End If
 	nN = -1
 	For fLevel = 1 To UBound (mStarDust) Step fStep
 		If mStarDust (CInt (fLevel - 0.5)) = aQuery.nStarDust Then

oxt/PokemonGoIV/1Data.xba

@@ -15,7 +15,7 @@
 ' limitations under the License.
 
 ' 1Data: The Pokémon GO data for IV calculation
-'   by imacat <imacat@mail.imacat.idv.tw>, 2016-12-06
+'   by imacat <imacat@mail.imacat.idv.tw>, 2016-12-15
 '   Generated with 9Load.subReadDataSheets ()
 
 Option Explicit
@@ -173,7 +173,8 @@ Function fnGetBaseStatsData As Variant
 		Array ("Dragonair", "148", 122, 163, 138, Array ("Dragonite")), _
 		Array ("Dragonite", "149", 182, 263, 201, Array ()), _
 		Array ("Mewtwo", "150", 212, 330, 200, Array ()), _
-		Array ("Mew", "151", 200, 210, 209, Array ()))
+		Array ("Mew", "151", 200, 210, 209, Array ()), _
+		Array ("Igglybuff", "174", 180, 69, 34, Array ("Jigglypuff", "Wigglytuff")))
 End Function
 
 ' fnGetCPMData: Returns the combat power multiplier data.

oxt/PokemonGoIV/DlgMain.xdl

@@ -162,6 +162,7 @@
     <dlg:menuitem dlg:value="Dragonite"/>
     <dlg:menuitem dlg:value="Mewtwo"/>
     <dlg:menuitem dlg:value="Mew"/>
+    <dlg:menuitem dlg:value="Igglybuff"/>
    </dlg:menupopup>
    <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subLstPokemonSelected?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:menulist>
@@ -171,7 +172,7 @@
    <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subBtnOKCheck?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:numericfield>
   <dlg:text dlg:id="txtHP" dlg:tab-index="18" dlg:left="50" dlg:top="41" dlg:width="15" dlg:height="8" dlg:value="&amp;30.DlgMain.txtHP.Label"/>
-  <dlg:numericfield dlg:id="numHP" dlg:tab-index="2" dlg:left="65" dlg:top="39" dlg:width="15" dlg:height="12" dlg:decimal-accuracy="0" dlg:value-min="0" dlg:value-max="200">
+  <dlg:numericfield dlg:id="numHP" dlg:tab-index="2" dlg:left="65" dlg:top="39" dlg:width="15" dlg:height="12" dlg:decimal-accuracy="0" dlg:value-min="10" dlg:value-max="500">
    <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:PokemonGoIV.0Main.subBtnOKCheck?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:numericfield>
   <dlg:text dlg:id="txtStarDust" dlg:tab-index="19" dlg:left="90" dlg:top="41" dlg:width="30" dlg:height="8" dlg:value="&amp;33.DlgMain.txtStarDust.Label"/>
@@ -276,4 +277,4 @@
   <dlg:button dlg:id="btnOK" dlg:tab-index="14" dlg:disabled="true" dlg:left="40" dlg:top="215" dlg:width="60" dlg:height="15" dlg:default="true" dlg:button-type="ok"/>
   <dlg:button dlg:id="btnCancel" dlg:tab-index="15" dlg:left="135" dlg:top="215" dlg:width="60" dlg:height="15" dlg:button-type="cancel"/>
  </dlg:bulletinboard>
-</dlg:window>
+</dlg:window>