From c9f7ab5fa939240e99dd93b11b852a486bfe4a3c Mon Sep 17 00:00:00 2001
From: Randy Thiemann <randy.thiemann@student.pxl.be>
Date: Sun, 22 Oct 2023 20:28:08 +0200
Subject: [PATCH] Implement TGM3 and world modes fully.

---
 DMGTRIS.GB                    | Bin 32768 -> 32768 bytes
 README.md                     |  13 +-
 src/constants.asm             |  12 ++
 src/field.asm                 | 300 +++++++++++++++++++++++---
 src/include/globals.asm       |   3 +
 src/res/sources/tiles.gbr     | Bin 39009 -> 39009 bytes
 src/res/sources/title_map.gbm | Bin 4388 -> 4388 bytes
 src/res/tiles.inc             |  72 +++----
 src/res/title_map.inc         |   2 +-
 src/rng.asm                   | 383 +++++++++++++++++++++++++++-------
 src/state_title.asm           |   2 +-
 11 files changed, 632 insertions(+), 155 deletions(-)

diff --git a/DMGTRIS.GB b/DMGTRIS.GB
index 33952912e7e734f935353da5c2aa95ccbc4b7217..9132a86720a1fd446eceb274fc86ba69c1146d15 100644
GIT binary patch
delta 4881
zcma)A3se->8J^vpeX=}OAsL>|u!~NOCO(ps;O>YibrBSdMM2{ur;m`vXquijqD7Y2
zm@39r&!#!1(fSC+$1$!Rnscyu9L%a^7l+ma5kZp+L4;++i&2S6X8YgS0ar0i@1B|a
zKfe3ld;k02d;i(WN_AzWT5I|FQts$hZHa48N?^@G2n`B4^izRCPutO8d;fX#EjJ_7
zP{0m)Q1)cI*RpvcM^&n*IMGIl(UiDvfk;svG$5$ZE$$!rYf)7>+9b|iDo$N0u3jvz
zD;9seRLou|rY;mWFBVId>L`4(_Ok(p_mhRXEjXu^z2iL^diwXjektL1?377UrcRtZ
zY2uVAMUykLrcBLx;;F6uOVkhN*UVL^lOJv3bOn|;N}_l=(ZPJX7X7Upy^EW;x98j=
z-CmA%`0%-!%9KT_#AYWxE54gjv_$lz2!C{5I@^B6o0aB4N8C6yDP7k7iD*Ag5q&9A
zs2-n_sCo}NCsw3jqIFM5TTjcxhiN}r){Nd4k1@DUQn6ZmUJBKTHEH-Va6iGfU|0@G
z!#^cy`9w*_CrEnUBE+LTxY~iL*=cw^s%D-L;+^=t+DR%WZmvYl9<);&C=rZecd^%;
zj=S9nW301@f-&It!Vr8G?ZxNNK0H9Cje8k24nluMywBdHLHig+Q3OHJE2%zP!Qp)l
zq6v@w^)XyFnTvM?SBRS=t$zh4sd-*f@ivKKN0U(#k&3)D@M5A@gKj0v;YG>FKOZ)7
zW=xtZ7N51Fvv{BE8L%d693t@@-u^P)QHu99=o|DW3q4NbaoLqDG;!S1<o?cJKsq)P
zH#^80{SQkpDHotnv(i1p=n*o6CW#{ReGg``@`tUkqwcrCya<vX>KvQ|poDumXQs&0
zx4XeJanazJyRN}K?n!LCD*#?JIB{iR*|E%2yw?tk2tl-0p5;)iu{7Qb{%N)kO@Bzi
z&m`dYYxx-54RbS)7>R-yAskP`M%#&ZI?zr~nTEoLc^Ds&LaarJC>IGShQ{jvx(C9A
z!*}4FjNgaotBl+cYvmmwW~JdKov9M-#_ODTXDuHGtc9@939k`fOqb_7w2$!ap;kVD
za^iJT8vmq}$d^d*{2FPLKiMj|;`}qLQjEXUDw+M8t&+)KW0eg4FRYTzf6Xe<exprN
z`{Qjs=zwmK46QS5lDSo|NpY=D+NAi_M{N?*I@Ttow5Hj-57_{vX_0gUWh5vwLB$f(
zD1u5DMyXpQEkU{T1ZE;IGl9htm?aWM6PS*mj06=$P|*Yx`(TuTpiBg1Ca9PPqx1x2
zY<(2WMiE%_Fih1VX-Jne=~72vdSc8-P^L(f8c^=#>5Fp13*v*7U|=OkJw~a=D)mIA
zeq5=i$@KwPG6RI)B-rRqF)_m(ZB3rnK8`U7YIFd<hW0bbc)tVfm#8{%CQky$0Kqb(
z999jK;KLAMu@G(^{3e`?X(}=2S)T{Ji4QLW%Du)qN#9V8PK$3WaUZo#Q_~slK5H_m
zqHM_v=?t?#AFJmMex{2Wua!bPEz#^vPc3WGX~ZGr_K`|@So!CXN-ZeeE}PuR_HcE~
zmTVs~w_s!o<FL8hkxCOW7ndQMn;5S0GVYp-8`&ae*qnN#GM1Rz9k%mnxN6I|>k0qy
z5uO-5Z0_Tc%J^aB;gQM&(pTYFdFU_6Rn5k+Z;e{mN99s^@GGFg<q)-ps;0WB!wUak
zeFt?&(RWf+R3khAg+E9gg!Y|Ob<L|!>D8{jzTDhAC<TiBLx=Y4sjlwsKCIY(u)d??
zkYc~Hv#P4Gv8pPd*gpuRy1KKox?1Uv+NG4-+_2=tiSgs}@~WyjJArq>bNY08`s~^3
z)&+xMKu(U|PlhA|6n#$4h7EmvVLeToOffMgC=`XWyDE9p-E_v1{R~HKQ@y2zT!yo3
z!?zm7ojQ?jUlq=4giho{xxyASOKkd?`1}&F-L*(u!@%v+;z8#jL245gp$o7-ZVGOc
ztt2y$-jJNehudHqj)!en0Ne0akQXe6Q}4O}H?VFx9D;e%;W%7AUDEq^%#w`$)3fje
zX;Jv3kA>anV0B<uwr_bekDG8@Wujn=E^iQk4ps}hwatSrSl+&?1C^jbZQ@@U0_s9d
z;<EXI7M%ql<Qc8#96Aqq3&m^2_&g?0&Kk^+N>F?vOen~hAbX(rXrOzc#W_Jw?i-SG
zm}Lb4^)fD#+=8HjFg^v<3dckgejP3tE$$*m2@S)*sj%nuf&sOWfoV}2z5;+K+=ea+
zMp-DLG&zw<B8e0qf6rK9jKm7LeptPr1ADv4w8o7zQeeYylCd<IJ0Qd_Qn~uNnrCuG
zX=*0VNYuO9NLIwA4z1t=7Lb`BXH;V$N%b~Tat}Iu5w$V#_#)(SF_v9<U{Y027J#8(
zhM&yGEn>m~j;*tt42f$OaG7<MzsN*xoyAQEumdhSFT{whVK4sQu1=O+9rkqWJ)UN0
z2)c8)1ul9sZbB`}D*K#-DML*FZuO~DOXkil{AH<1E;YHcE@%XKC&;{-6b&gfDOyr=
zq=YvM6>c^3zI|u#J1OLzJm-~~19LpI3)6?umsookeMKllsCLV%1)RgHvJ&@L-YMXo
z^Q!cOhSXBS>P7ebKv&2I!P0@gMxE%AoG0rbet`xhY>->9L2f|8*^fF16m?+&12Bdr
zFvSiZ;82%O(7KkT@(I9j9idP8>()<s3{McAZpJU@zhC)*Kz+Y*i`<eGH_i`~dLes-
z$rvl-9(us?C3xE5xhQ59ajxgQk6R;txQXDO^BPx?X}%!025u>c#(%^cGIh%Y3dBRS
zDuPx=(3%LEj-a&>v<~RouHgaRe!;uSM?CD$FM<sInIg#GR~EtH0xz|He-WH8@S^>j
zir|FVR3z@0-!)ybP8#qLN-ybw;@U%5&aA?$H;OkFZg5td8kfGNabf!E#u@2_WsQ?p
z`A(Sv>biigE?}w)#MCvLxbl3BWm~>`<-A{L%kzP%X`Z)0<+_HxLD$g@55lP5hp##D
zH|QF^j=sS+&~=E%8)Xok5u!4515yaUihnPLFdi4K*l?97SM_j&KqLGz?l1k2*OrMj
z#lAAw;$~qk!VpOP@G0q&)WEMp*ae3}SfB#IdH~Q0uK|8J@Op)(fqw{igTiZp|0sgj
z0WSe>RP=h_Cj%d)@CM*7Mes)8m!ncFm=%Bt1nmGA;-i574e-&5-VFR7BKT<F2Z4`K
z^fAD{0=z}xW9wk-SQss{?yd8a?(=onLG=|@Nn&a7M6nM}QC(q$wSx(+MYx<S$Nksc
zt^#u1?IPD5{ubPyWO*T<Tfa@El{fE-d~UBoGbxgVWh}pq(5}jN4Xc&=F`3+tXcinw
zH-)VuZ$R>u9F1?;B?GJSpj-0c>cqW;IC$hJsC43H2a)wSao`B>20ZW>8Xyw#L9Jz2
zLUseGW;BGXavxY=&3J1Lt~$oX;7zrxaro~B)&Bel>4rJ({sqM*a+wF<GRFh%dBs)g
zxr^Oj7BAG#T`ZU(z}!N~BWkFYmrRX?Bl;aD-crkJg=nJspkx|B2TCTmE~9SLg94}*
z1<@7Mhpzg_aIeA#d>IZX1o%<oKv#u0L}BIUY{-VIt``=>V25i{<3YU*xgZIKB|#zy
zHp~S{Us%#dBz+AfAh{BjTp<$I6@iVkN?KeF>n{`iWw}LnSkg@--O!H(_kbh@wu~BI
zwWA&)?|~6na3E41Ao4)jO$>iycwlB8bP}CH|3dZ1hy17kofbkaB%((2Z}cB@27T^>
z?Hs}4hL`c_Qi~W;!EN}@B`Ri+ytjwo9di?2x$rPaLdb5+96WiW>@nx+#|kwUK3~#r
zJU(i)FUrR?ggoi1ET4yTa97r{G@Z=c!q5$d&M<U|p<@9<haMzq`L8&C2(WZgVa02!
zBvYnY(AM($ie}T43VV9;Bfzm=<CBsJGP9HN0>g9$-MgPn8hZ!bhSWmu!?*3|c9#m>
b@d<TkrocPc@4|mYongGo7S*&rTgCksx`jg#

delta 4126
zcmb_feQ;FO6@PEPceB~#VW2N;2=8r3cvX-D9HnIUHB#z^loE;|hK;~zKb)4%*v_<L
zL~sL^>5MuReRjqwErLdnKUg$&45M{cf||GCSyL5afaC;7Bwyr4Lktk^_T1e~*fgC^
z|8RHSyZ3j_@1A?^*E#Rj*PH6=O;*9Em5)AatqI?tvn970ha0L5eyDP=(hoPfN4|io
z^4;;)wbDcc%1ZprLg^xztLM3FV*zJma>mMg4UUVzxXQyd`N4`E@Z@%Q%6Plh_*<=!
zv(cDWWgMtA&TKH6HW<oAqq)|`k#CxgH~5=ts%?A7swU}r^U?Uq-~aO0vwtToEnd28
zaY^ywrAw<yN>(hpV@2`OXGb=f-XV?ac$4?`PWi1hLN-S^#gZEk$9KSs+u<eBDX*F?
z-MbzBs*~=<`n(Xo9)hIHcqy-HlM%^Np9uDR-rd%GS3cPV`^av16-RprNBX+4Uo?J_
zXFQ%q68t|h{=0dGo=4*?q?>Xr5$K-OYD@BWTNq7i%Kz?N0IwOxL^4cy$x1HJc+@zW
zPp+YhUTRjpLoT6QP;=k_c{Kp9O7mH#VlL^^%H|iWfqDSZL0$<GRwG@|K)T@|8D|3|
zgQAHHVQVKj=<hYdK~YR8hEOp``Qx`s<Y0hl5<Y8@`SK#>WAp7&CFw*Hk5Q}g2sJ4J
z<(14w@%1Yd{DL}_2a^r%mh)$ONS7bF$ic+u#Nvb^pb65vu$y!RrZl7<n>&J}zOwGv
zayw}VK!bP-8Aub(BMp9ZAE%|kNS{5)LK@Hv_}Ma~E0kr7{92RZA$^pS9L94S)C}W^
zDuxt`8s>3<_61-c>O4&6M4f0!tlI&c6`4%n+e=;xl2_`}mv~2Fi49!hPMfP9_LE&f
zvad<WMkp|d1{Jd*%88*)ZVa-2vX!oKL9&bHhm|{Nu2MsDlx=iYOqXePY*?nA*lZtl
z$4Y(F6??!(9kHE0YKy(>qn6m)K5B{`_vzSyrJXuDMv>St=%d*k7kxCR<E)R09iRDV
zUdKsa^9dia%<a_1SWd=rGgcO3&0?(C9pOoushwIG&CX~pMsqV-7NZGM#*k%UEE{7v
z87qUaG8rrDzq1^S<zg&1V|k{t)=nC;Gn$jpG8ip$ipIB7GwagAy0kHtow1yZ<w|Fn
zkfr^jAXJ`Q5FJ-S#Fb#>{8U+#Di^29J5pt7qI?~f%z=BY7&mj!_^3eJvcS9knIh4p
zn&5S^6Ap=9awq_YC>J$Gi`Zsy;AWXrPN|;TK#t&U%ECYuAy4DM&gYG;`}7DrO^$5A
zns#zQu|2jOT8)vAW-cr>y;-1@6?$2*DOqeQ^!nc{aI2PME%M&uwv1b?G_F{vMH-7V
zNiLhkm{k60rqYT^tu1Nia<a%M@@|}LQ9ZMTbIM%#Or>i|xnia=gY^|IO1Qo^SsW|6
z>AGoVi>xVgqwmicS2i=3y)a>Jak8jbc+=dwGh5_LnL9F5Ih&c=pS1H{qG&v`@cCIA
z4|9jPRrnm{lD}^aH@2*>n?i^2w`vu8r_6tASld50N87yIBg8o_KJBmV+*}eSWxe%^
z>t+rWPE^X=3;gpYOrWyx0=d?@@WT^6|0Bs{s$PU3l&gDSwZVsswve&?K4Y7RdFp%w
zE?}zaQA5y+TlgDQgR)ct#gxkOs7`wDq}+-pWi6hRpJV>nih(J7AV96Lw*nZb#se6#
za#d=N{ivKeW82C}FAXI_Zx)`IfMi3%i4KGntK~)S^DYj3Y<>}W0m+I7swV=y!m4R1
z)eJqxpG8JG2c5=>kZOf46hZ_pLN{C>;bC;jY8)>YD-sFJjaiLTa&bgMq6-rlr(|M%
z5Sw(Xc9sBG`g11~j5LTO)_{?Q(7hDtBA(<7@(0WTR&tJ=b_=>e=HYp?s}ATvchHX>
za+&fEAg>3$RGkT_aV|fRtLL&@t>jE|7JX!9Sc;JBstpb9PmBwVOt&%NBN%KX3mZH3
z)VTHgC9ZG}OUlx`|FLS~qC`S3!mpv`k2&U>WFucfkC;Qgq&CGPtX(a)MEMpr=^}^2
zs##CY8%Nj6QdBq*H^h78<x%08M5R0`Xsm*Ea9%E`9wR(8bN~1Bdef#iYufaR7Tjsw
z<UEZ_Zqf<oQ%kD{8K{F!Bwy5de$%=&l|OrkPy8BRtT=1d+SWa+eX@2=V_{{)GUr2A
zzbV>pi}t&s{hsJ4mwao5a8HHy>4u+L6Sc<D>S{jxHH^X)7>mFNe5I4GgJcxGCRbpT
zjKLM`XRHo;O%v6@7=~=*8sDoz_ZB7#DOuzuiWb}t*l6To^3_9sSFCl$+A6&c*UPQ0
zgAv?9U*Wf?PECk+!AKYvIw{~$up0@M6gDH?irAjQ7Q}N9J5tz+_?<LtLrf7nQ+hk%
z62uuP>_FU;hMkDFLU=@VrwA?-bR%IBXCVF!;>?uZjrg%NoQZe>u_vYXApR|4A%(M|
z==+FzOA@Nz2La~bjCw&*%OD4GAs-6Va2%$uKyunz9xtF&vKU*cbUY`v%Et@Ni-S90
zWIJ1={|smge#`>e%PgRgtGFn0g*g@S?iY9~+sT5rLT*Ua#XKrVq9CPd!-Y51sR-z0
z5fE167W_tic4m-cpW2z^nx9%FJ_6SgM=3}KE6LE&H`tLfO8rdMA0z`u5j)8E5*TL^
z_APD|C06ajs!23sRda_53s<foPacyz<f$gfIdzBOt1Hr^cdpT@L-)B@u<plTO~$pi
zLr<CpYP28JZnO{7sBYYJ+AFoUnXvezc3Bo4$G-&0o+ibrW-`^R`%4+S^8Q8POV9`X
zFaU!v1eakLh|ZiPO~rg28Aw%d7R>=5YBq2r^$)g|VHg_3<#6~hESe)Q*jkQ~p`>Jp
zNrqb2p=3BI8D^5<)*6&tPD(B_N%*oVrCVh!E+zGsnEq0tMPE|V$0U8&kAQc8xZ=TM
zWFo{5{Y>7E9tn62NRtmR`9R$m!JANojm&ZcJ|)&8@ENOp&T8RPcm_{HJDh>Dm{Y!h
z4&z`5lh##CT37IjG6JXj&&74TM42Tks>C3>PhtMCZV^3LwP2OoBAQkEmU+r;NRUs*
z-%~~l-ctxZgZNxxEli4yS`?G$tV78ueEtRJf&}}NNC%uD*ez*?F9<qP2d8!8jZm+h
z+M@woKBev3kROh~3HSg$gpZ&FbcjJKo}80lz{l`U_ypSY>5#-8Can(%C*wS6HwtTc
zae}?~#_{bL!&f;z;#@WEcP^j!;7Z++;G;__&1VC(BhL3{-J)mcax5P4JtDNlZ5Yp+
zB#Xu86|WNPhhT36`y|*i!Tuv~(yDaHdR%DJ?3?GWJ3(FT=xSp7VO+eS<I%nwLt5hg
zj<Xw&K-P6s*kA&#W45#F<hmcO_wq2It5LW|RRYqD<dwWlY`#|AxN~z@Zrro^Wz)X_
D-3}{r

diff --git a/README.md b/README.md
index dd41c51..5f1b08b 100644
--- a/README.md
+++ b/README.md
@@ -12,11 +12,14 @@ The Randomizer uses a TGM2-style 4-history randomizer preloaded with SSZZ, and w
 The game itself runs at a constant 60fps as well as at the traditional 20 row visible grid.
 
 There are five available game modes:
-- TGM1: 4 history, 4 rerolls, no sonic drop, never start with O, S or Z.
-- TGM2: 4 history, 6 rerolls, sonic drop, never start with O, S or Z.
-- TGM3: 6 history, 6 rerolls, sonic drop, never start with O, S or Z. (Note, not the actual 35-bag as used in TGM3, and floor kicks are not implemented (yet) either.)
-- HELL: No history, no rerolls, no sonic drop, never start with O, S or Z.
-- EASY: 6 history, 256 rerolls, sonic drop, never start with O, S or Z.
+- TGM1: 4 history w/ 4 rerolls, never start with O, S or Z.
+- TGM2: 4 history w/ 6 rerolls, never start with O, S or Z. Sonic drop.
+- TGM3: 4 history w/ 6 rerolls and drought protection, never start with O, S or Z. Sonic drop. Extra floor and wall kicks for I and T pieces.
+- HELL: Pure random piece generation.
+- EASY: 4 history w/ 256 rerolls, never start with O, S or Z. Sonic drop.
+- TGW2: TGM2 but with hard drop.
+- TGW3: TGM3 but with hard drop.
+- EAWY: EASY but with hard drop.
 
 
 ## Playing
diff --git a/src/constants.asm b/src/constants.asm
index a91308f..2b053ee 100644
--- a/src/constants.asm
+++ b/src/constants.asm
@@ -467,5 +467,17 @@ sPieceRotationStates:: ; How each piece is rotated.
     db %0100
     db %0000
 
+sTGM3Bag::
+    db 0, 0, 0, 0, 0
+    db 1, 1, 1, 1, 1
+    db 2, 2, 2, 2, 2
+    db 3, 3, 3, 3, 3
+    db 4, 4, 4, 4, 4
+    db 5, 5, 5, 5, 5
+    db 6, 6, 6, 6, 6
+
+sTGM3Droughts::
+    db 0, 0, 0, 0, 0, 0, 0
+
 
 ENDC
diff --git a/src/field.asm b/src/field.asm
index f30286d..65eaca3 100644
--- a/src/field.asm
+++ b/src/field.asm
@@ -50,6 +50,7 @@ hDelayState: ds 1
 hClearedLines: ds 4
 hLineClearCt: ds 1
 hComboCt: ds 1
+hLockDelayForce: ds 1
 
 
 SECTION "Field Functions", ROM0
@@ -496,6 +497,8 @@ ForceSpawnPiece::
 
 TrySpawnPiece::
     ; Always reset these for a new piece.
+    xor a, a
+    ldh [hLockDelayForce], a
     ldh a, [hCurrentLockDelay]
     ldh [hCurrentLockDelayRemaining], a
     ldh a, [hCurrentFramesPerGravityTick]
@@ -679,13 +682,15 @@ FindMaxG:
 
 
 FieldProcess::
+    ; **************************************************************
+    ; SETUP
     ; Wipe out the piece.
     ldh a, [hCurrentPieceY]
     ldh [hYPosAtStartOfFrame], a
     call FromShadowField
 
 
-    ; Check if we're about to hold.
+    ; Check if we're about to hold. Return if so.
     ldh a, [hSelectState]
     cp a, 1
     jr nz, :+
@@ -693,19 +698,32 @@ FieldProcess::
     cp a, $FF
     ret nz
 
-
     ; How deep can we go?
 :   call FindMaxG
 
-    ; If we press up, we want to do a sonic drop, but not in TGM1 or HELL mode.
-    ldh a, [hSimulationMode]
-    cp a, MODE_TGM1
-    jr z, :+
-    cp a, MODE_HELL
-    jr z, :+
+
+    ; **************************************************************
+    ; HANDLE UP
+    ; Is a hard/sonic drop requested?
     ldh a, [hUpState]
     cp a, 1
-    jr nz, :+
+    jr nz, .postdrop
+
+    ; What kind, if any?
+    ldh a, [hSimulationMode]
+    cp a, MODE_TGM1
+    jr z, .postdrop
+    cp a, MODE_HELL
+    jr z, .postdrop
+    cp a, MODE_TGW2
+    jr z, .harddrop
+    cp a, MODE_TGW3
+    jr z, .harddrop
+    cp a, MODE_EAWY
+    jr z, .harddrop
+
+    ; Sonic drop.
+.sonicdrop
     ld a, 20
     ldh [hWantedG], a
     ldh a, [hTicksUntilG]
@@ -716,15 +734,32 @@ FieldProcess::
     ldh [hTicksUntilG], a
     jr .grav
 
+    ; Hard drop.
+.harddrop
+    ld a, 20
+    ld b, a
+    ldh a, [hActualG]
+    cp a, b
+    jr nc, :+
+    ld b, a
+:   ldh a, [hCurrentPieceY]
+    add a, b
+    ldh [hCurrentPieceY], a
+    xor a, a
+    ldh [hCurrentLockDelayRemaining], a
+    call SFXKill
+    ld a, SFX_LOCK
+    call SFXEnqueue
+    jp .draw
 
     ; If we press down, we want to do a soft drop.
-:   ldh a, [hDownState]
+.postdrop
+    ldh a, [hDownState]
     cp a, 0
     jr z, :+
     ld a, 1
     ldh [hTicksUntilG], a
 
-
     ; Gravity?
 :   ldh a, [hTicksUntilG]
     dec a
@@ -735,7 +770,7 @@ FieldProcess::
     ldh a, [hCurrentGravityPerTick]
     ldh [hWantedG], a
 
-
+    ; Can we drop the full requested distance?
 .grav
     ldh a, [hWantedG]
     ld b, a
@@ -743,7 +778,7 @@ FieldProcess::
     cp a, b
     jr c, .smallg
 
-
+    ; Yes. Do it.
 .bigg
     ldh a, [hWantedG]
     ld b, a
@@ -752,7 +787,7 @@ FieldProcess::
     ldh [hCurrentPieceY], a
     jr .nograv
 
-
+    ; No. Smaller distance.
 .smallg
     ldh a, [hActualG]
     ld b, a
@@ -760,14 +795,16 @@ FieldProcess::
     add a, b
     ldh [hCurrentPieceY], a
 
-
+    ; No gravity, or post gravity.
 .nograv
     ldh a, [hCurrentPieceX]
     ldh [hWantX], a
     ldh a, [hCurrentPieceRotationState]
     ldh [hWantRotation], a
 
-    ; We check rotation first.
+
+    ; **************************************************************
+    ; HANDLE ROTATION
     ; Want rotate CCW?
 .wantrotccw
     ldh a, [hSwapAB]
@@ -787,7 +824,6 @@ FieldProcess::
     ldh [hWantRotation], a
     jr .tryrot
 
-
     ; Want rotate CW?
 .wantrotcw
     ldh a, [hSwapAB]
@@ -806,7 +842,6 @@ FieldProcess::
     and a, $03
     ldh [hWantRotation], a
 
-
     ; Try the rotation.
 .tryrot
     ldh a, [hCurrentPieceY]
@@ -836,26 +871,40 @@ FieldProcess::
     call SetPieceDataOffset
     jp .norot
 
-
     ; Try kicks if the piece isn't I or O. And in the case of J L and T, only if the blocked side is the left or right.
 .maybekick
     ld c, a
     ldh a, [hCurrentPiece]
-    cp a, PIECE_I
-    jr z, .norot
+    ; O pieces never kick, obviously.
     cp a, PIECE_O
-    jr z, .norot
+    jp z, .norot
+
+    ; S/Z always kick.
     cp a, PIECE_S
     jr z, .trykickright
     cp a, PIECE_Z
     jr z, .trykickright
-    ld a, c
+
+    ; I piece only kicks in TGM3/TGW3/EASY/EAWY
+    cp a, PIECE_I
+    jr nz, :+
+    ldh a, [hSimulationMode]
+    cp a, MODE_TGM1
+    jp z, .norot
+    cp a, MODE_TGM2
+    jp z, .norot
+    cp a, MODE_HELL
+    jp z, .norot
+    jr .trykickright
+
+    ; T/L/J only kick if not through the middle axis.
+:   ld a, c
     cp a, 1
-    jr z, .norot
+    jr z, .maybetgm3rot
     cp a, 5
-    jr z, .norot
+    jr z, .maybetgm3rot
     cp a, 9
-    jr z, .norot
+    jr z, .maybetgm3rot
 
     ; A step to the right.
 .trykickright
@@ -888,8 +937,7 @@ FieldProcess::
     ldh a, [hWantRotation]
     ldh [hCurrentPieceRotationState], a
     call SetPieceDataOffset
-    jr .norot
-
+    jp .norot
 
     ; And a step to the left.
 .trykickleft
@@ -915,15 +963,185 @@ FieldProcess::
     pop bc
     call CanPieceFitFast
     cp a, $FF
-    jr nz, .norot
+    jr nz, .maybetgm3rot
     ldh a, [hCurrentPieceX]
     dec a
     ldh [hCurrentPieceX], a
     ldh a, [hWantRotation]
     ldh [hCurrentPieceRotationState], a
     call SetPieceDataOffset
+    jp .norot
+
+    ; In TGM3, TGW3, EASY, and EAWY modes, there are a few other kicks possible.
+.maybetgm3rot
+    ldh a, [hSimulationMode]
+    cp a, MODE_TGM1
+    jp z, .norot
+    cp a, MODE_TGM2
+    jp z, .norot
+    cp a, MODE_HELL
+    jp z, .norot
+
+    ; In the case of a T piece, try the space above.
+.checkt
+    ldh a, [hCurrentPiece]
+    cp a, PIECE_T
+    jr nz, .checki
+
+    ldh a, [hCurrentPieceY]
+    dec a
+    ld b, a
+    ldh a, [hCurrentPieceX]
+    call XYToSFieldPtr
+    ld d, h
+    ld e, l
+    ldh a, [hPieceDataBaseFast]
+    ld l, a
+    ldh a, [hPieceDataBaseFast+1]
+    ld h, a
+    ldh a, [hWantRotation]
+    rlc a
+    rlc a
+    push bc
+    ld c, a
+    xor a, a
+    ld b, a
+    add hl, bc
+    pop bc
+    call CanPieceFitFast
+    cp a, $FF
+    jp nz, .norot
+    ldh a, [hCurrentPieceY]
+    dec a
+    ldh [hCurrentPieceY], a
+    ldh a, [hWantRotation]
+    ldh [hCurrentPieceRotationState], a
+    call SetPieceDataOffset
+    ld a, $FF
+    ldh [hLockDelayForce], a
+    jp .norot
+
+    ; In the case of an I piece...
+.checki
+    ldh a, [hCurrentPiece]
+    cp a, PIECE_I
+    jp nz, .norot
+
+    ; Are we grounded?
+    ; If not, we can only kick right twice.
+    ldh a, [hActualG]
+    cp a, 0
+    jr nz, .tryiright2
+
+    ; Try up once.
+.tryiup1
+    ldh a, [hCurrentPieceY]
+    dec a
+    ld b, a
+    ldh a, [hCurrentPieceX]
+    call XYToSFieldPtr
+    ld d, h
+    ld e, l
+    ldh a, [hPieceDataBaseFast]
+    ld l, a
+    ldh a, [hPieceDataBaseFast+1]
+    ld h, a
+    ldh a, [hWantRotation]
+    rlc a
+    rlc a
+    push bc
+    ld c, a
+    xor a, a
+    ld b, a
+    add hl, bc
+    pop bc
+    call CanPieceFitFast
+    cp a, $FF
+    jr nz, .tryiup2
+    ldh a, [hCurrentPieceY]
+    dec a
+    ldh [hCurrentPieceY], a
+    ldh a, [hWantRotation]
+    ldh [hCurrentPieceRotationState], a
+    call SetPieceDataOffset
+    ld a, $FF
+    ldh [hLockDelayForce], a
+    jr .norot
+
+    ; Try up twice.
+.tryiup2
+    ldh a, [hCurrentPieceY]
+    dec a
+    dec a
+    ld b, a
+    ldh a, [hCurrentPieceX]
+    call XYToSFieldPtr
+    ld d, h
+    ld e, l
+    ldh a, [hPieceDataBaseFast]
+    ld l, a
+    ldh a, [hPieceDataBaseFast+1]
+    ld h, a
+    ldh a, [hWantRotation]
+    rlc a
+    rlc a
+    push bc
+    ld c, a
+    xor a, a
+    ld b, a
+    add hl, bc
+    pop bc
+    call CanPieceFitFast
+    cp a, $FF
+    jr nz, .tryiright2
+    ldh a, [hCurrentPieceY]
+    dec a
+    dec a
+    ldh [hCurrentPieceY], a
+    ldh a, [hWantRotation]
+    ldh [hCurrentPieceRotationState], a
+    call SetPieceDataOffset
+    ld a, $FF
+    ldh [hLockDelayForce], a
+    jr .norot
+
+    ; Try right twice.
+.tryiright2
+    ldh a, [hCurrentPieceY]
+    ld b, a
+    ldh a, [hCurrentPieceX]
+    inc a
+    inc a
+    call XYToSFieldPtr
+    ld d, h
+    ld e, l
+    ldh a, [hPieceDataBaseFast]
+    ld l, a
+    ldh a, [hPieceDataBaseFast+1]
+    ld h, a
+    ldh a, [hWantRotation]
+    rlc a
+    rlc a
+    push bc
+    ld c, a
+    xor a, a
+    ld b, a
+    add hl, bc
+    pop bc
+    call CanPieceFitFast
+    cp a, $FF
+    jr nz, .norot
+    ldh a, [hCurrentPieceX]
+    inc a
+    inc a
+    ldh [hCurrentPieceX], a
+    ldh a, [hWantRotation]
+    ldh [hCurrentPieceRotationState], a
+    call SetPieceDataOffset
 
 
+    ; **************************************************************
+    ; HANDLE MOVEMENT
     ; Do we want to move left?
 .norot
     ldh a, [hLeftState]
@@ -940,8 +1158,7 @@ FieldProcess::
     ldh [hWantX], a
     jr .trymove
 
-
-    ; Want right?
+    ; Do we want to move right?
 .wantright
     ldh a, [hRightState]
     cp a, 1
@@ -956,7 +1173,6 @@ FieldProcess::
     inc a
     ldh [hWantX], a
 
-
     ; Try the movement.
 .trymove
     ldh a, [hCurrentPieceY]
@@ -973,6 +1189,8 @@ FieldProcess::
     ldh [hCurrentPieceX], a
 
 
+    ; **************************************************************
+    ; HANDLE LOCKING
     ; Are we grounded?
 .donemanipulating
     ldh a, [hCurrentPieceY]
@@ -1011,18 +1229,32 @@ FieldProcess::
     ldh [hCurrentLockDelayRemaining], a
     ; If we're out of lock delay, play a sound.
     cp a, 0
-    jr nz, .draw
+    jr nz, .forcelockmaybe
     call SFXKill
     ld a, SFX_LOCK
     call SFXEnqueue
     jr .draw
 
+    ; TGM3 sometimes forces a piece to immediately lock.
+.forcelockmaybe
+    ldh a, [hLockDelayForce]
+    cp a, $FF
+    jr nz, .draw
+    xor a, a
+    ldh [hCurrentLockDelayRemaining], a
+    call SFXKill
+    ld a, SFX_LOCK
+    call SFXEnqueue
+    jr .draw
+
+    ; If we weren't grounded, reset the lock delay.
 .notgrounded
-    ; Otherwise reset the lock delay.
     ldh a, [hCurrentLockDelay]
     ldh [hCurrentLockDelayRemaining], a
 
 
+    ; **************************************************************
+    ; HANDLE DRAWING
     ; Draw the piece.
 .draw
     ; If the gravity is <= 1G, draw a ghost piece.
diff --git a/src/include/globals.asm b/src/include/globals.asm
index 6ccd625..a4b5036 100644
--- a/src/include/globals.asm
+++ b/src/include/globals.asm
@@ -164,6 +164,9 @@ DEF MODE_TGM2           EQU 1
 DEF MODE_TGM3           EQU 2
 DEF MODE_HELL           EQU 3
 DEF MODE_EASY           EQU 4
+DEF MODE_TGW2           EQU 5
+DEF MODE_TGW3           EQU 6
+DEF MODE_EAWY           EQU 7
 
 
 ENDC
diff --git a/src/res/sources/tiles.gbr b/src/res/sources/tiles.gbr
index 9234f847d601d450ed880eb733902987d5ed8d23..6aa75f21170863be7fa408bf1afa8441604f90c1 100644
GIT binary patch
delta 404
zcmaF3f$8A}rVUq`Ctqpw5M^LwU;tte1S3WeYx2g%Y(Wqgh!HZA*EXq74r#Vmh6tjP
zAk~aO&0v~=aq<F1vB_t%L^mh4erBH>(hanT8E70c7=oD0%pmq;!)~BO=rWUad(<ai
z>9JRZC`Tn>n!z-Pn9NwJJlWr!T?WVjnFO%~nFb0^E^wEfJi(on3CNt+EjPK)T^h(`
zQ2@FEtO2A6j35-m5TNAbkAZTmVBTaogf<~`Z4AtlSN3R47ARoX1epgk3F;DvLIfWw
R4pOt(dx8K58wV)B7yt|@FxdbA

delta 557
zcmaF3f$8A}rVUq`RTvmiAdtfV!YHDX7b;4tqKH703~7}jlh0;}Zcc3d%&x@1i~@li
z1`tLPot)<`tBk}4%MCJhYDBmX=;X<arQQ<@*eAPsSWHgv;Fv5}Xf#=&kZ*EefYs!L
T0Bsnac!71Z_XGisi3Mx`%}Xt#

diff --git a/src/res/sources/title_map.gbm b/src/res/sources/title_map.gbm
index f206b47dfb264342c5f222f2939d174bd5671c8c..b247a682e145f05449265d49e1f4a1be0f543853 100644
GIT binary patch
delta 263
zcmZ3Yv_xsc8OC~_e_0GI3=9lD5>l-Hfnd3P>D~AH1v~C>Gceq-E|!bc*^tTbGmF70
znu+24^EFH&KsF;#JxI(3NIhn`#rVH3(i9{Fljj7omjM-d0M&duD^mXJR~Ew$AXX7-
zV0zBZ#URGO!yv=J%J7_-fr|m88Dt3SL__JI7@&?IppFtC-2lWOFat;z?kgyRiLnC3
z9s&6<jYdE|nyC!6i<d28FetbA^K0@UCJ%vM3=F>+82&IY{AFPH$H4G^^FyXk#?ARG
GTX_JDH(V3|

delta 252
zcmZ3Yv_xsc8OC}ExhjS~U$Ph~i(|_e7^)Z;7#bMr>zO<5aWgR7u`ZVDl3JR{@imLV
zDw>I*e)&8m86cYxs0t)z1Ee3a++zG+zJvqFgv)aR*~@^60)T41ofRo(`kuwW0K_Un
z#Z1rHxfsM4cz{rz;W;yq0%-;rBF!K)(NHod1*j(osHX-<cK|U6ECAAl`wGgC#U26q
qFs(*FHE8BCw5Y%S%3x4#!}5LdAtsN_4$S(DlO34NHs`Z!<pBWd4o;u|

diff --git a/src/res/tiles.inc b/src/res/tiles.inc
index 5a5f752..47403f2 100644
--- a/src/res/tiles.inc
+++ b/src/res/tiles.inc
@@ -432,18 +432,18 @@ Tiles::
     DB $8A,$00,$EA,$00,$00,$00,$00,$00
     DB $00,$00,$6A,$00,$8A,$00,$44,$00
     DB $24,$00,$C4,$00,$00,$00,$00,$00
-    DB $00,$00,$AA,$00,$AA,$00,$44,$00
-    DB $AA,$00,$AA,$00,$00,$00,$00,$00
-    DB $00,$00,$AA,$00,$AA,$00,$44,$00
-    DB $AA,$00,$AA,$00,$00,$00,$00,$00
-    DB $00,$00,$AA,$00,$AA,$00,$44,$00
-    DB $AA,$00,$AA,$00,$00,$00,$00,$00
-    DB $00,$00,$AA,$00,$AA,$00,$44,$00
-    DB $AA,$00,$AA,$00,$00,$00,$00,$00
-    DB $00,$00,$AA,$00,$AA,$00,$44,$00
-    DB $AA,$00,$AA,$00,$00,$00,$00,$00
-    DB $00,$00,$AA,$00,$AA,$00,$44,$00
-    DB $AA,$00,$AA,$00,$00,$00,$00,$00
+    DB $00,$00,$EE,$00,$48,$00,$4A,$00
+    DB $4A,$00,$4E,$00,$00,$00,$00,$00
+    DB $00,$00,$AC,$00,$A2,$00,$A4,$00
+    DB $E8,$00,$AE,$00,$00,$00,$00,$00
+    DB $00,$00,$EE,$00,$48,$00,$4A,$00
+    DB $4A,$00,$4E,$00,$00,$00,$00,$00
+    DB $00,$00,$AC,$00,$A2,$00,$A4,$00
+    DB $E2,$00,$AC,$00,$00,$00,$00,$00
+    DB $00,$00,$E4,$00,$8A,$00,$CE,$00
+    DB $8A,$00,$EA,$00,$00,$00,$00,$00
+    DB $00,$00,$AA,$00,$AA,$00,$A4,$00
+    DB $E4,$00,$A4,$00,$00,$00,$00,$00
     DB $7C,$7C,$42,$42,$41,$41,$5D,$48
     DB $6E,$4C,$5B,$4A,$79,$49,$00,$00
     DB $68,$58,$58,$68,$68,$58,$48,$78
@@ -508,30 +508,30 @@ Tiles::
     DB $8A,$8A,$EA,$EA,$00,$00,$00,$00
     DB $00,$00,$6A,$6A,$8A,$8A,$44,$44
     DB $24,$24,$C4,$C4,$00,$00,$00,$00
-    DB $00,$00,$AA,$AA,$AA,$AA,$44,$44
-    DB $AA,$AA,$AA,$AA,$00,$00,$00,$00
-    DB $00,$00,$AA,$AA,$AA,$AA,$44,$44
-    DB $AA,$AA,$AA,$AA,$00,$00,$00,$00
-    DB $00,$00,$AA,$AA,$AA,$AA,$44,$44
-    DB $AA,$AA,$AA,$AA,$00,$00,$00,$00
-    DB $00,$00,$AA,$AA,$AA,$AA,$44,$44
-    DB $AA,$AA,$AA,$AA,$00,$00,$00,$00
-    DB $00,$00,$AA,$AA,$AA,$AA,$44,$44
-    DB $AA,$AA,$AA,$AA,$00,$00,$00,$00
-    DB $00,$00,$AA,$AA,$AA,$AA,$44,$44
-    DB $AA,$AA,$AA,$AA,$00,$00,$00,$00
-    DB $00,$00,$00,$00,$00,$00,$00,$00
-    DB $00,$00,$00,$00,$00,$00,$00,$00
-    DB $FF,$00,$FF,$00,$FF,$00,$FF,$00
-    DB $FF,$00,$FF,$00,$FF,$00,$FF,$00
-    DB $00,$FF,$00,$FF,$00,$FF,$00,$FF
-    DB $00,$FF,$00,$FF,$00,$FF,$00,$FF
-    DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
-    DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
-    DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
-    DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
-    DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
-    DB $FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF
+    DB $00,$00,$EE,$EE,$48,$48,$4A,$4A
+    DB $4A,$4A,$4E,$4E,$00,$00,$00,$00
+    DB $00,$00,$AC,$AC,$A2,$A2,$A4,$A4
+    DB $E8,$E8,$AE,$AE,$00,$00,$00,$00
+    DB $00,$00,$EE,$EE,$48,$48,$4A,$4A
+    DB $4A,$4A,$4E,$4E,$00,$00,$00,$00
+    DB $00,$00,$AC,$AC,$A2,$A2,$A4,$A4
+    DB $E2,$E2,$AC,$AC,$00,$00,$00,$00
+    DB $00,$00,$E4,$E4,$8A,$8A,$CE,$CE
+    DB $8A,$8A,$EA,$EA,$00,$00,$00,$00
+    DB $00,$00,$AA,$AA,$AA,$AA,$A4,$A4
+    DB $E4,$E4,$A4,$A4,$00,$00,$00,$00
+    DB $00,$00,$00,$00,$A0,$A0,$A0,$A0
+    DB $A0,$A0,$A0,$A0,$48,$48,$00,$00
+    DB $00,$00,$00,$00,$C4,$C4,$2A,$2A
+    DB $4A,$4A,$8A,$8A,$E4,$E4,$00,$00
+    DB $00,$00,$00,$00,$CC,$CC,$22,$22
+    DB $4C,$4C,$82,$82,$EC,$EC,$00,$00
+    DB $00,$00,$00,$00,$44,$44,$CA,$CA
+    DB $4A,$4A,$4A,$4A,$E4,$E4,$00,$00
+    DB $00,$00,$00,$00,$CC,$CC,$22,$22
+    DB $44,$44,$88,$88,$EE,$EE,$00,$00
+    DB $00,$00,$00,$00,$04,$04,$0A,$0A
+    DB $0E,$0E,$0A,$0A,$0A,$0A,$00,$00
 TilesEnd::
 
 
diff --git a/src/res/title_map.inc b/src/res/title_map.inc
index 8a94b33..e212f0a 100644
--- a/src/res/title_map.inc
+++ b/src/res/title_map.inc
@@ -22,7 +22,7 @@ DEF TITLE_MAP_INC EQU 1
 SECTION "Title Screen Tilemap", ROM0
 TitleScreenTilemap::
     DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
-    DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
+    DB $01,$01,$01,$01,$FA,$FB,$FC,$FD,$FE,$FF
     DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
     DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
     DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01
diff --git a/src/rng.asm b/src/rng.asm
index 05b4b3c..0ee0f7e 100644
--- a/src/rng.asm
+++ b/src/rng.asm
@@ -24,10 +24,17 @@ INCLUDE "globals.asm"
 
 SECTION "High RNG Variables", HRAM
 hRNGSeed:      ds 4
-hPieceHistory: ds 6
+hPieceHistory: ds 4
 hNextPiece::   ds 1
 
 
+SECTION "TGM3 RNG Variables", WRAM0
+wTGM3Bag:             ds 35
+wTGM3Droughts:        ds 7
+wTGM3GeneratedIdx:    ds 1
+wTGM3WorstDroughtIdx: ds 1
+
+
 section "RNG Functions", ROM0
 RNGInit::
     ; Do some bit fuckery on the seed using the gameboy's free-running timers.
@@ -47,18 +54,41 @@ RNGInit::
     xor a, [hl]
     ldh [hRNGSeed+3], a
 
-    ; Initialize the next history.
+    ; TGM3 vars
+    ld de, sTGM3Bag
+    ld hl, wTGM3Bag
+    ld bc, 35
+    call UnsafeMemCopy
+    ld de, sTGM3Droughts
+    ld hl, wTGM3Droughts
+    ld bc, 7
+    call UnsafeMemCopy
+
+    ; If we're in HELL mode, we don't care about anything but a random piece to start with.
+    ldh a, [hSimulationMode]
+    cp a, MODE_HELL
+    jr nz, .complexinit
+    call Next7Piece
+    ld [hNextPiece], a
+    ret
+
+    ; Otherwise do complex init.
+.complexinit
     ld a, PIECE_Z
     ldh [hPieceHistory], a
     ldh [hPieceHistory+1], a
-    ldh [hPieceHistory+4], a
-    ldh [hPieceHistory+5], a
+    ldh [hPieceHistory+2], a
+    ldh [hPieceHistory+3], a
+
+    ldh a, [hSimulationMode]
+    cp a, MODE_TGM1
+    jr z, :+
     ld a, PIECE_S
     ldh [hPieceHistory+2], a
     ldh [hPieceHistory+3], a
 
     ; Get the first piece and make sure it's not Z, S or O.
-:   call NextPiece
+:   call Next7Piece
     cp a, PIECE_Z
     jr z, :-
     cp a, PIECE_S
@@ -66,99 +96,296 @@ RNGInit::
     cp a, PIECE_O
     jr z, :-
 
-    ; Store it.
+    ; Save the generated piece and put it in the history.
     ldh [hPieceHistory], a
     ld [hNextPiece], a
     ret
 
 
-GetNextPiece::
-:   ldh a, [hSimulationMode] ; Hell?
-    cp a, MODE_HELL
-    jr nz, :+
-    call NextPiece
-    jr .donerolling
-
-:   ldh a, [hSimulationMode] ; TGM1?
-    cp a, MODE_TGM1
-    jr nz, :+
-    ld a, 5
-    ld e, a
-    jr .rollloop
-
-:   ldh a, [hSimulationMode] ; EASY?
-    cp a, MODE_EASY
-    jr nz, :+
-    ld a, 0
-    ld e, a
-    jr .rollloop
-
-:   ld a, 7 ; TGM2/3.
-    ld e, a
-
-.rollloop
-    dec e
-    jr z, .donerolling
-
-    call NextPiece
-    ld hl, hPieceHistory
-    cp a, [hl]
-    jr z, .rollloop
-    inc hl
-    cp a, [hl]
-    jr z, .rollloop
-    inc hl
-    cp a, [hl]
-    jr z, .rollloop
-    inc hl
-    cp a, [hl]
-    jr z, .rollloop
-
-    ; Are we in TGM3 or EASY mode?
-    ld b, a
-    ldh a, [hSimulationMode]
-    cp a, MODE_TGM3
-    jr z, .6hist
-    cp a, MODE_EASY
-    jr z, .6hist
-    jr .donerolling ; If not, we're done rolling.
-
-    ; If we are, extend the history by 2.
-.6hist
-    ld a, b
-    inc hl
-    cp a, [hl]
-    jr z, .rollloop
-    inc hl
-    cp a, [hl]
-    jr z, .rollloop
-
-.donerolling
+    ; Shift the generated piece into the history and save it.
+ShiftHistory:
     ldh [hNextPiece], a
-    ld b, a
-    ldh a, [hPieceHistory+4]
-    ldh [hPieceHistory+5], a
-    ldh a, [hPieceHistory+3]
-    ldh [hPieceHistory+4], a
     ldh a, [hPieceHistory+2]
     ldh [hPieceHistory+3], a
     ldh a, [hPieceHistory+1]
     ldh [hPieceHistory+2], a
     ldh a, [hPieceHistory]
     ldh [hPieceHistory+1], a
-    ld a, b
+    ldh a, [hNextPiece]
     ldh [hPieceHistory], a
     ret
 
 
-NextPiece:
-    call NextByte
+    ; A random piece. Get fucked.
+GetNextHellPiece:
+    call Next7Piece
+    ldh [hNextPiece], a
+    ret
+
+
+    ; 4 history, 4 rerolls.
+GetNextTGM1Piece:
+    ld a, 5
+    ld e, a
+
+:   dec e
+    jr z, :+
+
+    call Next7Piece
+    ld hl, hPieceHistory
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+
+:   jr ShiftHistory
+
+
+    ; 4 history, 6 rerolls.
+GetNextTGM2Piece:
+    ld a, 7
+    ld e, a
+
+:   dec e
+    jr z, :+
+
+    call Next7Piece
+    ld hl, hPieceHistory
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+
+:   jr ShiftHistory
+
+
+    ; 4 History, (basically) infinite rerolls.
+GetNextEasyPiece:
+    ld a, 0
+    ld e, a
+
+:   dec e
+    jr z, :+
+
+    call Next7Piece
+    ld hl, hPieceHistory
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+
+:   jr ShiftHistory
+
+
+    ; TGM3 mode... It's complex.
+GetNextTGM3Piece:
+    ld a, 7
+    ld e, a
+
+:   dec e
+    jr z, :+
+
+    ; Get a random index into the 35bag
+    call Next35Piece
+    ld [wTGM3GeneratedIdx], a
+
+    ; Fetch the piece from the 35bag.
+    ld c, a
+    xor a, a
+    ld b, a
+    ld hl, wTGM3Bag
+    add hl, bc
+    ld a, [hl]
+
+    ; Is it in the history?
+    ld hl, hPieceHistory
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+    inc hl
+    cp a, [hl]
+    jr z, :-
+
+    ; We have a piece. Save it.
+:   call ShiftHistory
+
+    ; Increment all drought counters.
+:   ld hl, wTGM3Droughts
+    inc [hl]
+    inc hl
+    inc [hl]
+    inc hl
+    inc [hl]
+    inc hl
+    inc [hl]
+    inc hl
+    inc [hl]
+    inc hl
+    inc [hl]
+    inc hl
+    inc [hl]
+
+    ; Set the drought of our most recently drawn piece to 0.
+:   ldh a, [hCurrentPiece]
+    ld c, a
+    xor a, a
+    ld b, a
+    ld hl, wTGM3Droughts
+    add hl, bc
+    ld [hl], a
+
+    ; We pick an arbitrary piece to have the worst drought.
+:   call Next7Piece
+    ld [wTGM3WorstDroughtIdx], a
+
+    ; And then save that drought in e.
+    ld c, a
+    xor a, a
+    ld b, a
+    ld hl, wTGM3Droughts
+    add hl, bc
+    ld e, [hl]
+
+    ; Is idx 0 worse?
+:   ld hl, wTGM3Droughts
+    ld a, [hl+]
+    cp a, e
+    jr z, :+    ; Same.
+    jr c, :+    ; Nope.
+    ld e, a
+    ld a, 0
+    ld [wTGM3WorstDroughtIdx], a
+
+    ; Is idx 1 worse?
+:   ld a, [hl+]
+    cp a, e
+    jr z, :+    ; Same.
+    jr c, :+    ; Nope.
+    ld e, a
+    ld a, 1
+    ld [wTGM3WorstDroughtIdx], a
+
+    ; Is idx 2 worse?
+:   ld a, [hl+]
+    cp a, e
+    jr z, :+    ; Same.
+    jr c, :+    ; Nope.
+    ld e, a
+    ld a, 2
+    ld [wTGM3WorstDroughtIdx], a
+
+    ; Is idx 3 worse?
+:   ld a, [hl+]
+    cp a, e
+    jr z, :+    ; Same.
+    jr c, :+    ; Nope.
+    ld e, a
+    ld a, 3
+    ld [wTGM3WorstDroughtIdx], a
+
+    ; Is idx 4 worse?
+:   ld a, [hl+]
+    cp a, e
+    jr z, :+    ; Same.
+    jr c, :+    ; Nope.
+    ld e, a
+    ld a, 4
+    ld [wTGM3WorstDroughtIdx], a
+
+    ; Is idx 5 worse?
+:   ld a, [hl+]
+    cp a, e
+    jr z, :+    ; Same.
+    jr c, :+    ; Nope.
+    ld e, a
+    ld a, 5
+    ld [wTGM3WorstDroughtIdx], a
+
+    ; Is idx 6 worse?
+:   ld a, [hl+]
+    cp a, e
+    jr z, :+    ; Same.
+    jr c, :+    ; Nope.
+    ld e, a
+    ld a, 6
+    ld [wTGM3WorstDroughtIdx], a
+
+    ; We now have the worst drought index as well as the slot in the bag that needs to be replaced.
+:   ld a, [wTGM3GeneratedIdx]
+    ld c, a
+    xor a, a
+    ld b, a
+    ld hl, wTGM3Bag
+    add hl, bc
+    ld a, [wTGM3WorstDroughtIdx]
+
+    ; Replace that slot.
+    ld [hl], a
+    ret
+
+
+GetNextPiece::
+    ldh a, [hSimulationMode]
+    cp a, MODE_HELL
+    jp z, GetNextHellPiece
+    cp a, MODE_TGM1
+    jp z, GetNextTGM1Piece
+    cp a, MODE_TGM2
+    jp z, GetNextTGM2Piece
+    cp a, MODE_TGW2
+    jp z, GetNextTGM2Piece
+    cp a, MODE_TGM3
+    jp z, GetNextTGM3Piece
+    cp a, MODE_TGW3
+    jp z, GetNextTGM3Piece
+    cp a, MODE_EASY
+    jp z, GetNextEasyPiece
+    cp a, MODE_EAWY
+    jp z, GetNextEasyPiece
+
+
+Next35Piece:
+:   call NextByte
+    and a, $3F
+    cp a, 35
+    jr nc, :-
+    ret
+
+
+Next7Piece:
+:   call NextByte
     and a, $07
     cp a, 7
-    ret nz
-    dec a
+    jr nc, :-
     ret
 
+
 NextByte:
     ; Load seed
     ld hl, hRNGSeed+3
diff --git a/src/state_title.asm b/src/state_title.asm
index 36477fb..0aee39a 100644
--- a/src/state_title.asm
+++ b/src/state_title.asm
@@ -95,7 +95,7 @@ TitleEventLoopHandler::
     jr nz, :+
     ldh a, [hSimulationMode]
     inc a
-    cp a, 5
+    cp a, 8
     jr nz, .write
     xor a, a
 .write