public
Description: SweeperBot - Play Windows minesweeper automatically
Homepage: http://sweeperbot.org/
Clone URL: git://github.com/pfenwick/sweeperbot.git
Click here to lend your support to: sweeperbot and make a donation at www.pledgie.com !
sweeperbot / MakeExe.pl
100644 45 lines (35 sloc) 0.826 kb
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
#!/usr/bin/perl -w
use strict;
use lib 'lib';
use IPC::System::Simple qw(run);
require App::SweeperBot;
 
my $output = q{SweeperBot.exe};
my $input = q{bin\sweeperbot.pl};
 
my @dlls = qw(
CORE_RL_bzlib_
CORE_RL_jpeg_
CORE_RL_lcms_
CORE_RL_magick_
CORE_RL_tiff_
CORE_RL_ttf_
CORE_RL_zlib_
IM_MOD_RL_rgb_
IM_MOD_RL_rle_
X11
);
 
my @info = (
qq{FileVersion=$App::SweeperBot::VERSION},
qq{FileDescription="Play minesweeper automatically"},
qq{LegalCopyright="May be distributed or modified under the terms of Perl 5"},
);
 
 
 
my $magick_path = q{c:\perl\site\lib\auto\Image\Magick};
 
foreach my $dll (@dlls) {
-e "$magick_path/$dll.dll" or die "Can't find $magick_path/$dll.dll";
}
 
run(
q{pp.bat},'-o', $output, '-I=lib',
( map { "-l=$magick_path\\$_.dll" } @dlls),
'-N', join(";",@info),
qw(-z 9),
$input
);