Pasted

### PatchChk.tcl 1.0.0 Y5aZfqpT
 
#LICENSE
# Copyright © 2013 Thomas "thommey" Sader
# This program is free software. It comes without any warranty, to
# the extent permitted by applicable law. You can redistribute it
# and/or modify it under the terms of the Do What The Fuck You Want
# To Public License, Version 2, as published by Sam Hocevar. See
# http://sam.zoy.org/wtfpl/COPYING for more details. 
 
#PATERNITY
#Coder: Thommey
#Network: irc.Freenode.net
#Chan: #Eggdrop #EggHelp
#Mail: [email protected]
 
#PURPOSE
#Let's know if bot is patched or not.
 
#USAGE
#Add this script to your eggdrop's list to load it.
 
### DON'T EDIT ANYTHING BELOW ###
 
proc bot_patchchk { } {
  catch {botonchan #\uC0A0} e
  if {![string equal [string length $e] [string bytelength $e]]} {
    set ::BotPatchedChk 1
  } else {
    set ::BotPatchedChk 0
  }
}
 
bot_patchchk
 
###
putlog "PatchChk.tcl LOADED"