function isRose(b: block) :: boolean:
    if "%{_b}%" is "rose bush":
        return true
    if "%block under {_b}%" is "rose bush":
        return true
    return false
function setRose(loc: location, sf: boolean):
    set {_rose} to tall flower
    set data value of {_rose} to 4
    if {_sf}:
        set block at location of block under {_loc} to {_rose}
        set block at {_loc} to tall plant top
        stop
    set block at {_loc} to {_rose}
    set block at location above location of block at {_loc} to tall plant top
    
on break:
    if isRose(event-block):
        if player has permission "farmer.plony":
            set {_sf} to true
            if event-block is tall flower:
                set {_sf} to false
            set {_rose} to tall flower
            set data value of {_rose} to 4
            drop (1 or 2 or 3) of {_rose} named "&cLesna jagoda" at event-block
            wait 1 second
            setRose(location of event-block, {_sf})