| CODE |
;################################################## ;# Name: Name Changer ;# Author:koldfuzion updated by Jezz ;# Date: 15-2-2004 ;# File Name:NameChanger2.xas ;# Version: 1.0 ;# Purpose: Allow user to change the xbox name. ;########################################################## ;-------- check for MXM.XML ----------- SETFUNC XMLOK FileExists MXM.XML IF# %XMLOK% == 1 GOTO XMLGOOD IF# %XMLOK% == 0 GOTO XMLBAD GOTO QUIT :XMLGOOD XMLOPEN TestXML $actualpath$\mxm.xml XMLGetNodePtr TestXML XMLPtr XMLGetValue TestXML Nickname !.Preferences.Nickname IF "%Nickname%" != "" GOTO CONTINUENAME IF "%Nickname%" == "" GOTO CREATENODE :CREATENODE XMLCreateNode TestXML NickName XMLSetValue TestXML !.Preferences.Nickname "$Name$" :CONTINUENAME XMLSetNodePtr TestXML !.Preferences.Nickname XMLGetNodePtr TestXML XMLPtr XMLGetValue TestXML Nickname !.Preferences.Nickname SET _kbInput "%Nickname%" StringInput _kbInput SINGLE "Your Current XBox NickName is %Nickname%$eol$ Enter a new title or leave the same to exit" IF "%_kbInput%" == "%Nickname%" GOTO QUIT :ACCEPTED XMLSetValue TestXML !.Preferences.Nickname "%_kbInput%" XMLSAVE TestXML $actualpath$\mxm.xml XMLCLOSE TestXML BeginDraw UseCurrent MessageBox "Your new xbox name is %_kbInput%$eol$$eol$The Name Change will take effect$eol$when MXM is restarted$eol$$eol$Press X to Reboot Now$eol$Press ANY OTHER Button to Reboot Later" EndDraw Input If %_GP_X% == "1" GOTO REBOOT QUIT :REBOOT reboot quit :QUIT QUIT :XMLBAD QUIT |