Acronym Central

By SweetBwai on Jun 14, 2004

Ok Hello Everyone This Is My First Time Posting A Script here put :-/........This Code is an acronym central script that replaces your abreviated text,and tranforms it into the full text.
-On accident if you delete one and press ok, the default will automatically be set back.
-A random color is an option for you. It can be set to either on/off. If it's set to on, the random color will change the color of the whole line only if the acronym you type is set to on.

on 1:load:{ 
  echo -a Loading.......
  .timer 1 2 /echo -a Loading Complete
  .timer 1 3 /echo -a Welcome to Acronym Central by SweetBwai`
  set %acro1 on
  set %acro2 on
  set %acro3 on
  set %acro4 on
  set %acro5 on
  set %acro6 on
  set %acro7 on
  set %acro8 on
  set %acro9 on
  set %acro10 on
  set %acro11 on
  set %acro12 on
  set %acro13 on
  set %acrorand off
  set %acroname1.a lol
  set %acroname1.b Laughs Out Loud
  set %acroname2.a brb
  set %acroname2.b Be Right Back
  set %acroname3.a wb
  set %acroname3.b Welcome Back
  set %acroname4.a rofl
  set %acroname4.b Rolling On Floor Laughing
  set %acroname5.a bbl
  set %acroname5.b Be Back Later
  set %acroname6.a rofl
  set %acroname6.b Rolling On Floor Laughing
  set %acroname7.a bbl
  set %acroname7.b Be Back Later
  set %acroname8.a bbiab
  set %acroname8.b Be Back In A Bit
  set %acroname9.a gtg
  set %acroname9.b Got To Go
  set %acroname10.a ty
  set %acroname10.b Thank You
  set %acroname11.a stfu
  set %acroname11.b Shut The Fuck Up
  set %acroname12.a wtf
  set %acroname12.b What The Fuck
  set %acroname13.a wth
  set %acroname13.b What The Hell

}
Menu Menubar,Status,Channel {
  &acronym studio:{ dialog -rm Acronym Acronym 
  }
}
dialog Acronym {
  title "Acronym Central"
  size -1 -1 276 414

  box "Acronym Control", 1, 4 5 265 408
  box "", 2, 123 371 63 35
  box "", 3, 190 371 63 35
  button "Ok", 4, 131 382 47 19, ok
  button "Cancel", 5, 198 382 47 19, cancel
  edit "lol", 6, 21 22 51 21, autohs
  text ">", 7, 79 25 7 15
  edit "Laughing Out Loud", 8, 92 22 100 21, autohs
  edit "brb", 9, 22 48 51 21, autohs
  text ">", 10, 79 53 7 15
  edit "Be Right Back", 11, 92 48 100 21, autohs
  edit "wb", 12, 22 74 51 21, autohs
  text ">", 13, 78 78 7 15
  edit "Welcome Back", 14, 92 74 100 21, autohs
  edit "rofl", 15, 22 101 51 21, autohs
  text ">", 16, 78 105 7 15
  edit "Rolling On Floor Laughing", 17, 92 101 100 21, autohs
  edit "bbl", 18, 22 128 50 21, autohs
  text ">", 19, 78 132 7 15
  edit "Be Back Later", 20, 93 128 100 21, autohs
  check "Acro #1", 21, 199 22 67 20
  check "Random Color", 22, 16 378 100 20
  check "Acro #2", 23, 199 49 67 20
  check "Acro #3", 24, 199 75 67 20
  check "Acro #4", 25, 199 102 67 20
  check "Acro #5", 26, 199 129 67 20
  edit "rofl", 27, 22 155 50 21, autohs
  text ">", 28, 78 159 7 15
  edit "Rolling On Floor Laughing", 29, 93 155 100 21, autohs
  check "Acro #6", 30, 199 157 67 20
  edit "bbl", 31, 22 183 50 21, autohs
  text ">", 32, 78 187 7 15
  edit "Be Back Later", 33, 93 183 100 21, autohs
  check "Acro #7", 34, 199 184 67 20
  edit "bbiab", 35, 22 210 50 21, autohs
  text ">", 36, 78 214 7 15
  edit "Be Back In A Bit", 37, 94 210 100 21, autohs
  check "Acro #8", 38, 199 211 67 20
  edit "gtg", 39, 22 237 50 21, autohs
  text ">", 40, 78 241 7 15
  edit "Got To Go", 41, 94 237 100 21, autohs
  check "Acro #9", 42, 199 238 67 20
  edit "ty", 43, 22 264 50 21, autohs
  text ">", 44, 78 267 7 15
  edit "Thank You", 45, 94 264 100 21, autohs
  check "Acro #10", 46, 199 265 66 20
  edit "stfu", 47, 23 290 50 21, autohs
  text ">", 48, 78 293 7 15
  edit "Shut The Fuck Up", 49, 94 290 100 21, autohs
  check "Acro #11", 50, 199 290 66 20
  edit "wtf", 51, 23 316 50 21, autohs
  text ">", 52, 78 319 7 15
  edit "What The Fuck", 53, 94 316 100 21, autohs
  check "Acro #12", 54, 199 317 67 20
  edit "wth", 55, 23 343 50 21, autohs
  text ">", 56, 78 345 7 15
  edit "What The Hell", 57, 94 343 100 21, autohs
  check "Acro #13", 58, 199 342 67 20

}
on *:dialog:Acronym:*:*:{
  if ($devent == init) {
    if (%acro1 == on) { did -c $dname 21 }
    if (%acro2 == on) { did -c $dname 23 }
    if (%acro3 == on) { did -c $dname 24 }
    if (%acro4 == on) { did -c $dname 25 }
    if (%acro5 == on) { did -c $dname 26 }
    if (%acro6 == on) { did -c $dname 30 }
    if (%acro7 == on) { did -c $dname 34 }
    if (%acro8 == on) { did -c $dname 38 }
    if (%acro9 == on) { did -c $dname 42 }
    if (%acro10 == on) { did -c $dname 46 }
    if (%acro11 == on) { did -c $dname 50 }
    if (%acro12 == on) { did -c $dname 54 }
    if (%acro13 == on) { did -c $dname 58 }
    if (%acro14 == on) { did -c $dname 62 }
    if (%acrorand == on) { did -c $dname 22 }
    did -ra $dname 6 %acroname1.a
    did -ra $dname 8 %acroname1.b
    did -ra $dname 9 %acroname2.a
    did -ra $dname 11 %acroname2.b
    did -ra $dname 12 %acroname3.a
    did -ra $dname 14 %acroname3.b
    did -ra $dname 15 %acroname4.a
    did -ra $dname 17 %acroname4.b
    did -ra $dname 18 %acroname5.a
    did -ra $dname 20 %acroname5.b
    did -ra $dname 27 %acroname6.a
    did -ra $dname 29 %acroname6.b
    did -ra $dname 31 %acroname7.a
    did -ra $dname 33 %acroname7.b
    did -ra $dname 35 %acroname8.a
    did -ra $dname 37 %acroname8.b
    did -ra $dname 39 %acroname9.a
    did -ra $dname 41 %acroname9.b
    did -ra $dname 43 %acroname10.a
    did -ra $dname 45 %acroname10.b
    did -ra $dname 47 %acroname11.a
    did -ra $dname 49 %acroname11.b
    did -ra $dname 51 %acroname12.a
    did -ra $dname 53 %acroname12.b
    did -ra $dname 55 %acroname13.a
    did -ra $dname 57 %acroname13.b

  }
  if ($did == 4) {
    if ($devent == sclick) {
      if ($did($dname,21).state == 1) { set %acro1 on } | else { set %acro1 off }
      if ($did($dname,23).state == 1) { set %acro2 on } | else { set %acro2 off }
      if ($did($dname,24).state == 1) { set %acro3 on } | else { set %acro3 off }
      if ($did($dname,25).state == 1) { set %acro4 on } | else { set %acro4 off }
      if ($did($dname,26).state == 1) { set %acro5 on } | else { set %acro5 off }
      if ($did($dname,30).state == 1) { set %acro6 on } | else { set %acro6 off }
      if ($did($dname,34).state == 1) { set %acro7 on } | else { set %acro7 off }
      if ($did($dname,38).state == 1) { set %acro8 on } | else { set %acro8 off }
      if ($did($dname,42).state == 1) { set %acro9 on } | else { set %acro9 off }
      if ($did($dname,46).state == 1) { set %acro10 on } | else { set %acro10 off }
      if ($did($dname,50).state == 1) { set %acro11 on } | else { set %acro11 off }
      if ($did($dname,54).state == 1) { set %acro12 on } | else { set %acro12 off }
      if ($did($dname,58).state == 1) { set %acro13 on } | else { set %acro13 off }
      if ($did($dname,22).state == 1) { set %acrorand on } | else { set %acrorand off }
      set %acroname1.a $iif($did($dname,6).text == $null,lol,$did($dname,6).text)
      set %acroname1.b $iif($did($dname,8).text == $null,Laughs Out Loud,$did($dname,8).text)
      set %acroname2.a $iif($did($dname,9).text == $null,brb,$did($dname,9).text)
      set %acroname2.b $iif($did($dname,11).text == $null,Be Right Back,$did($dname,11).text)
      set %acroname3.a $iif($did($dname,12).text == $null,wb,$did($dname,12).text)
      set %acroname3.b $iif($did($dname,14).text == $null,Welcome Back,$did($dname,14).text)
      set %acroname4.a $iif($did($dname,15).text == $null,rofl,$did($dname,15).text)
      set %acroname4.b $iif($did($dname,17).text == $null,Rolling On Floor Laughing,$did($dname,17).text)
      set %acroname5.a $iif($did($dname,18).text == $null,bbl,$did($dname,18).text)
      set %acroname5.b $iif($did($dname,20).text == $null,Be Back Later,$did($dname,20).text)
      set %acroname6.a $iif($did($dname,27).text == $null,rofl,$did($dname,27).text)
      set %acroname6.b $iif($did($dname,29).text == $null,Rolling On Floor Laughing,$did($dname,29).text)
      set %acroname7.a $iif($did($dname,31).text == $null,bbl,$did($dname,31).text)
      set %acroname7.b $iif($did($dname,33).text == $null,Be Back Later,$did($dname,33).text)
      set %acroname8.a $iif($did($dname,35).text == $null,bbiab,$did($dname,35).text)
      set %acroname8.b $iif($did($dname,37).text == $null,Be Back In A Bit,$did($dname,37).text)
      set %acroname9.a $iif($did($dname,39).text == $null,gtg,$did($dname,39).text)
      set %acroname9.b $iif($did($dname,41).text == $null,Got To Go,$did($dname,41).text)
      set %acroname10.a $iif($did($dname,43).text == $null,ty,$did($dname,43).text)
      set %acroname10.b $iif($did($dname,45).text == $null,Thank You,$did($dname,45).text)
      set %acroname11.a $iif($did($dname,47).text == $null,stfu,$did($dname,47).text)
      set %acroname11.b $iif($did($dname,49).text == $null,Shut The Fuck Up,$did($dname,49).text)
      set %acroname12.a $iif($did($dname,51).text == $null,wtf,$did($dname,51).text)
      set %acroname12.b $iif($did($dname,53).text == $null,What The Fuck,$did($dname,53).text)
      set %acroname13.a $iif($did($dname,55).text == $null,wth,$did($dname,55).text)
      set %acroname13.b $iif($did($dname,57).text == $null,What The Hell,$did($dname,57).text)

    }
  }
}
on *:INPUT:*:{
  if (%acrorand == off) {
    if ($left($1,1) != /) { 
      var %acros = $1-
      :start
      if (($istok(%acros,%acroname1.a,32)) && (%acro1 == on)) { %acros = $reptok(%acros,%acroname1.a,%acroname1.b,32) | goto start }
      if (($istok(%acros,%acroname2.a,32)) && (%acro2 == on)) { %acros = $reptok(%acros,%acroname2.a,%acroname2.b,32) | goto start }
      if (($istok(%acros,%acroname3.a,32)) && (%acro3 == on)) { %acros = $reptok(%acros,%acroname3.a,%acroname3.b,32) | goto start }
      if (($istok(%acros,%acroname4.a,32)) && (%acro4 == on)) { %acros = $reptok(%acros,%acroname4.a,%acroname4.b,32) | goto start }
      if (($istok(%acros,%acroname5.a,32)) && (%acro5 == on)) { %acros = $reptok(%acros,%acroname5.a,%acroname5.b,32) | goto start }
      if (($istok(%acros,%acroname6.a,32)) && (%acro6 == on)) { %acros = $reptok(%acros,%acroname6.a,%acroname6.b,32) | goto start }
      if (($istok(%acros,%acroname7.a,32)) && (%acro7 == on)) { %acros = $reptok(%acros,%acroname7.a,%acroname7.b,32) | goto start }
      if (($istok(%acros,%acroname8.a,32)) && (%acro8 == on)) { %acros = $reptok(%acros,%acroname8.a,%acroname8.b,32) | goto start }
      if (($istok(%acros,%acroname9.a,32)) && (%acro9 == on)) { %acros = $reptok(%acros,%acroname9.a,%acroname9.b,32) | goto start }
      if (($istok(%acros,%acroname10.a,32)) && (%acro10 == on)) { %acros = $reptok(%acros,%acroname10.a,%acroname10.b,32) | goto start }
      if (($istok(%acros,%acroname11.a,32)) && (%acro11 == on)) { %acros = $reptok(%acros,%acroname11.a,%acroname11.b,32) | goto start }
      if (($istok(%acros,%acroname12.a,32)) && (%acro12 == on)) { %acros = $reptok(%acros,%acroname12.a,%acroname12.b,32) | goto start }
      if (($istok(%acros,%acroname13.a,32)) && (%acro13 == on)) { %acros = $reptok(%acros,%acroname13.a,%acroname13.b,32) | goto start }

      msg $active %acros | halt
    }
  }
  else {
    if ($left($1,1) != /) {
      var %acros = $1-
      :start
      if (($istok(%acros,%acroname1.a,32)) && (%acro1 == on)) { %acros = $reptok(%acros,%acroname1.a,%acroname1.b,32) | goto start }
      if (($istok(%acros,%acroname2.a,32)) && (%acro2 == on)) { %acros = $reptok(%acros,%acroname2.a,%acroname2.b,32) | goto start }
      if (($istok(%acros,%acroname3.a,32)) && (%acro3 == on)) { %acros = $reptok(%acros,%acroname3.a,%acroname3.b,32) | goto start }
      if (($istok(%acros,%acroname4.a,32)) && (%acro4 == on)) { %acros = $reptok(%acros,%acroname4.a,%acroname4.b,32) | goto start }
      if (($istok(%acros,%acroname5.a,32)) && (%acro5 == on)) { %acros = $reptok(%acros,%acroname5.a,%acroname5.b,32) | goto start }
      if (($istok(%acros,%acroname6.a,32)) && (%acro6 == on)) { %acros = $reptok(%acros,%acroname6.a,%acroname6.b,32) | goto start }
      if (($istok(%acros,%acroname7.a,32)) && (%acro7 == on)) { %acros = $reptok(%acros,%acroname7.a,%acroname7.b,32) | goto start }
      if (($istok(%acros,%acroname8.a,32)) && (%acro8 == on)) { %acros = $reptok(%acros,%acroname8.a,%acroname8.b,32) | goto start }
      if (($istok(%acros,%acroname9.a,32)) && (%acro9 == on)) { %acros = $reptok(%acros,%acroname9.a,%acroname9.b,32) | goto start }
      if (($istok(%acros,%acroname10.a,32)) && (%acro10 == on)) { %acros = $reptok(%acros,%acroname10.a,%acroname10.b,32) | goto start }
      if (($istok(%acros,%acroname11.a,32)) && (%acro11 == on)) { %acros = $reptok(%acros,%acroname11.a,%acroname11.b,32) | goto start }
      if (($istok(%acros,%acroname12.a,32)) && (%acro12 == on)) { %acros = $reptok(%acros,%acroname12.a,%acroname12.b,32) | goto start }      
      if (($istok(%acros,%acroname13.a,32)) && (%acro13 == on)) { %acros = $reptok(%acros,%acroname13.a,%acroname13.b,32) | goto start }
      if ((%acroname1.b isin %acros) || (%acroname2.b isin %acros) || (%acroname3.b isin %acros) || (%acroname4.b isin %acros) || (%acroname5.b isin %acros) || (%acroname6.b isin %acros) || (%acroname7.b isin %acros) || (%acroname8.b isin %acros) ||  (%acroname9.b isin %acros) ||  (%acroname10.b isin %acros) || (%acroname11.b isin %acros) || (%acroname12.b isin %acros) || (%acroname13.b isin %acros)) {  
        msg $active  $+ $rand(3,15) $+ %acros $+  | haltdef
      }
    }
  }
}

Comments

Sign in to comment.
Shadow_Knight   -  Oct 01, 2004

This is a really great snippet..even though the on *:INPUT works for me..great job!

 Respond  
Slippery   -  Aug 28, 2004

Works great for me! I\'ll put this to use, Thanks!

 Respond  
Shadow_Knight   -  Aug 22, 2004

works great for me :D

 Respond  
j0k3r   -  Jun 21, 2004

This is possibly the most worstly coded snippet I have ever seen.

 Respond  
ShowstoppeR   -  Jun 19, 2004

it hangs me up on my mirc nooooooooooooooo

 Respond  
ShowstoppeR   -  Jun 19, 2004

it han

 Respond  
SeiferAlmasy   -  Jun 17, 2004

thats like a 10 minute code why bother ;/

 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.