Mighty Merc Facts AHK

#b::

SetKeyDelay 100,300

F2::Chat1()
F3::Chat2()
F4::Chat3()
F5::Chat4()

Chat1() {
	File = E:\temp\merc.txt
	FileRead,FileContents,%File%
	Sort,FileContents,Random
	RandLine := SubStr(FileContents,1,InStr(FileContents,"`r")-1)
	BlockInput On
    SendInput t
    sleep 5
    SendEvent %RandLine% {enter}
    BlockInput Off
    return
}

Chat2() {
    BlockInput On
    SendInput t
    sleep 5
    SendEvent {space}Hello and welcome to Merc Facts{!} Please concede a goal for a random Merc Fact{!} {enter}
    BlockInput Off
    return
}

Chat3() {
    BlockInput On
    SendInput t
    sleep 5
    SendEvent {space}Thank you for your participation{!} We hope this Merc Facts session has been enjoyable. {enter}
    BlockInput Off
    return
}

Chat4() {
    BlockInput On
    SendInput t
    sleep 5
    SendEvent {space}It seems you have seen this fact earlier in this session of Merc facts. Here's another one free of charge{!} {enter}
    BlockInput Off
	Chat1()
    return
}