Код
[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>> затяжек
+ Анимация
+ Звук
+ Заряды
