-- 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
    if (digitsInBLName ≥ 9) then
        beep 1
        display dialog "Your digitsInBLName can't be over 9" buttons {"OK"} with icon 2 with title "Script Error" default button 1
        return
    end if
    if (digitsInBLName ≤ 0) then
        beep 1
        display dialog "Your digitsInBLName can't be under 1" buttons {"OK"} with icon 2 with title "Script Error" default button 1
        return
    end if
    set yourName to (yourName & (round (random number (10 ^ digitsInBLName) to (10 ^ (digitsInBLName + 1) - 1)) rounding to nearest))
end if
tell application "TextEdit"
    activate
    make new document at the beginning of documents
    set text of document 1 to yourName as text
end tell
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
activate
display dialog "Your name has been randomized: " & yourName & ". You can copy and paste this into Blockland." buttons {"OK"} default button 1
tell application "TextEdit" to activate