@title propcase
@param a propid
@default a 5
@param b value
@default b 0

:loop
    wait_click
    is_key k "left"
    if k=1 then get_prop a b
    is_key k "set"
    if k=1 then goto "lend"
    print a,b
    goto "loop"

:lend
end