function bar(p: player,m: text,t: integer):
    set {_waittime} to "%{_t}% ticks" parsed as timespan
    delete bossbar named "test"
    wait 1 ticks
    set {_testbar} to bossbar named "test" with title "%{_m}%" with color bar red with style solid
    wait 1 ticks
    set bossbar players of {_testbar} to {_p}
    wait {_waittime}
    delete bossbar named "test"
on rightclick:
    bar(player,"test",20)
    wait 21 ticks