発言者: masaki
発言日: 2002 12/22 22:23
for($rt=0;$rt<$Fm{'rt'};$rt++){
if ($av eq 'dead') { push (@msg,'死んでいます');return }
if ($hp <= 1) { push (@msg,'ヒットポイントが足りません');return }
&splititem('i');
if (@items >= $xi) { push (@msg,'これ以上は持てません');return }
@itemlines = &opendat($itmdat);
if (!@itemlines) { &error('アイテムデータ読みこみエラー') }
sleep(1); srand(time | $$);
$poison = int(rand(100)) + 1;
$stellatio = int(rand(100)) + 1;
$rnd = int(rand(100)) + 1;
# 探索の特殊能力
if ($Fm{'sp'} =~ /Ft/) { $rnd -= 2; $rnd = 1 if $rnd < 1 }
foreach $item (@itemlines) {
($inm,$idt,$idc) = split(/<>/,$item);
if ($rnd <= $idc) { push(@founditems,$item) }
}
$rnd = int(rand(@founditems));
($inm,$idt,$idc) = split(/<>/,$founditems[$rnd]);
if (!$inm) { push (@msg,'何もみつかりませんでした');return }
$hp--;
if ($poison <= $def_pd && $av eq 'poison') {
$hp--; if ($hp < 1) { $hp = 1 }
push (@msg,'毒によるダメージのため体力が1減りました');
}
if ($stellatio <= $def_zd) {
if ($def_xs && length($is) > $def_xs) { push (@msg,'ステラツィオを発見しましたが、所持オーバーの為捨てました');return }
$itsrnd = int(rand(12));
$is .= "$iti[$itsrnd]";
push (@msg,"<img src=$imgdir$itsrnd$def_jg width=$st_wd height=$st_ht> $itn[$itsrnd]のステラツィオを発見しました");
&userout; return;
}
if ($idt !~ /Gl/) { push(@items,"$inm△$idt"); &joinitem('i') }
else { $mn += substr($idt,0,4) }
&userout;
if ($idt =~ /Li/) {
foreach (0 .. $#itemlines) {
($lnm,$ldt,$ldc) = split(/<>/,$itemlines[$_]);
if ($inm eq $lnm) { splice (@itemlines,$_,1); last }
}
&writedat($itmdat,@itemlines);
}
push (@msg,"$inmをみつけました");
}
}
↑ここだと思うのですが(^^;
長いです(TT
すみません。
▼関連発言
│
└◆207:Myrecordについて [masaki] 12/22 19:34
└◆208:Re:Myrecordについて [masaki] 12/22 19:35
└◆209:Re[2]:Myrecordについて [moon] 12/22 21:46
└◆210:Re[3]:Myrecordについて [masaki] 12/22 22:23
└◆211:Re[4]:Myrecordについて [moon] 12/22 22:47
└◆212:Re[5]:Myrecordについて [masaki] 12/23 07:09
└◆213:Re[6]:Myrecordについて [moon] 12/23 13:18
└◆214:Re[7]:Myrecordについて [moon] 12/23 13:26
└◆215:Re[8]:Myrecordについて [masaki] 12/23 22:36<-last