First pass at a script to change the mayor and organisation name in SimCity 2000 for DOS

chmayor.pl

#!/usr/bin/env perl

# Change the mayor's name in SimCity 2000
#
# You should probably stick with plain ASCII if you use it.

use strict;
use warnings;

use bytes;

open my $fh, '+<', 'SC2000.DAT'
    or die("Unable to open SC2000.DAT, please run from SC2000 install dir");
binmode $fh;

print "Enter Mayor Name : ";
my $mname = <STDIN>;
chomp ($mname);

print "Enter Organisation Name : ";
my $oname = <STDIN>;
chomp ($oname);

sysseek $fh, 0x1E563D, 0;

syswrite $fh, pack('a32', $mname), 32;

# Org name overflows on title screen if we fill all 32 chars.
syswrite $fh, pack('a31', $oname), 31;
syswrite $fh, pack('a1', ''), 1;
close $fh;