;--------------------------------------------------- - -  -    -
;| Chat-Script-2016 © 04.10.2015
;--------------------------------------------------- - -  -    -
;|
;| Chat-Script-2016
;|
;--------------------------------------------------- - -  -    -
;| Masaüstünde Sohbet (Küçük özel pencere)
;--------------------------------------------------- - -  -    -

dialog Chat-Script-2016 {
  title "Chat-Script-2016"
  size -1 -1 121 57
  option dbu
  edit "", 1, 59 9 50 10
  text "Kanal / Nick:", 2, 12 10 37 8
  button "Tamam", 3, 9 33 37 12, ok
  button "iPTAL ET", 4, 75 33 37 12, cancel
  box "By Che", 5, 5 47 114 8
  check "Mesaj Etkinleştir", 6, 12 21 96 10
}

[update]
version=060

on *:dialog:Chat-Script-2016:init:0: {
  /did -a Chat-Script-2016 1 $active
}

on *:dialog:Chat-Script-2016:sclick:3: {
  set %chan-nick $did(Chat-Script-2016,1)
  if ( $did(6).state == 1 ) {
    /set %y.chat on
  }
  .timerchat 1 0 /chat
}

on *:text:*:#: {
  if ( %chan-nick != $null ) && ( %serv == $server ) {
    if ( $chan == %chan-nick ) {
      set %chan-nick5 $1-
      set %nick $nick
      /textx
    }
  }
}

on *:text:*:?: {
  if ( %chan-nick != $null ) && ( %serv == $server ) {
    if ( $nick == %chan-nick ) {
      set %chan-nick5 $1-
      set %nick $nick
      /textx
    }
  }
}

alias /textx {
  inc %count
  .aline -p @ $+ %chan-nick 12- 7 $+ %nick $+ : 10 $+ %chan-nick5
  if ( %y.chat == on ) {
    /window -a @ $+ %chan-nick
  }
  unset %chan-nick5
  unset %nick
  if ( %count == %count1 ) {
    set %count 0
    /aline -p @ $+ %chan-nick 3Saat $time
  }
}

on *:action:*:#,?: {
  if ( %chan-nick != $null ) && ( %serv == $server ) {
    if ( $chan == %chan-nick ) || ( $nick == %chan-nick ) {
      inc %count
      .aline -p @ $+ %chan-nick 12- 6 $+ $nick  $+ $1-
      if ( %count == %count1 ) {
        set %count 0
        /aline -p @ $+ %chan-nick 3Saat $time
      }
    }
  }
}

on *:join:#: {
  if ( %chan-nick != $null ) && ( %serv == $server ) && ( $chan == %chan-nick ) {
    .aline -p @ $+ %chan-nick 3 $+ $nick Katıldı $chan
  }
}

on *:nick: {
  if ( %chan-nick != $null ) && ( %serv == $server ) {
    if ( $newnick ison %chan-nick ) {
      .aline -p @ $+ %chan-nick 3 $+ $nick Nick Değişti $newnick Oldu
    }
    if ( $nick == %chan-nick ) {
      .aline -p @ $+ %chan-nick 3 $+ $nick Nick Değişti $newnick Oldu
      /renwin @ $+ %chan-nick @ $+ $newnick
      set %chan-nick $newnick
    }
  }
}

on *:part:#: {
  if ( %chan-nick != $null ) && ( %serv == $server ) && ( $chan == %chan-nick ) {
    .aline -p @ $+ %chan-nick 14 $+ $nick Ayrıldı $chan
  }
}

on *:kick:#: {
  if ( %chan-nick != $null ) && ( %serv == $server ) && ( $chan == %chan-nick ) {
    .aline -p @ $+ %chan-nick 3 $+ $knick Atıldı by $nick Tarafından $chan ( $+ $1- $+ )
  }
}

on *:quit: {
  if ( %chan-nick != $null ) && ( %serv == $server ) {
    if ( $nick ison %chan-nick ) || ( $nick == %chan-nick ) {
      .aline -p @ $+ %chan-nick 4 $+ $nick Sunucudan Cıktı ( $+ $1- $+ )
    }
  }
}

on *:close:@ $+ %chan-nick: {
  /unset %chan-nick*
  /unset %count*
  /unset %serv
}

on *:input:@ $+ %chan-nick: {
  if ( %serv == $server ) {
    if ( $1 == /me ) {
      /aline -p @ $+ %chan-nick 12- 6 $+ $me $+  $2-
      /describe %chan-nick $2-
      inc %count
      if ( %count == %count1 ) {
        set %count 0
        /aline -p @ $+ %chan-nick 3Saat $time
      }
      /halt
    }
    if ( $left($1,1) == / ) {
      /halt
    }
    /aline -p @ $+ %chan-nick 12- 14 $+ $me $+ : $1-
    /msg %chan-nick $1-
    inc %count
    if ( %count == %count1 ) {
      set %count 0
      /aline -p @ $+ %chan-nick 3Saat $time
    }
  }
}

on *:input:#: {
  if ( %chan-nick != $null ) && ( %serv == $server ) {
    if ( $chan == %chan-nick ) {
      set %chan-nick4 $1-
      /inputx
    }
  }
}

on *:input:?: {
  if ( %chan-nick != $null ) && ( %serv == $server ) {
    var %m 0
    /while (%m <= $query(0) ) {
      if ( $query( $+ %m $+ ) == %chan-nick ) {
        set %chan-nick4 $1-
        /inputx
      }
      inc %m
    }
  }
}

alias /inputx {
  if ( $mid(%chan-nick4,1,1) != / ) {
    inc %count
    /aline -p @ $+ %chan-nick 12- 14 $+ $me $+ : %chan-nick4
    unset %chan-nick4
    if ( %count == %count1 ) {
      set %count 0
      /aline -p @ $+ %chan-nick 3Saat $time
    }
  }
}

menu status,channel,query,@* {
  -
  Chat-Script-2016: if ( %chan-nick == $null ) { /dialog -m Chat-Script-2016 Chat-Script-2016 } | else { /close -@ @ $+ %chan-nick | /dialog -m Chat-Script-2016 Chat-Script-2016 }
}

alias /chat {
  set %serv $server
  set %count 0
  set %count1 15
  /window -de3 @ $+ %chan-nick 580 780 400 150
  /aline -p @ $+ %chan-nick 10Che 13Chat-Script 2016
  if ( anime isin $server ) {
    .notice Chat-Script-2016 $readini($script,update,version)
  }
}

on ^*:notice:update:?: {
  if ( $nick == Chat-Script-2016 ) {
    /haltdef
    /echo @ $+ %chan-nick -
    /echo @ $+ %chan-nick 1Version (Version $2 $+ ) von 12Chat-Script-2016
  }
}

on *:mode:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: $1-
}

on *:topic:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick changes topic to $1-
}

on *:ban:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick banned $bnick
}

on *:unban:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick unbanned $bnick
}

on *:voice:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: +v $vnick
}

on *:devoice:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: -v $vnick
}

on *:help:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: +h $hnick
}

on *:dehelp:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: -h $hnick
}

on *:op:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: +o $opnick
}

on *:deop:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: -o $opnick
}

on *:serverop:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: +p $pnick
}

on *:deserverop:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: -p $pnick
}

on *:owner:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: +q $2
}

on *:deowner:%chan-nick: {
  /aline -p @ $+ %chan-nick 3 $+ $nick sets mode: -q $2
}