日曜ゲームクリエータの日記

新キャラ・・・？

こんな感じのキャラクタを作っていました。



カミさんが折った折り紙が元のキャラクタです。

テクスチャはペンギンの流用だったりします。
あとで作り直しですね。

ExcelからDominoサーバのnsfファイルにアクセスする方法をご紹介

ExcelやAccessからDominoサーバのDB(nsfファイル）に
アクセスする方法をご紹介します。

まずはコンポーネントの参照設定にLotusNotesを追加します。


ソースはこんな感じです。


'--お決まりの初期化関係--
Dim s As New NotesSession '現在のセッション情報

'Lotusオブジェクトの作成
Set s = CreateObject("Lotus.NotesSession")

'ログインダイアログ表示
Call s.Initialize
'--お決まりの初期化関係--

Dim db As NotesDatabase 'データベースオブジェクト
Dim view As NotesView 'ビューオブジェクト
Dim doc As NotesDocument 'ドキュメント

'--文書取得までの手順
Set db = s.GetDatabase("サーバ名", "nsfファイルパス")　'-1
Set view = db.GetView("ビュー名")　　　　　　　　　　　'-2
Set doc = view.GetDocumentByKey(検索キー)　　　　　　　'-3
'--文書取得までの手順

'--値を取得したい場合
doc.GetItemValue("フィールド名")(0)

'--値を変更したい場合
Call doc.ReplaceItemValue("フィールド名", 設定値)

'--文書を保存したい場合
Call doc.Save(True,True)

'--後処理：セッションの破棄
Set s = Nothing
'--後処理：セッションの破棄


文書取得までの手順はロータススクリプトで記述した
エージェントとほぼ同じです。

1：セッションからDBを取得します。
　ファイルパスはDataフォルダを基点とします。
2：取得したDBからビューを取得します。
3：キーワードを指定して、取得したビューから文書を取得します。

値（フィールド）の取得と設定では
フィールド名を直接参照することができないため、
GetItemValue関数、ReplaceItemValue関数を使用します。

保存はロータススクリプトと同じ方法で。

これさえマスタすれば、
簡単に必要な情報をExcelやAccessに書き出すことができます。
大量のデータ検索や抽出をする場合は
サーバに与える負荷も考えて、
Sleepを定期的に呼び出すほうがいいかもしれません。

ポリゴンデータ作成中

汎用的に使用できるポリゴンデータを作成しています。

今日作ったのはこれです。

木のテーブルと椅子。

今週末にはフリー素材としてHPで公開する予定です。

数値型フィールド同士の計算について

エージェントで
数値型フィールド同士を計算して値を出したい場合に
問題が発生したので回避方法も含めてご紹介します。
※Domino5のみ確認。

数値型フィールドである数量(Suryoフィールド)と単価(Tankaフィールド)をかけて、
合計金額を出すプログラムを例に出して解説してみます。

---------------------------
Dim dSuryo as double
Dim dTanka as double
Dim dGoukei as double

dSuryo = CDbl(doc.Suryo(0))
dTanka = CDbl(doc.Tanka(0))
dGoukei = dSuryo * dTanka
---------------------------

数量、または単価が入力されていない状態で
このエージェントが実行された場合、
「型が一致しない」とエラーになってしまいます。

そこで「フィールドがどの型なのか」を調査する処理を付け加えます。

---------------------------
Dim dSuryo as double
Dim dTanka as double
Dim dGoukei as double

If VarType(doc.Suryo(0)) = 5 then
'double型だったらフィールドの値を取得
dSuryo = CDbl(doc.Suryo(0))
Else
'double型以外はゼロを設定
dSuryo = 0
End If

If VarType(doc.Tanka(0)) = 5 then
'double型だったらフィールドの値を取得
dTanka = CDbl(doc.Tanka(0))
Else
'double型以外はゼロを設定
dTanka = 0
End If

dGoukei = dSuryo * dTanka
---------------------------

NotesItemはVariant型なんですね。
フィールドに値が入っている場合にのみ設定したフィールドの型に、
値が入っていない場合は文字列になるようです。

作り直し

作り直ししました。

キャラクタを作ってみました。

以前紹介したこのデータをベースにキャラクタを作ってみました。




ゲーム中で呼び出すとこんな感じです。

何も公開するものがないので・・・

とりあえず今作っているゲームのスクリプト。



Cライクな仕様となっています。
ハロウィンフェスタ公開後に開発していたもので、
「ぱんふむ」のイベントやステージ定義にそのライト版が実装されています。

オールスクリプトだと、さすがにちょっと遅いです。
「ぱんふむ」の開発に取り掛かったときも
スピードの理由からアクションゲーム本編では
スクリプト処理を見送った経緯があります。

今回はアドベンチャーになりそうですが、
状況によっては一部処理がプログラムでの実装となりそうです。