/*Herhangi Bi oynama Yapmadım Cünkü İlk titreşim Bu arkadasLar cıkardıLar..
;EMege Saygı...
;Coder OzeL
################################################
Code derleme : TekniK
Desk.DLL v0.1 Beta : SeRDaR406
Fikir emmisi : CoCoRiCo
Teşekkür	: Cappystarj0e  
Versiyon 	: 2.0 Beta
==========================================
Bu versionda neler var?:

-Titreşim almak isteyip istemediğinizi ayarlayabilirsiniz.

-Titreşim aldığınızda çalmasını istediğiniz bir ses dosyası seçebilirsiniz.

-Bir önceki versionda, titreşim alınan pencere ilk posizyon değerlerine 

dönmüyordu.Titreşim alındıktan sonra tam ekran durumuna geçiyordu.

Bu versionda bu sorun kısmen çözüldü.(Yakında bu sorunda çözülecek.)

Şimdilik Bu kadar......
===========================================
v2.0'da neler var:

-Flood yapılmaması için önlemler

-gıprasım (: sekli (yuvarlama,saga sola,yukarı asagı)

-kardısakinde varmı yokmu kontrolü (kısmen bu versiyonda var)

-sunucu yasaklarına karsı önlenler (ctcp ler için)
#################################################
*/
dialog gıprasım {
  title "mIRC Titreşim Ayarları"
  size -1 -1 118 72
  option dbu
  icon $shortfn($mircexe), 0
  box "AYARLAR", 1, 2 1 114 57
  text "Bir dosya seçin(Uzantısı wav olmalıdır)", 2, 5 11 90 8
  edit "", 3, 4 19 80 10, read autohs
  button "Seç", 4, 85 19 14 10
  button "Çal", 5, 100 19 14 10, disable
  check "Titreşim alındığında ses dosyasını çal", 6, 5 31 97 10
  check "Titreşim almak istemiyorum", 7, 5 44 74 10
  button "Uygula", 8, 2 59 52 12, ok
  button "Kapat", 9, 59 59 56 12, cancel
}
alias gıprasım { if (!$dialog(gıprasım)) dialog -m gıprasım gıprasım }
on *:dialog:gıprasım:init:*: {
  if (%soundf != $null) { 
    did -a $dname 3 %soundf 
    did -e $dname 5
    if (!%soundc) set %soundc kapali 
    if (!%qıprasım) set %qıprasım kapali
    if (%soundc == acik) did -c $dname 6 
    if (%qıprasım == acik) did -c $dname 7
  } 
}
on *:dialog:gıprasım:sclick:*: {
  if ($did == 4) {
    var %file = $sfile($mircdir,Dosya Seç)
    if ((%file != $null) && ($gettok(%file,-1,46) == wav)) { set %soundf %file | did -e $dname 5 | did -ra $dname 3 %file }
  }
  if ($did == 5) splay $shortfn(%soundf)
  if ($did == 8) { 
    if ($did(6).state == 0) set %soundc kapali
    else set %soundc acik
    if ($did(7).state == 0) set %qıprasım kapali
    else set %qıprasım acik
  }
}
alias -l titret {
  if (!$window(%wtwin) == $null) {
    %x = $calc(%x - 10) | %y = $calc(%y + 8)
    if (%x == $calc(%x2 - 10)) { 
      set %x $calc($window(%wtwin ).x + 10) | set %y $calc($window(%wtwin ).y - 8) 
      window %wtwin %x %y  | %i = $calc(%i + 1)
      if (%i == 14) { 
        .timertitret off  | dll $shortfn($scriptdirdesk.dll) cikar $window(%wtwin).hWnd > %x2 > %y2 
        unset %x %x2 %y %i %wtwin       
      }
    } 
    $iif(%wtwin,window  %wtwin %x %y)
  }
  else { .timertitret off }
}
CTCP ^*:*vibr*:?: {
  if (!$2) && (vibracocoser == $1) {
    query $nick | .ctcp $nick vibra_OK 
    showmirc -a | window -a $nick | .gıprash
  }
  if (vibra_OK == $1) { .window -a $nick }
  halt 
}
alias -l gıprash {
  if (!%qıprasım) set %qıprasım kapali
  if (($window($active).type == query) && (%qıprasım == kapali)) {
    set %wtwin $window($active) | set %x $window(%wtwin).x 
    set %x2 $window(%wtwin).x | set %y $window(%wtwin).y 
    set %y2 $window(%wtwin).y 
    set %i 0 | dll $shortfn($scriptdirdesk.dll)  ekle $window(%wtwin).hWnd > %x > %y 
    .timertitret 0 0 titret 
    echo -t $nick 5 ****4 $nick tarafından titresim aldınız...
    if ((%soundc == acik) && ($isfile($shortfn(%soundf)) == $true)) splay $shortfn(%soundf)
  }
}
menu query {
  1 $chr(11) Titreşim
  .1 $chr(11) Titreşim Yolla : { if ($active != $me) { .ctcp $active vibracocoser | echo *** 4 $active Nick'ine titresim gönderdiniz... } }
  .1 $chr(11) Ayarlar : gıprasım
}
on *:load: {
  if ($isfile($shortfn($scriptdirdesk.dll)) == $false) { echo -a Desk.DLL Bulunamadı.Bu dosyayı " $+ $scriptdir $+ " adlı yere kopyalayın.Addonu tekrar yükleyin. | .unload -rs $shortfn($script) }
  else { echo -a mIRC Titresim v2.0 Beta BY TekniK }
}
on *:unload: {
  unset %soundf %soundc %qıprasım
  echo -a mIRC Titresim v2.0 Beta kaldırıldı...
}
