tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 07:44:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed battle points price & ItemTypes access

Browse Source
This commit is contained in:
nilllzz 2016-09-20 23:50:16 +02:00
parent d6a6ac5bc7
commit d9035ac1b5
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.5DHero/2.5DHero/Pokemon/Items/Machines/TM45.vb
View File

@ -5,11 +5,11 @@ Namespace Items.Machines
Inherits TechMachine Inherits TechMachine
Public Overrides ReadOnly Property BattlePointsPrice As Integer = 32
Public Sub New() Public Sub New()
MyBase.New(True, 1500, 213) MyBase.New(True, 1500, 213)
CanTeachWhenGender = True CanTeachWhenGender = True
Me._battlePointsPrice = 32
End Sub End Sub
End Class End Class

2
2.5DHero/2.5DHero/Screens/Inventory/ItemDetailScreen.vb
View File

@ -192,7 +192,7 @@
If Item.CanBeHold = True Then If Item.CanBeHold = True Then
MenuItems.Add(Localization.GetString("item_detail_screen_give")) MenuItems.Add(Localization.GetString("item_detail_screen_give"))
End If End If
If Item.ItemType <> net.Pokemon3D.Game.Item.ItemTypes.KeyItems And Item.CanBeTossed = True Then If Item.ItemType <> Game.Items.ItemTypes.KeyItems And Item.CanBeTossed = True Then
MenuItems.Add(Localization.GetString("item_detail_screen_trash")) MenuItems.Add(Localization.GetString("item_detail_screen_trash"))
End If End If
MenuItems.Add(Localization.GetString("item_detail_screen_back")) MenuItems.Add(Localization.GetString("item_detail_screen_back"))

2
2.5DHero/2.5DHero/Screens/Pokemon/LearnAttackScreen.vb
View File

@ -278,7 +278,7 @@
PlayerStatistics.Track("TMs/HMs used", 1) PlayerStatistics.Track("TMs/HMs used", 1)
If Core.Player.DifficultyMode > 0 Then If Core.Player.DifficultyMode > 0 Then
Dim TechMachine As Item = Item.GetItemByID(Me.MachineItemID) Dim TechMachine As Item = Item.GetItemByID(Me.MachineItemID)
If TechMachine.ItemType = Item.ItemTypes.Machines Then If TechMachine.ItemType = Items.ItemTypes.Machines Then
If CType(TechMachine, Items.TechMachine).IsTM = True Then If CType(TechMachine, Items.TechMachine).IsTM = True Then
Core.Player.Inventory.RemoveItem(Me.MachineItemID, 1) Core.Player.Inventory.RemoveItem(Me.MachineItemID, 1)
End If End If