TempleOSTS_131005.ISO
This commit is contained in:
1 parent
1343005a29
commit
2d2a65d572
547 files changed
+33608
-12549
No files matched your search
Binary file not shown.
@@ -24,15 +24,15 @@ U0 HoldCourt()
|
||||
|
||||
NewLine;
|
||||
accused=RandU32%3;
|
||||
"" LstEntryPt(accused,"A man \0A woman \0A child \0");
|
||||
"%s",LstSub(accused,"A man \0A woman \0A child \0");
|
||||
|
||||
crime=RandU32&3;
|
||||
"" LstEntryPt(crime,"commits murder\0commits adultery\0commits blasphemy\0commits idolatry\0");
|
||||
"%s",LstSub(crime,"commits murder\0commits adultery\0commits blasphemy\0commits idolatry\0");
|
||||
|
||||
if (crime<=1) {
|
||||
'' CH_SPACE;
|
||||
victim=RandU32%3;
|
||||
"" LstEntryPt(victim,"to a man\0to a woman\0to a child\0to an animal\0");
|
||||
"%s",LstSub(victim,"to a man\0to a woman\0to a child\0to an animal\0");
|
||||
}
|
||||
if (!(RandU32%5))
|
||||
", again!";
|
||||
@@ -156,7 +156,7 @@ U0 TMsg(CDC *dc,U8 *msg)
|
||||
dc->color=BLACK;
|
||||
GrRect(dc,2,GR_HEIGHT-FONT_HEIGHT*3+2,GR_WIDTH-4,FONT_HEIGHT*2-4);
|
||||
dc->color=YELLOW;
|
||||
GrPutS(dc,(GR_WIDTH-StrLen(msg)*FONT_WIDTH)/2,GR_HEIGHT-5*FONT_HEIGHT/2,msg);
|
||||
GrPrint(dc,(GR_WIDTH-StrLen(msg)*FONT_WIDTH)/2,GR_HEIGHT-5*FONT_HEIGHT/2,"%s",msg);
|
||||
WinMgrSync;
|
||||
if (ScanChar)
|
||||
throw;
|
||||
|
||||
Binary file not shown.
@@ -2,27 +2,27 @@ U0 ViewComics()
|
||||
{
|
||||
I64 i=0;
|
||||
U8 *st;
|
||||
CDirEntry *tempm,*tempm1;
|
||||
CDirEntry *tempde,*tempde1;
|
||||
CDoc *doc=DocNew;
|
||||
DocPutS(doc,"$$FG,LTBLUE$$");
|
||||
tempm=FilesFind("Comics/*.TXT*");
|
||||
tempm1=tempm;
|
||||
while (tempm1) {
|
||||
st=StrNew(tempm1->name);
|
||||
DocPrint(doc,"$$FG,LTBLUE$$");
|
||||
tempde=FilesFind("Comics/*.TXT*");
|
||||
tempde1=tempde;
|
||||
while (tempde1) {
|
||||
st=StrNew(tempde1->name);
|
||||
FileExtRem(st);
|
||||
tempm1->user_data=DocPrintF(doc,"$$MU-UL,\"%-10ts\",%d$$ ",st,tempm1);
|
||||
tempde1->user_data=DocPrint(doc,"$$MU-UL,\"%-10ts\",%d$$ ",st,tempde1);
|
||||
Free(st);
|
||||
tempm1=tempm1->next;
|
||||
tempde1=tempde1->next;
|
||||
if ((i++&3)==3)
|
||||
DocPutS(doc,"\n");
|
||||
DocPrint(doc,"\n");
|
||||
}
|
||||
while (TRUE) {
|
||||
if ((tempm1=PopUpMenu(doc))>0)
|
||||
Ed(tempm1->full_name);
|
||||
if ((tempde1=PopUpMenu(doc))>0)
|
||||
Ed(tempde1->full_name);
|
||||
else
|
||||
break;
|
||||
}
|
||||
DocDel(doc);
|
||||
CDirLstDel(tempm);
|
||||
DirLstDel(tempde);
|
||||
}
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Reference in new issue
Block a user