カンタンなスクリプト - RealLiveMax @ ウィキ

うるう年

#IN
#OUT
#Z00

DEBUG_DEC_INPUT("西暦を入力してください", F[000], 2023, 1, 9999)
 
IF(F[000] % 400 == 0){
    "うるう年です"R
}
ELSEIF(F[000] % 100 == 0){
    "うるう年ではありません"R
}
ELSEIF(F[000] % 4 == 0){
    "うるう年です"R
}
ELSE{
    "うるう年ではありません"R
}
 

おみくじ

【パターン1】良いものから順に……大吉、吉、中吉、小吉、末吉、凶、大凶

#IN
#OUT
#Z00

SET_TITLE("おみくじ")
 
F[000] = RND(7)
 
IF(F[000] == 0){
    "大吉"R
}
ELSEIF(F[000] == 1){
    "吉"R
}
ELSEIF(F[000] == 2){
    "中吉"R
}
ELSEIF(F[000] == 3){
    "小吉"R
}
ELSEIF(F[000] == 4){
    "末吉"R
}
ELSEIF(F[000] == 5){
    "凶"R
}
ELSE{
    "大凶"R
}
 

#IN
#OUT
#Z00

SET_TITLE("おみくじ")
 
F[000] = RND(7)
 
SWITCH(F[000]){
    CASE(0)
        "大吉"R
    CASE(1)
        "吉"R
    CASE(2)
        "中吉"R
    CASE(3)
        "小吉"R
    CASE(4)
        "末吉"R
    CASE(5)
        "凶"R
    DEFAULT
        "大凶"R
}
 

【パターン2】良いものから順に……大吉、中吉、小吉、吉、末吉、凶、大凶

#IN
#OUT
#Z00

SET_TITLE("おみくじ")
 
F[000] = RND(7)
 
IF(F[000] == 0){
    "大吉"R
}
ELSEIF(F[000] == 1){
    "中吉"R
}
ELSEIF(F[000] == 2){
    "小吉"R
}
ELSEIF(F[000] == 3){
    "吉"R
}
ELSEIF(F[000] == 4){
    "末吉"R
}
ELSEIF(F[000] == 5){
    "凶"R
}
ELSE{
    "大凶"R
}
 

#IN
#OUT
#Z00

SET_TITLE("おみくじ")
 
F[000] = RND(7)
 
SWITCH(F[000]){
    CASE(0)
        "大吉"R
    CASE(1)
        "中吉"R
    CASE(2)
        "小吉"R
    CASE(3)
        "吉"R
    CASE(4)
        "末吉"R
    CASE(5)
        "凶"R
    DEFAULT
        "大凶"R
}
 

https://cancam.jp/archives/247985/2

BMI

#IN
#OUT
#Z00

SET_TITLE("BMI計算")
 
DEBUG_DEC_INPUT("身長（cm）を入力してください", F[000], 170, 50, 250)
DEBUG_DEC_INPUT("体重（kg）を入力してください", F[001], 60, 1, 300)
 
F[002] = F[000] / 100
F[003] = F[001] / (F[002] * F[002])
 
"あなたのBMIは "PRINT(F[003])" です"R
 

#IN ; おまじない
#OUT ; おまじない
#Z00 ; おまじない

DEBUG_DEC_INPUT("判定する年を入力してください：", F[000], 2023, 1, 9999) ; 年を入力
 
; うるう年の判定
IF(F[000] % 4 == 0 && (F[000] % 100 != 0 || F[000] % 400 == 0)) {
    "うるう年です！"R
}
ELSE {
    "うるう年ではありません。"R
}