HSP - Hot Soup Processor [14]

HSP - Hot Soup Processor [14]at GAMEDEV

HSP - Hot Soup Processor [14] - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

363:名前は開発中のものです。
 07/02/11 05:24:38 gCwLP8t7
texload2だとアルファチャンネル付きの画像じゃないと 
透明色なしになるのか・・・ 
なんか重くなりそう・・・

364:名前は開発中のものです。
 07/02/11 11:00:41 xhA1Kbga
β７ｷﾀ━(ﾟ∀ﾟ)━(∀ﾟ )━(ﾟ　 )━(　　)━(　　)━(　 ﾟ)━( ﾟ∀)━(ﾟ∀ﾟ)━ !!

365:360
 07/02/11 14:09:40 p9WKRd/6
報告ありがとうございます。 
もう少し調べてみますが、使い勝手も考えて 
Ver.31b6のhgimg3を使ってこうと思います。

366:名前は開発中のものです。
 07/02/11 16:32:02 d03suuH7
#module  aonc 
#define global addonclick(%1)clickl@aonc=%1:_addonclick 
#deffunc _addonclick 
if onclickon=0{onclickon=1:onclick gosub *onclicklabel} 
id=-1:repeat oncnt:if idlist(cnt)=0{id=cnt}:loop  
if id<0{id=oncnt:oncnt++} 
clicklst(id)=clickl:idlist(id)=1:return id 
#deffunc delonclick int delid 
if delid<oncnt {if (delid+1)=oncnt {oncnt=limit(oncnt-1,0,oncnt)}else{idlist(delid)=0}} 
return  
*onclicklabel:for i,0,oncnt:if idlist(i){gosub clicklst(i)}:next:return 
#global 
 
button   gosub "labelA 削除",*del:button gosub "labelB 削除",*del 
movl=*N,*L,*U, *LU,*R,*N,*RU,*N,*D,*LD,*N,*N,*RD,*N,*N,*N,*N:x=320.0:y=240.0:xy=sin(atan(1,0))*4 
addonclick *labelA:addonclick *labelB 
repeat:redraw 0:color:boxf:color 255,255,200 
stick ky,$f:gosub movl(ky&$f):pos 100,0:mes a:mes b:pos x,y:mes "▲" 
redraw 1:await 15:loop 
*N:return:*L:x-4:return:*U:y-4:return:*R:x+4:return:*D:y+4:return 
*LU:x-xy:y-xy:return:*RU:x+xy:y-xy:return:*LD:x-xy:y+xy:return:*RD:x+xy:y+xy:return 
*labelA:acnt++:a="labelA "+acnt+" "+cnt+" "+iparam+" "+wparam+" "+lparam:return 
*labelB:bcnt++:b="labelB "+bcnt+" "+cnt+" "+iparam+" "+wparam+" "+lparam:return 
*del:delonclick stat:return 
ちょっとラベル型を使ってみた。strみたいに labelで新規命令のパラメータタイプ 
としては、まだ使えないみたいマクロで変数に入れてから変数として渡して対応 
（button "",*abcみたいに直接指定した時に対応するため） 
ラベル型を式に使う事も出来ない

次ページ