Share Scripts For Others, Post new scripts and changes here Options

[vexx22]

Please share all your scripts here, they can help other to understand AS or bring them to new ideas. IF you have a question ask here.

If nobody should share his script without me, this will be the only scripts i ever post here for you.

I know that there are people who are much better in ActionScript as i.

This post has been edited by vexx22: Sep 28 2003, 11:24 PM

[BenJeremy]

You guys do know about the internal.xml, right?

CODE

<ActionScript Name="_ClearDisplay"> BeginDraw UseCurrent EndDraw </ActionScript> <ActionScript name="_RenderMessageBox> BeginDraw UseCurrent MessageBox %1% EndDraw </ActionScript> <ActionScript Name="_DisplayMessageBox"> CallScript _RenderMessageBox %1% ; Wait for input... Input ; Clear old stuff out.... CallScript _ClearDisplay </ActionScript> <ActionScript Name="_AutoExec"> IF $MXMVersion$ !#^ "WIP" GOTO DONE CallScript _DisplayMessageBox "This is a WIP Release$eol$Do not distribute" CallScript _ClearDisplay :DONE CallScript _CheckPrep </ActionScript> <ActionScript name="_PREPDRIVES"> SETFUNC DrvCPres COND CDrivePresent SETFUNC DrvEPres COND EDrivePresent SETFUNC DrvFPres COND FDrivePresent SETFUNC DrvGPres COND GDrivePresent ALLOWFORMAT 1 CallScript _DisplayMessageBox "System Will Be Prepared" CallScript _RenderMessageBox "Formatting Cache Partitions" FORMAT X: FORMAT Y: FORMAT Z: MOUNT X: MOUNT Y: MOUNT Z: CallScript _ClearDisplay IF %DrvGPres% != 0 GOTO SKIPG CallScript _DisplayMessageBox "Do you have a G: Partition to format?$eol$Press 'Y' to format G:" IF %_GP_Y% != "1" GOTO SKIPG CallScript _PromptFormat G: :SKIPG IF %DrvFPres% != 0 GOTO SKIPF CallScript _PromptFormat F: :SKIPF IF %DrvEPres% != 0 GOTO SKIPE CallScript _PromptFormat E: :SKIPE IF %DrvCPres% != 0 GOTO SKIPC CallScript _PromptFormat C: :SKIPC </ActionScript> <ActionScript name="_CheckODash"> SETFUNC ODashPresent FileExists C:\xboxdash.xbe IF %ODashPresent% != 0 GOTO ODASHPRESENT CallScript _DisplayMessageBox "Copying MXM to C:" MOUNT D: COPY D:\default.xbe C:\xboxdash.xbe ATTR C:\xboxdash.xbe rw SETFUNC BIOSXMLPres FileExists D:\BIOSMD5.xml IF %BIOSXMLPres% == 0 GOTO ODASHPRESENT COPY D:\BIOSMD5.xml C:\BIOSMD5.xml ATTR C:\BIOSMD5.xml rw :ODASHPRESENT SETFUNC TDataPres FileExists E:\TDATA SETFUNC UDataPres FileExists E:\UDATA IF %TDataPres% == 1 GOTO SKIP1 MKDIR E:\TDATA :SKIP1 IF %UDataPres% == 1 GOTO SKIP2 MKDIR E:\UDATA :SKIP2 SETFUNC TDataGPres FileExists E:\TDATA\00004321 SETFUNC UDataGPres FileExists E:\UDATA\00004321 IF %TDataGPres% == 1 GOTO SKIP3 MKDIR E:\TDATA\00004321 :SKIP3 IF %UDataGPres% == 1 GOTO SKIP4 MKDIR E:\UDATA\00004321 :SKIP4 </ActionScript> <ActionScript name="_CHECKPREP"> SETFUNC DrvCPres COND CDrivePresent SETFUNC DrvEPres COND EDrivePresent SETFUNC DrvFPres COND FDrivePresent SETFUNC DrvGPres COND GDrivePresent IF %_ForceRestore% == 1 GOTO PREPSYSTEM IF $DVD_Mode$ != 1 GOTO EPRESENT IF %DrvCPres% == 1 GOTO CPRESENT GOTO PREPSYSTEM :CPRESENT IF %DrvEPres% == 1 GOTO EPRESENT :PREPSYSTEM CallSCript _DisplayMessageBox "This drive appears to be unprepared$eol$Would you like to prepare your$eol$hard drive partitions now?$eol$Press RIGHT-TRIGGER and A to proceed$eol$Any other key" IF %_GP_TRG_RT% != "1" GOTO EPRESENT IF %_GP_A% != "1" GOTO EPRESENT CallScript _PREPDRIVES GOTO CHECKDASH :CHECKDASH CallScript _CheckODash GOTO CHECKRESTORE :CHECKRESTORE CallScript _PerfRestore C CallScript _PerfRestore E CallScript _PerfRestore F 1 CallScript _PerfRestore G 1 CallScript _DisplayMessageBox "Done with default Prepare" CallScript _ClearDisplay :EPRESENT </Actionscript> <Actionscript name="_PERFRESTORE> ; CallScript _PerfRestore F SET SourceDrive D:\ SET SourceDir %SourceDrive%%1%Backup SET TargetDrive %1%:\ SETFUNC BackPresent FileExists %SourceDir% SETFUNC DrvPres COND %1%DrivePresent IF %DrvPres% != 1 GOTO DRVNOTPRESENT IF %BackPresent% != 1 GOTO BACKNOTPRESENT CallScript _DisplayMessageBox "Press 'Y' restore %TargetDrive% from %SourceDir%" IF %_GP_Y% != "1" GOTO END BeginDraw UseCurrent MessageBox "Copying %1% Backup$eol$Please wait" EndDraw COPY %SourceDir% %TargetDrive% CallScript _ClearDisplay BeginDraw UseCurrent MessageBox "Fixing Attributes$eol$Please wait" EndDraw ATTR %TargetDrive% rw CallScript _ClearDisplay GOTO END :DRVNOTPRESENT IF %2% == 1 GOTO END CallScript _DisplayMessageBox "Unable to copy %1%: Backup$eol$Drive not present" :BACKNOTPRESENT IF %2% == 1 GOTO END CallScript _DisplayMessageBox "Unable to copy %1%:$eol$ %SourceDir% not present" :END </Actionscript> <ActionScript name="_PROMPTFORMAT"> ; To use, CallScript _PromptFormat F: SETFUNC Drive UPPER %1% SETFUNC Drive LEFT 1 %Drive% IF %Drive% == C GOTO DRIVECHECK IF %Drive% == E GOTO DRIVECHECK IF %Drive% == F GOTO DRIVECHECK IF %Drive% == G GOTO DRIVECHECK GOTO SKIPCHECK :DRIVECHECK SETFUNC DrvPres COND %Drive%DrivePresent IF %DrvPres% != 1 GOTO SKIPCHECK CallScript _DisplayMessageBox "%1% Has Data!$eol$Are you sure you want to format?$eol$Press 'Y' to confirm" IF %_GP_Y% != "1" GOTO CANCELLED :SKIPCHECK CallScript _DisplayMessageBox "You are about to format drive %1%$eol$Are you sure?$eol$Press 'X' to confirm" IF %_GP_X% != "1" GOTO CANCELLED BeginDraw UseCurrent MessageBox "Formatting drive %1%$eol$Please wait" EndDraw ; ALLOWFORMAT 1 FORMAT %1% CallSCript _DisplayMessageBox "Drive %1% Formatted" Mount %1% GOTO END :CANCELLED CallScript _DisplayMessageBox "Drive %1% Format Cancelled" :END </ActionScript> <ActionScript name="_DisplayGameInfo">CallScript _DisplayMessageBox "%_GameTitle% is installed to the hard drive"</ActionScript> <ActionScript name="_DisplayGameInfoDVD">CallScript _DisplayMessageBox "%_GameTitle% is on the DVD"</ActionScript> <ActionScript name="_ClearGameSaves">CallScript _DisplayMessageBox "Clear %_GameTitle% Game Saves$eol$Not Implemented"</ActionScript> <ActionScript name="_DeleteApp">CallScript _DisplayMessageBox "Delete %_GameTitle%$eol$Not Implemented"</ActionScript> <ActionScript name="_InstallDVDApp">CallScript _DisplayMessageBox "Install %_GameTitle%$eol$Not Implemented"</ActionScript>