===Youtube Finder===

alias logo return 11[[ $1- ]]12

alias htmlfree {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

}

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

  if (!$2) { $iif($left($1,1) == @,msg #,.notice $nick) $logo(Youtube Search) 11Please specify something to search for. | halt }

  else {

    set %yt.search $2-

    set %yt.way $iif($left($1,1) == @,msg #,.notice $nick)

    sockopen yt www.youtube.com 80

  }

}

on *:sockopen:yt: {

  sockwrite -nt $sockname GET $+(/results?search_type=&search_query=,$replace(%yt.search,$chr(32),+),&aq=f) HTTP/1.1

  sockwrite -nt $sockname Host: www.youtube.com

  sockwrite -nt $sockname $crlf

}

on *:sockread:yt: {

  if ($sockerr) halt

  else {

    var %yt.read

    sockread %yt.read

    if (*No videos found* iswm %yt.read) {      

      %yt.way $logo(Youtube Search) 12 No videos found for11 %yt.search 

      sockclose $sockname

    }

    if (*<div class="video-main-content* iswm %yt.read) {

      noop $regex(%yt.read,/id="video-main-content-(.+?)"/i)

      set %yt.url 11URL -12 $+(www.youtube.com/watch?v=,$regml(1))

    }

    if (*<a id="video-short-title-* iswm %yt.read) {

      set %yt.vidname 11Name:12 $htmlentities($replace($htmlfree(%yt.read),$chr(9),,&quot;,"))

    }

    if (*<button class="master-sprite ratingVS ratingVS-*" title="*"></button>* iswm %yt.read) {

      noop $regex(%yt.read,/title="(.+?)"/i)

      set %yt.rate 11Rating:12 $regml(1)

    }

    if (*<span id="video-num-views-* iswm %yt.read) {

      set %yt.views 11Views:12 $remove($htmlfree(%yt.read),$chr(9))

      %yt.way $logo(Youtube Search) 12 $+ %yt.search - %yt.vidname - $iif(%yt.rate,$v1,No Rating) - %yt.views - %yt.url

      sockclose $sockname

    }

  }

}

alias htmlentities {

  var %i = $1, %a = 1

  while $regex(*,%i,/(&#(d+?);)/) {

    if $regml(*,1).pos < %a { return %i }

    %i = $replace(%i,$regml(*,1),$chr($regml(*,2)))

    inc %a

  }

  return %i

}

 

===Spin the Bottle===

on *:text:!spin*:#:{

  :nickpick

  var %nick = $nick(#,$r(1,$nick(#,0)))

  if (%nick == $nick) || (%nick == $me) { goto nickpick }

  else { goto rest }

  :rest

  describe $chan 12spins the bottle...

  timer 1 3 msg $chan 11The bottle is slowing down...

  timer 1 5 msg $chan 12The bottle has stopped...

  timer 1 7 msg $chan 11It Landed on...

  timer 1 9 msg $chan 12 %nick $+ !

  var %item = $rand(1,10)

  if (%item == 1) timer 1 11 msg $chan 11 $nick must Sexually touch %nick $+ !

  if (%item == 2) timer 1 11 msg $chan 11 $nick must Touch chest of %nick $+ !

  if (%item == 3) timer 1 11 msg $chan 11 $nick must Kiss %nick $+ !

  if (%item == 4) timer 1 11 msg $chan 11 $nick must Feel ass of %nick $+ !

  if (%item == 5) timer 1 11 msg $chan 11 $nick must Make out with %nick $+ !

  if (%item == 6) timer 1 11 msg $chan 11 $nick must Striptease for %nick $+ !

  if (%item == 7) timer 1 11 msg $chan 11 $nick must Grab %nick $+ !

  if (%item == 8) timer 1 11 msg $chan 11 $nick must Spank %nick $+ !

  if (%item == 9) timer 1 11 msg $chan 11 $nick must Go in the closet with %nick $+ !

  if (%item == 10) timer 1 11 msg $chan 11 $nick must Feel up %nick $+ !

}

 

===Shoot===

on *:TEXT:!shoot:#: { msg # $+(11,$nick) 12 $+ zet iedereen op een rijtje en richt met het pistool waar 11 $+ $nick(#,0)12 kogels in zitten! | msg # 11 $+ $nick(#,$r(1,$nick(#,0))) 12is neergeknalt! RIP! }