egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

TCL script stopped working

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help
View previous topic :: View next topic  
Author Message
Landslyde
Halfop


Joined: 01 May 2014
Posts: 43

PostPosted: Fri Mar 17, 2017 3:03 am    Post subject: TCL script stopped working Reply with quote

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

Code:

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?
Back to top
View user's profile Send private message
juanamores
Master


Joined: 15 Mar 2015
Posts: 317

PostPosted: Fri Mar 17, 2017 12:55 pm    Post subject: Reply with quote

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 Smile
Back to top
View user's profile Send private message
Landslyde
Halfop


Joined: 01 May 2014
Posts: 43

PostPosted: Fri Mar 17, 2017 11:16 pm    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
Landslyde
Halfop


Joined: 01 May 2014
Posts: 43

PostPosted: Sat Mar 18, 2017 1:42 am    Post subject: Reply with quote

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?
Back to top
View user's profile Send private message
juanamores
Master


Joined: 15 Mar 2015
Posts: 317

PostPosted: Sat Mar 18, 2017 3:02 am    Post subject: Reply with quote

Try like this:
Code:
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 Smile
Back to top
View user's profile Send private message
Landslyde
Halfop


Joined: 01 May 2014
Posts: 43

PostPosted: Sat Mar 18, 2017 4:36 am    Post subject: Reply with quote

Fixed it.

Had to go down from v1.8 to 1.6.21

Crazy
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Scripting Help All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber