@yosgspecさんが投稿したコード一覧 | ページ 6 | Codetter（こーどったー）

;全自動モード
(def AUTO_MODE false)
;プレイヤー人数
(def PLAYER_NUMBER 4)
;パス回数

;全自動モード
(defconstant AUTO-MODE nil)
;プレイヤー人数
(defconstant PLAYER-NUMBER 4)
;パス回数

Const psnName=0
Const psnAge=1
Const psnHeight=2

Function NewPerson(name,age,height)

/---------------------------------------/
/                 七並べ                /
/---------------------------------------/

#cmpopt varinit 1

;トランプカードモジュール
suitStrs@TrumpCard="▲","▼","◆","■","JO"
powerStrs@TrumpCard="Ａ","２","３","４","５","６","７","８","９","10","Ｊ","Ｑ","Ｋ","KR"

#runtime "hsp3cl"
#cmpopt varinit 1

;トランプカードモジュール
suitStrs@TrumpCard="▲","▼","◆","■","JO"

#runtime "hsp3cl"
#cmpopt varinit 1

;トランプカードモジュール
suitStrs@TrumpCard="▲","▼","◆","■","JO"

#runtime "hsp3cl"
#cmpopt varinit 1

;トランプカードモジュール
#module TrumpCard name,suit,power

#module Person
	#enum name=0
	#enum age
	#enum high
	#define ctype new(%1,%2,%3,%4) \

#module Person
	;int
	#enum age=0
	;str
	#enum name=0