約 5,045,526 件
https://w.atwiki.jp/dotaautochess/pages/86.html
Venomancer（ベノマンサー）アビリティPlague Ward（ペストワード） ステータス ペストワードのステータス Venomancer（ベノマンサー） アビリティ Plague Ward（ペストワード） 敵ユニットを攻撃するために近くの空いているグリッドにペストワードを召喚する。 ワードは魔法の影響を受けません。 ワードの攻撃はターゲットの攻撃率を0.3減少させます。（5秒間で30の攻撃速度でツールチップエラー） 能力：ポイントターゲット クールダウン：5 ステータス 種族：ビースト クラス：ウォーロック コスト：3 体力：500/1000/2000 アーマー：0 魔法耐性：20 アタックダメージ：50〜60/100〜120/200〜240 基本攻撃間隔：1.2 基本攻撃範囲：400 ペストワードのステータス 体力：200/300/400 アーマー：0 魔法耐性：100 アタックダメージ：50-100 / 100-150 / 150-200 基本攻撃間隔：1.4 基本攻撃範囲：900 ユニットレベル：1
https://w.atwiki.jp/studentx/pages/2101.html
VENOMIZED 【ヴェノマイズド】 （シリーズタイトル、マーベル） 出版：2018年4月～5月（週一刊行） 概要 "Venomverse"の続編的ストーリー。 シンビオート結合体を襲い、集合体意識"ハイヴ”に取り込み支配していくポイズンズが正史世界Earth-616に襲来。 シンビオートの故郷"惑星クリンター"から狩り出した大量のシンビオートを使いヒーローやヴィランたちを次々とヴェノム化、さらにポイズンズに取り込んでゆく。 アメコミ@wiki
https://w.atwiki.jp/bemani2dp/pages/3237.html
GENRE TITLE ARTIST bpm notes CLEAR RATE JUMP UP/HARDCORE Venom kors k vs L.E.D.-G 190 641 ?%(yyyy/mm/dd) 攻略・コメント 名前 コメント
https://w.atwiki.jp/bemani2dp/pages/3238.html
GENRE TITLE ARTIST bpm notes CLEAR RATE JUMP UP/HARDCORE Venom kors k vs L.E.D.-G 190 1106 ?%(yyyy/mm/dd) 攻略・コメント しつこいほど縦譜面だがリズムは素直なので挑戦レベルでも十分勝機あり。 -- 名無しさん (2017-09-22 21 51 02) 名前 コメント
https://w.atwiki.jp/gamerowa/pages/95.html
VENOM◆S33wK..9RQ 体の自由を奪っていた糸がやっと取れて身動きが出来るようになった。 シルバーは苛々していた。 あのクソ忌々しい女のせいで最悪のスタートを切った と心の中で悪態を付いた。 『アリス・マーガトロイドよ、シルバー』 あの声を思い出すだけで沸々と怒りが湧き出す。 次にあったら絶対殺す。 …そうだ。殺すにしても武器が無いじゃないか。 さてどうするか。クソ。 デイパックをひっくり返す。使えるものはないか探すためだ。 出てきたものは地図、名簿、パン(味がしなくてカピカピの物と食料品売り場から取ってきた物) 水と筆記用具。ＳＡＡの弾。【Ｍ】と書いてあるトマト(疲れがとれる！と汚い字の説明書付き)。 そしてモデルガン。 先刻までは本物を持っていたのでこれを使う必要はないと思っていたが… …脅すぐらいならできるか？ これを有効活用する為に思考を働かせる。 「…脅して、武器を奪って、その武器で殺す」 なんだ。簡単じゃないか。 …いや、待て。この考えは相手も銃を持っていたら通用はしないんじゃないか？ 銃っていうのは命中率とかそういうのを取り除いて考えれば先に撃った方が勝つ。 だがこっちは撃てないのだ。まさか相手も撃たずに脅しあうなんて事は起きないだろう。 じゃあどうするか。簡単だ。相手が銃ではない武器、近距離で殺せるもの。 つまり刃物を持っているを持っている奴を脅せばいい。 脅して、奪って、殺す。そう、脅して、奪って、殺すんだ。 心の中で繰り返す。 そして銃を持つ。 が、うまく握れない。手が震えていた。 まだあの時の反動があった。 動悸が早くなる。あの時の感覚を思い出すと吐き気を催した。 だが、こんなんじゃ駄目だ。吐き気を催す？ 馬鹿馬鹿しい。 人を殺し損ねているのに吐き気、動悸が出るようじゃ駄目だ。 そしてどこかで俺は安心してる俺はなんだ！？ これじゃあ『負け組』の仲間入りだ。 「…違う。俺は…あんたとは…」 違うんだ。勝つ。殺して勝ってやる。 深く深呼吸する。そして取りこぼしたモデルガンを拾い上げた。 軽く思えた。 「…今度は躊躇うな。躊躇わず、殺す」 これで、脅して、奪って、殺す。脅して、奪って、殺す。脅して、奪って、殺す。脅して、奪って、殺す。脅して、奪って、殺す。 脅して、奪って、殺す。脅して、奪って、殺す。脅して、奪って、殺す… ※ ※ ※ 「ふむ、この変わった城だな」 時は少し遡る。 シルバーがまだ魔法の糸により身動きが取れない時にアシュナードはショッピングモールにたどり着いた。 どうやらメダリオンの影響か体が軽い。 このぐらいのスピードなら１日半で会場全体を回れるだろう。 マルクは「普段出来ることが出来なかったり出来ないことが出来たりする」と言っていた。 少なくとも自分の体に小細工されてるだろう。 勿論メダリオンの効果も弱体化されてる筈だ。もし弱体化が外れればどれぐらいの力がでるのだろうか？ そのときが楽しみだ。 ショッピングモールに入ってすぐ右手にパン屋があった。看板には「マルク印の焼きたてパン屋さん」と書いてある。 そしてその右に連なり花屋「マルク印の綺麗な花」「マルク印の本屋」… すべてマルク印と書いてある。まさか住人を立ち退かせたって訳ではないだろう。 つまりこの会場はマルクによって、殺し合いの為に作られたわけだ。 「くっくっく…我を楽しませ、さらにこのようなものを作る技量もある。ますます気に入ったぞマルク」 不適に笑う。あぁ、早く戦を楽しみたい。 アシュナードの口元が歪む。 「…む？」 本屋を見ると気になる本が沢山あった。 「東方求聞史紀 著稗田阿求」「ポケモン生態について 著オーキドユキナリ」「バロン王国の歴史」etcetc... 見たことのない単語がばかりが並んでいる。それはアシュナードの好奇心を引き寄せた。 それは早く戦いたいという欲望に勝った。 そして座り込み、本を開いた。１冊目は「シャドー・モセス事件についての極秘資料」 「まぁ、焦るな。時間はたっぷりある。読書ぐらいの時間はな。戦はその後だ」 そして数十分、アシュナードは読書を楽しむ。 メタルギア、伝説のポケモン、妖怪や妖精、クリスタル、ギャラクティックノヴァ、ペルソナ… どれもアシュナードを楽しませる内容だった。 しかし楽しい読書の時間は中断させられてしまう。 一人の幼い、大人ぶった少年によって。 「おいっ！武器を渡せ！」 ※ ※ ※ 「脅して、奪って、殺す…」 呪文の様に呟き、それを繰り返す。簡単だ。簡単。 コイキングを捕まえるぐらいのレベルだ。 モデルガンを握り締める。手汗が酷かった。 やがて出入口にたどり着く。 そして大男が座り込んでいた。リラックスして読んでいた。 「(何してんだこの男っ…！？殺し合いのど真ん中で読書してる…)」 無神経にも程がある。しかも体育座りっ…！ いや、そんなことはどうでもいい。武器を持ってるかは知らんが、こいつは格好のカモだ！ 「おいっ！武器を渡せ！」 すると男がこっちを見た。が、すぐに目をそらす。 その行為はシルバーを憤らせる。 「おいっ！聞いてんのか！？武器を渡せ！」 再度男がこっちを見る。その目は銃口を真っ直ぐ見据えている。 睨む様に見ていた。 そして男が口を開いた。 「銃か。我が持っているものとは少し勝手が違うみたいだ。それをどうやって使うのだ。小僧」 それを聞いてシルバーは動揺する。 「(まさか…バレてるのか！？モデルガンって事がっ…！？)」 「聞いているのか？我が質問しているのだ。…それとも…」 男が本を置き、立ち上がる。でかい。威圧が酷かった。胸が締め付けられる。 「模造品か？我だったら脅さずにすぐ殺しているぞ」 「(…バレてた！ヤバイヤバイヤバイヤバイ…)」 手が震える。足も震える。歯がガチガチと音を鳴らす。 男がそこに居るだけで殺されそうだった。 「今後、この戦での武器や食料の調達のなら殺した後でも出来るはずだ。だが小僧。お前はそれをしなかった。 何故なら武器が無いからだ。」 モデルガンを落とす。駄目だ。落としたら。負け組にはなりたくない。 死にたくない。こんなとこで。声がでない。逃げろ。駄目だ。足が動かない。 「所詮餓鬼の考えか。こんな玩具じゃ、我を殺せんぞ」 男はモデルガンを拾い上げる そして両手で包む。銃口だけ飛び出していた。そしてミシミシと音を上げた。 手から出てきたのは歪んだモデルガンだった。それをほうりなげる。 なんて力だ。死ぬ。嫌だ。 足の力がでない。 シルバーはそのまま後ろに倒れこむ。 「だが…我は銃の使い方が知りたい。教えろ」 「…え？」 すると男はデイパックからあるものを取り出す。 銃だった。それもかなり小さい。 男は信じられない言葉を放った。 「我に使ってみろ」 それを目の前に落とす。 その行為はシルバーのいまにも消えそうでちっぽけなプライドを大きく揺さぶった。 「…俺を舐めてるのか…？」 「強がるのはよせ小僧。お前に人を殺す度胸なぞないだろう。死ぬのに怯える奴に人は絶対に殺せない」 確かに男の言う通り、殺す度胸は無かった。死ぬのに怯えていた。 先ほどの決意は錯覚だった。負け組。これじゃあ『あの男』以下じゃねぇか。畜生。 でもそれだけは嫌だ。 もう一度、もう一度だけ決意しよう。これで駄目だったら俺も負け組だったってことだ。 こんどこそ、殺すことには躊躇しない。死ぬのに怯えない。 さぁ、それを拾え！ 手が動いた。その銃はモデルガンより軽く感じた。小さいからか、それとも怯えが無いからか。 その銃を男に向けた。 「今度は怯えない。勝ち組になってやる」 銃声が１発。ショッピングモール内に響いた。 ※ ※ ※ 「…え？」 男はそこに居なかった。 「銃とはそう使うのか。これは厄介なものだな。気をつけなくては」 後ろから背中に打撃が入る。体が吹き飛ぶ。痛い。 「それにしても上出来だ。我を殺そうとするとは。だがまだ子供。それに今、我が行ってるのは戦いではない。ただの戯れよ」 何時、奴は移動したんだ？クソ。体に力が入らない。 でも何かが体から抜けていく。震えが止まった。 男が近づく。胸倉を掴まれた。そして一発。また一発。 血が飛び散る。しかしシルバーは悲鳴一つあげなかった。あげたくなかったのだ。 殴り終えた後、男が感心したように言った。 「…その目。恐れを止めた目だ。…む。良い事を思いついた。口を開けろ」 男はデイパックからなにかを取り出し、口に突っ込む。毒かもしれない。だが抗う力なんかなかった。 「それは不死になるという薬だ。まぁこの戦場じゃ効き目は薄いが…さて、我の戦の為に手助けをしてもらおうか」 不適に男が笑う。 ※ ※ ※ 「我の名はデイン王国13代目国王、アシュナードだ。小僧。貴様の名はなんだ？」 「…シルバーだ」 「シルバーか。ベオクか？それともラグズか？」 「……？なんだそりゃ？」 「…ふん。よい」 二人はショッピングモール内のカフェで話していた。ただしそれは談笑って訳じゃない。 一問一答のような物で息苦しいものだった。そしてその質問の殆どをシルバーは答えなかった。 不死の薬を飲まされたせいか体の傷は少しずつだが癒えていた。 「…シルバーよ。我が貴様を殺さない理由はなんだと思う？」 「しらねぇよ」 「そう反発するな。貴様には未来があるのだ」 アシュナードはシルバーを指差す。 「それはどんな未来か。乞食になり野垂れ死ぬか、それとも大富豪になり裕福に過ごすか。それはまだわからん。貴様はどんな未来が欲しいのだ？」 その質問にシルバーは反応する。数十秒の時間が立ち、そして答えた。 「…俺は勝ち組になりたいだけだ」 「…ほう。やはり貴様に投資した価値はあったか」 その答えにアシュナードは満足したように見えた。 ※ ※ ※ 「ひはははははっ！」 シルバーは笑っていた。笑いながら走る。それは勝ち組への道に見えた。 あの男、アシュナードは俺と約束をした。 「俺がこの殺し合いで強くなって、今後、強者になったらアシュナードが作る世界の腹心にする」 と約束してくれた。世界規模だ。ロケット団みたいなちっぽけな規模じゃない。 アシュナードのいう異世界ってのは信じられないが、あのピエロやアリスの力は全てそれで解決できる。 アシュナードの作る世界は強者しかいない世界。勝ち組しか居ない世界だ。 その世界の腹心だ。勝ち組の中の勝ち組だ！ マルクはたった一人しか帰さないと言ってるが、アシュナードが説得してくれるらしい。 それに俺は不死だ。アシュナードが俺に期待して飲ませたらしい。死なないなら負ける筈が無い。 俺が走っているのは栄光への道だ。 本当のチャンピオンロードって訳だ。 「どうだサカキっ！俺は勝ち組になってやるっ！お前は精々そこで指を咥えて待ってろっ！」 【E-5 ショッピングモール内・東側出入口/一日目/黎明】 【シルバー＠ポケットモンスターシリーズ】 [状態]：蓬莱の薬服用(半不死) [装備]：レミントンデリンジャー(1/2) [道具]：基本支給品一式、マキシマムトマト＠星のカービィシリーズ、銃の弾（残り１８）、少しの食料 [思考] 基本方針：優勝ではなく準優勝目指す(マルクを説得してアシュナードと一緒に優勝する) １：アシュナードの新しく創る世界に住む為、強くなる。 ２：アリスは絶対殺す ３：殺し合いには積極的に参加する。 ４：サカキには会いたくないな… ※赤髪の少年(金銀ライバル）です。 ※参戦時期はロケット団壊滅から３年後以降（金銀の時代）です。それより細かい時期は後続の書き手に任せます。 ※トレーナーカードはこの世界に来ても持っています ※不死の効果は制限され、痛覚はあります。再生速度は遅めです。首が千切れるか、心臓を撃ち抜かれると死にます。それ以外は腕が千切れようと目が抉れようと絶対に死にません。 ※シルバーは完全に不死だと思っています。死ぬ事に気づいていません。 ※レミントンデリンジャーはマルクが用意した特殊な物で銃の弾(ＳＡＡの弾)が代用できます。 ※死ぬのに怯えるのを止めました ※殺すことに躊躇するのをやめました。 ※ＦＥ世界についてある程度アシュナードから聞きました。 「滑稽だな」 シルバーを見送った後、アシュナードは呟く。 それはシルバーに対してもだし、自分に対してもだ。 なぜ殺さなかったか？それは子供だったからだ。 子供には未来がある。強者になる可能性があるのだ。例えそれが微塵程の可能性でもだ。 そしてシルバーには見込みがあった。野心、度胸、決意。 しかしそれではまだ足りない。だから我は強さ、「不死」を与えた。 投資したのだ。「不死」という能力を。絶対的で誰もが欲しくなるような能力を。 だが不死とはそんな簡単に与える物ではない。では何故シルバーに与えたか？ 全ては戯れだった。 シルバーに「不死」を与えたのはパンくずを乞食に投げつける様なものだった。 パンくずに鳥が群がり、乞食は鳥に突付かれながらもパンくずを食べる。 気づいていないのだ。乞食は戯れだということを。 傍観者を楽しませているのにそれに気づかず、必死にパンくずを食べる。 「シルバー。貴様に投資した理由、我が戯れだと言った事に気づかなかったか？」 もうこんな戯れはしないだろう。 大体、マルクは二人で優勝なんて愚弄を許すわけがない。やはり考えは餓鬼。 子供だからってなんでも許されるわけが無い。その躾として不死の薬は不完全な物だとは言わない事にした。 まぁ、次に会ったら、その時は我を楽しませる事になるだろう。いや次はないか？ くくく… さて、戯れの時間も、読書の時間も終わりだ。 次は戦の時間だ。 デイパックから日本刀を取り出し、腰にひっ掛ける。銃は使い方を知る為にシルバーにくれてしまった。戦場で武器が少ないのは痛手だが、銃の使い方や危険性を知れたのだ。これだけで大きな収穫だろう。 それにこの日本刀の方が使いやすい。 そういえば名簿を貰っていたな。 知っている者は… いや、やめておこう。巡り合った時に興が削がれるのも困る。 知らない方が良いか。それもまた一興。 そう思い、再度名簿をデイパックに閉まった。 …どうやら参加者は異世界から集められたらしい。それは本屋でもらった書物を見ればわかり、シルバーも「ラグズ」と「ベオク」の単語が分からなかった。疑わしいが異世界の存在を信じるしかないだろう。 そして我の知らないこの城もシルバーは知っていた。異世界の建造物という事だろう。 すこし異世界に興味が出てきた。異世界に戦争を仕掛けるのもいいかも知れない。メタルギアという竜、妖怪やペルソナ使いとも一戦を交えてみたいものだ。 アシュナードは歩み始める。戦の為に。世界を創る為に。 つぎに出会う者が「乞食」じゃない事を願おう。 【E-5 ショッピングモール内・北側出入口/一日目/黎明】 【アシュナード＠ファイアーエムブレム 蒼炎の軌跡】 [状態] 全快、メダリオン使用状態。 [装備] 鎧(デフォルト) 、日本刀 [道具] 基本支給品一式、日本刀、書店で取った本を何冊か [思考] 基本方針 戦を楽しむ。 １ 戦を楽しむ ２ 弱者は滅する。 ３ マルクに願いを叶えさせた後、部下にする。 ※参戦時期は最終章でメダリオンを使用した直後。 ※名簿を確認していません。また確認する事も今後無いと思われます。 ※メダリオン使用していますが制限が掛かっています。 ※鎧は普通の鎧です。普通の拳銃ぐらいなら弾きますが、威力の高い物(マグナムやライフル)なら壊せます。 ※マルクが自分の考えに賛同してると思ってます。 ※どこに向かうかは次の書き手さんに任せます。 ※制限に気付いてません。 ※銃についての知識を得ました。 ※他の世界についての知識をある程度得ました。 ※シルバーの様に戯れる事はもう二度としません。またシルバーを自分の創る世界に住まわせる気は毛頭ありません。 ※ショッピングモール内の本屋にはマルクによってそれぞれの世界についての資料が持ってこられています。 ※歪んだモデルガンが本屋前に放置されてます。 ※ショッピングモール南側出入口にはシルバーの血が沢山飛び散ってます 【蓬莱の薬＠東方project】 服用すると不死になります。本来なら髪一本でも残れば再生します。 が、ロワ使用の為、半不死です。再生速度は遅め。痛覚はあります。 死ぬ条件は １．首が千切れる(首輪爆発含) ２．心臓に何らかの攻撃 のどちらかです。これ以外は絶対に死にません。 時系列順で読む Back 強い妖怪と弱い人間 Next IN THE MIDDLE OF CHAOS 投下順で読む Back ビッグボスの遺産 Next 強い妖怪と弱い人間 Back ぎんいろとにじいろと シルバー Next 託された希望 Back 創る世界/壊す遊戯 アシュナード Next 託された希望
https://w.atwiki.jp/bemani2dp/pages/3239.html
GENRE TITLE ARTIST bpm notes CLEAR RATE JUMP UP/HARDCORE Venom kors k vs L.E.D.-G 190 1451 ?%(yyyy/mm/dd) 攻略・コメント 正規EXH。BPMが早いので各所トリルが難しく感じるだけで、リズム通りに打てば難所は特にありませんでした。 -- 名無しさん (2017-09-02 16 51 41) 何故か☆12の欄にあるけどこれ☆11だよ -- 名無しさん (2017-12-05 03 59 53) BPMの速さのおかげでかえって押しやすく感じる 乱は偏って難しくなりがちなので攻略にはお勧めしない -- 名無しさん (2020-11-17 22 30 40) 名前 コメント
https://w.atwiki.jp/saintsrow2vehicles/pages/69.html
概要 タイプ クーペ 乗車定員 2 ヤミ改造工場 ○ 購入 × ベース車両 DeLorean DMC-12. 1973 Chevrolet Corvette Stingray Coupe. 解説 デザイン ロングノーズにショートデッキという如何にもアメリカンGT的なスタイル。 性能 アメ車独特の低いＶ型エンジンサウンドで魅了してくれる。 そこそこのスピードがでるので、いろんな場面で使えるであろう。 その他 ハンドルを切ると車内のハンドルも連動して動く。 ヤミ改造工場のリストの説明で｢有名な凶悪犯 ジョニーギャットのかつての愛車｣と書かれている。しかし、前作でギャットが愛車としていたのはVenomである。 特別仕様 非売品パーツ なし レア仕様 セインツ仕様 クリア特典 なし 画像 Venom Classic(一般仕様) (準備中) Venom Classic(セインツ仕様) 実車 シボレー・コルベット・スティングレー
https://w.atwiki.jp/wiki42_satisfaction/pages/23.html
音楽 アポカリプティカ トップページへ戻る アーティスト一覧へ戻る
https://w.atwiki.jp/titanquest/pages/325.html
Venom Heart 日本語訳：ベノム ハート 性能 20% Poison Resistance 75～111 毒ダメージ/ 3 秒間(AE) 78 ~ 108 Poison Damage over 6.0 Seconds +22% Poison Damage with +57% Improved Duration スティンギング・ネトル +2(AE) Required Player Level 20 解説 名前の通り、毒系統に特化。 が、Resistanceはそれほど上がらない上にダメージも微妙。 PoisonResistanceが稼ぎたい時くらいしか使うタイミングが分からない。 そもそもResistance稼ぐにしても他の物のほうが･･･
https://w.atwiki.jp/prepress-tips/pages/147.html
photoshopスクリプトを実行してみる。 最終更新日時： 2009/06/19 簡単なサンプル ブラウザの中から実行する マニュアルなど ScriptListener codeLayouterを使う Perl/Tk Edit 簡単なサンプル もっとも簡単なサンプル実行は perl "test.plのフルパス" かtest.plを右クリックして perl command Line Interpreter test.pl use Win32 OLE; my $script_folder = ( $0 =~ /^(.*\\)[^\\]*$/i , $1 ); my $ps = Win32 OLE- CreateObject( Photoshop.Application ); $ps- DoJavaScriptFile( $script_folder. test.jsx , [ $script_folder, abc , 123 ] ); test.jsx var r = You passed + arguments.length + arguments\x0a ; for( i = 0; i arguments.length; ++i ) { r += + arguments[ i ] + \x0a ; } alert( r ); テキストファイルを表示するサンプル test.jsx html2 plugin Error このプラグインで利用できない命令または文字列が入っています。 ブラウザの中から実行する perlスクリプトを使って動かす（ これが一番簡単か ）。 test.jsxは 上のサンプルをそのまま使う。 perlスクリプト内で日本語を使いたいので requireで呼び出すのだが、このとき フォルダ名に日本語があると そこで止まってしまうので、フォルダ名の処理は javascriptで行う。 test.html html2 plugin Error このプラグインで利用できない命令または文字列が入っています。 ※ html中の ＜ はすべて半角に置換すること。 test.pl use Win32 OLE; sub run { my $fn = $window- { script_folder }test.jsx ; my $ps = Win32 OLE- CreateObject( Photoshop.Application ); $ps- DoJavaScriptFile( $fn, [ $window- { script_folder }, abc , 123 ] ); } 1; マニュアルなど 標準のマニュアルは次の2つ。 Photoshop Scripting Guide-J.pdf JavaScript Reference Guide.pdf 参考になるサイトは Photoshop サンプルスクリプト - clueboard.com Adobe Photoshop CS2自動化作戦 PhotoShop JavaScript Note - ホコホコ (DxD)∞ - Photoshopの記事 そらかぜ工場 Photoshop Scripting 覚書き など ScriptListener photoshopで行った操作を js形式で記録することができる。 photoshop インストールフォルダのスクリプティングガイド - ユーティリティ 内にある ScriptListener.8li を使う。 ScriptListener.8li を Photoshop プラグイン フォルダ にコピーしてからphotoshop を起動して 記録したい操作を実行する。 cドライブのルートに ScriptingListenerJS.log が作られ（ windows版 cs2 の場合 ）その中にアクションで実行した形で操作が記録されるので これをjs形式に読み直す。※ charIDは リファレンスの Appendix ： Event ID Codes で読み直す。 ScriptingListenerJS.log の例 // ======================================================= var id1 = charIDToTypeID( Opn ); var desc1 = new ActionDescriptor(); var id2 = charIDToTypeID( null ); desc1.putPath( id2, new File( 開いたファイルの絶対パス ) ); executeAction( id1, desc1, DialogModes.NO ); codeLayouterを使う codeLayouterで .pl と .jsx を一緒に作ろうとすると 今のバージョン（ 0.02 ）では少し面倒なことなるので 次のようにする。photoshopで sample.tifを開く プログラムの例。 sample_index.txt /name perl スクリプト / sample.pl ? フォルダ , スクリプト / my ( $fol , $jsx ) $fol = ( $0 =~ /^(.*\\)[^\\]*$/i ) ? $1 ; $jsx = sample.jsx ; -f $fol.$jsx || err( スクリプトがありません。 ); ? ファイル / my $fn $fn = sample.tif ; -f $fol.$fn || err( ファイルがありません。 ); /+ 実行 msg( ファイルを読み込みます。 ); do_photoshop_jsx( $fol.$jsx, [ $fol.$fn ] ); /name photoshop スクリプト / sample.jsx ? 入力ファイル / var fn fn = arguments[0] ; /+ 入力ファイルを開く open( File( fn ) ); /use / sample_detail.txt sample_detail.txt /name perl スクリプト use Win32 OLE; /?- 補助の定型ルーチン ? photoshop jsx( jsx )を実行する（ param ） / do_photoshop_jsx( jsx, param ) my $ps = Win32 OLE- CreateObject( Photoshop.Application ); $ps- DoJavaScriptFile( $_[0], $_[1] ); ? メッセージ( array )を表示して エラー終了する。 / err( array ) msg( @_ ); exit( 1 ); ? メッセージ( array )を表示する。 / msg( array ) print map { $_\x0a } @_; /name photoshop スクリプト #target photoshop app.bringToFront(); codeLayout_sample.bat @echo off cd /d %~dp0 set codeLayouter=c \mytools\codeLayouter.exe echo new sample echo/ && %codeLayouter% sample_index.txt || ( pause && exit ) echo/ && echo adjust sample ( if exist _.txt del _.txt ) && ren sample.pl _.txt perl adjust_source.pl p _.txt sample.pl ( if exist _.txt del _.txt ) && ren sample.jsx _.txt perl adjust_source.pl j _.txt sample.jsx if exist _.txt del _.txt echo/ && echo start sample perl %~dp0sample.pl || ( pause && exit ) echo/ pause adjust_source.pl my $pl = ( 0 @ARGV && $ARGV[0] =~ /^[p]$/i ); my $css = ( 0 @ARGV && $ARGV[0] =~ /^[c]$/i ); my $js = ( 0 @ARGV && $ARGV[0] =~ /^[j]$/i ); my $tag = ( 0 @ARGV && $ARGV[0] =~ /^[t]$/i ); my $r = ( 0 @ARGV && $ARGV[0] =~ /^[r]$/i ); while( ＜STDIN ) { $pl && do { s,^(\s*)//,$1#,; s,^/\*,$1=pod,; s,^\*/,$1=cut,; s,^(\s*\{\s*)//,$1#,; s,^(?!\s*(? my|our)\s)(\s*)(\S+\s*)\([^\)]*\)(\s*\{\s*)//,$1sub $2$3#,; s,^(?!\s*sub\s)(\s*[^\{;]*[^\{;\s])\s*;?\s*(\{\s*)//,$1 ; $2#,; s,^(?!\s*sub\s)(\s*[^\{;/]*;\s*)//,$1#,; }; $css && do { m,^[^{;]*;?\s*{\s*//, && ( s ^([^{;]*);?(\s*{\s*)// $1$2/* , s (?=$) */ ); m,^\s*//, && ( s ^(\s*)// $1/* , s (?=$) */ ); }; $js && do { s,^(\s*)(\S+\s*\([^\)]*\)\s*\{\s*)//,$1function $2//,; s,^(?!\s*function\s)(\s*[^\{;]*[^\{;\s])\s*;?\s*(\{\s*)//,$1 ; $2//,; }; $tag && m,^\s*//, && ( s/^\s*/$&＜!-- /, s/$/ -- / ), s,( \s*);$,$1, ; $r && do { s,^(\s*\S+\s*)(\([^\)]*\)\s*\{\s*)//,$1 - function $2#,; s,^(\s*\S+)(\s*)(;?\s*)//,$1 - NULL$2; $3#,; s,^(\s*)//,$1#,; }; print; } ※ pl中の ＜ はすべて半角に置換すること。 Perl/Tk 参考ページperltk - Web実験室 Perl-Tk memo JavaScript Reference Guide.pdf の中に 次のような記述があり Perl/Tk が必要になる場面もあると思われるので そのサンプルを作成してみた。 Main windows resizable, suitable for use as an application s main window. ( Main windows are not normally created by script developers for Adobe Creative Suite 2 applications. ) サンプルダイアログwindows用です。（ ActivePerl 5.8.8 Build 820 ）文字コードは shift jis です。 フォルダ選択 － フォルダ内のファイルを一覧表示します。 文字入力 － ダイアログを閉じるとき 表示します。 カンバス － カンバス内のマウスの位置を表示します。 tk_sample.txt /name perl スクリプト / tk_sample.pl /?- メインウィンドウ /+ メインウィンドウを用意する / my $mw / $mw = MainWindow - new ; / $mw - configure( メインウィンドウ ) ; / $mw - geometry( メインウィンドウのサイズと位置 ); / $mw - resizable( 0, 0 ); # リサイズ禁止 * メインウィンドウのサイズと位置 / 520x200+100+100 * メインウィンドウ / -title = jstr( Tkのサンプル ) , -background = white , /+ メインウィンドウ に フレーム を用意する / my $pane $pane = $mw - Frame - pack() ; /+ フレーム に ラベル１ , ラベル２ を用意する / $pane - Label( ラベル１ ) - pack() ; / $pane - Label( ラベル２ ) - pack() ; * ラベル１ / -background = yellow , -font = [ jstr( HGS行書体 ), 20, underline ] , -text = jstr( Tk の ) , * ラベル２ / -padx = 1.25 , -pady = 1.25 , -font = [ jstr( ＭＳ ゴシック ), 18 ] , -text = jstr( サンプル ) , /+ メインウィンドウ に 選択ボタン を用意する / $mw - Button( 選択ボタン ) - place( 選択ボタンの位置 ) ; * 選択ボタンの位置 / -x = 360, -y = 35, * 選択ボタン / -width = 20 , -height = 2.5 , -text = jstr( フォルダの選択 ) , / -command = sub { 選択ボタンの処理 ; } /+ メインウィンドウ に 入力フィールド を用意する / my $text / $mw - Label( ラベル３ ) - place( ラベル３の位置 ) ; / ( $text = $mw - Text( 入力フィールド ) ) - place( 入力フィールドの位置 ) ; * ラベル３の位置 / -x = 10 , -y = 10 , * ラベル３ / -font = [ jstr( ＭＳ ゴシック ), 18 ] , -text = jstr( 文字入力 ) , * 入力フィールドの位置 / -x = 10, -y = 40 , * 入力フィールド / -width = 20 , -height = 2 , -font = 16 , /+ メインウィンドウ に 終了ボタン を用意する / $mw - Button( 終了ボタン ) - pack( 終了ボタンの位置 ) ; * 終了ボタンの位置 / -side = bottom , * 終了ボタン / -width = 8 , -height = 1.6 , -text = jstr( 閉じる ) , / -command = sub { 入力フィールドの内容を表示する ; exit() ; } /+ メインウィンドウ に カンバス を用意する / my $canvas / $canvas = $mw - Canvas ; / $canvas - configure( カンバス ) ; / $canvas - pack( カンバスの位置 ) ; / カンバスに描画する * カンバスの位置 / -side = bottom , -pady = 5 , * カンバス / -cursor = crosshair , -background = white , -width = 300, -height = 80 , ? カンバスに描画する / draw_canvas() my ( $x, $w ) = ( 0, 300 ); for( $x = 0 ; $x $w ; $x++ ) { my $v = int( $x / 300 * 255 ); my $c = sprintf #%02x%02x%02x , 0 , $v , 0 ; $canvas - createRectangle( $x , 0 , $x + 1 , 79 , -fill = $c , -outline = $c , ); } /+ メインウィンドウ に インジケータ を用意する / my ( $xy_label , $xy ) / $xy_label = $mw - Label( インジケータ ) - place( インジケータの位置 ) ; / $xy = ( , ) ; * インジケータの位置 / -x = 430 , -y = 90 , * インジケータ / -textvariable = \$xy /+ カンバス 上のマウス位置を インジケータ に表示する。 / $canvas - Tk bind( ＜Motion , [ マウス位置の表示 ] ); /+ メインウィンドウを表示する MainLoop; /?- インタラクティブ処理 ? 選択ボタンの処理 / selectButtonProc() / my $fol = フォルダを選ぶ ; / フォルダ $fol のファイルを表示する ; ? フォルダを選ぶ / selectFolder() to_jpath( $mw- chooseDirectory ); ? フォルダ( fol )のファイルを表示する / showFiles( fol ) /+ フォルダ名 / my $fol $fol = $_[0] ; $fol ne && -d $_[0] || return ; /+ フォルダのリスト / my @fol @fol = grep /\S/ , split \x0a , `dir /ad /b \ $fol\\*.*\ 2 &1`; @fol || push @fol , フォルダが見つかりません ; /+ ファイルのリスト / my @fn @fn = grep /\S/ , split \x0a , `dir /a-d /b \ $fol\\*.*\ 2 &1`; /+ 表示するメッセージ / my $m $m = join \x0a , $fol , , フォルダ： , @fol, , ファイル： , @fn ; /+ 表示する msg( --- ファイルの一覧 --- , $m , ); $mw - messageBox( -title = jstr( ファイルの一覧 ) , -message = jstr( $m ) , ); ? 入力フィールドの内容を表示する / dispText() /+ 入力フィールドの内容 / my $m $m = to_jstr( $text - Contents() ); $m =~ /$/ && ( $m = $` ) ; # 行末の改行を除去 $m ne || return ; /+ 表示するメッセージ $m = 入力されたテキストは .$m. です。 ; /+ 表示する msg( $m , ); $mw - messageBox( -title = jstr( 入力テキスト ) , -message = jstr( $m ), -icon = warning , ); * マウス位置の表示 / \& mouse_posi , Ev( x ), Ev( y ), \ $xy ? マウスの位置 / mouse_posi() my ( undef , $x , $y , $xy ) = @_; defined( $x ) && defined( $y ) || return ; ${$xy} = sprintf( ( %4d , %4d ) , $x , $y ); /name perl スクリプト use strict; use Tk; use Encode qw( encode decode ); /?- 補助の定型ルーチン ? 日本語文字列の( str ) / jstr( str ) decode( cp932 , $_[0] ) ; ? ( str )の日本語文字列 / to_jstr( str ) encode( cp932 , $_[0] ) ; ? 日本語パス( path )の補正 / to_jpath( path ) /+ バックスラッシュの文字化け対策 / my $s $s = join , map do{ s/(.)\//$1\\/; $_ ; }, ( $_[0] =~ /([\x00-\x7f\xa0-\xdf]|..)/g ) ; / to_jstr( jstr( $s ) ); ? メッセージ( array )を表示して エラー終了する。 / err( array ) msg( @_ ); exit( 1 ); ? メッセージ( array )を表示する。 / msg( array ) print map { $_\x0a } @_; ※ txt中の ＜ はすべて半角に置換すること。 codeLayout_tk_sample.bat @echo off cd /d %~dp0 set codeLayouter=c \mytools\codeLayouter.exe echo new tk_sample echo/ && %codeLayouter% tk_sample.txt || ( pause && exit ) echo/ && echo start tk_sample perl tk_sample.pl || ( pause && exit ) Edit