私設SoS2オーナー応援BBS

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

No.210  Re[3]:Myrecordについて
発言者: 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

Pass 保存


CGIROOM