TempleOSCDV3.12.ISO
This commit is contained in:
1 parent
ed64d7e3b8
commit
046e83368d
62 files changed
+2371
-2298
No files matched your search
Binary file not shown.
+3
-3
@@ -11,8 +11,8 @@ U0 LoadDocDefines()
|
||||
//This is cut and replaced when I generate a distro.
|
||||
//See $LK,"DD_TEMPLEOS_LOC",A="FF:::/Demo/AcctExample/TOSDistro.CPP,DD_TEMPLEOS_LOC"$.
|
||||
$TR-C,"LineRep"$
|
||||
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","118,728");
|
||||
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","80,899");
|
||||
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","118,749");
|
||||
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","80,937");
|
||||
$ID,-4$
|
||||
DefinePrint("DD_KERNEL","%08X",bfh);
|
||||
bfh(I64)+=bfh->file_size-1;
|
||||
@@ -23,7 +23,7 @@ $ID,-4$
|
||||
|
||||
DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
|
||||
DefinePrint("DD_MP_VECT_END","%08X",
|
||||
MP_VECT_ADDR+AP_16BIT_INIT_END-AP_16BIT_INIT-1);
|
||||
MP_VECT_ADDR+COREAP_16BIT_INIT_END-COREAP_16BIT_INIT-1);
|
||||
|
||||
DefinePrint("DD_SYS_FIXED_AREA_BASE","%08X",SYS_FIXED_AREA);
|
||||
DefinePrint("DD_SYS_FIXED_AREA_END","%08X",
|
||||
|
||||
@@ -65,7 +65,7 @@ U0 DrawCtrls(CTask *task)
|
||||
if (!Bt(&task->display_flags,DISPLAYf_NO_BORDER)) {
|
||||
PUSHFD
|
||||
CLI
|
||||
while (LBts(&task->locked_flags,TASKLf_TASK_LOCK))
|
||||
while (LBts(&task->task_flags,TASKf_TASK_LOCK))
|
||||
PAUSE
|
||||
|
||||
task->win_left--; //Allow drawing on border
|
||||
@@ -74,7 +74,7 @@ U0 DrawCtrls(CTask *task)
|
||||
task->win_bottom++;
|
||||
WinDerivedValsUpdate(task);
|
||||
|
||||
LBtr(&task->locked_flags,TASKLf_TASK_LOCK);
|
||||
LBtr(&task->task_flags,TASKf_TASK_LOCK);
|
||||
POPFD
|
||||
|
||||
if (c->draw_it)
|
||||
@@ -82,7 +82,7 @@ U0 DrawCtrls(CTask *task)
|
||||
|
||||
PUSHFD
|
||||
CLI
|
||||
while (LBts(&task->locked_flags,TASKLf_TASK_LOCK))
|
||||
while (LBts(&task->task_flags,TASKf_TASK_LOCK))
|
||||
PAUSE
|
||||
|
||||
task->win_left++;
|
||||
@@ -91,7 +91,7 @@ U0 DrawCtrls(CTask *task)
|
||||
task->win_bottom--;
|
||||
WinDerivedValsUpdate(task);
|
||||
|
||||
LBtr(&task->locked_flags,TASKLf_TASK_LOCK);
|
||||
LBtr(&task->task_flags,TASKf_TASK_LOCK);
|
||||
POPFD
|
||||
}
|
||||
} else
|
||||
|
||||
+62
-7
@@ -270,14 +270,69 @@ public U0 BibleVerse(CDoc *doc_out=NULL,U8 *verse,I64 lines)
|
||||
}
|
||||
}
|
||||
|
||||
U0 BibleView()
|
||||
{
|
||||
U8 buf[STR_LEN];
|
||||
I64 book=PopUpPickDefineSub("ST_BIBLE_BOOKS");
|
||||
if (book>=0) {
|
||||
StrPrint(buf,"BF:%Z,1:1",book,"ST_BIBLE_BOOKS");
|
||||
Ed(buf);
|
||||
public CDoc *BibleDoc()
|
||||
{//Return Bible as DolDoc with trees.
|
||||
CDoc *result=DocRead(BIBLE_FILENAME);
|
||||
CDocEntry *doc_e=result->root.next,*doc_e1;
|
||||
Bool open_chapter=FALSE;
|
||||
U8 *ptr=Define("ST_BIBLE_BOOK_LINES");
|
||||
I64 book,book_cnt=DefineCnt("ST_BIBLE_BOOK_LINES")-1,
|
||||
chapter,
|
||||
line=Str2I64(ptr,,&ptr);
|
||||
ptr++;
|
||||
for (book=0;book<book_cnt;book++) {
|
||||
while (doc_e->y+1<line) {
|
||||
doc_e1=doc_e->next;
|
||||
DocEntryDel(result,doc_e);
|
||||
doc_e=doc_e1;
|
||||
}
|
||||
result->cur_entry=doc_e;
|
||||
result->cur_col=0;
|
||||
DocPrint(result,"$$TR,\"%Z\"$$\n$$ID,2$$",book,"ST_BIBLE_BOOKS");
|
||||
line=Str2I64(ptr,,&ptr);
|
||||
ptr++;
|
||||
chapter=1;
|
||||
while (doc_e->y+1<line) {
|
||||
doc_e1=doc_e->next;
|
||||
if (doc_e->type_u8==DOCT_TEXT && StrMatch(":1 ",doc_e->tag)) {
|
||||
result->cur_entry=doc_e;
|
||||
result->cur_col=0;
|
||||
if (open_chapter) {
|
||||
DocPrint(result,"$$ID,-2$$");
|
||||
open_chapter=FALSE;
|
||||
}
|
||||
DocPrint(result,"$$TR,\"%d\"$$\n$$ID,2$$",chapter++);
|
||||
open_chapter=TRUE;
|
||||
} else if (chapter==1) {
|
||||
doc_e1=doc_e->next;
|
||||
DocEntryDel(result,doc_e);
|
||||
doc_e=doc_e1;
|
||||
}
|
||||
doc_e=doc_e1;
|
||||
}
|
||||
result->cur_entry=doc_e;
|
||||
result->cur_col=0;
|
||||
if (open_chapter) {
|
||||
DocPrint(result,"$$ID,-2$$");
|
||||
open_chapter=FALSE;
|
||||
}
|
||||
DocPrint(result,"$$ID,-2$$");
|
||||
}
|
||||
while (doc_e!=result) {
|
||||
doc_e1=doc_e->next;
|
||||
DocEntryDel(result,doc_e);
|
||||
doc_e=doc_e1;
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
public U0 BibleView()
|
||||
{//View Bible as DolDoc with trees.
|
||||
U8 buf[STR_LEN];
|
||||
CDoc *doc=BibleDoc;
|
||||
StrPrint(buf,"AL:%d,1",doc);
|
||||
Ed(buf);
|
||||
DocDel(doc);
|
||||
}
|
||||
U0 CtrlAltB(I64)
|
||||
{
|
||||
|
||||
@@ -154,6 +154,10 @@ Best way for Bill Gates to save lives? $FG,4$Earthquake prediction$FG$
|
||||
Stem cells? $FG,4$Lower hanging fruit exists (2007)$FG$
|
||||
Eleventh commandment? $FG,4$Thou shall not litter.(Maybe, glory of Creation)$FG$
|
||||
Twelfth commandment? $FG,4$Don't slaughter unarmed men in war.$FG$
|
||||
Thirteenth commandment $FG,4$No gore unless it looks fake.$FG$
|
||||
Fourteenth commandment $FG,4$No pedophilia or child porn.$FG$
|
||||
Fifteenth commandment $FG,4$Don't eat rare meat with blood.$FG$
|
||||
Sixteenth commandment $FG,4$No wife beating.$FG$
|
||||
Before Katrina $FG,4$Floods do justice. Black bead elder (tree book)$FG$
|
||||
After Katrina $FG,4$Suffering Simplifies Life$FG$
|
||||
What field are You most better? $FG,4$Economics$FG$
|
||||
|
||||
@@ -344,7 +344,7 @@ public U0 TextBorder(CTask *task=NULL,
|
||||
TextChar(task,,i,b+1,'Í'+attr);
|
||||
}
|
||||
for (i=t;i<=b;i++) {
|
||||
TextChar(task,,l-1,i,'º'+attr);
|
||||
TextChar(task,,l-1,i,'º'+attr); //Note: $LK,"RawDr",A="MN:RawDr"$() uses this char.
|
||||
TextChar(task,,r+1,i,'º'+attr);
|
||||
}
|
||||
} else {
|
||||
|
||||
Binary file not shown.
+58
-78
@@ -41,6 +41,8 @@ $BG,14$
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<2>",BI=2$
|
||||
|
||||
|
||||
@@ -53,14 +55,15 @@ $BG,14$
|
||||
|
||||
|
||||
|
||||
CSprite *friendly_imgs[4]={$IB,"<3>",BI=3$,$IB,"<2>",BI=2$,$IB,"<3>",BI=3$,$IB,"<4>",BI=4$};
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<5>",BI=5$
|
||||
|
||||
|
||||
|
||||
CSprite *friendly_imgs[4]={$IB,"<4>",BI=4$,$IB,"<3>",BI=3$,$IB,"<4>",BI=4$,$IB,"<5>",BI=5$};
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<6>",BI=6$
|
||||
|
||||
@@ -72,15 +75,15 @@ CSprite *friendly_imgs[4]={$IB,"<4>",BI=4$,$IB,"<3>",BI=3$,$IB,"<4>",BI=4$,$IB,"
|
||||
|
||||
|
||||
|
||||
CSprite *friendly_hacking_imgs[4]={$IB,"<6>",BI=6$,$IB,"<5>",BI=5$,$IB,"<6>",BI=6$,$IB,"<7>",BI=7$};
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<8>",BI=8$
|
||||
|
||||
|
||||
|
||||
|
||||
CSprite *friendly_hacking_imgs[4]={$IB,"<7>",BI=7$,$IB,"<6>",BI=6$,$IB,"<7>",BI=7$,$IB,"<8>",BI=8$};
|
||||
|
||||
|
||||
|
||||
$SP,"<9>",BI=9$
|
||||
|
||||
|
||||
@@ -89,35 +92,27 @@ CSprite *friendly_hacking_imgs[4]={$IB,"<7>",BI=7$,$IB,"<6>",BI=6$,$IB,"<7>",BI=
|
||||
|
||||
|
||||
|
||||
CSprite *enemy_imgs[4]={$IB,"<9>",BI=9$,$IB,"<8>",BI=8$,$IB,"<9>",BI=9$,$IB,"<10>",BI=10$};
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<11>",BI=11$
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<12>",BI=12$
|
||||
|
||||
|
||||
|
||||
CSprite *enemy_imgs[4]={$IB,"<11>",BI=11$,$IB,"<10>",BI=10$,$IB,"<11>",BI=11$,$IB,"<12>",BI=12$};
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<13>",BI=13$
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<14>",BI=14$
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<15>",BI=15$
|
||||
|
||||
|
||||
|
||||
|
||||
CSprite *enemy_hacking_imgs[4]={$IB,"<14>",BI=14$,$IB,"<13>",BI=13$,$IB,"<14>",BI=14$,$IB,"<15>",BI=15$};
|
||||
CSprite *enemy_hacking_imgs[4]={$IB,"<12>",BI=12$,$IB,"<11>",BI=11$,$IB,"<12>",BI=12$,$IB,"<13>",BI=13$};
|
||||
|
||||
|
||||
|
||||
@@ -128,40 +123,40 @@ CSprite *enemy_hacking_imgs[4]={$IB,"<14>",BI=14$,$IB,"<13>",BI=13$,$IB,"<14>",B
|
||||
|
||||
|
||||
|
||||
$SP,"<14>",BI=14$
|
||||
|
||||
|
||||
|
||||
$SP,"<15>",BI=15$
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<16>",BI=16$
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<17>",BI=17$
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<18>",BI=18$
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
$SP,"<19>",BI=19$
|
||||
|
||||
$BG$
|
||||
|
||||
CSprite *landscape_imgs[LANDSCAPE_TYPES]=
|
||||
{$IB,"<tree>",BI=16$,$IB,"<rock>",BI=17$,$IB,"<mountain>",BI=18$,$IB,"<castle>",BI=19$};
|
||||
{$IB,"<tree>",BI=14$,$IB,"<rock>",BI=15$,$IB,"<mountain>",BI=16$,$IB,"<castle>",BI=17$};
|
||||
|
||||
#define MAX_LANDSCAPE 64
|
||||
class LandScapeItem
|
||||
@@ -240,21 +235,6 @@ U0 DrawIt(CTask *task,CDC *dc)
|
||||
(tempb->x+tempb->dx*BULLET_LEN)>>32,
|
||||
(tempb->y+tempb->dy*BULLET_LEN)>>32);
|
||||
|
||||
|
||||
for (i=0,tempm=m;i<MAX_MAN;i++,tempm++) {
|
||||
yy=(tempm->y-scroll_y)&(MAP_HEIGHT-1);
|
||||
if (-32<=yy<=task->pix_bottom+32) {
|
||||
if (tempm->dead && ts<tempm->corpse_timeout)
|
||||
if (!(RandU16&15)) {
|
||||
if (tempm->friendly)
|
||||
temps=$IB,"<2>",BI=2$;
|
||||
else
|
||||
temps=$IB,"<9>",BI=9$;
|
||||
Sprite3B(dc,tempm->x,yy,0,temps);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
DCDepthBufAlloc(dc);
|
||||
mp_not_done_flags=1<<mp_cnt-1;
|
||||
for (i=0;i<mp_cnt;i++)
|
||||
@@ -688,7 +668,7 @@ to_done:
|
||||
MenuPop;
|
||||
RegWriteBranch("TempleOS/TimeOut","I64 best_score=%d;\n",best_score);
|
||||
}
|
||||
| ||||