| AEKyazılım | 24 Ağustos 2018 15:33 |
Mirc Link Kısaltma Remotesi
Mirc script kullanırken karşı tarafa link kısaltarak link göndermenize yarayan remote.
## Link kısaltma kanala ve özele link yansıtma
##
## /linkver [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
##
## Şeklinde çalışmaktadır.
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 -l tiny {
if ($1) && ($isurl($1)) {
set %p 0
sockclose Tinyurl
set %TinyurlURL /create.php?source=indexpage&url= $+ $1- $+ &submit=Make+TinyURL%21&alias=
sockopen Tinyurl tinyurl.com 80
}
elseif ( !$isurl($1) ) {
if (# isin %nick) { msg %nick Link giriniz hatalı }
else { notice %nick Link giriniz hatalı }
}
}
alias linkver {
set %nick $me
.timerlinkci 1 2 / basla
tiny $1-
}
alias basla {
.timerlinkci 1 2 / say Linkim bakınız >> %linkim
}
on *:SOCKOPEN:Tinyurl: {
sockwrite -n Tinyurl GET %TinyurlURL HTTP/1.1
sockwrite -n Tinyurl Host: tinyurl.com
sockwrite Tinyurl $crlf
}
on *:SOCKREAD:Tinyurl: {
sockread %Tinyurl
while ($sockbr) {
if (<div class="indent"><b> isin %Tinyurl) && (%p == 0) {
if ($chr(35) isin %nick ) { msg %nick 1 URL KISALTMANIZ: $+ :12 $gettok($right(%Tinyurl,-31),1,60) }
else { notice %nick 1 URL KISALTMANIZ: $+ :12 $gettok($right(%Tinyurl,-31),1,60) | set %linkim $gettok($right(%Tinyurl,-31),1,60) }
unset %p
}
sockread %Tinyurl
}
}
| 