Pwnisher3's color talker dialog

By pwnisher3 on Dec 21, 2008

just load into remotes.

i got

 on *:INPUT:*: { 
  if ($istok(/ ,$left($1,1),32)) || ($ctrlenter) || ($inpaste) return
  elseif ($istok(NickServ ChanServ HostServ BotServ HelpServ OperServ,$target,32)) return
  elseif ($istok(off talkerat $null,%ctklr,32)) return
  else say %ctklr $+ $1-
  haltdef
}

http://www.hawkee.com/snippet/4522/

because i could not get my on :input::{ to work right. it would mess up and i would not be able to do any alias. and i was to tired to fix it at the time i made the snippet. i will try to replace that with my OWN script soon.

the rest i did %100 on my own and by hand -_-

now i have added a disable button. and a few other updates.

dialog ctalker {
  title "-=Pwnisher3's Color Talker=-"
  size -1 -1 140 62
  option dbu
  text "Color Talker Made By Pwnisher3. the combo box on the right is your Main text color, the combo box on the left is for your Background color. ", 1, 2 2 135 21, center
  button "Set Color Talker", 2, 2 38 135 10
  check "Bold", 3, 4 50 22 10
  check "Underline", 4, 31 50 33 10
  combo 5, 69 50 25 125, size drop
  text ",", 6, 97 51 13 8, center
  combo 7, 112 50 25 125, size drop
  button "Disable All Colors", 8, 2 26 135 10
}
on *:dialog:ctalker:sclick:8:{
  set %ctklr $chr(3) $+ 01,00
}
on *:dialog:ctalker:sclick:2:{
  set %ctklr %bold $+ %underline $+  $+ %ctklr1 $+ %comma $+ %ctklr2
  dialog -x ctalker ctalker
}
on *:dialog:ctalker:sclick:3:{
  if (did == 3) {
    if (!$did(3) set %bold  ) 
  }
  else {
    set %bold $chr(2)
  }
}
on *:dialog:ctalker:sclick:4:{
  if (did == 4) {
    if (!$did(4) set %underline  ) 
  }
  else {
    set %underline $chr(31)
  }
}  
on *:dialog:ctalker:sclick:*:{
  if (did == 5) {
    if (!$did(5)) 
  }
  else {
    set %ctklr1 $did(5)
    set %comma ,
  }
  if (did == 7) {
    if (!$did(7)) 
  }
  else {
    set %ctklr2 $did(7)
  }
}  
on *:dialog:ctalker:init:*:{
  did -ca ctalker 7 00
  did -a ctalker 5 00
  did -ca ctalker 5 01
  did -a ctalker 7 01
  didtok $dname 5,7 44 02,03,04,05,06,07,08,09,10,11,12,13,14,15
}
on *:INPUT:*: { 
  if ($istok(/ ,$left($1,1),32)) || ($ctrlenter) || ($inpaste) return
  elseif ($istok(NickServ ChanServ HostServ BotServ HelpServ OperServ,$target,32)) return
  elseif ($istok(off talkerat $null,%ctklr,32)) return
  else say %ctklr $+ $1-
  haltdef
}
menu * {
  .Color Talker: dialog -m ctalker ctalker
}

Like Page Follow Author

Comments

`Green - Oct 18, 2009

how is it confusing? you just put what colors you want and then press one button. its not hard

Respond

fire_wizard1 - Dec 31, 2008

ok i perffer tanks color talker, its less confusing >.<

Respond

fire_wizard1 - Dec 31, 2008

i might test this script out

Respond

pwnisher3 - Dec 22, 2008

your welcome Aucun50. and good for you scakk

Respond

Aucun50 - Dec 22, 2008

Thanks for the update pwnisher3.

Respond

Scakk - Dec 21, 2008

Tinkered with your code a bit and came up with the below which does the same as yours with less script.

menu * {
  .Color Talker: dialog $iif(!$dialog(ctalker),-m,-va) ctalker ctalker
}
dialog ctalker {
  title "-=Pwnisher3's Color Talker=-"
  size -1 -1 140 62
  option dbu
  text "Color Talker Made By Pwnisher3. the combo box on the right is your Main text color, the combo box on the left is for your Background color. ", 1, 2 2 135 21, center
  button "Set Color Talker", 2, 2 38 135 10
  check "Bold", 3, 4 50 22 10
  check "Underline", 4, 31 50 33 10
  combo 5, 69 50 25 125, size drop
  text ",", 6, 97 51 13 8, center
  combo 7, 112 50 25 125, size drop
  button "Disable All Colors", 8, 2 26 135 10
}
on *:dialog:ctalker:sclick:8:{ unset %ctklr }
on *:dialog:ctalker:sclick:2:{
  set %ctklr $+($iif($did(3).state == 1,$chr(2)),$iif($did(4).state == 1,$chr(31)),$+($chr(3),$did(5),$chr(44),$did(7)))
  dialog -x ctalker ctalker
}
on *:dialog:ctalker:init:*:{
  unset %ctklr
  did -ca ctalker 7 00
  did -a ctalker 5 00
  did -ca ctalker 5 01
  did -a ctalker 7 01
  didtok $dname 5,7 44 02,03,04,05,06,07,08,09,10,11,12,13,14,15
}
on *:INPUT:*: { 
  if ($istok(/ ,$left($1,1),32)) || ($ctrlenter) || ($inpaste) return
  elseif ($istok(NickServ ChanServ HostServ BotServ HelpServ OperServ,$target,32)) return
  elseif ($istok(off talkerat $null,%ctklr,32)) return
  else say %ctklr $+ $1-
  haltdef
}

Respond

pwnisher3 - Dec 21, 2008

i added the disable button for Aucun50.

Respond

pwnisher3 - Dec 21, 2008

i updated it a lil. :P

Respond

pwnisher3 - Dec 21, 2008

to set it back to default all you do is reopen it and close it. and i will take a look at that gummo thanks for pointing that out

Respond

Aucun50 - Dec 21, 2008

This beats my Color Text (All colors) lol, tested it and it works fine.

One thing you should add is a set back to default option.

Respond

Gummo - Dec 21, 2008

The background colour should have two digits to prevent colour failure if your text starts with a number.
Background should also have the 99 colour option to have no background. :P

Respond

pwnisher3 - Dec 21, 2008

lol i like it a lot more than most of the other peoples. tank59's is really good though. i will up dat it once i learn several things.

Respond

Blitzjager - Dec 21, 2008

Haven't and probably wont test it but it looks much better than your other one

Respond

Gummo - Dec 21, 2008

on *:input:*:{
  msg $chan %ctklr $+ $1-
  haltdef
}

Apart from the fact that you aren't always in a channel when you send a message to someone (You can use $target instead of $chan), this script will message the channel any /commands you use.

Respond