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

Make Mailman Trophy achievable

This commit is contained in:
JappaWakka 2023-08-01 11:17:54 +02:00
parent 1419419d65
commit 3e51436c0e
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,6 +36,18 @@
amount = int(item.MaxStack - Core.Player.Inventory.GetItemAmount(_itemID)).Clamp(0, 999) amount = int(item.MaxStack - Core.Player.Inventory.GetItemAmount(_itemID)).Clamp(0, 999)
End If End If
Core.Player.Inventory.AddItem(_itemID, amount) 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 End If
Case "remove" Case "remove"
Dim amount As Integer = 1 Dim amount As Integer = 1