ゲームを作りたい人のための ソースコード集

私がその日作った短めのソースを簡単な解説とともに載せていきます
ゲーム制作初心者にとって参考になるかもしれないソースが多いです


<< 慣性の法則 | main | 二次元マップのスクロール >>



あみだくじ

あみだくじ表を自動で作成するプログラムです



cmx=20    ;横線の数
rmx=5    ;平行線の数
randomize
dim linedt,cmx,rmx
cnm=0
repeat
    if cnm>=cmx:break
    x=rnd(cmx):y=rnd(rmx)
    if linedt(x,y)=0{
        setflg=0
        if y=0{
            dir=0
        }else:if y=rmx-1{
            dir=1
        }else{
            dir=rnd(2)
        }
        if dir=0{
            if linedt(x,y+1)=0{
                linedt(x,y)=1
                linedt(x,y+1)=-1
                setflg=1
            }
        }else{
            if linedt(x,y-1)=0{
                linedt(x,y)=-1
                linedt(x,y-1)=1
                setflg=1
            }
        }
        if setflg{
            cnm++
        }
    }
    await
loop
sx=120:sy=80
inlr=100
inlc=16
repeat rmx:y=cnt
    line sx,sy-inlc,sx,sy+(cmx+1)*inlc
    repeat cmx:x=cnt
        if linedt(x,y)=1{
            ty=sy+x*inlc
            line sx,ty,sx+inlr,ty
        }
    loop
    sx+inlr
loop

0
    posted by higashijugem 22:13comments(0)|-|


    この記事に対するコメント