35 lines
1.2 KiB
VB.net
35 lines
1.2 KiB
VB.net
Imports System.Windows.Forms
|
|
|
|
Namespace Security
|
|
|
|
Public Class HackerAlerts
|
|
|
|
Shared t As Timers.Timer
|
|
|
|
Public Shared Sub Activate()
|
|
t = New Timers.Timer()
|
|
AddHandler t.Elapsed, AddressOf TimerTick
|
|
t.AutoReset = True
|
|
t.Interval = 25000
|
|
t.Start()
|
|
End Sub
|
|
|
|
Private Shared Sub TimerTick()
|
|
t.Stop()
|
|
Dim text As String = "Hello. We have detected that you attempted to hack the game. Please don't do that. We are trying to create an online experience where everyone is set equal, where everyone can play the game and achieve about the same things by playing the same amount of time.
|
|
So please reconsider utilizing certain RAM editing tools in Pokémon 3D.
|
|
Of course, you are free to use those whenever you want in Offline Mode, since that is essentially a Sandbox for you to play around in.
|
|
To remove these messages and the reverse texture effects, consider following this link:
|
|
|
|
http://pokemon3d.net/forum/faq/44/
|
|
|
|
Thank you for your cooperation."
|
|
|
|
MessageBox.Show(text, "Pokémon 3D Injection Shield", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
|
|
|
|
t.Start()
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace |