:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::               XcLusive Script                       :::::
:::::                 Update Code                         :::::
:::::                  By HaLiL                           :::::
:::::                 Türkiyede İlk!                      :::::
:::::              
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
                     :::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
dialog msg {
  title "Uyarı:"
  size -1 -1 181 46
  option dbu
  text "...", 1, 5 5 172 25
  button "Tamam", 2, 74 32 37 12, cancel
}
alias dmsg {
  set %dmsg $1-
  if (!$dialog(msg)) { dialog -m msg msg }
  else { dialog -v msg }
}
on *:dialog:msg:*:*:{
  if $devent == init {
    idset 2
    did -ra $dname 1 %dmsg
  }
}

alias su { update | if ($sock(update,0) == 1) { sockclose update } | sockopen update update.ahkalbim.net 80 }
on 1:sockopen:update:{
  if ($sockerr) { dmsg Güncelleme Bilgisi Alınamadı Sock Bağlanamıyor Lütfen Manuel Olarak Kontrol Ediniz (/update) | echo $color(info) -at Sock Bağlanamıyor Lütfen Tekrar Deneyin | if ($dialog(updated)) { did -ra updated 3 Sock Bağlanamıyor Lütfen Tekrar Deneyin.. } | halt }
  updmsg Update Kontrol Ediliyor..
  .sockwrite -n update GET /dosya.txt HTTP/1.1
  .sockwrite -n update Host: update.ahkalbim.net
  .sockwrite -n update $clrf
}

