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

Made PokéGear user screen selectable with mouse

Browse Source
This commit is contained in:
JappaWakka 2024-05-06 13:34:57 +02:00
parent 60c1030659
commit 2e43afbbc2
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
P3D/Screens/Inventory/PokegearScreen.vb
View File

@ -1223,7 +1223,29 @@
Cursors(1) = Cursors(1).Clamp(0, 4) Cursors(1) = Cursors(1).Clamp(0, 4)
If Controls.Accept(True, True, True) = True Then Dim MouseAccept As Boolean = False
If Controls.Accept(True, False, False) = True Then
Dim pressedIndex As Integer = -1
Dim startPos As Vector2 = GetStartPosition()
For x = 0 To 4
Dim r As New Rectangle(CInt(startPos.X + (x * 96) + 76), CInt(startPos.Y + 100), 64, 64)
If r.Contains(MouseHandler.MousePosition) = True Then
pressedIndex = x
End If
Next
If pressedIndex > -1 Then
If 4 >= pressedIndex Then
If Cursors(1) = pressedIndex Then
SoundManager.PlaySound("select")
MouseAccept = True
Else
Cursors(1) = pressedIndex
End If
End If
End If
End If
If Controls.Accept(False, True, True) = True OrElse MouseAccept = True Then
Dim sameServer As Boolean = False Dim sameServer As Boolean = False
Dim sameConnection As Boolean = False Dim sameConnection As Boolean = False