ObaQ¤ÎÉÔ¶ñ¹çÊó¹ð¤Ç¤¹¡£
qaddmodel¤ÇºîÀ®¤·¤¿¥ª¥Ö¥¸¥§¥¯¥È¤ËqmatÌ¿Îá mat_spr ¤Ç¥¹¥×¥é¥¤¥Èɽ¼¨¤µ¤»¤ë¤È¡¢¥¹¥×¥é¥¤¥Èɽ¼¨°ÌÃÖ¤¬¤º¤ì¤¿°ÌÃÖ¤Ëɽ¼¨¤µ¤ì¤ë¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£
½Å¿´¤¬Ãæ±û¤ËÍè¤Ê¤¤¿Þ·Á¤òºîÀ®¤·¤¿¾ì¹ç¡¢°ÌÃÖ¤¬¤º¤ì¤Æ¤·¤Þ¤¦¤è¤¦¤Ç¤¹¡£
°Ê²¼¤Ï¡¢³ÎǧÍѤΥ¹¥¯¥ê¥×¥È¤Ç¤¹¡£
#include "hsp3dish.as"
; ObaQÀßÄê
screen 0,800,600 ; ¥¦¥£¥ó¥É¥¦½é´ü²½
qreset ; OBAQ¤Î½é´ü²½
; »°³Ñ·Á¤òÄɲÃ
qaddpoly my, 3, 96,20,0
qmat my, mat_wire, $FFFFFF
;-------------------
celload "sozai12.jpg", celid_auto
widImage = stat
bs = 8.0
b = bs / 2.0
; º¸¾å¤¬¥¼¥í
; ¥¹¥×¥é¥¤¥È²èÁü¤Î°ÌÃÖ¤¬¤º¤ì¤ë
shapeBlockLT = 0.0, 0.0, 0.0, bs, bs, bs, bs, 0.0
;shapeBlockLT = 1.0, 1.0, 0.0, bs, bs, bs, bs, -5.0 ; ¶ë·Á¤¸¤ã¤Ê¤¤¾ì¹ç¤Ï²èÁü¤¬¤Ï¤ß½Ð¤¹
qaddmodel block, shapeBlockLT, 8, 60,70,0, 10.0, 1.0, 0
qtype block, type_bind
qmat block, mat_spr, widImage, 0
; Ãæ±û¤¬¥¼¥í
; ¤³¤Á¤é¤ÏÀµ¤·¤¯É½¼¨¤µ¤ì¤ë¡£
shapeBlock = -b, -b, -b, b, b, b, b, -b
; shapeBlock = -b+1, -b+1, -b, b, b, b, b, -b ; ¶ë·Á¤¸¤ã¤Ê¤¤¾ì¹ç¤Ï²èÁü¤¬¤Ï¤ß½Ð¤¹
qaddmodel block, shapeBlock, 8, 100,130,0, 10.0, 1.0, 0
qtype block, type_bind
qmat block, mat_spr, widImage, 0
*main
redraw 1 : await 16 : redraw 0 : color : boxf : color : pos 0,0
qexec
qdraw 0
; ¥Æ¥¥¹¥Èɽ¼¨
pos 50,40
color 255,255,255
mouse_x = mousex
mouse_y = mousey
mes "mouse: " + mouse_x + ", " + mouse_y
qcnvaxis qmx, qmy, mouse_x, mouse_y, 1
mes " " + qmx + ", " + qmy
goto *main
¤Þ¤¿¡¢¶ë·Á¤Ç¤Ï¤Ê¤¤¿Þ·Á¤òºîÀ®¤·¤¿¾ì¹ç¡¢¤Ï¤ß½Ð¤¿Éôʬ¤Ë¤â¥Æ¥¯¥¹¥Á¥ã¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£