Acronym System

By Aurora801 on Jun 19, 2009

Simple. Add to Remotes.
:] it replaces the set acronyms with what it means. :]
It does still send the default message, I'm working on this part as to where I need to put the haltdef. :]
Image
Image

on *:input:*: {
  if ($regex($1-,/(brb|bbl|lol|omg|ty|wb|yw|bck|bf|hb)/i)) {
  if (brb !isin $msg) { set %Acronymbrb 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1B7,1e 4,1R7,1ight 4,1B7,1ack $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (bbl !isin $msg) { set %Acronymbbl 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1B7,1e 4,1B7,1ack 4,1L7,1ater $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (thanks !isin $msg) { set %Acronymty 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1T7,1hank 4,1Y7,1ou $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (yw !isin $msg) { set %Acronymyw 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1Y7,1our 4,1W7,1elcome $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (bck !isin $msg) { set %Acronymbck 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1I0,1'7,1m 4,1B7,1ack $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (lol !isin $msg) { set %Acronymlol 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1L7,1aughing 4,1O7,1ut 4,1L7,1oud $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (omg !isin $msg ) { set %Acronymomg 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1O7,1h 4,1O7,1uh 4,1G7,1awd $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (brb !isin $msg) { set %Acronymbrb 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1B7,1e 4,1R7,1ight 4,1B7,1ack $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (wb !isin $msg) { set %Acronymwb 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1W7,1elcome 4,1B7,1ack $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (bf !isin $msg) { set %Acronymbf 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1B7,1oy 4,1F7,1riend $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1° }
  if (hb !isin $msg) { set %Acronymhb 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ 4,1H7,1urry 4,1B7,1ack $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°
  say $replace($1-,brb, %Acronymbrb ,bbl, %Acronymbbl ,lol, %Acronymlol ,omg, %Acronymomg ,ty, %Acronymty ,wb, %Acronymwb ,yw, %Acronymyw ,bck, %Acronymbck ,bf, %Acronymbf ,hb, %Acronymhb )
halt
  }
}

Comments

Sign in to comment.
Cracker200   -  Sep 30, 2009

Yep

 Respond  
Jethro   -  Sep 30, 2009

Nice catch, Cracker200. There's no $msg identifier. That being said, change: > if (brb !isin $msg) to

if (brb isin $regml(1))
if (bbl isin $regml(1))
if (thanks isin $regml(1))

... so on and so forth

will resolve the issue. And you do the same for other ones.

The regex example by WorldDMV is a great one, too.

 Respond  
Cracker200   -  Sep 30, 2009

There is No such Identifier as $msg...

 Respond  
Aurora801   -  Jun 26, 2009

Okay. I got the topic going, and so far I'm getting farther, just one more peice of it and it'll be complete. Thanks for all the help. :]

 Respond  
Aurora801   -  Jun 26, 2009

Actually it's haltdef.. Lol..

on *:input:*: {
 if (/ !isin $left($1,1)) {
 if (! !isin $left($1,1)) {
  haltdef
   msg $chan 14,1©15,1º0,1°4,1¨9,1<text>4,1¨0,1°15,1º14,1©
  }
 }
}

Just a lil tidbit there..

 Respond  
WorldDMT   -  Jun 26, 2009

!!! ??

look i dont understand verry well your problem i'm not good in inglish i seak french

bu about color u can try this

/echo -a My text: 14,1©15,1º0,1°4,1¨9,1H14,1ello. 4,1¨0,1°15,1º14,1©

u'll have this text colored " My text: ©º°¨Hello. ¨°º© "

ON INPUT event if u dont put "halt" or "haldef" u'll have a double send the hal command stop the event so while u put the color word it stoped befor the second send

on :input::{
echo -a My text: 14,1©15,1º0,1°4,1¨9,1H14,1ello. 4,1¨0,1°15,1º14,1©
halt <== here it's stoped if u remove this u'll have a doule send
}

 Respond  
Aurora801   -  Jun 25, 2009

Oh, WorldDMT, You seem like someone who'd know.. I need to set it up on my talker to have the text be dual color.. Here's an example:

My text: 14,1©15,1º0,1°4,1¨9,1H14,1ello. 4,1¨0,1°15,1º14,1©

I know it can be done, I know someone who did it, but I can't reach them.. If you know him, maybe you can ask? Lucius on irc.nightchatters.com I haven't been on it for awhile, but Maybe you can help? Or anyone?
I'm gonna make a forum post about it too. Forum Topic: http://www.hawkee.com/phpBB2/viewtopic.php?p=93519#93519

 Respond  
Aurora801   -  Jun 20, 2009

Is it double-sending for you?
I can show you on a server. irc.chattercity.net Room: #HellsShells

 Respond  
WorldDMT   -  Jun 20, 2009

i just try the code there no problem

 Respond  
Aurora801   -  Jun 20, 2009

On that though, it still sends the default message, where would I put the haltdef?

 Respond  
Aurora801   -  Jun 20, 2009

Thanks! I'll try that out.
And, I really do appreciate any suggestions given, and if I make a comment that is false, feel free to let me know. :]

 Respond  
WorldDMT   -  Jun 20, 2009

hi

one "}" missing at end

your code can be like this

on *:input:*:{
  if $regex($1-,/^(brb|bbl|lol|omg|ty|wb|yw|bck|bf|hb)$/i) {
    var %x $replace($regml(1),brb,Be Right Back,bbl,Be Back Later,ty,Thank You,yw,Your Welcome,bck,I'm Back,lol,Laughing Out Loud,omg,Oh Ouh Gawd,brb,Be Right Back,wb,Welcome Back,bf,Boy Friend,hb,Hurry Back)
    msg $active 4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°14,1«15,1« $+ $regsubex(%x,((\w)(.+\s)(\w)(.+\s)|(\w)(.+\s))(\w)(.+),4\27\3 4\47\5 4\67\7) $+ 15,1»14,1»4,1°7,1ø6,1·4,1¤6,1·7,1ø4,1°
    halt
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.