mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2025-04-14 19:58:37 +01:00
28 lines
453 B
HolyC
Executable file
28 lines
453 B
HolyC
Executable file
#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);
|
|
LBEqual(&(DocPut)->flags, DOCf_FORM, old_form);
|
|
DocBottom;
|
|
switch (i)
|
|
{
|
|
case T_MAN:
|
|
ManGen;
|
|
break;
|
|
|
|
case T_BALL:
|
|
BallGen;
|
|
break;
|
|
}
|
|
}
|