約 3,434,131 件
https://w.atwiki.jp/capu2/pages/41.html
テキストエディタ／バイナリエディタ テキストエディタ／バイナリエディタOEdit OEdit フリーなテキストエディタ。 http //www.hi-ho.ne.jp/a_ogawa/oedit/index.htm zipまたはlzh形式にて配布、解凍するだけで利用可能。 htmlやc++などの色分けが可能。 送るメニューに追加しておくと便利。 操作の記録と再生ができるマクロ機能が便利。 テキストの矩形選択が可能。 検索・置換の一括処理も可能。 付属のogrep.exeもgrepできて便利。
https://w.atwiki.jp/originalwitch/pages/20.html
Zittel (ツィッテル) 本の魔女、その性質は独学 間違いなく願いは叶えられた。彼女の結界があるのはの異次元の図書館 ただ本を読み続けるならば獲物も外敵もやってくることはない。外界に干渉しようとしない限り 彼女は本を永遠に読み続けるのだろうか？ それとも飽きてしまうのだろうか？ もし結界に外敵がやってきたとしたら彼女は容易く狩られてしまうだろう 魔法少女時代 安納間 理恵 (あんのうま りえ)
https://w.atwiki.jp/sdvx/pages/1912.html
桜華月想-SDVX EDIT-/ 源屋 feat. 3L ( 公式試聴 / 採用コメント ) 「東方紅魔郷リミックス楽曲コンテスト」の第5回配信楽曲 後に「 SOUND VOLTEX ULTIMATE TRACKS - 東方紅魔郷REMIX - 」に収録 原曲は「妖魔夜行」 SDVX EDITとあるように2011/03/13にALiCE S EMOTiONから頒布された「 Overture | SUWA 」からの出典 Lv CHAIN 譜面属性 BPM TIME Version Genre Illustrator Effect NOVICE 02 0475 138 2 01 II16 FLOOR東方アレンジ MOTOCO TAKUYA ADVANCED 08 0752 EXHAUST 12 1127 CHAIN数変更[NOV] 0455→0461(2019/02/28)→0475(2021/02/17) [ADV] 0688→0752(2021/02/17) [EXH] 1101→1103(2021/02/28)→1127(2021/02/17) 収録CD「Overture｜SUWA」 / ALiCE'S EMOTiON + 難易度投票 NOVICE 選択肢 投票数 投票 詐称 0 強 0 中 0 弱 0 逆詐称 0 ADVANCED 選択肢 投票数 投票 詐称 0 強 0 中 0 弱 0 逆詐称 0 EXHAUST 選択肢 投票数 投票 詐称 3 強 4 中 1 弱 0 逆詐称 0 動画 ニコニコ動画 EXHAUST HI-SPEEDx4.6 攻略・解説 譜面・楽曲の攻略についてはこちらへどうぞ 見辛さ解消の為に改行や文頭の編集、不適切なコメントを削除することがあります [EXH]交差直角最多譜面で、Lv13のさんすう教室をも凌駕する。タイミングは音合わせで、かつ全て内回しから。引っかけや途中にチップを挟んだりもしないので、落ち着いて交互に回す事を意識したい。 -- 名無しさん (2013-11-24 15 55 03) [EXH]直角つまみが多い代わりなのか、まさかのロングFXが1つも出てこない譜面。 -- 名無しさん (2014-06-07 11 33 07) 名前 コメント ※文頭に[ bgcolor(#aaf){NOV}]、[ bgcolor(#ffa){ADV}]、[ bgcolor(#faa){EXH}]をコピー ペーストすると見やすくなります コメント 楽曲やイラストなどのコメントについてはこちらへどうぞ チルノ(算数)赤のラストのリズム直角が出来ない人はこの曲で練習すると良い､12にしては鍵盤も割りと難しいので……コッチの方が難しい気がしたら目に頼りすぎだと思えば良い -- (名無しさん) 2015-02-05 00 13 55 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/sakagepvp/pages/32.html
Skin Edit 実装告知 2015/06/18 http //cosmicbreak2.cyberstep.jp/info/topic/news/1331?id=topic_body 公式ガイド http //cosmicbreak2.cyberstep.jp/gamesystem/edit.html CB2になって登場した .dds ファイルとは？ Microsoftの解説ではよくワカラナイ場合は以下を筆頭にいくつかわかりやすく解説しているサイトがあります。 Skyrimで使われるテクスチャを圧縮。DXT1、DXT3、DXT5の概要とゲームでの見え方 http //skmod.hatenablog.com/entry/ctd/textures2 .ddsファイルを読み書きできるソフトは現時点(2015/06/25)で以下の3つ Microsoft Paint.NET Adobe Photoshop + プラグイン GIMP + プラグイン 上記以外のソフトで編集作業を行う場合は、上記のソフトで.pngや.psd（もしくはクリップボード）を経由しなければなりません。
https://w.atwiki.jp/pqjp/pages/448.html
?xml version="1.0"? TextLibrary Text tag="[ITEM_IADO_NAME]" Axe of Doom /Text Text tag="[ITEM_IADO_POWER]" Adds +1 to damage and destroys all Red Skulls whenever you do 3 or more damage /Text Text tag="[ITEM_IADS_NAME]" Archdruid apos;s Staff /Text Text tag="[ITEM_IADS_POWER]" Adds +1 to Green and Yellow Mana whenever any spell is cast /Text Text tag="[ITEM_IALR_NAME]" Arkliche Ring /Text Text tag="[ITEM_IALR_POWER]" Generates a point of each color Mana for every 3 points of Experience you receive /Text Text tag="[ITEM_IALS_NAME]" Arkliche Staff /Text Text tag="[ITEM_IALS_POWER]" Reduces the enemy apos;s Experience Points by 2 for every point of damage you do /Text Text tag="[ITEM_IAOB_NAME]" Amulet of Blood /Text Text tag="[ITEM_IAOB_POWER]" Adds +1 to Red Mana for every point of Experience you receive /Text Text tag="[ITEM_IAOM_NAME]" Armor of Minogoth /Text Text tag="[ITEM_IAOM_POWER]" Protects against 1 point of damage whenever you receive 2 or more damage, and adds +15% to Earth Resistance /Text Text tag="[ITEM_IAOR_NAME]" Axe of Red-Axe /Text Text tag="[ITEM_IAOR_POWER]" Adds +5 to Fire Resistance and Fire Mastery. Adds +2 to damage whenever you do 3 or more damage /Text Text tag="[ITEM_IBFH_NAME]" Bonefire Helm /Text Text tag="[ITEM_IBFH_POWER]" Adds +1 to Green Mana for every 2 Red Mana you gain /Text Text tag="[ITEM_IBNC_NAME]" Bane apos;s Crown /Text Text tag="[ITEM_IBNC_POWER]" Adds +1 to Battle, Cunning and Morale for every 3 points of Air Mastery /Text Text tag="[ITEM_IBNK_NAME]" Bane apos;s Cloak /Text Text tag="[ITEM_IBNK_POWER]" Gives a 1% chance per 3 points of Water Mastery to add +10 to Life Points at the start of each of your turns /Text Text tag="[ITEM_IBNS_NAME]" Bane apos;s Sword /Text Text tag="[ITEM_IBNS_POWER]" Adds +1 to damage for every 3 points of Fire Mastery whenever you do 3 or more damage /Text Text tag="[ITEM_IBNX_NAME]" Bane apos;s Shield /Text Text tag="[ITEM_IBNX_POWER]" Adds +1 to all Resistances for every 3 points of Earth Mastery /Text Text tag="[ITEM_IBOI_NAME]" Boiling Oil /Text Text tag="[ITEM_IBOI_POWER]" Adds +4 to damage whenever there are 8 or more Red Gems in play /Text Text tag="[ITEM_IBSA_NAME]" Spine of Sartek /Text Text tag="[ITEM_IBSA_POWER]" Adds +20 to your Morale skill /Text Text tag="[ITEM_IBSH_NAME]" Broken Shield /Text Text tag="[ITEM_IBSH_POWER]" Gives a 10% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_IBST_NAME]" Black Staff /Text Text tag="[ITEM_IBST_POWER]" Adds +4 to damage for each of your Mana Reserves that are full whenever you hit for 3 or more damage /Text Text tag="[ITEM_ICAR_NAME]" Carapace /Text Text tag="[ITEM_ICAR_POWER]" Protects against 1 point of damage and randomly creates a Red Gem whenever you receive 2 or more damage /Text Text tag="[ITEM_ICBO_NAME]" Centaur apos;s Bow /Text Text tag="[ITEM_ICBO_POWER]" Adds +1 to damage and +1 to Yellow Mana whenever you hit for 3 or more damage /Text Text tag="[ITEM_ICMA_NAME]" Chainmail Armor /Text Text tag="[ITEM_ICMA_POWER]" Gives a 50% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ICMB_NAME]" Chainmail Leggings /Text Text tag="[ITEM_ICMB_POWER]" Gives a 50% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ICMH_NAME]" Chainmail Coif /Text Text tag="[ITEM_ICMH_POWER]" Gives a 50% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ICOS_NAME]" Circlet Of Skulls /Text Text tag="[ITEM_ICOS_POWER]" Gives a 50% chance to create a random skull at the start of each of your turns /Text Text tag="[ITEM_ICSA_NAME]" Crest of Sartek /Text Text tag="[ITEM_ICSA_POWER]" Adds +2% to all Resistances when you match 4 gems and +5% to all Resistances when you match 5 gems. /Text Text tag="[ITEM_ICSK_NAME]" Chaos Skin /Text Text tag="[ITEM_ICSK_POWER]" Adds +5 to Life Points whenever your enemy casts a spell /Text Text tag="[ITEM_IDAX_NAME]" Dwarven Axe /Text Text tag="[ITEM_IDAX_POWER]" Adds +10% to Earth Resistance, and adds +1 to damage whenever you hit for 3 or more damage /Text Text tag="[ITEM_IDCL_NAME]" Dugog apos;s Club /Text Text tag="[ITEM_IDCL_POWER]" Gives a 20% chance to add +12 points of damage whenever you do damage /Text Text tag="[ITEM_IDCW_NAME]" Dragon apos;s Claw /Text Text tag="[ITEM_IDCW_POWER]" Reduces your enemy apos;s Yellow Mana by 2, adds +2 to Yellow Mana and adds +3 to damage whenever you do 3 or more damage /Text Text tag="[ITEM_IDHE_NAME]" Drowning Helm /Text Text tag="[ITEM_IDHE_POWER]" Gives +10 to Blue Mana at the beginning of each combat /Text Text tag="[ITEM_IDKA_NAME]" Doomknight Armor /Text Text tag="[ITEM_IDKA_POWER]" Protects against 1 point of damage whenever you receive 2 or more damage, and adds +10% to Earth Resistance /Text Text tag="[ITEM_IDKH_NAME]" Doomknight Helm /Text Text tag="[ITEM_IDKH_POWER]" Protects against 1 point of damage whenever you receive 2 or more damage, and adds +2 to all Green Mana found /Text Text tag="[ITEM_IDSC_NAME]" Dragon Scales /Text Text tag="[ITEM_IDSC_POWER]" Reduces any damage of 2 or less to zero /Text Text tag="[ITEM_IDSH_NAME]" Death Shroud /Text Text tag="[ITEM_IDSH_POWER]" Creates a +5 Skull for every 8 points of damage that you take (max of 3 per turn) /Text Text tag="[ITEM_IDST_NAME]" Druid apos;s Staff /Text Text tag="[ITEM_IDST_POWER]" Adds +1 to Green Mana whenever any spell is cast /Text Text tag="[ITEM_IEBC_NAME]" Earthblood Cloak /Text Text tag="[ITEM_IEBC_POWER]" Adds +2% to Earth Resistance whenever your enemy casts a spell /Text Text tag="[ITEM_IEBW_NAME]" Erik apos;s Bow /Text Text tag="[ITEM_IEBW_POWER]" Adds +1 to damage plus an additional +1 for every 8 of your levels whenever you do 3 or more damage /Text Text tag="[ITEM_IEGM_NAME]" Elemental Gem /Text Text tag="[ITEM_IEGM_POWER]" Adds +2 to all of your Mana Reserves for each of your Mana Reserves that are full at the start of each of your turns /Text Text tag="[ITEM_IELB_NAME]" Elven Bow /Text Text tag="[ITEM_IELB_POWER]" Adds +2 to Green and Yellow Mana whenever you do 2 or more damage /Text Text tag="[ITEM_IELH_NAME]" Elven Helm /Text Text tag="[ITEM_IELH_POWER]" Adds +1% to Earth Resistance for each point of Green Mana over 5 /Text Text tag="[ITEM_IELP_NAME]" Elven Plate /Text Text tag="[ITEM_IELP_POWER]" Gives an 80% chance to protect against 1 point of damage and generate +2 Green Mana whenever you receive 2 or more damage /Text Text tag="[ITEM_IFBL_NAME]" Frostblade /Text Text tag="[ITEM_IFBL_POWER]" Adds +1 to damage for every 2 Blue Gems in play whenever you do 3 or more damage /Text Text tag="[ITEM_IFLH_NAME]" Flaming Helm /Text Text tag="[ITEM_IFLH_POWER]" Gives +8 to Red Mana at the beginning of each combat /Text Text tag="[ITEM_IFMO_NAME]" Fire Moat /Text Text tag="[ITEM_IFMO_POWER]" Doubles all Red Mana found and adds +1 to all damage /Text Text tag="[ITEM_IFNG_NAME]" Huge Fangs /Text Text tag="[ITEM_IFNG_POWER]" Gives a 25% chance to cause Poison, and adds +4 to damage whenever you do 6 or more damage /Text Text tag="[ITEM_IFPA_NAME]" Full Plate Armor /Text Text tag="[ITEM_IFPA_POWER]" Gives a 100% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_IFPB_NAME]" Full Plate Boots /Text Text tag="[ITEM_IFPB_POWER]" Gives a 100% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_IFPH_NAME]" Full Plate Helm /Text Text tag="[ITEM_IFPH_POWER]" Gives a 100% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_IFWS_NAME]" Firewalker apos;s Staff /Text Text tag="[ITEM_IFWS_POWER]" Adds +5% to Fire Resistance, and adds +1 to damage for every 8 of your Red Mana whenever you do 3 or more damage /Text Text tag="[ITEM_IFZT_NAME]" Frozen Staff /Text Text tag="[ITEM_IFZT_POWER]" Gives a 1% chance per point of your Blue Mana that your enemy will lose a turn whenever you do 2 or more damage /Text Text tag="[ITEM_IGAX_NAME]" Great Axe /Text Text tag="[ITEM_IGAX_POWER]" Gives a 50% chance of an extra turn whenever you do 5 or more damage /Text Text tag="[ITEM_IGIM_NAME]" Giant Maul /Text Text tag="[ITEM_IGIM_POWER]" Adds +4 to damage whenever you do 3 or more damage /Text Text tag="[ITEM_IGKR_NAME]" Gnollkryss /Text Text tag="[ITEM_IGKR_POWER]" Adds +1 to current and maximum Life Points for every 4 points of damage you do /Text Text tag="[ITEM_IGMA_NAME]" Great Mang /Text Text tag="[ITEM_IGMA_POWER]" Gives a 25% chance to reduce your enemy apos;s Red Mana to zero whenever you hit for 3 or more damage /Text Text tag="[ITEM_IGOH_NAME]" Great One apos;s Horn /Text Text tag="[ITEM_IGOH_POWER]" Adds +8 to your Cunning, Battle and Morale skills /Text Text tag="[ITEM_IGPK_NAME]" Gnoll Pack /Text Text tag="[ITEM_IGPK_POWER]" All points of Experience and Gold gained are added to a random skill /Text Text tag="[ITEM_IGSH_NAME]" Gruulkar apos;s Shield /Text Text tag="[ITEM_IGSH_POWER]" Adds +1 to your Battle skill whenever you receive 2 or more damage /Text Text tag="[ITEM_IGTA_NAME]" Adamantine Gate /Text Text tag="[ITEM_IGTA_POWER]" Gives a 75% chance to protect against 4 points of damage whenever you receive 5 or more damage /Text Text tag="[ITEM_IGTI_NAME]" Iron Gate /Text Text tag="[ITEM_IGTI_POWER]" Gives a 75% chance to protect against 3 points of damage whenever you receive 4 or more damage /Text Text tag="[ITEM_IGTS_NAME]" Stone Gate /Text Text tag="[ITEM_IGTS_POWER]" Gives a 75% chance to protect against 2 points of damage whenever you receive 3 or more damage /Text Text tag="[ITEM_IGTW_NAME]" Wooden Gate /Text Text tag="[ITEM_IGTW_POWER]" Gives a 75% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_IHAL_NAME]" Halberd /Text Text tag="[ITEM_IHAL_POWER]" Deals double damage if your opponent has less than 25% Life Points /Text Text tag="[ITEM_IHCL_NAME]" Harpy apos;s Claw /Text Text tag="[ITEM_IHCL_POWER]" Reduces your enemy apos;s Red and Yellow Mana by 1, and gives it to you, for every 3 damage you do /Text Text tag="[ITEM_IHCR_NAME]" Harpy apos;s Crown /Text Text tag="[ITEM_IHCR_POWER]" Whenever you receive 5 or more damage, your Air Resistance increases by +1% /Text Text tag="[ITEM_IHLA_NAME]" Holy Lance /Text Text tag="[ITEM_IHLA_POWER]" Adds +1 to damage for every 4 of your Yellow Mana whenever you do 3 or more damage /Text Text tag="[ITEM_IHOF_NAME]" Horn of Frost /Text Text tag="[ITEM_IHOF_POWER]" Adds +5 to damage if Blue Mana is 20+ whenever you do 3 or more damage /Text Text tag="[ITEM_IHOH_NAME]" Horned Helm /Text Text tag="[ITEM_IHOH_POWER]" Adds +3 to Red Mana whenever your enemy casts a spell /Text Text tag="[ITEM_IHOR_NAME]" Heavenly Orb /Text Text tag="[ITEM_IHOR_POWER]" Adds Air Resistance equal to half your Yellow Mana /Text Text tag="[ITEM_IHRA_NAME]" Helm of the Ram /Text Text tag="[ITEM_IHRA_POWER]" Adds +2 to damage whenever you do 3 or more damage /Text Text tag="[ITEM_IHSF_NAME]" Heirophant apos;s Staff /Text Text tag="[ITEM_IHSF_POWER]" Adds +2 to Green and Yellow Mana whenever any spell is cast /Text Text tag="[ITEM_IHST_NAME]" Huge Stinger /Text Text tag="[ITEM_IHST_POWER]" Gives an 80% chance to cause Poison, and adds +6 to damage whenever you do 2 or more damage /Text Text tag="[ITEM_IHTR_NAME]" Horn of Triumph /Text Text tag="[ITEM_IHTR_POWER]" Gives +50 to Experience whenever you win a combat /Text Text tag="[ITEM_IIAM_NAME]" Imperial Armor /Text Text tag="[ITEM_IIAM_POWER]" Gives +2 Experience every time you receive 2 or more damage /Text Text tag="[ITEM_IIFI_NAME]" Iron Fists /Text Text tag="[ITEM_IIFI_POWER]" Adds +2 to damage whenever you do any damage /Text Text tag="[ITEM_IIMH_NAME]" Imperial Helm /Text Text tag="[ITEM_IIMH_POWER]" Has a 20% chance to reduce any incoming damage of 2 or higher to a single point of damage /Text Text tag="[ITEM_IISK_NAME]" Iron Skin /Text Text tag="[ITEM_IISK_POWER]" Adds +1 to Green Mana when you receive damage, and protects against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_IJAC_NAME]" Jarl apos;s Cloak /Text Text tag="[ITEM_IJAC_POWER]" Adds +2 to Blue Mana whenever you gain Blue Mana /Text Text tag="[ITEM_IJAH_NAME]" Jarl apos;s Hammer /Text Text tag="[ITEM_IJAH_POWER]" Does 2 points of damage to your enemy whenever you receive 2 or more Blue Mana /Text Text tag="[ITEM_IJOB_NAME]" Jotun apos;s Boots /Text Text tag="[ITEM_IJOB_POWER]" Adds +1 to other Mana Reserves whenever you receive 2 or more Red Mana /Text Text tag="[ITEM_IJOH_NAME]" Jotun apos;s Helm /Text Text tag="[ITEM_IJOH_POWER]" Adds +1% to Fire Resistance whenever you receive 3 or more Red Mana /Text Text tag="[ITEM_IKKE_NAME]" Khazrimi Key /Text Text tag="[ITEM_IKKE_POWER]" Adds +2 to Green Mana whenever your enemy casts a spell /Text Text tag="[ITEM_IKOP_NAME]" Key of Power /Text Text tag="[ITEM_IKOP_POWER]" Adds +4 to your Earth, Fire, Water, and Air Mastery skills /Text Text tag="[ITEM_ILAN_NAME]" Lance /Text Text tag="[ITEM_ILAN_POWER]" Adds +1 to damage whenever you do 3 or more damage /Text Text tag="[ITEM_ILBC_NAME]" Lichebane Charm /Text Text tag="[ITEM_ILBC_POWER]" Adds +6 to damage done against Liches and Arkliches whenever you do 3 or more damage /Text Text tag="[ITEM_ILBW_NAME]" Longbow /Text Text tag="[ITEM_ILBW_POWER]" Adds +3 to Yellow Mana whenever you do 3 or more damage /Text Text tag="[ITEM_ILEA_NAME]" Leather Armor /Text Text tag="[ITEM_ILEA_POWER]" Gives a 25% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ILEB_NAME]" Leather Boots /Text Text tag="[ITEM_ILEB_POWER]" Gives a 25% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ILEH_NAME]" Leather Helm /Text Text tag="[ITEM_ILEH_POWER]" Gives a 25% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ILKS_NAME]" Lucky Stones /Text Text tag="[ITEM_ILKS_POWER]" Adds +6 to your Cunning skill /Text Text tag="[ITEM_ILSW_NAME]" Longsword /Text Text tag="[ITEM_ILSW_POWER]" Adds +4 to your Battle skill /Text Text tag="[ITEM_IMAR_NAME]" Mirror Armor /Text Text tag="[ITEM_IMAR_POWER]" Does 1 point of damage to your enemy whenever you receive 2 or more damage /Text Text tag="[ITEM_IMAX_NAME]" Mechanical Axe /Text Text tag="[ITEM_IMAX_POWER]" Gives an extra turn whenever you do 5 or more damage /Text Text tag="[ITEM_IMCL_NAME]" Massive Club /Text Text tag="[ITEM_IMCL_POWER]" Adds +3 to Earth Mastery, and adds +3 to damage whenever you do 3 or more damage /Text Text tag="[ITEM_IMGS_NAME]" Skull of Minogoth /Text Text tag="[ITEM_IMGS_POWER]" Destroys all Purple Stars, giving full effect for each one, whenever you match 4 or 5 gems /Text Text tag="[ITEM_IMHE_NAME]" Mirror Helm /Text Text tag="[ITEM_IMHE_POWER]" Does 1 point of damage to your enemy whenever you receive 2 or more damage /Text Text tag="[ITEM_IMND_NAME]" Mana Node /Text Text tag="[ITEM_IMND_POWER]" Adds +5 to all skills whenever an enemy casts a spell /Text Text tag="[ITEM_IMOA_NAME]" Moat /Text Text tag="[ITEM_IMOA_POWER]" Doubles all Blue Mana found and adds +10 Fire Resistance /Text Text tag="[ITEM_IMSE_NAME]" Medal of Selentia /Text Text tag="[ITEM_IMSE_POWER]" Doubles all of the Experience you gain while in combat /Text Text tag="[ITEM_IMSH_NAME]" Mirror Shield /Text Text tag="[ITEM_IMSH_POWER]" Does 1 point of damage to your enemy whenever you receive 2 or more damage /Text Text tag="[ITEM_INOB_NAME]" Necklace of Bones /Text Text tag="[ITEM_INOB_POWER]" Creates 2 +5 Skulls whenever you receive 12 or more damage /Text Text tag="[ITEM_INOH_NAME]" Noble Helm /Text Text tag="[ITEM_INOH_POWER]" Adds +4 to your Morale skill /Text Text tag="[ITEM_INST_NAME]" Necrotic Staff /Text Text tag="[ITEM_INST_POWER]" Reduces your enemy apos;s Green Mana by half whenever you cast a spell /Text Text tag="[ITEM_IOBH_NAME]" Ogreblood Helm /Text Text tag="[ITEM_IOBH_POWER]" Adds +2% to Fire Resistance whenever your enemy casts a spell /Text Text tag="[ITEM_IORI_NAME]" Ogres apos; Ring /Text Text tag="[ITEM_IORI_POWER]" Adds +3 to Green Mana whenever your enemy casts a spell /Text Text tag="[ITEM_IORM_NAME]" Orcish Mang /Text Text tag="[ITEM_IORM_POWER]" Reduces your enemy apos;s Red Mana by 2 whenever you do 3 or more damage /Text Text tag="[ITEM_IRBR_NAME]" Ruby Ring /Text Text tag="[ITEM_IRBR_POWER]" Triples the Gold you gain from matching Gold Coins /Text Text tag="[ITEM_IRKA_NAME]" Rat King apos;s Amulet /Text Text tag="[ITEM_IRKA_POWER]" Adds +3 to Gold whenever you gain Blue Mana /Text Text tag="[ITEM_IRKK_NAME]" Runekeeper apos;s Key /Text Text tag="[ITEM_IRKK_POWER]" Adds +5 to all of your Mana Reserves whenever you match 4 or 5 gems /Text Text tag="[ITEM_IRKT_NAME]" Runekeeper apos;s Tome /Text Text tag="[ITEM_IRKT_POWER]" Adds 50% to damage for each of your Mana Reserves that are full /Text Text tag="[ITEM_IROA_NAME]" Ring of Air /Text Text tag="[ITEM_IROA_POWER]" Adds +1 to Yellow Mana for every 3 Green Mana you gain /Text Text tag="[ITEM_IROE_NAME]" Ring of Earth /Text Text tag="[ITEM_IROE_POWER]" Adds +1 to Green Mana for every 3 Red Mana you gain /Text Text tag="[ITEM_IROF_NAME]" Ring of Fire /Text Text tag="[ITEM_IROF_POWER]" Adds +1 to Red Mana for every 3 Blue Mana you gain /Text Text tag="[ITEM_IROS_NAME]" Phoenix Shield /Text Text tag="[ITEM_IROS_POWER]" Adds +1 to Green and Red Mana for every 2 points of damage you receive /Text Text tag="[ITEM_IROW_NAME]" Ring of Water /Text Text tag="[ITEM_IROW_POWER]" Adds +1 to Blue Mana for every 3 Yellow Mana you gain /Text Text tag="[ITEM_IROY_NAME]" Relic of Ymorgia /Text Text tag="[ITEM_IROY_POWER]" Adds +5 to Earth Mastery and +5% to Earth Resistance /Text Text tag="[ITEM_IRSA_NAME]" Ribs of Sartek /Text Text tag="[ITEM_IRSA_POWER]" Protects against 5 points of damage whenever you receive 10 or more damage /Text Text tag="[ITEM_IRWM_NAME]" Ring of Warmth /Text Text tag="[ITEM_IRWM_POWER]" Adds +10% to Fire Resistance /Text Text tag="[ITEM_ISCA_NAME]" Scale Armor /Text Text tag="[ITEM_ISCA_POWER]" Gives a 75% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ISCB_NAME]" Scale Boots /Text Text tag="[ITEM_ISCB_POWER]" Gives a 75% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ISCH_NAME]" Scale Helm /Text Text tag="[ITEM_ISCH_POWER]" Gives a 75% chance to protect against 1 point of damage whenever you receive 2 or more damage /Text Text tag="[ITEM_ISCL_NAME]" Sorcerer apos;s Cloak /Text Text tag="[ITEM_ISCL_POWER]" Reduces your enemy apos;s Mana Reserves by 2 whenever you receive 2 or more damage /Text Text tag="[ITEM_ISDO_NAME]" Silver Dragon Orb /Text Text tag="[ITEM_ISDO_POWER]" Adds +1 to Blue Mana at the start of each of your turns /Text Text tag="[ITEM_ISEC_NAME]" Lysean Crown /Text Text tag="[ITEM_ISEC_POWER]" Adds +5 to your Morale skill /Text Text tag="[ITEM_ISES_NAME]" Sir Ector apos;s Sword /Text Text tag="[ITEM_ISES_POWER]" Gives a 50% chance to create a Skull whenever you gain Experience, and adds +1 to damage whenever you do more than 2 damage /Text Text tag="[ITEM_ISHP_NAME]" Silver Harp /Text Text tag="[ITEM_ISHP_POWER]" Adds +3 to Yellow Mana whenever your enemy casts a spell /Text Text tag="[ITEM_ISKT_NAME]" Skull Totem /Text Text tag="[ITEM_ISKT_POWER]" Adds +2 to Green Mana every time you gain Experience /Text Text tag="[ITEM_ISOA_NAME]" Shield of Albion /Text Text tag="[ITEM_ISOA_POWER]" Adds +1% to Air Resistance every time you gain 3 or more Yellow Mana. /Text Text tag="[ITEM_ISPC_NAME]" Spiked Club /Text Text tag="[ITEM_ISPC_POWER]" Adds +2 to Red Mana whenever you do 5 or more damage /Text Text tag="[ITEM_ISPS_NAME]" Spirit Staff /Text Text tag="[ITEM_ISPS_POWER]" Adds +1 to all of your Mana Reserves whenever you take 3 or more damage /Text Text tag="[ITEM_ISRI_NAME]" Serephine apos;s Ring /Text Text tag="[ITEM_ISRI_POWER]" Removes all status effects whenever you match 4 or 5 gems /Text Text tag="[ITEM_ISSA_NAME]" Shield Of Sacrifice /Text Text tag="[ITEM_ISSA_POWER]" Adds +1 to all of your Mana Reserves for every 4 damage that you receive /Text Text tag="[ITEM_ISST_NAME]" Shaman apos;s Staff /Text Text tag="[ITEM_ISST_POWER]" Adds +1 to Green Mana whenever you gain Green Mana, and adds +1 to damage whenever you do 3 or more damage /Text Text tag="[ITEM_ISTA_NAME]" Soultree Axe /Text Text tag="[ITEM_ISTA_POWER]" Adds +2 to Life Points whenever you do 4 or more damage /Text Text tag="[ITEM_ISTG_NAME]" Giant Stinger /Text Text tag="[ITEM_ISTG_POWER]" Gives an 80% chance to cause Poison, and adds +2 to damage whenever you do 2 or more damage /Text Text tag="[ITEM_ISTL_NAME]" Sartek apos;s Tail /Text Text tag="[ITEM_ISTL_POWER]" Does 1 to 10 points of damage to your enemy whenever you gain 3 or more Red Mana /Text Text tag="[ITEM_ITBS_NAME]" Trollblood Staff /Text Text tag="[ITEM_ITBS_POWER]" Adds +2% to Water Resistance whenever your enemy casts a spell /Text Text tag="[ITEM_ITEN_NAME]" Tentacle /Text Text tag="[ITEM_ITEN_POWER]" Adds +1 to damage for every 3 of your Blue Mana whenever you do 3 or more damage /Text Text tag="[ITEM_ITHH_NAME]" Theiran Hammer /Text Text tag="[ITEM_ITHH_POWER]" Adds +2 to damage and turns a single random Blue Gem into a Yellow Gem whenever you do 3 or more damage /Text Text tag="[ITEM_ITRG_NAME]" Greater Troll Ring /Text Text tag="[ITEM_ITRG_POWER]" Adds +2 to Life Points if Blue Mana is 9+ at the start of each of your turns /Text Text tag="[ITEM_ITRI_NAME]" Troll Ring /Text Text tag="[ITEM_ITRI_POWER]" Adds +1 to Life Points if Blue Mana is 6+ at the start of each of your turns /Text Text tag="[ITEM_ITRU_NAME]" Ultimate Troll Ring /Text Text tag="[ITEM_ITRU_POWER]" Adds +3 to Life Points if Blue Mana is 12+ at the start of each of your turns /Text Text tag="[ITEM_ITSA_NAME]" Tooth of Sartek /Text Text tag="[ITEM_ITSA_POWER]" Adds +1 to all damage done when matching Skulls /Text Text tag="[ITEM_ITUT_NAME]" Practice Shield /Text Text tag="[ITEM_ITUT_POWER]" The owner of this shield never takes a turn /Text Text tag="[ITEM_ITWH_NAME]" High Tower /Text Text tag="[ITEM_ITWH_POWER]" Adds +3 to damage whenever you do 3 or more damage /Text Text tag="[ITEM_ITWM_NAME]" Mage Tower /Text Text tag="[ITEM_ITWM_POWER]" Adds damage equal to half your highest Mana Reserve whenever you do 2 or more damage /Text Text tag="[ITEM_ITWP_NAME]" Primitive Tower /Text Text tag="[ITEM_ITWP_POWER]" Adds +1 to damage for every 3 of your Green Mana whenever you do 3 or more damage /Text Text tag="[ITEM_ITWS_NAME]" Small Tower /Text Text tag="[ITEM_ITWS_POWER]" Adds +2 to damage whenever you do 2 or more damage /Text Text tag="[ITEM_IUHA_NAME]" Uberhammer /Text Text tag="[ITEM_IUHA_POWER]" Adds +5 to damage and turns a single random Red Gem into a Skull whenever you do 3 or more damage /Text Text tag="[ITEM_IUHL_NAME]" Unholy Lance /Text Text tag="[ITEM_IUHL_POWER]" Adds +1 to damage for every 4 of your Green Mana whenever you do 3 or more damage /Text Text tag="[ITEM_IUSI_NAME]" Unicorn Shield /Text Text tag="[ITEM_IUSI_POWER]" Adds +15 to Life Points whenever you match 5 gems /Text Text tag="[ITEM_IVBL_NAME]" Flameblade /Text Text tag="[ITEM_IVBL_POWER]" Adds +1 to damage for every 2 Red Gems in play whenever you do 3 or more damage /Text Text tag="[ITEM_IWBC_NAME]" Wolfbane Cloak /Text Text tag="[ITEM_IWBC_POWER]" Adds +1 to Water Resistance whenever you match 4 or 5 gems /Text Text tag="[ITEM_IWBL_NAME]" Wightblade /Text Text tag="[ITEM_IWBL_POWER]" Reduces your enemy apos;s Red Mana by 5, and gives it to you as Blue Mana, whenever you do 3 or more damage /Text Text tag="[ITEM_IWBS_NAME]" Wyrmblood Stone /Text Text tag="[ITEM_IWBS_POWER]" Adds +2% to Air Resistance whenever your enemy casts a spell /Text Text tag="[ITEM_IWHP_NAME]" Whip /Text Text tag="[ITEM_IWHP_POWER]" Does 1 damage to your enemy whenever you gain Yellow Mana /Text Text tag="[ITEM_IWLB_NAME]" Buttress Wall /Text Text tag="[ITEM_IWLB_POWER]" Adds +100 to your total Life Points /Text Text tag="[ITEM_IWLC_NAME]" Woodland Cloak /Text Text tag="[ITEM_IWLC_POWER]" Adds +1 to Green Mana for every 3 damage you do /Text Text tag="[ITEM_IWLM_NAME]" Massive Wall /Text Text tag="[ITEM_IWLM_POWER]" Adds +200 to your total Life Points /Text Text tag="[ITEM_IWLR_NAME]" Rampart Wall /Text Text tag="[ITEM_IWLR_POWER]" Adds +20 to your total Life Points /Text Text tag="[ITEM_IWLS_NAME]" Stone Wall /Text Text tag="[ITEM_IWLS_POWER]" Adds +50 to your total Life Points /Text Text tag="[ITEM_IXHD_NAME]" Extra Head /Text Text tag="[ITEM_IXHD_POWER]" Gives an extra turn whenever you receive Gold /Text Text tag="[ITEM_IZCL_NAME]" Zombie Claw /Text Text tag="[ITEM_IZCL_POWER]" Gives a 50% chance to cause Disease, and adds +1 to damage whenever you do damage /Text /TextLibrary
https://w.atwiki.jp/sdvx/pages/2133.html
EOS -INFINITE EDIT-/ ginkiha 「KAC2013 オリジナル楽曲コンテスト」の採用曲 原曲初出は「THE BMS OF FIGHTERS 2012」 Lv CHAIN 譜面属性 BPM TIME Version Genre Illustrator Effect NOVICE 03 0597 175 2 03 II24 FLOOR もとこ ユカリ☆chan ADVANCED 11 0799 EXHAUST 13 1445 GRAVITY 16 1604 III 60 もとこ×Q MaKoTo Lv変更[GRV] 14→16(2016/12/21) CHAIN数変更[ADV] 0814→0799(2019/02/28) +難易度投票 NOVICE 選択肢 投票数 投票 詐称 0 強 0 中 0 弱 0 逆詐称 0 ADVANCED 選択肢 投票数 投票 詐称 0 強 0 中 0 弱 0 逆詐称 0 EXHAUST 選択肢 投票数 投票 詐称 0 強 1 中 3 弱 3 逆詐称 0 GRAVITY 選択肢 投票数 投票 詐称 0 強 0 中 3 弱 0 逆詐称 0 攻略・解説 譜面・楽曲の攻略についてはこちらへどうぞ 見辛さ解消の為に改行や文頭の編集、不適切なコメントを削除することがあります [EXH] 譜面・リズム共に理解はしやすいが、13にしては物量が多め。後半のBTロング＋打鍵で混乱するとゲージが持っていかれるので注意 -- 名無しさん (2014-02-20 02 17 37) 名前 コメント ※文頭に[ bgcolor(#aaf){NOV}]、[ bgcolor(#ffa){ADV}]、[ bgcolor(#faa){EXH}]、[ bgcolor(#fda){GRV}]をコピー ペーストすると見やすくなります コメント 楽曲やイラストなどのコメントについてはこちらへどうぞ 中盤は乱打地帯になると踏んでいたんだがなあ…まさかここまでサッパリした譜面になるとは。ちなみに等間隔の鍵盤が多くてPUC狙いやすい -- (名無しさん) 2014-02-12 23 54 02 13にしてはムズすぎる -- (名無しさん) 2015-03-30 11 02 13 GRV譜面楽しすぎる -- (名無しさん) 2016-05-18 13 26 34 GRV14なのにブラスターの課題曲に15が普通にあるのキツイな -- (名無しさん) 2016-09-12 16 44 07 名前 コメント すべてのコメントを見る
https://w.atwiki.jp/mizcremorne/pages/223.html
llGetTextureRot float llGetTextureRot(integer side) 引数sideで指定した面のテクスチャ回転値（ラジアン）を返す。 逆にテクスチャの回転を設定するにはllRotateTexture関数を使用する。 名前 コメント
https://w.atwiki.jp/gw2021/pages/16.html
table_edit エラー（指定先ページはアットウィキモードもしくはpukiwikiライクモードをご利用ください。） table_edit エラー（指定先ページのページ閲覧権限がありません。）
https://w.atwiki.jp/sinocof/pages/32.html
無料Texture http //cg-india.com Texturepilot 有料Texture GameTexture 海外の街並みの素材。高解像度であり。 ロケーション素材
https://w.atwiki.jp/ce00582/pages/689.html
Function checknowork(s As Single, m As Single, n As Single, h As Single, ws, bs) As Single Dim bb As Single Dim s1 As Single Dim pp As Single Dim c1 As Single Dim u1 As Single bb = 0 For s1 = 1 To s bb = bb + bs(s1) Next bb = bb + h * n c1 = -bb / s pp = 0 If c1 0.01 Then pp = 1 If c1 0.01 Then c1 = 0.01 u1 = Log(c1) + Log(1) If u1 2 * Log(ws(s) + m * h) Then pp = 1 u1 = s * u1 If pp = 1 Then u1 = -999 checknowork = u1 End Function Function stopv(s As Single, m As Single, n As Single, nowork, v) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nv As Single pp = 0 m1 = m n1 = n If m1 -5 Then pp = 1 If m1 -5 Then m1 = -4 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -25 Then pp = 1 If n1 -25 Then n1 = 9 If n1 24 Then pp = 1 If n1 24 Then n1 = 9 m2 = Int(m1) m3 = m2 + 1 n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (nowork(s, m3, n2) - nowork(s, m2, n2)) dn = (n1 - n2) * (nowork(s, m2, n3) - nowork(s, m2, n2)) If nowork(s, m2, n2) -900 Then pp = 1 If nowork(s, m3, n2) -900 Then pp = 1 If nowork(s, m2, n3) -900 Then pp = 1 nv = nowork(s, m2, n2) + dm + dn If pp = 1 Then nv = -999 v1 = nearv(s, m, n, v) x = 0 If nv v1 Then x = 1 If nv = v1 Then x = 1 stopv = x End Function Function gotow(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nru(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nru(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nru(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop uxs = nru(s, m, bxs, u) wxs = seekw(uxs) mxs = (wxs - ws(s - 1)) / h gotow = mxs End Function Function gotob(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nru(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nru(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nru(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop gotob = n - bxs End Function Function nru(s As Single, m As Single, n As Single, u) As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim pp As Single Dim dn As Single Dim nu As Single pp = 0 n1 = n m1 = m If m1 -5 Then pp = 1 If m1 -5 Then m1 = -5 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -5 Then pp = 1 If n1 -5 Then n1 = -5 If n1 4 Then pp = 1 If n1 4 Then n1 = 4 n2 = Int(n1) n3 = n2 + 1 dn = (n1 - n2) * (u(s, m2, n3) - u(s, m2, n2)) dm = (m1 - m2) * (u(s, m3, n2) - u(s, m2, n2)) If u(s, m2, n2) -900 Then pp = 1 If u(s, m2, n3) -900 Then pp = 1 If u(s, m3, n2) -900 Then pp = 1 nu = u(s, m, n2) + dn + dm If pp = 1 Then nu = -999 nru = nu End Function Function seekstartu(th, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = 0.5 ys = th(100) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h c1 = th(100) * l1 - bp u1 = Log(c1) + Log(1 - l1) l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(100) * l2 - bp u2 = Log(c2) + Log(1 - l2) If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seekstartu = us End Function Function seeknowork(s As Single, m As Single, n As Single, h As Single, ws, bs) As Single Dim bb As Single Dim s1 As Single Dim pp As Single Dim c1 As Single Dim u1 As Single bb = 0 For s1 = 1 To s bb = bb + bs(s1) Next bb = bb + h * n c1 = -bb / s pp = 0 If c1 0.01 Then pp = 1 If c1 0.01 Then c1 = 0.01 u1 = Log(c1) + Log(1) If u1 2 * Log(ws(s) + m * h) Then pp = 1 u1 = s * u1 If pp = 1 Then u1 = -999 seeknowork = u1 End Function Function seekv(s As Single, m As Single, n As Single, h As Single, ws, u, v) As Single Dim bxs As Single Dim bx1 As Single Dim bx2 As Single Dim uxs As Single Dim wxs As Single Dim mxs As Single Dim nxs As Single Dim ux1 As Single Dim wx1 As Single Dim mx1 As Single Dim nx1 As Single Dim ux2 As Single Dim wx2 As Single Dim mx2 As Single Dim nx2 As Single Dim j As Single Dim t1 As Single Dim bxp As Single Dim t2 As Single Dim ps As Single Dim p1 As Single Dim p2 As Single j = 3 bxs = 0 uxs = nearu(s, m, bxs, u) wxs = seekw(uxs) ps = 0 If wxs -900 Then ps = 1 If wxs -900 Then wxs = ws(s - 1) mxs = (wxs - ws(s - 1)) / h nxs = n - bxs vxs = uxs + nearv(s - 1, mxs, nxs, v) If ps = 1 Then vxs = -999 bxp = 888 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 bx1 = bxs + j ux1 = nearu(s, m, bx1, u) wx1 = seekw(ux1) p1 = 0 If wx1 -900 Then p1 = 1 If wx1 -900 Then wx1 = ws(s - 1) mx1 = (wx1 - ws(s - 1)) / h nx1 = n - bx1 vx1 = ux1 + nearv(s - 1, mx1, nx1, v) If p1 = 1 Then vx1 = -999 bx2 = bxs - j ux2 = nearu(s, m, bx2, u) wx2 = seekw(ux2) p2 = 0 If wx2 -900 Then p2 = 1 If wx2 -900 Then wx2 = ws(s - 1) mx2 = (wx2 - ws(s - 1)) / h nx2 = n - bx2 vx2 = ux2 + nearv(s - 1, mx2, nx2, v) If p2 = 1 Then vx2 = -999 If vx1 vxs Then bxs = bx1 If vx1 vxs Then vxs = vx1 If vx2 vxs Then bxs = bx2 If vx2 vxs Then vxs = vx2 If (bxp - bxs) ^ 2 10 ^ (-9) Then t1 = 1000 bxp = bxs t1 = t1 + 1 Loop t2 = t2 + 1 j = j / 2 Loop seekv = vxs End Function Function nearu(s As Single, m As Single, n As Single, u) As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dn As Single Dim nu As Single pp = 0 n1 = n If n1 -5 Then pp = 1 If n1 -5 Then n1 = -5 If n1 4 Then pp = 1 If n1 4 Then n1 = 4 n2 = Int(n1) n3 = n2 + 1 dn = (n1 - n2) * (u(s, m, n3) - u(s, m, n2)) If u(s, m, n2) -900 Then pp = 1 If u(s, m, n3) -900 Then pp = 1 nu = u(s, m, n2) + dn If pp = 1 Then nu = -999 nearu = nu End Function Function nearv(s As Single, mx As Single, nx As Single, v) As Single Dim m1 As Single Dim m2 As Single Dim m3 As Single Dim n1 As Single Dim n2 As Single Dim n3 As Single Dim pp As Single Dim dm As Single Dim dn As Single Dim nv As Single pp = 0 m1 = mx n1 = nx If m1 -5 Then pp = 1 If m1 -5 Then m1 = -4 If m1 4 Then pp = 1 If m1 4 Then m1 = 4 If n1 -25 Then pp = 1 If n1 -25 Then n1 = 9 If n1 24 Then pp = 1 If n1 24 Then n1 = 9 m2 = Int(m1) m3 = m2 + 1 n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (v(s, m3, n2) - v(s, m2, n2)) dn = (n1 - n2) * (v(s, m2, n3) - v(s, m2, n2)) If v(s, m2, n2) -900 Then pp = 1 If v(s, m3, n2) -900 Then pp = 1 If v(s, m2, n3) -900 Then pp = 1 nv = v(s, m2, n2) + dm + dn If pp = 1 Then nv = -999 nearv = nv End Function Function seeku(s As Single, th, wp As Single, bp As Single) As Single Dim ls As Single Dim cs As Single Dim us As Single Dim ys As Single Dim ws As Single Dim l1 As Single Dim c1 As Single Dim u1 As Single Dim l2 As Single Dim y2 As Single Dim y1 As Single Dim c2 As Single Dim u2 As Single Dim h As Single Dim lp As Single Dim t1 As Single Dim t2 As Single Dim e As Single e = 10 ^ (-5) h = 0.1 ls = (bp + 0.01) / th(s) If ls 0.01 Then ls = 0.01 ys = th(s) * ls cs = ys - bp us = Log(cs) + Log(1 - ls) ws = Log(cs) + Log(1 - ys / th(s + 1)) If ws wp Then us = -999 t2 = 0 Do Until t2 10 t1 = 0 Do Until t1 100 l1 = ls + h If l1 0.99 Then l1 = ls c1 = th(s) * l1 - bp y1 = th(s) * l1 u1 = Log(c1) + Log(1 - l1) w1 = Log(c1) + Log(1 - y1 / th(s + 1)) If w1 wp Then u1 = -999 l2 = ls - h If l2 0.01 Then l2 = ls c2 = th(s) * l2 - bp If c2 0.01 Then l2 = ls c2 = th(s) * l2 - bp y2 = th(s) * l2 u2 = Log(c2) + Log(1 - l2) w2 = Log(c2) + Log(1 - y2 / th(s + 1)) If w2 wp Then u2 = -999 If u1 us Then ls = l1 If u1 us Then us = u1 If u2 us Then ls = l2 If u2 us Then us = u2 If (lp - ls) ^ 2 e Then t1 = 1000 lp = ls t1 = t1 + 1 Loop h = h / 2 t2 = t2 + 1 Loop seeku = us End Function Function seekw(wp As Single) As Single Dim x1 As Single Dim x2 As Single Dim x3 As Single Dim w1 As Single Dim w2 As Single Dim t As Single Dim pp As Single pp = 0 If wp 2 * Log(0.1) Then pp = 1 If wp 2 * Log(1) Then pp = 1 x1 = 0.3 x2 = 0.7 t = 0 If pp = 1 Then t = 1000 Do Until t 100 w1 = 2 * Log(x1) w2 = 2 * Log(x2) x3 = x2 + (wp - w2) * (x2 - x1) / (w2 - w1) x1 = x2 x2 = x3 If (wp - w2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop If pp = 1 Then x2 = -999 seekw = x2 End Function Function lx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 lx = ls End Function Function cx(s As Single, th, tl As Single, tr As Single) As Single Dim ls As Single ls = ((1 - tl) * th(s) - tr) / (2 * (1 - tl) * th(s)) If ls 0 Then ls = 0 cx = (1 - tl) * th(s) * ls + tr End Function Function tls(th) As Single Dim maxw As Single Dim tl As Single Dim tr As Single Dim tp As Single Dim w1 As Single Dim n As Single maxw = -999 For n = 1 To 400 tl = 0.001 * n tr = trs(th, tl) w1 = wel(th, tl, tr) If w1 maxw Then tp = tl If w1 maxw Then maxw = w1 Next tls = tp End Function Function trs(th, tl As Single) As Single Dim tr1 As Single Dim tr2 As Single Dim tr3 As Single Dim b1 As Single Dim b2 As Single Dim t As Single tr1 = 0 tr2 = 0.1 t = 0 Do Until t 100 b1 = bud(th, tl, tr1) b2 = bud(th, tl, tr2) tr3 = tr2 - b2 * (tr2 - tr1) / (b2 - b1) tr1 = tr2 tr2 = tr3 If (tr1 - tr2) ^ 2 10 ^ (-5) Then t = 1000 t = t + 1 Loop trs = tr2 End Function Function wel(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single w1 = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 cs = cx(s, th, tl, tr) w1 = w1 + Log(cs) + Log(1 - ls) Next wel = w1 End Function Function bud(th, tl As Single, tr As Single) As Single Dim w1 As Single Dim s As Single Dim ls As Single Dim cs As Single Dim ys As Single ys = 0 cs = 0 For s = 1 To 100 ls = lx(s, th, tl, tr) If ls 0 Then ls = 0 ys = ys + th(s) * ls cs = cs + cx(s, th, tl, tr) Next bud = ys - cs End Function Private Sub Command1_Click() Dim th(1 To 100) As Single Dim s As Single Dim m As Single Dim n As Single Dim tl As Single Dim tr As Single Dim bs(1 To 100) As Single Dim ws(1 To 99) As Single Dim startu(-50 To 50) As Single Dim u(1 To 99, -5 To 5, -5 To 5) As Single Dim v(1 To 99, -5 To 5, -25 To 25) As Single Dim nowork(1 To 99, -5 To 5, -25 To 25) As Single Dim w1 As Single Dim wp As Single Dim bp As Single Dim h As Single Dim bb As Single Dim s1 As Single For s = 1 To 100 th(s) = 0.02 * s Next tl = tls(th) tr = trs(th, tl) Debug.Print tl, tr For s = 1 To 100 bs(s) = th(s) * lx(s, th, tl, tr) - cx(s, th, tl, tr) Next For s = 1 To 99 w1 = Log(cx(s, th, tl, tr)) + Log(1 - th(s) * lx(s, th, tl, tr) / th(s + 1)) ws(s) = seekw(w1) Next h = 10 ^ (-2) For s = 1 To 99 For m = -5 To 5 For n = -5 To 5 wp = 2 * Log(ws(s) + h * m) bp = bs(s) + h * n u(s, m, n) = seeku(s, th, wp, bp) Next Next Next For s = 1 To 99 For m = -5 To 5 For n = -25 To 25 nowork(s, m, n) = seeknowork(s, m, n, h, ws, bs) Next Next Next For s = 1 To 99 For m = -5 To 5 For n = -25 To 25 v(s, m, n) = -999 Next Next Next s = 1 For m = -5 To 5 For n = -5 To 5 v(s, m, n) = u(s, m, n) If nowork(s, m, n) v(s, m, n) Then v(s, m, n) = nowork(s, m, n) Next Next For s = 2 To 99 For m = -5 To 5 For n = -25 To 25 v(s, m, n) = seekv(s, m, n, h, ws, u, v) If nowork(s, m, n) v(s, m, n) Then v(s, m, n) = nowork(s, m, n) Next Next Debug.Print s, v(s, 0, 0) Next For n = -50 To 50 bp = bs(100) + 0.1 * n * h startu(n) = seekstartu(th, bp) Next Dim u1 As Single Dim opb(1 To 99) As Single Dim opw(1 To 99) As Single vs = -999 For n = -50 To 50 u1 = startu(n) m1 = (seekw(u1) - ws(99)) / h m2 = Int(m1) If m2 5 Then m2 = 5 m3 = m2 + 1 If m3 = 6 Then m3 = 5 n1 = 0.1 * n n2 = Int(n1) n3 = n2 + 1 dm = (m1 - m2) * (v(99, m3, -n2) - v(99, m2, -n2)) dn = (n1 - n2) * (v(99, m2, -n3) - v(99, m2, -n2)) v1 = startu(n) + v(99, m2, -n2) + dm + dn If v1 vs Then ms = m1 If v1 vs Then ns = n1 If v1 vs Then vs = v1 Debug.Print ms, ns, vs Next Dim stoppoint As Single opw(99) = ms opb(99) = -ns s = 99 Do Until s 10 s = s - 1 opb(s) = gotob(s + 1, opw(s + 1), opb(s + 1), h, ws, u, v) opw(s) = gotow(s + 1, opw(s + 1), opb(s + 1), h, ws, u, v) Debug.Print s + 1, opw(s + 1), opb(s + 1) If stopv(s, opw(s), opb(s), nowork, v) = 0 Then stoppoint = s If stopv(s, opw(s), opb(s), nowork, v) 0 Then s = -10 Loop s = stoppoint Debug.Print checknowork(s, opw(s), opb(s), h, ws, bs) End Sub