Threaded Mode | Linear Mode

Russian · 11-28-2012 03:13 PM

If I am understand you:

Code:

[TYPEDEF T_VENDOR_SELL]

ON=@CLICK

SERV.LOG <SRC.NAME> <SRC.UID> : <TOPOBJ.NAME> <TOPOBJ.UID>

IF (<TOPOBJ.ISCHAR>)

    IF !(<TOPOBJ.ISMYPET>)

      IF (<ISNUM <TAG0.PRICE>>)

        SRC.SYSMESSAGE @,,1 Чтобы приобрести это, скажите "Купить".

      ENDIF

    ENDIF

ENDIF

ON=@DCLICK

IF (<TYPE>==T_CONTAINER)

    IF !(<ISNUM <TAG0.PRICE>>)

        IF (<TOPOBJ.ISCHAR>)

            IF !(<TOPOBJ.ISMYPET>)

            SRC.SYSMESSAGE @,,1 Предмет не для продажи, потому Вы не сможете заглянуть внутрь.

            ELSE

            OPEN

            ENDIF

        ENDIF

    RETURN 1

    ENDIF

ENDIF

Threaded Mode \| Linear Mode Little error
Author	Message