menu * {
  -
  mIRC Yazı Rengi
  .mIRC Yazı Rengi ON: set %yazitipirenk 00,01 | beep 3 | echo $active %yazitipirenk 00,01 *** Yazı Rengi ON
  .mIRC Yazı Rengi Off: unset %yazitipirenk* | beep 3 | echo $active 4*** Yazı Rengi off
  .mIRC Yazı Rengi
  ..Beyaz: set %yazitipirenk 05 | beep 3 | echo $active 00 *** Beyaz Yazı Rengi Aktif
  ..Siyah: set %yazitipirenk 05 | beep 3 | echo $active 01 *** Siyah Yazı Rengi Aktif
  ..Mavi: set %yazitipirenk 11 | beep 3 | echo $active 02 *** Mavi Yazı Rengi Aktif
  ..Yeşil: set %yazitipirenk 02 | beep 3 | echo $active 03 ***  Yeşil Yazı Rengi Aktif
  ..Kırmızı: set %yazitipirenk 12 | beep 3 | echo $active 04 *** Kırmızı Yazı Rengi Aktif
  ..Koyu Kırmızı: set %yazitipirenk 14 | beep 3 | echo $active 05 *** Koyu Kırmızı Yazı Rengi Aktif
  ..Mor: set %yazitipirenk 01 | beep 3 | echo $active 06 *** Mor Yazı Rengi Aktif
  ..Turuncu: set %yazitipirenk 03 | beep 3 | echo $active 07 *** Turuncu Yazı Rengi Aktif
  ..Sarı set %yazitipirenk 04 | beep 3 | echo $active 08 *** Sarı Yazı Rengi Aktif
  ..Açık Yeşil: set %yazitipirenk 06 | beep 3 | echo $active 09 *** Açık Yeşil Yazı Rengi Aktif
  ..Buz Mavisi: set %yazitipirenk 07 | beep 3 | echo $active 10 *** Buz Mavisi Yazı Rengi Aktif
  ..Turkuaz: set %yazitipirenk 08 | beep 3 | echo $active 11 *** Turkuaz Yazı Rengi Aktif
  ..Denizi Mavisi: set %yazitipirenk 09 | beep 3 | echo $active 12 *** Deniz Mavisi Yazı Rengi Aktif
  ..Pembe: set %yazitipirenk 10 | beep 3 | echo $active 13 *** Pembe Yazı Rengi Aktif
  ..Koyu Gri: set %yazitipirenk 13 | beep 3 | echo $active 14 *** Koyu Gri Yazı Rengi Aktif
  ..Gri: set %yazitipirenk 13 | beep 3 | echo $active 13 *** Gri Yazı Rengi Aktif
  .mIRC Yazı Rengi2
  ..Siyah - Kırmızı: set %yazitipirenk 01,04 | beep 3 | echo $active 01,04 *** Kırmızı - Siyah   Yazı Rengi Aktif
  ..Kırmızı - Siyah: set %yazitipirenk 04,01 | beep 3 | echo $active 04,01 *** Kırmızı - Siyah   Yazı Rengi Aktif
  ..Mavi - Siyah: set %yazitipirenk 11,01 | beep 3 | echo $active 11,01 *** Mavi - Siyah   Yazı Rengi Aktif
  ..Kahverengi - Sarı: set %yazitipirenk 05,08 | beep 3 | echo $active 05,08 *** Kahverengi - Sarı   Yazı Rengi Aktif
  ..Sarı - Kahverengi: set %yazitipirenk 08,05 | beep 3 | echo $active 08,05 *** Sarı - Koyu Kırmızı   Yazı Rengi Aktif
  ..Sarı - Siyah: set %yazitipirenk 08,01 | beep 3 | echo $active 08,01 *** Sarı - Siyah   Yazı Rengi Aktif
  ..Siyah - Sarı: set %yazitipirenk 01,08 | beep 3 | echo $active 01,08 *** Siyah - Sarı   Yazı Rengi Aktif
  ..Sarı - Kırmızı: set %yazitipirenk 08,04 | beep 3 | echo $active 08,04 *** Sarı - Kırmızı   Yazı Rengi Aktif
  ..Kırmızı - Sarı: set %yazitipirenk 04,08 | beep 3 | echo $active 04,08 *** Kırmızı - Sarı   Yazı Rengi Aktif
  ..Beyaz - Siyah: set %yazitipirenk 00,01 | beep 3 | echo $active 00,01 *** Beyaz - Siyah   Yazı Rengi Aktif
  ..Sarı - Mavi: set %yazitipirenk 08,02 | beep 3 | echo $active 08,02 *** Sarı - Mavi   Yazı Rengi Aktif
  ..Mavi - Sarı: set %yazitipirenk 02,08 | beep 3 | echo $active 02,08 *** Sarı - Mavi   Yazı Rengi Aktif
  ..Açık Mavi - Koyu Mavi: set %yazitipirenk 11,02 | beep 3 | echo $active 11,02 *** Açık  Mavi - Koyu Mavi   Yazı Rengi Aktif
  ..Koyu Mavi - Açık Mavi: set %yazitipirenk 02,11 | beep 3 | echo $active 02,11 *** Koyu Mavi - Açık Mavi   Yazı Rengi Aktif
  ..Açık Mavi - Koyu Mavi2: set %yazitipirenk 11,12 | beep 3 | echo $active 11,12 *** Açık Mavi - Koyu Mavi2   Yazı Rengi Aktif
  ..Koyu Mavi2 - Açık Mavi: set %yazitipirenk 12,11 | beep 3 | echo $active 12,11 *** Koyu Mavi2 - Açık Mavi   Yazı Rengi Aktif
  -
}
on *:INPUT:*: { 
  if ($left($1,1) == /) || ($ctrlenter) || ($inpaste) return
  else say %yazitipirenk $+ $1-
  haltdef
}