;YouTube Info 2.0
;By Neo Nemesis
on *:TEXT:*youtube*:#: {
if ($1 == !youtube) {
%c.ytb = $chan
YouTube search $2-
}
else {
%c.ytb = $chan
YouTube $1
}
}
alias s.YTB.Parse {
if (& isin $remove($gettok($1-,2,32),href=”,$chr(34))) { return $replace($remove($gettok($remove($1-,

,,,

),2,62),else { return $replace($remove($gettok($remove($1-,

,,,

),2,62),}
alias YouTube {
if ($1 == search) {
;search
unset %ysrc*
sockclose s.ytb
%ysrch = /results?search_query= $+ $replace($2-,$chr(32),$chr(43)) $+ &aq=f
sockopen s.ytb http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}
else {
unset %ytb*
sockclose ytb
%ytb1 = $remove($1,http://,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">sockopen ytb http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}
}
on *:SOCKOPEN:s.ytb: {
sockwrite -n $sockname GET %ysrch HTTP/1.1
sockwrite -n $sockname Host: http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">sockwrite -n $sockname Connection: Close
sockwrite -n $sockname Content-Type: text/html
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:s.ytb: {
sockread %ysrc.1
if (About isin %ysrc.1) {
.timerYTB6 1 1 msg %c.ytb 1,0You0,4Tube15,1 Search – $remove(%ysrc.1,,) – 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">%ysrc.3 = $true
}
if (dir=”ltr” title=” isin %ysrc.1) && (%ysrc.3 == $true) {
if (%ysrc.2) { inc %ysrc.2 }
else { %ysrc.2 = 1 }
if (%ysrc.2 else { sockclose s.ytb }
}
}
on *:SOCKOPEN:ytb: {
sockwrite -n $sockname GET %ytb1 HTTP/1.1
sockwrite -n $sockname Host: http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">sockwrite -n $sockname Connection: Close
sockwrite -n $sockname Content-Type: text/html
sockwrite -n $sockname $crlf
}
on *:SOCKREAD:ytb: {
sockread %ytb2
if ( if (=”title” content=” isin %ytb2) {
%ytb.title = $remove(%ytb2,)
.timerYTB1 1 1 msg %c.ytb 1,0You0,4Tube15,1 Title: $replace(%ytb.title,’,$chr(39),”,$chr(34),&,$chr(38)) $+ 
}
if (=”description” content=” isin %ytb2) {
%ytb.desc = $remove(%ytb2,)
.timerYTB2 1 2 msg %c.ytb 1,0You0,4Tube15,1 Info: $replace(%ytb.desc,’,$chr(39),”,$chr(34),&,$chr(38)) $+ 
}
if (%ytb.title) && (%ytb.desc) { sockclose ytb }
}
} 

; youtube video search

; returns the first search result for your search terms

; usage for you

;

; trigger: /yt

; syntax: /yt <search terms>

; example: /yt charleston daft punk

; usage for other people

;

; triggers: !youtube [MENTION=3042]YoU[/MENTION]tube !tube @tube

; syntax: [MENTION=3042]YoU[/MENTION]tube <search terms>

; example: !tube charleston daft punk

 
; if you want to sort search by VIEW COUNT, use this line below

; sockwrite -nt $sockname GET /results?search_sort=video_view_count&search_query= $+ %searchstring

;

; if you want the regular search, use this line below

; sockwrite -nt $sockname GET /results?search_query= $+ %searchstring HTTP//1.1

;

; the place im referring to is: under the heading on *:sockopen:ytsearch:{

alias yt {

  %channel = $chan

  if (%channel) { %saystyle = echo -t %channel }

  else { %saystyle = echo -at }

  %searchstring = $replace($1-,$chr(32),+)

  sockclose ytsearch

  sockopen ytsearch 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.************ 80

}

on $*:TEXT:/^[!@](yt|youtube|tube) */Si:#: { 

  %channel = $chan

  %saystyle = /msg %channel

  %searchstring = $replace($2-,$chr(32),+)

  if ($2 == $null) { %saystyle Search could not be completed | halt }

  sockclose ytsearch

  sockopen ytsearch 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.************ 80

}

on *:sockopen:ytsearch:{

  sockwrite -nt $sockname GET /results?search_query= $+ %searchstring HTTP//1.1

  sockwrite -nt $sockname Host: ************ 

  sockwrite -nt $sockname $crlf $crlf 

}

on *:sockread:ytsearch:{

  sockread -n %temp

  if (%founddesc_be) { unset %founddesc_be | %desc_be = $replace($remove(%temp, ),<br/>,$chr(32)) }

  if (<span id="BeginvidDesc isin %temp) %founddesc_be = k

  if (/watch?v= isin %temp) { %resulturl = $remove($gettok(%temp,2,32),href=",") }

  if (%foundtitle) { inc %titlecounter }

  if (%titlecounter = 1) { %searchtitle = $replace($remove($regsubex(%temp,/<a [^>]+>(.+?)</a>/,\1),<br/>, ),",$chr(34)) }

  if (<div class="vtitle"> isin %temp) { %foundtitle = k | %titlecounter = 0 }

  if (<img class="rating" src="/img/icn_star_full_19x20 isin %temp) { %done = k }

  if (%done) {

    sockclose ytsearch

    unset %done

    %saystyle Link: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">/watch?v=* iswm %temp) { inc %searchres }

} 

The -e switch creates an SSL connection.

-e Anahtarı kullanılmalı

/sockopen [-de] [bindip] <name> <address> <port>

The /sockopen command initiates a connection to the specified address and port. You can specify either an ip address or a named address (which will be resolved to an ip address).

 The -d switch means that you specified an ip address as the bind address.

 The -e switch creates an SSL connection.