約 3,281,242 件
https://w.atwiki.jp/toriko-database/pages/3205.html
名前 オクトパソース＝お好みソース 分類 不明 初出 ゲームオリジナル 捕獲レベル 不明 生息地 不明 概要 トリコ 爆食グルメバトル!に登場したゲームオリジナルの食材。 関連項目 猛獣・食材図鑑（ゲームオリジナル）
https://w.atwiki.jp/patd/pages/28.html
ココは＠パーティー改造者がボランティアでソースを公開してくださる場所です。 ソースを快く公開してくださる人がいてくださると嬉しいです。 トップページのソースコード byホイホイ 今回必要なファイル：index.cgi まずindex.cgiを開き p style="width 300px;height 100px;background-color #000;overflow scroll;" 職業公開 br トップページ公開 /p こんな感じのを $contents .= "EOM"; の下に追加 更新内容とか追加したい場合は、 職業公開 br トップページ公開 /p ↓ 時間会得を追加 br 職業公開 br トップページ公開 /p こんな感じで増やしてく。用は br を増やせばいいってこと 宝クジ屋の画面ヘッダー byホイホイ 今回必要なファイル：kuzi.cgi これは宝クジ屋を追加していない人は全く関係ないです。 宝クジ屋を追加したいと思った人はINDEX.htmlから追加してみてください そこで追加したら、上のステータス表示がおかしいと思いませんか？そういうあなたに必要なソースです。 まず、kuzi.cgiの画面ヘッダーを見ます。そこを全て、消して sub header_html { my $nokori = $m{kuzitime} - $m{ltime}; $nokori = 0 if $nokori 0; print qq| div class="mes" 【$this_title】$e2j{money}： b $m{money} /b G $e2j{hp}： b $m{hp} /b / b $m{mhp} /b $e2j{mp}： b $m{mp} /b / b $m{mmp} /b /div |; print qq| b 宝券番号 $m{kuzi} のこり時間$nokori秒 /b | if $m{kuzi}; } に書き換え、すると出来ます 上修正 by聖龍 sub header_html { my $nokori = $m{kuzitime} - $m{ltime}; $nokori = 0 if $nokori 0; print qq| div class="mes" 【$this_title】$e2j{money}： b $m{money} /b G $e2j{hp}： b $m{hp} /b / b $m{mhp} /b $e2j{mp}： b $m{mp} /b / b $m{mmp} /b |; print qq| b 宝券番号 $m{kuzi} のこり時間$nokori秒 /b | if $m{kuzi}; } print qq| /div |; } のほうが正しい 宝くじ景品増やすには by暗黒剣 my $okane1 = int(rand(99)+1); を unless ($m{kuzi}) { $mes = "くじをかっていないじゃないか"; return; } の下に追加 そして$npc_com = に$okane1が金貨賞、を追加 そんでif($m{kuzi} eq $okane1){ $npc_com .= " br / おめでとう！金貨賞だ！1000000Gを君に振り込んでおいた"; $m{money} += 1000000; write_news(qq| span class="tenshon" $mさんが金貨賞に当たりました！おめでとうございます！ /span |); } をついかすればOK? このようにいろいろふやしていけばいい＾＾ ＠ギルド勢力内でのギルドの表示を上のほうへ by聖龍 my $gid = unpack 'H*', $gname; $gname = qq| img src="$guilddir/$gid/mark.gif" alt="ギルドマーク" / $gname| if -f "$guilddir/$gid/mark.gif"; のしたの $contents .= qq| table class="table1" width="100%" tr td style="white-space normal;" $count位 span style="color $gcolor;" $gname /span b $gcount /b 人 b $gpoint /b Point $gmes /td /tr \n|; の width="100% を width="77%にする ソースコードじゃない 単純な話だ by聖龍 view_monster.cgiについて # 出現モンスターを確認するためのもの(管理用) # http //自分のURL/party2/_view_monster.cgi?pass=管理者パスワード # ※「自分のURL」とはこのCGIを設置した場所までのアドレス つかねーよと思うかもしれませんが単純に # http //自分のURL/party2/_view_monster.cgi?pass=管理者パスワード じゃなくて # http //自分のURL/party2/view_monster.cgi?pass=管理者パスワード が正しいだけなんです以上ｗ ドロップを２つ設定する byシャナ （既にドロップを設定している方の＠パ以外では動作を保証しません） 流れは殆どドロップシステムの追加と同じ。最初にconfig.cgiの変数の所を @battle_datas = (qw/name addr color time ten job sp old_job old_sp mhp hp mmp mp mat at mdf df mag ag hit state tmp get_exp get_money icon wea arm drop drop2/); に変更。(最後にdrop2を追加するだけ。) 次に、battle.cgiの#NPCがプレイヤーを倒した時。または自爆の所を下のように変更 # NPCがプレイヤーを倒した時。または自爆 return if $ms{$m}{color} eq $npc_color || $m eq $y; $com .= qq| br / span class="get" $mたちはそれぞれ $ms{$y}{get_exp} の$e2j{exp}と $ms{$y}{get_money} Gを手に入れた！ /span |; if ($ms{$y}{drop}) { if (int(rand(1)) 4) { my $item_name = $ites[$ms{$y}{drop}][1]; if (!$m{ite}) { $npc_com .= "$item_nameを手に入れました！"; $m{ite} = $ms{$y}{drop}; require "./lib/_add_collection.cgi"; add_collection; } elsif ($m{is_full}) { $npc_com .= "$item_name を拾った！！しかし、$mの預かり所はいっぱいだった…。$mはあきらめた"; } else { $npc_com .= "$item_name を拾った！$item_name は預かり所に送られました"; send_item($m,3,$ms{$y}{drop}); } }} if ($ms{$y}{drop2}) { if (int(rand(1)) 4) { my $item_name = $ites[$ms{$y}{drop2}][1]; if (!$m{ite}) { $npc_com .= "$item_nameを手に入れました！"; $m{ite} = $ms{$y}{drop2}; require "./lib/_add_collection.cgi"; add_collection; } elsif ($m{is_full}) { $npc_com .= "$item_name を拾った！！しかし、$mの預かり所はいっぱいだった…。$mはあきらめた"; } else { $npc_com .= "$item_name を拾った！$item_name は預かり所に送られました"; send_item($m,3,$ms{$y}{drop2}); } }} for my $name (@partys) { next if $ms{$name}{hp} = 0; if ($name eq $m) { # 倒した人 $m{exp} += $ms{$y}{get_exp}; $m{money} += $ms{$y}{get_money}; my $par = 3; # 仲間になる確率(自分より弱い) if ( is_strong) { # 自分より強い判定 $win ? $m{kill_p}++ $m{kill_m}++; $par = 1 unless $ms{$m}{job} eq '12'; # 仲間になる確率(自分より強い) }}} そして、stage○.cgiの１つ１つのモンスターデータの所に drop2 = アイテム番号を入力, を追加。drop2を設定しない場合はそのままでOK。 これで完成です！ドロップするアイテムを武器に変更する場合はbattle.cgiを下に変更 # NPCがプレイヤーを倒した時。または自爆 return if $ms{$m}{color} eq $npc_color || $m eq $y; $com .= qq| br / span class="get" $mたちはそれぞれ $ms{$y}{get_exp} の$e2j{exp}と $ms{$y}{get_money} Gを手に入れた！ /span |; if ($ms{$y}{drop}) { if (int(rand(1)) 4) { my $item_name = $ites[$ms{$y}{drop}][1]; if (!$m{ite}) { $npc_com .= "$item_nameを手に入れました！"; $m{ite} = $ms{$y}{drop}; require "./lib/_add_collection.cgi"; add_collection; } elsif ($m{is_full}) { $npc_com .= "$item_name を拾った！！しかし、$mの預かり所はいっぱいだった…。$mはあきらめた"; } else { $npc_com .= "$item_name を拾った！$item_name は預かり所に送られました"; send_item($m,3,$ms{$y}{drop}); } }} if ($ms{$y}{drop2}) { if (int(rand(1)) 4) { my $item_name = $weas[$ms{$y}{drop2}][1]; if (!$m{wea}) { $npc_com .= "$item_nameを手に入れました！"; $m{wea} = $ms{$y}{drop2}; require "./lib/_add_collection.cgi"; add_collection; } elsif ($m{is_full}) { $npc_com .= "$item_name を拾った！！しかし、$mの預かり所はいっぱいだった…。$mはあきらめた"; } else { $npc_com .= "$item_name を拾った！$item_name は預かり所に送られました"; send_item($m,1,$ms{$y}{drop2}); } }} for my $name (@partys) { next if $ms{$name}{hp} = 0; if ($name eq $m) { # 倒した人 $m{exp} += $ms{$y}{get_exp}; $m{money} += $ms{$y}{get_money}; my $par = 3; # 仲間になる確率(自分より弱い) if ( is_strong(%{ $ms{$y} }) ) { # 自分より強い判定 $win ? $m{kill_p}++ $m{kill_m}++; $par = 1 unless $ms{$m}{job} eq '12'; # 仲間になる確率(自分より強い) }}} Lvが20以下の人は経験値2倍 byシャナ battle.cgiの経験値・ゴールド習得等の所を以下に変更。 $com .= qq| br / span class="get" $mたちはそれぞれ $ms{$y}{get_exp}×$bonus の$e2j{exp}と $ms{$y}{get_money}×$bonus Gを手に入れた！ /span |; for my $name (@partys) { next if $ms{$name}{hp} = 0; if ($name eq $m) { # 倒した人 if ( $m{lv} eq 20 ) { $bonus = 2; } else { $bonus = 1; } $m{exp} += $ms{$y}{get_exp}*$bonus; $m{money} += $ms{$y}{get_money}*$bonus; wikiのバク。謝罪 byホイホイ wikiにバクが発見されましてソースコードの一部が表示されないというのを聞きました。 これはwikiの性質上どうしようもないことです。今まで気がつかずまことに申し訳ありませんでした これからは上のほうの『編集』をクリックし、ここを編集するところからソースコードをお持ちください ＠パーティーＤＸのペット選択機能 byシャナ system.cgiとconfig.cgiの変数 p_name p2_name p3_name を削除して pet1 pet2 pet3を追加。（他のものはそのままでOK） 次に、_data.cgiを開いて下記のものを追加。 #================================================= # ペット１（削除/並び変え自由） #================================================= @pet1s = ( #0No 1名前,※2HP,3MP,4力,5守,6素, [0, '----', 0, 0, 0, 0, 0,], [1, 'ｽﾗｲﾑ', 3, 2, 4, 2, 3,], ); #================================================= # ペット２（削除/並び変え自由） #================================================= @pet2s = ( #0No 1名前,※2HP,3MP,4力,5守,6素,7転職条件 [0, '----', 0, 0, 0, 0, 0,], [1, 'ﾄﾞﾗｷｰ', 2, 4, 3, 3, 3,], ); #================================================= # ペット３（削除/並び変え自由） #================================================= @pet3s = ( #0No 1名前,※2HP,3MP,4力,5守,6素,7転職条件 [0, '----', 0, 0, 0, 0, 0,], [1, 'ﾌﾚｲﾑ', 5, 1, 4, 4, 1,], ); 次に、new_entry.cgiを開き、全て下にかきかえてください。 #!/usr/bin/perl require 'config.cgi'; require '_side_menu.cgi'; require './lib/_data.cgi'; #================================================ # 新規登録 Created by Merino #================================================ # 初期で選べる職業(No) my @default_jobs = (1..12); my @default_pet1s = (1); my @default_pet2s = (1); my @default_pet3s = (1); #================================================ decode; access_check; header; error("現在メンテナンス中です。しばらくお待ちください(約 $mente_min 分間)") if $mente_min; $in{mode} eq 'new_entry' ? new_entry new_form; footer; exit; #================================================ # 新規登録フォーム #================================================ sub new_form { my $job_html = qq| select class="select1" name="job" |; for my $i (@default_jobs) { $job_html .= qq| option value="$i" $jobs[$i][1] /option |; } $job_html .= qq| /select |; my $pet1_html = qq| select class="select1" name="pet1" |; for my $i (@default_pet1s) { $pet1_html .= qq| option value="$i" $pet1s[$i][1] /option |; } $pet1_html .= qq| /select |; my $pet2_html = qq| select class="select1" name="pet2" |; for my $i (@default_pet2s) { $pet2_html .= qq| option value="$i" $pet2s[$i][1] /option |; } $pet2_html .= qq| /select |; my $pet3_html = qq| select class="select1" name="pet3" |; for my $i (@default_pet3s) { $pet3_html .= qq| option value="$i" $pet3s[$i][1] /option |; } $pet3_html .= qq| /select |; my $yid = $ENV{'QUERY_STRING'}; my $contents = "EOM"; h2 新規登録 /h2 form method="$method" action="new_entry.cgi" input type="hidden" name="mode" value="new_entry" / input type="hidden" name="yid" value="$yid" / ul li 記号(,;"' \\/@)や空白は使えません。 /li li ネットマナーを守って楽しく遊びましょう。 /li li b 他人が不愉快になるような書き込みや多重登録は禁止です。見つけ次第削除します。 /b /li /ul table class="table1" tr td プレイヤー名： /td td input type="text" name="name" class="text_box1" / /td /th /tr tr td /td td 全角４(半角８)文字まで /td /tr tr td パスワード： /td td input type="text" name="pass" class="text_box1" / /td /th /tr tr td /td td 半角英数字４～12文字まで /td /tr tr td 職業： /td td $job_html /td /th /tr tr td /td td 職業は重要です。説明書の特徴をよく読み、自分に合った職業を選びましょう /td /tr tr td ペット１： /td td $pet1_html /td /th /tr tr td /td td ペット１は戦闘でとても重要です。説明書の特徴をよく読み、自分に合ったペット１を選びましょう。 /td /tr tr td ペット２： /td td $pet2_html /td /th /tr tr td /td td ペット２は戦闘でとても重要です。説明書の特徴をよく読み、自分に合ったペット２を選びましょう /td /tr tr td ペット３： /td td $pet3_html /td /th /tr tr td /td td ペット３は戦闘でとても重要です。説明書の特徴をよく読み、自分に合ったペット３を選びましょう /td /tr tr td $e2j{sex}： /td td input type="radio" name="sex" value="m" checked="checked" / 男 input type="radio" name="sex" value="f" / 女 /td /tr tr td /td td 性別によって転職できる職業やアイコンが違います /td /tr /table p input type="submit" value="＠登録" / /p /form br / EOM side_menu($contents); } #================================================ # 新規登録チェック＆完了処理 #================================================ sub new_entry { check_black_list; check_entry; check_registered; create_user; $contents = "EOM"; p 以下の内容で登録しました /p p class="strong" ※プレイヤー名とパスワードはログインするときに必要なので、忘れないように! p table class="table1" tr th プレイヤー /th td $m{name} /td tr th パスワード /th td $m{pass} /td tr th $e2j{sex} /th td $e2j{$m{sex}} /td tr th 職業 /th td $jobs[$m{job}][1] /td tr th $e2j{hp} /th td align="right" $m{hp} /td tr th $e2j{mp} /th td align="right" $m{mp} /td tr th $e2j{at} /th td align="right" $m{at} /td tr th $e2j{df} /th td align="right" $m{df} /td tr th $e2j{ag} /th td align="right" $m{ag} /td tr th ペット１ /th td $m{p1_name} /td tr th $e2j{hp} /th td align="right" $m{p1_hp} /td tr th $e2j{mp} /th td align="right" $m{p1_mp} /td tr th $e2j{at} /th td align="right" $m{p1_at} /td tr th $e2j{df} /th td align="right" $m{p1_df} /td tr th $e2j{ag} /th td align="right" $m{p1_ag} /td tr th ペット２ /th td $m{p2_name} /td tr th $e2j{hp} /th td align="right" $m{p2_hp} /td tr th $e2j{mp} /th td align="right" $m{p2_mp} /td tr th $e2j{at} /th td align="right" $m{p2_at} /td tr th $e2j{df} /th td align="right" $m{p2_df} /td tr th $e2j{ag} /th td align="right" $m{p2_ag} /td tr th ペット３ /th td $m{p3_name} /td tr th $e2j{hp} /th td align="right" $m{p3_hp} /td tr th $e2j{mp} /th td align="right" $m{p3_mp} /td tr th $e2j{at} /th td align="right" $m{p3_at} /td tr th $e2j{df} /th td align="right" $m{p3_df} /td tr th $e2j{ag} /th td align="right" $m{p3_ag} /td /table div 説明書は読みましたか？ br / わからないことがある場合は、まず説明書を読みましょう。 /div form method="$method" action="login.cgi" input type="hidden" name="is_cookie" value="1" / input type="hidden" name="login_name" value="$in{name}" / input type="hidden" name="pass" value="$in{pass}" / input type="submit" value="＠プレイ" / /form EOM side_menu($contents); } #================================================ # 登録チェック #================================================ sub check_entry { error("不正な登録処理です")if $ENV{QUERY_STRING}; error("プレイヤー名が入力されていません")unless $in{name}; error("パスワードが入力されていません")if $in{pass} eq ''; error("$e2j{sex}が入力されていません")if $in{sex} eq ''; error("プレイヤー名に不正な文字( ,;\"\' \@ )が含まれています")if $in{name} =~ /[,;\"\' \@]/; error("プレイヤー名に不正な文字( ＠ )が含まれています")if $in{name} =~ /＠/; error("プレイヤー名に不正な空白が含まれています")if $in{name} =~ / |\s/; error("プレイヤー名は全角４(半角８)文字以内です")if length($in{name}) 8; error("パスワードは半角英数字で入力して下さい")if $in{pass} =~ m/[^0-9a-zA-Z]/; error("パスワードは半角英数字４～12文字です")if length $in{pass} 4 || length $in{pass} 12; error("プレイヤー名とパスワードが同一文字列です")if $in{name} eq $in{pass}; error("$e2j{sex}が異常です")unless $in{sex} eq 'm' || $in{sex} eq 'f'; my $is_ng_job = 1; for my $i (@default_jobs) { if ($i eq $in{job}) { $is_ng_job = 0; last; } } error("職業が異常です") if $is_ng_job; $id = unpack 'H*', $in{name}; error("その名前はすでに登録されています") if -d "$userdir/$id"; open my $fh, " $logdir/entry.cgi" or error("$logdir/entry.cgiファイルが読み込めません"); my $line = $fh ; close $fh; my($entry_count, $last_addr) = split / /, $line; error("現在定員のため、新規登録は受け付けておりません") if $entry_count = $max_entry; error("多重登録は禁止しています") if $addr eq $last_addr; } #================================================ # 登録処理 #================================================ sub create_user { $id = unpack 'H*', $in{name}; # フォルダ・ファイル作成 mkdir "$userdir/$id", $mkdir or error("その名前はすでに登録されています"); for my $file_name (qw/collection depot depot_s hanasu home home_member item_send_mes job_master letter letter_log memory money monster monster_book profile recipe reload screen_shot send_item_mes stock user/) { my $output_file = "$userdir/$id/$file_name.cgi"; open my $fh, " $output_file" or error("$output_file ファイルが作れませんでした"); close $fh; chmod $chmod, $output_file; } open my $fh2, " $userdir/$id/collection.cgi" or error("$userdir/$id/collection.cgiファイルが作れませんでした"); print $fh2 ",\n,\n,\n"; close $fh2; %m = (); $m = $m{name} = $in{name}; $m{pass} = $in{pass}; $m{job} = $in{job}; $m{sex} = $in{sex}; $m{money} = 200; $m{mhp} = int(rand(3)) + 30; $m{mmp} = int(rand(3)) + 6; $m{at} = int(rand(3)) + 6; $m{df} = int(rand(3)) + 6; $m{ag} = int(rand(3)) + 6; $m{hp} = $m{mhp}; $m{mp} = $m{mmp}; $m{lv} = 1; $m{icon} = "job/$m{job}_$m{sex}.gif"; $m{color} = $default_color; $m{home} = $m; $m{pass} = $in{pass}; $m{job} = $in{job}; $m{sex} = $in{sex}; $m{money} = 200; $m{p1_name} = $pet1s[$m{pet1}[1]]; $m{p1_mhp} = int(rand(3)) + 30; $m{p1_mmp} = int(rand(3)) + 6; $m{p1_at} = int(rand(3)) + 6; $m{p1_df} = int(rand(3)) + 6; $m{p1_ag} = int(rand(3)) + 6; $m{p1_hp} = $m{p1_mhp}; $m{p1_mp} = $m{p1_mmp}; $m{p1_lv} = 1; $m{p1_icon} = "mon/スライムの画像ファイル.gif"; $m{p1_color} = $default_color; $m{p2_name} = $pet2s[$m{pet2}[1]]; $m{p2_mhp} = int(rand(3)) + 30; $m{p2_mmp} = int(rand(3)) + 6; $m{p2_at} = int(rand(3)) + 6; $m{p2_df} = int(rand(3)) + 6; $m{p2_ag} = int(rand(3)) + 6; $m{p2_hp} = $m{p_mhp}; $m{p2_mp} = $m{p_mmp}; $m{p2_lv} = 1; $m{p2_icon} = "mon/ドラキーの画像ファイル.gif"; $m{p2_color} = $default_color; $m{p3_name} = $pet3s[$m{pet3}[1]]; $m{p3_mhp} = int(rand(3)) + 30; $m{p3_mmp} = int(rand(3)) + 6; $m{p3_at} = int(rand(3)) + 6; $m{p3_df} = int(rand(3)) + 6; $m{p3_ag} = int(rand(3)) + 6; $m{p3_hp} = $m{p_mhp}; $m{p3_mp} = $m{p_mmp}; $m{p3_lv} = 1; $m{p3_icon} = "mon/フレイムの画像ファイル.gif"; $m{p3_color} = $default_color; for my $k (qw/sleep job_lv exp medal coin coupon rare tired sp old_job old_sp wea wea_hp tate atama ude zyou ka asi ite is_full is_get is_eat kill_p kill_m cas_c hero_c mao_c pet1 pet2 pet3 元々の変数など(p1_hp etc...)/) { $m{$k} = 0; } write_user; write_memory("冒険者 b $m /b 誕生！"); write_news(" b $m /b という冒険者が参加しました"); require './lib/_add_monster_book.cgi'; write_monster_book; plus_entry_count; copy("$htmldir/space.gif", "$userdir/$id/bgimg.gif"); # 紹介ID付なら紹介者に小さなメダル送信 if ($in{yid}) { my $send_name = pack 'H*', $in{yid}; send_item($send_name, 3, 23, "$m{name}(紹介加入)"); } } #================================================ # 登録者数プラス #================================================ sub plus_entry_count { open my $fh, "+ $logdir/entry.cgi" or error("$logdir/entry.cgiファイルが開けません"); eval { flock $fh, 2; }; my $line = $fh ; my($entry_count, $last_addr) = split / /, $line; ++$entry_count; seek $fh, 0, 0; truncate $fh, 0; print $fh "$entry_count $addr "; close $fh; } #================================================ # ブラックリストのＩＰと同じかチェック #================================================ sub check_black_list { open my $fh, " $logdir/black_list.cgi" or error("$logdir/black_list.cgiファイルが読み込めません"); my $line = $fh ; close $fh; error("あなたのホストからは登録することが禁止されています") if $line =~ /,$host,/; } #================================================ # 多重登録禁止：全ユーザーのＩＰアドレスを調べる #================================================ sub check_registered { opendir my $dh, "$userdir" or error("ユーザーディレクトリが開けません"); while (my $dir_name = readdir $dh) { next if $dir_name =~ /\./; my %datas = get_you_datas($dir_name, 1); if ($addr eq $datas{addr}) { # add_black_list($addr); error("多重登録は禁止しています"); } } closedir $dh; } これだけで作動すると思います。他の基本システムと合わない所があるので、そこは改造していって下さい。 知らない人たちのために by聖龍 admin.cgiの #for my $k (qw/recipe/) { #unless (-f "$userdir/$id/$k.cgi") { #open my $fh, " $userdir/$id/$k.cgi"; #close $fh; #chmod $chmod, "$userdir/$id/$k.cgi"; #} #} の使い方 for my $k (qw/入れたいcgi拡張子(cgi抜き)/) { unless (-f "$userdir/$id/$k.cgi") { open my $fh, " $userdir/$id/$k.cgi"; close $fh; chmod $chmod, "$userdir/$id/$k.cgi"; } } に書き換えてadmin.cgiにアクセスするとuserディレクトリーに追加されます以上ｗ ドロップ率を追加！ by聖龍 ドロップシステムにドロップ率を入れて見ましょう @battle_datas = (qw/name addr color time ten job sp old_job old_sp mhp hp mmp mp mat at mdf df mag ag hit state tmp get_exp get_money icon wea arm drop/); にdrop_pを追加 次にbattle.cgiの↓ if ($ms{$y}{drop}) { if (int(rand(1)) 4) { my $item_name = $ites[$ms{$y}{drop}][1]; if (!$m{ite}) { $npc_com .= "$item_nameを手に入れました！"; $m{ite} = $ms{$y}{drop}; require "./lib/_add_collection.cgi"; add_collection; } elsif ($m{is_full}) { $npc_com .= "$item_name を拾った！！しかし、$mの預かり所はいっぱいだった…。$mはあきらめた"; } else { $npc_com .= "$item_name を拾った！$item_name は預かり所に送られました"; send_item($m,3,$ms{$y}{drop}); } } } を以下のように変更します if ($ms{$y}{drop}) { if ($ms{$y}{drop_p} = int(rand(100))) { my $item_name = $ites[$ms{$y}{drop}][1]; if (!$m{ite}) { $npc_com .= "$item_nameを手に入れました！"; $m{ite} = $ms{$y}{drop}; require "./lib/_add_collection.cgi"; add_collection; } elsif ($m{is_full}) { $npc_com .= "$item_name を拾った！！しかし、$mの預かり所はいっぱいだった…。$mはあきらめた"; } else { $npc_com .= "$item_name を拾った！$item_name は預かり所に送られました"; send_item($m,3,$ms{$y}{drop}); } } } んで、ステージのモンスターのドロップ下に drop_p= 20, 見たいな感じにドロップ率を指定してください
https://w.atwiki.jp/grandslamtennis2/pages/16.html
EA SPORTS™ GRAND SLAM® TENNIS 2 Platinum グランドスラムテニス2内の全てのトロフィーを取得 Australian Open Title オーストラリアオープンで優勝 Beat Federer at Australian Open オーストラリアオープンでフェデラーに勝利 Beat Serena at Australian Open オーストラリアオープンでセレナ・ウィリアムズに勝利 French Open Title フレンチオープンで優勝 Beat Henin at the French Open フレンチオープンでへニンに勝利 Beat Borg at the French Open フレンチオープンでボルグに勝利 US Open Title US オープンで優勝 Beat Evert at US Open USオープンでエバートに勝利 Beat McEnroe at US Open USオープンでマッケンローに勝利 Wimbledon Title ウィンブルドンで優勝 Beat Navratilova at Wimbledon ウィンブルドンでナブラチロワに勝利 Beat Sampras at Wimbledon ウィンブルドンでサンプラスに勝利 No Set Lost 1セットも落とさずにトーナメントで勝利 Never Broken ブロークンされずにトーナメントで勝利 Non-Calendar Year Grand Slam® グランドスラムの4トーナメントを連続優勝（同じ年間でない） Calendar Year Grand Slam® グランドスラムの4トーナメントを連続優勝（同じ年間で） Career Grand Slam® グランドスラムの4トーナメントで優勝 Small Grand Slam® 同じ年間で4つのグランドスラムトーナメントの内3つで優勝 Wimbledon Big Show ウィンブルドンのセンターコートでプレイする Roland Garros Big Show フレンチオープンにてPhilippe Chatrierコートでプレイする Melbourne Park Big Show オーストラリアオープンでRod Laverアリーナでプレイする Flushing Meadows Big Show USオープンでArthur Asheスタジアムでプレイする The Legend ランキング1位で終わる Collector テニスストアにて全てのラケットとシューズを取得 Rocket 209 KMH (130 MPH)以上のサーブを打つ Pair of Aces 連続2回のエースを取る Clean Break サービスブレークする Break Back ブロークンされた直後にサービスブレーク Silver Set 1つも落とさずにセットを取る Broke ブロークンされることなくマッチ取得 Tie Break Win タイブレークで勝利 Boom Boom 連続4エース Best of All Time 全てのAll-Time Matchesで勝利 Best of 2000 全ての2000年代で勝利 Best of 1990 全ての90年代で勝利 Best of 1980 全ての80年代で勝利 History Buff 全てのFantasy Matchesで勝利 Friendly Competition オンライン戦でランク付のダブルスで勝利 Streak オンライン戦で連続10回戦勝利 Sharer テニスプレーヤーをアップロードする Popular テニスプレーヤーをダウンロードする School Master 全てのテニススクールレッスンを終了する
https://w.atwiki.jp/c-atelier/pages/2770.html
レシピ レシピNo.1001~1050 レシピ分類 料理 レシピ名 ほ レシピ属性 風 参考書 法と刑罰の歴史 登場 Recipe 151 その乙子、ギコムント・ホーン 備考 |] レシピNo1009 ホワイトソース￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣[属性：風]┏──────────┓ 《材料》｜ ｜ ・牛乳 x 1.0｜ ｜ ・バター x 0.5｜ ｜ ・小麦粉 x 0.5｜ .[こくまろ] ｜ ・｜ ｜ 《器具》｜ ｜ ・片手鍋｜ ｜ ・┗──────────┛【効果】使用者のLPを30回復【価値】150ﾏﾆｰ───────────────────────────────── 小麦粉をバターで溶かし、牛乳を加えて炒めたもので、様々な料理に利用可能。───────────────────────────────── すなわち、これを作れるようになれば料理のレパートリーが一気に広がる。───────────────────────────────── 水分を飛ばして固めたものがいわゆる「ルー」で、日持ちが良くなるので───────────────────────────────── こういう場面で非常に重宝する。───────────────────────────────── → 使用参考書： 『法と刑罰の歴史』
https://w.atwiki.jp/inclurithm/
インクルリズム @ Wiki SRCインクルードの公開と、インクルード内で使われている各種アルゴリズムの解説、またインクルード製作に当たっての汎用テクニックを綴るwikiです。 参加は自由で、誰でも記事を投稿することができます。 管理人：Lucied ※09/17 4 20 ファイルのアップロード権限を開放。 荒らしがあれば即凍結します。 利用規約 原則として、「インクルリズム @ Wiki」に掲載されているあらゆるデータは自由に利用することが出来ます。 転載・再配布についても自由なものとします。 「インクルリズム @ Wiki」に掲載されているデータ（インクルやテクニック）を自分流にアレンジし、それを自分のサイトで掲載・配布することもOKです。 また、それを派生verとして「インクルリズム @ Wiki」に投稿することもできます。 リンクについて 「インクルリズム @ Wiki」はリンクフリー、アンリンクフリーです。 外部リンク SRC公式サイト SRC総合支援センター カウンター - 分からないことは？ @wiki FAQ @wiki 初心者講座 @wiki マニュアル メールで問い合わせ @wiki 便利ツール 等をご活用ください
https://w.atwiki.jp/gundamfamily/pages/2570.html
808 名前：通常の名無しさんの３倍 ：2009/07/05(日) 03 22 49 ID ??? 防犯カメラの映像 17：15 カガリ、運動を始める。 17：18 やせて美形になって頭も良くなったカガリの姿が。 カガリ「ふう、動いたらお腹すいたな。何か食べるものは…… お、ドーナツがあるじゃないか」 チリソース投入 17：21 カガリ、元通り アスラン「いみねぇ!!!」 ヒイロ「リリーナにも試したが効果はなかった」 五飛「うちの嫁にやったとしても効果は同じだと思う」 キラ「僕は嫁の影響でネギが食べられるようになったよ（脱線中）」 ウッソ「でも生で食べるのはちょっと、つらくないんですか？（上に同乗）」 809 名前：通常の名無しさんの３倍 ：2009/07/05(日) 03 55 33 ID ??? 808 そうか!某スパロボでＫガリと言われてたのはチリソース断ちしてたからだったのか! 812 名前：通常の名無しさんの３倍 ：2009/07/05(日) 11 28 55 ID ??? 例のドーナツをアスランに食べさせてみたら何て叫ぶのだろう・・・・ただし彼の髪の毛や額は保障できないけど 813 名前：通常の名無しさんの３倍 ：2009/07/05(日) 11 44 24 ID ??? 812 ＞例のドーナツをアスランに食べさせてみたら何て叫ぶのだろう・・・・ アスランはこのスレでは一応カガリ一筋 ただし髪の毛とか言い出さないかは保障できないけど… 814 名前：通常の名無しさんの３倍 ：2009/07/05(日) 13 44 41 ID ??? いやほんと、ここのアスランはカガリのどこが良くて付き合ってるんだろうな。 …俺は基本アスカガ派だが、真剣にカガリのテコ入れを考えねばならん気がしてきた。 815 名前：通常の名無しさんの３倍 ：2009/07/05(日) 13 48 15 ID ??? 814 脅されて付き合ってんじゃね？ 816 名前：通常の名無しさんの３倍 ：2009/07/05(日) 13 53 34 ID ??? 813 ＞アスランはこのスレでは一応カガリ一筋 そうだったかな・・・。作品の順番上付き合うのが一番早かったのはカガリだったけど、 後発組が参入してくるとされるがままで、誰を選ぶとかの意思表示って特にないように思う。 何かあるたびに「ｷﾗﾀﾝﾎﾞｽｹﾃ」なんだからさ、本命はそっちでも驚かんよw 817 名前：通常の名無しさんの３倍 ：2009/07/05(日) 14 09 54 ID ??? 798 そんな急にやせてたら、スエッソンのいた後には大量に汗と脂肪が搾り出されてそうでいやだｗ 818 名前：通常の名無しさんの３倍 ：2009/07/05(日) 14 59 39 ID ??? 816 誰の名前を叫んでも修羅場になりそうだしなｗ アムロ兄さんは上手く妹弟達の名前叫んでかわしたが… 819 名前：通常の名無しさんの３倍 ：2009/07/05(日) 15 44 51 ID ??? カミーユもヤバくね？ 820 名前：通常の名無しさんの３倍 ：2009/07/05(日) 16 57 49 ID ??? 814 刺激物に慣れすぎると、他の食い物じゃ我慢できないんだよ。 でも、カガリに山葵使った食い物食わせたら鼻に抜ける辛味にあっさり悶絶すると思うけどな。 ブレアーズでビルソースに慣れてる人が、山葵巻き食って咽るなんて良くある話だし。
https://w.atwiki.jp/perotanfenix/pages/209.html
名前 ソースは2ch 分類 情報 説明 博識で知られるフェニックスの情報源である。VIP歴10年が故の2chへの信頼が伺い知れる。 配信での扱われ方 ソースは2chなんで～ 関連項目 2ch
https://w.atwiki.jp/vipdetremulous/pages/28.html
前置き ここはソースコードのいじり方、というかどこをどうすれば何ができるよ！みたいのを書いていきたいと思います。 みんなで色々書こうぜ！ 武器追加の仕方 アップグレード追加の仕方
https://w.atwiki.jp/wakures/pages/204.html
えびのチリソース東京「金獅子楼閣」 ぷりぷりのえびとピリッと濃厚なチリソースがおいしいくて大人気な、中華料理の定番メニューです。 初級 ジャンル おかず 価格(一押し) 28(53) コスト(一押し) 25(37) 風味(一押し) 55(120) 品質 属性条件 色(一押し) 151(186) 包丁技 84 香(一押し) 130(165) 調味技 81 味(一押し) 144(179) 火加減 82 調理情報 習得条件 調理時間 50分 習得Lv制限 Lv15 調理費用 130ドル 入門料理習得数 6 習得数 32～48個 食材 魚Lv1 3 スパイスLv1 5 × × × × × × × × 一押し食材 魚Lv1 5 ソースLv1 1 スパイスLv1 10 × × クイズ 問題 調理工程でごま油をどう使用したでしょうか？一つ選びましょう。A.豆板醤に混ぜる B.食べる直前に香りづけをする C.最後に鍋肌に回して入れて混ぜる 答え(反転) C. 最後に鍋肌に回して入れて混ぜる えびのチリソースを編集
https://w.atwiki.jp/yugihonsure/pages/555.html
本スレ用語一覧＞ソースは商談会 釣りフラグの一種。ちなみに商談会とは、 商談会（しょうだんかい） 主に商談の場として提供される催し。取引相談したい相手を見つける、または相談を行う場となる。 ＜ソース http //www.weblio.jp/content/%E5%95%86%E8%AB%87%E4%BC%9A＞ コンマイが商談会を行っているのはどうやら事実のようである。 ＜ソース http //blog.yarikuri-turbo.com/?eid=825533(リンク切れ)など。ググればたくさん出てくる。＞ ソースを見ていく限り、こういった商談会に招待されるのは、主に販売店の顧客。 遊戯王関連の主な顧客であるカードショップの店長などは口止めされていることが多いので、 そういった限られた場で発表された情報は本スレ民のような一般客には確かめようもない。 釣りかと思われていた情報が本当だったり、逆に釣りだったりしたことは過去に何度かあり、 流れてくる情報に踊らされるしか無い一般客にとっては本当にタチの悪い言葉である。 流石に今はやってなさそう -- 名無しさん (2021-05-08 23 26 43) 一般客はそんな言葉が出るところに来ねえよ -- 名無しさん (2021-05-10 11 05 09) 情報漏洩 -- 名無しさん (2022-06-19 20 04 52) ネタでも面白くないっていう -- 名無しさん (2022-11-23 12 36 56) 名前 コメント