Transliterate BASIC code

This commit is contained in:
Andrew Cooper
2022-04-27 03:17:22 +10:00
parent 62a4d0b5f1
commit 1139eb9cd9

View File

@@ -5,15 +5,609 @@ internal class Game
private readonly IReadWrite _io;
private readonly IRandom _random;
private class FloatArray
{
private float[] _values;
public FloatArray(float[] values)
{
_values = values;
}
public float this[float index]
{
get => _values[(int)index];
set => _values[(int)index] = value;
}
}
private readonly FloatArray AA = new(new float[51]); // 10 DIM A(50),B(15)
private readonly FloatArray BB = new(new float[16]);
private float O = 1; // 90 = 120
private float C = 200;
private float S = 200;
private float P = 0;
private float B;
private float M;
private float T;
private float D;
private float G;
private float I;
private float N;
private float U;
private float Z;
private float X;
private float K;
private float V;
private float Q;
private string JS;
private string KS;
private string HS;
private string IS;
public Game(IReadWrite io, IRandom random)
{
_io = io;
_random = random;
}
private float FNA() => (int)_random.NextFloat(10); // 20 DEF FNAA[X]=(int)(10*_random.NextFloat())
private float FNB(float x) => x - 100 * (int)(x / 100); // 30 DEF FNB(X)=X-100*(int)(X/100)
internal void Play()
{
_io.Write(Resource.Streams.Title);
_io.Write(Resource.Streams.Instructions);
_90: O=1;
_100: C=200;
_110: S=200;
while(PlayHand());
}
internal bool PlayHand()
{
_120: P=0;
_140: _io.WriteLine();
_150: if (C<=5) { Line_3670(); return false; }
_160: _io.WriteLine("THE ANTE IS $5. I WILL DEAL:");
_170: _io.WriteLine();
_180: if (S>5) { goto _200; }
_190: if (Line_3830()) { return false; }
_200: P=P+10;
_210: S=S-5;
_220: C=C-5;
_230: for (Z=1; Z <= 10; Z++)
{
_240: Line_1740();
}
_260: _io.WriteLine("YOUR HAND:");
_270: N=1;
_280: Line_1850();
_290: N=6;
_300: I=2;
_310: Line_2170();
_320: _io.WriteLine();
_330: if (I!=6) { goto _470; }
_340: if (FNA()<=7) { goto _370; }
_350: X=11100;
_360: goto _420;
_370: if (FNA()<=7) { goto _400; }
_380: X=11110;
_390: goto _420;
_400: if (FNA()>=1) { goto _450; }
_410: X=11111;
_420: I=7;
_430: Z=23;
_440: goto _580;
_450: Z=1;
_460: goto _510;
_470: if (U>=13) { goto _540; }
_480: if (FNA()>=2) { goto _500; }
_490: goto _420;
_500: Z=0;
_510: K=0;
_520: _io.WriteLine("I CHECK.");
_530: goto _620;
_540: if (U<=16) { goto _570; }
_550: Z=2;
_560: if (FNA()>=1) { goto _580; }
_570: Z=35;
_580: V=Z+FNA();
_590: if (Line_3480()) { return false; }
_600: _io.WriteLine($"I'LL OPEN WITH ${V}");
_610: K=V;
_620: if (Line_3050()) { return false; }
_630: var response = Line_650();
if (response.HasValue) { return response.Value; }
_640: goto _820;
bool? Line_650()
{
_650: if (I!=3) { return Line_760(); }
_660: _io.WriteLine();
return Line_670();
}
bool? Line_670()
{
_670: _io.WriteLine("I WIN.");
_680: C=C+P;
return Line_690();
}
bool? Line_690()
{
_690: _io.WriteLine($"NOW I HAVE ${C}AND YOU HAVE ${S}");
_700: _io.Write("DO YOU WISH TO CONTINUE");
_710: HS = _io.ReadString("");
_720: if (HS=="YES") { return true; }
_730: if (HS=="NO") { return false; }
_740: _io.WriteLine("ANSWER YES OR NO, PLEASE.");
_750: goto _700;
}
bool? Line_760()
{
_760: if (I!=4) { return Line_810(); }
_770: _io.WriteLine();
return Line_780();
}
bool? Line_780()
{
_780: _io.WriteLine("YOU WIN.");
_790: S=S+P;
_800: return Line_690();
}
bool? Line_810()
{
_810: return null;
}
_820: _io.WriteLine();
_830: _io.Write("NOW WE DRAW -- HOW MANY CARDS DO YOU WANT");
_840: T = _io.ReadNumber("");
_850: if (T==0) { goto _980; }
_860: Z=10;
_870: if (T<4) { goto _900; }
_880: _io.WriteLine("YOU CAN'T DRAW MORE THAN THREE CARDS.");
_890: goto _840;
_900: _io.WriteLine("WHAT ARE THEIR NUMBERS:");
_910: for (Q=1; Q <= T; Q++)
{
_920: U = _io.ReadNumber("");
_930: Line_1730();
}
_950: _io.WriteLine("YOUR NEW HAND:");
_960: N=1;
_970: Line_1850();
_980: Z=10+T;
_990: for (U=6; U <= 10; U++)
{
_1000: if ((int)(X/Math.Pow(10, U-6))!=10*(int)(X/Math.Pow(10, U-5))) { goto _1020; }
_1010: Line_1730();
_1020: ;
}
_1030: _io.WriteLine();
_1040: _io.Write($"I AM TAKING{Z-10-T}CARD");
_1050: if (Z==11+T) { goto _1090; }
_1060: _io.WriteLine("S");
_1070: _io.WriteLine();
_1080: goto _1100;
_1090: _io.WriteLine();
_1100: N=6;
_1110: V=I;
_1120: I=1;
_1130: Line_2170();
_1140: B=U;
_1150: M=D;
_1160: if (V!=7) { goto _1190; }
_1170: Z=28;
_1180: goto _1330;
_1190: if (I!=6) { goto _1220; }
_1200: Z=1;
_1210: goto _1330;
_1220: if (U>=13) { goto _1270; }
_1230: Z=2;
_1240: if (FNA()!=6) { goto _1260; }
_1250: Z=19;
_1260: goto _1330;
_1270: if (U>=16) { goto _1320; }
_1280: Z=19;
_1290: if (FNA()!=8) { goto _1310; }
_1300: Z=11;
_1310: goto _1330;
_1320: Z=2;
_1330: K=0;
_1340: if (Line_3050()) { return false; }
_1350: if (T!=.5) { goto _1450; }
_1360: if (V==7) { goto _1400; }
_1370: if (I!=6) { goto _1400; }
_1380: _io.WriteLine("I'LL CHECK");
_1390: goto _1460;
_1400: V=Z+FNA();
_1410: if (Line_3480()) { return false; }
_1420: _io.WriteLine($"I'LL BET ${V}");
_1430: K=V;
_1440: if (Line_3060()) { return false; }
_1450: response = Line_650();
if (response.HasValue) { return response.Value; }
_1460: _io.WriteLine();
_1470: _io.WriteLine("NOW WE COMPARE HANDS:");
_1480: JS=HS;
_1490: KS=IS;
_1500: _io.WriteLine("MY HAND:");
_1510: N=6;
_1520: Line_1850();
_1530: N=1;
_1540: Line_2170();
_1550: _io.WriteLine();
_1560: _io.Write("YOU HAVE ");
_1570: K=D;
_1580: Line_3690();
_1590: HS=JS;
_1600: IS=KS;
_1610: K=M;
_1620: _io.Write("AND I HAVE ");
_1630: Line_3690();
_1640: if (B>U) { return Line_670().Value; }
_1650: if (U>B) { return Line_780().Value; }
_1660: if (HS=="A FLUS") { goto _1700; }
_1662: if (FNB(M)<FNB(D)) { return Line_780().Value; }
_1664: if (FNB(M)>FNB(D)) { return Line_670().Value; }
_1670: _io.WriteLine("THE HAND IS DRAWN.");
_1680: _io.WriteLine($"ALL ${P}REMAINS IN THE POT.");
_1690: goto _140;
_1700: if (FNB(M)>FNB(D)) { return Line_670().Value; }
_1710: if (FNB(D)>FNB(M)) { return Line_780().Value; }
_1720: goto _1670;
void Line_1730()
{
_1730: Z=Z+1;
Line_1740();
}
void Line_1740()
{
_1740: AA[Z]=100*(int)(4*_random.NextFloat())+(int)(100*_random.NextFloat());
_1750: if ((int)(AA[Z]/100)>3) { goto _1740; }
_1760: if (AA[Z]-100*(int)(AA[Z]/100)>12) { goto _1740; }
_1765: if (Z==1) { goto _1840; }
_1770: for (K=1; K <= Z-1; K++)
{
_1780: if (AA[Z]==AA[K]) { goto _1740; }
}
_1800: if (Z<=10) { goto _1840; }
_1810: N=AA[U];
_1820: AA[U]=AA[Z];
_1830: AA[Z]=N;
_1840: return;
}
void Line_1850()
{
_1850: for (Z = N; Z <= N+4; Z++)
{
_1860: _io.Write($"{Z}-- ");
_1870: Line_1950();
_1880: _io.Write(" OF");
_1890: Line_2070();
_1900: if (Z/2!=(int)(Z/2)) { goto _1920; }
_1910: _io.WriteLine();
_1920: ;
}
_1930: _io.WriteLine();
_1940: return;
}
void Line_1950()
{
_1950: K=FNB(AA[Z]);
Line_1960();
}
void Line_1960()
{
_1960: if (K!=9) { goto _1980; }
_1970: _io.Write("JACK");
_1980: if (K!=10) { goto _2000; }
_1990: _io.Write("QUEEN");
_2000: if (K!=11) { goto _2020; }
_2010: _io.Write("KING");
_2020: if (K!=12) { goto _2040; }
_2030: _io.Write("ACE");
_2040: if (K>=9) { goto _2060; }
_2050: _io.Write(K+2);
_2060: return;
}
void Line_2070()
{
_2070: K=(int)(AA[Z]/100);
Line_2080();
}
void Line_2080()
{
_2080: if (K!=0) { goto _2100; }
_2090: _io.Write(" CLUBS");
_2100: if (K!=1) { goto _2120; }
_2110: _io.Write(" DIAMONDS");
_2120: if (K!=2) { goto _2140; }
_2130: _io.Write(" HEARTS");
_2140: if (K!=3) { goto _2160; }
_2150: _io.Write(" SPADES");
_2160: return;
}
void Line_2170()
{
_2170: U=0;
_2180: for (Z=N; Z <= N+4; Z++)
{
_2190: BB[Z]=FNB(AA[Z]);
_2200: if (Z==N+4) { goto _2230; }
_2210: if ((int)(AA[Z]/100)!=(int)(AA[Z+1]/100)) { goto _2230; }
_2220: U=U+1;
_2230: ;
}
_2240: if (U!=4) { goto _2310; }
_2250: X=11111;
_2260: D=AA[N];
_2270: HS="A FLUS";
_2280: IS="H IN";
_2290: U=15;
_2300: return;
_2310: for (Z=N; Z <= N+3; Z++)
{
_2320: for (K=Z+1; K <= N+4; K++)
{
_2330: if (BB[Z]<=BB[K]) { goto _2390; }
_2340: X=AA[Z];
_2350: AA[Z]=AA[K];
_2360: BB[Z]=BB[K];
_2370: AA[K]=X;
_2380: BB[K]=AA[K]-100*(int)(AA[K]/100);
_2390: ;
}
}
_2410: X=0;
_2420: for (Z=N; Z <= N+3; Z++)
{
_2430: if (BB[Z]!=BB[Z+1]) { goto _2470; }
_2440: X=X+11*(float)Math.Pow(10, Z-N);
_2450: D=AA[Z];
_2460: Line_2760();
_2470: ;
}
_2480: if (X!=0) { goto _2620; }
_2490: if (BB[N]+3!=BB[N+3]) { goto _2520; }
_2500: X=1111;
_2510: U=10;
_2520: if (BB[N+1]+3!=BB[N+4]) { goto _2620; }
_2530: if (U!=10) { goto _2600; }
_2540: U=14;
_2550: HS="STRAIG";
_2560: IS="HT";
_2570: X=11111;
_2580: D=AA[N+4];
_2590: return;
_2600: U=10;
_2610: X=11110;
_2620: if (U>=10) { goto _2690; }
_2630: D=AA[N+4];
_2640: HS="SCHMAL";
_2650: IS="TZ, ";
_2660: U=9;
_2670: X=11000;
_2680: goto _2740;
_2690: if (U!=10) { goto _2720; }
_2700: if (I==1) { goto _2740; }
_2710: goto _2750;
_2720: if (U>12) { goto _2750; }
_2730: if (FNB(D)>6) { goto _2750; }
_2740: I=6;
_2750: return;
}
void Line_2760()
{
_2760: if (U>=11) { goto _2810; }
_2770: U=11;
_2780: HS="A PAIR";
_2790: IS=" OF ";
_2800: return;
_2810: if (U!=11) { goto _2910; }
_2820: if (BB[Z]!=BB[Z-1]) { goto _2870; }
_2830: HS="THREE";
_2840: IS=" ";
_2850: U=13;
_2860: return;
_2870: HS="TWO P";
_2880: IS="AIR, ";
_2890: U=12;
_2900: return;
_2910: if (U>12) { goto _2960; }
_2920: U=16;
_2930: HS="FULL H";
_2940: IS="OUSE, ";
_2950: return;
_2960: if (BB[Z]!=BB[Z-1]) { goto _3010; }
_2970: U=17;
_2980: HS="FOUR";
_2990: IS=" ";
_3000: return;
_3010: U=16;
_3020: HS="FULL H";
_3030: IS="OUSE, ";
_3040: return;
}
bool Line_3050()
{
_3050: G=0;
return Line_3060();
}
bool Line_3060()
{
_3060: _io.WriteLine();
_io.Write("WHAT IS YOUR BET");
_3070: T = _io.ReadNumber("");
_3080: if ((T-(int)T)==0) { goto _3140; }
_3090: if (K!=0) { goto _3120; }
_3100: if (G!=0) { goto _3120; }
_3110: if (T==.5) { return Line_3410(); }
_3120: _io.WriteLine("NO SMALL CHANGE, PLEASE.");
_3130: goto _3060;
_3140: if (S-G-T>=0) { goto _3170; }
_3150: if (Line_3830()) { return true; }
_3160: goto _3060;
_3170: if (T!=0) { goto _3200; }
_3180: I=3;
_3190: return Line_3380();
_3200: if (G+T>=K) { goto _3230; }
_3210: _io.WriteLine("IF YOU CAN'T SEE MY BET, THEN FOLD.");
_3220: goto _3060;
_3230: G=G+T;
_3240: if (G==K) { return Line_3380(); }
_3250: if (Z!=1) { return Line_3420(); }
_3260: if (G>5) { goto _3300; }
_3270: if (Z>=2) { return Line_3350(); }
_3280: V=5;
_3290: return Line_3420();
_3300: if (Z==1) { goto _3320; }
_3310: if (T<=25) { return Line_3350(); }
_3320: I=4;
_3330: _io.WriteLine("I FOLD.");
_3340: return false;
}
bool Line_3350()
{
_3350: if (Z==2) { return Line_3430(); }
return Line_3360();
}
bool Line_3360()
{
_3360: _io.WriteLine("I'LL SEE YOU.");
_3370: K=G;
return Line_3380();
}
bool Line_3380()
{
_3380: S=S-G;
_3390: C=C-K;
_3400: P=P+G+K;
return Line_3410();
}
bool Line_3410()
{
_3410: return false;
}
bool Line_3420()
{
_3420: if (G>3*Z) { return Line_3350(); }
return Line_3430();
}
bool Line_3430()
{
_3430: V=G-K+FNA();
_3440: if (Line_3480()) { return true; }
_3450: _io.WriteLine($"I'LL SEE YOU, AND RAISE YOU{V}");
_3460: K=G+V;
_3470: return Line_3060();
}
bool Line_3480()
{
_3480: if (C-G-V>=0) { goto _3660; }
_3490: if (G!=0) { goto _3520; }
_3500: V=C;
_3510: return false;
_3520: if (C-G>=0) { return Line_3360(); }
_3530: if (O % 2 != 0) { goto _3600; }
_3540: _io.Write("WOULD YOU LIKE TO BUY BACK YOUR WATCH FOR $50");
_3550: JS = _io.ReadString("");
_3560: if (JS[0]=='N') { goto _3600; }
_3570: C=C+50;
_3580: O=O/2;
_3590: return false;
_3600: if (O % 3!= 0) { return Line_3670(); }
_3610: _io.Write("WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR $50");
_3620: JS = _io.ReadString("");
_3630: if (JS[0]=='N') { return Line_3670(); }
_3640: C=C+50;
_3650: O=O/3;
_3660: return false;
}
bool Line_3670()
{
_3670: _io.WriteLine("I'M BUSTED. CONGRATULATIONS!");
_3680: return true; // STOP
}
void Line_3690()
{
_3690: _io.Write($"{HS}{IS}");
_3700: if (HS!="A FLUS") { goto _3750; }
_3710: K=K/100;
_3720: Line_2080();
_3730: _io.WriteLine();
_3740: return;
_3750: K=FNB(K);
_3760: Line_1960();
_3770: if (HS=="SCHMAL") { goto _3790; }
_3780: if (HS!="STRAIG") { goto _3810; }
_3790: _io.WriteLine(" HIGH");
_3800: return;
_3810: _io.WriteLine("'S");
_3820: return;
}
bool Line_3830()
{
_3830: _io.WriteLine();
_3840: _io.WriteLine("YOU CAN'T BET WITH WHAT YOU HAVEN'T GOT.");
_3850: if (O/2 == (int)(O/2)) { goto _3970; }
_3860: _io.Write("WOULD YOU LIKE TO SELL YOUR WATCH");
_3870: JS = _io.ReadString("");
_3880: if (JS[0]=='N') { goto _3970; }
_3890: if (FNA()>=7) { goto _3930; }
_3900: _io.WriteLine("I'LL GIVE YOU $75 FOR IT.");
_3910: S=S+75;
_3920: goto _3950;
_3930: _io.WriteLine("THAT'S A PRETTY CRUMMY WATCH - I'LL GIVE YOU $25.");
_3940: S=S+25;
_3950: O=O*2;
_3960: return false;
_3970: if (O/3 != (int)(O/3)) { goto _4090; }
_3980: _io.WriteLine("WILL YOU PART WITH THAT DIAMOND TIE TACK");
_3990: JS = _io.ReadString("");
_4000: if (JS[0]=='N') { goto _4080; }
_4010: if (FNA()>=6) { goto _4050; }
_4020: _io.WriteLine("YOU ARE NOW $100 RICHER.");
_4030: S=S+100;
_4040: goto _4070;
_4050: _io.WriteLine("IT'S PASTE. $25.");
_4060: S=S+25;
_4070: O=O*3;
_4080: return false;
_4090: _io.WriteLine("YOUR WAD IS SHOT. SO LONG, SUCKER!");
_4100: return true;
}
}
}