^9:: Write_Example()returnSay(s, end_delay=0){ global prefix SendInput {Enter} Sleep 250 IfInString, s, / SendInput {Raw}%s% else SendInput {Raw}%prefix%%s% SendInput {Enter} if ( end_delay != 0 ) { Sleep end_delay }}last_color := ""Write_Quill(){ MouseClick, right, 282, 382 Sleep 250 MouseClick, right, 350, 459 Sleep 250 MouseClick, left, 271, 241 Sleep 6000}Write_Ink(name, x, y){ MouseClick, right, 282, 382 Sleep 250 MouseClick, right, 350, 459 Sleep 250 MouseClick, left, x, y Sleep 250 Say( "/tp ""Pen N Popper"" READY TO WRITE IN " . name . " INK") Sleep 6000 return 1}Write_Gold_Ink(){ Write_Ink("gold", 312, 235)}Write_Red_Ink(){ Write_Ink("red", 314, 270)}Write_Green_Ink(){ Write_Ink("green", 315, 302)}Write_Blue_Ink(){ Write_Ink("blue", 316, 335)}Write_White_Ink(){ Write_Ink("white", 316, 370)}Write_Purple_Ink(){ Write_Ink("purple", 316, 399)}Write(color, text){ global last_color if ( color != last_color ) { last_color := color if ( color == "white" ) { Write_White_Ink() } else if ( color == "green" ) { Write_Green_Ink() } else if ( color == "red" ) { Write_Red_Ink() } else if ( color == "blue" ) { Write_Blue_Ink() } else if ( color == "gold" ) { Write_Gold_Ink() } else if ( color == "purple" ) { Write_Purple_Ink() } else { Say( "/tp ""Pen N Popper"" ERROR!! UNKNOWN COLOR " . color . " ") return } } Say(text, 6000) return}Write_Example(){ global last_color gold := "gold" white := "white" red := "red" blue := "blue" green := "green" purple := "purple" Write_White_Ink() Write_Quill() Say("~~erase", 1000) last_color := "white" Write(gold, "~~title Bumblebee is the man!") Write(white, "~~~~") Write(gold, "~ ~~ All About My Favorite Brownie ~~") Write(white, "~~nl") Write(white, "~What a cute little fellow, dressed in yellow.") Write(white, "~~nll") Write(white, "~Wonder if he's married, or likes to be carried.") Write(white, "~~nl") Say("/tp ""Pen N Popper"" FINISHED!") return}