HTML-Kodu

menu menubar { 
  - 
  Nick Uyari Menüsü:/uyar 
  - 
} 

alias uyar { .dialog -m uyar uyar } 

dialog uyar { 
  title "Nick uyarı menüsü ayarları by kralaz" 
  size -1 -1 145 144 
  option dbu 
  edit "", 2, 10 15 60 10, return autohs 
  list 3, 10 28 60 68, sort size 
  button "Ekle", 4, 78 15 33 10 
  button "SiL", 5, 78 28 33 10 
  check "Uyarıyı Aç/Kapat", 10, 78 60 60 10 
  check "Flash Aç/Kapat", 13, 78 72 60 10 
  check "Yesil isik Aç/Kapat", 14, 78 84 60 10 
  box "Muaf Nick Listesi", 9, 6 4 134 110 
  text " Eklenen nick size seslenince uyarı vermeyecektir", 11, 6 120 134 8 
  button "Tamam", 12, 6 132 134 10, ok 
  check "Ses Çal Aç/Kapat", 6, 78 48 60 10 
  edit "", 7, 10 100 20 10, return autohs 
  Text "Ctrl + Kod Kullanarak nick satırına Renk ver", 8, 34 101 104 8 
} 

on *:dialog:uyar:*:*:{ 
  if ($devent == edit) { 
    if ($did == 7) { set %renks $did(7) } 
  } 
  if ($devent == sclick) { 
    if ($did($dname,10).state == 1) { set %nuyar 1 } | else { set %nuyar 0 } 
    if ($did($dname,13).state == 1) { set %fuyar 1 } | else { set %fuyar 0 } 
    if ($did($dname,14).state == 1) { set %yiuyar 1 } | else { set %yiuyar 0 } 
    if ($did($dname,6).state == 1) { set %suyar 1 } | else { set %suyar 0 } 
    if ($did == 4) { 
      if ($did(uyar,2) != $null) { 
        .did -a uyar 3 $did(uyar,2) 
        .auser sus $did(uyar,2) 
        .did -r uyar 2 
      } 
    } 
    if ($did == 5) { 
      if ($did(uyar,3).seltext != $null) { 
        .ruser sus $did(uyar,3).seltext 
        .did -d uyar 3 $did(uyar,3).sel 
      } 
    } 
  } 
  if ($devent == init) { 
    if (%nuyar == 1) { did -c uyar 10 } 
    if (%fuyar == 1) { did -c uyar 13 } 
    if (%yiuyar == 1) { did -c uyar 14 } 
    if (%suyar == 1) { did -c uyar 6 } 
    if (%renks) { did -ra $dname 7 %renks } 
    if ($ulist(*,sus,0) > 0) { 
      var %i 1 
      while %i <= $ulist(*,sus,0) { 
        .did -a uyar 3 $ulist(*,sus,%i) 
        inc %i  
      } 
    } 
  } 
} 

alias show_bubble {
  var %title = $1, %sub = $2, %msg = $3-
  if ($window(@Bubble)) { window -c @Bubble }
  window -p -d -B -t1,1 +e @Bubble -1 -1 260 65
  background @Bubble 1
  color @Bubble 1 1
  echo @Bubble 4,1[ NICK UYARISI ] 12 %title
  echo @Bubble 14Alan: %sub
  echo @Bubble 15Mesaj: %msg
  .timerBubble 1 4 window -c @Bubble
}

on ^*:TEXT:$(* $+ $me $+ *):#:{  
  if (%nuyar == 1) { 
    if ($ulist($nick,sus,0) >= 1) { return } 
    if ($active != $chan) { 
      echo -a -----------------------------------------------------------------------------
      echo -a  4,1<15,1 $timestamp 4,1> 12 $chan  Kanalında 12 $nick  senden bahsediyor. 12Yazdığı mesaj:1 " $+ $1- $+ " 
      echo -a ----------------------------------------------------------------------------- 
      echo $chan $timestamp 14< $+ $nick $+ > %renks $1- 
      if (!$window [MENTION=4264]Whois[/MENTION])) { window -n [MENTION=4264]Whois[/MENTION] }
      echo [MENTION=4264]Whois[/MENTION] 4,1<15,1 $timestamp 4,1> 12 $chan  Kanalında 12 $nick  senden bahsediyor. 12Yazdığı mesaj:1 " $+ $1- $+ " 
      show_bubble $nick Kanal: $chan, $1-
      haltdef 
    }  
    if (%suyar == 1) { } 
    if (%fuyar == 1) { flash } 
    if (%yiuyar == 1) { window -g2 # } 
  } 
} 

on *:TEXT:$(* $+ $me $+ *):?:{  
  if (%nuyar == 1) { 
    if ($ulist($nick,sus,0) >= 1) { return } 
    if ($active != $nick) { 
      echo -a 4,1<15,1 $timestamp 4,1> 12 $nick 1 Özelde senden bahsediyor. 12Yazdığı mesaj:1 " $+ $1- $+ " 
      if (!$window [MENTION=4264]Whois[/MENTION])) { window -n [MENTION=4264]Whois[/MENTION] }
      echo [MENTION=4264]Whois[/MENTION] 4,1<15,1 $timestamp 4,1> 1Özelinizde 12 $nick  senden bahsediyor. 12Yazdığı mesaj:1 " $+ $1- $+ "  
      show_bubble $nick Özel Mesaj, $1-
    }  
  } 
  if (%fuyar == 1) { 
    if ($ulist($nick,sus,0) == 0) { flash } 
  } 
}