Eメール
お名前
題 名  ※投稿キーは必須です!
本文
URL
アイコン   [イメージ参照]
暗証キー (英数字で8文字以内)
投稿キー (投稿時 投稿キー を入力してください)
文字色

最新の投稿 / ↑前のページ / ↓次のページ

No.489 ワールドアトラス追加スクリプトについて - 天邪鬼
/
 

はじめまして。
このたびワールドアトラスを設置することになり、追加スクリプトをいくつか使わせていただきました。
事後報告になりましたが、ありがとうございます。

今テストをしている段階なのですが、過去ログNo.401を参考にさせていただいて下記の説明どおり変更してみたのですが、上手くいきません。
初心者なので、お手数ですが再度ご説明いただけるとうれしいのですが。

>説明不足で申し訳ありません。stock.cgiを変更しています。
$ITEM[$no]->{name}.="(出港中)" if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));
の部分を、
main::RequireFile('inc-sea.cgi');
my @subdata=main::ReadSeaSub("$DT->{id}-exp$no");

my $t = int((12-($subdata[0] - $main::NOW_TIME)/3600)/12*100);
$t = 0 if ($t < 0);
$t = 100 if ($main::NOW_TIME > $subdata[0]);

$ITEM[$no]->{name}.=" ".GetRankMessage($t*100)." " if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));
と変更します。

どうぞよろしくお願いいたします。

2011/05/31(Tue) 16:38
No.490 Re: ワールドアトラス追加スクリプトについて - GEN
 

スクリプトご利用ありがとうございます。

アトラスについてですが、これは保管倉庫に、船が帰還するまでの時間の目安をバーで表示させる改造です。
stockの該当箇所を
if ($no > 25 && $no < 38)
{

main::RequireFile('inc-sea.cgi');
my @subdata=main::ReadSeaSub("$DT->{id}-exp$no");

my $t = int((14-($subdata[0] - $main::NOW_TIME)/3600)/14*100);
$t = 0 if ($t < 0);
$t = 100 if ($main::NOW_TIME > $subdata[0]);


$ITEM[$no]->{name}.="</a> ".GetRankMessage($t*100)." " if -e(GetPath($SUBDATA_DIR,$DT->{id}."-exp".$no));


}

と変えています。コピー&ペーストしてもおかしいままでしょうか。

船関係のアイテム番号が変わっているとうまくいかないと思います。

どのようにうまくいかないのか、エラーの内容などあれば具体的に教えていただけると、原因がわかるかもしれません。

2011/05/31(Tue) 22:49
No.491 Re: ワールドアトラス追加スクリプトについて - 天邪鬼
 

迅速な対応ありがとうございます。
上記のタグをコピー&ペーストで貼り付けてみたのですが、倉庫内の表示が下記のようになります。

11%
" SRC="./image/item-no-27.png">第二探検船団 11%
15%
" SRC="./image/item-no-28.png">第三探検船団 15%
13%
" SRC="./image/item-no-29.png">第四探検船団 13%

船団のアイコン部分が表示されません。%のバーは表示されます。
アイテム番号は変更しておりませんが、画像デレクトリにある船団のアイコン番号は26〜27の12個です。

お手数をおかけして申し訳ありません。

2011/06/01(Wed) 00:36
No.492 Re: ワールドアトラス追加スクリプトについて - GEN
 

なかなか原因がわからないのですが、ページの該当部分のソースを添付していただけないでしょうか。ちなみに、私はこんな感じになっています。

<TD><A HREF="action.cgi?key=item&no=30&bk=s&"><IMG class="i" SRC="./image/item-no-30.png">第一貿易船団</a> <nobr><img src="./image/b.gif" width="10" height="12"><img src="./image/t.gif" width="90" height="12"> 10%</nobr><br> </A><TD

何らかの理由で、ソースの一部が欠けてしまっているため、正常に表示されていない可能性があります。

2011/06/02(Thu) 22:01
No.493 Re: ワールドアトラス追加スクリプトについて - 天邪鬼
 

大変ご迷惑をおかけして申し訳ありません。
同じ個所だと思いますので、貼り付けさせていただきます。

<TD><A HREF="action.cgi?key=item&no=28&bk=s&"><IMG class="i" ALT="第三探検船団</a> <nobr><img src="./image/b.gif" width="100" height="12"> 100%</nobr><br> " SRC="./image/item-no-28.png">第三探検船団</a> <nobr><img src="./image/b.gif" width="100" height="12"> 100%</nobr><br> </A><TD>

