IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kullanım: /kisalt link
Örnek: /kisalt [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Fikir: hawkee.com
Screen: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

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

  }

}