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

[vexx22]

Here is my best script i call it "Copy Single Game DVD"some little detail were integratet from HABs69m

QUOTE

<Action> SET SomeVar $DVDType$ TrayClose Delay 10 If %SomeVar% == "game disc" GOTO Launch If %SomeVar% != "game disc" GOTO begin :begin TrayOpen BeginDraw UseCurrent    MessageBox "Please insert A Game to Copy$eol$Press A to Continue$eol$Press B to Cancel" EndDraw   Input     If %_GP_A% == "1" GOTO APRESSED     If %_GP_B% == "1" GOTO BPRESSED   QUIT :APRESSED   Trayclose   Delay 10   GOTO Launch :BPRESSED TrayClose   QUIT :Launch   SETFUNC DVDTitle XBETITLE D:\DEFAULT.XBE   SETFUNC DVDSIZE FILESIZE D:\DEFAULT.xbe BeginDraw UseCurrent   MessageBox "Press A to Copy %DVDTitle% or B to Cancel" EndDraw   Input     If %_GP_A% == "1" GOTO A2PRESSED     If %_GP_B% == "1" GOTO BPRESSED   QUIT :A2PRESSED BeginDraw UseCurrent MessageBox "DVD is Copying" EndDraw MKDIR F:\games\%DVDTITLE% Copy D:\ F:\games\%DVDTITLE% BeginDraw UseCurrent MessageBox "%DVDTitle% is on Hard drive$eol$Will now reset MenuCache" EndDraw TrayOpen Delay 10 ResetMenuCache BeginDraw UseCurrent MessageBox "Press A to Reboot$eol$Press B to Reboot later" EndDraw Input If %_GP_A% == "1" GOTO A3PRESSED If %_GP_B% == "1" GOTO BPRESSED QUIT :A3PRESSED Trayclose Reboot QUIT </Action>

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

[vexx22]

Here is a simple XBOX Disc Lauch script with checking system, too.

QUOTE

<Action> SET SomeVar $DVDType$ TrayClose Delay 10 :check If %SomeVar% == "game disc" GOTO Launch If %SomeVar% != "game disc" GOTO begin :begin TrayOpen   BeginDraw UseCurrent    MessageBox "Please insert A Game$eol$Press A to Continue$eol$Press B to Chancel"   EndDraw   Input     If %_GP_A% == "1" GOTO APRESSED     If %_GP_B% == "1" GOTO BPRESSED   QUIT :APRESSED trayclose delay 10 goto check :BPRESSED   QUIT :Launch   SETFUNC DVDTitle XBETITLE D:DEFAULT.XBE   BeginDraw UseCurrent   MessageBox "Press A to Launch %DVDTitle% or B to Cancel"   EndDraw   Input     If %_GP_A% == "1" GOTO A2PRESSED     If %_GP_B% == "1" GOTO BPRESSED   QUIT :A2PRESSED LaunchDVD MessageBox "%DVDTitle% is Starting" QUIT </Action>

This post has been edited by vexx22: Oct 4 2003, 12:01 AM

[vexx22]

This is a script to control a little box on the screen with your D-Pad. After starting script click on D-Pad to activate. This script is not from me but i correct the version from this board and now it runs.

QUOTE

<Action> SET YY 100 SET XX 100 :BLAH Input If %_GP_D_LF% == "1" GOTO LF If %_GP_D_UP% == "1" GOTO UP If %_GP_D_DN% == "1" GOTO DN If %_GP_D_RT% == "1" GOTO RT If %_GP_A% == "1" GOTO EXIT Quit :UP SUB YY 5 GOTO DRAWIT :DN ADD YY 5 GOTO DRAWIT :LF SUB XX 5 GOTO DRAWIT :RT ADD XX 5 GOTO DRAWIT :DRAWIT BEGINDRAW BOX %XX% %YY% 10 10 Black White ENDDRAW GOTO BLAH :EXIT QUIT </Action>

This post has been edited by vexx22: Sep 29 2003, 02:51 PM

[vexx22]

This is a short Script to control your intern Xbox Fans, Only to Optiions are aviable, 100% and default.

QUOTE

