EMAIL SYSTEM, Для сферы 56b Опции

[Llirik]

[FUNCTION MAIL]
IF (0<SRC.TAG.EMAIL> == 0)
SRC.TAG.CHANGING_NPC_TEXT=Enter Your email address to restore or change the password on Your character.
ELSE
SRC.TAG.CHANGING_NPC_TEXT=Your email address <SRC.TAG.EMAIL>. You can change it.
ENDIF
DIALOGCLOSE D_MAILCHANGE
DIALOG D_MAILCHANGE
RETURN 1

[DIALOG D_MAILCHANGE]
2, 28
NOMOVE
IF (0<SRC.TAG.EMAIL> == 0)
NOCLOSE
ENDIF
RESIZEPIC 0 0 3500 350 125
RESIZEPIC 20 83 3000 250 25
BUTTON 274 87 1154 1155 1 0 1
DHTMLGUMP 18 16 316 59 1 1 <SRC.TAG.CHANGING_NPC_TEXT>
IF (0<SRC.TAG.EMAIL> == 0)
DTEXTENTRY 25 83 235 25 1161 0 Enter the email address
ELSE
DTEXTENTRY 25 83 235 25 1161 0 <SRC.TAG.EMAIL>
BUTTON 306 87 1151 1152 1 0 2
ENDIF

[DIALOG D_MAILCHANGE BUTTON]
ONBUTTON=0
IF (0<SRC.TAG.EMAIL> == 0)
DIALOGCLOSE D_MAILCHANGE
DIALOG D_MAILCHANGE
ELSE
SRC.SYSMESSAGE @0487,3,1 Now Your email address: <SRC.TAG.EMAIL>.
ENDIF
RETURN 1

ONBUTTON=1
IF (0<ARGTXT[0]> == 0) && (0<SRC.TAG.EMAIL> == 0)
DIALOGCLOSE D_MAILCHANGE
DIALOG D_MAILCHANGE
RETURN 1
ELSEIF (0<ARGTXT[0]> == 0) && !(0<SRC.TAG.EMAIL> == 0)
SRC.SYSMESSAGE @0487,3,1 Your email address remains the same: <SRC.TAG.EMAIL>
RETURN 1
ELSE
SRC.TAG.EMAIL=<ARGTXT[0]>
SRC.SYSMESSAGE @0487,3,1 Now Your email address: <SRC.TAG.EMAIL>
RETURN 1
ENDIF

ONBUTTON=2
RETURN 1

[EoF]

Не работает! (IMG:style_emoticons/default/sad.gif)