/ScriptServ

; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
; 
; Addon Name: [Anti-Virus] 2000
; Author: The_Outlaw (Ricardo Jorge)
; Web Site: http://theoutlawaddons.cjb.net
; E-Mail: The_Outlaw@theoutlaw.org
;
;
; ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
on 1:load: { 
  .echo -a 14,1×15,1×0,1× Thanks for choosing 14,1[0Anti-Virus14,1]0,1 2000 coded by The_Outlaw
  .echo -a 14,1×15,1×0,1× Type 4,1/avirus0,1 to run 14,1[0Anti-Virus14,1]0,1 2000
  theoutlaw
}
alias theoutlaw {
  window -alk +ef @avirus $centerwin(370,199) 370 199 @avirus Fixedsys | clear @avirus
  aline @avirus         Welcome to Anti-Virus 2000
  aline @avirus $chr(160) 
  aline @avirus   Anti-Virus 2000 Properties:
  aline @avirus $chr(160) 
  aline @avirus × Author: The_Outlaw
  aline @avirus × Web Site: http://theoutlawaddons.cjb.net
  aline @avirus × Coded in: 27 Sun Aug, 27/8/2000
  aline @avirus $chr(160) 
  aline @avirus Thank you by using this addon...
  aline @avirus Much others addons are or will be in...
  aline @avirus      http://theoutlawaddons.cjb.net 
  aline @avirus $str($chr(160),33) The_Outlaw
}

menu @avirus {
  Send Mail:/run mailto:The_Outlaw@theoutlaw.org?subject=[Anti-Virus] 2000 by The_Outlaw
  Visit Web Site:/run  http://theoutlawaddons.cjb.net
  -
  Close:/window -c @avirus
}
alias avirus { /dialog -m avirus avirus }
dialog avirus {
  Title "[Anti-Virus] 2000 by The_Outlaw"
  Size -1 -1 240 220 
  button "Find", 5, 160 20 60 20
  combo 2, 10 20 120 160, drop,size
  box "Virus", 3, 5 5 130 45
  box "Resaults", 4, 5 50 230 100
  edit "", 6, 10 65 225 80, multi, vsbar, read
  button "Close", 7, 5 195 230 20, ok
  text "Copyright 2000 by The_Outlaw (PTnet)", 8, 5 155 230 20, disable, center
  button "@", 9, 5 175 100 20
  button "W", 10, 105 175 100 20
  button "M", 11, 205 175 30 20
}
on 1:dialog:avirus:*:*: {
  if $devent == init {
    /did -a avirus 6                         Anti Virus $+ $crlf 
    /did -a avirus 6 ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ $+ $crlf 
    /did -a avirus 6 Copyright 2000 by The_Outlaw (PTnet) $+ $crl
    /did -a avirus 2 Script.ini
    /did -a avirus 2 Back Orifice (BO)
    /did -a avirus 2 Dmsetup
    /did -a avirus 2 mircpaint
    /did -a avirus 2 buny69
  }
  if $devent == sclick {
    if ($did == 5) {
      if ($did(2).sel == 1) { /did -ra avirus 6 Wait please...... | if ($exists(script.ini) == $false) /did -ra avirus 6  You not infected with Script.ini | else /did -ra avirus 6 You are infected with script.ini! Type /rem sc to remove Script.ini virus  }
      if ($did(2).sel == 2) { /did -ra avirus 6 Wait please...... | if  ($exists(c:\Windows\System\WINDLL.DLL) == $true) infobo  | else /did -ra avirus 6 You aren't infected with Back Orifice (BO) }
      if ($did(2).sel == 3) { /did -ra avirus 6 Wait please...... | if  ($exists($findfile($root $+ ,dmsetup.exe,1)) == $true) infodm  | else /did -ra avirus 6 You are not infected with DmSetup.exe }
      if ($did(2).sel == 4) { /did -ra avirus 6 Wait please...... | if  ($exists($findfile($root $+ ,mircpaint.exe,1)) == $true) infomp  | else /did -ra avirus 6 You are not infected with mircpaint }
      if ($did(2).sel == 5) { /did -ra avirus 6 Wait please...... | if  ($exists($findfile($root $+ ,buny69.exe,1)) == $true) infobn  | else /did -ra avirus 6 You're not infected with buny69.exe }
    }
    if ($did == 9) { run mailto:The_Outlaw@theoutlaw.org?subject=[Anti-Virus] 2000 by The_Outlaw }
    if ($did == 10) { run http://theoutlawaddons.cjb.net }
    if ($did == 11) { .timermemo 1 0 the.memo }
  }
}
alias the.memo { if ($?!="Do you want to send a memo to The_Outlaw (PTnet)?" == $true) { msg.memo } }
alias msg.memo { 
  :start
  /set %memo.temp $?="Msg to send:"
  if ($! == $null) { goto start }
  if ($server == $null) { /echo -a You're no connected to a server.... type /server irc.ptnet.org to connect.... }
  if ($server != $null) { /memoserv send The_Outlaw %memo.temp | /unset %memo.temp }
}