Jump to content


Photo

Share Scripts For Others


  • Please log in to reply
150 replies to this topic

#1 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 28 September 2003 - 11:08 PM

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.

Edited by vexx22, 28 September 2003 - 11:24 PM.


#2 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 28 September 2003 - 11:12 PM

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>


Edited by vexx22, 28 September 2003 - 11:31 PM.


#3 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 28 September 2003 - 11:16 PM

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>

Edited by vexx22, 04 October 2003 - 12:01 AM.


#4 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 28 September 2003 - 11:18 PM

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>

Edited by vexx22, 29 September 2003 - 02:51 PM.


#5 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 28 September 2003 - 11:21 PM

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>


#6 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 28 September 2003 - 11:22 PM

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

#7 flattspott

flattspott

    X-S Freak

  • Moderator
  • PipPipPipPipPip
  • 1,787 posts
  • Location:Southern California
  • Xbox Version:v1.0
  • 360 version:v1 (xenon)

Posted 29 September 2003 - 02:10 AM

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

#8 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 29 September 2003 - 11:43 AM

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.

#9 BenJeremy

BenJeremy

    X-S Elysian

  • Head Moderators
  • PipPipPipPipPipPipPipPipPipPipPipPipPip
  • 9,690 posts
  • Gender:Male
  • Xbox Version:v1.1
  • 360 version:v1 (xenon)

Posted 29 September 2003 - 11:47 AM

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.

#10 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 29 September 2003 - 07:47 PM

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.

#11 X30n

X30n

    X-S X-perience

  • Members
  • PipPip
  • 451 posts
  • Xbox Version:v1.2
  • 360 version:unknown

Posted 29 September 2003 - 07:59 PM

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

#12 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 29 September 2003 - 08:11 PM

try programming any kind of a script, it just for learning. let your fantasy play. biggrin.gif 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.

#13 Habs69M

Habs69M

    X-S Senior Member

  • Members
  • PipPip
  • 259 posts
  • Xbox Version:unk

Posted 29 September 2003 - 08:11 PM

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 biggrin.gif

: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

Edited by Habs69M, 29 September 2003 - 08:11 PM.


#14 vexx22

vexx22

    X-S Member

  • Members
  • Pip
  • 96 posts
  • Location:Germany
  • Xbox Version:v1.1

Posted 29 September 2003 - 08:14 PM

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

#15 Habs69M

Habs69M

    X-S Senior Member

  • Members
  • PipPip
  • 259 posts
  • Xbox Version:unk

Posted 29 September 2003 - 08:21 PM

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 biggrin.gif 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?




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users