On $*:TEXT:/^[!@.]setvid/Si:#: {
  if ($nick isvoice $chan) || ($nick ishop $chan) || ($nick isop $chan) {
    if ($($+(*,$2,*)) iswm $readini(youtube.ini,Vids,Videos)) {
      notice $nick This video has already been added! Please set another.
    }
    else {
      writeini youtube.ini Vids Videos $readini(youtube.ini,Vids,Videos) $2
      writeini youtube.ini Vids Vidnum $calc($readini(youtube.ini,Vids,Vidnum) + 1)
      writeini youtube.ini Vids $readini(youtube.ini,Vids,Vidnum) $replace($2-,|,$chr(34))
      writeini youtube.ini Ratings $readini(youtube.ini,Vids,Vidnum) 0
      writeini youtube.ini Ratenum $readini(youtube.ini,Vids,Vidnum) 0
      notice $nick Your youtube link has been saved. It's id number is $readini(youtube.ini,Vids,Vidnum) $+ . Type !vid $readini(youtube.ini,Vids,Vidnum) to see it.
    }
  }
  else {
    notice $nick You must have atleast voice to perform this command.
  }
}
On $*:TEXT:/^[!@.]vid/Si:#: {
  if ($2 isnum) && ($readini(youtube.ini,Vids,$2) != $null) {
    $iif($left($1,1) == @,msg $chan,notice $nick) Youtube ID $2 $+ : $readini(youtube.ini,Vids,$2) $+ . Channel User Rating: $readini(youtube.ini,Ratings,$2)
  }
  else {
    notice $nick The Youtube ID $2 doesn't exist, please try another.
  }
}
On $*:TEXT:/^[!@.]clearvid/Si:#: {
  if ($nick isop $chan) {
    if ($2 == all) {
      remini youtube.ini Vids
      remini youtube.ini Ratings
      remini youtube.ini Ratenum
      remini youtube.ini Rated
      notice $nick All Youtube links and ratings have been removed.
    }
    elseif ($2 isnum) && ($readini(youtube.ini,Vids,$2) != $null) {
      remini youtube.ini Vids $2
      remini youtube.ini Ratings $2
      remini youtube.ini Ratenum $2
      remini youtube.ini Rated $2
      notice $nick Youtube video $2 has been removed and it's ratings purged.
    }
    else {
      notice $nick This Youtube link ID doesn't exist, please try another.
    }
  }
  else {
    notice $nick You must be a channel operator to perform this command.
  }
}
On $*:TEXT:/^[!@.]rate/Si:#: {
  if ($($+(*,$nick,*)) iswm $readini(youtube.ini,Rated,$2)) {
    notice $nick You have already rated this video, you can't rate twice!
  }
  elseif ($3 isnum 1-5) && ($readini(youtube.ini,Vids,$2) != $null) {
    writeini youtube.ini Ratenum $2 $calc($readini(youtube.ini,Ratenum,$2) + 1)
    writeini youtube.ini Ratings $2 $calc(($readini(youtube.ini,Ratings,$2) + $3) / $readini(youtube.ini,Ratenum,$2))
    writeini youtube.ini Rated $2 $readini(youtube.ini,Rated,$2) $nick
    notice $nick Your rating for this video has been added, it's average rating is now: $readini(youtube.ini,Ratings,$2)
  }
  else {
    notice $nick Invalid Youtube ID/Rating. Please make sure the ID you have provided exists by using !vid [idnumber] and that your rating is between 1-5.
  }
}
On $*:TEXT:/^[!.@]topvids/Si:#: {
  if ($readini(youtube.ini,Ratings,1) != $null) {
    if ($left($1,1) == @) {
      set %z @
    }
    $iif($left($1,1) == @,msg $chan,notice $nick) Videos with a rating of 4 or higher:
    topvids
    unset %z
  }
  else {
    $iif($left($1,1) == @,msg $chan,notice $nick) There are no videos that have a rating of 4 or more.
  }
}
alias topvids {
  var %g 1
  while (%g <= $ini(youtube.ini,Ratings,0)) {
    if ($readini(youtube.ini,Ratings,%g) >= 4) {
      $iif(%z == @,msg $chan,notice $nick) $chr(149) $readini(youtube.ini,Vids,%g) with a rating of $readini(youtube.ini,Ratings,%g)
    }
    inc %g
  }
}

/* Will list all videos with a rating of 4 or more */