長テーブルのうなぎ屋 | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#module
#deffunc うなぎ屋さんの設定 str 入力１
    s = 入力１
    split s, " ", table_max, group_max
    table_max = int(table_max)
    group_max = int(group_max)
    dim table, table_max
    return
#deffunc お客来店 str 入力２
    s = 入力２
split s, " ", 座りたい席, 座りたい席数
    座りたい席= int(座りたい席)
    座りたい席数= int(座りたい席数)
    組数+ ;いらっしゃいませ
    //座りたい席に入れるか確認してきますね！
    out = 0
    repeat 座りたい席数, 座りたい席-1
        if table(cnt\table_max): out = 1: break //席が空いていないのでお客様の元に向かう
    loop
    if out: return //ご希望の席が埋まっておりまして・・・「はぁ！？帰るわ。」
    //お客様運がよかったですね！
    repeat 座りたい席数, 座りたい席-1
        table(cnt\table_max) = 組数 //各々席に座ってもらう。
    loop
    客数 += 座りたい席数
    return
#defcfunc 来店組数
    return 組数
#defcfunc 現在のお客さん
    return 客数
#defcfunc 席問い合わせ int p1
    return table(p1)
#global
//----------長テーブルのうなぎ屋------------
randomize
R = 95.
最大席数 = 50
最大組数 = 10
入力１ = str(最大席数) + " " + str(最大組数)
うなぎ屋さんの設定 入力１
title "設定＝" + 入力１
repeat,1
    cls
    入力２ = str(1 + rnd(最大席数)) + " " + (1 + rnd(1 + rnd(1 + rnd(最大席数))))
    お客来店 入力２
    repeat 最大席数
        pos 200 + R * sin(3.141592 *  2 / 最大席数 * cnt), 200 + R * cos(3.141592 * 2 / 最大席数 * cnt)
        mes 席問い合わせ(cnt)
    loop
    dialog 入力２+"\n"+来店組数()+"組目"
    if 来店組数() = 最大組数{
        pos 0,0
        mes 現在のお客さん()+"名来店中"
        break
    }
loop
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX