[ITEMDEF i_dice_cup_yahtzee]

DEFNAME=i_dice_cup_yahtzee

ID=i_dice_cup

NAME=Yahtzee

TYPE=t_dice_cup_yahtzee

VALUE=48



[TYPEDEF t_dice_cup_yahtzee]

DEFNAME=t_dice_cup_yahtzee



ON=@DCLICK

FOR 1 6

    LOCAL.ROLL += <EVAL <LOCAL.YAHTZEE_<dLOCAL._FOR>> *<LOCAL._FOR>>

ENDFOR

FOR 1 5

    LOCAL.<dLOCAL._FOR>=<EVAL {1 6}>

    LOCAL.YAHTZEE_<dLOCAL.<dLOCAL._FOR>> += 1

ENDFOR

FOR 1 6

    IF (<dLOCAL.YAHTZEE_<dLOCAL._FOR>>==5)

        LOCAL.POINTS=50

    ENDIF

ENDFOR

IF !(<LOCAL.POINTS>)

    IF (<LOCAL.YAHTZEE_1>) && (<LOCAL.YAHTZEE_2>) && (<LOCAL.YAHTZEE_3>) && (<LOCAL.YAHTZEE_4>) && (<LOCAL.YAHTZEE_5>)

        LOCAL.POINTS=40

    ELSEIF (<LOCAL.YAHTZEE_2>) && (<LOCAL.YAHTZEE_3>) && (<LOCAL.YAHTZEE_4>) && (<LOCAL.YAHTZEE_5>) && (<LOCAL.YAHTZEE_6>)

        LOCAL.POINTS=40

    ENDIF

    IF !(<LOCAL.POINTS>)

        IF (<LOCAL.YAHTZEE_1>) && (<LOCAL.YAHTZEE_2>) && (<LOCAL.YAHTZEE_3>) && (<LOCAL.YAHTZEE_4>)

            LOCAL.POINTS=30

        ELSEIF (<LOCAL.YAHTZEE_2>) && (<LOCAL.YAHTZEE_3>) && (<LOCAL.YAHTZEE_4>) && (<LOCAL.YAHTZEE_5>)

            LOCAL.POINTS=30

        ELSEIF (<LOCAL.YAHTZEE_3>) && (<LOCAL.YAHTZEE_4>) && (<LOCAL.YAHTZEE_5>) && (<LOCAL.YAHTZEE_6>)

            LOCAL.POINTS=30

        ENDIF

        IF !(<LOCAL.POINTS>)

            FOR x 1 6

                IF (<dLOCAL.YAHTZEE_<dLOCAL.X>>==3)

                    FOR y 1 6

                        IF !(<LOCAL.X>==<LOCAL.Y>)

                            IF (<dLOCAL.YAHTZEE_<dLOCAL.Y>>==2)

                                LOCAL.POINTS=25

                            ENDIF

                        ENDIF

                    ENDFOR

                ENDIF

            ENDFOR

            IF !(<LOCAL.POINTS>)

                FOR 1 6

                    IF (<dLOCAL.YAHTZEE_<dLOCAL._FOR>>==4)

                        LOCAL.KIND=<EVAL <LOCAL.YAHTZEE_<dLOCAL._FOR>> *<LOCAL._FOR>>

                    ENDIF

                ENDFOR

                IF !(<LOCAL.KIND>)

                    FOR 1 6

                        IF (<dLOCAL.YAHTZEE_<dLOCAL._FOR>>==3)

                            LOCAL.KIND=<EVAL <LOCAL.YAHTZEE_<dLOCAL._FOR>> *<LOCAL._FOR>>

                        ENDIF

                    ENDFOR

                    IF (<LOCAL.KIND> > <LOCAL.POINTS>)

                        LOCAL.POINTS=<LOCAL.KIND>

                    ENDIF

                ELSE

                    LOCAL.POINTS=<LOCAL.KIND>

                ENDIF

            ENDIF

        ENDIF

    ENDIF

ENDIF

IF (<LOCAL.ROLL> > <LOCAL.POINTS>)

    LOCAL.POINTS=<LOCAL.ROLL>

ENDIF

FOR 1 5

    IF (STRMATCH(<LOCAL.MSG>,0))

        LOCAL.MSG=rolls a <dLOCAL.<dLOCAL._FOR>>

    ELSE

        LOCAL.MSG=<LOCAL.MSG>,<dLOCAL.<dLOCAL._FOR>>

    ENDIF

ENDFOR

IF (<dLOCAL.POINTS>==50)

    SRC.SAY @34,0 *YAHTZEE*

ELSE

    SRC.EMOTE <LOCAL.MSG> for <dLOCAL.POINTS> points.

ENDIF

RETURN 1



[EOF]



[url=http://kisafilm.netfirms.com/yahtzeenet/turkce.html]http://kisafilm.netfirms.com/yahtzeenet/turkce.html[/url]

Değerlendirmeler

0

Total votes: 0