Acroyms or how ever it's spelled lol

By Cracker200 on Aug 17, 2009

I made these myself please can some one tell me how to do it so when i type "lol" in any part of the sentence it will come up there to danke ^^ please rate and comment feel free to edit

on 1:input:*:{
  IF ($1- == ja) { say 4,1J9ack 4,1A9ss $2- | HALT }
  IF ($1- == fo) { say 4,1F9uck 4,1O9ff $2- | HALT }
  IF ($1- == fob) { say 4,1F9uck 4,1O9ff 4,1B4itch $2- | HALT }
  IF ($1- == wb) { say 4,1W9elcome 4,1B9ack $2- | HALT }
  IF ($1- == wbb) { say 4,1W9elcome 4,1B9ack 4,1B9itch $2- | HALT }
  IF ($1- == ib) { say 4,1I9'm 4,1B9ack $2- | HALT }
  IF ($1- == iba) { say 4,1I9'm 4,1B9ack 4,1A9gain $2- | HALT }
  IF ($1- == wtf) { say 4,1W9hat 4,1T9he 4,1F9uck $2- | HALT }
  IF ($1- == wtfb) { say 4,1W9hat 4,1T9he 4,1F9uck 4,1B9itch $2- | HALT }
  IF ($1- == wu) { say 4,1W9hats 4,1U9p $2- | HALT }
  IF ($1- == wuh) { say 4,1W9hats 4,1U9p 4,1H9omee $2- | HALT }
  IF ($1- == ah) { say 4,1A9ss 4,1H9ole $2- | HALT }
  IF ($1- == brb) { say 4,1B9e 4,1R9ight 4,1B9ack $2- | HALT }
  IF ($1- == brbb) { say 4,1B9e 4,1R9ight 4,1B9ack 4,1B9itch $2- | HALT }
  IF ($1- == lol) { say 4,1L9aughing 4,1O9ut 4,1L9oudly $2- | HALT }
  IF ($1- == lolb) { say 4,1L9aughing 4,1O9ut 4,1L9oudly 4,1B9itch $2- | HALT }
  IF ($1- == lolotf) { say 4,1L9aughing 4,1O9ut 4,1L9oudly 4,1O9n 4,1T9he 4,1 F9loor $2- | HALT }
  IF ($1 == lolotfb) { say 4,1L9aughing 4,1O9ut 4,1L9oudly 4,1O9n 4,1T9he 4,1 F9loor 4,1B9itch $2- | HALT }
  IF ($1- == omg) { say 4,1O 4,1M9y 4,1G9od $2- | HALT }
  IF ($1- == omfg) { say 4,1O 4,1M9y 4,1F9ucking 4,1G9od $2- | HALT }
  IF ($1- == ty) { say 4,1T9hank 4,1Y9ou $2- | HALT }
  IF ($1- == nvm) { say 4,1N9ever 4,1M9ind $2- | HALT }
  IF ($1- == yw) { say 4,1Y9ou 4,1W9elcome $2- | HALT }
  IF ($1- == wb) { say 4,1W9elcome 4,1B9ack $2- | HALT }
  IF ($1- == taw) { say 4,1T9hanks 4,1A9ny 4,1W9ay $2- | HALT }
  IF ($1- == ty) { say 4,1T9hank 4,1Y9ou $2- | HALT }

Like Page Follow Author

Comments

D2K7 - Aug 19, 2009

@
GlobalAnomaly WHY? and yes needs bracket at the end lmfao

Respond

GlobalAnomaly - Aug 18, 2009

I made a script like this. It was my first ever Hash thing. But I won't advertise I swear

Respond

Korvin - Aug 18, 2009

god damn this script needs a lot of work -.- firstly, fix your brackets.

Respond

Cracker200 - Aug 18, 2009

@ atr lmao and @ Jethro_ Thanks and GlobalAnomaly Thanks :)

Respond

tra_orex - Aug 18, 2009

no, it only works when u only say the acronym

i use something like this so when i type "u" it replaces with you

Respond

Atr - Aug 18, 2009

So if I say > "Ah that's interesting.." It'll come up as > "Ass Hole that's interesing.."

Lawl!

Respond

Phoenix- - Aug 17, 2009

I've never really liked these things and of course theres easier ways to do it but the first thing I noticed is a missing bracket at the end.

Respond

Jethro - Aug 17, 2009

@ Jethro_ $Reptok wtf?

on *:INPUT:*: {
  if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
    var %a = ja,fo,fob,wb,wbb,ib,iba,wtf,wtfb,wu,wuh,ah,brb,brbb,lol,lolb,lolotf,lolotfb,omg,omfg,ty,nvm,yw,wb,taw,ty
    var %b = 4,1J9ack 4,1A9ss|4,1F9uck 4,1O9ff|4,1F9uck 4,1O9ff 4,1B4itch|$&
      4,1W9elcome 4,1B9ack|4,1W9elcome 4,1B9ack 4,1B9itch|4,1I9'm 4,1B9ack|$&
      4,1I9'm 4,1B9ack 4,1A9gain|4,1W9hat 4,1T9he 4,1F9uck|4,1W9hat 4,1T9he 4,1F9uck 4,1B9itch|$&
      4,1W9hats 4,1U9p|4,1W9hats 4,1U9p 4,1H9omee|4,1A9ss 4,1H9ole|4,1B9e 4,1R9ight 4,1B9ack|$&
      4,1B9e 4,1R9ight 4,1B9ack 4,1B9itch|4,1L9aughing 4,1O9ut 4,1L9oudly|4,1L9aughing 4,1O9ut 4,1L9oudly 4,1B9itch|$&
      4,1L9aughing 4,1O9ut 4,1L9oudly 4,1O9n 4,1T9he 4,1 F9loor|4,1L9aughing 4,1O9ut 4,1L9oudly 4,1O9n 4,1T9he 4,1 F9loor 4,1B9itch|$&
      4,1O 4,1M9y 4,1G9od|4,1O 4,1M9y 4,1F9ucking 4,1G9od|4,1T9hank 4,1Y9ou|4,1N9ever 4,1M9ind|4,1Y9ou 4,1W9elcome|4,1W9elcome 4,1B9ack|$&
      4,1T9hanks 4,1A9ny 4,1W9ay|4,1T9hank 4,1Y9ou
    var %c = $numtok(%a,44)
    while (%c) {
      var %d = $gettok(%a,%c,44)
      while ($findtok($1-,%d,0,32)) {
        tokenize 32 $reptok($1-,%d,$gettok(%b,%c,124),1,32)
      }
      dec %c
    }
    msg $chan $1-
    halt
  }
}

Respond

GlobalAnomaly - Aug 17, 2009

The mIRC Help file for $reptok:

$reptok(text,token,new,N,C)

Replaces the Nth matching token in text with a new token. If N = 0, applies to all matching items.

$reptok(a.b.c.d,b,e,1,46) returns a.e.c.d

$reptok(a.b.c.d,f,e,1,46) returns a.b.c.d

$reptok(a.b.a.c,a,e,2,46) returns a.b.e.c

Note: $reptokcs() is the case-sensitive version.

Respond

Cracker200 - Aug 17, 2009

@ GlobalAnomaly i suck at dialogs and @ Jethro_ $Reptok wtf?

Respond

Jethro - Aug 17, 2009

You can also use $replace or $reptok identifiers to go about this script instead of using if this and that to make a word happen.

Respond

GlobalAnomaly - Aug 17, 2009

You could make a dialog for users to input their own acronym and what the script says for each one.

Also, for this, why not change the $1 to $1- so it can search the entire sentence/phrase/whatever for the acryonym?

Respond