View difference between Paste ID: LwhmLduG and fpx1Gx1Z

-### TextSplitter.tcl v2.5.1 fpx1Gx1Z
+### TextSplitter.tcl 2.5.1 fpx1Gx1Z
 
 #REQUIREMENTS
 # PatchChk.tcl Y5aZfqpT
 
 #LICENSE
 # Copyright © 2013 Alberto Dietze "DoctorD90"
 #
 #    This program is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
 #    the Free Software Foundation, either version 3 of the License, or
 #    (at your option) any later version.
 #
 #    This program is distributed in the hope that it will be useful,
 #    but WITHOUT ANY WARRANTY; without even the implied warranty of
 #    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 #    GNU General Public License for more details.
 #
 #    You should have received a copy of the GNU General Public License
 #    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #
 # Full GPLv3 Text: http://www.gnu.org/licenses/gpl.txt
 
 #PATERNITY
 #Coder or Developer?: DoctorD90
 #Network: irc.OnlineGamesNet.net
 #Chan: #eHito
 #Mail: [email protected]
 #
 #Thanks to guys on #egghelp on irc.freenode.net
 #Special thanks to Speechles
 
 #PURPOSE
 #This script splits messages sended to irc server
 #in lines if it is over max chars network length
 
 #USAGE
 #To send message to server, use command
 #notice Target stringMessage speedqueque
 #or
 #privmsg Target stringMessage speedqueque
 #or
 #actmsg Target stringMessage speedqueque
 # 'speedqueque' is optional. If it isn't setted,
 #it will use default value setted in SETTINGS section.
 
 #SETTINGS
 #Set your own Max Char Network Length
 set textsplitter(netmaxchar) 512
 
 #Set your default queque speed messages.
 #1 putserv
 #2 puthelp
 #3 putquick
 #4 putnow
 set textsplitter(speedqueque) 1
 
 
 ### DON'T EDIT ANYTHING BELOW ###
 
 proc notice {who what {speed{$::textsplitter(speedqueque)}}} {
   if {[info exists ::BotPatchedChk] && $::BotPatchedChk} {
     set lines [bpatched_text $who 0 $what]
   } else {
     set lines [bunpatched_text $who 0 $what]
   }
   foreach line $lines {
     set text "NOTICE $who :$line"
     switch -glob -- $speed {
 	  "2" {
         puthelp $text
       }
 	  "3" {
         putquick $text
       }
 	  "4" {
         putnow $text
       }
 	  "default" {
         putserv $text
       }
     }
   }
 }
 
 proc privmsg {who what {speed{$::textsplitter(speedqueque)}}} {
   if {[info exists ::BotPatchedChk] && $::BotPatchedChk} {
     set lines [bpatched_text $who 1 $what]
   } else {
     set lines [bunpatched_text $who 1 $what]
   }
   foreach line $lines {
     set text "PRIVMSG $who :$line"
     switch -glob -- $speed {
 	  "2" {
         puthelp $text
       }
 	  "3" {
         putquick $text
       }
 	  "4" {
         putnow $text
       }
 	  "default" {
         putserv $text
       }
     }
   }
 }
 
 proc actmsg {who what {speed{$::textsplitter(speedqueque)}}} {
   if {[info exists ::BotPatchedChk] && $::BotPatchedChk} {
     set lines [bpatched_text $who 16 $what]
   } else {
     set lines [bunpatched_text $who 16 $what]
   }
   foreach line $lines {
     set text "PRIVMSG $who :\001ACTION $line\001"
     switch -glob -- $speed {
 	  "2" {
         puthelp $text
       }
 	  "3" {
         putquick $text
       }
 	  "4" {
         putnow $text
       }
 	  "default" {
         putserv $text
       }
     }
   }
 }
 
 proc bpatched_text {who typ what} {
   set max [expr {$::textsplitter(netmaxchar) - 7 - $typ - [string bytelength $who] - 2 - 2}]
   if {[string bytelength $what] <= $max} {
     lappend msg $what
   } else {
     while {[string bytelength $what] != "0"} {
       set a 0
       set b 0
       while {[string bytelength [string range $what 0 $a]] < $max && $a <= [string length $what]} {
         if {![string length [string trim [string index $what $a]]]} {
           set b $a
         }
         incr a
       }
       if {[string length [string trim [string index $what $a]]] && [string length [string trim [string index $what [expr {$a + 1}]]]] && [llength [split $what]] > "1"} {
         set a $b
       }
       if {[string length [string trim [string range $what 0 $a]]]} {
         lappend msg [string trim [string range $what 0 $a]]
        }
        set what [string range $what [expr {$a + 1}] end]
     }
   }
   return $msg
 }
 
 proc bunpatched_text {who typ what} {
   set ::textsplitter(netmaxchar) 512
   set max [expr {$::textsplitter(netmaxchar) - 7 - $typ - [string length $who] - 2 - 2}]
   if {[string length $what] <= $max} {
     lappend msg $what
   } else {
     while {[string length $what] != "0"} {
       set a 0
       set b 0
       while {[string length [string range $what 0 $a]] < $max && $a <= [string length $what]} {
         if {![string length [string trim [string index $what $a]]]} {
           set b $a
         }
         incr a
       }
       if {[string length [string trim [string index $what $a]]] && [string length [string trim [string index $what [expr {$a + 1}]]]] && [llength [split $what]] > "1"} {
         set a $b
       }
      if {[string length [string trim [string range $what 0 $a]]]} {
         lappend msg [string trim [string range $what 0 $a]]
      }
       set what [string range $what [expr {$a + 1}] end]
     }
   }
   return $msg
 }
 
 ###
 putlog "TextSplitter.tcl LOADED"