on 1:sockread:update:{
  sockread %temp
  if (*HTTP/* 404 Not Found* iswm %temp) { if ($dialog(updated)) { did -ra updated 3 Sock Bağlanamıyor Lütfen Tekrar Deneyin.. } | sockclose $sockname | updmsg HATA: Update Bilgisi Alınamıyor | dmsg HATA: Update Bilgisi Alınamıyor | halt }
  if (content-length isin %temp) { set %dosyab $remove($gettok(%temp,2,58),$chr(32)) }
  updates %temp
}

alias updates {
  if $1 != dosya { goto end }
  aspas $2-
  set %aspas x
  :end
  if $1 == yok { .timer 1 1 updmsg Güncellenecek Dosya Yok.. | if $dialog(updated) { did -ra updated 3 Henüz Güncellenecek Dosya Yok } }
  if $1 == the && $2 == end { updmsg Dosya Bilgisi Alındı.. | if $dialog(updated) { did -ra updated 10 Dosya Bilgisi Alındı } }
}
alias aspas {
  var %asfa dat $+ $rand(111,999)
  sockopen %asfa update.ahkalbim.net 80
  $x(sock, $+ %asfa $+ ,$1-)
  $x(update, $+ %asfa $+ ,$1-)
}
on 1:sockopen:dat*:{
  if ($sockerr) { echo $color(info) -at Sock Bağlanamıyor Lütfen Tekrar Deneyin | dmsg Sock Bağlanamıyor Lütfen Tekrar Deneyin | halt }
  sockwrite -n $sockname GET / $+ $x3(sock, $+ $sockname $+ ) HTTP/1.1
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Host: %d.host
  sockwrite $sockname $crlf
}

on 1:sockread:dat*:{ 
  sockread %sas
  if (content-length isin %sas) { set %fsiz $remove($gettok(%sas,2,58),$chr(32)) | dsy $x3(sock, $+ $sockname $+ ) | $x4(sock, $+ $sockname $+ ) }
}
on *:sockclose:*:{
  if ($remove($sockname,dat) !isnum) { goto end }
  var %socksayac $ini(xclusive.ini,sock,0)
  if ($dialog(updated) != $null) { $x4(update, $+ $sockname $+ ) }
  if (%socksayac == 0) && (%gnclm != var) { 
    updmsg Script Güncel Versiyonda
    if (!$dialog(updated)) { .timer 1 3 updmsg Ayrıntılı Bilgi İçin /update Yazın }
    if $dialog(updated) { did -ra updated 3 Script Güncel Versiyonda | did -a updated 3 Güncellenecek Dosya Yok }
    halt
  }
  if (%socksayac == 0) { if $dialog(updated) { did -ra updated 10 Dosya Listesi Alındı } }
  :end
  if ($sockname == rep) && ($dialog(updated) == $null) { .timer 1 1 dsydevam }
  if ($dialog(updated) != $null) && (%gnclm == var) { did -ra updated 9 Yükle | did -e updated 9 }
}
alias updmsg /dll systray.dll Balloon 50 3 > ..:: XcLusive Update ::.. > $1-
alias dsy {
  var %fs $findfile($mircdir, $+ $1 $+ ,0)
  var %fx 1
  while (%fx <= %fs) {
    if $file($findfile($mircdir, $+ $1 $+ ,%fx)).size != %fsiz { 
      if %asfas == 2 { if $dialog(updated) != $null) { did -r updated 3 } }
      set %asfas 3 
      if $dialog(updated) { did -a updated 3 $1 }
      set %gnclm var 
      if $dialog(updated) { did -e updated 9 }
      if (%autoupdate == on) && ($dialog(updated) == $null) { if ($sock(rep,0) == 0) { dsydevam } }
    }
    inc %fx
  }
}
alias dsydevam {
  var %baydi $ini(xclusive.ini,update,0)
  var %baydi2 $ini(xclusive.ini,update,1)
  if %baydi == 0 { updmsg Güncelleme Tamamlandi | goto end }
  var %okuini $readini(xclusive.ini,update, $+ %baydi2 $+ )
  $x4(update, $+ %baydi2 $+ )
  dl http://update.ahkalbim.net/ $+ %okuini
  updmsg %okuini Dosyası Yükleniyor...
  :end
}
alias update {
  if (!$dialog(updated)) { dialog -md updated updated }
  else { dialog -v updated }
}
dialog updated {
  title "XcLusive Script Update"
  size -1 -1 215 170
  option dbu
  icon $mircdirikon\update.ico, 0
  box "Bilgisayara Yüklenmiş Dosyalar", 1, 5 89 206 61
  box "Güncelleme İçin Bekleyen Dosyalar", 2, 5 12 206 60
  list 3, 9 19 152 50, size
  list 4, 9 96 197 50, size
  button "Bilgiler", 5, 165 19 40 13
  button "Liste AL", 6, 165 37 40 13
  button "Kapat", 8, 163 153 39 13, cancel
  button "Yükle", 9, 165 55 40 13
  text "İlerleme:", 10, 6 77 205 8, center
  button "Dosyayı Sil", 11, 108 153 45 13
  button "Dosyayı Script'e Yükle", 13, 13 153 85 13
  check "", 7, 10 2 8 10
  text "Otomatik Güncellemeyi Aktif Et", 12, 20 3 105 8
}



on 1:dialog:updated:*:*:{
  if $devent == init {
    set %gnclm yok
    idset 14
    dll $mdx SetColor $dname 7,12 text 255
    if %autoupdate == on did -c $dname 7
    var %fs $findfile($mircdirupdate,*.*,0)
    var %fx 1
    while (%fx <= %fs) {
      did -a $dname 4 $remove($findfile($mircdirupdate,*.*,%fx),$mircdirupdate\)
      inc %fx
    }
    did -b $dname 9
    bi
  }
  if $devent == sclick {
    if $did == 7 { if %autoupdate == on { set %autoupdate off | halt }
      else { set %autoupdate on }
    }
    if $did == 5 { did -r $dname 3 | bi | did -b $dname 9 }
    if $did == 6 { did -r $dname 3 | su | did -ra $dname 3 Lütfen Bekleyin... | set %asfas 2 | set %gnclm yok }
    if $did == 9 { 
      if ($did(3).seltext == $null) { did -ra $dname 10 Yüklenecek Dosyayı Seçmediniz | halt } 
      if ($sock(rep,0) == 1) { did -ra $dname 10 Script Şuanda Başka Bir Dosya Yüklüyor | halt }
      dl http://update.ahkalbim.net/ $+ $did(3).seltext
    }
    if $did == 11 { var %dsil $did(4).seltext | if (%dsil == $null) { did -ra $dname 10 Silinecek Dosyayı Seçmediniz | halt } | .remove $mircdirupdate/ $+ %dsil | dosyabul | did -ra $dname 10 %dsil Dosyası Update Klasöründen Kaldırıldı }
    if $did == 13 {
      if ($did(4).seltext == $null) { did -ra $dname 10 Yüklenecek Dosyayı Seçmediniz | halt }
      var %gnc $did(4).seltext
      var %gnca $mircdirupdate\ $+ %gnc
      var %gncd $findfile($mircdir, $+ %gnc $+ ,0)
      var %gncs 1
      while (%gncs <= %gncd) {
        var %gncx $findfile($mircdir, $+ %gnc $+ , $+ %gncs $+ )
        if (update !isin %gncx) {
          var %klasor $remove(%gncx, $+ %gnc $+ )
          .copy -o %gnca %klasor 
          did -ra $dname 10 %gnc Dosyası Başarıyla Script'e Kopyalandı
          rcheck %gnc %klasor
          acheck %gnc %klasor
        }
        inc %gncs 1
        if %gncs > %gncd { .remove %gnca | dosyabul }
      }
    }
  }
  if $devent == close {
    sockclose *
    remini xclusive.ini update
    remini xclusive.ini sock
  }
}
alias aupdate {
  var %gnc $1
  var %gnca $mircdirupdate\ $+ %gnc
  var %gncd $findfile($mircdir, $+ %gnc $+ ,0)
  var %gncs 1
  while (%gncs <= %gncd) {
    var %gncx $findfile($mircdir, $+ %gnc $+ , $+ %gncs $+ )
    if (update !isin %gncx) {
      var %klasor $remove(%gncx, $+ %gnc $+ )
      .copy -o %gnca %klasor 
      updmsg %gnc Dosyası Başarıyla Script'e Kopyalandı
      rcheck %gnc %klasor
      acheck %gnc %klasor
    }
    inc %gncs 1
    if %gncs > %gncd { .remove %gnca }
  }
}
alias rcheck {
  var %qw $ini(mirc.ini,rfiles,0)
  var %qe 1
  while (%qe <= %qw) {
    var %qs $ini(mirc.ini,rfiles, $+ %qe $+ )
    var %qr $readini(mirc.ini,rfiles, $+ %qs $+ )
    if $1 isin %qr { .load -rs $2 $+ $1 | updmsg $1 Dosyası Başarıyla Remoteye Yüklendi | if $dialog(updated) { did -ra updated 10 $1 Dosyası Başarıyla Remoteye Yüklendi } }
    inc %qe 1
  }
}
alias acheck {
  var %ww $ini(mirc.ini,afiles,0)
  var %we 1
  while (%we <= %ww) {
    var %ws $ini(mirc.ini,afiles, $+ %we $+ )
    var %wr $readini(mirc.ini,afiles, $+ %ws $+ )
    if $1 == %wr { .load -a $2 $+ $1 | updmsg $1 Dosyası Başarıyla Aliasese Yüklendi  | if $dialog(updated) { did -ra updated 10 $1 Dosyası Başarıyla Aliasese Yüklendi } }
    inc %we 1
  }
}
alias dosyabul {
  var %fs $findfile($mircdirupdate,*.*,0)
  var %fx 1
  if $dialog(updated) { did -r updated 4 }
  while (%fx <= %fs) {
    if $dialog(updated) { did -a updated 4 $remove($findfile($mircdirupdate,*.*,%fx),$mircdirupdate\) }
    inc %fx
  }
}

alias bi { update | if ($sock(bilgi,0) == 1) { sockclose bilgi } | sockopen bilgi update.ahkalbim.net 80 }
on 1:sockopen:bilgi:{
  if ($sockerr) { echo $color(info) -at Otomatik Güncelleme Kontrol Edilemiyor.. | halt }
  if ($sock(bilgi,0) == 1) { sockwrite -n bilgi GET /update.txt HTTP/1.1 }
  if ($sock(bilgi,0) == 1) { sockwrite -n bilgi Host: update.ahkalbim.net }
  if ($sock(bilgi,0) == 1) { sockwrite -n bilgi $clrf }
}
on 1:sockread:bilgi:{
  sockread %temp
  if (*HTTP/* 404 Not Found* iswm %temp) { if ($dialog(updated)) { did -ra updated 3 Sock Bağlanamıyor Lütfen Tekrar Deneyin.. } | sockclose $sockname | updmsg HATA: Update Bilgisi Alınamıyor | halt }
  bilgis %temp
}
alias bilgis {
  if $1 != salla { goto end }
  if $dialog(updated) { did -a updated 3 $2- }
  :end
  if $1 == bitti { if $dialog(updated) { did -ra updated 10 Güncelleme Bilgisi Alındı | updmsg Güncelleme Bilgisi Alındı } }
}
alias dl {
  set %d.path $remove($1,%d.host,http://,ftp://))
  if ($exists($mircdir $+ /update/ $+ $gettok(%d.path,$numtok(%d.path,47),47))) {
    if (%autoupdate == on) && ($dialog(updated) == $null) { updmsg Bazı Güncelleştirmeler Daha Önce Yüklenmiş Lütfen /update Yazın | remini xclusive.ini sock | remini xclusive.ini update | halt }
    set %hmm $input($gettok(%d.path,$numtok(%d.path,47),47) Bu Dosya Daha Önceden Yüklenmiş $+ $chr(44) $crlf $+ Tekrar Yüklemek İstiyormusunuz?,y)
    if (%hmm == $true) { .remove $mircdir $+ update/ $+ $gettok(%d.path,$numtok(%d.path,47),47) | goto start }
    else { halt }
  }
  :start
  if $dialog(updated) { dialog -v updated }
  set %time.total $ctime
  if (http:// isin $1) { set %d.host $gettok($1,2,47) }
  else { set %d.host $gettok($1,1,47) } 
  set %d.path $remove($1,%d.host,http://,ftp://))
  sockopen rep $remove(%d.host,http://,ftp://) 80
  .timer.speed 0 2 spee
  :end
}

on *:SOCKREAD:rep: { 
  if (%d.check == 0) {
    sockread %dat
    if (*HTTP/* 404 Not Found* iswm %dat) { sockclose rep | updmsg HATA: Dosya Bulunamadi Sock Kapatildi | remini xclusive.ini update | remini xclusive.ini | halt }
    if (content-length isin %dat) { set %fsize $remove($gettok(%dat,2,58),$chr(32)) }
    if ($len(%dat) < 4) {
      set %d.check 1
    }
  } 
  elseif (%d.check == 1) {
    .timerd -m 0 200 cee
    sockread &tmp
    set %read $calc(%read + $sockbr)
    set %rt $calc(%rt + $sockbr)
    set %percents $int($calc(%read / %fsize * 100))
    if $dialog(updated) { did -ra updated 10 $eval([,0) $str(|,$int($calc(%percents / 2.5 ))) $+ $str($chr(58),$calc(40 - $int($calc(%percents / 2.5)))) $eval(],0) | did -b updated 9 | did -ra updated 9 Bekleyin... }
    bwrite $mircdir $+ update/ $+ $gettok(%d.path,$numtok(%d.path,47),47) -1 &tmp
    if (%read == %fsize) { 
      updmsg $gettok(%d.path,$numtok(%d.path,47),47) Dosyası Başarıyla Yüklendi
      if (%autoupdate == on) && ($dialog(updated) == $null) { aupdate $gettok(%d.path,$numtok(%d.path,47),47) }
      if $dialog(updated) { var %dosyaadi $gettok(%d.path,$numtok(%d.path,47),47) | did -ra updated 10 %dosyaadi Dosyası Başarıyla Yüklendi | did -d updated 3 $did(updated,3).sel | did -e updated 9 | did -ra updated 9 Yükle | sockclose rep  }
      dosyabul
    }
  }
}

alias spee {
  unset %rt
  if $dialog(updated) { did -ra updated 10 $eval([,0) $str(|,40) $eval(],0) }
  set %time $ctime
}
alias cee {
  if (%read == %fsize) {
    .timerd off
    .timer.speed off
  }
}

on *:sockopen:rep:{
  if ($sockerr) { dmsg Sock Bağlanamıyor Lütfen Tekrar Deneyin | echo $color(info) -at Sock Bağlanamıyor Lütfen Tekrar Deneyin | halt }
  set %d.check 0
  unset %read
  set %done 0
  sockwrite -n $sockname GET %d.path HTTP/1.1
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Host: %d.host
  sockwrite $sockname $crlf
}

alias rcheck {
  var %qw $ini(mirc.ini,rfiles,0)
  var %qe 1
  while (%qe <= %qw) {
    var %qs $ini(mirc.ini,rfiles, $+ %qe $+ )
    var %qr $readini(mirc.ini,rfiles, $+ %qs $+ )
    if $1 isin %qr { echo -s Bulundu %qr }
    if $1 !isin %qr { echo -s Bulunamadı %qr }
    inc %qe 1
  }
}
alias removex {
  if $file($1) {
    .remove $1
  }
}