CTask *JukeReward(U8 *msg)
{
U8 *buf;
CDoc *doc;
CTask *res=Spawn(&SrvCmdLine,NULL,"Reward",,Fs);
StrCpy(res->task_title,"Reward");
res->title_src=TTS_LOCKED_CONST;
doc=DocNew(,res);
DocPrint(doc,"$WW+H,1$$RED$%s",msg);
buf=MStrPrint("DocEd(0x%X);",doc);
TaskExe(res,NULL,buf,1<<JOBf_EXIT_ON_COMPLETE|1<<JOBf_FREE_ON_COMPLETE);
Free(buf);
TaskWait(res);
res->border_src =BDS_CONST;
res->border_attr=LTGRAY<<4+DrvTextAttrGet(':')&15;
res->text_attr =LTGRAY<<4+BLUE;
res->win_inhibit=WIG_NO_FOCUS_TASK_DFT;
WinHorz(Fs->win_right+2,TEXT_COLS-2,res);
WinVert(2,TEXT_ROWS-2,res);
WinFocus(Fs->parent_task);
return res;
}
CTask *SingleSong(U8 *msg,U8 *name)
{
CTask *task=Spawn(&SrvCmdLine,NULL,name,,Fs);
StrCpy(task->task_title,name);
task->title_src=TTS_LOCKED_CONST;
TaskExe(task,Fs,";",1<<JOBf_WAKE_MASTER|1<<JOBf_FREE_ON_COMPLETE);
WinHorz(task->win_left,task->win_left+50,task);
WinVert(2,2+8,task);
task->win_inhibit=WIG_NO_FOCUS_TASK_DFT;
TaskExe(task,NULL,msg,1<<JOBf_EXIT_ON_COMPLETE|1<<JOBf_FREE_ON_COMPLETE);
DocPut(task)->max_entries=100;
return task;
}
#define JB_RUN_LEVEL_NULL 0
#define JB_RUN_LEVEL_ONE 1
#define JB_RUN_LEVEL_TWO 2
Bool JBPutKey(CDoc *doc,U8 *,I64 ch,I64 sc)
{//ch=ASCII; sc=scan_code
CDocEntry *doc_ce=doc->cur_entry,*doc_e;
CDirEntry *tmpde;
I64 i;
U8 *st;
CDoc *doc2;
if (!(sc&(SCF_ALT|SCF_CTRL|SCF_SHIFT))
&& doc_ce->type_u8==DOCT_MENU_VAL && doc_ce->left_exp>=0) {
tmpde=doc_ce->left_exp;
if (sc.u8[0]==SC_DELETE ) {
Beep;
Silent;
Del(tmpde->full_name);
Silent(OFF);
} else if ('0'<=ch<='9') {
if (StrLen(doc_ce->tag)>1)
doc_ce->tag[0]=ch;
doc2=DocRead(tmpde->full_name);
DocGoToLine(doc2,1);
doc_e=doc2->cur_entry;
if (doc_e!=doc2 && doc_e->type_u8==DOCT_TEXT && StrLen(doc_e->tag)>=3) {
doc_e->tag[2]=ch;
DocWrite(doc2);
}
DocDel(doc2);
return TRUE;
} else if (ch=='r') {
if (!DocTreeFFind(tmpde->full_name,"Reward1")) {
doc2=DocRead(tmpde->full_name);
DocGoToLine(doc2,2);
DocPrint(doc2,
"\n$TR,\"Reward1\"$\n"
"$
$CallExtStr(\"JukeReward\",\"\"\n"
"$TR,\"Reward2\"$\n"
"$ID,2$\n"
"$
$\n"
");\n$ID,-2$\n"
);
DocWrite(doc2);
DocDel(doc2);
}
if (DocTreeFFind(tmpde->full_name,"Reward1/Reward2")) {
for (i=0;i<5;i++) {
st=MStrPrint("%s %s %s %s ",
GodWordStr,GodWordStr,GodWordStr,GodWordStr);
DocTreeFAppend(tmpde->full_name,"Reward1/Reward2",
"\"%s\"\n",st);
Free(st);
}
In("");
}
return TRUE;
} else if (ch==CH_SPACE||ch==CH_ESC)
tmpde->user_data++; //JB_RUN_LEVEL++
//<SPACE> is followed by <ESC> --> JB_RUN_LEVEL_TWO
//Actual <ESC> just exits--> JB_RUN_LEVEL_ONE
}
return FALSE;
}
public U0 JukeBox(U8 *dirname="~/Psalmody",U8 **_filename=NULL)
{//_filename is for using this as a song-chooser program.
I64 i=0,rating;
U8 *st,*st2;
CDirEntry *tmpde,*tmpde1;
CDoc *doc=DocNew,*s;
CDocEntry *doc_e;
CTask *task=NULL;
if (_filename)
*_filename=NULL;
SettingsPush; //See SettingsPush
AutoComplete;
try {
dirname=StrNew(dirname);
st=MStrPrint("%s/*.HC.Z",dirname);
tmpde=tmpde1=FilesFind(st);
Free(st);
Free(dirname);
doc->user_put_key=&JBPutKey;
DocPrint(doc,
"Key: $GREEN$Graphics $BLUE$Words $RED$No Nothing "
"$BLACK$Incomplete $CYAN$Special$FG$\n\n"
"$GREEN$<DEL>$FG$\tto delete a song.\n"
"'$GREEN$0$FG$'-'$GREEN$9$FG$'\tto rate a song.\n"
"'$GREEN$r$FG$'\tto get your reward from God.\n");
while (tmpde) {
if (!(i++%5))
DocPrint(doc,"\n");
if (FileOcc("Play(",tmpde->full_name,"")) {
st=StrNew(tmpde->name);
FileExtRem(st);
s=DocRead(tmpde->full_name);
doc_e=s->head.next;
while (doc_e!=s && doc_e->type_u8!=DOCT_TEXT)
doc_e=doc_e->next;
rating='0';
if (doc_e!=s && doc_e->type_u8==DOCT_TEXT) {
if ('0'<=doc_e->tag[2]<='9')
rating=doc_e->tag[2];
if (StrMatch("incomplete",doc_e->tag))
DocPrint(doc,"$BLACK$");
else if (StrMatch("has graphics",doc_e->tag))
DocPrint(doc,"$GREEN$");
else if (StrMatch("has words",doc_e->tag))
DocPrint(doc,"$BLUE$");
else if (StrMatch("special",doc_e->tag))
DocPrint(doc,"$CYAN$");
else if (StrMatch("no nothing",doc_e->tag)) {
DocPrint(doc,"$RED$");
if (FileOcc("\\0",tmpde->full_name,"")) {
s->cur_entry=doc_e->next;
s->cur_col=0;
DocEntryDel(s,doc_e);
DocPrint(s,"//0 has words\n");
DocWrite(s);
}
}
DocPrint(doc,"$MU-UL,\"%c%-8ts\",LE=%d$ ",rating,st,tmpde);
tmpde->user_data=JB_RUN_LEVEL_NULL;
}
DocDel(s);
Free(st);
}
tmpde=tmpde->next;
}
DocPrint(doc,"\n$CYAN$$MU-UL,\"DONE\",LE=%d$\n",DOCM_CANCEL);
while (TRUE) {
if (_filename)
tmpde=PopUpMenu(doc,DOF_INTERCEPT_TASK_END);
else
tmpde=PopUpMenu(doc);
if (task)
Kill(task);
if (tmpde<=0) break;
st2=StrNew(tmpde->name);
if (_filename) {
Free(*_filename);
*_filename=StrNew(tmpde->full_name);
}
if (tmpde->user_data==JB_RUN_LEVEL_ONE) break; //<ESC>
tmpde->user_data=JB_RUN_LEVEL_NULL; //Rst from <SPACE>
FileExtRem(st2);
st=MStrPrint("ExeFile(\"%s\");",tmpde->full_name);
MusicSettingsRst;
task=SingleSong(st,st2);
Free(st2);
Free(st);
}
DocDel(doc);
DirTreeDel(tmpde1);
} catch
PutExcept;
SettingsPop;
}