EVAアニメーションを再生してみる

EVAアニメーションを再生してみる。

• スクリプト
• memo

• →HSP3・サンプルスクリプトに戻る

HSP3.1β1 XPsp2 で動作確認 (3.0a以降です。)
オートメーションに対応していてイベントも取れます。

ＳＨＡＲＰ
http://www.sharp.co.jp/sc/excite/evademo/evahome.htm
プラグインはこちらから
http://www.sharp.co.jp/sc/excite/evademo/plugin/plgwin.htm

スクリプト

onexit gosub *exit

        sdim path,260

        screen 0,640,500,0
        
        objsize 50,20
        pos   0, 0 : button gosub "開く", *go1

        pos 0,20
        axobj EVACtl,"AcxEVA.EVACtl",640,480

        lop=EVACtl("Loop")  ;プロパティの設定情報を取得する場合
        Menu=EVACtl("Menu") ;

//      EVACtl("Loop")=0    ;プロパティの設定する場合
//      EVACtl("Menu")=0    ; 

stop

*go1
        dialog "eva",16
        if stat=0{return}
        path=refstr
        
        EVACtl->"Stop"      ;メソッドを実行

        EVACtl("SRC")=path  ;プロパティの設定

        EVACtl->"Play"      ;メソッドを実行
return

*exit
//---delcomする
        EVACtl=0
end

memo

動作が軽くて、いい感じです。

2006/04/08 13:47:52 JST
変更
onexit *exit -> onexit gosub *exit