Posted to tcl by example comparison at Thu Jun 27 19:52:58 GMT 2019view pretty
working:
bind pub - !tent pub_tent
proc pub_tent {nick mask hand channel text} {
putquick "PRIVMSG $channel :$text ..e=******=e.. "
putquick "PRIVMSG $channel :$text .r\"\" .F ^\"4. "
putquick "PRIVMSG $channel :$text .@\" $ .d\$b. "
putquick "PRIVMSG $channel :$text z\$b. J\" .d$$$$$$\$c "
putquick "PRIVMSG $channel :$text .$$$$$\$bc. $ .e$$$$$$$$$$$$$\$c "
putquick "PRIVMSG $channel :$text d$$$$$$$$$$$\$bdbe$$$$$$$$$$$$$$$$$$$$$. "
putquick "PRIVMSG $channel :$text d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\$b "
putquick "PRIVMSG $channel :$text $$$$$$$$$$$$$$$$$$$$$$$$$$\$F*$$$$$$$$$$$$$$ "
putquick "PRIVMSG $channel :$text $$$$$$$$$$$$$$$$$$$$$$$$$$$%3 ^\"**$$$$$$$$$. "
putquick "PRIVMSG $channel :$text d$$$$$$$$$$$$$$$$$$$$$$$$$$\" L .^$$$$$ "
putquick "PRIVMSG $channel :$text 4$$$$$$$$$$$$$$$$$$$$$$$$$\" 4 \"^$$$$$ "
putquick "PRIVMSG $channel :$text $$$$$$$$$$$$$$$$$$$$$$$*\" b ^$$$\$L "
putquick "PRIVMSG $channel :$text 4$$$$$$$$$$$$$$$$$$$$\" 'r \"$*\" "
putquick "PRIVMSG $channel :$text $$$$$$$$$$$$$$$$$$$$$ $ .=\"\" "
putquick "PRIVMSG $channel :$text \"*$$$$$$$$$$$$$$$$$$ ^F .r^ "
putquick "PRIVMSG $channel :$text ^*$$$$$$$$$$$$$$$ ..*\" "
putquick "PRIVMSG $channel :$text \"$$$$$$$$$$\$P .=\"\" "
putquick "PRIVMSG $channel :$text \"*$$$$$$$ ./^\" "
putquick "PRIVMSG $channel :$text \"*$$\$L.=\" "
}
not working:
bind pub - !pirat pub_pirat
proc pub_pirat {nick mask hand channel text} {
putquick "PRIVMSG $channel :$text `````` "
putquick "PRIVMSG $channel :$text `-/oyhdmddddddmddys+:` "
putquick "PRIVMSG $channel :$text `:odmhs+:.``````````.:/sydds:` "
putquick "PRIVMSG $channel :$text `.-.` -smho-` `-+hms- ...` "
putquick "PRIVMSG $channel :$text `+dNmdmmh/` .ymy-` `-smy- `/ymmdmNdo` "
putquick "PRIVMSG $channel :$text hMN:```-sNm: +Nh- .yNo -dNy:```-mMd` "
putquick "PRIVMSG $channel :$text `NMdm+ ``:mN+ sMh` /Ny` /NN/`` :mhMM. "
putquick "PRIVMSG $channel :$text NM--ho `-/dMy. sNsmh- ``:Ny `sNm+-` +h:`MM` "
putquick "PRIVMSG $channel :$text :Mm` `s: `/hMm+` /Ms .hNy- o +Mo `/mMd/` -y` dM+ "
putquick "PRIVMSG $channel :$text `dM/ `+ `-smmo- `mm` /osmy- -o dN. .omNy:` /. :Mm` "
putquick "PRIVMSG $channel :$text +Md `. .+dNh+. /M+. :+ .odh:` :+ /Mo ./hmdo. `` yMs "
putquick "PRIVMSG $channel :$text dM/ `-odmh+hM:. +.` .+dd+. `o -`Nd+hmds-` -MN "
putquick "PRIVMSG $channel :$text mMo.`````.-:/+/-` `-ohMN+` -. `:yds:` -- / dMdo-` `.:+/:-..````./MN "
putquick "PRIVMSG $channel :$text .sddddddmmNNmyssss+:` `mNy `: .ohd+- -` +`dN` `-+sssssdNNmmddddddy- "
putquick "PRIVMSG $channel :$text `.......-/ohdmdysso+:. hMm` .+` `:sdh+. `+ +:Nm .:+ossydmdhs/-.......` "
putquick "PRIVMSG $channel :$text `-/sdmdy+:-`oMM-.:s `:shh+--+syys+:. +- osMs .:+ydmdy+-` "
putquick "PRIVMSG $channel :$text `./sdmds+MMoss: .:+++ooo+:. `:yNNMMMMMMMmh+. .y hmMoohmdy/-` "
putquick "PRIVMSG $channel :$text `-/ydNMNhd .mMMMMMMMMMmo` `hMMMMMMMMMMMMms.d:NMMmy+-` "
putquick "PRIVMSG $channel :$text `:NMNy hMMMMMMMMMMMMs /MMMMMMMMMMMMMMMmdNMM/. "
putquick "PRIVMSG $channel :$text .hMM+ NMMMMMMMMMMMMd : yMMMMMMMMMMMMMMMMMMMd. "
putquick "PRIVMSG $channel :$text .mmoo. mMMMMMMMMMMms-/---yMMMMMMMMMMMMMMMMmhmNm- "
putquick "PRIVMSG $channel :$text -Ms /NMMMNNmmy/.-+/hNNmMMMMMMMMMMMMMMMm- `sM/ "
putquick "PRIVMSG $channel :$text yN/ -+yyso/.-:+/-dMhhMMmmMMMMMMMMMMNy- :mh` "
putquick "PRIVMSG $channel :$text `sNs. ```.://-``hMM+yNMN:/ydmNMNmh+- .omy` "
putquick "PRIVMSG $channel :$text `/Nms:-.....` .MMNomhMM: `-//::--:smN+` "
putquick "PRIVMSG $channel :$text `-+hmmysMdssss+. smmssdNy` `+sssshMysdmho-` "
putquick "PRIVMSG $channel :$text ``-+ydmho:` +M//` sms .-``-. +Nh` /:Ms `-+hmdy+-.` "
putquick "PRIVMSG $channel :$text `.-//++++++++++ooyhdmdo:. .:omN`:/ `os/. ./oy` :+ mNo/.` .:ohmdhyso++++++++++//:.` "
putquick "PRIVMSG $channel :$text .sdmmhhyyyyyyyyhhmmy+:. `.+ss+:mN``h .+/+/:--.````.--:/+//: y.`mN:+sy+-` `-+ymmhhyyyyyyyyyhdmmy. "
putquick "PRIVMSG $channel :$text dMo. .-::-` `-oys/-:sdmNh.s` `:-:/.+-+//+/+-/./::-` y`yNmds:-:oyo-` `.::-. `+Mm "
putquick "PRIVMSG $channel :$text mM: ` .+so:.:sdmh/.-md/- -+/-:-:/--/-/:-:-:+: `+hN:./ymmy/.-+so. ` .MN "
putquick "PRIVMSG $channel :$text /Nd:``` y/`:ymmy/. -Nd. `:os::-...`--/oo/` `hN: `:smmy/`-d ```-hMo "
putquick "PRIVMSG $channel :$text :hmmdhyo:.` :shNy/` /Nm: `-/+oosooo+/-` -dMo `:yNdo+ `.:+shdmmh/ "
putquick "PRIVMSG $channel :$text `.-/mMh+//:. .MM+ /Nm+` `---::---` `/mNo :NM: .-//+yMN+-.` "
putquick "PRIVMSG $channel :$text -MN` ` yMs -hmy:` `-smd: +Md` dM/ "
putquick "PRIVMSG $channel :$text dM/ +Md` :hmy/` `:ymh/` hMo :Mm` "
putquick "PRIVMSG $channel :$text :NN+.````.sNd. .+hmhsoyhhyooymdo- `dMy-````./mN/ "
putquick "PRIVMSG $channel :$text -sdNNmmNNd+` `-/+:-.:+/:` `+hNNmmNNds- "
putquick "PRIVMSG $channel :$text ``.`` `.`` "
}
why?^^