173 lines
3.4 KiB
Plaintext
173 lines
3.4 KiB
Plaintext
U8 runner_x=0,runner_y=0;
|
|
|
|
|
|
$PI,"<runner1>",2$
|
|
|
|
|
|
|
|
|
|
void DrawIt(TssStruct *tss)
|
|
{
|
|
GrBitMap *base=GrAlias(grbase2,tss); //not a baseball base
|
|
|
|
ClearWinText(tss);
|
|
PlotWinStr(tss,"Press '1','2','3', or '4'",BLACK+WHITE<<4,0,0);
|
|
base->bkcolor=BLACK;
|
|
if (runner_x)
|
|
GrElemsPlot(base,runner_x,runner_y,0,
|
|
$IB,"<runner1>",2$);
|
|
|
|
GrDel(base);
|
|
}
|
|
|
|
|
|
void FieldTsk()
|
|
{
|
|
void *old_update=Fs->update_win;
|
|
I8 ch,i;
|
|
Fs->update_win=&DrawIt;
|
|
WinMax;
|
|
Fs->win_bottom=TEXT_ROWS/2-2;
|
|
|
|
do {
|
|
ch=GetChar(NULL,FALSE);
|
|
switch (ch) {
|
|
case '1':
|
|
for (i=0;i<40;i++) {
|
|
runner_x=40+i;
|
|
runner_y=80-i;
|
|
Sleep(10);
|
|
}
|
|
break;
|
|
case '2':
|
|
for (i=0;i<40;i++) {
|
|
runner_x=40+i;
|
|
runner_y=80-i;
|
|
Sleep(10);
|
|
}
|
|
for (i=0;i<40;i++) {
|
|
runner_x=80-i;
|
|
runner_y=40-i;
|
|
Sleep(10);
|
|
}
|
|
break;
|
|
case '3':
|
|
for (i=0;i<40;i++) {
|
|
runner_x=40+i;
|
|
runner_y=80-i;
|
|
Sleep(10);
|
|
}
|
|
for (i=0;i<40;i++) {
|
|
runner_x=80-i;
|
|
runner_y=40-i;
|
|
Sleep(10);
|
|
}
|
|
for (i=0;i<40;i++) {
|
|
runner_x=40-i;
|
|
runner_y=i;
|
|
Sleep(10);
|
|
}
|
|
break;
|
|
case '4':
|
|
for (i=0;i<40;i++) {
|
|
runner_x=40+i;
|
|
runner_y=80-i;
|
|
Sleep(10);
|
|
}
|
|
for (i=0;i<40;i++) {
|
|
runner_x=80-i;
|
|
runner_y=40-i;
|
|
Sleep(10);
|
|
}
|
|
for (i=0;i<40;i++) {
|
|
runner_x=40-i;
|
|
runner_y=i;
|
|
Sleep(10);
|
|
}
|
|
for (i=0;i<40;i++) {
|
|
runner_x=i;
|
|
runner_y=40+i;
|
|
Sleep(10);
|
|
}
|
|
break;
|
|
}
|
|
} while (ch!=CH_CTRLQ && ch!=CH_ESC);
|
|
Fs->update_win=old_update;
|
|
}
|
|
|
|
void BushLeague()
|
|
{
|
|
TssStruct *field_tss;
|
|
I1 ch,*st;
|
|
I8 i;
|
|
|
|
/*$FG,2$
|
|
This spawns a task so that we can do
|
|
graphics while still using the command
|
|
line. Otherwise, we'd have to put
|
|
text on the screen by hand.
|
|
|
|
We include the $FG,4$Fs$FG$$FG,2$ parameter to tell it that
|
|
the current task is the parent so that the
|
|
child will inherit the symbols of the parent.
|
|
In this case, we want it to have knowledge
|
|
of the $FG,4$Field()$FG$$FG,2$ function.
|
|
|
|
$FG$*/
|
|
field_tss=Spawn(&UserCmdLine,"Field",Fs);
|
|
|
|
WinMax;
|
|
Fs->win_top=TEXT_ROWS/2+1;
|
|
|
|
XTalk(field_tss,"FieldTsk;\r");
|
|
|
|
WaitTskIdle(field_tss);
|
|
|
|
/*$FG,2$
|
|
Inside here, you're supposed to make the game.
|
|
It can interact with the user using the command line,
|
|
which is simple to do. Then, it can XTalk to the
|
|
graphic task what it's supposed to do.
|
|
|
|
Some useful routines for interacting are $LK,"PmtStr","MN:PmtStr"$(),
|
|
$LK,"GetChar","MN:GetChar"$(), $LK,"PmtI8","MN:PmtI8"$().
|
|
|
|
|
|
You can test the graphic task directly, but normally
|
|
it's supposed to be driven by this window.
|
|
$FG$*/
|
|
PutS("$$CL$$"); //$FG,2$clear text$FG$
|
|
do {
|
|
WinToTop;
|
|
st=PmtStr("Single, Double, Triple or Home Run?\r\n"
|
|
"'Exit' to quit.\r\n"
|
|
"You can abbreviate. : ");
|
|
i=MatchListEntry(st,"exit\0single\0double\0triple\0home run\0",MLE_IGNORE_CASE);
|
|
Free(st);
|
|
switch (i) {
|
|
case 0:
|
|
break;
|
|
case 1:
|
|
XTalk(field_tss,"1");
|
|
break;
|
|
case 2:
|
|
XTalk(field_tss,"2");
|
|
break;
|
|
case 3:
|
|
XTalk(field_tss,"3");
|
|
break;
|
|
case 4:
|
|
XTalk(field_tss,"4");
|
|
break;
|
|
default:
|
|
coutln "Invalid";
|
|
}
|
|
} while (i!=0);
|
|
Kill(field_tss);
|
|
WinMax;
|
|
coutln "Game Over";
|
|
}
|
|
|
|
BushLeague;
|
|
Ù ! ! " " & & & "
|
|
& - - '
|
|
# ) øÿÿÿ $ úÿÿÿ" þÿÿÿ þ |