26 lines
468 B
HolyC
26 lines
468 B
HolyC
#define T_MAN 0
|
|
#define T_BALL 1
|
|
|
|
U0 Models()
|
|
{
|
|
I64 i;
|
|
Bool old_form=LBts(&(DocPut)->flags,DOCf_FORM);
|
|
DocClear;
|
|
"Make a CSprite model. Then, cut-and-Paste it.\n\n";
|
|
"$$LM,4$$";
|
|
"\n\n$$BT,\"Man\",LE=T_MAN$$\n\n";
|
|
"\n\n$$BT,\"Ball\",LE=T_BALL$$\n\n";
|
|
"$$LM,0$$";
|
|
i=DocMenu(DocPut);
|
|
LBEqu(&(DocPut)->flags,DOCf_FORM,old_form);
|
|
DocBottom;
|
|
switch (i) {
|
|
case T_MAN:
|
|
ManGen;
|
|
break;
|
|
case T_BALL:
|
|
BallGen;
|
|
break;
|
|
}
|
|
}
|