sleep function

putils.tcl

@@ -39,6 +39,10 @@ proc ::putils::proper_botnick {botnick} {
 
 }
 
+proc ::putils::sleep {N} {
+        after [expr {int($N * 1000)}]
+}
+
 
 proc ::putils::proper_channelname {channelname} {
   # channel names ARE NOT and SHOULD NOT BE CASE SENSITIVE!