/ScriptServ

on 1:load: {
  unset %vivo*  
  if ($version < 5.31) { echo -a [TVivo] Please install mIRC 5.31 or greater. | .unload -rs vivo.mrc | halt }
  echo -a  [TVivo] v4.13 by Pepsi Lizard loaded.  
  echo -a [TVivo] Type /VIVO HELP for a list of commands.
  if (%vivo.dir == $null) { set %vivo.dir $sdir="Find your default VIVO dir:" }
  set %vivo.ctcp off
}
#vivorequests off
ctcp 1:get:if ($parm2* ==  $nopath(%vivo.current)) { dcc send   $nick  " $+ %vivo.current $+ " }
#vivorequests end
#vivoautoget off
ctcp 1:vivo:{
  set %vivo.get $parm2*
  ctcp $nick get %vivo.get
}
#vivoautoget end
alias vivo {
  if ($$1 == setdir) { set %vivo.dir $sdir="Find your default VIVO directory:" }
  elseif ($$1 == ctcp) { set %vivo.ctcp $2 }
  elseif ($$1 == play) { 
    if (%vivo.ctcp == off) { set %vivo.current $$dir="Pick a VIVO" %vivo.dir | run %vivo.current | /msg $chan [TVivo] $nopath(%vivo.current) Size: $+ $round($calc($lof(%vivo.current) / 1000000),2) $+ mb }
    elseif (%vivo.ctcp == on) { set %vivo.current $$dir="Pick a VIVO" %vivo.dir | run %vivo.current | /msg $chan [TVivo] $nopath(%vivo.current) Size: $+ $round($calc($lof(%vivo.current) / 1000000),2) $+ mb | ctcp $chan vivo $nopath(%vivo.current) }
  }
  elseif ($$1 == ver) { echo -a [TVivo] v4.13 by Pepsi Lizard }
  elseif ($$1 == showver) { say [TVivo] v4.13 by Pepsi Lizard }
  elseif ($$1 == autoget) {
    if ($2 == on) { .enable #vivoautoget }
    elseif ($2 == off) { .disable #vivoautoget }
  }
  elseif  ($$1 == send) {
    if ($2 == on) { .enable #vivorequests }
    elseif ($2 == off) { .disable #vivorequests }
  }
  elseif ($$1 == info) {
    window @TVivo 150 150 275 125 Arial 12
    titlebar @TVivo Information    
    set %vivo.info $$dir="Pick a VIVO" %vivo.dir
    aline @TVivo  Filename: $+ $nopath( %vivo.info )
    aline @TVivo Size: $+ $round($calc($lof(%vivo.info) / 1000000),2) $+ mb
    aline @TVivo $read -nl12 %vivo.info
    aline @TVivo $read -nl13 %vivo.info
    aline @TVivo $read -nl14 %vivo.info
    aline @TVivo $read -nl3 %vivo.info
  }
  elseif ($$1 == help) { 
    window @TVivo 150 150 430 209 Arial 12
    titlebar @TVivo Help
    aline @TVivo 2[TVivo] v4.13 by Pepsi Lizard
    aline @TVivo Commands: [USAGE: /VIVO (COMMAND)]
    aline @TVivo SETDIR: Sets the default VIVO directory
    aline @TVivo CTCP: Toggles channel CTCPs when playing a VIVO[on/off]
    aline @TVivo PLAY: Lets the user pick a VIVO file to play
    aline @TVivo INFO: Shows information about a VIVO in a new window
    aline @TVivo VER: Echos the version of TVivo
    aline @TVivo SHOWVER: Shows the version of TVivo in the current channel
    aline @TVivo AUTOGET: Toggles get requests when a VIVO is played[on/off]
    aline @TVivo SEND: Toggles the sending of VIVOs when a get request is received[on/off]
    aline @TVivo HELP: Shows this window  
  }
  else { echo -a [TVivo] Type /VIVO HELP for a list of commands. }
}
menu channel {
  TVivo v4.13
  .setup
  ..set dir:/vivo setdir
  ..ctcps?
  ...on:set %vivo.ctcp on
  ...off:set %vivo.ctcp off
  ..autoget?
  ...on:vivo autoget on
  ...off:vivo autoget off
  ..sends?
  ...on:vivo send on
  ...off:vivo send off
  .version
  ..echo:vivo ver
  ..show:vivo showver
  .play
  ..channel:vivo play
  ..private:set %vivo.current $$dir="Pick a VIVO" %vivo.dir | run %vivo.current
  .info:/vivo info 
  .help:/vivo help
}