カロリーメイトリキッド | 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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
;#うちこむ人にバランス栄養 #カロリーメイトリキッド
;https://www.otsuka.co.jp/cmt/to_programmer/
;Author: YOS G-spec
#runtime "hsp3cl"
#enum global PROTEIN = 0
#enum global FAT
#enum global CARBOHYDRATE
#enum global VITAMIN
#enum global MINERAL
#enum global nutritionLen
#module Liquid name,nutrition
    #modcfunc lName
        return name
    #modfunc lRefNutrition array ref
        dim ref,length(nutrition)
        foreach nutrition: ref.cnt = nutrition.cnt: loop: return
    #modinit str _name,array _nutrition
        name = _name
        foreach _nutrition
            nutrition.cnt = _nutrition.cnt
        loop
    return
#global
#module Human healthy
    #modinit
        healthy = 0
    return
    #modfunc status
        if healthy {
            mes "HEALTHY > Good!\n"
        }
        else {
            mes "HEALTHY > Bad...\n"
        }
    return
    #modfunc drink var drinking
        mes "DRINK > "+lName(drinking)
        lRefNutrition drinking, nutrition
        #define isNutritions \
            nutrition.PROTEIN & \
            nutrition.FAT & \
            nutrition.CARBOHYDRATE & \
            nutrition.VITAMIN & \
            nutrition.MINERAL
        if isNutritions {
            mes "\"Delicious!\""
            healthy = 1
        }
        else {
            mes "\"Cool!\""
        }
    return
#global
dim nutrition, nutritionLen
nutrition.PROTEIN = 1
nutrition.FAT = 1
nutrition.CARBOHYDRATE = 1
nutrition.VITAMIN = 1
nutrition.MINERAL = 1
dim waterNutrition, nutritionLen
waterNutrition.MINERAL = 1
newmod calorieMateLIQUID, Liquid, "CalorieMateLIQUID", nutrition
newmod water, Liquid, "Water", waterNutrition
newmod h, Human
status h
drink h, water
status h
drink h, calorieMateLIQUID
status h
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX