aboutsummaryrefslogtreecommitdiff
path: root/Run.HC
blob: f7029dea060e351e3a7d0f0e1c7731de43b550f7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
CTask *cherub;
U8 RunCmd[1024];
U8 RomList[65536];

I64 pos=0;
CDirEntry *rom_f;
CDirEntry *roms=FilesFind("Roms/*.gb");

rom_f=roms;
while (rom_f)
{
  StrCpy(RomList+pos,rom_f->name);
  pos += StrLen(rom_f->name) + 1;
  rom_f=rom_f->next;
};



I64 rom_i = PopUpPickLst(RomList);

"%d\n",rom_i;

I64 incr=0;
rom_f=roms;

if (rom_i>-1)
{
  while (incr<rom_i)
  {
    rom_f=rom_f->next;
    incr++;
  };
  StrPrint(RunCmd,"Cd(\"%s\");\n#include \"Load\";\nRun(\"%s\");\n",DirCur,rom_f->full_name);
  cherub=User(RunCmd);
  Sleep(300);
  WinFocus(Fs);
  Sleep(300);
  WinFocus(cherub);
};

DirEntryDel(roms);
rom_f=NULL;