HSPTV!掲示板

HSP初心者です。

数字の桁数を増やしていくには、どのようなスクリプトにすれば良いでしょうか。
具体的に言いますと、レベルが上がるごとに表示される桁を増やしていきたいのです。
たとえば、レベル１のときに１桁の数字、レベル２のときに２桁の数字のようにしたいのです。
私が試行錯誤して考えたスクリプトは、以下のとおりです。
まだ途中ですので、わけのわからないものになっていると思います。

	revel=1
         sa=1

	suchi.revel=rnd(8)+1
	mes suchi.revel
	
*kensa
	if revel-sa=0 : goto *nyuryoku : else : suchi.revel-sa=rnd(8)+1 : mes suchi.revel-sa : sa++ : goto *kensa

もっと良い方法はあるのでしょうか？

mes strf("% 8d" , 120)

よくわかりませんが、こういうことでしょうか？

level = 1
num = 2
mes num*powf(10 , level-1)

あるいはこんな感じとか？

レベル１のときは一桁の乱数を表示して、レベル２のときは二桁の乱数を表示するようにしたいのかも。

maaさんのおっしゃる通りのことをしたいのですが、なかなかうまくいかないのです。

全然分からん。

mes 1*10
mes 2*10
mes 3*10

算数を習い直したほうがいいんじゃないか？

randomize

lv=3

tmp=0
suchi=0
keta=1
repeat lv
	suchi+=(rnd(8)+1)*keta
	keta*=10
loop

mes suchi

わからん…

randomize
repeat 7
	level = cnt + 1

	valstr = ""
	repeat level : valstr += rnd(10) : loop
	value = int(valstr)

	mes "LEVEL" + level + " " + value
loop

桁を増やしたいなら 10 をかければいいじゃない！

……とは思うんだけど、単純に 10 , 100 , 1000 …　と作っちゃうと、
それを rnd() 関数に渡しても 5 桁から先の乱数が作れないので、
単純に 0 〜 9 の文字を level ぶんだけくっつけて int()関数で数値化しました。

何がしたいのかはまだ理解してませんが、maaさんの仰ったものならこれでできますね。
ただし、「レベル n のときは必ず n 桁」…というような条件だとこれでも不足です。
連結する文字列の最初の一つだけ、 1 〜 9 から選ばないといけません。

	valstr = ""+(rnd(9)+1)
	repeat level-1 : valstr += rnd(10) : loop

randomize // 乱数初期化

level = rnd( 4 )+1 // レベル5まで。レベル0はエラーになるので+1で回避
mes strf( "Level: %d", level )

// 頭と本体を別々に乱数で出す
num = ( rnd( 9 )+1 ) * powf( 10, level-1 ) + rnd( powf( 10, level-1 ) )
mes strf( "Random: %d", num )

さっぱり分からないけどmaaさんの解釈を元に。
推理力の試されるインターネットですね。

ソースの2行目は level = rnd( 5 )+1 か。
そもそも他の人と被ってるわ。

乱数を文字列として結合させれば早いです。

randomize

;level=1
level=2

a=""
repeat level;レベル分の桁でループ
a+=str(rnd(10))
loop
mes int(a)

皆さんを困らせて本当に申し訳ありません。
uさんのものが私の理想に近いです。
しかし、１０桁を超えると正常にはなりませんでした。（マイナスなど）
わがままばかりですみません。
でも、このスクリプトをもう少し変えていけば、私の理想になりそうです。

mes int(a)をmes aに変えればいいような。

沢山の桁になることを考慮していませんでした。

そうですね、無理に数値型にする必要がなければmes aで十分です。

ですが文字列型のままだと1+1だと11とかになっちゃいますので演算はできなくなります。

こうすれば、LEVEL1のときは0〜9、LEVEL5のときは0〜99999、LEVEL-3のときは0〜999の乱数が得られるはず。
整数の限界があるので、LEVELは9までが限界。

	randomize

	#const INT_MAX 2147483647		; 整数の最大値
	LEVEL=5							; レベル(マイナスも可)

	s="0000000000"+str(rnd(INT_MAX)); 0〜INT_MAXまでの乱数をつくり、先頭を0で生めておく
	N=int(strmid(s,-1,abs(LEVEL)))	; 左端からLEVEL数だけの文字をとり、数値に変換。LEVELは絶対値を取っているのでマイナスでも良い。
	mes str(N)

どういう値を入れたときに、どういう値がほしいのかを明確にしてくれると、的を得た回答が得られやすいと思う。

みなさん、私のワガママに付き合っていただき、ありがとうございました。
uさんとmaaさんの言う通りでした。このスクリプトを参考にしていきたいと思います。
その他のみなさんも本当にありがとうございました。