罪と罰++二律背反
罪罰改造掲示板/12
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
*討伐でレアアイテムゲット&称号 [#ff83a654]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[くまくー]]
-優先順位: 普通
-状態: 完了
-カテゴリー: こんなのが欲しい♪
-投稿日: 2004-04-16 (金) 01:10:27
-バージョン:
**メッセージ [#qb366139]
毎度お馴染みでお世話になります☆討伐で特定のモンスターを倒...
----
-これは、欲しいですね。とりあえず、討伐であれば、subdue.c...
-あ、間違いです。subduetime.cgi の syutoku1 と syutoku2 ...
#拾得物処理
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='';
}
-長々と申し訳ないです(汗)どの辺りにレアアイテムの追加で...
-$S == 6 ここがレアアイテムを指していると思うんですが・...
-アイテム追加するには、my $S = int(rand(10)+1); を my $S ...
}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];
これで追加はできると思います。ただ確率を変えるのは難しい...
-なるほど・・・、とても解りやすかったです☆ありがとうござ...
#comment
終了行:
*討伐でレアアイテムゲット&称号 [#ff83a654]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[くまくー]]
-優先順位: 普通
-状態: 完了
-カテゴリー: こんなのが欲しい♪
-投稿日: 2004-04-16 (金) 01:10:27
-バージョン:
**メッセージ [#qb366139]
毎度お馴染みでお世話になります☆討伐で特定のモンスターを倒...
----
-これは、欲しいですね。とりあえず、討伐であれば、subdue.c...
-あ、間違いです。subduetime.cgi の syutoku1 と syutoku2 ...
#拾得物処理
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='';
}
-長々と申し訳ないです(汗)どの辺りにレアアイテムの追加で...
-$S == 6 ここがレアアイテムを指していると思うんですが・...
-アイテム追加するには、my $S = int(rand(10)+1); を my $S ...
}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];
これで追加はできると思います。ただ確率を変えるのは難しい...
-なるほど・・・、とても解りやすかったです☆ありがとうござ...
#comment
ページ名: