| hakoniwaＲＡの改造 | |
|---|---|
| 対象プログラム | hakoniwaＲＡ ver030314 |
| 内容 | 地形変更コマンドに生物大学の能力を追加する |
| 説明 | 地形変更コマンドによって、生物大学の、ＨＰ、ＤＰ、ＡＰ、ＳＰ 経験値を上げられるようになります。 この改造を行うには予め、地形変更コマンドがあることが前提です。 地形を新たに追加しているときは、66〜70の番号を適当に直して使用して下さい。 |
| 日付 | 2006/1/21 |
| 作者 | 片翼の天使 |
| 履歴 | ― |
tempCommandDelete();
} elsif($HcommandKind == $HcomIjiri) {
if(($lamount1 == 66)||
($lamount1 == 67)||
($lamount1 == 68)||
($lamount1 == 69)||
($lamount1 == 70)){
my($eisei5,$mshp, $msap, $msdp, $mssp, $mswin, $msexe, $tet);
$eisei5 = $island->{'eisei5'};
$eisei5 =~ /^([0-9]*),([0-9]*),([0-9]*),([0-9]*),([0-9]*),([0-9]*),([0-9]*)$/;
($mshp, $msap, $msdp, $mssp, $mswin, $msexe, $tet) = ($1, $2, $3, $4, $5, $6, $7);
if($lamount1 == 66){
if($lamount2 > 15){$lamount2 = 15;}
$mshp = $lamount2;
}elsif($lamount1 == 67){
$msap += $lamount2;
}elsif($lamount1 == 68){
$msdp += $lamount2;
}elsif($lamount1 == 69){
$mssp += $lamount2;
}elsif($lamount1 == 70){
$msexe += $lamount2;
}
$island->{'eisei5'} = "$mshp,$msap,$msdp,$mssp,$mswin,$msexe,$tet";
}else{
my($land) = $island->{'land'};
my($landValue) = $island->{'landValue'};
$land->[$HcommandX][$HcommandY] = $lamount1;
$landValue->[$HcommandX][$HcommandY] = $lamount2;
}
} else {
if($HcommandMode eq 'insert') {
slideBack($command, $HcommandPlanNumber);
}
} else {
return '枯死海';
}
} elsif($land == 66) {
return '生物大：ＨＰ';
} elsif($land == 67) {
return '生物大：ＡＰ';
} elsif($land == 68) {
return '生物大：ＤＰ';
} elsif($land == 69) {
return '生物大：ＳＰ';
} elsif($land == 70) {
return '生物大：経験値';
}
}
1;