Roland-2

HighScore

Jul 14th, 2018
6,086
0
Never
2
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.54 KB | None | 0 0
  1.  Private Sub CheckForNewHighScore()
  2.         '------------------------------------------------------------------------------------------------------------------
  3.         ' Purpose: Check to see if player's score has beaten any of the top 5 scores, prompt player for their name if so
  4.         '------------------------------------------------------------------------------------------------------------------
  5.  
  6.         Dim i As Integer = 0
  7.         Dim j As Integer = 0
  8.  
  9.          '0 = 1 pos , 4 lowest
  10.  
  11.         If Score > Top5PlayerScore(4) Then
  12.  
  13.             '  timeBeginPeriod(0)
  14.             Dim showdialog As New frmNameEntry
  15.  
  16.             ' Get the position in Table
  17.             For i = 4 To 0 Step -1
  18.                 If Score > Top5PlayerScore(i) Then
  19.                     j += 1
  20.                 End If
  21.             Next
  22.             j = 5 - j
  23.  
  24.  
  25.             ' Prompt player for their name
  26.  
  27.             If showdialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
  28.  
  29.                 ' Sort table
  30.  
  31.  
  32.                 If j < 4 Then
  33.  
  34.                     For i = 4 To (j + 1) Step -1
  35.                         Top5PlayerName(i) = Top5PlayerName(i - 1)
  36.                         Top5PlayerScore(i) = Top5PlayerScore(i - 1)
  37.                     Next
  38.  
  39.                 End If
  40.  
  41.                 Top5PlayerName(j) = PlayerName
  42.                 Top5PlayerScore(j) = Score
  43.                 ' Add new player
  44.  
  45.                 SaveHighScores()
  46.              
  47.             End If
  48.  
  49.         End If
  50.  
  51.         AppRunning = False
  52.         MainLoop()
  53.  
  54.     End Sub
Advertisement
Comments
  • Nexlisen
    220 days
    # CSS 0.85 KB | 0 0
    1. ✅ Leaked Exploit Documentation:
    2.  
    3. https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
    4.  
    5. This made me $13,000 in 2 days.
    6.  
    7. Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
    8. The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
    9.  
    10. Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).
  • User was banned
Add Comment
Please, Sign In to add comment