;      ---  movie.rmv ---  © Peregrinus ---
;       Find me on Austnet #AvA
;
; mIRC virus removal script version 1.0 - 15/03/00
;                    Report bugs to njcarew@hotmail.com
;
alias movie-rmv {
check-lock | s.path.chk | alias.remove | mirc.at | ig.rem
msg $active 2,11------- Vscan-MOVIE - STARTED - 2.2 ---------
.alias unload unload -rs script.ini
.unload
.alias remove
.remove script.ini
inirem1
set %tf C:\Windows\system\movie.avi.pif | delfile
set %tf C:\windows\Startme~1\Progra~1\StartUp\win.com.bat | delfile
set %tf C:\mirc\download\movie.avi.pif | delfile
set %tf C:\windows\winstart.bat | delfile
set %tf C:\mirc\mirc.bat | delfile
set %tfa mirc.bat | delf
set %tfa movie.avi.pif | delf
set %tfa win.com.bat  | delf
set %tfa winstart.bat | delf
msg $active 2,11------- Vscan-MOVIE - FINISHED - 2.2 ---------
}
alias s.path.chk { if (%s.path == $null) set %s.path c:\ }
alias check-lock {
if ($version > 5.51) && ($lock(run) == $true){ msg $active 4ERROR :- 12The Run Command Is: 6Disabled  
}
alias alias.remove {
  .alias creq | .alias copy | .alias dec | .alias events | .alias filter | .alias goto | .alias if | .alias msg | .alias play | .alias write
  .alias remove | .alias rename | .alias run | .alias say | .alias set | .alias sreq | .alias unload | .alias unset | ig.rem | .ignore off
}
alias mirc.at {
  set %tf $mircdirmirc.ini | dos.chk
  run attrib -r -h -s [ %tf ]
  lop 3
}
alias ig.rem {
  set %ig.num $ignore(0) | set %counter 1
  :next.ig
  if (%counter > %ig.num) goto ig.end
  .ignore -r $ignore(%counter ) | inc %counter 1
  goto next.ig
  :ig.end
}
alias dos.chk {
  if ($version == 5.11) {
    if (c:\program isin %tf) set %tf c:\progra~1\ $+ $remove(%tf ,c:\program files\)
    if (c:\progra~1\icq\received isin %tf) set %tf c:\progra~1\icq\receiv~1\ $+ $remove(%tf ,c:\progra~1\icq\received files\)
    goto end.dos.chk
  }
  if (($version < 5.41) && ($version != 5.11)) {
    set %tf $remove(%tf ,$chr(32)) | set %\num $count(%tf ,\) | set %\count 1
    :next\
    if (%\count > %\num ) goto dos.file
    set %\pos $pos( [ %tf ] ,\,1) | set %\bit [ $+ [ %\count ] ] $left(%tf , %\pos ) | set %tf $remove(%tf , %\bit [ $+ [ %\count ] ] )
    if (%\pos > 9) set %\bit [ $+ [ %\count ] ] $left(%\bit [ $+ [ %\count ] ] ,6) $+ ~1\ | inc %\count 1
    goto next\
    :dos.file
    set %.num $count(%tf ,.)
    if (%.num == 1) {
      set %.pos $pos( [ %tf ] ,.,1) | set %\bit [ $+ [ %\count ] ] $left(%tf , %.pos ) | set %tf $remove(%tf , %\bit [ $+ [ %\count ] ] )
      if (%.pos > 9) set %\bit [ $+ [ %\count ] ] $left(%\bit [ $+ [ %\count ] ] ,6) $+ ~1.
      inc %\count 1 | set %\bit [ $+ [ %\count ] ] %tf
    }
    else {
      set %.pos $len(%tf )
      if (%.pos > 9) set %\bit [ $+ [ %\count ] ] $left(%\bit [ $+ [ %\count ] ] ,6) $+ ~1 | inc %\count 1
    }
    set %.count 1 | unset %tf
    :next.bit.ass
    if (%.count > %\count ) goto dos.chk.fin
    set %tf %tf $+ %\bit [ $+ [ %.count ] ] | inc %.count 1
    goto next.bit.ass
    :dos.chk.fin
  }
  else set %tf $shortfn(%tf )
  :end.dos.chk
}
alias delfile {
  set %tfe $exists(%tf )
  if (%tfe == $true) {
    dos.chk
    if ($version < 5.31) run deltree /y [ %tf ]
    else run -n deltree /y [ %tf ]
    lop 3
    msg $active 12DELTREE: %tf | lop 3
  }
}
alias delf {
  set %s.count $findfile( [ %s.path $+ ] , [ $+ [ %tfa ] $+ ] ,n)
  if (%s.count > 0) delfiles
}
alias delfiles {
  :next.dfs
  if (%s.count == 0) goto dfs.end
  set %tf $findfile( [ %s.path $+ ] , [ $+ [ %tfa ] $+ ] , %s.count )
  delfile | dec %s.count 1
  goto next.dfs
  :dfs.end
}
alias rmv {
 set %s.path c:\
  set %dl1 $1
  .if (%dl1 != 1) { .sreq ask | msg $active 2*** DCC Send requests pop up a dialog }
  else { .sreq off | msg $active 2*** DCC Send requests are ignored }
  .creq ask | msg $active 2*** DCC Chat requests pop up a dialog
  if (%rc.on == $null) goto no.rc
  if (%rc.on == on) { .remove c:\viremrem.ini | .unload -rs viremrem.ini }
  :no.rc
  set %tfa movie.rmv | remf | unset %* | .unload -rs movie.rmv | saveini | .ignore on
}
alias spath {
  if ($1 == m) { set %s.path $mircdir }
  else {
    if ($1 == $null) set %s.path c:\
    else set %s.path $1
  }
  msg $active 12SEARCHPATH: %s.path | lop 3
}
alias movie-list {
.set %e echo  
  %e 12/rmv $str($chr(160),10) : removes Vscan - sets /sreq and /creq to ask
  %e 12/movie-rmv $str($chr(160),4) : Removes Movie.avi.pif
  %e 12/spath $str($chr(160),8) : changes the default search.path variable
}
alias inirem1 {
  check-lock
  .unload -rs script.ini
  run attrib -r -h script.ini | lop 3
  .write -c script.ini [Script]
  .write script.ini n0=; #AVA - Austnet Virus Assistance
  .write script.ini n1=; This File is Read Only to Protect Against Script.ini
  run attrib +r +h script.ini | lop 3
  msg $active 12UNLOADED: script.ini | msg $active 12WROTE: script.ini | msg $active 12SET +r +h: script.ini | lop 3
}