私設SoS2オーナー応援BBS

新規発言一覧最新記事過去一覧検索ダウンロードページHOME

スレッド

└◇606:
Re[5]:あの・・・ [moon] 05/24 13:52

 └◇607:Re[6]:あの・・・ [戒] 05/24 14:38
  └◇608:Re[7]:あの・・・ [moon] 05/24 14:47
   └◇609:Re[8]:あの・・・ [戒] 05/24 14:54
    └◇610:Re[9]:あの・・・ [moon] 05/24 17:23
     └◇611:Re[10]:あの・・・ [戒] 05/24 18:07
      └◇612:Re[11]:あの・・・ [moon] 05/24 18:44
       └◇613:Re[12]:あの・・・ [戒] 05/24 19:09
        └◇614:Re[13]:あの・・・ [moon] 05/24 19:19
         └◇615:Re[14]:あの・・・ [戒] 05/24 19:29<-last


606● Re[5]:あの・・・[ moon ] 2003 05/24 13:52
> Missing right curly or square bracket at (eval 1) line 2614, at end of line
> syntax error at (eval 1) line 2614, at EOF

これなら、括弧の不整合です。
エラー行周辺ではなく改造した箇所の{}などの対応がとれているか確認してみてください。
スレッド一覧


607● Re[6]:あの・・・[ 戒 ] 2003 05/24 14:38

    foreach $line (@lstlines) {
        ($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
        $pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
        if ($psp =~ /Nc/ ) { next }

一つ目の追加したところです。
個人的にココの、最初の行の「}」が
足りないと思うのですがどうでしょうか?
もう少し下までコピペする必要があるのなら
指定していただければそこまで張ります^^
スレッド一覧


608● Re[7]:あの・・・[ moon ] 2003 05/24 14:47
> 一つ目の追加したところです。
> 個人的にココの、最初の行の「}」が
> 足りないと思うのですがどうでしょうか?
> もう少し下までコピペする必要があるのなら
> 指定していただければそこまで張ります^^

「最後の行」の書き間違いですよね。
載せられた文だと後ろのほうが無いのであからさまに{}の対応が取れていないので、もっと下まで確認してください。

# {}の対応を確認するだけなので聞くことも無いと思うのですが。
スレッド一覧


