This script isn't working yet
CODE |
;###################################### ;# Name: ColorSelector.xas ;# By: flattspott ;# Version: 0.1 ;# Purpose: Allows user to select from a list of colors ;# Usage: This is not supposed to be used as a standalone script. ;# It should be called from another script ;# ;# CallFile \ColorSelector.xas ;# ;# The outputed variable will be _Color [%_Color%] ;# ;###################################### MsgBox "Color Selector Test" SetState Blank Set Left 47 Goto Refresh :Refresh BeginDraw TEXT 233 178 CENTER "Color Selector" TEXT 233 333 CENTER "Press A to select" BOX 0 141 640 5 0xFFFFFFFF BOX 0 387 640 5 0xFFFFFFFF BOX 0 234 640 5 0xFFFFFFFF BOX 0 291 640 5 0xFFFFFFFF BOX 55 255 20 20 0xFF000000 BOX 90 255 20 20 0xFFFFFFFF BOX 125 255 20 20 0xFF0000FF BOX 160 255 20 20 0xFFFF0000 BOX 195 255 20 20 0xFFFF8000 BOX 230 255 20 20 0xFFFFFF00 BOX 265 255 20 20 0xFF00FF00 BOX 300 255 20 20 0xFF800080 BOX 335 255 20 20 0xFF9F9F9F BOX 370 255 20 20 0xFF808000 BOX 405 255 20 20 0xFF004080 BOX 440 255 20 20 0xFF800000 BOX 475 255 20 20 0xFF408080 BOX 510 255 20 20 0xFF00B300 BOX 545 255 20 20 0xFFD2D200 BOX %Left% 247 35 35 0x00FF0000 0xFFDFDFDF EndDraw Goto GetInput :GetInput If %_GP_D_RT% == "1" Goto Next If %_GP_D_LF% == "1" Goto Back If %_GP_A% == "1" Goto GetColor Goto GetInput :Next If %Left% == "537" Then Set Left 47 Else Add Left 35 EndIf Goto Refresh :Back If %Left% == "47" Then Set Left 537 Else Sub Left 35 EndIf Goto Refresh :GetColor If %Left% == "47" Goto SetColor1 If %Left% == "82" Goto SetColor2 If %Left% == "117" Goto SetColor3 If %Left% == "152" Goto SetColor4 If %Left% == "187" Goto SetColor5 If %Left% == "222" Goto SetColor6 If %Left% == "257" Goto SetColor7 If %Left% == "292" Goto SetColor8 If %Left% == "327" Goto SetColor9 If %Left% == "362" Goto SetColor10 If %Left% == "397" Goto SetColor11 If %Left% == "432" Goto SetColor12 If %Left% == "467" Goto SetColor13 If %Left% == "502" Goto SetColor14 If %Left% == "537" Goto SetColor15 :SetColor1 Set _Color "0xFF000000" Goto End :SetColor2 Set _Color "0xFFFFFFFF" Goto End :SetColor3 Set _Color "0xFF0000FF" Goto End :SetColor4 Set _Color "0xFFFF0000" Goto End :SetColor5 Set _Color "0xFFFF8000" Goto End :SetColor6 Set _Color "0xFFFFFF00" Goto End :SetColor7 Set _Color "0xFF00FF00" Goto End :SetColor8 Set _Color "0xFF800080" Goto End :SetColor9 Set _Color "0xFF9F9F9F" Goto End :SetColor10 Set _Color "0xFF808000" Goto End :SetColor11 Set _Color "0xFF004080" Goto End :SetColor12 Set _Color "0xFF800000" Goto End :SetColor13 Set _Color "0xFF408080" Goto End :SetColor14 Set _Color "0xFF00B300" Goto End :SetColor15 Set _Color "0xFFD2D200" Goto End :End MsgBox "%_Color%" Quit |
I relalize in the info part is say it should be called from another script but that wasn't working so it changed it temporarily to debug it.
What happens is the first MsgBox comes up then after some input it locks up the Xbox, (X2 IGR doesn't respond either). Anyone see any problems or have a solution?