*討伐でレアアイテムゲット＆称号 [#ff83a654]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[くまくー]]
-優先順位: 普通
-状態: 完了
-カテゴリー: こんなのが欲しい♪
-投稿日: 2004-04-16 (金) 01:10:27
-バージョン:
**メッセージ [#qb366139]
毎度お馴染みでお世話になります☆討伐で特定のモンスターを倒すと「レアアイテム」が手に入ったり、または「称号」を付けたり、「金20万G」貰えたりしたいのですが、覇者と同じ要領で加えたら宜しいでしょうか？どのスクリプトに加えたら宜しいでしょうか？宜しくお願いします！
----
-これは、欲しいですね。とりあえず、討伐であれば、subdue.cgi の最後ぐらいアイテムの拾得付近だと思います。考えはあるんですが、きっちりやりたいとこなのでちょっと時間が必要ですね〜 -- [[あくあ]] &new{2004-04-16 (金) 20:45:00};
-あ、間違いです。subduetime.cgi の syutoku1 と syutoku2 ですね -- [[あくあ]] &new{2004-04-16 (金) 21:22:55};
#拾得物処理
sub syutoku1{
$log .="$tnm が消滅した場所に何か落ちている･････<br>$nm は ";
my $S = int(rand(10)+1);
# 武具
if($S == 1){
$log .="$dg_data[2][1]を発見した!!<br><br>装備する場合､現在所持している武具";
$tm = 110;
}elsif($S == 2){
$log .="$dg_data[3][1]を発見した!!<br><br>装備する場合､現在所持している武具";
$tm = 120;
}elsif($S == 3){
$log .="$dg_data[4][1]を発見した!!<br><br>装備する場合､現在所持している武具";
$tm = 130;
# 道具
}elsif($S == 4){
$log .="$di_data[1][1]を発見した!!<br><br>装備する場合､現在所持している道具";
$tm = 140;
}elsif($S == 5){
$log .="$di_data[2][1]を発見した!!<br><br>装備する場合､現在所持している道具";
$tm = 150;
}elsif($S == 6){
$log .="$di_data[3][1]を発見した!!<br><br>装備する場合､現在所持している道具";
$tm = 160;
}elsif($S == 7){
$log .="$di_data[4][1]を発見した!!<br><br>装備する場合､現在所持している道具";
$tm = 170;
# 防具
}elsif($S == 8){
$log .="$df_data[2][1]を発見した!!<br><br>装備する場合､現在所持している道具";
$tm = 180;
}elsif($S == 9){
$log .="$df_data[3][1]を発見した!!<br><br>装備する場合､現在所持している道具";
$tm = 190;
}elsif($S == 10){
$log .="$df_data[4][1]を発見した!!<br><br>装備する場合､現在所持している道具";
$tm = 200;
}
$log .="は破棄されます｡<br>どうしますか?<br>";
}
#拾得物処理2
sub syutoku2{
$log .="$nm は ";
# 武具2
if($tm==110){
$log .="$dg_data[2][1]";
$dg_a = 2;
$dg_cnt=$dg_data[2][3];
}elsif($tm==120){
$log .="$dg_data[3][1]";
$dg_a = 3;
$dg_cnt=$dg_data[3][3];
}elsif($tm==130){
$log .="$dg_data[4][1]";
$dg_a = 4;
$dg_cnt=$dg_data[4][3];
# 道具2
}elsif($tm==140){
$log .="$di_data[1][1]";
$di_a = 1;
$di_cnt=$di_data[1][3];
}elsif($tm==150){
$log .="$di_data[2][1]";
$di_a = 2;
$di_cnt=$di_data[2][3];
}elsif($tm==160){
$log .="$di_data[3][1]";
$di_a = 3;
}elsif($tm==170){
$log .="$di_data[4][1]";
$di_a = 4;
$di_cnt=$di_data[4][3];
# 防具2
}elsif($tm==180){
$log .="$df_data[2][1]";
$df_a = 2;
$df_cnt=$df_data[2][3];
}elsif($tm==190){
$log .="$df_data[3][1]";
$df_a = 3;
$df_cnt=$df_data[3][3];
}elsif($tm==200){
$log .="$df_data[4][1]";
$df_a = 4;
$df_cnt=$df_data[4][3];
}
$log .="を手に入れた!!<br>\n";
$sol=0;
$tnm='';
$ck = $tm = 0;
$nation=0;#討伐
$type='';
}
-長々と申し訳ないです（汗）どの辺りにレアアイテムの追加できるとこなのか、解りません（汗）取得確率も変更したいのですが・・・ -- [[くまくー]] &new{2004-04-17 (土) 09:35:24};
-$S == 6 ここがレアアイテムを指していると思うんですが・・・ -- [[くまくー]] &new{2004-04-17 (土) 09:51:47};
-アイテム追加するには、my $S = int(rand(10)+1); を my $S = int(rand(11)+1); のようにするとアイテムの種類を増やすことが出来ます。すると $S に入る数値が１〜１１になるのでそれに応じてメッセージ部分を追加します -- [[あくあ]] &new{2004-04-17 (土) 19:22:21};
}elsif($S == 11){
$log .="$df_data[4][1]を発見した!!<br><br>装備する場合､現在所持している道具";
$tm = 201;
$tmの201とかを新しく追加していきます
}elsif($tm==201){
$log .="$df_data[4][1]";
$df_a = 4;
$df_cnt=$df_data[4][3];
これで追加はできると思います。ただ確率を変えるのは難しいですね
-なるほど・・・、とても解りやすかったです☆ありがとうございます！！ -- [[くまくー]] &new{2004-04-18 (日) 00:55:58};
#comment
