Posted to tcl by example comparison at Thu Jun 27 19:52:58 GMT 2019view raw

  1. working:
  2.  
  3. bind pub - !tent pub_tent
  4. proc pub_tent {nick mask hand channel text} {
  5. putquick "PRIVMSG $channel :$text ..e=******=e.. "
  6. putquick "PRIVMSG $channel :$text .r\"\" .F ^\"4. "
  7. putquick "PRIVMSG $channel :$text .@\" $ .d\$b. "
  8. putquick "PRIVMSG $channel :$text z\$b. J\" .d$$$$$$\$c "
  9. putquick "PRIVMSG $channel :$text .$$$$$\$bc. $ .e$$$$$$$$$$$$$\$c "
  10. putquick "PRIVMSG $channel :$text d$$$$$$$$$$$\$bdbe$$$$$$$$$$$$$$$$$$$$$. "
  11. putquick "PRIVMSG $channel :$text d$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$\$b "
  12. putquick "PRIVMSG $channel :$text $$$$$$$$$$$$$$$$$$$$$$$$$$\$F*$$$$$$$$$$$$$$ "
  13. putquick "PRIVMSG $channel :$text $$$$$$$$$$$$$$$$$$$$$$$$$$$%3 ^\"**$$$$$$$$$. "
  14. putquick "PRIVMSG $channel :$text d$$$$$$$$$$$$$$$$$$$$$$$$$$\" L .^$$$$$ "
  15. putquick "PRIVMSG $channel :$text 4$$$$$$$$$$$$$$$$$$$$$$$$$\" 4 \"^$$$$$ "
  16. putquick "PRIVMSG $channel :$text $$$$$$$$$$$$$$$$$$$$$$$*\" b ^$$$\$L "
  17. putquick "PRIVMSG $channel :$text 4$$$$$$$$$$$$$$$$$$$$\" 'r \"$*\" "
  18. putquick "PRIVMSG $channel :$text $$$$$$$$$$$$$$$$$$$$$ $ .=\"\" "
  19. putquick "PRIVMSG $channel :$text \"*$$$$$$$$$$$$$$$$$$ ^F .r^ "
  20. putquick "PRIVMSG $channel :$text ^*$$$$$$$$$$$$$$$ ..*\" "
  21. putquick "PRIVMSG $channel :$text \"$$$$$$$$$$\$P .=\"\" "
  22. putquick "PRIVMSG $channel :$text \"*$$$$$$$ ./^\" "
  23. putquick "PRIVMSG $channel :$text \"*$$\$L.=\" "
  24. }
  25.  
  26.  
  27.  
  28. not working:
  29. bind pub - !pirat pub_pirat
  30. proc pub_pirat {nick mask hand channel text} {
  31. putquick "PRIVMSG $channel :$text `````` "
  32. putquick "PRIVMSG $channel :$text `-/oyhdmddddddmddys+:` "
  33. putquick "PRIVMSG $channel :$text `:odmhs+:.``````````.:/sydds:` "
  34. putquick "PRIVMSG $channel :$text `.-.` -smho-` `-+hms- ...` "
  35. putquick "PRIVMSG $channel :$text `+dNmdmmh/` .ymy-` `-smy- `/ymmdmNdo` "
  36. putquick "PRIVMSG $channel :$text hMN:```-sNm: +Nh- .yNo -dNy:```-mMd` "
  37. putquick "PRIVMSG $channel :$text `NMdm+ ``:mN+ sMh` /Ny` /NN/`` :mhMM. "
  38. putquick "PRIVMSG $channel :$text NM--ho `-/dMy. sNsmh- ``:Ny `sNm+-` +h:`MM` "
  39. putquick "PRIVMSG $channel :$text :Mm` `s: `/hMm+` /Ms .hNy- o +Mo `/mMd/` -y` dM+ "
  40. putquick "PRIVMSG $channel :$text `dM/ `+ `-smmo- `mm` /osmy- -o dN. .omNy:` /. :Mm` "
  41. putquick "PRIVMSG $channel :$text +Md `. .+dNh+. /M+. :+ .odh:` :+ /Mo ./hmdo. `` yMs "
  42. putquick "PRIVMSG $channel :$text dM/ `-odmh+hM:. +.` .+dd+. `o -`Nd+hmds-` -MN "
  43. putquick "PRIVMSG $channel :$text mMo.`````.-:/+/-` `-ohMN+` -. `:yds:` -- / dMdo-` `.:+/:-..````./MN "
  44. putquick "PRIVMSG $channel :$text .sddddddmmNNmyssss+:` `mNy `: .ohd+- -` +`dN` `-+sssssdNNmmddddddy- "
  45. putquick "PRIVMSG $channel :$text `.......-/ohdmdysso+:. hMm` .+` `:sdh+. `+ +:Nm .:+ossydmdhs/-.......` "
  46. putquick "PRIVMSG $channel :$text `-/sdmdy+:-`oMM-.:s `:shh+--+syys+:. +- osMs .:+ydmdy+-` "
  47. putquick "PRIVMSG $channel :$text `./sdmds+MMoss: .:+++ooo+:. `:yNNMMMMMMMmh+. .y hmMoohmdy/-` "
  48. putquick "PRIVMSG $channel :$text `-/ydNMNhd .mMMMMMMMMMmo` `hMMMMMMMMMMMMms.d:NMMmy+-` "
  49. putquick "PRIVMSG $channel :$text `:NMNy hMMMMMMMMMMMMs /MMMMMMMMMMMMMMMmdNMM/. "
  50. putquick "PRIVMSG $channel :$text .hMM+ NMMMMMMMMMMMMd : yMMMMMMMMMMMMMMMMMMMd. "
  51. putquick "PRIVMSG $channel :$text .mmoo. mMMMMMMMMMMms-/---yMMMMMMMMMMMMMMMMmhmNm- "
  52. putquick "PRIVMSG $channel :$text -Ms /NMMMNNmmy/.-+/hNNmMMMMMMMMMMMMMMMm- `sM/ "
  53. putquick "PRIVMSG $channel :$text yN/ -+yyso/.-:+/-dMhhMMmmMMMMMMMMMMNy- :mh` "
  54. putquick "PRIVMSG $channel :$text `sNs. ```.://-``hMM+yNMN:/ydmNMNmh+- .omy` "
  55. putquick "PRIVMSG $channel :$text `/Nms:-.....` .MMNomhMM: `-//::--:smN+` "
  56. putquick "PRIVMSG $channel :$text `-+hmmysMdssss+. smmssdNy` `+sssshMysdmho-` "
  57. putquick "PRIVMSG $channel :$text ``-+ydmho:` +M//` sms .-``-. +Nh` /:Ms `-+hmdy+-.` "
  58. putquick "PRIVMSG $channel :$text `.-//++++++++++ooyhdmdo:. .:omN`:/ `os/. ./oy` :+ mNo/.` .:ohmdhyso++++++++++//:.` "
  59. putquick "PRIVMSG $channel :$text .sdmmhhyyyyyyyyhhmmy+:. `.+ss+:mN``h .+/+/:--.````.--:/+//: y.`mN:+sy+-` `-+ymmhhyyyyyyyyyhdmmy. "
  60. putquick "PRIVMSG $channel :$text dMo. .-::-` `-oys/-:sdmNh.s` `:-:/.+-+//+/+-/./::-` y`yNmds:-:oyo-` `.::-. `+Mm "
  61. putquick "PRIVMSG $channel :$text mM: ` .+so:.:sdmh/.-md/- -+/-:-:/--/-/:-:-:+: `+hN:./ymmy/.-+so. ` .MN "
  62. putquick "PRIVMSG $channel :$text /Nd:``` y/`:ymmy/. -Nd. `:os::-...`--/oo/` `hN: `:smmy/`-d ```-hMo "
  63. putquick "PRIVMSG $channel :$text :hmmdhyo:.` :shNy/` /Nm: `-/+oosooo+/-` -dMo `:yNdo+ `.:+shdmmh/ "
  64. putquick "PRIVMSG $channel :$text `.-/mMh+//:. .MM+ /Nm+` `---::---` `/mNo :NM: .-//+yMN+-.` "
  65. putquick "PRIVMSG $channel :$text -MN` ` yMs -hmy:` `-smd: +Md` dM/ "
  66. putquick "PRIVMSG $channel :$text dM/ +Md` :hmy/` `:ymh/` hMo :Mm` "
  67. putquick "PRIVMSG $channel :$text :NN+.````.sNd. .+hmhsoyhhyooymdo- `dMy-````./mN/ "
  68. putquick "PRIVMSG $channel :$text -sdNNmmNNd+` `-/+:-.:+/:` `+hNNmmNNds- "
  69. putquick "PRIVMSG $channel :$text ``.`` `.`` "
  70. }
  71.  
  72.  
  73. why?^^