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

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


<< 一日ゲームNo.12「ピラミッド」 | main | 一日ゲームNo.13「七並べ」 >>



スロット

カジノやゲームセンターによくある、横一列にマークを揃えるルーレットです

クリックすることで左から順にルーレットを止めます

 


markmax=6
font msgothic,40
randomize
sdim slotmark,,markmax,3
repeat 3
    slotmark(0,cnt)="A","B","C","D","E","S"
loop
dim slotpoint,3

gosub *begin
repeat
    ok1=k1:getkey k1,1:tk1=k1^ok1&k1:rk1=k1^ok1&ok1
    if tk1{        ;左クリック
        setid++
        if setid=3{    ;三つ止めたら結果表示
            gosub *result
            gosub *begin
        }else{    ;一つ止めるごとにスピードアップ
            spdmax/=2
        }
    }
    if spdtime{
        spdtime--
    }else{
        repeat 3-setid,setid
            slotpoint(cnt)=(slotpoint(cnt)+1)¥markmax
        loop
        spdtime=spdmax
    }
    gosub *slotdraw
    redraw:await 17:redraw 0
loop
stop
*result
    score=10
    h0=slotpoint(0)
    repeat 2,1
        if slotpoint(cnt)=h0{
            score*10
        }
    loop
    if slotmark(slotpoint(0),0)="S"{    ;Sを揃えるとスコア10000点
        score*10
    }
    dialog"score : "+score
    return
*begin
    repeat 3
        slotpoint(cnt)=rnd(markmax)
    loop
    spdmax=20
    spdtime=0
    setid=0
    return
*slotdraw
    color 255,255,255:boxf:color
    x=200:y=200
    repeat 3
        pos x,y:mes""+slotmark(slotpoint(cnt),cnt)
        x+50
    loop
    return

0
    posted by higashijugem 10:02comments(0)|-|


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