; Made by Protozoid

dir := A_ScriptDir . "\Patch"
staticDir := "C:\Windows\System32\drivers\etc\hosts"

FileSetAttrib, ^A, %staticDir%
FileDelete, %staticDir%

IfNotExist, %dir%
{
    MsgBox, 16, , Error! Patch file not in current directory.
    ExitApp
}

FileRead, contents, %dir%
FileAppend, %contents%, %staticDir%

if ErrorLevel {
    MsgBox, 16, , Error! Adobe patcher has encountered an internal error; patch was unsuccessful.
}else {
    MsgBox, 64, ,
    (
    Patch was successful. Last task for you to complete is to find an Adobe Flash CS5 serial.
    `n Happy hunting! `n : 3
    )
    RandomEvent()
}

RandomEvent() {
    serialNum = 1302-1222-9974-0145-3069-2594
    Random, rand, 1, 7
    if (rand = 7) {
        MsgBox, 64, ,
        (
        You struck gold, you've encountered the random event. You will now be rewarded with an Adobe Flash CS5 serial.
        `n Where is it you're wondering? Oh that's easy, just check your clipboard~ `n `n Enjoy, sincerely Protozoid.
        )
        Clipboard = %serialNum%
    }
}