mirror of https://github.com/minexew/Shrine.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
647 B
36 lines
647 B
//See $LK,"Define",A="HI:Define"$. |
|
|
|
//These might be in the Adam task. |
|
DefineLoad("ST_YES_NO","(Yes or No)"); |
|
DefineLoad("ST_EXIT","Exit"); |
|
DefineLstLoad("ST_NO_YES_LST","No\0Yes\0"); |
|
|
|
//New strings might be loaded for each user |
|
//to override. |
|
|
|
"Spanish"; |
|
if (YorN) { |
|
DefineLoad("ST_YES_NO","(Si or No)"); |
|
DefineLoad("ST_EXIT","Salida"); |
|
DefineLstLoad("ST_NO_YES_LST","No\0Si\0"); |
|
} |
|
|
|
Bool Quit() |
|
{ |
|
Bool res; |
|
U8 *st; |
|
I64 i; |
|
while (TRUE) { |
|
"%S %S?","ST_EXIT","ST_YES_NO"; |
|
st=GetStr; |
|
i=DefineMatch(st,"ST_NO_YES_LST",LMF_IGNORE_CASE); |
|
if (i>=0) { |
|
res=i; |
|
break; |
|
} |
|
Free(st); |
|
} |
|
return res; |
|
} |
|
|
|
Quit;
|
|
|