お時間のある時にでも見ていただければ結構です。
どうぞよろしくお願いいたします。

2011/06/02(Thu) 23:51
No.494 Re: ワールドアトラス追加スクリプトについて - GEN
 

program>plugフォルダ内のimg.cgiのバージョンは、何になっていますでしょうか。私は、

# img プラグイン 2003/09/25 由來

です。

私の想像では、このソースのGetTagImgItemType内が、

if(!$MOBILE)
{
return qq|<IMG class="s" SRC="$IMAGE_URL/item-typesign$type$IMAGE_EXT">| if $mode==1;
if($ITEM->{existimage})
{
my $filename=$ITEM->{existimage}==1 ? "item-code-$ITEM->{code}" : "item-no-$itemno";
return qq|<IMG |.($mode==2?'width="32" height="32"':'class="i"').qq| SRC="$IMAGE_URL/$filename$IMAGE_EXT" alt="$name">|;
}
return qq|<IMG class="i" SRC="$IMAGE_URL/item-type$type$IMAGE_EXT" alt="$name">| if $mode!=2;
return "";
}

という感じになっているのではと思います。このソースの中の、「alt="$name"」を削除すると、表示が直ると思います。

2011/06/03(Fri) 22:51
No.495 Re: ワールドアトラス追加スクリプトについて - GEN
 

alt="$name"

ではなく、

ALT="$ITEM[$itemno]->{name}"

だと思います。もしこれがあったら、削除してみてください。

2011/06/03(Fri) 23:09
No.496 Re: ワールドアトラス追加スクリプトについて - 天邪鬼
 

ご指示いだいた通り
plugフォルダ内のimg.cgiの ALT="$ITEM[$itemno]->{name}" を削除しましたところ、きちんと表示されました。

ご親切に対応していただきまして、本当にありがとうございました。
また、お世話になることがあるかもしれませんが、どうぞよろしくお願いします。

2011/06/03(Fri) 23:54
No.497 Re: ワールドアトラス追加スクリプトについて - GEN
 

うまくいってよかったですね。

2011/06/04(Sat) 14:26
No.473 げんちゃん街からの輸出について - 相模屋
/
 

現在げんちゃん街→他街への輸出が正しく機能していないようです。具体的には
1.貿易品リストで期限が「まもなく」になっているものが輸出完了にならない。
2.宅配便リストで「輸出待ち」になっているものの一部が、いつまで待っても貿易品リストに加わらない。

こちらのサーバーに原因があるのか、相手先(商街、豚商)の問題なのかは判断がつきませんが、とり急ぎご報告まで。
恐れ入りますがご対応をお願いします。

2011/03/18(Fri) 01:52
No.474 Re: げんちゃん街からの輸出について - 相模屋
 

自己レス。
2011/3/17を以て貿易サイトの1つであったクロッキーWebが閉鎖されましたが、もしやその事に伴う不具合でしょうか?

2011/03/18(Fri) 02:00
No.476 Re: げんちゃん街からの輸出について - GEN
 

クロッキーWEBさんに貿易センターが設置されていたので、
閉鎖により機能しなくなったようです。
2/15にクロッキー様からその旨連絡ありました。
こちらでは貿易を一度削除することとします。
返信遅れまして申し訳ありません。

2011/03/19(Sat) 20:43
No.486 Re: げんちゃん街からの輸出について - キング
 

初めまして。げんちゃん街のキングです。
げんちゃん街での貿易は再開しないのですか?

2011/04/02(Sat) 14:24
No.487 Re: げんちゃん街からの輸出について - GEN
 

貿易は、貿易センターという、とりまとめをするサイトが必要です。クロッキーWEBさんはそのとりまとめ側だったため、サイト閉鎖に伴い、現在貿易が停止しております。

