Sensing
Basic clock by Botcrusherdefine Run clock forever set [time v] to (join (join (current [hour v]) [:]) (current [minute v])) end Advanced time by Bullelk12define Advanced time show variable [Time: v] forever if <(current [hour v]) > [12]> then if <(current [minute v]) < [10]> then if <(current [second v]) < [10]> then set [Time: v] to (join ((current [hour v]) - (12)) (join [:0] (join (current [minute v]) (join [:0] (current [second v]))))) else set [Time: v] to (join ((current [hour v]) - (12)) (join [:0] (join (current [minute v]) (join [:] (current [second v]))))) end end if <(current [minute v]) > [9]> then if <(current [second v]) < [10]> then set [Time: v] to (join ((current [hour v]) - (12)) (join [:] (join (current [minute v]) (join [:0] (current [second v]))))) else set [Time: v] to (join ((current [hour v]) - (12)) (join [:] (join (current [minute v]) (join [:] (current [second v]))))) end end end if <(current [hour v]) < [12]> then if <(current [minute v]) < [10]> then if <(current [second v]) < [10]> then set [Time: v] to (join (current [hour v]) (join [:0] (join (current [minute v]) (join [:0] (current [second v]))))) else set [Time: v] to (join (current [hour v]) (join [:0] (join (current [minute v]) (join [:] (current [second v]))))) end end if <(current [minute v]) > [9]> then if <(current [second v]) < [10]> then set [Time: v] to (join (current [hour v]) (join [:] (join (current [minute v]) (join [:0] (current [second v]))))) else set [Time: v] to (join (current [hour v]) (join [:] (join (current [minute v]) (join [:] (current [second v]))))) end end end if <(current [hour v]) > [11]> then set [Time: v] to (join (Time:) [ PM]) else set [Time: v] to (join (Time:) [ AM]) end end |
Volume Graph by Botcrusherdefine Volume graph go to x:(-230) y:(0) set pen color to [#e81818] clear forever pen down change x by (2) if (touching [_edge_ v]?) then set x to (-230) clear end set y to ((loudness) - (0)) end |