alias urs { sockclose ursm | sockopen ursm www.hizliresim.com 80 }
on *:sockopen:ursm: { bread %ds 0 $lof(%ds) &file | set %ip $calc($bvar(&file,0) + 492) | bread $qt(%ds) 0 $file($qt(%ds)).size &img | sockwrite -n $sockname POST /upload.php HTTP/1.1 | sockwrite -n $sockname Accept: text/html, application/xhtml+xml, */* | sockwrite -n $sockname Referer: Hızlı Resim yükle, internette paylaş | resim upload | bedava resim | sockwrite -n $sockname Accept-Language: tr-TR
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0) | sockwrite -n $sockname Content-Type: multipart/form-data; boundary=---------------------------7dc1cdf2f043e | sockwrite -n $sockname Host: d.hizliresim.com | sockwrite -n $sockname Content-Length: %ip | sockwrite -n $sockname Connection: Keep-Alive | sockwrite -n $sockname Cache-Control: no-cache
  sockwrite -n $sockname Cookie: __utma=251736208.584732837.1328376985.1329045042.1329064944.11; __utmz=251736208.1329036173.9.6.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=h%C4%B1zl%C4%B1%20resim%20y%C3%BCkle; __utmb=251736208.1.10.1329064947; __utmc=251736208; __utma=100797268.395949191.1327231426.1328356989.1329037975.3; __utmz=100797268.1329036275.3.3.utmcsr=hizliresim.com|utmccn=(referral)|utmcmd=referral|utmcct=/
  sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e | sockwrite -n $sockname Content-Disposition: form-data; name="upload"; filename="C:\Program Files (x86)\1\%ds" | sockwrite -n $sockname Content-Type: image/png | sockwrite -n $sockname | sockwrite $sockname &img | sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e | sockwrite -n $sockname Content-Disposition: form-data; name="size" | sockwrite -n $sockname | sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e
  sockwrite -n $sockname Content-Disposition: form-data; name="effect" | sockwrite -n $sockname | sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e | sockwrite -n $sockname Content-Disposition: form-data; name="rotate" | sockwrite -n $sockname | sockwrite -n $sockname | sockwrite -n $sockname -----------------------------7dc1cdf2f043e-- | sockwrite -n $sockname 
}
on *:sockread:ursm: { var %x | sockread %x | if (<img style="max-width: 336px; border: 1px solid #000;" src= isin %x) { var %itt $gettok(%x,3-,47) |  var %brrg $gettok(%itt,1-,47) | set %brg $gettok(%brrg ,1,34) } }
alias resimindir { if * $+ / $+ * !iswm $1 || $2 { echo -a * Hata! Oluştu } | if $sock(resin) || $sock(resin2) { echo -a * Yoğun veri iletişimi Tesbit edildi }
  else { .unset %resin.* | .set %resin.govde $remove($1,http://) | .set %resin.uzanti $gettok(%resin.govde,2-,47) | .set %resin.ana $gettok(%resin.govde,1,47) | .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47) | sockopen resin %resin.ana 80 }
}
on *:sockopen:resin: { if $sockerr { echo 3 -a * Bağlantı Sorunu Oluştu } | else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf } }
on *:sockread:resin: { var %ğ | sockread %ğ | if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { echo 4 -a * HATA! Veri iletişimi| sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { echo 4 -a * HATA! Yasak veri | sockclose resin |  sockclose resin2 | .unset %resin.* | .halt } | if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(%resin.ismi) }
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 }
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(%resin.ismi) -1 -1 &pdata }
on *:sockclose:resin2: { if $isfile(%resin.ismi) { set %rsm %resin.ismi | .unset %resin.* } }
alias dsy { var %fv $sfile($mircdir\Avatar\,Lütfen bir dosya seçiniz.,TAMAM) | set %ds avatar\ $+ $gettok(%fv,-1,92) | .timeruplod 1 3 urs }
on ^*:notice:*:?: { 
  if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir Hızlı Resim yükle, internette paylaş | resim upload | bedava resim $+ %fg | .notice %niickk %brg >-x
    .timerdowunload 3 5 yklr | write avt.txt %rsm
    haltdef
  }
  if (.jpg isin $2)  { set %fg $2 | set %niickk $nick | resimindir Hızlı Resim yükle, internette paylaş | resim upload | bedava resim $+ %fg | .notice %niickk %brg >-x
    .timerdowunload 3 5 yklr | write avt.txt %rsm
    haltdef
  }
  if (.bmp isin $2)  { set %fg $2 | set %niickk $nick | resimindir Hızlı Resim yükle, internette paylaş | resim upload | bedava resim $+ %fg | .notice %niickk %brg >-x
    .timerdowunload 3 5 yklr | write avt.txt %rsm
    haltdef
  }
  if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir Hızlı Resim yükle, internette paylaş | resim upload | bedava resim $+ %fg | .timerdowunload 1 10 yklr | write avt.txt %rsm }
  haltdef
}
alias yklr { /Background -dp %niickk " $+ %rsm $+ " }
on *:open:?:*:{ .notice $nick > %brg | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız }
on *:connect: {  tmz }
alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } }
on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } | halt }
on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { if !$exists(Avatar) { mkdir Avatar } | var %fv $sfile($mircdir\Avatar\,Lütfen bir dosya seçiniz.,TAMAM) | set %ds avatar\ $+ $gettok(%fv,-1,92) | urs } }
menu * {
  Avatarım
  .Karşı Tarafın göreceği Resiminizi Seçiniz:dsy
  .Klasöre Resim ekleyiniz:run $mircdiravatar
}

alias urs { sockclose ursm
  if $1 = $null {
    %sharing_file = $$msfile($$msfile($mircdir\))
  }
  if $1 {
    %sharing_file = $1-
  }
  %tempsockname = ursm
  echo 3 yüklenmeye çalışıyor...
  sockopen %tempsockname www.hizliresim.com 80
  sockmark %tempsockname filename= $+ %sharing_file
  unset %sharing_file
  unset %tempsockname
}
on *:sockopen:ursm: { 
  bset -t &postdata 1 -----------------------------7dc322f4c0442 $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload"; filename=" $+ $nopath($gettok($mid($sock($sockname).mark,11),1,59)) $+ " $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Type: image/ $+ $gettok(%ds,2,46) $+ $crlf $+ $crlf
  bread " $+ $gettok($mid($sock($sockname).mark,10),1,59) $+ " 0 $file($gettok($mid($sock($sockname).mark,10),1,59)).size &file_contents
  bcopy &postdata $calc($bvar(&postdata,0) + 1) &file_contents 1 -1
  bset -t &postdata $calc($bvar(&postdata,0) + 1) $crlf $+ -----------------------------7dc322f4c0442 $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="size" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442 $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="effect" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442 $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="rotate" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) -----------------------------7dc322f4c0442--
  sockwrite -nt $sockname POST /upload.php HTTP/1.1
  sockwrite -nt $sockname Host: e.hizliresim.com
  sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=---------------------------7dc322f4c0442
  sockwrite -nt $sockname Content-Length: $bvar(&postdata,0) $+ $crlf $+ $crlf
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite $sockname &postdata
}
on *:sockread:ursm: { 
  var %x
  sockread %x
  if (img style="max-width isin %x) {
    set %brrg $gettok(%x,4,34)
    set %orta  $gettok(%x,2,47) $+ /
    set %sonksm $gettok(%x,3-4,47) $+ / $+ $gettok($gettok(%x,-1,47),1,46) $+ . $+ $gettok($gettok(%x,-1,46),-2,34)
    echo -a 7Başarıyla yüklendi
  } 
}
alias resimindir { if * $+ / $+ * !iswm $1 || $2 { echo -a * Hata! Oluştu } | if $sock(resin) || $sock(resin2) { echo -a * Yoğun veri iletişimi Tesbit edildi }
  else { .unset %resin.* | .set %resin.govde $remove($1,http://) | .set %resin.uzanti $gettok(%resin.govde,2-,47) | .set %resin.ana $gettok(%resin.govde,1,47) | .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47) | sockopen resin %resin.ana 80 }
}
on *:sockopen:resin: { if $sockerr { echo 3 -a * Bağlantı Sorunu Oluştu } | else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf } }
on *:sockread:resin: { var %ğ | sockread %ğ | if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { echo 4 -a * HATA! Veri iletişimi| sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { echo 4 -a * HATA! Yasak veri | sockclose resin |  sockclose resin2 | .unset %resin.* | .halt } | if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(%resin.ismi) }
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 }
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(%resin.ismi) -1 -1 &pdata }
on *:sockclose:resin2: { if $isfile(%resin.ismi) { set %rsm %resin.ismi | .unset %resin.* } }
on ^*:notice:*:?: { 
  if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
    .timerdowunload 5 10 yklr | write avt.txt %rsm
    haltdef
  }
  if (.jpg isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
    .timerdowunload 5 10 yklr | write avt.txt %rsm
    haltdef
  }
  if (.bmp isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x
    .timerdowunload 5 10 yklr | write avt.txt %rsm
    haltdef
  }
  if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .timerdowunload 5 10 yklr | write avt.txt %rsm }
  haltdef
}
alias yklr { //Background -dr %niickk " $+ %rsm $+ " }
on *:open:?:*:{
  if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|TaTLiFM|kaos|KelimeTuretmece|kelime)$)/i)) {
    .notice $nick > %sonksm | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız 
  }
}
on *:connect: {  tmz }
alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } }
on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } }
on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { urs } }
menu * {
  Avatarım
  .Karşı Tarafın göreceği Resiminizi Seçiniz:urs
}