[YouMyCure]

Kullanım: /kisalt link
Örnek: /kisalt [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Fikir: hawkee.com
Screen:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias isurl return $iif($regex($1-,/\b(\^@\S+|
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias kisalt {
  if ($1) && ($isurl($1)) { 
    var %:sock $+(urlks,$ticks,$r(444,999))
    sockopen %:sock tinyurl.com 80 | sockmark %:sock $1-
  } 
}
on *:SOCKOPEN:urlks*: {
  sockwrite -n $sockname GET $+(/create.php?source=indexpage&url=,$sock($sockname).mark,&submit=Make+TinyURL%21&alias=) HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr | sockwrite -n $sockname $crlf
}
on *:SOCKREAD:urlks*: {
  sockread %t | while ($sockbr) {
    if (<div class="indent"><b> isin %t) && (preview !isin %t) {  echo -a 4* 3Kısa URL:11 $gettok($right(%t,-31),1,60) }
    sockread %t
  }
}