本日新たに、マイホームFlash館(ttp://myhome.ryuhoku.jp/akindo/index.html)様に貿易センター参加依頼を出しました。近日中にそちらとの貿易が可能になると思います。よろしくお願いします。

2011/04/03(Sun) 11:02
No.488 Re: げんちゃん街からの輸出について - キング
 

わかりました

2011/04/03(Sun) 18:29
No.482 質問させて頂きます - るひ
/
 

始めまして。
るひと申します。

質問で、、商人物語で顔アイコンを変える独自関数を用いたいのですが、
$DT->{icon}からのつなげ方が分かりません。
マニュアルとにらめっこして、いろいろ試してみたのですがなかなかできません。

お時間取らせ申し訳ないですが、お願いします。

2011/03/25(Fri) 21:09
No.483 Re: 質問させて頂きます - GEN
 

$DT->{icon}=顔アイコンの番号;

と記述します。例えば、kao5.pngのアイコンにしたいのなら、
$DT->{icon}=5;
とかです。アイテム内でも使えると思います。

たとえば、デフォルトの顔アイコンが30までだとして、フォルダにkao99.pngを入れておいて、アイテムでのみ設定可能とすれば、ある条件を満たさないと使えない顔アイコンが設定できて楽しそうですね。

$DT->{icon}=int(rand($ICON_NUMBER))+1;
で、ランダムに顔アイコンが変わります。

2011/03/25(Fri) 23:06
No.484 Re: 質問させて頂きます - XKY-Group
 

商人物語では使えるかどうか分かりませんが、
番号のところに文字列を入れても確か使えた記憶があります。

$DT->{icon}="auction";
ってやると多分kaoauction.pngが読み込まれる(はず)。

2011/03/26(Sat) 14:04
No.485 Re: 質問させて頂きます - るひ
 

GENさん、 XKY-Groupさん早いご回答ありがとうございます

案外記述少なくて良かったのですね…
管理人アイコンやイベントの賞品とかに使えそうです

ありがとうございました

2011/03/26(Sat) 18:41
No.475 こんにちは。 - カオス
/
 

始めましてこんにちは。
時代遅れと感じながら商人物語を運営しておりますカオスと申します。

このたびは改造しようにもまったくといっていいほど
データ記述がわからず。プレイヤーのみなさまにご迷惑をおかけ手している最中でございます。

本題に入らせていただき単刀直入に申し上げますと
CPUが反乱しますよね。兵力・反乱する確立を減らしたいのです。

誠に他人頼りで情けないかぎりではありますが
何卒、ご教授ください。おねがいします。

2011/03/18(Fri) 18:51
No.477 Re: こんにちは。 - GEN
 

inc-period.cgiの下のほうの以下のあたりが、反乱に関係しているようです。

return if !defined($id2idx{$STATE->{leader}});
my $i=int(15000 - $STATE->{develop} - $STATE->{safety} - rand(2500));
my $ii=int(50000000 - $STATE->{money} - rand(5000000));
return if ($i > 1000)&&($ii > 5000000);
PushLog(2,0,"$BAL_JOB$BAL_NAMEが不穏な動きを見せています。"),return if ($i > 0) && ($ii > 0);
if (rand(100) < 30)
{
$DTevent{rebel}=$NOW_TIME+86400*3;
$STATE->{robinb}=10000;
PushLog(2,0,"$BAL_JOB$BAL_NAMEが街に攻め込み,反乱を起こしました!");
}
else
{
PushLog(2,0,"$BAL_JOB$BAL_NAMEが攻める時機をうかがっているようです。");

いろいろな条件を考慮した上で、最終的に、rand(100) < 30、
つまり、0から100でランダムに決められる数が30以下、すなわち30%の確率で反乱が起きるという設定ですので、これを例えばrand(100) < 3 にすれば反乱が起きる確率は3%になります。

違っていたらすいません。

2011/03/19(Sat) 21:09
No.481 Re: こんにちは。 - カオス
 

GEN様。

こんばんは。
GEN様の適切なアドバイス通りにファイルをすこしいじり、
たぶん成功したと思われます。

対応してくださりありがとうございました。

2011/03/23(Wed) 22:01
No.471 凍結のお願い - XKY-Group
/
 

本日実家に帰りますので、日曜日まで凍結をお願いしたいです。
凍結開始はこの投稿を確認されてからでお願いします。

2011/03/15(Tue) 08:16
No.472 Re: 凍結のお願い - GEN
 

凍結しました。

2011/03/17(Thu) 07:06
No.478 Re: 凍結のお願い - XKY-Group
 

実家から戻りました。この投稿を確認されてからで構いませんので凍結の解除をお願いします。

2011/03/20(Sun) 08:29
No.479 Re: 凍結のお願い - GEN
 

解除しました〜。

2011/03/20(Sun) 10:37
No.480 Re: 凍結のお願い - XKY-Group
 

ありがとうございます。

2011/03/20(Sun) 16:42

最新の投稿 / ↑前のページ / ↓次のページ

Page: | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | |

No. 暗証キー

- YY-BOARD / 改造:げんちゃんゲームランド-