動画ー
最近エルソードの高速コンボ(仮)にはまっていて、できるようになろうと訓練場にこもってる時もあります。
方法はこちら。かなり個人的な体感が入ってますのでわかりにくいかと思いますがご了承ください。
略称としては次のような感じで説明します
・DJ→ダッシュジャンプ、DJZ→ダッシュジャンプZ、DJX→ダッシュジャンプX
1．
例としてエルス(SK)をあげます。ZZZなどの攻撃時に非常に短い時間白いフラッシュが起こります。
このタイミングで実はダッシュキャンセルが可能です。(通常のダッシュキャンセルはZZからZZZの間、あるいはZZZ後の硬直時などに可能)
そしてこのときにDJを行うと通常のDJとはちょっと違ったものになります。
"最初の方に少し止まるような感じ"で飛び、そのあと勢いよく飛んでいくジャンプとなります。
2．
先ほどのちょっと違ったDJ中の、"最初の方に少し止まる感じ"の部分でDJZかDJXXをして低空で当てます。
3．
そのまま連続でコンボを決めます。
で、2．の時点で高速になってます。え？何故って？そんなの知りません。実際にやるとわかります（ぁ
というわけで参考動画おいときます。1か月期限+20回制限なのでお早目に？ｗ
Passは某豆氏…といえばわかる方はわかるでしょう。そのメインキャラの名前をPassにしてあります。
動画の簡単な説明はreadme.txtおいときましたので参考にー。
通常ZZZDJXXループコンボ＆高速ZZZDJXXループコンボ：http://www1.axfc.net/uploader/K/so/77793.zip
あと時空のシャドウウォーリアが暗黒の髪飾り2個同時に落としたのもたまたま動画撮ってあるのでそのうちあげます。
手書きー
たまには絵を描こうと思い、イヴ(CA)を描いてみました。
下書き
その後 2時間くらいでこんな感じに
描いて思ったこと
・CAの衣装難しい
・横の巻き髪どうなってるんだ
・腕のリングは武器みたいに飛んでるのか
・参考絵少なっ(いつもの横立ち絵とアバターを参考に)
このあとはスキャナーなんてないので
携帯で写真撮る→PCへ移す→線画→塗り→完成
となります。
予定では線画で足も付け足して全身にします。
何を描くかは気まぐれなので、こんな絵でもいいのならリクエストすると描くかもしれませんｗ
気が付いたら
時間立つの早い早い…ｗ
最近あったこと
・夏季休暇のため実家に帰った
→とりあえず帰るから会えるよと友人たちにメールしたら約束が4つもでき…
結果、高校の友人と3回飲み会+α(計9人 被ったりしてる人もｗ)+中学の友人2人と自宅でゲーム
したわけですｗ酒に強くてよかった(ぁ
→実家のネット環境が素晴らしかったｗもっとやりたかったけど時間が足りず。
書き出したらこれしかなかった！ｗ
あと本日、どういうわけか関東から友人が泊まりに来ます。楽しいからいいけど、明日仕事あるぞ…ｗ
ちなみに土曜の午後8時～日曜午前4時は初ネカフェタイムの予定です。
PTとかするなら是非このとき誘ってくださいな！
最後にエルソSS貼っときます。
時間バグ。おかげで5：30のクエストクリアしちゃいました(
ダメージが酷いのは仕様ですｗｗ
急成長の理由。螺旋2倍うますぎる。
よく使う4キャラ。イヴはLV42にする気はあまりないのでのんびり育ってます。
上ではシャツでしたが、ちゃんとそろいました。
ちなみにアイシャも緑フルありますが、上の画像でつけている武器アバのソケに速度+6％が…！
エルソ動画撮ってみた
Passはギルド名なのでわかる人しかわからないと思います。
リンク(リンク切れ確認2010/10/21)
あぁ…動画編集ってこんな難しいものなのか…、と体感しました。
さて、次はエルソのイヴでも描こうかなぁｗ
家計簿作成 - VBA -
しかし、最初のプログラムの記事これでいいのか…ｗ
暇ができたらC#やりたいなぁ。
'/*
'名前 : sum_sy
'作成者 : // アート
'作成日 : 20100724
'バージョン : 0.1
'仕様 : 収入の合計を全シートから参照してもってくる
' 参照するシートはセルに文字列"合計"を持つ全シート
'
'備考 : テンプレ用なのでその他考慮なし
''
'*/
Sub sum_sy()
Dim in_sum As Long
Dim out_sum As Long
Dim gou_sum As Long
Dim serch_in As Object
Dim serch_out As Object
Dim serch_gou As Object
Dim sheet As Worksheet
For i = 1 To Worksheets.Count
Set serch_in = Worksheets(i).Cells.Find("収入")
Set serch_out = Worksheets(i).Cells.Find("出費")
Set serch_gou = Worksheets(i).Cells.Find("合計")
Set sheet = Worksheets(i)
If serch_gou Is Nothing Then
Else
'収入
If serch_in.Column = 38 And serch_in.Row = 3 Then
in_sum = in_sum + CLng(sheet.Range("AU3").Value)
Else
End If
'出費
If serch_out.Column = 38 And serch_out.Row = 5 Then
out_sum = out_sum + CLng(sheet.Range("BD5").Value)
Else
End If
'合計
If serch_gou.Column = 53 And serch_gou.Row = 3 Then
gou_sum = gou_sum + CLng(sheet.Range("BD3").Value)
Else
End If
End If
Next
MsgBox (in_sum)
MsgBox (out_sum)
MsgBox (gou_sum)
Worksheets(1).Range("E23").Value = in_sum
Worksheets(1).Range("E25").Value = out_sum
Worksheets(1).Range("E27").Value = gou_sum
End Sub