VOID Command Autofiller Mark I

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

if PresetType is false then
    error number -128
else
    tell application "System Events"
        set ItemName to text returned of (display dialog "Item Name" default answer "NAME")
        set CTag to text returned of (display dialog "CTags" default answer "not inclusive of PID and effect")
        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 "")
        set CTags to CTag & ","
        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 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 typeCusModel to "minecraft:diamond_hoe"
    set displayTag to "display:{Name:\""
    set starsymbol to "⭑"
    set ccCosmetic to "§e"
    set ccMagical to "§d"
    set ccNormal to "§f"
    set prefixMagical to "Magical "
end if
if PresetType contains "Cosmetic - Shield" then
    tell application "System Events"
        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 compName to ccCosmetic & ItemName
        set FullCMD to genericCmdStart & compID & typeShield & QtyDmg & "{" & CTags & "PID:\"" & ItemID & "\",BlockEntityTag:" & BlockEntityTag & "," & displayTag & compName & "\",Lore:[\"§7Level " & ItemLevel & " Decorative Shield\"," & FullDesc & "]},RepairCost:9999,HideFlags:63},TrackOutput:0}"
        delay 3
        keystroke FullCMD
    end tell
else if PresetType contains "Cosmetic - Hat" then
    tell application "System Events"
        set FauxType to the text returned of (display dialog "Item Type" default answer "Hat")
        set ItemID to text returned of (display dialog "Item ID" default answer "HatHat")
        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 Model ID" default answer "1")
        set Bonus to the text returned of (display dialog "Hat Bonus" default answer "Wearer Never...")
        set ATB to the text returned of (display dialog "Attributes" default answer "AttributeMo...ost:813675,Slot:\"head\"}]")
        set QtyDmg to " " & ItemQty & " " & ItemDmg & " "
        set compID to ItemID & "] "
        set BonusFin to ",\"§3" & Bonus & "\""
        set compName to ccCosmetic & ItemName
        if ATB is not empty then
            set CompAttrib to ATB & ","
        else
            set CompAttrib to ""
        end if
        set FullCMD to genericCmdStart & compID & typeCusModel & QtyDmg & "{" & CTags & "PID:\"" & ItemID & "\"," & CompAttrib & displayTag & compName & "\",Lore:[\"§7Level " & ItemLevel & " " & FauxType & "\"," & FullDesc & BonusFin & "]},RepairCost:9999,HideFlags:63},TrackOutput:0}"
        delay 3
        keystroke FullCMD
    end tell
else if PresetType contains "Cosmetic - Head" then
    tell application "System Events"
        set FauxType to the text returned of (display dialog "Item Type" default answer "Head")
        set ItemID to text returned of (display dialog "Item ID" default answer "HeadHead")
        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 3
        set textures to the text returned of (display dialog "SkullOwner" default answer "SkullOwner:{Id:\"61e9f...zVlZjkxYyJ9fX0=\"}]}}")
        set ATB to the text returned of (display dialog "Attributes" default answer "AttributeMo...ost:813675,Slot:\"head\"}]")
        set QtyDmg to " " & ItemQty & " " & ItemDmg & " "
        set compID to ItemID & "] "
        set compName to ccCosmetic & ItemName
        if ATB is not empty then
            set CompAttrib to ATB & ","
        else
            set CompAttrib to ""
        end if
        set FullCMD to genericCmdStart & compID & typePlrHead & QtyDmg & "{" & CTags & "PID:\"" & ItemID & "\"," & CompAttrib & textures & "," & displayTag & compName & "\",Lore:[\"§7Level " & ItemLevel & " " & FauxType & "\"," & FullDesc & "]},RepairCost:9999,HideFlags:63},TrackOutput:0}"
        delay 3
        keystroke FullCMD
    end tell
else if PresetType contains "Magical - Hat" then
    tell application "System Events"
        set FauxType to the text returned of (display dialog "Item Type" default answer "Hat")
        set ItemID to text returned of (display dialog "Item ID" default answer "MagHat")
        set ItemEffect to the text returned of (display dialog "Particle Effect" default answer "Rainbow Sparkles")
        set ItemQty to the text returned of (display dialog "Item Quantity" default answer "Qty")
        set ItemDmg to the text returned of (display dialog "Item Model ID" default answer "1")
        set Bonus to the text returned of (display dialog "Hat Bonus" default answer "Wearer Never...")
        set ATB to the text returned of (display dialog "Attributes" default answer "AttributeMo...ost:813675,Slot:\"head\"}]")
        set QtyDmg to " " & ItemQty & " " & ItemDmg & " "
        set compID to ItemID & "] "
        set BonusFin to ",\"§3" & Bonus & "\""
        set compName to ccMagical & prefixMagical & starsymbol & " " & ItemName
        if ATB is not empty then
            set CompAttrib to ATB & ","
        else
            set CompAttrib to ""
        end if
        set FullCMD to genericCmdStart & compID & typeCusModel & QtyDmg & "{" & CTags & "PID:\"" & ItemID & "\"," & CompAttrib & displayTag & compName & "\",Lore:[\"§5Effect: " & starsymbol & " " & ItemEffect & "\"," & FullDesc & BonusFin & "]},RepairCost:9999,HideFlags:63},TrackOutput:0}"
        delay 3
        keystroke FullCMD
    end tell
