■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50 スレ内検索

レス数が 1000 を超えています。残念ながらこれ以上は書き込めません。

N速VIP的新機能「VIP クオリティ」 サポートスレッド

37 ：NullreFerenceException ：2004/11/13(土) 19:11:57 ID:sznN4KHw

独自機能を追加しようとして

;# !warコード表示項目ファイルのパスを設定
my $war_txt = './setting/vip_quality/war.cgi';
;#0ch BBS Script（test040221.zip）で使用する場合は↑をコメントアウトし、↓をコメント解除
;#my $war_txt = './module/setting/vip_quality/war.cgi';

;#!war　戦争がランダムで表示される
    my (@war,$war_rand);
    if($form_from =~ /!war/ or $form_text =~ /!war/){
        srand(time ^ ($$ + ($$ << 15)));
        open(FILE,$war_txt) or @war = ('warファイルが開けなかったぽ。。');
        unless($war[0] =~ /warファイルが開けなかったぽ。。/){
            while (<FILE>){
                $_ =~ s/\n//g;
                @war = (@war, $_);
            }close(FILE);
        }
        while ($vip_tickets > 0){
            if($form_from =~ /!war/){
                $war_rand = int(rand (scalar @war));
                $form_from =~ s/!war/ <\/b>$war[$war_rand]<b> /;
            }
            elsif($form_text =~ /!war/){
                $war_rand = int(rand (scalar @war));
                $form_text =~ s/!war/ <b>$war[$war_rand]<\/b> /;
            }
            else{
                last;
            }
            $vip_tickets--;#ここで回数券を1枚もぎ取ります
        }
    }

をVip_quality.plに入力したんですが、表示が狂ってしまいます。
これと同様の形式で全部で6つの機能を追加したんですが多すぎでしょうか。
すべて うっふん を改造して作りました。

read.cgi ver2.0 beta3 (03/08/25)