管理人様こんばんは。いつも色々とご参考にさせていただいております。今回ちょっと管理人様のお力をお貸しいただきたいと思い書き込みさせていただきました。ギルドコマンドで店舗よりギルドへ資金援助が出来るのですが逆にギルド資金を店舗へ援助をするにはどうしたら良いのでしょうか？
多分ですがいじるファイルはinc-guild-cmd.cgiだと思います。
改造箇所は
sub GuildFundF
{
$stock=($DT->{money} - 100000);
$disp.="<BIG>●ギルド寄付</BIG>： 資金の余裕がありません",return if ($stock < 100000);
$disp.=<<STR;
<form action="action.cgi" $METHOD>
<INPUT TYPE=HIDDEN NAME=key VALUE="gd-s">
$USERPASSFORM
<INPUT TYPE=HIDDEN NAME=mode VALUE="fund">
<BIG>●ギルド寄付</BIG>： $term[0]
<SELECT NAME=cnt1>
<OPTION VALUE="0" SELECTED>
STR
$msg{1000}=1000;
$msg{10000}=10000;
$msg{100000}=100000;
$msg{1000000}=1000000;
$msg{$stock}="$stock(最大額)";
my $oldcnt=0;
foreach my $cnt (sort { $a <=> $b } (1000,10000,100000,1000000,$stock))
{
last if $stock<$cnt || $cnt==$oldcnt;
$disp.="<OPTION VALUE=\"$cnt\">$msg{$cnt}";
$oldcnt=$cnt;
}
$disp.=<<STR;
</SELECT>
$term[1]、もしくは $term[0]
<INPUT TYPE=TEXT SIZE=7 NAME=cnt2>$term[1]
<INPUT TYPE=SUBMIT VALUE="寄付する">
</FORM>
STR
}

をいじれば良いと思うのですがいまいち分かりません(;^-^;)
対象変数を入れ替えたりすれば良いかと思いますが具体的にどう改造したら良いか教えていただけると大変助かります。
何かとお忙しいかと思いますがよろしくお願いします。