sample\hgimg4\physics_1.hsp » Plain Format
#include "hgimg4.as" gpbox box,1,$888888 //箱を生成 setang box,1,1 setscale box,2,1,1 //箱の角度と拡大率を設定 setpos box,0,5,0 setcoli box,1,2 //コリジョングループを設定 gppbind box,1 //箱に物理を与える gpfloor grd,10,10,$AABB99 //床を生成 setpos grd,0,-3,0:setalpha grd,100 //床の位置調整をして半透明にする setcoli grd,2,0 //コリジョングループを設定 gppbind grd,0 //床に物理を与える setpos gpobj_camera,0,0,10 //カメラの位置を調整 ; テクスチャマテリアル作成 gptexmat id_ptex, "res/efx.png" ,GPOBJ_MATOPT_BLENDADD|GPOBJ_MATOPT_NOZWRITE ; イベントリストを登録 ; newevent ev1 ; 新しいイベントIDを取得 event_setdir ev1, -0.2,0.2,-0.5, 0.2,0.7,0.2 event_adddir ev1, 0, -0.05, 0 event_wait ev1, 40 event_suicide ev1 ddim respos,4 resid=0 *main gppcontact res,box ; 接触 if res>0 { gppinfo respos,resid,box,0 gpplate id, 1.8,1.8,-2,id_ptex ; 板ノードを追加 setobjmode id, OBJ_MOVE ; 自動移動を設定する setpos id,respos(0),respos(1),respos(2) setevent id, ev1 } redraw 0 color:boxf gpdraw redraw 1 await 16 goto *main