else if PresetType contains "Magical - Head" then
    tell application "System Events"
        set FauxType to the text returned of (display dialog "Item Type" default answer "Head")
        set ItemID to text returned of (display dialog "Item ID" default answer "MagHead")
        set ItemEffect to the text returned of (display dialog "Particle Effect" default answer "Rainbow Sparkles")
        set ItemQty to the text returned of (display dialog "Item Quantity" default answer "Qty")
        set ItemDmg to 3
        set textures to the text returned of (display dialog "SkullOwner" default answer "SkullOwner:{Id:\"61e9f...zVlZjkxYyJ9fX0=\"}]}}")
        set ATB to the text returned of (display dialog "Attributes" default answer "AttributeMo...ost:813675,Slot:\"head\"}]")
        set QtyDmg to " " & ItemQty & " " & ItemDmg & " "
        set compID to ItemID & "] "
        set compName to ccMagical & prefixMagical & starsymbol & " " & ItemName
        if ATB is not empty then
            set CompAttrib to ATB & ","
        else
            set CompAttrib to ""
        end if
        set FullCMD to genericCmdStart & compID & typePlrHead & QtyDmg & "{" & CTags & "PID:\"" & ItemID & "\"," & CompAttrib & textures & "," & displayTag & compName & "\",Lore:[\"§5Effect: " & starsymbol & " " & ItemEffect & "\"," & FullDesc & "]},RepairCost:9999,HideFlags:63},TrackOutput:0}"
        delay 3
        keystroke FullCMD
    end tell
    (*else if PresetType contains "Weapon" then
    tell application "System Events"
        set FauxType to the text returned of (display dialog "Item Type" default answer "Weapon")
        set ItemID to text returned of (display dialog "Item ID" default answer "WepWeapon")
        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 Model ID or Item Damage" default answer "1")
        set Bonus to the text returned of (display dialog "Hat Bonus" default answer "Wearer Never...")
        set ATB to the text returned of (display dialog "Attributes" default answer "AttributeMo...ost:813675,Slot:\"head\"}]")
        set QtyDmg to " " & ItemQty & " " & ItemDmg & " "
        set compID to ItemID & "] "
        set BonusFin to ",\"§3" & Bonus & "\""
        set compName to ccCosmetic & ItemName
        if ATB is not empty then
            set CompAttrib to ATB & ","
        else
            set CompAttrib to ""
        end if
        set FullCMD to genericCmdStart & compID & typeCusModel & QtyDmg & "{" & CTags & "PID:\"" & ItemID & "\"," & CompAttrib & displayTag & compName & "\",Lore:[\"§7Level " & ItemLevel & " " & FauxType & "\"," & FullDesc & BonusFin & "]},RepairCost:9999,HideFlags:63},TrackOutput:0}"
        delay 3
        keystroke FullCMD
    end tell*)
else if PresetType contains "Crate 5:2" then
    tell application "System Events"
        set FauxType to the text returned of (display dialog "Item Type" default answer "Crate")
        set MCID to the text returned of (display dialog "Minecraft ID" default answer "minecraft:")
        set Series to the text returned of (display dialog "Crate Series" default answer "1")
        set ItemID to text returned of (display dialog "Item ID" default answer "Crate1")
        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 "1")
        set Cosmetic1 to the text returned of (display dialog "Cosmetic Item 1" default answer "")
        set Cosmetic2 to the text returned of (display dialog "Cosmetic Item 2" default answer "")
        set Cosmetic3 to the text returned of (display dialog "Cosmetic Item 3" default answer "")
        set Cosmetic4 to the text returned of (display dialog "Cosmetic Item 4" default answer "")
        set Cosmetic5 to the text returned of (display dialog "Cosmetic Item 5" default answer "")
        set Weapon1 to the text returned of (display dialog "Weapon Item 1" default answer "")
        set Weapon2 to the text returned of (display dialog "Weapon Item 2" default answer "")
        set QtyDmg to " " & ItemQty & " " & ItemDmg & " "
        set compID to ItemID & "] "
        set compName to ccNormal & ItemName
        set Item1 to "\"§e" & Cosmetic1 & "\","
        set Item2 to "\"§e" & Cosmetic2 & "\","
        set Item3 to "\"§e" & Cosmetic3 & "\","
        set Item4 to "\"§e" & Cosmetic4 & "\","
        set Item5 to "\"§e" & Cosmetic5 & "\","
        set Item6 to "\"§c" & Weapon1 & "\","
        set Item7 to "\"§c" & Weapon2 & "\","
        set ItemList to Item1 & Item2 & Item3 & Item4 & Item5 & Item6 & Item7
        set FullCMD to genericCmdStart & compID & MCID & QtyDmg & "{" & CTags & "PID:\"" & ItemID & "\"," & displayTag & compName & "\",Lore:[\"§7Level " & ItemLevel & " " & FauxType & "\"," & "\"§7Crate Series #" & Series & "\",\"\",\"§7This " & FauxType & " may contain:\"" & ItemList & "\"§d...or a rare special item!\"" & "]},RepairCost:9999,HideFlags:63},TrackOutput:0}"
        delay 3
        keystroke FullCMD
    end tell
end if