version 1.68, 2005/06/08 16:10:01
|
version 1.69, 2005/06/08 16:35:46
|
Line 205 sub mapread {
|
Line 205 sub mapread {
|
my ($command,$number,$content)=split(/\<\:\>/,$_); |
my ($command,$number,$content)=split(/\<\:\>/,$_); |
if ($command eq 'objcont') { |
if ($command eq 'objcont') { |
my ($title,$src,$ext,$type)=split(/\:/,$content); |
my ($title,$src,$ext,$type)=split(/\:/,$content); |
|
if ($ext eq 'cond') { next; } |
if ($type ne 'zombie') { |
if ($type ne 'zombie') { |
$resources[$number]=$content; |
$resources[$number]=$content; |
} else { |
} else { |
Line 556 sub storemap {
|
Line 557 sub storemap {
|
} |
} |
} |
} |
} |
} |
|
for (my $i=0; $i<=$#zombies; $i++) { |
|
if (defined($zombies[$i])) { |
|
$output.='<&>objcont<:>'.$i.'<:>'.$zombies[$i]; |
|
} |
|
} |
$output=~s/http\&colon\;\/\///g; |
$output=~s/http\&colon\;\/\///g; |
$env{'form.output'}=$output; |
$env{'form.output'}=$output; |
return |
return |