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 https://www.youtube.com/watch?v=OGX-ny-3ztI
##
## Şeklinde çalışmaktadır.

alias isurl return $iif($regex($1-,/\b(\^@\S+|www\.\S+|https://\S+|irc\.\S+|irc://\S+|\w+(?:[\.-]\w+)?@\w+(?:[\.-]\w+)?\.[a-z]{2,4})\b/gi),$iif($prop,$regml($v1),$true))
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
  }
}