| View previous topic :: View next topic |
| Author |
Message |
Landslyde
Halfop
Joined: 01 May 2014
Posts: 46
|
 Posted: Fri Mar 17, 2017 3:03 am Post subject: TCL script stopped working |
 |
|
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 |
|
 |
juanamores
Master
Joined: 15 Mar 2015
Posts: 317
|
| Posted: Fri Mar 17, 2017 12:55 pm Post subject: |
|
|
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  |
|
| Back to top |
|
|
Landslyde
Halfop
Joined: 01 May 2014
Posts: 46
|
| Posted: Fri Mar 17, 2017 11:16 pm Post subject: |
|
|
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 |
|
|
Landslyde
Halfop
Joined: 01 May 2014
Posts: 46
|
| Posted: Sat Mar 18, 2017 1:42 am Post subject: |
|
|
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 |
|
|
juanamores
Master
Joined: 15 Mar 2015
Posts: 317
|
| Posted: Sat Mar 18, 2017 3:02 am Post subject: |
|
|
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 |
|
| Back to top |
|
|
Landslyde
Halfop
Joined: 01 May 2014
Posts: 46
|
| Posted: Sat Mar 18, 2017 4:36 am Post subject: |
|
|
Fixed it.
Had to go down from v1.8 to 1.6.21
Crazy |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
