@@ITEM
no99
type本
codeuport-exp
name上級転職のススメ
infoもっと上の仕事に転職したい人のために
price20000
limit1
pop1d
scaleセット
plus8h
@@USE
time6h
action転職修行開始
argnocount
name刀屋へ転職したい
info他の職業の技術経験を全て捨て、刀屋に必要な技術を習得します
okmsg刀屋になれた気がします
param81,81:82:83:84:85:86:87:88:89:90:91:92:93:94:95:96:97:98:101:102:103:105:106,0.5,uweapon
use1上級転職のススメ
func_local_
######################################################################
# ★熟練度交換（指定アイテムへ、他のアイテムの熟練度を移動させる）
# param1 熟練度をプラスしたいアイテムの番号(1~)
# param2 熟練度をマイナスするアイテムの番号(1~) (:区切りで複数指定化)
# param3 熟練度を移動する際の係数（0~) (0.5だと半分にして移動)
# 注意：熟練度の合計チェックはしていないので、係数を1より大きくする
のはやめた方がいいです。
######################################################################
my $ret="";

if($USE->{param1})
{
my $exp1=$DT->{exp}{$USE->{param1}};
my $exp2=0;

foreach my $exps (split(/:/,$USE->{param2}))
{
my $exp=$DT->{exp}{$exps};
next if !$exp || $exps==$exp1;
$exp2+=$exp;
delete($DT->{exp}{$exps});
my $msg=$ITEM[$exps]->{name}."の熟練度 ".int($exp/10)."% が 0% にな
りました";
$ret.=$msg."<br>";
WriteLog(0,$DT->{id},$msg);
}
$exp2=int($exp2*$USE->{param3});
$exp1+=$exp2;
$exp1=1000 if $exp1>1000;
my $msg=$ITEM[$USE->{param1}]->{name}."の熟練度
".int($DT->{exp}{$USE->{param1}}/10)."%
が ".int($exp1/10)."% になりました";
$ret.=$msg."<br>";
WriteLog(0,$DT->{id},$msg);
$DT->{exp}{$USE->{param1}}=$exp1;
}

$DT->{job}=$USE->{param4},$ret.='職業が「'.$main::JOBTYPE{$USE->{param4}}.'
」になりました' if $USE->{param4} && $USE->{param4} ne '_default_';
$DT->{job}='',$ret.='職業が「不定」になりました' if $USE->{param4} eq
'_default_';

return $ret;
_local_
@@USE
time6h
action転職修行開始
argnocount
nameナイフ屋へ転職したい
info他の職業の技術経験を全て捨て、ナイフ屋に必要な技術を習得します
okmsgナイフ屋になれた気がします
func_local_1
param82,81:82:83:84:85:86:87:88:89:90:91:92:93:94:95:96:97:98:101:102:103:105:106,0.5,uweapon
use1上級転職のススメ

商品データ生成画面

ITEM　99　上級転職のススメ
　USE　0　刀屋へ転職したい　10800　local func
　USE　1　ナイフ屋へ転職したい　10800
　USE　2　槍屋へ転職したい　10800
　USE　3　鎌屋へ転職したい　10800
　USE　4　ブーメラン屋へ転職したい　10800
　USE　5　宝石屋へ転職したい　10800
　USE　6　サーベル屋へ転職したい　10800
　USE　7　包丁屋へ転職したい　10800
　USE　8　矛屋へ転職したい　10800
　USE　9　斧屋へ転職したい　10800
　USE　10　手裏剣屋へ転職したい　10800
　USE　11　シミター屋へ転職したい　10800
　USE　12　錘屋へ転職したい　10800
　USE　13　上級手裏剣屋へ転職したい　10800
　USE　14　上級剣屋へ転職したい　10800
　USE　15　上級盾屋へ転職したい　10800
　USE　16　上級鎧屋へ転職したい　10800
　USE　17　上級杖屋へ転職したい　10800
　USE　18　上級弓屋へ転職したい　10800
　USE　19　白魔法研究家へ転職したい　10800
　USE　20　黒魔法研究家へ転職したい　10800
　USE　21　白魔法武具屋へ転職したい　10800
　USE　22　黒魔法武具屋へ転職したい　10800
ITEM　78　転職のススメ
　USE　0　薬屋へ転職したい　10800　local func
　USE　1　革細工屋へ転職したい　10800
　USE　2　木工細工屋へ転職したい　10800
　USE　3　装飾細工屋へ転職したい　10800
　USE　4　剣屋へ転職したい　10800
　USE　5　盾屋へ転職したい　10800
　USE　6　鎧屋へ転職したい　10800
　USE　7　杖屋へ転職したい　10800
　USE　8　弓屋へ転職したい　10800
　USE　9　探鉱夫へ転職したい　10800
　USE　10　木こりへ転職したい　10800
　USE　11　洞窟探検家へ転職したい　10800
　USE　12　本屋へ転職したい　10800
　USE　13　酪農家へ転職したい　10800
　USE　14　行商人へ転職したい　10800
　USE　15　看板を下ろしたい　10800

