StarCraft

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
var fso, source, e, x, label_sc, label_bw, mpq, msg,msgtail, dest_sc, dest_bw;
wsh = WScript.CreateObject("WScript.Shell");
fso = WScript.CreateObject("Scripting.FileSystemObject");
e = new Enumerator(fso.Drives);
source = "";
label_sc = "STARCRAFT";
label_bw = "BROODWAR";
mpq = ":\\INSTALL.EXE";
dest_sc = ".\\StarCraft.mpq";
dest_bw = ".\\BroodWar.mpq";
if (wsh.Popup("Скрипт скопирует нужные файлы с дисков StatCraft и StarCraft: BroodWar\nНаличие свободного места не проверяется - лень :)\nПродолжить?", 0, "", 36) == 6)
{
sc = fso.FileExists(dest_sc);
bw = fso.FileExists(dest_bw);
if (sc && bw)
{
wsh.Popup("Всё уже украдено до нас!", 0, "", 48);
}
else
{
msg = "Вставьте диск ";
msgtail = "\nНажмите OK и ждите следующего сообщения"
if (!sc && !bw) wsh.Popup(msg + label_sc + msgtail, 0, "", 48)
else if (!sc) wsh.Popup(msg + label_sc + msgtail, 0, "", 48)
else if (!bw) wsh.Popup(msg + label_bw + msgtail, 0, "", 48);
for (; !e.atEnd(); e.moveNext())
{
x = e.item();
if (x.DriveType == 4 && x.IsReady)
{
if (!sc && x.VolumeName == label_sc)
{
source = source + x.DriveLetter + mpq;
fso.CopyFile(source, dest_sc);
if (sc = fso.FileExists(dest_sc)) WScript.Echo("STARCRAFT готов!")
else WScript.Echo("Что-то сломалось!");
if (!bw) wsh.Popup(msg + label_bw + msgtail, 0, "", 48);
}
if (!bw && x.VolumeName == label_bw)
{
source = source + x.DriveLetter + mpq;
fso.CopyFile(source, dest_bw);
if (bw = fso.FileExists(dest_bw)) WScript.Echo("BROODWAR готов!")
else WScript.Echo("Что-то сломалось!");
if (!sc) wsh.Popup(msg + label_sc + msgtail, 0, "", 48);
}
}
}
}
}