HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2024
0301
buhionewmodµÚ¤Ó¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ÏdishÈóÂбþ¤Ç¤¹¤¬¡¢¤Ê¤ó¤È¤«¤Ê¤é¤Ê¤¤¤Ç¤·¤ç¤¦¤«(´ÝÅꤲ4²ò·è


buhio

¥ê¥ó¥¯

2024/3/1(Fri) 14:48:27|NO.101351

¡¡¤³¤ó¤Ë¤Á¤ï¡£¤¤¤Ä¤â¤¤¤Ä¤â¤ªÃηäòÇҼڤǶ²½Ì¤Ç¤¹¡£

¡¡¸½¾õ¤Ç¡¢newmodÌ¿Îá¡¢¥â¥¸¥å¡¼¥ëÊÑ¿ô¤Ï¡¢android¤äwebgl¤Ç¤Ï¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤Ê¤¤¤è¤¦¤Ç¤¹¡£
¡¡ÉáÃʤÏwindows¥á¥¤¥ó¤Ê¤Î¤Ç¡¢ÌäÂê¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢ÃΤê¹ç¤¤¤«¤é·ÈÂÓÈǤäwebÈǤÏ̵¤¤¤Î¤«¤È¸À¤ï¤ì¡¢ÀÛºî¤Î°Ü¿¢¤äº£¸å¤ÎÂбþ¤ò¹Í¤¨¤Æ¤¤¤Þ¤¹¡£

¡¡ÇÛÎó¤Ë¤è¤ë¥²¡¼¥à¥­¥ã¥é¥¯¥¿¡¼¤Î´ÉÍý¤Ï¡¢º£¤Î»ä¤Ë¤Ï¸Â³¦¤¬¤¢¤ê¡¢¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ò»È¤Ã¤¿¥â¥¸¥å¡¼¥ë·¿ÊÑ¿ô¤ò¥¯¥é¥¹¤Î¥¤¥ó¥¹¥¿¥ó¥¹¤Î¤è¤¦¤Ë°·¤Ã¤Æ¤¤¤Þ¤¹¡£
¡¡³§¤µ¤ó¤Ï¡¢¤³¤¦¤¤¤Ã¤¿Â¿¿ô¤ÎÇÛÎóÊÑ¿ô¤ä¡¢¥¯¥é¥¹¥á¥½¥Ã¥É¤ò¤É¤Î¤è¤¦¤Ë´ÉÍý¤·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£¡£
°Ê²¼¤Ï¡¢ÉáÃÊ¤Î¥×¥í¥°¥é¥à¹½Â¤¤Î¥Æ¥ó¥×¥ì¡¼¥È¤Î¤è¤¦¤Ê¤â¤Î¤Ç¤¹¡£
¡¡¸Ä¿ÍŪ¤Ë¤ÏÈó¾ï¤Ë»È¤¤¾¡¼ê¤¬Îɤ¤¤È¹Í¤¨¤Æ¤ª¤ê¡¢android³«È¯¤Ë¤â»È¤¤¤¿¤¤¤Ç¤¹¤¬¡¢
¡¡¤ä¤Ï¤êÆñ¤·¤¤¤Ç¤·¤ç¤¦¤«¡£²¿¤«ÂåÂØŪ¤Êµ­½ÒÊýË¡¤¬¤¢¤ì¤ÐÃΤꤿ¤¤¤Ç¤¹¡£
¡¡¤¤¤í¤¤¤íƬ¤ò¤Ò¤Í¤Ã¤¿¤Î¤Ç¤¹¤¬¡¢¤¦¤Þ¤¯¤Ç¤­¤Þ¤»¤ó¤Ç¤·¤¿¡£

¡¡

;===¥â¥¸¥å¡¼¥ëA=== ;¥â¥¸¥å¡¼¥ëÊÑ¿ô¤òÄêµÁ #module mod_A m_id ;¥â¥¸¥å¡¼¥ëÁ´ÂΤνé´ü²½½èÍýÍÑ=== #deffunc local class_init return ;==¥â¥¸¥å¡¼¥ëÊÑ¿ô½é´ü²½½èÍý=== #modinit m_id=getModuleID(thismod) return m_id ;==¥ë¡¼¥×½èÍýÍѥᥤ¥ó=== #modfunc local update color:pos 0,50+(15*m_id):mes "»ä¤Ï¥â¥¸¥å¡¼¥ëA("+m_id+")" logmes m_id return #global ;===¥â¥¸¥å¡¼¥ëB=== ;¥â¥¸¥å¡¼¥ëÊÑ¿ô¤òÄêµÁ #module mod_B m_id ;¥â¥¸¥å¡¼¥ëÁ´ÂΤνé´ü²½½èÍýÍÑ=== #deffunc local class_init return ;==¥â¥¸¥å¡¼¥ëÊÑ¿ô½é´ü²½½èÍý=== #modinit m_id=getModuleID(thismod) return m_id ;==¥ë¡¼¥×½èÍýÍѥᥤ¥ó=== #modfunc local update color:pos 0,100+15*m_id:mes "»ä¤Ï¥â¥¸¥å¡¼¥ëB("+m_id+")" logmes m_id return #global ;---------------------------------------------- ;¥â¥¸¥å¡¼¥ë¤Î½é´ü²½½èÍý ;³Æ¥â¥¸¥å¡¼¥ëÁ´ÂΤǻÈÍѤ¹¤ëÊÑ¿ô¤ò½àÈ÷¤·¤¿¤ê¡¢²èÁü¤òÆɤ߹þ¤ó¤À¤ê¤¹¤ë class_init@mod_A class_init@mod_B ;¥â¥¸¥å¡¼¥ë·¿ÊÑ¿ô¤Î½àÈ÷ dimtype var_A,5 dimtype var_B,5 ;¥â¥¸¥å¡¼¥ë¤Î¿·µ¬Äɲà newmod var_A,mod_A newmod var_A,mod_A newmod var_B,mod_B newmod var_B,mod_B newmod var_B,mod_B *main redraw 0 ;Åо쥭¥ã¥é¥¯¥¿¡¼¤Îupdate¹¹¿·¤ò¤³¤³¤Ë½¸Ìó¤·¤Þ¤¹ ;¥×¥í¥°¥é¥à¤¬¤¹¤´¤¯µ¡Ç½Ê̤ˤ¹¤Ã¤­¤ê¤·¡¢ ;µ¡Ç½¤ä¥­¥ã¥é¥¯¥¿¡¼¤ÎÄɲ䬤ä¤ê¤ä¤¹¤¤¤Ç¤¹¡Ê¸Ä¿Í¤Î´¶ÁÛ¡Ë foreach var_A:update@mod_A var_A(cnt):loop foreach var_B:update@mod_B var_B(cnt):loop redraw 1 await 1000/60 goto *main ;============================================================ ;ÇÛÎócntÈÖ¹æ¼èÆÀ¥â¥¸¥å¡¼¥ë¡Ê¤ªÌó«¡Ë ;============================================================ #module #defcfunc getModuleID var In_module, local Out_ID mref Out_ID, 1 return Out_ID #global ¡¡



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


buhio

¥ê¥ó¥¯

2024/3/2(Sat) 15:48:47|NO.101357

¡¡¤Ò¤È¤ê¤´¤È¤Ç¤¹¡£
¡¡¤Ò¤È¤Þ¤º¡¢Ìµ¤¤Ãηäò¹Ê¤Ã¤¿¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ò»È¤ï¤º¤Ë¥â¥¸¥å¡¼¥ëÊÑ¿ô¤Ã¤Ý¤¤¤³¤È¤ò¤¹¤ë¥Æ¥¹¥È¡£

¡¡¤ï¤«¤é¤ó¤³¤È
¡¡­¡ÇÛÎó¤òÄêµÁ¤¹¤ë¤Î¤Ï¤É¤¦¤¹¤ë¤Î¤«
¡¡­¢foreach¤Çºï½ü¤µ¤ì¤¿Í×ÁǤòÈô¤Ð¤µ¤»¤ë¤Î¤ò¤É¤¦¤¹¤ë¤«
¡¡­£mod_A¤È¤¤¤¦Ì¾Á°¤Ï¥â¥¸¥å¡¼¥ë¤Ë¤è¤Ã¤ÆÊѤï¤ë¤¬¡¢¡Ö@mod_A¡×¤ÎÉôʬ¤ò¥Þ¥¯¥í¤Ç¼«Æ°Åª¤Ë̾Á°½¤Àµ¤Ç¤­¤Ê¤¤¤«¡©
¡¡

;¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ò»È¤ï¤Ê¤¤¡¢µ¿»÷¥â¥¸¥å¡¼¥ëÊÑ¿ô¤Î¥Æ¥¹¥È°Æ #module mod_A #deffunc local newclass array _list if vartype(_list)!=2{;̤½é´ü²½¢ªNo.0 ;ʸ»úÎ󷿤ǽé´ü²½¤·¤Æinit¤ØÅϤ¹ sdim _list init@mod_A _list(0),0 }else{;½é´ü²½ºÑ¤ß¢ªNo.1¡Á ;Í×ÁǤòÄɲä·¤Æinit¤ØÅϤ¹ new_id=length(_list) _list(new_id)="" init@mod_A _list(new_id),new_id logmes new_id } return ;===¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ÎÀÚÂØ=== #deffunc local attach var _values ;ÊÑ¿ô¤ò¥â¥¸¥å¡¼¥ëÊÑ¿ô¤Ëʬ²ò¤·¤Æ¥¢¥¿¥Ã¥Á¤¹¤ëÌ¿Îá ; ;¤³¤³¤Ç¥¯¥é¥¹¤Î¥×¥í¥Ñ¥Æ¥£»ÅÍͤò·è¤á¤ë¤³¤È¤Ë¤Ê¤ë ;int·¿ a int·¿b¡¡double·¿c¡¡Ê¸»úÎó·¿d ;­¡ÇÛÎó¤ò¼ÂÁõ¤¹¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤ó¤À¤í¤¦¡© dupptr a , varptr(_values) , 4 , 4 ;int dupptr b , varptr(_values)+4 , 4 , 4 ;int dupptr c , varptr(_values)+8 , 8 , 3 ;double dupptr d , varptr(_values)+16,16 , 2 ;str return #deffunc local init var _values ,int _id attach@mod_A _values ;¥â¥¸¥å¡¼¥ëÊÑ¿ô¤òÀÚÂØ ;µ¿»÷¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ò½é´ü²½¡¢ÂåÆþ a=_id ;ÇÛÎó¤ÎÍ×ÁÇÈÖ¹æ¤ò¼èÆÀ b=rnd(1000) c=0.001f*b d="ÈÖ¹æ¤Ï" +a+"¤Ç¤¹" return #deffunc local update var _values attach@mod_A _values¡¡;¥â¥¸¥å¡¼¥ëÊÑ¿ô¤òÀÚÂØ color pos 0,0+15*a mes "modÊÑ¿ôa: "+a+":",mesopt_nocr mes "modÊÑ¿ôb: "+b+":",mesopt_nocr mes "modÊÑ¿ôc: "+c+":",mesopt_nocr mes "modÊÑ¿ôd: "+d return #global ;--------------------------------------------------- ;¤³¤³¤«¤é¥á¥¤¥ó½èÍý repeat 10 ;¤È¤ê¤¢¤¨¤º¥â¥¸¥å¡¼¥ë¤ò10¸ÄºîÀ® newclass@mod_A mods ;½é´ü²½´Ø¿ô¤ØÅϤ¹ loop *main redraw 0 color 255,255,255 boxf ;­¢ºï½ü¤µ¤ì¤¿Í×ÁǤòÈô¤Ð¤¹¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤ó¤À¤í¤¦¡© foreach mods update@mod_A mods(cnt) loop await 1000/60 redraw 1 goto *main



buhio

¥ê¥ó¥¯

2024/3/2(Sat) 16:03:52|NO.101358

¡¡¤·¤Þ¤Ã¤¿¤À¤á¤À¡£¡£dupptr¤ÏwinÀìÍѤÀ¤Ã¤¿¡¢¡¢¡¢



buhio

¥ê¥ó¥¯

2024/3/4(Mon) 13:38:44|NO.101366

¤é¤é¤µ¤ó¤«¤é¥¢¥É¥Ð¥¤¥¹¤ò夭¡¢°ìö¼«¸Ê²ò·è¤Ë¤·¤Þ¤¹¡£



;¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ò»È¤ï¤Ê¤¤¡¢µ¿»÷¥¯¥é¥¹¤Î¥Æ¥¹¥È°Æ ;====================================================== ;peek poke ³ÈÄ¥ ;====================================================== #module peekpokeEX #deffunc local init ddim temp,64 return #deffunc dpoke var _buf,int _adr,var _value lpoke _buf,_adr+0,lpeek(_value,0) lpoke _buf,_adr+4,lpeek(_value,4) return ;¼Â¿ô¼è¤ê½Ð¤· #defcfunc dpeek var _buf,int _adr lpoke temp,0,lpeek(_buf,_adr) lpoke temp,4,lpeek(_buf,_adr+4) return temp #global ;====================================================== ;Æȼ«¤Î¥¯¥é¥¹ ;====================================================== #module class_A ;¥â¥¸¥å¡¼¥ë¤Î̾Á°¤ò¥Þ¥¯¥í@ThisName¤ÇÃÖ´¹ #define init@ThisName init@class_A #define writeval@ThisName writeval@class_A #define readval@ThisName readval@class_A ;¥¯¥é¥¹Á´ÂΤνé´ü²½¡á=============================== #deffunc local initclass return ;¥¯¥é¥¹¥¤¥ó¥¹¥¿¥ó¥¹¤ÎºîÀ®========== #deffunc local newclass array _list init@peekpokeEX;peekpokeÍѤÎtempʸ»úÎó½é´ü²½ if vartype(_list)!=2{;̤½é´ü²½¢ªNo.0 ;ʸ»úÎ󷿤ǽé´ü²½¤·¤Æinit¤ØÅϤ¹ sdim _list,64 ;ºÇÄã64¥Ð¥¤¥È³ÎÊÝ init@ThisName _list(0),0 }else{;½é´ü²½ºÑ¤ß¢ªNo.1¡Á ;Í×ÁǤòÄɲä·¤Æinit¤ØÅϤ¹ new_id=length(_list) _list(new_id)="" init@ThisName _list(new_id),new_id logmes new_id } return ;¥¯¥é¥¹¥¤¥ó¥¹¥¿¥ó¥¹¤Îºï½ü========== #deffunc local delclass var _value m_id=-1 ;m_id¤ò-1¤Ë¤·¤Æºï½üɽ¼¨ lpoke _value,0,m_id ;ºï½ü¤òÊݸ return ;¥¯¥é¥¹Á´ÂΤÎÇË´þ¡á================================= #deffunc local termclass return ;===¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ÎÀÚÂØ=== #deffunc local readval var _value ;_value¤ò¥â¥¸¥å¡¼¥ëÊÑ¿ô¤Ëʬ²ò¤·¤Æ¥¢¥¿¥Ã¥Á¤¹¤ëÌ¿Îá ;¤³¤³¤Ç¥¯¥é¥¹¤Î¥×¥í¥Ñ¥Æ¥£»ÅÍͤò·è¤á¤ë¤³¤È¤Ë¤Ê¤ë ;int·¿ a int·¿b¡¡double·¿c¡¡Ê¸»úÎó·¿d ;­¡ÇÛÎó¤ò¼ÂÁõ¤¹¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤ó¤À¤í¤¦¡© m_id=lpeek(_value , 0) ;int(ɬ¤ºÉ¬Í×) m_aa=lpeek(_value , 4) ;int m_bb=dpeek(_value , 8) ;double return #deffunc local writeval var _value ;¥¸¥å¡¼¥ëÊÑ¿ôŽ¾Ž¯ŽÄ¤ò_value¤Ø½ñ¤­¹þ¤àÌ¿Îá lpoke _value,0,m_id ;int(ɬ¤ºÉ¬Í×) lpoke _value,4,m_aa ;int dpoke _value,8,m_bb ;double return #deffunc local init var _value ,int _id ;µ¿»÷¥â¥¸¥å¡¼¥ëÊÑ¿ô¤ò½é´ü²½¡¢ÂåÆþ m_id=_id ;ÇÛÎó¤ÎÍ×ÁÇÈÖ¹æ¤ò¼èÆÀ m_aa=rnd(1000) m_bb=0.001f*m_aa writeval@ThisName _value return #deffunc local update var _value readval@ThisName _value¡¡;¥â¥¸¥å¡¼¥ëÊÑ¿ô¤òÀÚÂØ if m_id=-1{return} ;m_id¤¬-1¤Ê¤éºï½ü¤µ¤ì¤Æ¤¤¤ë color pos 0,0+15*m_id mes "classÊÑ¿ôm_id: "+m_id+":",mesopt_nocr mes "classÊÑ¿ôm_aa: "+m_aa+":",mesopt_nocr mes "classÊÑ¿ôm_bb: "+m_bb+":",mesopt_nocr writeval@ThisName _value ;¥â¥¸¥å¡¼¥ëÊÑ¿ô¤òÊݸ return #global ;====================================================== ;¥á¥¤¥ó¥×¥í¥°¥é¥à ;====================================================== repeat 10 ;¤È¤ê¤¢¤¨¤º¥â¥¸¥å¡¼¥ë¤ò10¸ÄºîÀ® newclass@class_A classes ;½é´ü²½´Ø¿ô¤ØÅϤ¹ loop *main redraw 0 color 255,255,255 boxf stick keys if keys=1{delclass@class_A classes(1)};ºï½ü¥Æ¥¹¥È if keys=2{delclass@class_A classes(2)};ºï½ü¥Æ¥¹¥È foreach classes update@class_A classes(cnt) loop await 1000/60 redraw 1 goto *main



buhio

¥ê¥ó¥¯

2024/3/4(Mon) 13:39:08|NO.101367

²ò·è



µ­»öºï½ü

µ­»öNO.¥Ñ¥¹¥ï¡¼¥É
(¼ÁÌ䤬²ò·è¤·¤¿¥¹¥ì¥Ã¥É¤Ï¾¤ÎÍøÍѼԤ˳èÍѤ·¤Æ¤â¤é¤¦¤¿¤á¡¢ºï½ü¤·¤Ê¤¤¤è¤¦¤ª´ê¤¤¤·¤Þ¤¹)

NO.101351¤Ø¤ÎÊÖ¿®

¥Þ¥¹¥³¥Ã¥È

¹¥¤­¤Ê¥Þ¥¹¥³¥Ã¥È¤òÁª¤ó¤Ç¤¯¤À¤µ¤¤¡£

̾Á°

e-mail
HOME
  1. ½é¤á¤ÆÍøÍѤ¹¤ëÊý¤Ï¡¢HSP3·Ç¼¨ÈĤλȤ¤Êý¤ò¤ªÆɤߤ¯¤À¤µ¤¤¡£
  2. ÉÔÍ×Éôʬ¤Î¿¤¤Ä¹¤¤¥¹¥¯¥ê¥×¥È¤ÎÅê¹Æ¤Ï ¤´±óθ¤¯¤À¤µ¤¤¡£
  3. ½ñ¤­¹þ¤ß¤Ï¼«Æ°²þ¹Ô¤µ¤ì¤Þ¤»¤ó¡£Å¬Å٤˲þ¹Ô¤òÆþ¤ì¤Æ¤¯¤À¤µ¤¤¡£
  4. ¥¹¥¯¥ê¥×¥È¤Ï¾®Ê¸»ú¤Î<pre>¡Á</pre>¤Ç°Ï¤à¤È¸«¤ä¤¹¤¯É½¼¨¤Ç¤­¤Þ¤¹¡£

ºï½üÍѥѥ¹¥ï¡¼¥É

²ò·è¤·¤¿¤é¼ÁÌä¼ÔËܿͤ¬¤³¤³¤ò¥Á¥§¥Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£

¥¨¥é¡¼È¯À¸»þ¡¢ºÆÁ÷¿®¤¹¤ë¤ÈÆó½ÅÁ÷¿®¤Ë¤Ê¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£
²óÅú¤¬ÆÀ¤é¤ì¤¿¤é¡¢¤ªÎé½ñ¤­¹þ¤ß»þ¤Ë[²ò·è]¥Á¥§¥Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£
SPAMËɻߤΤ¿¤áURL¤«¤é»Ï¤Þ¤ëʸ¾Ï¤ÏÅê¹Æ¤Ç¤­¤Þ¤»¤ó¡£
SPAMËɻߤΤ¿¤á±Ñʸ»ú¤Î¤ß¤ÎËÜʸ¤òÅê¹Æ¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£

ONION software Copyright 1997-2023(c) All rights reserved.