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 PokeInteract show the right icons

This commit is contained in:
JappaWakka 2024-09-15 10:36:45 +02:00
parent b6f356a6ba
commit 2b1c2a9145
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
P3D/Pokemon/Monster/PokemonInteractions.vb
View File

@ -56,7 +56,7 @@
s &= "@camera.activatethirdperson" & Environment.NewLine & s &= "@camera.activatethirdperson" & Environment.NewLine &
"@camera.setposition(" & newPosition.X & ",1," & newPosition.Y & ")" & Environment.NewLine "@camera.setposition(" & newPosition.X & ",1," & newPosition.Y & ")" & Environment.NewLine
s &= "@entity.showmessagebulb(" & CInt(reaction.Notification).ToString() & "|" & cPosition.X + offset.X & "|" & cPosition.Y + 0.7F & "|" & cPosition.Z + offset.Y & ")" & Environment.NewLine s &= "@entity.showmessagebulb(" & CInt(reaction.GetNotification()).ToString() & "|" & cPosition.X + offset.X & "|" & cPosition.Y + 0.7F & "|" & cPosition.Z + offset.Y & ")" & Environment.NewLine
s &= "@camera.deactivatethirdperson" & Environment.NewLine s &= "@camera.deactivatethirdperson" & Environment.NewLine
End If End If
@ -66,7 +66,7 @@
If reaction.HasNotification = True Then If reaction.HasNotification = True Then
s &= "@camera.setyaw(" & CType(Screen.Camera, OverworldCamera).GetAimYawFromDirection(Screen.Camera.GetPlayerFacingDirection()) & ")" & Environment.NewLine s &= "@camera.setyaw(" & CType(Screen.Camera, OverworldCamera).GetAimYawFromDirection(Screen.Camera.GetPlayerFacingDirection()) & ")" & Environment.NewLine
s &= "@camera.setposition(" & newPosition.X & ",1," & newPosition.Y & ")" & Environment.NewLine s &= "@camera.setposition(" & newPosition.X & ",1," & newPosition.Y & ")" & Environment.NewLine
s &= "@entity.showmessagebulb(" & CInt(reaction.Notification).ToString() & "|" & cPosition.X + offset.X & "|" & cPosition.Y + 0.7F & "|" & cPosition.Z + offset.Y & ")" & Environment.NewLine s &= "@entity.showmessagebulb(" & CInt(reaction.GetNotification()).ToString() & "|" & cPosition.X + offset.X & "|" & cPosition.Y + 0.7F & "|" & cPosition.Z + offset.Y & ")" & Environment.NewLine
s &= "@camera.deactivatethirdperson" & Environment.NewLine s &= "@camera.deactivatethirdperson" & Environment.NewLine
End If End If
@ -714,6 +714,7 @@
Public Message As String Public Message As String
Public Notification As MessageBulb.NotificationTypes = MessageBulb.NotificationTypes.AFK Public Notification As MessageBulb.NotificationTypes = MessageBulb.NotificationTypes.AFK
Public EmojiString As String = ""
Public HasNotification As Boolean = True Public HasNotification As Boolean = True
Public MapFiles As New List(Of String) Public MapFiles As New List(Of String)
Public PokemonIDs As New List(Of String) Public PokemonIDs As New List(Of String)
@ -767,8 +768,8 @@
Else Else
Me.HasNotification = True Me.HasNotification = True
Dim EmojiText As String = dataParts(7).Replace(">:(", "shouting").Replace("<3", "heart").Replace(":(", "unhappy").Replace(":)", "friendly").Replace(";)", "wink").Replace("/:(", "angry") Dim EmojiText As String = dataParts(7).Replace(">:(", "shouting").Replace("<3", "heart").Replace(":(", "unhappy").Replace(":)", "friendly").Replace(";)", "wink").Replace("/:(", "angry")
EmojiText = ScriptVersion2.ScriptCommander.Parse(EmojiText).ToString() EmojiString = EmojiText
Me.Notification = Me.ConvertEmoji(EmojiText) Me.Notification = Me.ConvertEmoji(ScriptVersion2.ScriptCommander.Parse(EmojiText).ToString())
End If End If
Me.Message = dataParts(8) Me.Message = dataParts(8)
@ -797,7 +798,7 @@
Return MessageBulb.NotificationTypes.Unhappy Return MessageBulb.NotificationTypes.Unhappy
Case "ball" Case "ball"
Return MessageBulb.NotificationTypes.Battle Return MessageBulb.NotificationTypes.Battle
Case ":D" Case ":d"
Return MessageBulb.NotificationTypes.Happy Return MessageBulb.NotificationTypes.Happy
Case ":)", "friendly" Case ":)", "friendly"
Return MessageBulb.NotificationTypes.Friendly Return MessageBulb.NotificationTypes.Friendly
@ -878,6 +879,14 @@
Return ScriptVersion2.ScriptCommander.Parse(Me.Message.Replace("<name>", p.GetDisplayName())).ToString.Replace("//POKEMONNAME//", p.GetDisplayName()) Return ScriptVersion2.ScriptCommander.Parse(Me.Message.Replace("<name>", p.GetDisplayName())).ToString.Replace("//POKEMONNAME//", p.GetDisplayName())
End Function End Function
Public Function GetNotification() As MessageBulb.NotificationTypes
If EmojiString <> "" AndAlso EmojiString.Contains("<") = True AndAlso EmojiString.Contains(">") = True Then
Return ConvertEmoji(ScriptVersion2.ScriptCommander.Parse(Me.EmojiString).ToString)
Else
Return Me.Notification
End If
End Function
End Class End Class
Shared PickupIndividualValue As String = "" 'This value holds the individual value of the Pokémon that picked up the item. Shared PickupIndividualValue As String = "" 'This value holds the individual value of the Pokémon that picked up the item.