This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

TCL script stopped working

Help for those learning Tcl or writing their own scripts.
Post Reply
L
Landslyde
Halfop
Posts: 46
Joined: Thu May 01, 2014 6:01 pm

TCL script stopped working

Post by Landslyde »

This use to work. I stopped using it for a while but loaded it today, and now it won't do anything.

Code: Select all

bind pub - .kiss pub_kiss

proc pub_kiss {nick host handle channel text} {
	if {![llength $text]} { 
		putquick "PRIVMSG $channel :\002\0034♡\0039♡\0036°¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨ \0034­­♡♡\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨°\0032♡\0034♡"
		putquick "PRIVMSG $channel :\002\00312♡\0035♡ \002\0037$nick \00312blows a million \002\00313♡♡♡♡ \0034KISSES \00313♡♡♡♡ \002\00312to $channel \002\0035♡\00312♡"
		putquick "PRIVMSG $channel :\002\00311♡\0037♡\0032¸¸·°\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\0039­­ ♡♡\0032¸¸·°\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\0035♡\0037♡"
	return 1
	} else {
		putquick "PRIVMSG $channel :\002\0034♡\0039♡\0034♡\0039♡\0036°¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨ \0034­­♡♡\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨°\0032♡\0034♡\0032♡\0034♡"
		putquick "PRIVMSG $channel :\002\00313♡♡ \0033$nick \002gives \002[join [split $text]] \002a deep, smokin' hot \002\00313♡♡ \002\00312\}\{ \002\0034 KISS \002\0030 \}\{\002\00313 ♡♡"
		putquick "PRIVMSG $channel :\002\0039♡\0034♡\0039♡\0034♡\0036°¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨ \0034­­♡♡\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨°\0034♡\0032♡\0034♡\0032♡"
	return 1
	}
}
This is running on a v1.8 eggdrop. I can't figure out why it doesn't work now. Any ideas?
j
juanamores
Master
Posts: 317
Joined: Sun Mar 15, 2015 9:59 am

Post by juanamores »

I just tried it on running eggdrop 1.6.21 and work perfect.

What error shown the partyline?
If you do not understand my ideas is because I can not think in English, I help me with Google Translate. I only speak Spanish. Bear with me. Thanks :)
L
Landslyde
Halfop
Posts: 46
Joined: Thu May 01, 2014 6:01 pm

Post by Landslyde »

It shows no error at all. I have three eggdrops and this fails on all three of them. The IRC network is my own, so I'll look at the config now to see what might be loaded that wasn't loaded before. Thank you for your input, juanamores.

irc.xtremeirc.net:6667
L
Landslyde
Halfop
Posts: 46
Joined: Thu May 01, 2014 6:01 pm

Post by Landslyde »

Are there any TCL files i cld be missing on my server for processing the ASCII characters? I get no error msgs at all. It just simply wont work.

UPDATE:

In testing, i can send those ascii chars to the screen fine. But my bot can't. I removed the ascii stuff and replaced with text and all went well. So what cld be causing the bot to NOT be able to send that to the channels? Any ideas?
j
juanamores
Master
Posts: 317
Joined: Sun Mar 15, 2015 9:59 am

Post by juanamores »

Try like this:

Code: Select all

bind pub - .kiss pub_kiss

proc pub_kiss {nick host handle channel text} {
   if {![llength $text]} {
   set notext1 [encoding convertfrom utf-8 "\002\0034♡\0039♡\0036°¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨ \0034­­♡♡\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨°\0032♡\0034♡"]
   set notext2 [encoding convertfrom utf-8 "\002\00312♡\0035♡ \002\0037$nick \00312blows a million \002\00313♡♡♡♡ \0034KISSES \00313♡♡♡♡ \002\00312to $channel \002\0035♡\00312♡"]
   set notext3 [encoding convertfrom utf-8 "\002\00311♡\0037♡\0032¸¸·°\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\0039­­ ♡♡\0032¸¸·°\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\0035♡\0037♡"]
      putquick "PRIVMSG $channel :$notext1"
      putquick "PRIVMSG $channel :$notext2"
      putquick "PRIVMSG $channel :$notext3"
   return 1
   } else {
   set yestext1 [encoding convertfrom utf-8 "\002\0034♡\0039♡\0034♡\0039♡\0036°¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨ \0034­­♡♡\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨°\0032♡\0034♡\0032♡\0034♡"]
   set yestext2 [encoding convertfrom utf-8 "\002\00313♡♡ \0033$nick \002gives \002[join [split $text]] \002a deep, smokin' hot \002\00313♡♡ \002\00312\}\{ \002\0034 KISS \002\0030 \}\{\002\00313 ♡♡"]
   set yestext3 [encoding convertfrom utf-8 "\002\0039♡\0034♡\0039♡\0034♡\0036°¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨ \0034­­♡♡\0036¨°·¸\0037¸·°¨\0039°·¸¸\0034·°¨°\00312·¸¸·\0033°¨°·\00312¸¸\00313·\0033°¨°\0034♡\0032♡\0034♡\0032♡"]
      putquick "PRIVMSG $channel :$yestext1"
      putquick "PRIVMSG $channel :$yestext2"
      putquick "PRIVMSG $channel :$yestext3"
   return 1
   }
}
If you do not understand my ideas is because I can not think in English, I help me with Google Translate. I only speak Spanish. Bear with me. Thanks :)
L
Landslyde
Halfop
Posts: 46
Joined: Thu May 01, 2014 6:01 pm

Post by Landslyde »

Fixed it.

Had to go down from v1.8 to 1.6.21

Crazy
Post Reply