HSPと吉里吉里を組み合わせての開発は可能か

質問

こんにちは。
HSPと吉里吉里についてですが、ＨＳＰでアクションゲームを作り、吉里吉里でノベルゲームを作り組み合わせたいと考えております。
ノベルの展開により、ＨＳＰのアクションの中身が変わり、アクションのクリアの仕方によって吉里吉里でのノベルの展開が変わるという、ように組み合わせたいのですが、可能でしょうか？

回答No.1

nacika · ベストアンサー

HSPで吉里吉里の実行画面を、子ウィンドウ化してHSP内ウィンドウに表示することができれば可能だと思います。

・HSPの実行中→吉里吉里画面の非表示→HSPでゲームの実行

・吉里吉里の実行中→HSPの画面を真っ白に→吉里吉里の子ウィンドウ化

子ウィンドウ化は、
#module
#uselib "user32.dll"
#func SetParent "SetParent" int,int
#func SetWindowLongA "SetWindowLongA" int,int,int
#define GWL_STYLE $FFFFFFF0
#define WS_VISIBLE $10000000
#define WS_CHILD $40000000
//ChangeParent 親ウィンドウの変更
//p1 ウィンドウハンドル
//p2 新しい親ウィンドウハンドル
#deffunc changeparent int p1,int p2
SetParent p1,p2
SetWindowLongA p1,GWL_STYLE, WS_VISIBLE|WS_CHILD
return
#global

#uselib "user32.dll"
#func SetWindowLong "SetWindowLongA" int,int,int
#func SetWindowPos "SetWindowPos" int,int,int,int,int,int,int

screen 0 //HSP側
mes "HSP側"
hmain=hwnd

screen 1, 640,480, 0, 0, 0 //吉里吉里側
gsel 1,-1
mes "吉里吉里側"
changeparent hwnd,hmain
SetWindowLong hwnd,GWL_STYLE,0
SetWindowPos hwnd, 0, 0, 0, 640, 480, 0

です。

吉里吉里のウィンドウハンドルを取得するには、findwindow関数を使用します。

お礼

ありがとうございます。確かにこれでウィンドウの切り替えが可能のように思います。吉里吉里の機能が少ないのでちょっと考えなければなりませんが、実践してみようと思います。