サンプルプログラム演算 じゃんけん

//じゃんけんの手を定義
#enum HAND_GU = 0	//グー(0)
#enum HAND_CHOKI	//チョキ(1)
#enum HAND_PA		//パー(2)

//ランダムに抽選するおまじない
randomize

//自分が出す手を設定
dim my_hand : my_hand = HAND_GU	//自分はグーを出す

//相手が出す手をランダムで抽選する
dim aite_hand : aite_hand = rnd(3)

//自分と相手の手を表示する
mes "自分の手は"+str(myhand)
mes "相手の手は"+str(aite_hand)

//勝敗を判断する
if my_hand == aite_hand{	//自分と相手の手が同じとき(if文)
	mes "勝敗は・・・あいこ"
}else{
	switch myhand	//自分の手がいずれかのとき(switch-case文)
		case HAND_GU	//自分の手がグーのとき
			if aite_hand == HAND_CHOKI{
				mes "勝敗は・・・勝ち"
			}else{
				mes "勝敗は・・・負け"
			}
		swbreak
		case HAND_CHOKI	//自分の手がチョキのとき
			if aite_hand == HAND_PA{
				mes "勝敗は・・・勝ち"
			}else{
				mes "勝敗は・・・負け"
			}
		swbreak
		case HAND_PA	//自分の手がパーのとき
			if aite_hand == HAND_GU{
				mes "勝敗は・・・勝ち"
			}else{
				mes "勝敗は・・・負け"
			}
		swbreak
	swend
}