PasteShr

New Paste Browse

Gui, +AlwaysOnTop
Gui, Add, Text,, ============Roblox Virtual Piano In-Game Styled Autoplayer (v 1.1)============
Gui, Add, Text,, -----------------------------------------------PASTE SHEETS HERE------------------------------------------------
Gui, Add, Edit, R10 w400 vPianoMusic
Gui, Add, Text,, DISCLAIMER: AutoHotkey is NOT supported on MacOS.
Gui, Add, Text,, Press the - = [ ] keybinds to start autoplaying. you'll need to play by rhythm.
Gui, Add, Text,, Click the "Reset" button after playing a song/changing a song. (IMPORTANT)
Gui, Add, Text,, Based on the old AutoHotkey Virtual Piano Autoplayer (the one with F4 and F8)
Gui, Add, Text,, This also works in Virtual Pianos outside of Roblox.
Gui, Add, Text,, Modifications done by: Crimsxn K1ra
Gui, Add, Text,, ------------------------------------------------------------Progress------------------------------------------------------------
Gui, Add, Edit, ReadOnly w400 vNextNotes
Gui, Add, Button, gResetProgress, Reset
Gui, Show

PianoMusic := ""
CurrentPos := 1
DisplayPos := 1
KeyPressStartTime := 0
KeyDelay := 0.1

PlayNextNote()
{
    global PianoMusic, CurrentPos, DisplayPos, KeyDelay, KeyPressStartTime
    Gui, Submit, Nohide
    DisplayMusic := PianoMusic
    PianoMusic := RegExReplace(PianoMusic, "`n|`r|/| ")

if (CurrentPos > StrLen(PianoMusic))
    {
        CurrentPos := 1
        DisplayPos := 1
    }

if (CurrentPos <= StrLen(PianoMusic) && A_TickCount - KeyPressStartTime < 3000)
    {
        if (RegExMatch(PianoMusic, "U)(\[.*]|.)", Keys, CurrentPos))
        {
            CurrentPos += StrLen(Keys)

while (DisplayPos <= StrLen(DisplayMusic) && InStr(" `n`r/", SubStr(DisplayMusic, DisplayPos, 1)))
                DisplayPos++

DisplayPos += StrLen(Keys)

Keys := Trim(Keys, "[]")
            SendInput, {Raw}%Keys%

NextNotes := SubStr(DisplayMusic, DisplayPos, 90)
            GuiControl,, NextNotes, %NextNotes%
            
            Sleep, %KeyDelay%
        }
    }
}

-::
=::
[::
]::
    KeyPressStartTime := A_TickCount
    PlayNextNote()
    KeyPressStartTime := 0
return

GuiClose:
    ExitApp

ResetProgress:
    CurrentPos := 1
    DisplayPos := 1
    GuiControl,, NextNotes
return

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

900000/13000
Plaintext | 2 | 1 minute ago
where to find frozen chest aquamirae
Plaintext | 2 | 1 minute ago
emerald cheat codes gameshark
Plaintext | 1 | 1 minute ago
hydroxide script
Plaintext | 1 | 1 minute ago
system broken script
Plaintext | 2 | 6 minutes ago
bee movie script copy paste
Plaintext | 2 | 6 minutes ago
hammer.ai
Plaintext | 2 | 6 minutes ago

Paste Settings

Site Languages