º£easy3d¤Çξ¼ê¤Ç¥Ï¥ó¥É¥¬¥ó¤ò»ý¤Á¥Þ¥Ã¥×¤ÎŪ¤ò²õ¤·¤Æ²ó¤ë¥²¡¼¥à¤òºî¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬
²èÌ̤ϼê¤È½Æ¤¬²èÌ̤Ëɽ¼¨¤µ¤ì¤Æ¤¤¤ë°ì¿Í¾Î¤Ç¤¹
ή¤ì¤Ï¿Þ1¤Ç¤¹
¿Þ1¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¿Þ2
ξ¼ê¤Ä¤¥Ï¥ó¥É¥¬¥ó¤Îɽ¼¨......____________________......____________________
......¢......................|//////////////////|......|//////////////////|
¥Þ¥Ã¥×Æɤ߹þ¤ß................|//////////////////|......|//////////////////|
......¢......................|//////////////////|......|//////////////////|
ÇØ·ÊÆɤ߹þ¤ß..................|//////////////////|......|//////////////////|
......¢......................|////////½Æ////////|......|////////////////½Æ|
key¤Ç¼êŽ¥½Æ°ÜÆ°¢«¢«¢«¢«........|////////¼ê////////|......|////////////////¼ê|
......¢............¢¬........|__________________|......|__________________|
ÄÉÀ×¥«¥á¥é..........¢¬................º£.......................Í×˾.........
......¢............¢¬......................................................
ÃÏÌ̤ȤÎÅö¤¿¤êȽÄê..¢¬......................................................
......¢ª¢ª¢ª¢ª¢ª¢ª¢ª¢¬......................................................
¡¡
¤¤¤Þ¤Ï¤³¤³¤Þ¤Ç¤Ç¤¤Æ¤¤¤ë¤ó¤Ç¤¹¤¬
ÌäÂ꤬¤Ò¤È¤Ä¤¢¤ê¤Þ¤·¤Æ²¼¤Ë¤â¥¹¥¯¥ê¥×¥È¤òºÜ¤»¤Þ¤¹¤¬
ÄÉÈø¥«¥á¥é¤Î»ÅÍͤ¬¤¤¤Ã¤¿¤ó½Æ¤Î¸þ¤¤¤Æ¤¤¤ëÊý¸þ¤è¤ê¤¤¤¯¤Ä¤«²¼¤¬¤Ã¤Æ
¤½¤ÎºÂɸ¤ò¥«¥á¥é¤ËÂåÆþ¤·¤Æ¸å¤í¤Ë¥«¥á¥é¤ò»ý¤Ã¤Æ¤¯¤ë¤È¤¤¤¦¤¦¤â¤Î¤Ê¤Î¤Ç¤â¤Á¤í¤ó
ɽ¼¨¤Ï¿Þ2¤Îº¸Â¦¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹
¤½¤ì¤ò±¦¤Î¤è¤¦¤Ë¤·¤¿¤¤¤ó¤Ç¤¹¤¬µµÂ¾¤ÎÊ¿¹Ô°ÜÆ°¤ò»È¤¦¤Èe3drotaneyÌ¿Îá¤Ç¥ª¥Ö¥¸¥§¥¯¥È¤ò²óž¤µ¤»¤¿¤È¤¤Ë
¤¦¤Þ¤¯¥«¥á¥é¤¬¸å¤í¤Ë²ó¤ê¤Þ¤»¤ó
¤Û¤«¤Ë¤¤¤¤¤Û¤¦¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«
±¦¾å¤Î¿Þ2»²¾È
²¼¤Î¥¹¥¯¥ê¥×¥È¤Ï
º£¤Î¾õ¶·¤Ç¤¹
¥Õ¥¡¥¤¥ë¤¬¤Ê¤¤¤Î¤ÇÆ°¤¤Þ¤»¤ó¤¬¾¯¤·¤Ç¤â¤ï¤«¤ê¤ä¤¹¤¯¤Ê¤ì¤Ð¤È»×¤¤¤Þ¤·¤Æ
#include "e3dhsp3.as"
;½é´ü²½
;screen 0,1000,700
e3dinit 0,-1,1,16,1,scid1
;¥¡¼Ç§¼±ÍÑÇÛÎóÊÑ¿ôºîÀ®
dim key,256
dim keycnt,256
huremu=50
;²»À¼¥í¡¼¥É
oto1="壱.wav"
oto2="½ÆÀ¼.wav"
mmload oto2,2
e3dloadsound oto1,otono
;sig¥Õ¥¡¥¤¥ë¾ì½ê
basyo=dir_cur
sigfail=basyo+"\\fps.sig"
;sig¥Õ¥¡¥¤¥ë¥í¡¼¥É
objx=30000
objy=0
objz=30000
e3dsigload sigfail,hsid1,,0.1
e3dsetpos hsid1,objx,objy,objz
;moa¥Õ¥¡¥¤¥ë¾ì½ê¤ÈÊäÀµ¥Õ¥ì¡¼¥à
moafail=basyo+"\\ÂǤÄ.moa"
hosei=10
;moa¥Õ¥¡¥¤¥ë¥í¡¼¥É
e3dloadmoafile hsid1,moafail,hosei
//¥á¥¿¥»¥³¥¤¥¢¤«¤é¥Þ¥Ã¥×ºîÀ®
;¥Þ¥Ã¥×
;map=basyo+"\\¥Þ¥Ã¥×.mqo"
;mapx=0
;mapy=0
;mapz=0
;¥Þ¥Ã¥×ºîÀ®
;e3dloadmqofileasground map,1000,hsid2
;e3dsetpos hsid2,mapx,mapy,mapz
//bmp¤«¤é¥Þ¥Ã¥×ºîÀ®
picid1 = basyo + "\\ÃÏÌÌ.bmp" ;ÃÏÌ̤κÂɸ¾ðÊó
picid2 = basyo + "\\Æ».bmp" ;ÃÏÌ̤ÎÆ»¤Î¾ðÊó
picid3 = basyo + "\\Àî.bmp" ;ÃÏÌ̤ÎÀî¤Î¾ðÊó
picid4 = basyo + "\\iro2.bmp" ;ÃÏÌÌ¡¢Æ»¡¢Àî¤ÎÌÏÍͤò·è¤á¤ë¡¢BMP¥Õ¥¡¥¤¥ë
;ÃÏÌ̺îÀ®ÍѤÎÃÍ
posx = 0
posy = 0
posz = 0
mapsize=60000
mapdive=60
E3DLoadGroundBMP picid1,picid2,picid3,picid4,mapsize,mapsize,mapdive,mapdive,100,hsid2
E3DSetPos hsid2, posx0, posy0, posz0 ;ÃÏÌÌɽ¼¨°ÌÃÖ¤òÀßÄê
//¥á¥¿¥»¥³¥¤¥¢ÍÑ
;ÊÉ
;kabe=basyo+"\\ÊÉ.mqo"
;ÊɺîÀ®
;e3dloadmqofileasmovablearea kabe,1000,hsid3
//bmpÍÑ
;ÊÉ
kabe=basyo+"\\Æ».bmp"
;ÊɺîÀ®
e3dsetmovablearea kabe,mapsize,mapsize,mapdive,mapdive,2000,hsid3
e3dsetpos hsid3,0,0,0
;ÇØ·Ê
haikei=basyo+"\\19.jpg"
haikei2=basyo+"\\19.jpg"
;ÇطʺîÀ®
e3dcreatebg scid1,haikei2,haikei,0,0,1
//¼êÆ°
;¥«¥á¥é°ÌÃÖ
;cx=200
;cy=20
;cz=600
;¥«¥á¥é°ÌÃÖÊѹ¹
;e3dsetcamerapos cx,cy,cz
;¥«¥á¥é¸þ¤
;cdxz=-30
;cdy=0
;¥«¥á¥é¸þ¤Êѹ¹
;e3dsetcameradeg cdxz,cdy
//¼«Æ°¼èÆÀ
gosub*camera
;¥é¥¤¥È°ÌÃÖ
lightx=0
lighty=-10000
lightz=1
;¥é¥¤¥È¤Î¿§
lightr=255
lightg=255
lightb=255
;¥é¥¤¥ÈºîÀ®
e3dcreatelight light1
e3dsetdirectionallight light1,lightx,lighty,lightz,lightr,lightg,lightb
;¥á¥¤¥ó¥ë¡¼¥×
*mein
huremu++
;»ë³¦¤ËÆþ¤Ã¤Æ¤¤¤ë¤«Ä´¤Ù¤ë
e3dchkinview scid1,hsid1
e3dchkinview scid1,hsid2
;¥¤¥Ù¥ó¥ÈÈÖ¹æ½é´ü²½
ibennto=0
;¡¡¡¡¥¡¼ÀßÄê
e3dgetkeyboardstate key
e3dgetkeyboardcnt keycnt
;¥¡¼ÆþÎϳΤ«¤á
if key.VK_ESCAPE=1 : end
if key.('W')=1 : e3dposforward hsid1,100 : gosub*saisei
if key.('S')=1 : e3dposforward,-100 : gosub*saisei
if key.('A')=1 : gosub*saisei
if key.('D')=1 : gosub*saisei
if keycnt.VK_LBUTTON=1&huragu=0 : ibennto=2 : huremu=0 : huragu=1
;Åö¤¿¤êȽÄê
gosub*Åö¤¿¤êȽÄê
gosub*Åö¤¿¤êȽÄêÊÉ
gosub*camera
if huremu=10&huragu=1 : mmplay 2
if huremu=30 : huragu=0
;moaºÆÀ¸
e3dsetnewposebymoa hsid1,ibennto
;¥ì¥ó¥¿¥ê¥ó¥°½àÈ÷
e3dbeginscene scid1
;¥ì¥ó¥¿¥ê¥ó¥°
e3drender scid1,hsid1,0
e3drender scid1,hsid2,0
;¥ì¥ó¥¿¥ê¥ó¥°½ªÎ»
e3dendscene
;ºÇ½ªÅª¤ËÉÁ²è
e3dpresent scid1
await 1
goto*mein
;²»À¼ºÆÀ¸
*saisei
asioto++ ;asioto¤¬40¤Ë㤹¤ë¤¿¤Ó¤Ë²»¤òÌĤ餹
if asioto\40=0 : e3dplaysound otono,0
;¡¡¡¡¥«¥á¥é°ÌÃÖÊѹ¹
*camera
;¤¤¤Ã¤¿¤óº£¤Î½Æ¤Î°ÌÃÖ¤òÊݸ
e3dgetpos hsid1,zyux,zyuy,zyuz
;¡ 20ÅÙ°ÌÃÖ¤ò·¹¤±¤ë
e3drotatey hsid1,20
;¢ ¸þ¤¤¤Æ¤¤¤ëÊý¸þ¤Ë¡¼200Ì᤹
e3dposforward hsid1, -200
;£ ¡¢¤Î°ÌÃÖ¤òÊݸ
e3dgetpos hsid1, cx, cy, cz
;¥ª¥Ö¥¸¥§¥¯¥È¤Î°ÌÃÖ¤ò¤µ¤Ã¤¤ÎÊÑ¿ô¤«¤é¼è¤ê½Ð¤¹
e3dsetpos hsid1, zyux , zyuy , zyuz
;¥ª¥Ö¥¸¥§¥¯¥È¤Î³ÑÅÙ¤òÌ᤹
e3drotatey hsid1,-20
;£¤Î°ÌÃÖ¤ò¥«¥á¥é¤Î°ÌÃ֤Ȥ·¤Æ»È¤¦
e3dsetcamerapos cx , cy , cz
e3dsetcameratarget zyux,zyuy,zyuz,0,1,0
e3dcamerashiftup ;¤¦¤Þ¤¯¤¤¤«¤Ê¤Ã¤¿
e3dcamerashiftdown ;¤¦¤Þ¤¯¤¤¤«¤Ê¤Ã¤¿¡¡
e3dcamerashiftleft ; ¤¦¤Þ¤¯¤¤¤«¤Ê¤«¤Ã¤¿
e3dcamerashiftright ;¡¡¤¦¤Þ¤¯¤¤¤«¤Ê¤¤¤«¤Ã¤¿
return
*Åö¤¿¤êȽÄê
e3dchkconfground hsid1,hsid2,1,1000,-1000,atari,zimennx,zimenny,zimennz,nx,ny,nz
e3dsetpos hsid1,zimennx,zimenny+300,zimennz
return
*Åö¤¿¤êȽÄêÊÉ
e3dchkconfwall hsid1,hsid3,-10,atarikabe,zimennx1,zimenny1,zimennz1,nnx,nny,nnz
e3dsetpos hsid1,zimennx1,zimenny1,zimennz1
return
Ĺ¡¹¤È¤Ê¤ê¤Þ¤·¤¿¤¬³§¤µ¤ó¤Î¤´ÊÖÅúÂԤäƤ¤¤Þ¤¹