609● Re[8]:あの・・・[ 戒 ] 2003 05/24 14:54
# Sub Normal Action #
sub normal_action {
    @rcdlines = &get_user("$Fm{'id'}");
    &get_file; &list_in;
    print qq|<tr>|;
    &form('start');
    print qq|<td valign=top>|;
    print qq|<font color=#009AFA><br>▼プレイヤーと接触</font><br>\n|;
    &input('radio','mode','find_partner',' checked',"他のプレイヤーを探す<br>\n");
    &input('radio','mode','note_before','',"メール送信<br>\n");
    print qq|<div align=center><select name=pd>\n|;
    foreach $line (@lstlines) {
        ($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
        $pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
        if ($psp =~ /Nc/ ) { next }
        if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $mytw = $ptw ; }
        else {
        if ($tw eq $ptw) { $mark2 = "◆"; }
        else { $mark2 = "◇"; }
        if ($pav eq 'dead') { $mark = 'style=color:red'; }
        else { $mark = 'style=color:black'; }
        print qq|<option value="$pid" $mark>$mark2$pid:$pnm($pjb)\n|; }
    }
    print qq|</select> ID:|;
    &input('text','pd2','',' size=4','');
    print qq|</div>\n|;
    &OKbuttoninform('n');
    &form('end');
    &form('start');
    print qq|<div align=left>\n|;
    &input('radio','mode','find_partner',' checked',"NPCに会う \n");
    print qq|<select name=pd>\n|;

    @rcdlines = &get_user("$Fm{'id'}");
    foreach $line (@lstlines) {
        ($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
        $pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
    if ($psp !~ /Nc/ || $tw ne $ptw ) { next }

    if ($pjb !~ /△/){
    $pichi = "";
    $pjob_ = "($pjb)";
    }
    else{
    ($pjob_,$pichi) = split(/△/,$pjb);
    $pichi = "【$pichi】";
    print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
    }

    print qq|</select>\n|;
    print qq|</div>\n|;
    &OKbuttoninform('n');
    &form('end');

    &form('start');
    print qq|<font color=#DA70D6>▼行動をする</font><br>\n|;
    &input('radio','mode','idou','',"街を出る<br>\n") ;
    if ($mysp !~ /Pb/) { &input('radio','mode','find_item',' checked',"<font color=#20b2aa>草原探索</font><br>\n") if ($mytw eq 1); }
    if ($mysp !~ /Pb/) { &input('radio','mode','find_item2',' checked',"<font color=dimgray>岩山探索</font><br>\n") if ($mytw eq 2); }
    if ($mysp !~ /Pb/) { &input('radio','mode','find_item3',' checked',"<font color=#20b2aa>博打場探索</font><br>\n") if ($mytw eq 3); }
    if ($mysp !~ /Pb/) { &input('radio','mode','find_item4',' checked',"<font color=hotpink>街中探索</font><br>\n") if ($mytw eq 4); }
    if ($mysp !~ /Pb/) { &input('radio','mode','find_item5',' checked',"<font color=#66cdaa>農地探索</font><br>\n") if ($mytw eq 5); }
    if ($mysp !~ /Pb/) { &input('radio','mode','find_item6',' checked',"<font color=#20b2aa>草原探索</font><br>\n") if ($mytw eq 6); }
    print qq|<font color=#4169E1><br>▼アイテム関係</font><br>\n|;
    &input('radio','mode','use_before','',"アイテム使用・装備<br>\n")
    &input('radio','mode','dump_before','',"アイテムを捨てる<br>\n");
    &input('radio','mode','up_before','',"カード化をする<br>\n") if $mysp =~ /Ca/;
    &input('radio','mode','down_before','',"ゲインをする<br>\n") if $mysp =~ /Ca/;
    &input('radio','mode','stell_before','',"ステラツィオの設定<br>\n")    if $mysp !~ /Nf/;
    print qq|<font color=gray><br>▼設定変更</font><br>\n|;
    &input('radio','mode','goods_before','',"商品の設定<br>\n")            if $mysp =~ /Tv/ && $mysp !~ /Nf/;
    &input('radio','mode','goods_before',' checked',"商品の設定<br>\n")    if $mysp =~ /Nf/;
    &input('radio','mode','fee_before','',"治療費の設定<br>\n")            if $mysp =~ /Ad|Rv/;
    &input('radio','mode','judge_before','',"アイテム鑑定<br>\n")         if $mysp =~ /Eo/;
    &input('radio','mode','name_before','',"銘入り品の名前を変更する<br>\n") if $mybp =~ /Na/;
    &input('radio','mode','com_before','',"コメント文の変更<br>\n");
    &input('radio','mode','poem_before','',"詩・日誌を書く<br>\n")         if $mysp =~ /Wp/ || $mysp =~ /An/;
    &input('radio','mode','lv_before','',"レベルアップする<br>\n") if $mysp !~ /Ng/;

    if ($mysp !~ /X/) {
        &input('radio','mode','reward','','賞金首に金をかける ID:');
        &input('text','pd','',' size=4',' 金額:');
        &input('text','price','',' size=5','<br>');
    }
    print qq|<font color=#CC0033><br>▼保存をしてゲーム終了</font><br>\n|;
    &input('radio','mode','norm_save','',"町で保存\n");
    &input('radio','mode','hide_save','',"人里離れて保存<br>\n");
    &input('radio','mode','levy','',"<font color=red>税の徴収をして保存(注意)</font><br>\n") if $mysp =~ /Lv/;
    print qq|<br><b>▼データー管理</b><br>\n|;
    &input('radio','mode','del_before','',"キャラを削除\n");
    &input('radio','mode','back_up','',"バックアップ\n");
    &OKbuttoninform('n');
    print qq|</td>|;
    &form('end');
}

恐らくっというか
八割方ないと思われます・・・(^^:
スレッド一覧


610● Re[9]:あの・・・[ moon ] 2003 05/24 17:23
さすがに文法チェックくらいはしてください。

>     print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
>     }
に}が足りないです。

>     &input('radio','mode','use_before','',"アイテム使用・装備<br>\n")
に;がありません。
スレッド一覧


611● Re[10]:あの・・・[ 戒 ] 2003 05/24 18:07
申し訳ないです・・・・。
一応自分なりに見たのですが(^^;
一つ自分で発見して
直したのですが、どうもおかしくて・・・。
まさか2つあったとは・・・。

変更したらCGI自体は
無事動きました。

プレイヤー総数がNPCの数になってしまっていて、
NPCのリストの中にNPCが表示されていません・・・。
NPCの質屋にはしっかり
Ncっとスキル追加しておいたのですが。。
スレッド一覧


612● Re[11]:あの・・・[ moon ] 2003 05/24 18:44
> プレイヤー総数がNPCの数になってしまっていて、

これは状況がわかりません。
総数ってトップページに表示されるものですか?

> NPCのリストの中にNPCが表示されていません・・・。

print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
}
に}を追加するときに後ろに追加していませんか?
}は改造紹介で抜けているところなので勘違いしているかもしれませんが、おそらくは前に付けるのが正しいと思います。
スレッド一覧


613● Re[12]:あの・・・[ 戒 ] 2003 05/24 19:09
プレイヤー総数は、
CGIのトップに出ているやつですね。
「現在のプレイヤー総数」の上のです。

はい;;
勘違いしていました。
print qq|<option value="$pid">$pichi$pnm$pjob_\n|;}
}
こういう事になるのかと(滝汗)
直してみたところ無事治りました。
スレッド一覧


614● Re[13]:あの・・・[ moon ] 2003 05/24 19:19
> プレイヤー総数は、
> CGIのトップに出ているやつですね。
> 「現在のプレイヤー総数」の上のです。

sub list_orderを変更した箇所の!~を=~にすればOKのはずです。
スレッド一覧


615● Re[14]:あの・・・[ 戒 ] 2003 05/24 19:29
無事問題は解決しました♪
迅速で的確なサポートで、
とても助かりました。
本当にありがとうございます。

また困った時に
来るかもしれませんが、
そのときはまたよろしくお願いします。
スレッド一覧

CGIROOM