I was more surprised by the fact that QBasic was doing code folding and some kind of prettifying.
I think it takes up too much space when there are multiple rewards or large rewards. Here's a few suggestions: Image-link
#define _POSIX_SOURCE 1 /* Song length: 55 seconds (24 seconds of loop). */
/*/echo "$0 is not an executable but a C source file. Compiling it now..."
n=`basename $0`;gcc -O2 -Wall -W -pedantic -o /tmp/$n "$0";/tmp/$n $*;exit; */
static char*Title="Selfplayer for /dev/audio (8-bit, µ-law)\n"
"This file has been compiled from a file created with intgen.";
typedef unsigned char by;char*A,*tmp="nesmusa.$$$",*a0;
static by*z=(by*)"+l=6*mM*JlmZmom+mom)omm5lm8CoZ@Ig3QCDe^l=B*0Z@mJ+NZK*RJ)OJ+"
"5B*7<N+CNJ4LbZ=NZKRRK)O;+5HHF<n51N20Vb:UFZ^UCAY<U?""=a4doK*bJCe5(*(ToM2*2bZ7"
"FV_5AAd<_?AAedmK5XJ9=Ud<OL@lflK2J*Ae5H*4<oMB60b:=CZK2BK)fJ+5T+(<OM2(Bb:;BZKg"
"X*8=Vd2O8@Tf?Sm)+J+4M>\\Cnfb^[o)7:+4m=BE1NZ(Db:1:*So)^Z<4]=J7GBnl*1fI[m)d8+5"
"J72<B+4NJ7<Ybo+(;K)M`+5^J7<6D1NJ7Z`:\\3d+^bm)Cn55(DM<V[(OROAa*Dnm+ZHH)g=45Bn"
"(^oBAYdS_CAedlKo*A)d3^CBa5PM)<6+6BAm*6:*^ABm5@o(bnN2*XHY]TU)+::@l=^*1N:1BRXY"
"K*ZT0mEL<6*3Ncm:*^*TU)+*DBlenN2*FBYm+fHY)m745fR^<NF\\N:PDbZ>0X+RoF?""=5JdK<^"
"_>N2*DZXYK*:+1m5VE7<R*=Ocm:\\<fKSUK)Pn(5:1UfnUcc:*V:Tm)P]DIL<6*B?`mZ*]ZK6\\*"
">m5>J)<2*7N*V?b*)RZK12I)RJ75L`(fnMZ81bJ+NZ+neJ)+J+5DJ5<N+CNB4Db*?ZZ+KLH)+*+L"
"L<6*;bcm:*:ZUU)+:6Ml=6*66`c:*6;Rm)+*+PL8oJ`cfISU8=VL4o2`;fIRm)+J+5HJ2<2+8NJ4"
"HJgYP5G=RL<oN`mJ+^Z+SJJ;=Il=^00ZcmJRDZK(Z*<m5H)6*o*`+fm+1BK)^*:NL<J7GNJ<:b*1"
"BY+A[J)Z(65B44<Z(KORT<b*?oZKW`J)LU(Ml=VL4NZo0b*BSJRU)DZ(5B+D<nK06`=fm+G^J)]R"
"+5X_7<B+1NJ7BcXYWU1=EL\\nM2*>bZ(FZ+2ZJ);b(5^J7<Z(BORG3*gm+CgJ)30(MLlnmcmJ7B["
"+Z8K)7W(Ml=6D1*`mJ7^Z+DJW)JW05b16<ZB<6`c*1N[RU;=IL4o>`m:*BZK7RJ):*+IL4oM2\\E"
"bJ7^Z+DZV)2K(5Z(4<b74NJ7^b*=([+KfJ)n265Z8)<*D:N2BKb*BGZ+LoJ)_A7ML<Z(DN2BEb:;"
"S:RU)6H75J7D<*^:NZB?b*Z([+\\WK)^Z85TH4<6^7N*o3b*nOZ+2:+8=5bD)<2\\7^`@gbPg)+J"
")QL=6*5^@l:*NZPa)+Z+Qd=6*5^`m:*N*P1FIRD=6*7J`7g1PeEE]4M_L2*0bgaQeE]5^*6<N+6^"
"`@gTP1GIPD=6*<R`o:*NJPc)+Z+P\\=6*5R@Egl+6CK)((+5:H6<647J`gfWS;9Q5(*6>o@`gfQS"
"e8EW41_L2*lRfaK*bJ8YWT1?MR7:RfASe8]5<(6>o@`gfaKMCK))F65L*3<F;DNbAHbZ)6[+bC+<"
"EN4c^L2*@JYaK*RJ;EI45_L2*NBfaK*RJ=EM4m^L2*@bYaK*RJ:EK4)_L2*N2faK*RJ)@KDB\\Z>"
"HCo:*B4Te)+Z+BT=6*5Jcl:*N*To)+:+Z\\<6*5*A6d0^a)1*(5:*3J?""(A7d?^m)+J+R\\;_H`"
")gbK*b+FU5(*B<fU>N2:3*g>PCFYRT;oI`MgoPgGMQ4=6*=^`n:**Y+fTHGmQlMOm@ogeQ[)+Z)]"
"<=6*ZNRZ?bZKEZK+RJEY]TM?m@lgmQM9eTD?oC@n:*nJSY)+:)5X@7>oA`mfoSg9MU4=6*=N`n:*"
"fZSg)+Z+UL=oL`mfm+f(m)[J;5N?0<2A6n`l:*NZQo)+Z+5Bd(:OLZ*F*g3Pe)4J+RT;OI`5g=Pm"
")OJ+5B*7<N+CNJ4LbZ=NZK<RK)O;+5HHF<n51N20Vb*V^*S=8IV43?8`VfaK+W*9U5F4)FoS@FgR"
"P;GUPL=6+7B`o*fFZK2J*GIP<=Vg6^`NgaKZ[J)I:+5Fa(DOLZH3bgcQeDM_4A?d@^gCQe)I:+5N"
"+)Fo=`OfeRU)+J)IT4?""?@@ffRQ;mUL=oO`c:*bZSS99UT<?O``f]PEGMPL<6*<R@8gVP3G9P\\"
"Fom`ogeQU)+J)]TL?o@`gfQQEE]\\LOo@agdQ_EA]lLoK``*ST*PeDE_<=6*4f@_g@QeEE5Na6Lo"
"L26D:dW^Y)+J+XDW_0aoZ?^:^QBU5(*)H_4A?daKTZH)e*15X)1<R32f`^g@Qg)Z((5HW3=n;12a"
"GdQS)9AT<?_A`dfRS?9ATd>_@@mY[U_=UMdmNmCnYdU_=AMD+_=`BfdRY;aI\\5?""<@AfdR_;QI"
"d=B+1NJ7\\[fnK^*K=M5X(74oO21FbYeK^:+9M5067<Z(CJ`*g4P9FaR\\;?H@)g4P=FQSd=f61N"
":2DbZB^Z+D:2G5PdFOP@Eg_P;GAPdFoS@Ogl+^bT;m]dMol@n*[DZ+(JKEM5(*<Jo+a)de+72K)3"
"*6Z4K?""(AngbKb_*BQZlA_e`_gBQQDA5(J5@oO2*bZgUQ=EM58J5<>+0b@fgRQ[DI5R`(N_``Ed"
"\\^ECIX\\V_O2*L:deK*JICMYlToO2+L:deK62KCIY4U?0AnZHEZ^gCm[dIo4A>dG^_)+Z)[l<6*"
"?6An:*N:^YBm5b4;@?L2*<RgCQMGaPLG?P`8gdK*b+GM5(*<Do_`AgeK6b+GM58*7D?\\@FgRP;G"
"UP<GOP`Ng`PMFaRL;?H`(gdK*b+FM5(*<8oW`1geK6b+FM58*78?T@6g2P[)[=+SD9o=@MfaR[;E"
"Id<6*=>`a:*Z+S=8M5FJ2<V*8NJ)>@fbR[;II45O8`VfcRY;QID5_<@OfaRe;]VL5?""=@LfnQWE"
"E]l<6*<n@n:*NZQY)+Z+]D=6*5n`o:*NZQc)+Z+RD:OK`a:*F*P;FIR4E_^`@geK*RJGIQ4E?d@S"
"gGQ])+J+_4A?d@^g8QU)O;<]\\=6*52A;dW^])+J)X4=6*76A3dG^])+:)[4=6*56an:*N:^g)+Z"
"+[L=6*56Al:*NZKdcJ)I)+5876@?d@^g2^7BEZl<6*?*An:*N*^Y)+Z+ZD=6*5*ao:*N*^c)+Z+Z"
"\\=6*5*Am:*N*^m)+J+5V06<F4<NZK8bgbQ[EI5JS)D?\\@NgbP[)4g(54J(:OL2*>ZfHS19M5(*"
"(>?@@ffRS[)Rg+5(K5<>E1NB*0BgcK*ZJ)_:15B_)<f36N2F2RgcK*ZJD1_\\@_c@[gWQ=EM\\lN"
"oc@fgRQ[)HZ(5R71<RM2NZ*:bZInZPYGQ5(J)DoL2*22e8\\QNA`DfOSa9eU\\=OM`4g?PA>e8\\"
"QNM5(*(X?TA>eB\\[A1e\\\\oO2*2bdb_[AIe4S_:aHdeK*R*@If4S?LZ(<bZ7FZ_W)+J+e\\\\o"
"OAodN\\W)+Z7c\\XoWA?eN\\m)+*65dS7F_R`8geK*R*GIP4G?LBUBbZ*_Z+<NK)d3(X4W?0AnJV"
"^ZK+R*@U5(*)<VV1NJWEb*<^Z+F_*CU5(*)<B?5NB2L*e(\\1NA50R)<R:3NZK22ecK*bJNQcDY_"
"LBJBbJ5;Z_Y)+J+5LH7<n[5N*<LBdX^QCA580)<F1<>ACdg^])+*+Y4U?""<ANdbK`5H)fM55ZK)"
"<V)7NbK^:eH\\1OAaDdO_aAee\\]OIa4e?LbdBbJY_ZKnLK)Xa(5P^7<BC>NBY;bZT+[+b8K)bY("
"5T;6<2@3N25;bZ?WZKgNKN1cLXoVacJPFZKGKJOIa4=FR4N:]8b:H@Z+e0K)6g)5nJ5^_BaXdU_="
"AMdl^?L2*<Zdc+\\=K):R+5B1)<^D6Nb_2BdcKDbK)b[)5VV7d?\\ANeb\\YM1m\\looaaee]]MI"
"5(J)lOl@cgYQUE9]\\LoOZ*>Rg8QUD=_T@Og`aJ6BZQ[EQ]LM?m@m:6B:Q[DQ_LA?e@]gmK1RIE1"
"5TK(LOl`ognQoEm_D<>)7f`nZ>:ZK<2K)OK+5b(5LoMR1DbZ7f[+\\BK)O+)QDDo^@@ggP]GIRD:"
"oJ`+g6P1FMPDFoR@8gWP]G1QL<2+6Nb=>:gHPU)8J+5HJ(<F?4NJ@2bZ2^Z+n[*C1XLV?3a8dU^;"
"B1ZLJo*A(d7^])69+542)^_Ba[dI_3AEdlR_:aKd)_3@Efl<^?7N2(NbJ6VZK22H)fJ+5HJ2Ro?A"
"CdY^UC9Y\\<^D4J@+gdK*JJ)K@+R<A_f@QgDQ_DA50f(@Ol@cgdQ_EA]d<>m7n`nJ2FZK:Z*C1Xd"
"V_3A9dd+c]*CU5^J7H_6A1dD^_BA[lHo7A>dB^[BU5BK7<f61Nb4Bc:LB[+?CK)IK75J7(=b;1BA"
"[ddK*JH)(O+d<_O@afdP_GA]fDR_;AId4__)5M+f<=FG12aFdS^GCQXLWo0aGd^^CCYX\\=6B7N:"
"Z>bJOGZKaXJ)B;25X(;<b@16a>dC^gBQ[LIo4a?dN^cBY[\\=:44NR*Fb:cCZ+_AK);b(]<MOl@o"
"g`QeE]]LM?m@lgnQa)DJ75:X7@Od`^g@QgD]_LAod@\\gNQcDe5n81<f6:NJ*Bc*R@Z++YH)Kg(5"
"Bd7X_VA1eD\\_NAclXoWA>eB\\[NU56e7\\_NAadd__AAel\\oOAndb_[AU5Ze7<:N7NBd>bJ)]Z"
"+^ZH)cK7f<SO8AWd0_E@]fLS?9ATd>_a);265D:)<*g1N2\\EbZKA[K9fH)WX(5@(D<>NKNJ[Jb*"
"Bob+(*H)Z7)5Z_7<>N1N2\\Eb:d_Z+@d*A]dT_?AAddo+D2VO1add__AAed\\]OMa4e?\\ANecK7"
"BK)8c(5(K7dO\\aNe`\\gO]aLeo\\ALen\\cOe5(K:*",
s[5][65536],l[299999],sn[32]="Logo by NESMusa";
#include <stdio.h>
#include <unistd.h>
static int S,h,OF,PN,d,p=1,r,k,i,a,c,CO,j,x,T=288,f=8000,LS=0,
P[12],H[99],IL[99];FILE*fo;
static int Out(int v){int e=0,s=1,f=0;if(OF)v=128+v/30;else for((s=(v<0))?v=-v
:0;e<8;e++)if((f=((v+32)>>(e+1))-16)<16)break;return fputc(OF?v:~((s<<7)|(e<<4
)|f),fo);}void gn(void){for(f=0;A[1]>='0'&&A[1]<='9';f=f*10+*++A-'0');}int
G(int n){while((k=1<<n)>p)d+=p*(by)((*z++^134)+84),p*=64;PN=d&(k-1);d/=k,p
/=k;return PN;}int main(int C,char**V){if(V)a0=*V;for(P[CO=i=0]=907;++i<12;P[i
]=P[i-1]*89/84);while(--C)if(*(A=*++V)=='-')while(*A&&A[1])
*++A=='r'?gn(),0:*A=='d'?OF=1:*A=='h'?h=1:0;
fprintf(stderr,"%s\n\nUsage:\t %s [options]\n"
"Example: %s\n\t %s -dr22050|esdcat -b -m -r 22050\nOptions:\n"
"\t -d\tPlay in linear format instead & use /dev/dsp if not piped\n"
"\t -r#\tSelect sampling rate in Hz\n\t -h\tThis help\n\n",Title,a0,a0,a0);
if(h)exit(0);for(r=3220,LS=1810,c=4;c--;)for(a=0;a<r;)if((S=G(7))-7)
l[c+8*a+4]=S,l[c+8*a++]=G(6)^63;else for(i=G(10),S=G(8);S--;a++)
l[a*8+4+c]=l[(a-i)*8+4+c],l[a*8+c]=l[(a-i)*8+c];
for(i=IL[0]=IL[1]=32;--i>=0;s[0][i]=(i&24)?170:20)s[1][i]=16*(i<16?i:31-i);
for(i=IL[2]=999;--i>=0;s[2][i]=(a=a*999+1)%200);
if(isatty(fileno(fo=stdout)))fo=fopen(A=OF?"/dev/dsp":
"/dev/audio","wb");if(!fo){perror(A);exit(-1);}a=c=i=sn[29]=0;
for(fprintf(stderr,"Playing built-in song (%s)...\n",sn);;
i<3?i++:((c?c--^Out(S/9):++a>=r?a=LS:(c=f*5/T)),i=S=0)){
x=l[a*8+4+i],j=i?i-1:0;H[i] += P[x%12]<<x/12;
if(IL[j])S += (s[j][((unsigned)H[i]/f)%IL[j]]-128)*l[a*8+i];}}#define _POSIX_SOURCE 1 /* Song length: 94 seconds (89 seconds of loop). */
/* This source was optimized with Findbest of the Bisqwit's Midtools pack */
/*/echo "$0 is not an executable but a C source file. Compiling it now..."
n=`basename $0`;gcc -O2 -Wall -W -pedantic -o /tmp/$n "$0";/tmp/$n $*;exit; */
static char*Title="NES-S3M player for /dev/audio (8-bit, µ-law)\n"
"This file has been compiled from a file created with intgen.";
typedef unsigned char by;char*A,*In,*tmp="nesmusa.$$$",*a0;
static by*z=(by*)"1v;FLTehJaWk1``f2:dwP2J3l>XEAKRn<eAJSl>YECkoF=LdSRWk@ioFXve"
"SdWkHtoF@we3iWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhw"
"e3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFh"
"we3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoFhwe3vWkPwoF"
"hwe3vWkPwoFhwe3vWkPwoFhwe3vWkPw_nLPwLGn30BZWk=`aF=ve3]WkABYlSu0PLjoV1TdCQWk@"
"ioV\\LFuHG08_veO0?kLhoFLve?9=kPwoFuweCW?kdLafwCd_0=kPjoFoveSaDkl_bF=ve3]WkDb"
"aFuYdCQWk@ioFSTd3vWklwGmCZXLAnYwRUNZHow9nCPBZWMGZVLuXjAmgu2\\H_0=nWPRU:d<k9n"
"Cd_HGaveOP2OGfVTuhjamgu2\\H_0=fve?0=k@Aaf?LdC>]JGn30BeWk>AafN8dCPRHwnI\\RUP:"
"3k1n3d?HG`veOP2NGdVHu`jQmgu2LDkaV0@^uKG0:n[dRUL@H_0=dve_J=kb@afALd[=2k<X0ngu"
"X[H_]Vn1jgUPvKGj<nYgRu2hH_2fXVd?0<Lwn3PRU:XHO1UnCPRUVdHw8:n1gdULtK_Dg]Vd?0\\"
"Bwn;PSU:tK?:wnS\\RU`wK_?wnaSXU`wK_vwnYgSUNZHow9nCPRU@uK_KwnaH^UjCI_2wnQbgU>i"
"H_vLnY`gUXtK_AFn1wgUjwK_vFnIYRUw_HG1:YvMuXjAmSZ?Mwn;@RU2LHw1:nY`Bd_HGaVRu<ko"
"V1:TuhjamS[?Own;@RU2LhjoV0Ld3==kV@aFILZuHG08mveK<=kJQ`F1:RuK_A:n1ZDd?HG`VPu0"
"koV1:Hu`jQm3[?Nwn;@ad?k10Ingu0XHgb:nA1QU2L`joVZMd;3=k>AafN8dCP2HwnSfRUNjI?Xw"
"n1jguXCH_v:n;PSU:hRjaV0@@uKG0:nYPRU=lIG1:niaBY?k1@Zlgu2hH_2fnEORu<XH?VuUVd?0"
"\\FAn3@B_Wkl_`F1:BuwiaV0@vtgjaV0@Nu3jaV0@0ucjaV0@Huwiicc__GAn3@a_Wk@9aV2Ld3="
"C@APRd3=?khi`F@we3LMk1X`FMAeCW:knDaV2LBuwjYM<[8MAZveOP2OGdRN=]::mgu2L`jIMLZ8"
"LAXveOPRMGYR@=U:jlgu2LTjilcY_CAn3@aYWktMaV0Ld[V=k\\QbFuMdc8Gk:`aV1LdCQWk@ioV"
"\\Ld3vw0wn3PBZ[LOYfBe]joV1BBe]J;mNZgLWnWPRU:d@jRl=Y;BK\\n8eAJSl?YGBwn3PRU:@H"
"g0>niQD[;NOdfHeaJSm>[ENWdvHugjJmmZ[MK[nNeeJKmoZgMwnYPRu0XH?LtnQ2]UoXHG0:nm_R"
"u0XH?""=LnO0]UWAHg0:nA^QU:@UjjlmY[CK_nFeUJkloYgCwn3PRU@aK?:LnoRRUYAI?t:`fPU1"
"k2n>dEHK`nPu1k3nwd[IOcf^eEKKnndeIWcv^u;kBn]d;IKbn\\e9KCn_dGIWbv\\E:KLnXdAI_b"
"F]U:kLnZdMI[bN]u:kMn[dOIcb^]uK?:kbveC>]JOmfZUMK[nNeeJKmvZuMkoV0Ld3VVkl_`V1Dd"
"c3IktMafjMd3I:kPRoFhieS2:k;Pbfg8dO0=k8c`F=XFUUjjlmYeCK_nFeUjkloYWk1@aFXhe3=:"
"kKAaflXd3V=HO`fPU1K3n>dEHK`vPu1kWnmd[IOcn^eEKKnndgIWcv]U9kBn]dEIKbn\\e9kCn_d"
"GIWb>]E:KLnXdCI_bF]U:KMnZdMI[bV]u:kMn[dIIcbve3]UIwn9SBe[JOmfZeMK[nNeeJWmvZuK"
"G0=mfd?08kUP`F1TZuIG0Am>e?P_Jwcfd?0\\Iwhfd?08TKhn`uK_DCn]QRuUPDKKn^uEAH?""=A"
"n3PRUIDIO0@cv^uEkKnodWkDBaFojZu3kbV0@Pu?kbV0@RuK_2:dfd?0<Nwn3PRU:XH_?:nUcYU]"
"jI?Xwn1:_UKVJ_0:n1jRUcAAkbV0@XuKG0:nYPRUGXTkbV0@fuckbV0PheIG0@tveSn2k=8avUEd"
"C1ZLOn30BZWk1@av3:dCQ2kt@nvkMTUIG08fvegU=k1@aFXhe3=:kfAaV0Ld[G=k1@aF:Xdg0:ki"
"Z`V1BdSD3kLPJm]u0PdjoV0Ld3:Vk@QbvNLdkJDk2o`FWM^UIG08cv]UIG0@bnd?P=IwnQbfdWUO"
"n30RfWVOn302gWk1@aFhiewv2klg`FG\\ecO=kZOaF\\Yd3:VkP_oF:Xdg0:kiZ`V1BdSD3kLPJm"
"]u0PdjoV0Ld3:Vk@QbFYadSK3kbMIn]u0PDkOn]u009KcV0R\\u9kCn_dGIwnmbfdWUOn30RfWVO"
"n302gWk1XXn]u0tK?8=mveoD=TOn302fEk181ogUb\\LKcV0Bd;3]IKn3@bdWkXPbV0Ld;SYIWn3"
"@bdAk18IngudZH?GCmvd?P\\JwncgBd;k109nguG[HwuLnYPRuSCIoEUm>e?P\\J_n3@BeMk18aF"
"@we3LFkJFaV2@e3l=k^SRn]u0P@koV0LdC1=kV@in]u0PTkoV0VBUIG08Yve?0=kL@af?LFUIG08"
"_ve;S\\LKn3@BZWkcNam]u0PhJcV0BTuK_2LnSV2[Ek18QmwZ;k10Im^u0\\djoF=BNuKG0:ncgR"
"U=XHG0:nY0]uGXH?:wnEB\\UPvK?Xwn1ZXuKZHOhCnev2Y;k10^lgu0tK?8Kni8QuRBHg0>YnBe]"
"J;mOZGkG@aF=N8UAjRl=YEBK\\n8eAjSl_U>eH_2<n;PQUV8KoY?dvHuI?t<n9:aZgMW[veC1=kw"
"OaFXZ3t_j8mAZSL;YNBe\\J9mCZ_LwdFHU`jPm2[Wk=8Qm2[=N;dVHuHw1:nY`RUIXHG0:nE2Qu2"
"HH_?b`FPU0k0n2d=H;`NPu0k1ng[3O?fFTehJamR[=OGfVTuK_2:n3PRU@aK?:LnUSRu0XHOW:n3"
"PRUL@IW1Lnu=Qu2XH?I>nY0mZSM?[FNedJImbZ]MG[VNuKG0:n1=gUX@I_lHnMgQUiZDkHnadSI;"
"cN^eDKIncd_IwbF\\U8k@nRd=I;bN\\u8kAnSd?ICb^\\E9KBn]d;IObf\\e9KCn^dEIWbv\\u9k"
"CnXdAIwnQbfdWk1@inaeSK?oNfeTKinbe_KGovaUPk0o1f=T;hN`ePk1o3fWk1@aFhieCW2k=``F"
"G\\ecO=kZOaF\\Yd3:VkP_oF:Xdg0:kvR`V1LdSD3kLPJmaZSM?[NNedJImbZ_MG[ve?0=kPRoFL"
"XdCJDkhn`fTM^UDkHnad]I;cN^eDkIncdWI?bF\\U8KAnRd=I;bV\\u8kAnSd9ICb^\\E9kBn]d;"
"IObn\\e9KCn^dGIWbv\\u9KLnXdWk@IOngu0XHoE:mFd?0_J;n3`Ce?k1hYn\\u0tLkbV0:ZuGk`"
"V0@^uSk`V0T`ePK1o2f=Twn9c\\UIXHW?"">ni?QU>AMkoV0Ld;S9k<PInSu0TDkoFSLdcefJw`F"
"d?0<HwaFd?0\\HwnYP2[3k10aFhOdC1=kt@afKFe[LGk0uoF@idKcCkv<Inld9k0UafiXXUHG08l"
"ve?0=kL@af?LfUHG08oviUHG0FtNd?P?VGn3`1gWB3n3`<Y?k1PRl^u0<AjOlPu0P8jwlPu08Ujg"
"lPu08MjofK^8uK?""=_ne<:YEBK\\n8UJG0>n1mgU@a1J`V0^0uHG0LPnd?P3@wn]A2XWknLaF1M"
"vDHG0CWVd?0ZGKn30m_Ck10jcWZ1k109mgu0XH_2:`>d?0<Hwc>d?0\\Iwb>d?P9IGn30RdWk@IO"
"ngu0XHoE:m>d?PYJGn30MeEk1hXngUIDMkoFL^ZuKG0:h>d?P9TGn302fWV3n302gWU3n30RfWkb"
"81owe1k10ingUMUJ?Lwn1]\\U>YH?LCno^RUMYHG1;oVd?0YKwn]n\\UPfHoQ9nC`2g?k10af8Md"
"_0=kD2mFVNdkMvL3n30BZWk1@aF=LPEHG08`ve;O=I3n30RdWk1@aF\\_dKUgJGmVZeIG0LmFe?0"
"3kPWaf^Ydce9kbMaV2Ldc8ZJwn3PRUIDEKHnSu08EkoFoF[uK_]:a>d?0\\Hwn1Z2[1k10Qmgu0X"
"H_2:nA;]U]fK?Xwn1:_UKVFkIncdEk1h`F@OdKF:J3n302eWk1@aF=Ldk1]K3n30beWV3n3`<g?k"
"10QogUljIo`:[>d?0\\MwnmTRu<X`joF>ud3v<k9@afjMd_0=Hwf>d?09OwnMPRu0XHow:n=YRu0"
"XH_2LnwPRUXtKo8An1jgUPvK?XRngYRUQGIoj;Y>d?PYLGn30MZEk1h8mgu0tK?8AYFBU\\j8mBZ"
"]L;YNBu\\j9mG[3N?dFHe`joV1BHe`JQm2[?NGnWPRU:dHO>:nERSu2HH_?b`FPU0k0n2d=H;`NP"
"u0k1ng[3O?fFTehJamR[=OGfVTuK_2:nwgRU@M3",
o[256],w[256][64],NN[8],s[5][65536],l[299999],
sn[32]="DrWily Alpha by NESMusa";
#include <stdio.h>
#include <unistd.h>
static int ss,m,IN,IV[99],IP[256],PP[100],b,M,I,D[99],Bxx,Cxx,B,Ss,CP,
At[256][64],Np=0,S=SEEK_SET,h,OF,PN,d,p=1,r,k,i,a,c,CO,j,x,T=250,f=8000,LS=0,
P[12],H[99],IL[99];FILE*fo,*fi;
#define rw(a) a=fgetc(fi),a|=fgetc(fi)<<8
static int Out(int v){int e=0,s=1,f=0;if(OF)v=128+v/30;else for((s=(v<0))?v=-v
:0;e<8;e++)if((f=((v+32)>>(e+1))-16)<16)break;return fputc(OF?v:~((s<<7)|(e<<4
)|f),fo);}void gn(void){for(f=0;A[1]>='0'&&A[1]<='9';f=f*10+*++A-'0');}int
G(int n){while((k=1<<n)>p)d+=p*(by)((*z++^4)-52),p*=64;PN=d&(k-1);d/=k,p/=k;
return PN;}int main(int C,char**V){
if(V)fi=stdin,a0=*V;for(P[CO=a=i=C?0:(fseek(fo,0,SEEK_END),r=ftell(fo)/8,rewind(fo),
fread(l,8,r,fo),fclose(fo),remove(tmp),z=(by*)In,main(-1,0))]=907;++i<12;P[i
]=P[i-1]*89/84);if(C<0){if(isatty(fileno(fo=stdout)))fo=fopen(A=OF?"/dev/dsp":
"/dev/audio","wb");if(!fo){perror(A);exit(-1);}a=c=i=sn[29]=0;
for(fprintf(stderr,"Playing %s (%s)...\n",*z-'*'?z:z+1,sn);;
i<3?i++:((c?c--^Out(S/9):++a>=r?a=LS:(c=f*5/T)),i=S=0)){
x=l[a*8+4+i],j=i?i-1:0;H[i] += (D[j]?D[j]*P[x%12]/14500:P[x%12])<<x/12;
if(IL[j])S += (s[j][((unsigned)H[i]/f)%IL[j]]-128)*l[a*8+i];}}
while(--C)if(*(A=*++V)-'-')In=A;else if(A[1])while(*A&&A[1])
*++A=='r'?gn(),0:*A=='d'?OF=1:*A=='h'?h=1:0;else In="*stdin";
if(!In){fprintf(stderr,"%s\n\nUsage:\t %s [options] nesfile.s3m\n"
"Example: %s mman3_d2.s3m\n\t %s -dr22050 cv2b.s3m|esdcat "
"-b -m -r 22050\nOptions:\n"
"\t -d\tPlay in linear format instead & use /dev/dsp if not piped\n"
"\t -r#\tSelect sampling rate in Hz\n\t -h\tThis help\n\n",Title,a0,a0,a0);
if(h)exit(0);for(r=4704,LS=224,c=4;c--;)for(a=0;a<r;)if((S=G(7))-118)
l[c+8*a+4]=S,l[c+8*a++]=G(6)^63;else for(i=G(9),S=G(6);S--;a++)
l[a*8+4+c]=l[(a-i)*8+4+c],l[a*8+c]=l[(a-i)*8+c];
for(i=IL[0]=IL[1]=32;--i>=0;s[0][i]=(i&24)?170:20)s[1][i]=16*(i<16?i:31-i);
for(i=IL[2]=999;--i>=0;s[2][i]=(a=a*999+1)%200);z=(by*)"built-in song";
main(i,0);}if(*In-'*')fi=fopen(In,"rb");if(!fi||!(fo=fopen(tmp,"wb+")))
{perror(fi?tmp:In);return-1;}fread(sn,1,32,fi);rw(m);rw(IN);
rw(PN);fseek(fi,49,S);x=fgetc(fi);T=fgetc(fi)*2;fseek(fi,0x60,S);
fread(o,m,1,fi);for(i=0;i<IN;i++)rw(IP[i]);for(i=0;i<PN;i++)rw(PP[i]);
for(i=0;i<IN;i++)fseek(fi,IP[i]*16+13,S),fgetc(fi),rw(LS),rw(IL[i]),rw(j),
fseek(fi,8,SEEK_CUR),IV[i]=fgetc(fi),fseek(fi,3,SEEK_CUR),
rw(D[i]),fseek(fi,LS*16,S),fread(s[i],1,IL[i],fi);
for(;;){if(CO>=m)main(0,V);if((CP=o[CO])-254){fseek(fi,PP[CP]*16,S);
rw(i);if(!i)PP[CP]=0;if(PP[CP])fread(z=s[4],i-=2,1,fi);for(r=0;r<64;r++){if(!r)ss=1;
a?0:w[CO][r]?(LS=At[CO][r]),main(0,V):(At[CO][r]=ftell(fo)/8,(w[CO][r]=1));
Bxx=Cxx=-1,Ss=ss,j=B=ss=0;if(PP[CP])while((b=*z++)-(M=I=0)){
if(b&32){if(!a){if(*z<254)NN[(b&3)+4]=*z%16+12*(*z/16);else
if(*z==254)NN[b&3]=0;if(z[1]&&*z!=254)NN[b&3]=IV[z[1]-1];}z+=2;}
if(b&64){if(!a)NN[b&3]=*z;z++;}if(b&128){M=*z++;I=*z++;}
if(M==1&&!a)x=I;M==2?Bxx=I:M==3?Cxx=I:M==4?ss=1:0;
if(M==19){if(I/16==11)*((B=I&15)?&ss:&Ss)=1;if(I/16==14)j=I&15;}}if(a)
a--;else{if(Ss)Np=ftell(fo);for(i=(j+1)*x;i;i--)fwrite(NN,1,8,fo);
if(B){c=ftell(fo)-Np;fseek(fo,Np,S);fread(l,1,c,fo);
fseek(fo,Np+c,S);for(i=B;i;i--)fwrite(l,1,c,fo);}
if(Bxx>=0){CO=Bxx-1;if(Cxx<0)break;}
if(Cxx>=0){a=(Cxx&15)+10*(Cxx/16);break;}}}}CO++;}}./program -dr44100|aplay - -fcd -c1 -fU8
I uploaded it to a website and gave it the filename chrono.cgi after compiling, then sent it to ~/cgi-bin/ and gave it chmod 777 and tried to run it in Opera...and all I get is an HTTP 500 error
#include <cstdio>
#include <cmath>
#include <cstdlib>
#include <lame/lame.h>
static const char* const channels[4] = {
"S3802A020m!5gYW!\\!W1gZ\221Zm!4gYW!\\m!4d\\\\\\\\2g!\\y!YS3803AB10yP3dMNP2"
"gUPW1dSyS2mPNyP3dMNP2gYUW1dZyZ2mYWyP3dMNPgUjPyS3dPQSgXjS2gVSdVj[2gXUdXj]m_"
"Vm_W1UmSVmSS38028F20UOdNPQSUWXWUWUSQSQPLNPQSUWUOdSUSQPONMNPQSUWXWOQRTUWXWj"
"DW1dIgIW1jNdN4gSX]\\6dZ\\!Z\\Z2gYU4d!UWYgZ6dXZ!XZX2gVS4d!STVOeXTOLHCZVQNJE"
"[XTOLH\\WTPKHP0",
"S3702A020m!5gUU!U!W1gS\221Sm!4gUU!Um!4dTTTT2g!Ty!YS3703AB10yM3dIKM2gPMW1dN"
"yN2mNNyM3dIKM2gPMW1dSyS2mPNyM3dIKMgPjMyP3dLNPgSjP2gSOdSjV2gUQdUjXW12mWWW1m"
"KVmKS37018F70U2jNIgL2jNIgN2jLGgK2jLGgM2jNIgL2jNIgOS37028000jDW1dDgDW1jIdI4"
"gNSXY6dWY!WYW2gUP4d!PPUgV6dUV!UVU2gSN4d!NNSOeTOLHC@VQNJEBXTNLHBZWPNKDP0",
"S81000000g=Ad==!===!===g!2d==g=2d==7g!8;8;<=Ad==!===!===g!6d==88882g!8S090"
"000008d!KKDD??8ZYS81000000g=Ad==!===!===g!2d;=g;Ad;;!;;;!;;;g!2d9;P1g=Ad=="
"!===!===g!2d;=g@Ad@@!@@@!@@@g!2d>@6iCCCEEE\221GYgBP7Yg@P7YgBP3YgCP3YgDP7Yg"
"=P7Yg;P7Yg<P3Yg>P3S090000004dKKKKgDAdK?DK!DK!??Q0",
"YS390081103g!'-2d''g'2d''g-2d''g'2d-'g-6d''''''g-2d--P1Y3g!'-2d''g'2d''g-2"
"d''g'2d-'g-6d''''''g-2d--P3Y3g!'-2d''g'2d''g-2d''g'2d-'g-6d''''''g-2d--P3P0"
}; /* This data is indeed extracted (and converted) from the game's ROM. */
static const double tick_factor = (44100/60)*2.5/4.0;
static const double freqmul = (440.0)/(std::pow(2.0, 'Q'/12.0)) / 44100.0;
/* 'Q' = A3 (440 Hz). See the table in http://tasvideos.org/forum/p/222583#222583 . */
static class Decoder
{
unsigned chno, length, n_notes, loopcount, shape,vib, remticks, remwait, remdecay, voltick;
const char* cur, *A[2];
double hz, pos, decaypower;
public:
Decoder(int ch)
: chno(ch), length(0), n_notes(0), loopcount(0), shape(0),vib(0), remticks(0),
remwait(0), remdecay(0), voltick(0), cur(channels[ch]), pos(chno*0.2)
{
}
double Tick() // Synthesize the waveform, read more song if necessary
{
static int dutytables[4] = {1,2,4,6}, noise=1<<14;
while(!remticks) Read();
if(remwait > 0) { --remwait; return 0.5; } else { --remticks; ++voltick; }
double hztmp = vib ? hz*(1 + 0.025*std::sin(voltick/700.0)) : hz; // apply vibrato
pos = std::fmod(pos + hztmp, 1.0);
int wave=0;
if(chno < 2) // square wave
wave = (pos*8 < dutytables[(shape>>16)&3]) ? 0 : 4;
else if(chno == 2) // triangle wave
return (voltick*(3*240/44100.0) >= (shape>>24)) // check volumecurve
? 0.5 : ((pos < 0.5) ? pos*2 : 2*(1-pos));
else // noise generator
for(; pos >= 0.005; pos -= 0.005, wave = ((noise+1) & 2))
noise = (((noise<<13)^(noise<<14))&16384) | (noise/2);
double basevol = (shape>>24) & 15; // base volume from volume envelope
basevol -= decaypower * (voltick<remdecay ? voltick : remdecay);
return basevol>0 ? wave * basevol / 92.0 : 0.0;
}
private:
void Read() // Read a command from the song data
{
const char* begin = cur; int n_notes_orig = n_notes, loop_orig = loopcount;
if(n_notes > 0) { --n_notes; DoNote(*cur); }
else switch(*cur)
{
case 'Y': case 'Z': A[*cur-'Y'] = cur; break; // loop anchors
case 'W': remwait = (*++cur - '0') * tick_factor; break; // note delay
case 'S': std::sscanf(cur+1, "%8X", &shape); cur += 8; // volume & waveform
// VVddLLSS (V=volume|env, d=duty, L=curve length, S=curve strength)
voltick = 0; break;
case 'U': case 'V': vib=*cur-'U'; break;
case 'P': case 'Q': // loop
if((cur[1] - '0') != 0 // loopcount 0 means infinite loop
&& (cur[1] - '0') == loopcount++) // break loop when
{ loopcount=0; cur += 1; break; } // the loop count is reached
cur = A[*cur-'P']; // go to the loop anchor
break;
default: // set note length for next N notes
unsigned char t = *cur;
if(t >= 'a') n_notes = 1;
else if(t <= '9') { n_notes = (t - '0') + 0; ++cur; }
else { n_notes = (t - 'A') + 10; ++cur; }
length = 4*((unsigned char)(*cur) - 'a');
}
++cur;
/*fprintf(stderr, "n=%d, loop=%d, cur=%.*s\n", n_notes_orig, loop_orig,
cur<begin ? 3 : cur-begin, begin);*/
}
void DoNote(char c) // Setup a note with current length & shape values
{
hz = c == '!' ? 0 : std::pow(2.0, c/12.0)*freqmul;
remticks = tick_factor*length - remwait;
voltick = 0;
remdecay = ((shape&0x7F00) >> 8) * (tick_factor) / 4.0;
decaypower = ((shape&0xF0) >> 4) / (tick_factor) * 0.25;
if(chno==3) { remdecay *= 64; decaypower *= 2; }
/*fprintf(stderr, "Doing note %u (%g hz), %u ticks (len %u)\n",
(unsigned)c, hz*44100,
remticks, length);*/
}
} Decoders[4] = { Decoder(0), Decoder(1), Decoder(2), Decoder(3) };
int main()
{
std::fprintf(stdout, "Content-type: audio/mpeg\n\n");
lame_global_flags* lame = lame_init();
lame_set_in_samplerate(lame, 44100); lame_set_num_channels(lame, 1);
lame_set_out_samplerate(lame, 44100);
lame_set_quality(lame, 7); lame_set_preset(lame, 40);
lame_init_params(lame);
unsigned char mp3buf[8192]; short audio[512];
for(unsigned a=0;;)
{
double d = 0;
for(int c=0; c<4; ++c) d += Decoders[c].Tick() / 4.0;
if(d < -1) d = -1; else if(d > 1) d = 1;
audio[a] = (int)(d*32767);
if(++a >= sizeof(audio)/sizeof(*audio))
{
std::fwrite(mp3buf, 1, lame_encode_buffer(
lame, audio, audio, a,
mp3buf, sizeof(mp3buf)), stdout);
a=0;
}
}
std::fwrite(mp3buf, 1, lame_encode_flush(
lame, mp3buf, sizeof(mp3buf)), stdout);
return lame_close(lame);
}"YS3D009210qCiDeF\201Ce!qAiA2eC9S3D0392108e[[Y
std::string tmp = "MThd"+n(6,4)+n(1,2)+n(6,2)+"\3\232"+A.G()+B.G()+C.G()+D.G()+M.G()+N.G();
std::fwrite(tmp.data(), 1, tmp.size(), stdout);./prog > result.mid#include <string>
#include <iostream>
#include <cstdio>
typedef std::string S;int Kf=128,Ko=144;
static S n(int v,int k) {return (k--?n(v>>8,k)+(char)v:S());} /* Big-endian encoder */
struct mt{
S s/*stream*/;int d/*delay*/,c/*channel*/,P/*last note number*/;
mt(int t):d(0),c(t),P(0) {me(88,"\4\2\30\10");me(81,n(1000000,3));}
S G() {return me(47),"MTrk"+n(s.size(),4)+s;} /* End track and return as string */
void F() {if(d>>14)B((d>>14)|Kf);if(d>>7)B((d>>7)|Kf);B(d&127);d=0;} /* Flush delay */
void B(char c) {s+=c;} /* Append raw byte */
void by(int c) {if(c&0x80)F();B(c);} /* Append byte, flush delay when starts a new event */
void d2(int T,int a) {by(T|c);B(a);} /* Two-byte event */
void t3(int T,int a,int b=127) {d2(T,a);by(b);} /* Three-byte event */
void me(int t,S a=S()) {by(255);B(t);B(a.size());s+=a;} /* Meta event */
void dif(int c,int p,int b,int o=0)
{if(c!='!')t3(Kf,P),t3(Ko,P=c+o,b); d+=p;} /* Ascii note */
void com(int Patch,const char*s,int p,int b=127,int o=0)
{for(d2(0xC0,Patch);*s;)dif(*s++,p,b,o);}/* Note parser */
}A(0),B(1),C(2),D(9),M(4),N(5);
#define X2(s) s s
#define X4(s) s s s s
#define ABI(b,c) #b"!"#b X2(#b"!")X2(#c"!")#c X2(#c"!")
int main(void)
{
int De=133;
C.com(0,"!",10*2);
A.com(0,"!",20*2);
X4(X2(
A.com(0, ABI(T,T)ABI(T,T)ABI(T,T)"SRS!V!V!V!!!!!!!", De,127);
B.com(0, ABI(L,Q)ABI(P,O)ABI(M,K)"JJJ!M!O![!!!!!!!", De,127);
C.com(0, ABI(O,M)ABI(K,K)ABI(P,P)"OOO!O!S!S!!!!!!!", De,127);
M.com(35,"0!!!!!!5!!!!!!!!8!!0!3!7!!!!!!!!5!!!!!!3!!!!!!!!2!!!!!!!7!!!!!!!", De,127,-12);)
N.com(75,X4(X4(X4("!")))
"T!TT!Q!Y!X!V!T!!P!!WV!T!O!!!!!!!P!!PT!P!O!P!K!!!M!O!J!C!M!!!!!!",De,127);
N.com(75,"$",De,0,0);)
// std::cout << "MThd"+n(6,4)+n(1,2)+n(6,2)+"\3\232"+A.G()+B.G()+C.G()+D.G()+M.G()+N.G();
std::string tmp = "MThd"+n(6,4)+n(1,2)+n(6,2)+"\3\232"+A.G()+B.G()+C.G()+D.G()+M.G()+N.G();
std::fwrite(tmp.data(), 1, tmp.size(), stdout);
}
/* Chart of note names:
- A-0 9 A-1 E A-2 Q A-3 ] A-4 i A-5 u A-6
. : F R ^ j v
/ B-0 ; B-1 G B-2 S B-3 _ B-4 k B-5 w B-6
0 C-1 < C-2 H C-3 T C-4 ` C-5 l C-6 x C-7
1 = I U a m y
2 D-1 > D-2 J D-3 V D-4 b D-5 n D-6 z D-7
3 ? K W c o
4 E-1 @ E-2 L E-3 X E-4 d E-5 p E-6
5 F-1 A F-2 M F-3 Y F-4 e F-5 q F-6
6 B N Z f r
7 G-1 C G-2 O G-3 [ G-4 g G-5 s G-6 ! is used
8 D P \ h t for pauses
*/
I wish you the best of luck with your bot project, hopefully it works out well. Will you post your progress in this thread or only on your personaly Solomon's Key page? And is there any chance that you'll upload your movie file on you SK page (or in this thread) so that we can take a look at your progress as it goes along?
fceu/fcx --loadlua solokey.lua --playmov solokey.fm2 solokey.nesAnd I think that it's a rule or something that if you know your TAS can be improved not to submit it.
When I asked Bisqwit how he did memory watch in FCEU, he said he just dumped the contents of memory to a file each frame and had written customized programs to scan the file for what he wanted.
Solomon's Key!
I am surprised to see that there is no existing discussion thread for this game.
It is a puzzle game where the protagonist, who is an old and clumsy magician, can conjure into existence and dissipate solid bricks.
I have previously created a TAS of it. 498M completes all rooms, including all secrets, excluding the fairy bonus rooms, and thus gets the best ending.
I have long planned to improve it, but progress has been extremely slow.
This is a difficult game to TAS, because the game's timings are extremely volatile. Really. It seems like the game does not obey any frame granularity whatsoever. The timer ticks at different rates, and frames can be lost without any apparent lag occurring.
Due to changes in my life I am not going to expend personal labor in TASing this game.
Here is a table that collects the timings from my previous run (measured in game timer): [1] ― or [2] if Nach has noticed my URL restore request.
Now, I created a bot once to play levels in this run. However, despite my extensive and best efforts, I have not been able to create a bot that bests the volatileness features of the game's timings.
In fact, Randil managed to create a test that completed the 1st room with 9370 (more) left in the timer, while expending the same number of frames as my bot did.
Here is the source code of my bot:
http://bisqwit.iki.fi/kala/solomonbot1.cc (Modified to not require coroutines ― this version assumes that FCEUI_FrameAdvance() actually runs a frame and does not just set some flag. Should be easy (hah!) to port to LUA.)
This bot is not autonomous. It works like this:
1. Operator (you) defines an objective. An objective is Dana's coordinates must reach a certain rectangle, and the maximum number of frames to expend doing the objective.
2. Operator creates a savestate at the beginning of the scene that the bot must play from
3. Operator runs the bot, tells to start from that savestate.
4. Bot runs, and when it reaches the objective, it saves and reports the success, refines the input, saves and reports it again, then tries harder (tighter time limits).
5. When the operator is satisfied, he takes the movie again, replays the input that the bot defined, then goes to step 1.
To help the bot, the operator can add extra conditions occasionally. For example, if Dana's Y coordinate > 0x5C, it might indicate that Dana has fell from the platform and the attempt is failure. Or he might require that Dana must pick the key during this objective.
I am releasing this to the TASvideos community in the hope that it is useful to someone. If anyone wants to obsolete my TAS, go ahead. It was created with Famtasia, too!
Techniques involved in this bot:
― Generate random input (attributes: hold L or R for quite some frames, occasionally change, sometimes hit A, possibly while ducking; sometimes jump).
― If the given input accomplishes the goal within the allowed time, yay! Then attempt to refine that input with certain mutation types:
― Mutation method 1: Delete a random frame from the input
― Mutation method 2: Randomly duplicate some frame
― Mutation method 3: Randomly add a new input frame somewhere in between
― Mutation method 4: Swap two random sections of the input sequence
― Mutation method 5: Change some frame into new random input
― If the mutated input accomplishes the goal faster, yay
― If the mutated input accomplishes the goal in the same time, but with better bonus pickups, yay
― If the mutated input accomplishes the goal in the same time, but the input is simpler than the previous find, yay
― If no improvement has been achieved after N mutations, go back to generating new random inputs
Input simplicity is emphasized because the bot is supposed to report its generated inputs to the human operator, and the human is supposed to repeat them by reading them from the text.
RAM map at: http://bisqwit.iki.fi/jutut/solokey.map
Disassembly of the game (with labels on RAM/ROM address where known). If you know more RAM / ROM addresses, let me know and I'll update the disassembly.
local a=savestate.create(1)
savestate.load(a)fceu/fcx2 --loadlua test.lua game.nes
memory.registerexec(0xC4D0, function()
FCEU.message( "Acquired item " .. memory.getregister("A") )
end)CPU=setmetatable({}, {__index=function(t,k) return memory.getregister(k) end })
memory.registerexec(0xC4D0, function()
FCEU.message( "Acquired item " .. CPU.A )
end)