[Function changepassword]
SRC.DIALOG d_password

[dialog d_password]
40,0
page 0
noclose
nomove
GUMPPIC 130 150 5170 //Top Left
GUMPPIC 150 150 5171 //Top
GUMPPIC 250 150 5171 //Top
GUMPPIC 420 150 5172 //Top right
GUMPPIC 130 188 5173 //LEFT
GUMPPIC 168 188 5174 //MIDDLE
GUMPPIC 250 188 5174 //MIDDLE
GUMPPIC 420 188 5175 //RIGHT
GUMPPIC 130 300 5176 //Bottom Left
GUMPPIC 150 300 5177 //Bottom
GUMPPIC 250 300 5177 //Bottom
GUMPPIC 420 300 5178 //Bottom Right
resizepic 190 250 3600 190 22
TEXT 174 190 00154 0 //
TEXT 254 210 00154 1 //
//TEXTENTRY 200 251 190 20 4 0 2
TEXTENTRY 200 251 190 20 1152 0 2
BUTTON 290 287 242 243 1 0 0 //Cancel
BUTTON 360 287 249 248 1 0 1 //Cancel
[dialog d_password text]
What would you like to change
password to?
0
[dialog d_password button]
onbutton=0
SRC.SYSMESSAGE Cancelled
RETURN 1
//onbutton=1
//IF (STRMATCH( *=*, <ARGTXT[0]> )) || (STRMATCH( *PLEVEL*, <ARGTXT[0]> ))
//SRC.SYSMESSAGE Plevel Hack Doesnt Work Here.
//RETURN 1
//ELSE
//SRC.PASSWORD <ARGTXT[0]>
//RETURN 1
//ENDIF

onbutton=1
IF (STRMATCH( *=*, <ARGTXT[0]> ))
SRC.SYSMESSAGE You may not include = in your password.
RETURN 1
elif !(STRCMPI("","<ARGTXT[0]>")) // thanks to Acratia for
src.sysmessage You need to supply a password.
return 1
elif (STRMATCH(*eof*,<ARGTXT[0]> ))
src.sysmessage You cannot use eof in your password.
return 1
elif (STRMATCH(*\n*,<ARGTXT[0]> ))
src.sysmessage You cannot use \n in your password.
return 1
elif (STRMATCH(*plevel*,<ARGTXT[0]> ))
src.sysmessage You cannot use plevel in your password.
return 1
elif (STRMATCH(<src.account.password>,<ARGTXT[0]> ))
src.sysmessage Whats the point of changing your pass if you're going to use your old one?
return 1
elif (STRMATCH(* *,<ARGTXT[0]> ))
src.sysmessage Your passwd cannot have a space in it.
return 1
elif (STRLEN(<ARGTXT[0]> ) > 15))
src.sysmessage Password cannot be longer than 15 characters.
return 1
elif (STRLEN(<ARGTXT[0]> ) < 4))
src.sysmessage Password cannot be shorter than 4 characters.
return 1

ELSE
SRC.PASSWORD <ARGTXT[0]>
RETURN 1
ENDIF

[EOF]