Advertisement
westor

MyAscii FIX for Mr_Me v1.0

Dec 30th, 2019
906
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.21 KB | None | 0 0
  1. menu status,channel,query {
  2.   $iif(%trollmode == on,MyASCII)
  3.   .$iif($group(#myascii) == ON,$style(3)) On: { .enable #myascii | echo 4[ 8System 4] MyASCII is: ON .  Have Fun... }
  4.   .$iif($group(#myascii) == OFF,$style(3)) Off: { .disable #myascii | echo 4[ 8System 4] My ASCII is: OFF .  You will not be able to use emoticons now.... }
  5. }
  6.  
  7. #myascii on
  8. ON *:INPUT:*:{
  9.   if (!$inpaste) && (!$ctrlenter) && ($comchar !== $left($1,1)) && ($chr(33) !== $left($1,1)) && ($active !== Status Window) {
  10.  
  11.     var %original = ok,yes,yeap,yeah,nope,no,euro,tecpa,tespa,AdiIRC,thx,DarkShadow,brb,mirc
  12.     var %replace = ok ✔,yes ✔,yeap ✔,yeah ✔,nope ✘,no ✘,€,Telos Pantwn...,Telos Pantwn...,10Adi7I4R15C,Thank You!,14Dark15Shadow14™,4B7e 4R7ight 4B7ack,2m4IR8C
  13.  
  14.     var %text = $1-
  15.  
  16.     var %i = 1
  17.  
  18.     while (%i <= $numtok(%text,32)) {
  19.       var %word = $gettok(%text,%i,32)
  20.  
  21.       if ($istok(%original,%word,44)) {
  22.         var %fn = $findtok(%original,%word,1,44)
  23.         var %rep_word = $gettok(%replace,%fn,44)
  24.         var %text = $replace(%text,%word,%rep_word)
  25.       }
  26.  
  27.       inc %i
  28.     }
  29.  
  30.     if (%text !== $null) { msg $active %text }
  31.  
  32.     halt
  33.   }
  34. }
  35. #myascii end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement