DoctorD90

nOwn.tcl 1.2.0

May 5th, 2013
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ### nOwn.tcl 1.2.0 dr7v2Zmq
  2.  
  3. #SUGGESTED
  4. # PBinSrc.tcl fMrtKqyq
  5. # TCLLoader.tcl smApj15u
  6.  
  7. #LICENSE
  8. # Copyright © 2013 Alberto Dietze "DoctorD90"
  9. #
  10. #    This program is free software: you can redistribute it and/or modify
  11. #    it under the terms of the GNU General Public License as published by
  12. #    the Free Software Foundation, either version 3 of the License, or
  13. #    (at your option) any later version.
  14. #
  15. #    This program is distributed in the hope that it will be useful,
  16. #    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. #    GNU General Public License for more details.
  19. #
  20. #    You should have received a copy of the GNU General Public License
  21. #    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  22. #
  23. # Full GPLv3 Text: http://www.gnu.org/licenses/gpl.txt
  24.  
  25. #PATERNITY
  26. #Coder: DoctorD90
  27. #Network: irc.OnlineGamesNet.net
  28. #Chan: #eHito
  29. #Script's List: www.EggTcl.tk
  30.  
  31. #PURPOSE
  32. #Get always the nick of bot's owner.
  33.  
  34. #USAGE
  35. #Use [nown] where you want put the nick of bot's owner.
  36.  
  37.  
  38. ### DON'T EDIT ANYTHING BELOW ###
  39.  
  40. proc nown { } {
  41.   if {[handonchan $::owner]} {
  42.     set o [hand2nick $::owner]
  43.   } else {
  44.     set o $::owner
  45.   }
  46.   return $o
  47. }
  48.  
  49. ###
  50. putlog "nOwn.tcl LOADED"
Advertisement
Add Comment
Please, Sign In to add comment