VOID-CmdGen-Source

set empty to ""
tell application "System Events"
    set Description1 to the text returned of (display dialog "Description Line 1" default answer "")
    set Description2 to the text returned of (display dialog "Description Line 2" default answer "")
    set Description3 to the text returned of (display dialog "Description Line 3" default answer "")
    set Description4 to the text returned of (display dialog "Description Line 4" default answer "")
    set Description5 to the text returned of (display dialog "Description Line 5" default answer "")
    if Description2 is not empty then
        set NDesc1 to "\"§7" & Description1 & "\","
    else
        set NDesc1 to "\"§7" & Description1 & "\""
    end if
    if Description3 is not empty then
        if Description2 is not empty then
            set NDesc2 to "\"§7" & Description2 & "\","
        else
            set NDesc2 to ""
        end if
    else
        if Description2 is not empty then
            set NDesc2 to "\"§7" & Description2 & "\""
        else
            set NDesc2 to ""
        end if
    end if
    if Description4 is not empty then
        if Description3 is not empty then
            set NDesc3 to "\"§7" & Description3 & "\","
        else
            set NDesc3 to ""
        end if
    else
        if Description3 is not empty then
            set NDesc3 to "\"§7" & Description3 & "\""
        else
            set NDesc3 to ""
        end if
    end if
    if Description5 is not empty then
        if Description4 is not empty then
            set NDesc4 to "\"§7" & Description4 & "\","
        else
            set NDesc4 to ""
        end if
    else
        if Description4 is not empty then
            set NDesc4 to "\"§7" & Description4 & "\""
        else
            set NDesc4 to ""
        end if
    end if
    if Description5 is not empty then
        set NDesc5 to "\"§7" & Description5 & "\""
    else
        set NDesc5 to ""
    end if
    set FullDesc to NDesc1 & NDesc2 & NDesc3 & NDesc4 & NDesc5

end tell
set PresetType to ¬
    choose from list {"Cosmetic - Shield", "Cosmetic - Hat", "Cosmetic - Head"} ¬
        with title ¬
        "PIFCG" with prompt ¬
        "Select a Preset" OK button name ¬
        "Proceed" cancel button name ¬
        "Exit" without multiple selections allowed

set genericCmdStart to "execute Lord_Pundus ~ ~ ~ /setblock ~ ~ ~ minecraft:command_block 0 replace {Command:/give @a[tag="
set typeShield to "minecraft:shield"
set typePlrHead to "minecraft:skull"
set displayTag to ",display:{Name:\"§a"

if PresetType is false then
    error number -128
else if PresetType contains "Cosmetic - Shield" then
    tell application "System Events"
        set ItemName to text returned of (display dialog "Item Name" default answer "Shield")
        set ItemID to text returned of (display dialog "Item ID" default answer "DecShield")
        set ItemLevel to the text returned of (display dialog "Item Level" default answer "Level")
        set ItemQty to the text returned of (display dialog "Item Quantity" default answer "Qty")
        set ItemDmg to the text returned of (display dialog "Item Damage" default answer "Dmg")
        set BlockEntityTag to the text returned of (display dialog "BlockEntityTag" default answer "{Base:15,Patterns:[{Patt...r:15}]}")
        set QtyDmg to " " & ItemQty & " " & ItemDmg & " "
        set compID to ItemID & "] "
        set FullCMD to genericCmdStart & compID & typeShield & QtyDmg & "{BlockEntityTag:" & BlockEntityTag & displayTag & ItemName & "\",Lore:[\"§7Level " & ItemLevel & " Decorative Shield\"," & FullDesc & "]},RepairCost:9999,HideFlags:63},TrackOutput:0}"
        delay 3
        keystroke FullCMD
    end tell
end if