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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark %tempsockname filename= $+ %sharing_file | unset %sharing_file | unset %tempsockname
}
on *:sockopen:ursm: { 
  bset -t &postdata 1 ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="local_files[]"; 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 $+ ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_size" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_effect" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_rotate" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ--
  sockwrite -nt $sockname POST /upload.php HTTP/1.1 | sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=----WebKitFormBoundarydeA4whaMQad30HrZ
  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($gettok(%x,-1,47),1,46) $+ . $+ $gettok($gettok(%x,-1,46),-2,34) | echo -a 7Başarıyla yüklendi } 
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 | yklr }
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 -dp %niickk "avatar/ $+ %rsm $+ " }
on *:open:?:*:{ if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|TaTLiFM|kaos|KelimeTuretmece|kelime)$)/i)) { yklr | .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
}
alias resimindir { if $sock(resin) || $sock(resin2) { echo -a * Başka bir işlem devam etmekte }
  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 * hata oluştu, lütfen bağlantınızı kontrol ediniz }
  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 %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(avatar/ $+ %resin.ismi) }
}
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(avatar/ $+ %resin.ismi) -1 -1 &pdata | set %rsm %resin.ismi }
on *:sockclose:resin2: { if $isfile(avatar/ $+ %resin.ismi) { .unset %resin.* } }