- ===Youtube Finder===
- alias logo return 11[[ $1- ]]12
- alias htmlfree {
- var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
- 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),,","))
- }
- 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! }
For you Tattoo (K)
By: Scriptjes | Date: Aug 30 2009 07:51 | Format: None | Expires: never | Size: 3.41 KB | Hits: 916
Latest pastes
2 days ago
3 days ago
3 days ago
4 days ago
5 days ago