function rhc_skala(p: player, type: text, x: integer, y: integer, z: integer):
    if {_type} is "stone":

        set {_skala} to "%{_type}%-x%{_x}%y%{_y}%z%{_z}%"
        set {_skala::type} to {_type}
        set {_skala::hp} to 128
        set {_skala::locX} to {_x}
        set {_skala::locY} to {_y}
        set {_skala::locZ} to {_z}
        set {_skala::loc} to "%{_x}%, %{_y}%, %{_z}%"

        set block at {_skala::loc} to stone

        add {_skala} to {skaly::*}

        send "%{skaly::*}%" to {_p}

command /skalafunc [<text>] [<integer>] [<integer>] [<integer>]:
    trigger:
        rhc_skala(player, arg-1, arg 2, arg 3, arg 4)