ClauText - Old

Introduction ( 원카드(com끼리) 코드 중 일부 )

 
 
# Card
Event = { # just one!
    id = 101
    $parameter = { i } #
    # Action  cf) Card                 <--------------------
    $if = { $condition = { $COMP< = { $parameter.i /Info/CARDNUM  } }
        $then = {
                $if = { $condition = { $EQ = { $parameter.i 0 } }
                    $then = { $make = { /Card } }
                }
                $make = { /Card/$parameter.i }
                $insert2 = { dir = { /Card/$parameter.i } value = { sha = { $divide ={$parameter.i 13} } num = { $modular={$parameter.i 13} } # no ???
                    isBlackJoker = no isColorJoker = no } }
                $call = { id = 101 i = { $add = { $parameter.i 1  } } }
        }
    }
}
Event = { # just one!
    id = 3
    $call = { id = 101 i = 0 } 
    # insert two joker
    $make = { $concat = { /Card $concat = { / /Info/CARDNUM } } }
    $make = { $concat = { /Card $concat = { / $add = { /Info/CARDNUM 1 } } } } 
    $insert2 = { dir = { $concat = { /Card $concat = { / /Info/CARDNUM } } } value = {sha = -1 num = -1  isBlackJoker = yes isColorJoker = no } }
    $insert2 = { dir = { $concat = { /Card $concat = { / $add = { /Info/CARDNUM 1 } } } }  value = {sha = -2 num = -2  isBlackJoker = no isColorJoker = yes } }
}
Event = {
    id = 103
    $parameter = { card }
 
    $return = { $divide = { $parameter.card 13 } }
}
Event = {
    id = 104
    $parameter = { card }
 
    $return = { $modular = { $parameter.card 13 } }
}
 
# Card String Image
##"♤","◆","♥","♧",  "☆","★"
## 0    1     2    3     4    5
## K->A->.....->J->Q
## 0  1        11 12
CardStringImage = 
{
    num = { K A 2 3 4 5 6 7 8 9 10 J Q }
    sha = { 
        sha_image = { ♤ ◆ ♥ ♧ }
        sha_name = { spade dia heart clover }
    }
    blackJoker = { ☆ }
    colorJoker = { ★ }
}
Event = 
{
    // $name?
    id = 100
 
    $parameter = { sha num isBlackJoker isColorJoker }
 
    #Action
    $if = { $condition = { $EQ = { yes $parameter.isBlackJoker } }
        $then = { $print = { value = { /CardStringImage/blackJoker } } } 
    }
    $if = { $condition = { $EQ = { yes $parameter.isColorJoker } }
        $then = { $print = { value = { /CardStringImage/colorJoker } } } 
    }
    $if = { $condition = { $COMP< = { -1 $parameter.num } }
        $then = { 
            $print = { dir = { /CardStringImage/sha/sha_image } start = { $parameter.sha } last = { $parameter.sha } }
            $print = { dir = { /CardStringImage/num } start = { $parameter.num } last = { $parameter.num } }
        }
    }
}

댓글

댓글 본문
버전 관리
vztpv
현재 버전
선택 버전
graphittie 자세히 보기