[Top]
[投稿ルール]
[新規質問]
[このトピックに発言]
ぷま [HomePage]
投稿日：2005/09/12(月) 17:17:44 No.1
http://smile.poosan.net/perl-bin/hsp/ver3/hsp3.cgi?print+200508/05080001.txt
onerror gosub *load_err
repeat 10
fn="aaa"+cnt
picload fn
await
loop
stop
*load_err
mes fn
return
#define ctype tasizan(%1,%2)%1+%2 ;関数タイプ 足し算
a=3 :b=7
mes ""+a+"+"+b+"= "+ tasizan(a,b) ;コレ おかしいのでは？
mes ""+a+"+"+b+"= "+ (tasizan(a,b)) ;関数は括弧付きと同じ扱いにすべき
mes ""+a+"+"+b+"= "+ 1*tasizan(a,b) ;掛け算優先にすべきでは？
dirlist buf,"*.*"
mes stat
font "ＭＳ ゴシック",16
mes stat
#include "hsp3util.as"
#define global palfade palcolor: palette ,ginfo.16,ginfo.17,ginfo.18, 1
screen 0,,,1
fn=dir_exe+"/sample/demo/jp6girl.bmp"
bmppalette fn :palfade
color 255,255,255:boxf
picload fn,1
mref pl,69 :dim c,256 : memcpy c,pl,768
sx=ginfo_winx :sy=ginfo_winy
screen 1,,,1
fn=dir_exe+"/sample/hspdx/TESTCHR.BMP"
bmppalette fn :palfade
color 255,255,255:boxf
picload fn,1
gsel 0,1
mref pl,69 ;これは screen 0 のパレットでなく screen 1のパレットです
dim c,256 : memcpy c,pl,768
screen 2,,,1
mref pl2,69
memcpy pl2,c,768 :palfade
fn=dir_exe+"/sample/demo/jp6girl.bmp"
color 255,255,255:boxf
picload fn,1
repeat 256
palcolor cnt
mes ""+ginfo_r+", "+ginfo_g+", "+ginfo_b
loop 月影とも [HomePage]
投稿日：2005/09/13(火) 05:04:18 No.2
> 44) onerror gosub /gotoで 戻る位置が おかしい(エラーをskipしない 2.61はＯＫ)
onerror gosub *load_err
repeat 5,2
mes "(inloop1) cnt:"+cnt+" lplev:"+looplev
picload "aaa"+cnt
mes "(inloop2) cnt:"+cnt+" lplev:"+looplev
loop
stop
*load_err
mes"ERR line:"+wparam +" err:"+lparam
mes " (err) cnt:"+cnt+" lplev:"+looplev
return
> 無限ループになったり、終了したり。。。
(inloop1) cnt:2 lplev:1
ERR line:13 err:4
(err) cnt:2 lplev:1
(inloop2) cnt:0 lplev:0
ERR line:11 err:6
(err) cnt:0 lplev:0
> 45) 関数で 数値が文字列として扱われる。 > mes ""+a+"+"+b+"= "+ tasizan(a,b) > mes ""+a+"+"+b+"= "+ 1*tasizan(a,b) ;掛け算優先にすべきでは？ > 47) 次のウィンドウ作成時パレットが更新される(picload p1=0含む) ぷま [HomePage]
投稿日：2005/09/14(水) 17:40:35 No.3
ともしゃん またまた しぇんきゅう!!(≧▽≦)ノ＞mes "3+7= 37" ちゃんと掛け算優先されてる、よね……？ ＞って、そういう上辺の話ではないのだとは思いますが。 #define ctype tasizan(%1,%2)%1+%2
a=3: b=7
title ""+tasizan(a,b) #define AddName(%1,%2,%3) %1%2%3=(%1+%2+%3)
a=3 : b=7 : c=20
abc=0
AddName a,b,c :mes abc ＞作ったウィンドウに反映してないパレットが適用されるっていうのは、、うーん。。
月影とも [HomePage]
投稿日：2005/09/15(木) 01:46:06 No.4
もちろんそういう話だろうと思っていたのですが、まぁ、確かに。
#define LetMul(%1,%2,%3) %1 = %2 * %3
a=3 : b=7
LetMul x, a+b, a
mes x
ぷま [HomePage]
投稿日：2005/09/15(木) 12:30:34 No.5
＞パレットは、256回API呼んだっていいじゃないですか、と自分も思います。 月影とも [HomePage]
投稿日：2005/10/07(金) 23:13:00 No.6
既出で見落としてたら申し訳ないです。
repeat 1,-2
mes cnt
loop
ぷま [HomePage]
投稿日：2005/10/11(火) 12:48:35 No.7
repeatのp2は 0〜なので問題無いのでわ？
月影とも [HomePage]
投稿日：2005/10/11(火) 22:08:46 No.8
確かに0〜って書いてありますね(;ω;
ぷま [HomePage]
投稿日：2005/11/10(木) 12:58:22 No.9
51) ウィンドウを非表示モードで作成しても、picloadで表示されてしまう。
screen 0,,,2 ;ウィンドウ非表示のハズが。。。
wait 100
picload dir_exe+"/sample/demo/jp6girl.bmp" ;picloadで表示されてしまう
;gsel 0,1
TAKE 投稿日：2005/12/27(火) 17:04:14 No.10
52)デスクトップが１６ビットだと gmode 2がバグるようですね。(本家掲示板より)
さとみ 投稿日：2005/12/27(火) 17:14:47 No.11
（・＿＿・)ノTAKEしゃん報告の 52)番ですがhttp://smile.poosan.net/perl-bin/hsp/ver3/hsp3.cgi?print+200507/05070015.txt
TAKE 投稿日：2005/12/27(火) 17:28:14 No.12
>1)番と重複しています。 ぷま [HomePage]
投稿日：2005/12/28(水) 13:17:50 No.13
バグでは ありませんが。。。
buffer 1,,,0
picload dir_exe+"\\sample\\demo\\efx.bmp"
sx=ginfo_sx : sy=ginfo_sy
screen 0,,,0
color 255 : boxf
gmode 3,,, 247
gcopy 1, 0, 0, sx, sy ;1個コピー
pos sx, 0 : gcopy 0, 0, 0, ginfo_sx-sx, sy ;大量生産
pos 0, sy : gcopy 0, 0, 0, ginfo_sx, ginfo_sy-sy ;大量生産
月影とも [HomePage]
投稿日：2006/01/10(火) 18:58:22 No.14
53) wait中に割り込むと、正確に時間待ちされない。
#uselib "winmm.dll"
#cfunc timeGetTime "timeGetTime"
onclick gosub *c
repeat
mes "time:"+timeGetTime()
wait 100
loop
*c
return
ぷま [HomePage]
投稿日：2006/04/05(水) 08:38:52 No.15
解決!!(≧▽≦) http://smile.poosan.net/perl-bin/hsp/ver3/hsp3.cgi?print+200604/06040001.txt 追加発言 [▲]
WwwLounge Ver2.16
HSP3.0a 版のバグ？
