約 350,183 件
https://w.atwiki.jp/create_tokyotech/pages/102.html
2014/03/20～22に，大島裏砂漠へロケット打ち上げ遠征を行いました！ 今回の大島打ち上げは参加団体が多く，CREATEの他にCORE（インカレサークル），STEP（筑波大），千葉工大，更にはロケットガール＆ボーイ養成講座参加の高校生達が裏砂漠に集結しました． CREATEのロケット打ち上げ実験は3/22に行いました．私達のロケットは一本で，一年生教育を主目的としたものでしたが，CREATE打ち上げで初めてのK型エンジンを搭載しており，大島の制限高度である1kmに迫る870mまで打ち上げる予定でした． 肝心の打ち上げ結果ですが…ランチャー離脱に失敗し，飛翔には至りませんでした． 打ち上げの際の点火時に一瞬炎が上がり燃料が漏れたこと，回収後グレイン（燃料）に亀裂が確認されたこと等を元に原因究明を行ったところ，タンクと燃焼室の接続部にある流量調整部品(オリフィス)が欠落していたことが確認されました． 現在は，オリフィスが無かったことによる流量過多でグレインが破損し，燃焼が正常に行われなかったことが打ち上げ失敗の原因と見ています． この他にも，ロガー用SDカードの挿入忘れが確認され，イージーミスの目立つ打ち上げ実験となりました． 今回の大島打ち上げは残念な結果となってしまいましたが， チェック体制の強化や密なる情報共有・コミュニケーションによって日頃からエラー回避を行い，今後の打ち上げに臨む． 事の意識共有を反省会で行いました． 失敗を消化し，次回以降の機体製作，打ち上げに臨んで参ります！ これからもロケットサークルCREATEをよろしくお願い致します．
https://w.atwiki.jp/kikiredia/pages/561.html
妖界にあるうどん店。芝右衛門狸が独自の製法で作り出した手打ちうどんが、最近では映画になるほど大ブーム！コシのある麺、機械を一切使っていないので太さも色々。勿論、無添加！！皆さんもたぬきうどんを是非どうぞ。もちろん「たぬき蕎麦」もご用意しております。 来歴 2006年8月23日、「妖怪料理」 美味しそう!? な妖怪でのnanaki氏の書込みが初出。 nanaki（「妖怪料理」 美味しそう!? な妖怪 0273） 関連鬼事 腹鼓のうどん
https://w.atwiki.jp/p11agj4/
新品か中古かは別としても、ジーショックを購入することが決まったら、とにかく下取りGショックを高い値段で買ってもらうことが重要になります。その為、メール査定のプロセスが重要だと言えるのです。 Gショックの購入年月は相場を決定づける要素です。人気モデル同様、最近のものの方が高額で販売されますが、中古Gショックは、発売から3年経ったGショックがトータル的に値打ちがあると聞きます。 高いGショック買取価格を実現するコツは、クリーンさを演出することだと言えます。Gショック査定を行なう人に良いイメージを持ってもらえれば、査定額を高くさせることも難しくはないのです。 ここにきて「リユース店」など、いろいろな中古Gショック買取専門の店が一気に増えました。その要因は、取りも直さず中古Gショックを買い取ってもらいたいという需要が増加し続けているからだと教えてもらいま した。 回答を入力すれば、だいたいではあるけど最高の額も教えてもらえる。お家で待っていれば、大切なGショックを一番高く買ってくれるところはどこかが明らかになるのですから、どちらにしても活用するべきですよね。 https //gshocksite.wordpress.com/ ここしばらくで「リユース店」など、いろいろな中古Gショック買取専門業者がその数を増やしているとのことです。要因としては、すなわちGショック買取に対するニーズが増えつつあるからだと教えてもらいました 。 Gショックの所有者の立場からすれば、ちゃんと手をかけて使ってきたGショックということを考えたら、相場と比較してだいぶ低いGショック買取価格で取り引きされるなんて、納得できるはずもありません。 買取相場より高く買ってもらうための付属品は、本革のシートやGSHOCK用ケース、加えてG-SHOCKの箱などといったところです。レアなG-SHOCKも高値に貢献しそうですが、実は流行りや組合せによって評価が 変わるため、高価売却に寄与するとは言い切れないのです。 査定額を出す中古Gショック買取の店舗ごとに、少なからず査定額の開きがあります。それが本当なら、ほんのちょっとでも有利になる価格で持って行ってほしいと思いますよね。 とにかく遊ぶような気持ちで、インターネット上のGショックメール査定サービスに申し込んだら、 収獲があるでしょう。査定そのものは無料とされていますので、ラクに考えてトライしてみましょう。
https://w.atwiki.jp/hijinrui/pages/517.html
【作品名】なめとこ山の熊 【ジャンル】童話 【名前】小十郎を打ち殺した熊 【属性】熊 【大きさ】かなり大きなツキノワグマの成体 【攻撃力】一撃で小十朗（火縄銃を持った大柄な中年）を絶命させた 【防御力】火縄銃で撃たれても少しも倒れずに向かってこれる 【素早さ】かなり大きなツキノワグマ相応 【長所】かなり高い攻防 【短所】小十郎を殺すつもりはなかった vol.3 197 ：格無しさん：2011/08/06(土) 18 40 13.26 ID Xd4XTP+k 小十郎を打ち殺した熊考察 ○シンバ 撲殺勝ち ×マダムオクサ 毒負け △N-110 速すぎて当らん △リューク デスノートで殴られても平気 分け ○さまよう鎧 こっちの方が重いのでボコボコ殴ればそのうち勝ち ○ゾンビ 撲殺勝ち △美子ロボ 倒せない倒されない △腐った死体 互角くらい ×将軍 速すぎて一方的に斧で攻撃され負け ×ウォリアーバグ 噛みつき負け 将軍＞腐った死体＝美子ロボ＝小十郎を打ち殺した熊＞ゾンビ（悪代官）
https://w.atwiki.jp/sorcerian/pages/44.html
ああ、ジョセフィーヌは今何処 ケメケメ王国のプリンセス・マーベラの可愛がっていたペットのジョセフィーヌが、城の地下に広がるダンジョンに迷い込み、行方不明となった。 さあ、大変だソーサリアン。ジョセフィーヌをさがしだせ！ このシナリオは、３人までです。 ああ、ジョセフィーヌは今何処入手アイテムPC-8801 / PC-9801 / X1Turbo / PC-88VA プロローグ 登場アイテム 登場モンスター 入手アイテム PC-8801 / PC-9801 / X1Turbo / PC-88VA アイテム名 種類 かかっている星 魔法 火 水 木 月 太 金 土 王女の手袋 × 0 0 0 0 0 0 0 なし 山賊の剣 ARMS 10 0 3 0 0 3 0 なし いにしえの金貨 × 0 2 0 2 0 0 0 なし 傷薬 × 0 1 0 0 0 1 0 なし つるはし × 0 0 0 0 0 0 0 なし 銀の十字架 × 2 0 0 6 0 0 10 TIMIDITY 悪魔の紋章 RING 6 6 0 6 0 0 1 GIVE VIGOR ドラゴンの水晶 RING 1 0 7 10 0 0 2 ANGUISH プロローグ ペンタウァの東に位置するケメケメ王国に、ひとりの美しい王女がおりました。名前はマーベラ。兄弟のいないマーベラ王女は、ペットの犬、ジョセフィーヌを、まるで妹のようにかわいがっておりました。なにしろ、遊ぶときだけではなく、食事はもちろん、寝るときだって一緒、それどころかお風呂にも一緒に入るほどのかわいがり方だったのです。 ところが、ジョセフィーヌはお城の生活にちょっぴり飽きていたのでしょう。王女と共にちょっと散歩に出たときに、ハッと駆け出してしまったのです！しかも、ジョセフィーヌが駆け込んだところは、これまで誰も入ったことのない、城の地下のダンジョンではありませんか！ さあ大変です。城にいる兵士全員総出で、ダンジョンの地図を作りながらの捜索が続きましたが、何日たってもジョセフィーヌは見つかりません。このままではラチがあかない、と思った王女は、ついにソーサリアンを呼ぶことにしたのです。犬捜しのために……。 登場アイテム 王女の手袋 ジョセフィーヌの飼い主、マーベラ王女の手袋。ジョセフィーヌは王女にとてもよくなついているので、彼女の匂いがすれば、一目散に駆け寄ってくるだろう。 いにしえの金貨 古い時代の金貨で、かなりの値打ち物だという。なかには、この金貨とならば、どんな物とでも交換するという者までいるらしい。 ドラゴンの水晶 ラッキードラゴンの涙がこの水晶になった、という伝説を持つ。そのため、悪しき者に対して、ある力が働くというが……。 登場モンスター 魚 湖の中から氷を突き破って飛んで来る。 大コウモリ ゆっくりと近づいて来て、行く手を阻もうとする。 黒頭巾のバンブー 注意せよ！ 石化の弾を投げつけてくる。 毒虫 地面の中から現れ毒の弾を吐き出す。 アース・ウォーム これが魔道士ゲルフスの正体だ！！EXP 1500
https://w.atwiki.jp/haruhi_vip/pages/5865.html
妹「キョン君、『年上の女房は金の草鞋を履いてでも探せ』を読んでみて～」 キョン「『としうえのにょうぼうはきんのわらじをはいてでもさがせ』」 妹「ちがうよ～。『きん』じゃなくて『かね』だよ。金のわらじだと高級品すぎるよぉ～」 妹「やっぱり、キョン君はだめだね。ははは」 キョン「･･･」 キョン「と、いうことがあったんだ」 キョン「大方授業中の小話だろうが、兄の威厳というものがだな」 古泉「それは災難でしたね」 古泉「そもそもは、鉄製の草鞋は磨り減らないので値打ちの品を探すときは鉄の草鞋を準備しろということだそうです」 古泉「それが『かね』という音から『金』という漢字を当てた結果、準備にお金をかけると勘違いされていると聞いたことがあります」 キョン「さすが、トリビア部」 古泉「（ちらりとハルヒを見て）僕から言わせて貰えば、あなたは彼女の金の草鞋だと思いますが」 ハルヒ「あんたは草鞋扱いで十分よ」 キョン「おいおい、雑用係から草鞋にまで格下げはさすがにあんまりじゃないのか」 古泉「（お互いもう少し素直になっていただければ僕としては助かるのですが）」 さて、朝比奈さんのお茶の準備が出来たようだ キョン「ついでにだが、なぜ年上の女房なんだ？」 みくる「キョンくん、お茶です。熱いので気をつけてくださいね」 キョン「ありがとうございます」 みくる「古泉くんもどうぞ」 古泉「ありがとうございます」 古泉「『姉女房は身代の薬』という言葉があります。姉さん女房は家の中の万能薬のようなものであるという意味なのですが」 古泉「年上の女性はやり繰りが上手だから財産も増える、気遣いができ夫を立てるので円満な家族になると言われています」 キョン「（みんなにお茶を配るみくるを見ながら）たしかに年上の朝比奈さんは思いやりもあるし、俺を立ててくれることも多い」 古泉「年の差ももともとは１つ年上の女性をさす解釈が多く、これが６つ違いは睦まじい、８つ違いは末広がりという言い習わしもあるそうです」 キョン「そうかい。それならぜひ俺は朝比奈さんを奥さんにほしいね」 みくる「秋は蔵出しの熟成したお茶がおいしいと聞いたのでお茶の葉を変えてみたんだけど、どうでしょうか」 古泉「おいしいですよ」 キョン「こまめな気配りもあるし、このまま一生俺のためにお茶を入れて欲しいくらいですよ」 みくる「ふぇぇ･･･えっと、キョンくんがそういうなら･･･。うん、あたしでよければずっとおいしいお茶を入れ続けますよ」 古泉「ごちそうさまです。どうやらあなたには金の草鞋は必要ないようです」
https://w.atwiki.jp/nicorpg/pages/4966.html
事情により少し忙しくなるので一週間ほど更新が止まるかと思われます ご了承ください -- やふ (2008-09-19 01 15 26) 軍曹の罵倒が怖すぎるｗｗｗｗ -- アンネ (2008-09-19 01 28 11) ハートマンのーが -- 名無しさん (2008-09-19 01 37 15) ライトが普通のやつで逆にへんだｗｗ -- 名無しさん (2008-09-19 01 38 04) ↑2ミス ハートマンの ー が無くてハトマンになっているｗ -- 名無しさん (2008-09-19 01 38 55) うわー！やってしまったー！ 伸ばし棒って縦書きだと直接入力できないのでいっつも手描きしてるんですが すっかり忘れてた; 申し訳ないです; -- やふ (2008-09-19 01 49 51) ついでにいうと…社長の次は軍曹じゃなくておじいちゃんですよ…それとも仕様？ -- 名無しさん (2008-09-19 01 54 47) 軍曹、もうカンベ・・・痛い！顔はヤメテ！ボディーにして！（意味☆不明 -- 蒼い雷穿 (2008-09-19 01 57 26) ↑ 登場順では、おじいちゃんより先に軍曹が出たからこれでいいんじゃね？ -- 名無しさん (2008-09-19 06 59 15) 放送前のカラーバーより価値が無いワロタwwwwwwwww -- 名無しさん (2008-09-19 07 37 59) 何気に陰陽弾が混じってるｗｗ -- 名無しさん (2008-09-19 09 42 15) しかし今までで一番まともな部屋かもしれない -- 名無しさん (2008-09-19 10 25 41) 罵倒にぬるぽガッも混じってるぞｗｗｗｗ -- 名無しさん (2008-09-19 13 10 10) ハ トマン？いいえ、鳩男です -- 名無しさん (2008-09-19 17 47 35) うぉっ、まぶしっｗｗｗ 天狗を捕まえて説教する漢、ハートマッ！！ -- 名無しさん (2008-09-19 19 25 08) きっと写真のなかに微笑みデブもいるはずｗｗ -- 名無しさん (2008-09-19 22 17 50) 軍曹の言葉攻めには魔理沙も恐れたくらいだしなぁｗ -- 名無しさん (2008-09-19 22 49 52) むしろハルトマンに見えた自分は（ry -- 名無しさん (2008-09-20 04 28 30) ハ トマンが「値打ちが無い」って表現したのになんかもえた -- 名無しさん (2008-09-20 09 02 51) ↑４ ＥＤＦ隊員「デブがやられたぞ！」 -- 名無しさん (2008-09-20 10 35 43) 勇者気取りってドラクエのことかな？ -- 名無しさん (2008-09-20 11 02 35) ↑どうなんでしょう、たしかにドラクエの主人公は家の中荒すけどｗそれにしても3流ジャーナリストでワロタ -- 名無しさん (2008-09-20 11 23 41) 壁に勲章飾ってあるけど、軍曹の胸にも勲章があるな。なのはに貰った奴かな？ -- 名無しさん (2008-09-20 23 30 06) 勲章といってもいろいろとあるからなぁ。軍曹に限って極楽トンボ章とかはありえないだろうけど・・・ｗ -- 名無しさん (2008-09-20 23 43 24) 名前 コメント
https://w.atwiki.jp/asea/pages/31.html
Ｃ－01：打ち上げ施設 Ｌ：打ち上げ施設 ＝ ｛ ｔ：名称 ＝ 打ち上げ施設（施設） ｔ：要点 ＝ オペレーター，発射台，管制棟とアンテナ ｔ：周辺環境 ＝ 設置された国 ｔ：評価 ＝ オペレート能力５ 住みやすさ０ ｔ：特殊 ＝ ｛ ＊打ち上げ施設の施設カテゴリ ＝ ，，，国家施設、建築物。 ＊打ち上げ施設の位置づけ ＝ ，，，交通機関、軍事施設。 ＊打ち上げ施設の設置 ＝ ，，，設置された国。 ＊打ち上げ施設の面積 ＝ ，，，５０００ｍ２。 ＊打ち上げ施設の構造 ＝ ，，，発射台、管制棟よりなる。 ＊打ち上げ施設の特殊効果１ ＝ オペレーター系アイドレス装備の猫士、犬士を１０体までおける。 ＊打ち上げ施設の特殊効果２ ＝ ※打ち上げ規模は特殊値段によって決まります。下記の表からお選びください｛ ＊３０人機までの機体とその搭乗者を打ち上げることができる。 1500マイル1000億 ＊アビシニアン一機とその搭乗者を打ち上げることができる。 1000マイル1000億 ＊アビシニアン一機とその搭乗者を、一度きりだけ打ち上げることができる。 700マイル800億 ＊２０人機までの機体とその搭乗者を打ち上げることができる。 600マイル700億 ＊２０人機までの機体とその搭乗者を、一度きりだけ打ち上げることができる。 500マイル400億 ＊１０人機までの機体とその搭乗者を打ち上げることができる。 400マイル300億 ＊１０人機までの機体とその搭乗者を、一度きりだけ打ち上げることができる。 200マイル150億 ｝ ｝ ｔ：→次のアイドレス ＝ オペレーター（職業），根性で大気圏突入（絶技），わんにゃん宇宙開発促進運動（イベント），宇宙での宝探し（冒険） ｝ お見積もり 土地代 ０マイル 設計費 ２０マイル 資材費 ４０マイル 特殊費（土地代、設計費、資材費を含む値段を表示しております。） 特殊 マイル値段 資金値段 ＊打ち上げ施設は３０人機までの機体とその搭乗者を打ち上げることができる。 1500マイル 1000億 ＊打ち上げ施設はアビシニアン一機とその搭乗者を打ち上げることができる。 1000マイル 1000億 ＊打ち上げ施設はアビシニアン一機とその搭乗者を、一度きりだけ打ち上げることができる。 700マイル 800億 ＊打ち上げ施設は２０人機までの機体とその搭乗者を打ち上げることができる。 600マイル 700億 ＊打ち上げ施設は２０人機までの機体とその搭乗者を、一度きりだけ打ち上げることができる。 500マイル 400億 ＊打ち上げ施設は１０人機までの機体とその搭乗者を打ち上げることができる。 400マイル 300億 ＊打ち上げ施設は１０人機までの機体とその搭乗者を、一度きりだけ打ち上げることができる。 200マイル 150億
https://w.atwiki.jp/pc_mail_adress1000/pages/26.html
#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD# # Vivid Studio.[ http //www17.big.or.jp/~obochan/vivid/ ]# # BLANK BOARD [ http //pom.to/ ]# #-----------------------------------------------------------# # 戦争中処理 Version 1.0 #--- [注意事項] --------------------------------------------# # 1.このスクリプトは以下の利用規程に従って配布しています。# # http //www24.big.or.jp/~obo/game/ore_/gild/# #-----------------------------------------------------------# #------------------------------------------------------------------------------- #戦争中処理 sub wr_st { syogo; if(!$ck){ $log .="$date $cmp[$nation] に進入しました br ¥n"; $tm=0; #-----------------------------------------------------ここから if ($war_cr == $nation){ # 前回と同一国 $war_cnt++; }else{ # 同一国で無いならカウントを初期化 $war_cnt = 1; $war_cr = $nation; # ←抜けていたので追加 } #-----------------------------------------------------ここまで usrdata_read; $sach=0; while($sach 15){ my $tg = int(rand($#usrfile)); open(IN,"$usrdata$usrfile[$tg]") || error("Can t open $usrfile[$tg].cgi",1); $tdat= IN ; close(IN); # 参加者ステータス取得 %DAT = ; @prats = split(/,/,$tdat); foreach $prats (@prats){ ($key,$v) = split(/;/,$prats); $DAT{$key} = $v; } $z = ($lv-20); if ($nation==$DAT{ camp } $DAT{ lv } $z){ $tnm= $DAT{ nm };#名前 敵 $tlv= $DAT{ lv };#ﾚﾍﾞﾙ 敵 $thp= $DAT{ max_hp };#HP $thp_max= $DAT{ max_hp };#HP $tmp= $DAT{ max_mp };#MP $tua= $DAT{ ua };#UA $tud= $DAT{ ud };#UD $tag= $DAT{ ag };#AG $tcp= $DAT{ camp };#所属 $tdf_a= $DAT{ df_a };#防具 敵 $tdg_a= $DAT{ dg_a };#武具 敵 $tlr= $DAT{ lr };#LR $tsol= $g_p[$DAT{ rank }];#階級 $tsol_lv= $DAT{ sol_lv };# $ck=1; } $sach++; } # NPC読み込み if(!$tnm){ require ./inc/ore_sub-npc_1.cgi ; local $v=int(rand(5)); ck_ne_1; } if($nation==1){ $t_cs=$cs1; }elsif($nation==2){ $t_cs=$cs2; }elsif($nation==3){ $t_cs=$cs3; }elsif($nation==4){ $t_cs=$cs4; }elsif($nation==5){ $t_cs=$cs5; } if($tsol =$t_cs){ $t_cs-=$tsol; }elsif($tsol $t_cs){ $tsol=$t_cs; } if($nation==1){ $cs1-=$tsol; }elsif($nation==2){ $cs2-=$tsol; }elsif($nation==3){ $cs3-=$tsol; }elsif($nation==4){ $cs4-=$tsol; }elsif($nation==5){ $cs5-=$tsol; } if($tsol 100){ $log .="$cmp[$nation] 側は¥予¥備¥兵不足の為、市民を急遽徴兵したようだ br ¥n"; $tsol=$g_p[$DAT{ rank }]; if($nation==1){ $cn1-=100; $cn1=0 if($cn1 1); }elsif($nation==2){ $cn2-=100; $cn2=0 if($cn2 1); }elsif($nation==3){ $cn3-=100; $cn3=0 if($cn3 1); }elsif($nation==4){ $cn4-=100; $cn4=0 if($cn4 1); }elsif($nation==5){ $cn5-=100; $cn5=0 if($cn5 1); } hist_write;#国ログ } if($tsol 100){ $tsol=$bs_h[$v]; } $b_n = int((rand(20))+5); $log .="今回の作戦の戦闘限界ターンは $b_n ターンです br ¥n"; $b_v=0; $log .=" hr size=1 noshade ¥n"; $log .="$cmp[$nation] から $tnm が率いる防衛部隊が出撃してきた！ br ¥n"; $log .=" hr size=1 noshade ¥n"; $log .="侵攻作戦を実行に移します！戦闘開始！ br ¥n"; $log2 .=" form action=$script method=$method name=ore_ ¥n"; $log2 .=" td align=center valign=middle ¥n" if($mv_mode eq pc ); $log2 .=" input type=hidden name=id value=$id input type=hidden name=pw value=$pw ¥n"; $log2 .=" input type=hidden name=cmd value=¥"-1¥" input type=submit $button1 value=¥" 戦闘突入！！ ¥" ¥n"; $log .=" hr size=1 noshade ¥n"; $ck=1; }elsif($ck==1){ # 戦闘処理読み込み require ./inc/ore_sub-battle.cgi ; $j=int($b_n-$b_v); $j=0 if($j 1); $log .=" p $cmp[$camp]軍 $nm $cl[$rank] 指揮($lr) 部隊数($sol) VS $cmp[$nation]軍 $tnm 指揮($tlr) 部隊数($tsol) /p ¥n"; $log .=" p - 戦闘限界まであと $j ターン - /p ¥n"; $log .=" hr size=1 noshade ¥n"; $qz = int($lv-20); if($b_n eq $tlr eq ){ $tm = $ck = $cmd = 0; $nation = 0; $type= ; $log .="戦闘中にバグが発生しました！強制的にメイン画面に戻ります br ¥n"; call_main_st; } if($j 2 $tm 10 $cmd !=-1){ my $l=int(rand(5)); if($l==0 $qz $tlv){ $tm=50; $log .=" p なんと敵軍を指揮する $tnm から一騎討ちの申¥し込みが！ /p p どうしますか？ /p ¥n"; $log .=" p 敵将ｽﾃｰﾀｽ - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv ) /p ¥n"; } } if($tm==50){ if($cmd==10){ $log .="一騎討ちの申¥し込みを断った br 評価がほんの少し下がった br ¥n"; $tm=0; $rank_exe-=1; }elsif($cmd==20){ $log .="$tnm の挑戦を受けてこの戦いの勝敗を架けた一騎討ちを行なう事に！ br ¥n"; $tm=60; $rank_exe+=1; } }elsif($tm==60){ $log .="真剣勝負開始！ br ¥n"; $tm=70; }elsif($tm==70){ # 戦闘処理呼び出し bt_cm; if($thp 1){ $G =int(rand(200))+((500*$tlv)-($lv*50)); $G =1 if($G 1); $G =int(rand(500))+1500 if($G 2000); $gold +=$G; $E =int((((((rand(5))+5)+$tlv)*2)*0.8)-$lv); $E =1 if($E 1); $E =int(rand(50))+250 if($E 300); $exe+=$E; $thp=0; $wam_cnt+=1; $bst = ; $bt =0; $log .="$nm は $tnm を倒した！ br ¥n"; $log .="$G の金 と $E の経験値を得た！ br ¥n"; $log .=" p /p ¥n"; $H =int(rand(51)); $E = int((100+$H)*$lv); $E = int((rand(500))+1800) if($E 2000); $G = 20000; #改造前は50+$H $N = $H+150; #ここまで $exe+=$E; $gold+=$G; if($camp==1){ $cs1+=int($sol); $cn1+=$N; }elsif($camp==2){ $cs2+=int($sol); $cn2+=$N; }elsif($camp==3){ $cs3+=int($sol); $cn3+=$N; }elsif($camp==4){ $cs4+=int($sol); $cn4+=$N; }elsif($camp==5){ $cs5+=int($sol); $cn5+=$N; } $tsol=int($tsol/2); if($nation==1){ $cs1+=$tsol; }elsif($nation==2){ $cs2+=$tsol; }elsif($nation==3){ $cs3+=$tsol; }elsif($nation==4){ $cs4+=$tsol; }elsif($nation==5){ $cs5+=$tsol; } if($nation==1){ $cn1-=$N; $cn1=0 if($cn1 1); }elsif($nation==2){ $cn2-=$N; $cn2=0 if($cn2 1); }elsif($nation==3){ $cn3-=$N; $cn3=0 if($cn3 1); }elsif($nation==4){ $cn4-=$N; $cn4=0 if($cn4 1); }elsif($nation==5){ $cn5-=$N; $cn5=0 if($cn5 1); } $log .="敵軍は $tnm の敗北に戦意を喪失しました！将を欠いた部隊など敵ではありません br 敵軍を追撃し、かなりの被害を与えました！ br ¥n"; $log .="$cmp[$nation]から $N の国力を奪いました br 更に$E の経験値と $G の報酬を得た！ br ¥n"; $wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm と一騎討ちの末これを下し $N の国力を奪う事に成功したようです"; touitu; $V =int(rand(6))+5; $sol_lv-=$V; $rank_exe+=int($V*2)+5; $sol=0; $tnm= ; $ck = $tm = $cmd = 0; $nation=0; $type= ; hist_write;#国ログ }elsif($hp 1){ $bst = ; $bt =0; $ck =0; $hp =0; $G=int(rand(10))+1; $E=int(rand(5))+1; $gold+=$G; $exe+=$E; $log .="あなたは $tnm に敗れ去った… br ¥n"; $log .="$G の金 と $E の経験値を得た br ¥n"; $log .=" p /p ¥n"; $sol=int($sol/2); if($camp==1){ $cs1+=int($sol); $cn1+=$N; }elsif($camp==2){ $cs2+=int($sol); $cn2+=$N; }elsif($camp==3){ $cs3+=int($sol); $cn3+=$N; }elsif($camp==4){ $cs4+=int($sol); $cn4+=$N; }elsif($camp==5){ $cs5+=int($sol); $cn5+=$N; } if($nation==1){ $cs1+=$tsol; }elsif($nation==2){ $cs2+=$tsol; }elsif($nation==3){ $cs3+=$tsol; }elsif($nation==4){ $cs4+=$tsol; }elsif($nation==5){ $cs5+=$tsol; } $log .="一騎討ちに敗れ指揮官を失ったあなたの部隊は敵にかなりの損害を与えられた… br ¥n"; $rank_exe-=15; $log .="部隊全滅という不名誉な敗北に、貴方に対する評価が著しく低下した br ¥n"; if($rank_exe 1){ $rank--; $rank=1 if($rank 1); $next_rank=int(($rank*$rank)*3); $v=$next_rank-10; $rank_exe=$v; $log .="一階級降格されてしまった… br ¥n"; } $wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm と一騎討ちを演じるが敗北し部隊は敗走したようです"; $sol=0; $tnm= ; $ck = $tm = $cmd = 0; $nation=0; $type= ; hist_write;#国ログ } }elsif($tm 1){ if($cmd==10){ my $btp = $ag + int(rand($lv/2) +1); my $bte = $tag+ int(rand($tlv/2)+1); if($j 3){ $log .="ここまで戦闘が進行した状態での退却は不¥可¥能¥です br ¥n"; $b_n+=1; }elsif($btp $bte){ $log .="敵軍に逃走経路を塞がれ、もはや撤退は不可能です。 br ¥n"; $b_n+=1; }else{ $log .="残念ですが作戦を中止し退却します br ¥n"; if($camp==1){ $cs1+=int($sol); }elsif($camp==2){ $cs2+=int($sol); }elsif($camp==3){ $cs3+=int($sol); }elsif($camp==4){ $cs4+=int($sol); }elsif($camp==5){ $cs5+=int($sol); } if($nation==1){ $cs1+=$tsol; }elsif($nation==2){ $cs2+=$tsol; }elsif($nation==3){ $cs3+=$tsol; }elsif($nation==4){ $cs4+=$tsol; }elsif($nation==5){ $cs5+=$tsol; } $wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、 $tnm 防衛部隊と交戦。余儀なく撤退した模様"; $sol_lv-=int(rand(40)); $rank_exe-=1; $rank_exe = 0 if($rank_exe 1); $tnm= ; $ck = $tm = $cmd = 0; $nation=0; $type= ; hist_write;#国ログ } }elsif($cmd==1){ $l=int(rand(3)); if($l==0){ $x=int(($sol/100)+($lr*7))+$sol_lv; $y=int(($tsol/100)+($tlr*5))+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (攻撃陣形) VS $tnm (攻撃陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; }elsif($l==1){ $x=int((($sol/100)+($lr*10))*1.3)+$sol_lv; $y=int((($tsol/100)+($tlr*8))*0.5)+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (攻撃陣形) VS $tnm (防御陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; }elsif($l==2){ $x=int((($sol/100)+($lr*10))*0.4)+$sol_lv; $y=int((($tsol/100)+($tlr*8))*2)+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (攻撃陣形) VS $tnm (突撃陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; } }elsif($cmd==2){ $l=int(rand(3)); if($l==0){ $x=int((($sol/100)+($lr*10))*0.4)+$sol_lv; $y=int((($tsol/100)+($tlr*8))*2)+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (防御陣形) VS $tnm (攻撃陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; }elsif($l==1){ $x=int(($sol/100)+($lr*7))+$sol_lv; $y=int(($tsol/100)+($tlr*8))+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (防御陣形) VS $tnm (防御陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; }elsif($l==2){ $x=int((($sol/100)+($lr*10))*1.3)+$sol_lv; $y=int((($tsol/100)+($tlr*8))*0.5)+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (防御陣形) VS $tnm (突撃陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; } }elsif($cmd==3){ $l=int(rand(3)); if($l==0){ $x=int((($sol/100)+($lr*10))*1.3)+$sol_lv; $y=int((($tsol/100)+($tlr*8))*0.5)+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (突撃陣形) VS $tnm (攻撃陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; }elsif($l==1){ $x=int((($sol/100)+($lr*10))*0.5)+$sol_lv; $y=int((($tsol/100)+($tlr*8))*2)+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (突撃陣形) VS $tnm (防御陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; }elsif($l==2){ $x=int(($sol/100)+($lr*7))+$sol_lv; $y=int(($tsol/100)+($tlr*8))+$tsol_lv; $x=1 if($x 1); $y=1 if($y 1); $log .="$nm (突撃陣形) VS $tnm (突撃陣形) br ¥n"; $log .="○自軍被害 $y ●敵軍被害 $x br ¥n"; $sol-=$y; $tsol-=$x; } } $log .=" hr size=1 noshade ¥n"; if($sol 1 $tsol 1){ $log .="両軍ともに壊滅的損害を受け戦闘継続が不可能となりました br 今回の作戦は引き分けです¥n"; $log .="国力は両陣営とも変化なし br ¥n"; $H =int(rand(21)); $E = int((20+$H)*$lv); $E = int(rand(50))+170 if($E 200); $G = 5000; $exe+=$E; $gold+=$G; $rank_exe-=10; $log .="部隊全滅という不名誉な敗北の為、貴方に対する評価が著しく低下した br ¥n"; if($rank_exe 1){ $rank--; $rank=1 if($rank 1); $next_rank=int(($rank*$rank)*3); $v=$next_rank-10; $rank_exe=$v; $log .="一階級降格されてしまった… br ¥n"; } $log .="$E の経験値と $G の報酬を得た br ¥n"; $wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊に阻まれ激戦の末、両軍壊滅したようです"; $sol=0; $sol_lv=0; $tnm= ; $ck = $tm = $cmd = 0; $nation=0; $type= ; hist_write;#国ログ }elsif($tsol 1){ $log .="敵部隊を撃破しました！ br 我が軍の勝利です！ br ¥n"; $H =int(rand(51)); $E = int((100+$H)*$lv); $wam_cnt+=1; $sogo5 =137 if ($wam_cnt == 249); $sogo5 =138 if ($wam_cnt == 449); $sogo5 =139 if ($wam_cnt == 999); $sogo5 =140 if ($wam_cnt == 1999); $sogo5 =141 if ($wam_cnt == 2449); $sogo5 =142 if ($wam_cnt == 2999); $sogo5 =143 if ($wam_cnt == 3999); $sogo5 =144 if ($wam_cnt == 4999); $E = int((rand(500))+1800) if($E 2000); $G = 20000; #改造前は50+$H $N = $H+150; #ここまで $exe+=$E; $gold+=$G; if($camp==1){ $cs1+=int($sol); $cn1+=$N; }elsif($camp==2){ $cs2+=int($sol); $cn2+=$N; }elsif($camp==3){ $cs3+=int($sol); $cn3+=$N; }elsif($camp==4){ $cs4+=int($sol); $cn4+=$N; }elsif($camp==5){ $cs5+=int($sol); $cn5+=$N; } if($nation==1){ $cn1-=$N; $cn1=0 if($cn1 1); }elsif($nation==2){ $cn2-=$N; $cn2=0 if($cn2 1); }elsif($nation==3){ $cn3-=$N; $cn3=0 if($cn3 1); }elsif($nation==4){ $cn4-=$N; $cn4=0 if($cn4 1); }elsif($nation==5){ $cn5-=$N; $cn5=0 if($cn5 1); } $log .="$cmp[$nation]から $N の国力を奪いました br $E の経験値と $G の報酬を得た！ br ¥n"; $wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊を撃破。 $N の国力を奪う事に成功したようです"; touitu; $V =int(rand(6))+10; $sol_lv-=$V; $rank_exe+=$V; $sol=0; $tnm= ; $ck = $tm = $cmd = 0; $nation=0; $type= ; hist_write;#国ログ }elsif($sol 1){ $log .="我が軍は敗北しました…。残念ですが撤退します。 br ¥n"; $log .="国力は両陣営とも変化なし br ¥n"; $H =int(rand(21)); $E = int((20+$H)*$lv); $E = int(rand(50))+170 if($E 200); $G = 5000; $exe+=$E; $gold+=$G; $log .="$E の経験値と $G の報酬を得た br ¥n"; $wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊の前に敗退したようです"; if($nation==1){ $cs1+=$tsol; }elsif($nation==2){ $cs2+=$tsol; }elsif($nation==3){ $cs3+=$tsol; }elsif($nation==4){ $cs4+=$tsol; }elsif($nation==5){ $cs5+=$tsol; } $rank_exe-=10; $log .="部隊全滅という不名誉な敗北に、貴方に対する評価が著しく低下した br ¥n"; if($rank_exe 1){ $rank--; $rank=1 if($rank 1); $next_rank=int(($rank*$rank)*5); $v=$next_rank-10; $rank_exe=$v; $log .="一階級降格されてしまった… br ¥n"; } $sol=0; $tnm= ; $ck = $tm = $cmd = 0; $nation=0; $type= ; hist_write;#国ログ }elsif($b_n $b_v){ $log .="戦闘限界ターンを超えてしまった…これ以上は戦えません br ¥n"; $log .="国力は両陣営とも変化なし br ¥n"; $H =int(rand(21)); $E = int((20+$H)*$lv); $E = int(rand(50))+170 if($E 200); $G = 5000; $exe+=$E; $gold+=$G; $log .="$E の経験値と $G の報酬を得た br ¥n"; $wr_mes ="$date $cmp[$camp] の $syogo が $cmp[$nation] に侵攻、$tnm 防衛部隊に阻まれ戦闘限界をオーバーしたようです"; $rank_exe-=5; $log .="作戦に失敗した為、貴方に対する評価が低下した br ¥n"; if($rank_exe 1){ $rank--; $rank=1 if($rank 1); $next_rank=int(($rank*$rank)*3); $v=$next_rank-10; $rank_exe=$v; $log .="一階級降格されてしまった… br ¥n"; } $sol_lv-=int(rand(40)); $sol=0; $tnm= ; $ck = $tm = $cmd = 0; $nation=0; $type= ; hist_write;#国ログ } $b_v+=1 if($cmd 0); } $log2 .=" form action=$script method=$method name=ore_ ¥n"; $log2 .=" td align=center valign=middle ¥n" if($mv_mode eq pc ); $log2 .=" input type=hidden name=id value=¥"$id_p¥" ¥n"; $log2 .=" input type=hidden name=pw value=¥"$pw_p¥" ¥n"; if($rank*$sol_lv =8000){ $log2 .=" select name=cmd size=1 option value=1 攻撃陣形 /option option value=2 防御陣形 /option option value=3 突撃陣形 /option option value=4 一騎打ち /option option value=10 逃走 /option ¥n"; $log2 .=" /select "; }else{ $log2 .=" select name=cmd size=1 option value=1 攻撃陣形 /option option value=2 防御陣形 /option option value=3 突撃陣形 /option option value=10 逃走 /option ¥n"; $log2 .=" /select "; if($tsol 1||$sol 1){ $log2 .=" input type=hidden name=cmd value=-1 ¥n"; }elsif($tm==50){ $log2 .=" select name=cmd size=1 option value=10 嫌だ /option option value=20 了承 /option ¥n"; $log2 .=" /select "; }elsif($tm==60){ $log2 .=" input type=hidden name=cmd value=-1 ¥n"; }elsif($tm==70){ spell_sp; }elsif($tm 1){ $log2 .=" select name=cmd size=1 option value=1 攻撃陣形 /option option value=2 防御陣形 /option option value=3 突撃陣形 /option option value=10 逃走 /option ¥n"; $log2 .=" /select ";#------------- ここから if ($tm 1 $cmd==4) { $tm=50; $cmd=20; } #------------- ここまで if($tm==50){ } $log2 .=" br ";#テーブルずれ修正 $log2 .=" input type=submit $button1 value=¥"NEXT！¥" $td_end /form ¥n";#テーブル追加 /tr /table } if($cn1 1 $ce1 1){ $wr_mes ="$date $cmp[1] が $syogo によって壊滅的損害を受け亡国となりました。"; $bou_cnt+=1; $sogo7 =177 if ($bou_cnt == 1); $sogo7 =178 if ($bou_cnt == 2); $sogo7 =179 if ($bou_cnt == 5); $sogo7 =180 if ($bou_cnt == 10); $sogo7 =181 if ($bou_cnt == 20); $sogo7 =182 if ($bou_cnt == 30); $sogo7 =183 if ($bou_cnt == 40); $sogo7 =184 if ($bou_cnt == 50); $ce1=1; hist_write;#国ログ }elsif($cn2 1 $ce2 1){ $wr_mes ="$date $cmp[2] が $syogo によって壊滅的損害を受け亡国となりました。"; $bou_cnt+=1; $sogo7 =177 if ($bou_cnt == 1); $sogo7 =178 if ($bou_cnt == 2); $sogo7 =179 if ($bou_cnt == 5); $sogo7 =180 if ($bou_cnt == 10); $sogo7 =181 if ($bou_cnt == 20); $sogo7 =182 if ($bou_cnt == 30); $sogo7 =183 if ($bou_cnt == 40); $sogo7 =184 if ($bou_cnt == 50); $ce2=1; hist_write;#国ログ }elsif($cn3 1 $ce3 1){ $wr_mes ="$date $cmp[3] が $syogo によって壊滅的損害を受け亡国となりました。"; $bou_cnt+=1; $sogo7 =177 if ($bou_cnt == 1); $sogo7 =178 if ($bou_cnt == 2); $sogo7 =179 if ($bou_cnt == 5); $sogo7 =180 if ($bou_cnt == 10); $sogo7 =181 if ($bou_cnt == 20); $sogo7 =182 if ($bou_cnt == 30); $sogo7 =183 if ($bou_cnt == 40); $sogo7 =184 if ($bou_cnt == 50); $ce3=1; hist_write;#国ログ }elsif($cn4 1 $ce4 1){ $wr_mes ="$date $cmp[4] が $syogo によって壊滅的損害を受け亡国となりました。"; $bou_cnt+=1; $sogo7 =177 if ($bou_cnt == 1); $sogo7 =178 if ($bou_cnt == 2); $sogo7 =179 if ($bou_cnt == 5); $sogo7 =180 if ($bou_cnt == 10); $sogo7 =181 if ($bou_cnt == 20); $sogo7 =182 if ($bou_cnt == 30); $sogo7 =183 if ($bou_cnt == 40); $sogo7 =184 if ($bou_cnt == 50); $ce4=1; hist_write;#国ログ }elsif($cn5 1 $ce5 1){ $wr_mes ="$date $cmp[5] が $syogo によって壊滅的損害を受け亡国となりました。"; $bou_cnt+=1; $sogo7 =177 if ($bou_cnt == 1); $sogo7 =178 if ($bou_cnt == 2); $sogo7 =179 if ($bou_cnt == 5); $sogo7 =180 if ($bou_cnt == 10); $sogo7 =181 if ($bou_cnt == 20); $sogo7 =182 if ($bou_cnt == 30); $sogo7 =183 if ($bou_cnt == 40); $sogo7 =184 if ($bou_cnt == 50); $ce5=1; hist_write;#国ログ }elsif($cn1 1000 $ce1 0){ $wr_mes ="$date $cmp[1] が $syogo の活躍により亡国から復興しました。"; $huk_cnt+=1; $sogo8 =192 if ($huk_cnt == 1); $sogo8 =193 if ($huk_cnt == 2); $sogo8 =194 if ($huk_cnt == 3); $sogo8 =195 if ($huk_cnt == 5); $sogo8 =196 if ($huk_cnt == 7); $sogo8 =197 if ($huk_cnt == 10); $sogo8 =198 if ($huk_cnt == 15); $sogo8 =199 if ($huk_cnt == 20); $sogo8 =200 if ($huk_cnt == 25); $sogo8 =201 if ($huk_cnt == 30); $ce1=0; hist_write;#国ログ }elsif($cn2 1000 $ce2 0){ $wr_mes ="$date $cmp[2] が $syogo の活躍により亡国から復興しました。"; $huk_cnt+=1; $sogo8 =192 if ($huk_cnt == 1); $sogo8 =193 if ($huk_cnt == 2); $sogo8 =194 if ($huk_cnt == 3); $sogo8 =195 if ($huk_cnt == 5); $sogo8 =196 if ($huk_cnt == 7); $sogo8 =197 if ($huk_cnt == 10); $sogo8 =198 if ($huk_cnt == 15); $sogo8 =199 if ($huk_cnt == 20); $sogo8 =200 if ($huk_cnt == 25); $sogo8 =201 if ($huk_cnt == 30); $ce2=0; hist_write;#国ログ }elsif($cn3 1000 $ce3 0){ $wr_mes ="$date $cmp[3] が $syogo の活躍により亡国から復興しました。"; $huk_cnt+=1; $sogo8 =192 if ($huk_cnt == 1); $sogo8 =193 if ($huk_cnt == 2); $sogo8 =194 if ($huk_cnt == 3); $sogo8 =195 if ($huk_cnt == 5); $sogo8 =196 if ($huk_cnt == 7); $sogo8 =197 if ($huk_cnt == 10); $sogo8 =198 if ($huk_cnt == 15); $sogo8 =199 if ($huk_cnt == 20); $sogo8 =200 if ($huk_cnt == 25); $sogo8 =201 if ($huk_cnt == 30); $ce3=0; hist_write;#国ログ }elsif($cn4 1000 $ce4 0){ $wr_mes ="$date $cmp[4] が $syogo の活躍により亡国から復興しました。"; $huk_cnt+=1; $sogo8 =192 if ($huk_cnt == 1); $sogo8 =193 if ($huk_cnt == 2); $sogo8 =194 if ($huk_cnt == 3); $sogo8 =195 if ($huk_cnt == 5); $sogo8 =196 if ($huk_cnt == 7); $sogo8 =197 if ($huk_cnt == 10); $sogo8 =198 if ($huk_cnt == 15); $sogo8 =199 if ($huk_cnt == 20); $sogo8 =200 if ($huk_cnt == 25); $sogo8 =201 if ($huk_cnt == 30); $ce4=0; hist_write;#国ログ }elsif($cn5 1000 $ce5 0){ $wr_mes ="$date $cmp[5] が $syogo の活躍により亡国から復興しました。"; $huk_cnt+=1; $sogo8 =192 if ($huk_cnt == 1); $sogo8 =193 if ($huk_cnt == 2); $sogo8 =194 if ($huk_cnt == 3); $sogo8 =195 if ($huk_cnt == 5); $sogo8 =196 if ($huk_cnt == 7); $sogo8 =197 if ($huk_cnt == 10); $sogo8 =198 if ($huk_cnt == 15); $sogo8 =199 if ($huk_cnt == 20); $sogo8 =200 if ($huk_cnt == 25); $sogo8 =201 if ($huk_cnt == 30); $ce5=0; hist_write;#国ログ } $layout_flag=1; write_data; hist_write if($touitu_flag); } #------------------------------------------------------------------------------- #統一処理 sub touitu{ syogo; if($camp==1){ if($cn1 =$data_reset){ $wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！"; $sogo2=17;#覇者記録 $hasya=$nm;#覇者記録 $hcamp=$camp; $touitu_flag=1; } }elsif($camp==2){ if($cn2 =$data_reset){ $wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！"; $sogo2=17;#覇者記録 $hasya=$nm;#覇者記録 $hcamp=$camp; $touitu_flag=1; } }elsif($camp==3){ if($cn3 =$data_reset){ $wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！"; $sogo2=17;#覇者記録 $hasya=$nm;#覇者記録 $hcamp=$camp; $touitu_flag=1; } }elsif($camp==4){ if($cn4 =$data_reset){ $wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！"; $hasya=$nm;#覇者記録 $hcamp=$camp; $touitu_flag=1; } }elsif($camp==5){ if($cn5 =$data_reset){ $wr_mes ="$date $cmp[$camp] が $syogo 等の活躍により大陸を制覇しました！！！"; $hasya=$nm;#覇者記録 $hcamp=$camp; $touitu_flag=1; } } } 1; 結果 構文エラーがあります。ERRORの場所は あなたのプログラムの 1016行目付近だと思います。→1016行目へ 一番最後にある閉じ括弧や区切り文字（カンマなど）などが足りない、多い、違うなどの場合があります。
https://w.atwiki.jp/xboxonescore/pages/1280.html
ペルソナ5 ザ・ロイヤル 項目数：52 総ポイント：1000 難易度： GamePass対応（2022年10月21日～） 1周でコンプ可能だが100時間前後かかる。実績自体は簡単だがストーリーが長い。 一部時限実績あり RPG部分はゲーム中でも難易度変更可能、強力なDLCペルソナを最初から利用可能で問題にはならない。 色欲の城、落城 城パレスクリア 15 虚飾の美術館、閉館 美術館パレスクリア 15 暴食の銀行、破綻 銀行パレスクリア 15 憤怒の金字塔、倒壊 ピラミッドパレスクリア 15 強欲の宇宙基地、壊滅 宇宙基地パレスクリア 15 嫉妬の賭場、閉鎖 カジノパレスクリア 15 傲慢の客船、沈没 客船パレスクリア 15 真のトリックスター メメントスクリア 15 未来奪還 全てのパレスをクリア 15 選びし道 エンディングを見た 60 反逆の魂 アルセーヌを入手した 15 怪盗団結成 怪盗団を結成した 15 世直しへの一歩 ミッションをクリアした 15 優等生の仮面 試験で一位を取った 40 真の才能 人間パラメータを全てＭＡＸにした 40 東京エンジョイ 誰かとスポットに行った 15 最高の相棒（パートナー） 恋人を作った 40 真の協力者 いずれかのコープをＭＡＸにした 40 覚醒怪盗団 仲間のペルソナを最終進化させた 15 お前の中の俺 会話交渉でペルソナを入手した 15 繋がる一手 バトンタッチを行った 15 派手にいこう 凶魔の爆発で敵を倒した 15 はじめてのワイヤー ワイヤーで移動した 15 テクニシャン テクニカルを発生させた 15 異能を盗みし者 パレスボスのスキルアクセサリーを入手した 40 怪盗の本分 宝魔を入手した 15 ショータイム！ ショータイムを使った 15 ジョゼのお得意様 メメントスで花を交換した 15 スタンプはじめました メメントスでスタンプを活用した 15 力を求めて メメントスの認知変化を最大にした 40 メメントスの異変 メメントスでハプニングに遭遇した 15 類まれな反逆者 刈り取るもの撃破 40 再生に至る処刑 ギロチン刑を行った 15 集団処刑人 集団ギロチンを行った 15 仮面燻製 独房送りしたペルソナに香を使った 15 数多の犠牲の上に 絞首刑を行った 15 事故にご注意を 合体警報時に処刑を行った 15 崇高な実験 電気椅子処刑を行った 15 ルブラン掃除人 ルブラン店内を掃除した 15 頑張れバイト君 アルバイトを行った 15 祝・初安打 バッティングセンターで初めて球を打った 15 長湯にご注意 銭湯でノボせた 15 一攫千金 宝くじが当たった 15 クレーンゲーマー クレーンゲームで景品をゲットした 15 意外な値打ちモノ 古着屋で古着を売った 15 ダーツプレイヤー ダーツで遊んだ 15 ハスラーへの道 ビリヤードで遊んだ 15 ジャズ入門 ジャズクラブを利用した 15 マインドコントロール お寺を利用した 15 プロのカスタマイズ 銃をカスタムした 15 釣り掘デビュー 釣り堀で魚を釣った 15 アキバのご主人様 メイド喫茶でスペシャルメニューを頼んだ 15 類まれな反逆者 メメントスで3分ほど静止してれば出現。終盤でないと対応できないほどの強敵。 弱点もないが耐性もないので回復しながら攻撃するだけ。