Трубки И Табак [56b] Опции

[d`ArcZeal]

Трубка:

Код

[ITEMDEF I_PIPE_WOOD]
ID=2499
NAME=Wooden pipe
TYPE=T_PIPE

ON=@CREATE
COLOR=07d7

Табак:

Код

[ITEMDEF I_TOBACCO]
ID=2513
NAME=Tobacco leaf%s
TYPE=T_SCRIPT
VALUE=45

ON=@CREATE
COLOR=0750

Эффект дыма:

Код

[ITEMDEF I_PIPE_SMOKE]
ID=03735
NAME=Pipe smoke
TYPE=t_normal

ON=@Create
COLOR=0481
TIMER=12
ATTR=attr_decay|attr_move_never

Тайп курительных трубок:

Код

[TYPEDEF T_PIPE]
ON=@CREATE
MORE1=0

ON=@DClick
IF (<MORE1>)
SERV.NEWITEM=i_pipe_smoke
NEW.P=<SRC.P>
NEW.NUDGEUP=<EVAL (<SRC.HEIGHT> - 1)>
SRC.ANIM 33

    IF (80 > <R100>)
        IF (<SRC.OBODY>==c_man)
        SRC.SOUND=<EVAL {1065 1 1049 1 1054 1 1055 1 1056 1}>
        ELSE
        SRC.SOUND=<EVAL {778 1 783 1 784 1 785 1 786 1 816 1}>
        ENDIF
    ENDIF

MORE1 -= 1
RETURN 1
ELSE
SRC.SYSMESSAGE @0487,,1 Укажите, что будете курить.
TARGET
ENDIF
RETURN 1

ON=@TARGON_ITEM
IF (<SRC.TARG.BASEID>==I_TOBACCO)
MORE1=<SRC.TARG.AMOUNT>
SRC.TARG.REMOVE
ENDIF
RETURN 1

ON=@CLICK
MESSAGE @,,1 <EVAL <MORE1>> затяжек

+ Анимация
+ Звук
+ Заряды
(IMG:http://i56.tinypic.com/2e6g2u8.png)

Сообщение отредактировал d`ArcZeal - 21.5.2011, 9:39

[Ozzy Osbourne]

Прикольно, спс (IMG:style_emoticons/default/smile.gif)

[Mirage]

Курить вредно (IMG:style_emoticons/default/mad.gif)
Дети же играют.

Идея +1. (IMG:style_emoticons/default/smile.gif)

[KonstantiN]

ни че так оригинально

[neiL]

отличная идея)

[KaPeIkA]

жаль что не накуревает +(

[Mirage]

Почему не накуривает? Вставь эффект глюков и будет нормальная ганжа

[WRWR]

добавьте в скрипт звук смеха еще

[Mirage]

Да да, из серии:
Так мычит обычная корова...