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.
|
//This is cut and replaced when I generate a distro.
|
||||||
//See $LK,"DD_TEMPLEOS_LOC",A="FF:::/Demo/AcctExample/TOSDistro.CPP,DD_TEMPLEOS_LOC"$.
|
//See $LK,"DD_TEMPLEOS_LOC",A="FF:::/Demo/AcctExample/TOSDistro.CPP,DD_TEMPLEOS_LOC"$.
|
||||||
$TR-C,"LineRep"$
|
$TR-C,"LineRep"$
|
||||||
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","118,728");
|
$ID,4$DefinePrint("DD_TEMPLEOS_LOC","118,749");
|
||||||
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","80,899");
|
DefinePrint("DD_TEMPLEOS_LOC_OFFICIAL","80,937");
|
||||||
$ID,-4$
|
$ID,-4$
|
||||||
DefinePrint("DD_KERNEL","%08X",bfh);
|
DefinePrint("DD_KERNEL","%08X",bfh);
|
||||||
bfh(I64)+=bfh->file_size-1;
|
bfh(I64)+=bfh->file_size-1;
|
||||||
@@ -23,7 +23,7 @@ $ID,-4$
|
|||||||
|
|
||||||
DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
|
DefinePrint("DD_MP_VECT","%08X",MP_VECT_ADDR);
|
||||||
DefinePrint("DD_MP_VECT_END","%08X",
|
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_BASE","%08X",SYS_FIXED_AREA);
|
||||||
DefinePrint("DD_SYS_FIXED_AREA_END","%08X",
|
DefinePrint("DD_SYS_FIXED_AREA_END","%08X",
|
||||||
|
|||||||
@@ -65,7 +65,7 @@ U0 DrawCtrls(CTask *task)
|
|||||||
if (!Bt(&task->display_flags,DISPLAYf_NO_BORDER)) {
|
if (!Bt(&task->display_flags,DISPLAYf_NO_BORDER)) {
|
||||||
PUSHFD
|
PUSHFD
|
||||||
CLI
|
CLI
|
||||||
while (LBts(&task->locked_flags,TASKLf_TASK_LOCK))
|
while (LBts(&task->task_flags,TASKf_TASK_LOCK))
|
||||||
PAUSE
|
PAUSE
|
||||||
|
|
||||||
task->win_left--; //Allow drawing on border
|
task->win_left--; //Allow drawing on border
|
||||||
@@ -74,7 +74,7 @@ U0 DrawCtrls(CTask *task)
|
|||||||
task->win_bottom++;
|
task->win_bottom++;
|
||||||
WinDerivedValsUpdate(task);
|
WinDerivedValsUpdate(task);
|
||||||
|
|
||||||
LBtr(&task->locked_flags,TASKLf_TASK_LOCK);
|
LBtr(&task->task_flags,TASKf_TASK_LOCK);
|
||||||
POPFD
|
POPFD
|
||||||
|
|
||||||
if (c->draw_it)
|
if (c->draw_it)
|
||||||
@@ -82,7 +82,7 @@ U0 DrawCtrls(CTask *task)
|
|||||||
|
|
||||||
PUSHFD
|
PUSHFD
|
||||||
CLI
|
CLI
|
||||||
while (LBts(&task->locked_flags,TASKLf_TASK_LOCK))
|
while (LBts(&task->task_flags,TASKf_TASK_LOCK))
|
||||||
PAUSE
|
PAUSE
|
||||||
|
|
||||||
task->win_left++;
|
task->win_left++;
|
||||||
@@ -91,7 +91,7 @@ U0 DrawCtrls(CTask *task)
|
|||||||
task->win_bottom--;
|
task->win_bottom--;
|
||||||
WinDerivedValsUpdate(task);
|
WinDerivedValsUpdate(task);
|
||||||
|
|
||||||
LBtr(&task->locked_flags,TASKLf_TASK_LOCK);
|
LBtr(&task->task_flags,TASKf_TASK_LOCK);
|
||||||
POPFD
|
POPFD
|
||||||
}
|
}
|
||||||
} else
|
} else
|
||||||
|
|||||||
+62
-7
@@ -270,14 +270,69 @@ public U0 BibleVerse(CDoc *doc_out=NULL,U8 *verse,I64 lines)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
U0 BibleView()
|
public CDoc *BibleDoc()
|
||||||
{
|
{//Return Bible as DolDoc with trees.
|
||||||
U8 buf[STR_LEN];
|
CDoc *result=DocRead(BIBLE_FILENAME);
|
||||||
I64 book=PopUpPickDefineSub("ST_BIBLE_BOOKS");
|
CDocEntry *doc_e=result->root.next,*doc_e1;
|
||||||
if (book>=0) {
|
Bool open_chapter=FALSE;
|
||||||
StrPrint(buf,"BF:%Z,1:1",book,"ST_BIBLE_BOOKS");
|
U8 *ptr=Define("ST_BIBLE_BOOK_LINES");
|
||||||
Ed(buf);
|
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)
|
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$
|
Stem cells? $FG,4$Lower hanging fruit exists (2007)$FG$
|
||||||
Eleventh commandment? $FG,4$Thou shall not litter.(Maybe, glory of Creation)$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$
|
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$
|
Before Katrina $FG,4$Floods do justice. Black bead elder (tree book)$FG$
|
||||||
After Katrina $FG,4$Suffering Simplifies Life$FG$
|
After Katrina $FG,4$Suffering Simplifies Life$FG$
|
||||||
What field are You most better? $FG,4$Economics$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);
|
TextChar(task,,i,b+1,'Í'+attr);
|
||||||
}
|
}
|
||||||
for (i=t;i<=b;i++) {
|
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);
|
TextChar(task,,r+1,i,'º'+attr);
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
|
|||||||
Binary file not shown.
+58
-78
@@ -41,6 +41,8 @@ $BG,14$
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$SP,"<2>",BI=2$
|
$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$
|
$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$
|
$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$
|
$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$
|
$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,"<11>",BI=11$
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$SP,"<12>",BI=12$
|
$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,"<13>",BI=13$
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$SP,"<14>",BI=14$
|
CSprite *enemy_hacking_imgs[4]={$IB,"<12>",BI=12$,$IB,"<11>",BI=11$,$IB,"<12>",BI=12$,$IB,"<13>",BI=13$};
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$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$};
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -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,"<16>",BI=16$
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$SP,"<17>",BI=17$
|
$SP,"<17>",BI=17$
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$SP,"<18>",BI=18$
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$SP,"<19>",BI=19$
|
|
||||||
|
|
||||||
$BG$
|
$BG$
|
||||||
|
|
||||||
CSprite *landscape_imgs[LANDSCAPE_TYPES]=
|
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
|
#define MAX_LANDSCAPE 64
|
||||||
class LandScapeItem
|
class LandScapeItem
|
||||||
@@ -240,21 +235,6 @@ U0 DrawIt(CTask *task,CDC *dc)
|
|||||||
(tempb->x+tempb->dx*BULLET_LEN)>>32,
|
(tempb->x+tempb->dx*BULLET_LEN)>>32,
|
||||||
(tempb->y+tempb->dy*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);
|
DCDepthBufAlloc(dc);
|
||||||
mp_not_done_flags=1<<mp_cnt-1;
|
mp_not_done_flags=1<<mp_cnt-1;
|
||||||
for (i=0;i<mp_cnt;i++)
|
for (i=0;i<mp_cnt;i++)
|
||||||
@@ -688,7 +668,7 @@ to_done:
|
|||||||
MenuPop;
|
MenuPop;
|
||||||
RegWriteBranch("TempleOS/TimeOut","I64 best_score=%d;\n",best_score);
|
RegWriteBranch("TempleOS/TimeOut","I64 best_score=%d;\n",best_score);
|
||||||
}
|
}
|
||||||
| |||||||