Threaded Mode | Linear Mode

Russian · 11-19-2014 03:51 PM

Worked script:

Code:

[ITEMDEF I_GM_ITEM_TIMER_SPHERE]

NAME=Set timer on item sphere

ID=I_CRYSTAL_BALL

ON=@CLICK

MESSAGE @0487,,1 Сфера установки временных предметов

RETURN 1

ON=@CREATE

COLOR=0BAE

ATTR=ATTR_NEWBIE

ON=@DCLICK

TARGET

RETURN 1

ON=@TARGON_ITEM

IF (<SRC.TARG.ATTR> & ATTR_CAN_DECAY)

RETURN 1

ELSE

SRC.DIALOGCLOSE D_GM_SET_TIMER

SRC.DIALOG D_GM_SET_TIMER

RETURN 1

ENDIF

ON=@TARGON_CHAR

RETURN 1

[DIALOG D_GM_SET_TIMER]

133, 27

RESIZEPIC 0 0 83 144 88

RESIZEPIC 17 16 3000 72 27

DTEXTENTRY 23 19 300 30 0 0 <SRC.TARG.TIMER>

BUTTON 97 21 4023 4025 1 0 1

[DIALOG D_GM_SET_TIMER BUTTON]

ONBUTTON=0

RETURN 1

ONBUTTON=1

SRC.TARG.ATTR=ATTR_CAN_DECAY

SRC.TARG.TIMERF <ARGTXT[0]>,REMOVE

SRC.TARG.TIMER=<ARGTXT[0]>

SRC.DIALOGCLOSE D_GM_SET_TIMER

SRC.SYSMESSAGE @0486,,1 Seconds left: <SRC.TARG.TIMER>

RETURN 1

Thank you for help!

Threaded Mode \| Linear Mode Set timer of any item
Author	Message