<Action> BeginDraw UseCurrent   MessageBox "Press A for 100 Percent$eol$Press B for Default" EndDraw   Input     If %_GP_A% == "1" GOTO APRESSED     If %_GP_B% == "1" GOTO BPRESSED   QUIT :APRESSED   SETFANSPEED Manual 100%   SETFANSPEED Manual 100%   QUIT :BPRESSED   SETFANSPEED default   SETFANSPEED default   QUIT </Action>

[vexx22]

Please post importent changes, like adding something good to the script. So that we can see what we forget.

[flattspott]

Why did you put the Fanspeed functions down two times each?

[vexx22]

to flatspot. They are put two times because if i made it only one time you need to activate the script two time. And with this configuration you need only open the script one time.

[BenJeremy]

I think there's some wierdness in the fanspeed stuff.... what I observed might have been a delay or rampup time for the speed to adjust, though.

[vexx22]

Is nobody interested in sharing his scripts with others? I don´t post my new scripts without other poting their scripts.
I mean i am not the one and only who program scripts for MXM, or am i? Come on you don´t need to share perfect scripts or big scripts. Share small and scripts who failed in function. Then all can watch and try to help, and much people can learn how to use ActionScript, and get new ideas.

[X30n]

I wish I had some scripts to share. What are some good uses of scripts and I will give a shot at it.

[vexx22]

try programming any kind of a script, it just for learning. let your fantasy play. I startet programming Friday morning, it was the first time i used ActionScript. But after reading some topics and the readme i made my first own script. And it getting more. You can that too. Try it.

[Habs69M]

Oh well this is not done but here is my FormatPatitions.xas

I didnt bother adding these = \ but i guess you can figure out where they go

:begin
BeginDraw UseCurrent
MessageBox "This will format partitions$eol$Press A to Format C$eol$Press B to Format E$eol$Press X to Format F$eol$Press Y to Format G$eol$Press BACK to Cancel"
EndDraw

Input
If %_GP_A% == "1" GOTO APRESSED
If %_GP_B% == "1" GOTO BPRESSED
If %_GP_X% == "1" GOTO XPRESSED
If %_GP_Y% == "1" GOTO YPRESSED
If %_GP_BACK% == "1" GOTO BACKPRESSED
QUIT

:APRESSED
BeginDraw UseCurrent
MessageBox "This will FORMAT C:$eol$Press A to confirm$eol$B to Cancel"
EndDraw
Input
If %_GP_A% == "1" GOTO A2PRESSED
If %_GP_BACK% == "1" GOTO BACKPRESSED
QUIT
:A2PRESSED
Delay 2
FORMAT C:

:BPRESSED
BeginDraw UseCurrent
MessageBox "This will FORMAT E:$eol$Press A to confirm$eol$B to Cancel"
EndDraw
Input
If %_GP_A% == "1" GOTO A3PRESSED
If %_GP_BACK% == "1" GOTO BACKPRESSED
QUIT
:A3PRESSED
Delay 2
FORMAT E:

:XPRESSED
BeginDraw UseCurrent
MessageBox "This will FORMAT F:$eol$Press A to confirm$eol$B to Cancel"
EndDraw
Input
If %_GP_A% == "1" GOTO A4PRESSED
If %_GP_BACK% == "1" GOTO BACKPRESSED
QUIT
:A4PRESSED
Delay 2
FORMAT F:

:YPRESSED
BeginDraw UseCurrent
MessageBox "This will FORMAT G:$eol$Press A to confirm$eol$B to Cancel"
EndDraw
Input
If %_GP_A% == "1" GOTO A5PRESSED
If %_GP_BACK% == "1" GOTO BACKPRESSED
QUIT
:A5PRESSED
Delay 2
FORMAT G:

:BACKPRESSED
QUIT

This post has been edited by Habs69M: Sep 29 2003, 08:11 PM

[vexx22]

Cool Big thanks to HABS69M for his first script. Have you tested it? Because i see something missing.

[Habs69M]

Loll my first script was a remake of your MXMcopy, anyways ..... i know its missing things like i said its not done but you wanted some scripts so i posted my progress and for now yes it works will probably finish it tonight, kind a cool what you can do with this , wonder what else could be nice as a XAS like maybe flash bios? BJ can you answer this? can i make a XAS script to flash a bios on a mod chip?