Formatting of code : You can (and must) use [ tcl ] an [ /tcl ] tags (without spaces in tags) to format your TCL codes and have syntax coloration x


need help in ascii art
#1
hi all, now im trying to create my first basic tcl with FunnyText.tcl based on what i have learned ..
i'm having issuse this ascii art not showing properly in the channel..

tcl
#############################################################################
# Choose your trigger for the bot to use ... use example set cmdz "!" or "?"# 
#############################################################################
 
set mabrook "!"
 
#############################################################################
 
bind pub - ${mabrook}list pub_list
bind pub - ${mabrook}rose pub_rose
bind pub - ${mabrook}arrow pub_arrow
bind pub - ${mabrook}spider pub_spider 
bind pub - ${mabrook}fishbone pub_fishbone
bind pub - ${mabrook}alien pub_alien
bind pub - ${mabrook}love pub_love
bind pub - ${mabrook}live pub_live
 
 
##############################################################################
#    EDIT BELOW #
##############################################################################
 
proc pub_list {nick uhost hand channel rest} {
  global botnick mabrook
    putquick "NOTICE $nick :!spider !rose !arrow !fishbone !alien"
    return 0
}
 
proc pub_spider {nick uhost hand channel arg} {
  global botnick mabrook
  set theNick $nick
  if { [llength $arg] == 1 } {
    set theNick [lindex [split $arg] 0]
  }
putquick "PRIVMSG $channel : ...sharing a bigger spider\00304 //\(oo)/\\ \003to \[\00305 $theNick \003\], please feed it with a\00307 _/\__/\__0>\003 (worm)." 
    return 0
}
 
proc pub_rose {nick uhost hand channel arg} {
  global botnick mabrook
  set theNick $nick
  if { [llength $arg] == 1 } {
    set theNick [lindex [split $arg] 0]
  }  
putquick "PRIVMSG $channel : ..giving a red rose \00305--------\00303(\00305---\00303(\00304@\003 to \[\00305 $theNick \003\].. " 
    return 0
}
 
proc pub_arrow {nick uhost hand channel arg} {
  global botnick mabrook
  set theNick $nick
  if { [llength $arg] == 1 } {
    set theNick [lindex [split $arg] 0]
  }
putquick "PRIVMSG $channel : ..a rebel cupid's \00306,.-~\00304*\00303´¨¯¨`\00313*·~-.¸\003\00304>>------>\003 trying to hit the \00304»-(¯`·.·´¯)-> of \[\00305 $theNick \003\].." 
    return 0
}
 
proc pub_fishbone {nick uhost hand channel arg} {
  global botnick mabrook
  set theNick $nick
  if { [llength $arg] == 1 } {
    set theNick [lindex [split $arg] 0]
  }
  putquick "PRIVMSG $channel : ..am giving you a fishbone \00307>++('>\003 ..since, you're hungry \[\00305 $theNick \003\], hope you like it..." 
    return 0
}
 
proc pub_alien {nick uhost hand channel arg} {
  global botnick mabrook
  set theNick $nick
  if { [llength $arg] == 1 } {
    set theNick [lindex [split $arg] 0]
  }
  putquick "PRIVMSG $channel :..pointing a \00304(==||::::>\003 (knife) ...telling and proving that alien \00302(<>..<>)\003 is real, \[\00305 $theNick \003\], it is REEAALLLL!!!!!" 
    return 0
}
 
proc pub_love {nick uhost hand channel arg} {
  global botnick mabrook
  set theNick $nick
  if { [llength $arg] == 1 } {
    set theNick [lindex [split $arg] 0]
  }
  putquick "PRIVMSG $channel :\00307 @('_')@ \003...broadcasting the feeling to \00304»-(¯`·.·´¯)-> \[\00305 $theNick \003\]\00304<-(¯`·.·´¯)-« \003.. \00306(-(-_(-_-)_-)-)\003 (crowd cheering)" 
    return 0
}
 
proc pub_live {nick uhost hand channel arg} {
  global botnick mabrook
  set theNick $nick
  if { [llength $arg] == 1 } {
    set theNick [lindex [split $arg] 0]
  }
  putquick "PRIVMSG $channel : \00306Y\00302ᵒᵘ\003 \00306O\00302ᶰˡʸ\003 \00306L\00302ᶤᵛᵉ\003 \00306O\00302ᶰᶜᵉ\003 , \[ \00305$theNick\003 \]" 
    return 0
}
 
 
putlog "FunnyText.tcl by MABROOK Loaded!"



and this is the ascii art not showing properly..

tcl
<mabrook> !live Nick1
<bot>  YRX O°á¸ L¤[I O°œI , [ Nick1 ]



this is the original ascii art
tcl
Yᵒᵘ Oᶰˡʸ Lᶤᵛᵉ Oᶰᶜᵉ



if anyone can help me on how to implement with ascii art and resolved it.. thank you. im getting the ascii art from here https://1lineart.kulaone.com
  Reply
#2
The trouble might be that you use unicode.
Can you try to replace:
tcl
putquick "PRIVMSG $channel : \00306Y\00302ᵒᵘ\003 \00306O\00302ᶰˡʸ\003 \00306L\00302ᶤᵛᵉ\003 \00306O\00302ᶰᶜᵉ\003 , \[ \00305$theNick\003 \]"


with:
tcl
putquick "PRIVMSG $channel : \00306Y\00302\u1D52\u1D58\003 \00306O\00302\u1DB0\u2E1\u2B8\003 \00306L\00302\u1DA4\u1D5B\u1D49\003 \00306O\00302\u1DB0\u1D9C\u1D49\003 , \[ \00305$theNick\003 \]"



It uses the hexa value of chars you want, so you won't have the trouble of file encoding. But it also depends on the network & channel settings, and on the client. Unicode and IRC are not good friends :)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
  Reply
#3
Oh ok CrazyCat, not in good terms.. hehehee

I've tried it, but still the same.. is there any other options on how to show this ?  :))
  Reply
#4
You can read https://github.com/eggheads/eggdrop/issues/4 and http://wiki.eggheads.org/index.php/Utf-8 but not sure it helps you :)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
  Reply
#5
yeah sure.. crazycat.. thanks for the info.. i'll check it.. :))

yes.. eggdrop installation will matter on this ascii art to show in the channel.. i tried it in my other bot .. it is showing properly..

but i forgot what i installed with the from that vps.. :)) package required for debian ascii.. :))
  Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)