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
}