-- Variables
set numbersInBLName to false -- boolean (set to true or false)
set digitsInBLName to 2 -- positive integer (set this to any number that is not decimal or negative)

-- The Script
set BLNamePart1 to {"Constant", "Crystallized", "Abstract", "Dynamic", "Firey", "Icy", "Cool", "Unique"}
set BLNamePart2 to {"Gamma", "Ice", "Fire", "Aspect", "Day", "Night", "Error", "Flight", "Failure", "Approach"}
set yourName to some item of BLNamePart1
set yourName to (yourName & some item of BLNamePart2)
if yourName is equal to "IcyGamma" then
    say "It's not possible!"
    display dialog (1 / 0)
end if
if numbersInBLName then set yourName to (yourName & (round (random number (10 ^ digitsInBLName) to (10 ^ (digitsInBLName + 1) - 1)) rounding to nearest))
on replaceText(find, replace, someText)
    set prevTIDs to text item delimiters of AppleScript
    set text item delimiters of AppleScript to find
    set someText to text items of someText
    set text item delimiters of AppleScript to replace
    set someText to "" & someText
    set text item delimiters of AppleScript to prevTIDs
    return someText
end replaceText

set thePath to replaceText(":", "/", (path to desktop folder) as string) --textedit hates POSIX filepaths, we'll convert it to normal
tell application "TextEdit"
    activate
    make new document at the beginning of documents
    set text of document 1 to yourName as text
    tell application "System Events" to tell process "TextEdit"
        if menu item "Make Plain Text" of menu 1 of menu bar item "Format" of menu bar 1 exists then
            keystroke "t" using {shift down, command down}
            keystroke return
        end if
    end tell
    display dialog "Your name has been randomized: " & yourName & ". You can copy and paste this into Blockland." buttons {"OK"} default button 1
end tell