HSP - Hot Soup Processor [7]

[0001 名前は開発中のものです。 04/06/10 04:28 ID:cbXY3kVC]

前スレ
　　HSP - Hot Soup Processor
　　　http://game.2ch.net/gamedev/kako/1005/10053/1005332663.html
　　HSP - Hot Soup Processor [2]
　　　http://game.2ch.net/test/read.cgi/gamedev/1035428757/
　　HSP - Hot Soup Processor [3]
　　　http://pc2.2ch.net/gamedev/kako/1043/10436/1043609896.html
　　HSP - Hot Soup Processor [4]
　　　http://pc2.2ch.net/test/read.cgi/gamedev/1047082415/
　　HSP - Hot Soup Processor [5]
　　　http://pc2.2ch.net/test/read.cgi/gamedev/1058507713/
　　HSP - Hot Soup Processor [6]
　　　http://pc5.2ch.net/test/read.cgi/gamedev/1078660876/

関連サイト
　　ONION software　（本家）
　　　http://www.onionsoft.net/
　　HSP CENTER
　　　http://hspcenter.com/
　　HSP ML
　　　http://garde.esprix.net/hsp-ml/

[0710 名前は開発中のものです。 04/07/27 21:20 ID:rDUjkAgi]

>>708
乱数の範囲が狭い場合
　　数字が欠番した配列を用意しておいて、それを乱数で呼び出す。
乱数の範囲は広いが欠番が少ない場合
　　欠番にしたい数値だった場合は乱数の取得をやり直し。

[0711 名前は開発中のものです。 04/07/27 21:30 ID:HGEQuAz/]

>>708
欠番1個ならこれでどう？
まぁ自分なら単純に欠番以外になるまで何度もやりなおさせるかな…

#define KETUBAN 4
kazu=10
randomize

repeat 20
rnd a,kazu-1
if a>=KETUBAN : a++
mes a
loop
stop