原因があると思うところを載せました。
もしかして熟練度を移動するアイテムが多すぎるといけないのでしょうか？

熟練度を移動するアイテムが多くても、正しく記述していれば、問題ありません。

エラーが出ていないので、掲示板に書き込む際に詰めたのかもしれませんが、「no99」「codeuport-exp」などは、「no 99」「code uport-exp」などと、すべて半角スペースで区切りましょう。

試しに上の文を、すべて半角スペースで区切って私のデータに入れたところ、問題なく動作しました。もし、書き込む前は、いろいろな部分にスペースが入っていて、書き込み時に削除されたのであれば、そのスペースに原因があるかもしれません。スペースは、半角スペースとタブスペースのみ使うようにしてみてください。

一応コレHPです↓
http://www23.tok2.com/home/varonxv/

はじめまして。
どのようなエラーが出るのか教えていただかないと、エラーの原因がわかりません。商品データの書き方は、マニュアルにも載っていますし、他のデータのコピーでも大丈夫ですが、アイテム番号(no)やコード(code)は他のアイテムと重複しないように指定しなければなりません。また、全角スペースでエラーが出る場合もあります。「サーバーの負担を軽減するためにファイルをわける方法」については、申し訳ありませんが、知りません。

はじめまして。いろいろな原因が考えられますので、以下に挙げたいと思います。
�@自作ＣＧＩが使えないサーバーである
サーバーでＣＧＩが使えない場合がありますので、ＣＧＩ掲示板やアクセスカウンターなどを自分で設置したことがない場合は確認してみてください。予め用意されているものは使えても、自分で設置することはできない場合もあります。
�AＣＧＩの利用に特別なきまりがある
例えば、infoseekのサーバーではcgi-binフォルダに入れなければならないですし、plalaだと別に申込が必要です。また、あまり見たことはありませんがperlのパスの変更の必要がある場合や、cgiファイルのパーミッション設定を755ではなく704で設定するサーバーもあります。
�Bファイルの文法が間違っている
文末に半角セミコロンが入っていない、全角スペースが変なところで使われているなどの文法ミスがあると正しく動作しません。また、「ソ」「能」など、シフトJISで文字化けする文字が含まれていると、もしかするとうまく動作しないかもしれません。そのような文字がある場合は「\ソ\」のように「\」で囲って見てください。特に、文末で「ソ」が使われていて、「ソ'」となっている場合など、おかしくなるかもしれません。
�CＦＴＰソフトの設定が間違っている
cgiファイルはテキスト(アスキー)モードで転送してください。おそらく、自動で判別される場合はきちんとされていると思います。また、「すべて大文字にして転送」などのようになっていないか確かめましょう。５００エラーだと、大文字になっていることはないと思いますが。

主に以上の理由が考えられますので、いろいろ確認してみてください。

返事が遅れましたが、無事設置することが出来ました。
今後もたまに顔を出すのでよろしくお願いします。

本当にありがとうございました。

無事設置できてよかったですね。
今後ともよろしくお願いします。

凍結しておきました〜。

明日の今頃にinしたいので、復帰をお願いします。

わかりましたー。昼過ぎに解除しておきます。

はじめまして。
あっているかわかりませんが、403エラーが出るということは、パーミッションが間違っている可能性があります。
また、infoseekのサーバーは、cgiファイルは特別なディレクトリに入れなければならず、直接アドレスを打ち込んでも呼び出せないようになっていたと思います。自分のホームページからCGIファイルへのリンクを貼って、そこからアクセスしてみてください。

以下のページの「サーバーの仕様に関する情報」が関係あると思いますので、参考にしてみてください。
http://isweb.www.infoseek.co.jp/Icont?pg=iw_spec.html

http://isweb.www.infoseek.co.jp/Icont?pg=iw_spec.html
に書いてあった通り、
「cgi-bin」というフォルダの中に
商人物語のファイルをすべて入れて
アップロードしてみたのですが、
今度は500エラーが出てきました・・・・
ちなみにトップ絵ギャラリーの下の方に
リンクを貼ってみました。

まず、ファイルの文法を間違えていると500エラーが出るようです。例えば、「$TOWN_TITLE='港町';」で、間違えて「'」や「;」を消してしまっていないか確認してみてください。スペースを使っている場合は、詰めてみてください。あと、パーミッションも確認してみましょう。
このくらいしか、思いつきません。ひとつずつ手順を確認してみてください。

出来ました!!
本当にありがとうございます(TдT)

これからもここにちょくちょく来るので
これからもよろしくお願いします^^
本当にありがとうございました!!

うまく動いてよかったですね。
商人物語の運営がんばってください。