19/03/2007, 08:55 PM
Kixtart is nice. This is what I made in a few minutes, a fool-proof menu with confirmation! Noone can possibly mess this up.
cls
:choseinsttype
'Chose your installation'
?'1. Full'
?'2. Update'
?'3. Advanced'
get $in_insttype
$choice = 0
Select case $in_insttype = 'f' Or $in_insttype = '1'
$choice = 1
$insttype = 'F'
??'Full?'
case $in_insttype = 'u' Or $in_insttype = '2'
$choice = 1
$insttype = 'U'
??'Update?'
case $in_insttype = 'a' Or $in_insttype = '3'
$choice = 1
$insttype = 'A'
??'Advanced?'
endselect
if $choice <> 1
cls
'Error.'?
goto choseinsttype
endif
?'Y/N:' get $confirm
$choice = 0
select case $confirm = 'n'
cls
'Retry.'?
goto choseinsttype
case $confirm = 'y'
$choice = 1
goto insttypeok
endselect
if $choice <> 1
cls
'Retry.'?
goto choseinsttype
endif
:insttypeok
???
$insttype
exit
what a mess code though! that's the cool thing about kixtart. it just works no matter how ugly you make it :P
cls
:choseinsttype
'Chose your installation'
?'1. Full'
?'2. Update'
?'3. Advanced'
get $in_insttype
$choice = 0
Select case $in_insttype = 'f' Or $in_insttype = '1'
$choice = 1
$insttype = 'F'
??'Full?'
case $in_insttype = 'u' Or $in_insttype = '2'
$choice = 1
$insttype = 'U'
??'Update?'
case $in_insttype = 'a' Or $in_insttype = '3'
$choice = 1
$insttype = 'A'
??'Advanced?'
endselect
if $choice <> 1
cls
'Error.'?
goto choseinsttype
endif
?'Y/N:' get $confirm
$choice = 0
select case $confirm = 'n'
cls
'Retry.'?
goto choseinsttype
case $confirm = 'y'
$choice = 1
goto insttypeok
endselect
if $choice <> 1
cls
'Retry.'?
goto choseinsttype
endif
:insttypeok
???
$insttype
exit
what a mess code though! that's the cool thing about kixtart. it just works no matter how ugly you make it :P