on *:TEXT:!yt &:#: {
if ($sock(YTube)) .sockclose YTube
if (*youtube.com* iswm $2) {
set %y_l $right($2,11)
}
else {
set %y_l $2
}
if ($ini(songrequest.ini,%y_l,0) == 1) {
msg # This song is already in my playlist.
unset %y_l
}
else {
set %y_d 1
set %y_n $nick
set %y_newb $chan
sockopen -e YTube gdata.youtube.com 443
}
}
on *:SOCKOPEN:YTube: {
sockwrite -nt $sockname GET /feeds/api/videos/ $+ %y_l HTTP/1.1
sockwrite -nt $sockname Host: gdata.youtube.com $+ $str($crlf,2)
}
on *:SOCKREAD:YTube: {
if (!$sockerr) {
sockread &sockreader
if ($bfind(&sockreader,1,duration=')) {
var %y_len $bvar(&sockreader,$bfind(&sockreader,1,duration='),$calc($bfind(&sockreader,1,' yt) - $bfind(&sockreader,1,duration='))).text
set %y_tlen $remove(%y_len,duration=')
if (%y_tlen > 360) {
msg %y_newb Videos longer than 6 minutes are not allowed.
}
else {
var %dinocoins $readini(Dinocoins.ini,$+(%y_newb,.,%y_n),dinocoins)
if ($calc(%dinocoins - %y_d) > 0) {
writeini -n Dinocoins.ini $+(%y_newb,.,%y_n) dinocoins $calc(%dinocoins - %y_d)
writeini songrequest.ini %y_l %y_tlen %y_n 1
unset %y_*
}
else {
msg %y_newb You do not have enough dinocoins!
unset %y_*
}
}
}
}
else {
msg %y_newb Video could not be found.
unset y_*
}
}
alias -l playYT {
if (%playing == 1) {
var %file songrequest.ini
if (!$ini(%file,0)) {
var %number $rand(1,50)
var %song $ini(newbieplaylist.ini,%number)
run -n www.youtube.com/watch?v= $+ %song
var %timer $calc($ini(newbieplaylist.ini,%song,1) + 7)
.timerplayYT 1 %timer playYT
}
; -----------------------------------------
else {
var %song $ini(%file,1)
run -n www.youtube.com/watch?v= $+ %song
var %timer $calc($ini(%file,%song,1) + 7)
remini %file %song
.timerplayYT 1 %timer playYT
}
}
}
on *:TEXT:!play &:#:{
if ($2 == start) {
if ($nick !isop #) {
msg # This is a command for mods only!
}
else {
set %Playing 1
playYT
}
}
elseif ($2 == stop) {
unset %Playing
}
}