scripts

on *:TEXT:*:*: {
  if ($me isin $1-) {
    if (!@Highlights) { window +a @Highlights }
    var %date $replace($date,/,4/14) | var %time $replace($time,:,4:14)
    var %message $replace($1-,$me,4 $+ $me $+ 14)
    echo @Highlights 14 $+ %date 1::14 %time 1::14 $netw0rk 1::14 $nickorchan 1::14 $inick 1::14 %message
  }
  set %nummer $matchtok($1-, /watch?, 1, 32)
  if (%nummer) { set %id $remove(%nummer,http://,www.,youtube,.com) }
  set %chan $chan
  sockclose youtube | sockopen youtube www.youtube.com 80
}

alias nickorchan {
  if ($chan) {
    var %firstword $replace($left($chan,1),$left($chan,1),4 $+ $left($chan,1) $+ 14)
    var %channel %firstword $+ $right($chan,$calc($len($chan)-1))
    return %channel
  }
  if ($nick) {
    var %firstword $replace($left($nick,1),$left($nick,1),4 $+ $left($nick,1) $+ 14)
    var %nick %firstword $+ $right($nick,$calc($len($nick)-1))
    return %nick
  }
}

alias netw0rk {
  var %firstword $replace($left($network,1),$left($network,1),4 $+ $left($network,1) $+ 14)
  var %network %firstword $+ $right($network,$calc($len($network)-1))
  return %network
}

alias inick {
  var %firstword $replace($left($nick,1),$left($nick,1),4 $+ $left($nick,1) $+ 14)
  var %nick %firstword $+ $right($nick,$calc($len($nick)-1))
  return %nick
}

on *:SOCKOPEN:youtube: {
  sockwrite -n $sockname GET %id HTTP/1.1
  sockwrite -n $sockname Host: www.youtube.com
  sockwrite -n $sockname $crlf
}

on *:SOCKREAD:youtube: {
  if ($sockerr) { HALT }
  sockread %youtuberead
  if (<title> isin %youtuberead) { sockread %tmp | set %youtubetitle %tmp }
  if (<span class="watch-view-count"> isin %youtuberead) { sockread %tmp | set %youtubeviews $remove(%tmp,<strong>,</strong>) }
  if (<span class="likes"> isin %youtuberead) {
    set %youtuberate $remove(%youtuberead,    <span class="likes">,</span> keer gemarkeerd als leuk, <span class="dislikes">,</span> keer gemarkeerd als niet leuk,$chr(44))
    var %calcone $gettok(%youtuberate,1,32) | var %calctwo $gettok(%youtuberate,2,32)
    var %procent $calc((100 - (%calctwo / %calcone)) * 100)
    echo %chan Title: $ascreplace(%youtubetitle)  Views: %youtubeviews | unset %id | unset %nummber
  }
}

alias ascreplace {
  var %deel $1-
  while (&# isin %deel && %keer != 10) {
    var %positie $pos(%deel,&#,1)
    var %deel1 $left(%deel,$calc(%positie - 1))
    var %deel3 $right(%deel,$calc(0 - %positie - 4))
    var %deel4 $mid(%deel,%positie,6))
    var %deel5 $right(%deel4,4)
    var %asc $round(%deel5)
    var %deel2 $chr(%asc)
    var %deel %deel1 $+ %deel2 $+ %deel3
    inc %keer
  }
  return %deel
}
/

alias window {
  if (!$chan) { return $nick | halt }
  if ($chan) { return $chan | halt }
}