Pasted

# Use currently held block as helmet (/helm)
# Made by Hayden Schiff (oxguy3)
all:/helm = >>>
    assign(@helditem, pinv(player(), null))
    if (@helditem != null && @helditem['type'] >= 256) {
        msg(concat(color(red), 'Error: Only blocks are allowed as helmets'))
    } else {
        assign(@helmetitem, pinv(player(), 103))
        set_pinv(array(103: @helditem, null: @helmetitem))
        msg(concat(color(green), data_name(@helditem), ' moved to helmet slot!'))
    }
<<<
admin:/helm $item = >>>
    if (data_values($item) == null && $item != '0') {
        msg(concat(color(red), 'Error: Unknown item name'))
    } else if(data_values($item) >= 256) {
        msg(concat(color(red), 'Error: Only blocks are allowed as helmets'))
    } else {
        assign(@helmetitem, pinv(player(), 103))
        #if (@helmetitem != null) {
        #    pgive_item(concat(@helmetitem['type'], ':', @helmetitem['data']), @helmetitem['qty'])
        #}
        set_pinv(array(103: array(type: data_values($item), qty:1)))
        msg(concat(color(green), 'Helmet set to ', data_name(data_values($item)), '!'))
    }
<<<
admin:/helm $item $player = >>>
    try (
        player($player),
        @ex,
        die(concat(color(red), 'Error: Player not found')),
        PlayerOfflineException
    )
    if (data_values($item) == null && $item != '0') {
        msg(concat(color(red), 'Error: Unknown item name'))
    } else if(data_values($item) >= 256) {
        msg(concat(color(red), 'Error: Only blocks are allowed as helmets'))
    } else {
        assign(@helmetitem, pinv($player, 103))
        #if (@helmetitem != null) {
        #    pgive_item($player, concat(@helmetitem['type'], ':', @helmetitem['data']), @helmetitem['qty'])
        #}
        set_pinv($player, array(103: array(type: data_values($item), qty:1)))
        msg(concat(color(green), player($player), '\'s helmet set to ', data_name(data_values($item)), '!'))
    }
<<<
admin:/helm $item $player $ = msg(color(red) 'Usage: /helm [item] [player]')