PatchChk.tcl

### 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"