tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Move MailMan check to Player.Inventory.AddItem

This commit is contained in:
JappaWakka 2024-02-09 17:51:09 +01:00
parent 3e7f2f1cd3
commit 1fbe0a14ad
2 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
P3D/Player/PlayerInventory.vb
View File

@ -78,6 +78,20 @@ Public Class PlayerInventory
Next
Me.Add(New ItemContainer(ID, Amount))
Dim item As Item = Item.GetItemByID(ID)
If item.IsMail = True AndAlso item.IsGameModeItem = False Then
Dim hasAllMail = True
For m = 300 To 323
If Core.Player.Inventory.GetItemAmount(m.ToString) = 0 Then
hasAllMail = False
Exit For
End If
Next
If hasAllMail = True Then
GameJolt.Emblem.AchieveEmblem("mailman")
End If
End If
End Sub
''' <summary>

12
P3D/World/ActionScript/V2/ScriptCommands/DoItem.vb
View File

@ -36,18 +36,6 @@
amount = int(item.MaxStack - Core.Player.Inventory.GetItemAmount(_itemID)).Clamp(0, 999)
End If
Core.Player.Inventory.AddItem(_itemID, amount)
If item.IsMail = True AndAlso item.IsGameModeItem = False Then
Dim hasAllMail = True
For m = 300 To 323
If Core.Player.Inventory.GetItemAmount(m.ToString) = 0 Then
hasAllMail = False
Exit For
End If
Next
If hasAllMail = True Then
GameJolt.Emblem.AchieveEmblem("mailman")
End If
End If
End If
Case "remove"
Dim amount As Integer = 1