From 61d82c5b46881ecf3e486a1c36e94a0f21baef9a Mon Sep 17 00:00:00 2001
From: 4aiman <konsorumaniakku@ya.ru>
Date: Wed, 24 Jan 2024 18:36:29 +0300
Subject: [PATCH] made app resizeable/stretchy; added Spoils manager

---
 mmbn5m.lpi |   8 ++++
 mmbn5m.lps |  84 ++++++++++++++++++---------------
 mmbn5m.res | Bin 6188 -> 12252 bytes
 rooms.ini  |  10 ++++
 unit1.lfm  | 134 +++++++++++++++++++++++++++++++++++++++++++++--------
 unit1.pas  | 105 ++++++++++++++++++++++++++++++++++++++---
 6 files changed, 276 insertions(+), 65 deletions(-)

diff --git a/mmbn5m.lpi b/mmbn5m.lpi
index 9a369f9..de35cc9 100644
--- a/mmbn5m.lpi
+++ b/mmbn5m.lpi
@@ -14,6 +14,14 @@
       </XPManifest>
       <Icon Value="0"/>
     </General>
+    <VersionInfo>
+      <UseVersionInfo Value="True"/>
+      <AutoIncrementBuild Value="True"/>
+      <MinorVersionNr Value="1"/>
+      <RevisionNr Value="3"/>
+      <BuildNr Value="18"/>
+      <Attributes pvaPrivateBuild="True"/>
+    </VersionInfo>
     <BuildModes>
       <Item Name="Debug" Default="True"/>
     </BuildModes>
diff --git a/mmbn5m.lps b/mmbn5m.lps
index 2e5377d..425fa01 100644
--- a/mmbn5m.lps
+++ b/mmbn5m.lps
@@ -9,7 +9,7 @@
           <Version Value="11"/>
           <PathDelim Value="\"/>
           <Target>
-            <Filename Value="mmbn5m"/>
+            <Filename Value="mmbn5mm"/>
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
@@ -46,9 +46,9 @@
       <Unit>
         <Filename Value="mmbn5m.lpr"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="1"/>
+        <EditorIndex Value="2"/>
         <CursorPos X="69" Y="19"/>
-        <UsageCount Value="32"/>
+        <UsageCount Value="43"/>
         <Loaded Value="True"/>
       </Unit>
       <Unit>
@@ -59,141 +59,149 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="153"/>
-        <CursorPos X="45" Y="177"/>
-        <UsageCount Value="32"/>
+        <TopLine Value="147"/>
+        <CursorPos X="17" Y="161"/>
+        <UsageCount Value="43"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit>
       <Unit>
         <Filename Value="C:\lazarus\lcl\interfaces\win32\win32listsl.inc"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <TopLine Value="128"/>
         <CursorPos Y="152"/>
-        <UsageCount Value="14"/>
+        <UsageCount Value="20"/>
+        <Loaded Value="True"/>
+      </Unit>
+      <Unit>
+        <Filename Value="C:\lazarus\fpc\3.2.2\source\rtl\objpas\sysutils\syshelph.inc"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="147"/>
+        <CursorPos X="16" Y="161"/>
+        <UsageCount Value="10"/>
         <Loaded Value="True"/>
       </Unit>
     </Units>
     <JumpHistory HistoryIndex="29">
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="129" Column="22" TopLine="106"/>
+        <Caret Line="110" Column="9" TopLine="68"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="174" Column="38" TopLine="155"/>
+        <Caret Line="211" Column="14" TopLine="170"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="133" Column="5" TopLine="98"/>
+        <Caret Line="213" Column="49" TopLine="171"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="134" Column="5" TopLine="99"/>
+        <Caret Line="214" Column="49" TopLine="172"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="133" Column="5" TopLine="98"/>
+        <Caret Line="213" Column="49" TopLine="171"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="118" Column="29" TopLine="87"/>
+        <Caret Line="214" Column="49" TopLine="172"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="58" Column="75" TopLine="42"/>
+        <Caret Line="213" Column="49" TopLine="171"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="118" Column="29" TopLine="105"/>
+        <Caret Line="212" Column="49" TopLine="170"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="152" Column="41" TopLine="129"/>
+        <Caret Line="213" Column="49" TopLine="171"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="222" Column="48" TopLine="175"/>
+        <Caret Line="220" Column="49" TopLine="178"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="9" Column="22" TopLine="9"/>
+        <Caret Line="183" Column="17" TopLine="163"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="28" Column="10"/>
+        <Caret Line="156" Column="47" TopLine="131"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="8" Column="86"/>
+        <Caret Line="150" Column="20" TopLine="131"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="38" Column="26" TopLine="14"/>
+        <Caret Line="157" Column="86" TopLine="135"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="117" Column="3" TopLine="93"/>
+        <Caret Line="114" Column="23" TopLine="89"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="221" Column="52" TopLine="181"/>
+        <Caret Line="165" Column="36" TopLine="141"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="214" Column="50" TopLine="195"/>
+        <Caret Line="227" Column="47" TopLine="195"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="121" Column="134" TopLine="91"/>
+        <Caret Line="151" Column="59" TopLine="144"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="219" Column="15" TopLine="181"/>
+        <Caret Line="155" Column="32" TopLine="144"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="220" Column="26" TopLine="181"/>
+        <Caret Line="126" Column="27" TopLine="121"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="221" Column="24" TopLine="181"/>
+        <Caret Line="153" Column="42" TopLine="140"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="224" Column="41" TopLine="183"/>
+        <Caret Line="211" Column="22" TopLine="209"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="225" Column="74" TopLine="184"/>
+        <Caret Line="235" Column="59" TopLine="211"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="104" Column="12" TopLine="80"/>
+        <Caret Line="216" TopLine="192"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="108" Column="77" TopLine="80"/>
+        <Caret Line="116" Column="18" TopLine="85"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="104" Column="26" TopLine="70"/>
+        <Caret Line="115" Column="24" TopLine="92"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="221" Column="9" TopLine="189"/>
+        <Caret Line="234" Column="46" TopLine="205"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="133" Column="5" TopLine="85"/>
+        <Caret Line="235" Column="45" TopLine="211"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="176" Column="33" TopLine="166"/>
+        <Caret Line="211" Column="11" TopLine="163"/>
       </Position>
       <Position>
         <Filename Value="unit1.pas"/>
-        <Caret Line="179" Column="28" TopLine="155"/>
+        <Caret Line="212" Column="53" TopLine="180"/>
       </Position>
     </JumpHistory>
     <RunParams>
diff --git a/mmbn5m.res b/mmbn5m.res
index 09ecee63a0c38f17109aa74700689c17380da8e6..994e6c659defd01479e5bdf3de11810e422600a5 100644
GIT binary patch
literal 12252
zcmbuF&2Agl700hEp-GB1HHt30D3B@90!GmhhhGw9P<B)&L4?M!Q9CZWYDVNxB0>&X
z4k=qGis})(%p+vk7bu{m7g_WXwCJL{dg(<F_WbY6e{^&`L(z(it8+ij$M2kbW+($R
z#u!h=Vv!D+Uivxz5zlXl&YC^DdGkW0bMN_R=p9GXWH63*E49s_;ze<H+#AG)yOl4V
zeB!q&UNQ^gUN{`b(Qf4=N-Fp6{`AM4FiE1(!SKWr2XV4nnNQ<8N%trkg^52Jbf@EF
z+@JZ~@#s#Nj5d#J6>k*AgMO6Ep6Y1g%FBK2_o8?<n4Me#+6(|SnU1?rl8mQ&)9%q=
z7IkOyso?y!;>F=eCilmqNf@7eE{n}a({XR!o!R-`WCB_7W+xL-dp3w0^-9%7?L|p<
zI+)BP^Sgf@&!=8EnG6Tr5F4I4-0W1<Dl?r#vA}juu=F~;C|%F?vZ~nag2XgMM*e`s
z+WgZX?v0-%o07|D9Q*gj@oYLCCY6hFY@ry-%Q2ZBND_aDPM(avisVYST05<St!Ay+
z>~{OLUccfE!}xF>9@^^JN_a@HAc2eRG|$d#I!|W%aeutxr8g>Rd6K9*pUS;vRhdSA
zol74?y+_l*@n9GoMoD_&b@HQ+pNkD{;<M;D8hS(g-mQemetax>O)K7fu-8RL>{j~W
zFp1JTm8+=cE*$Tjs>bM4^JEaaBaJ$dn?D!~(SKL=^d)t4cbcf`pe)y4`M#IktM_yu
zPm<^R*-<i|OvY0w!^6kkes8z(x2PV}YR%TRUu!kD{AQ!u^21g?@`Iq=i=wE}YxIM^
zSG@GjypDFgy~J&!Rco{lc0#|^+Yz_@gPz}x>ODWKH=9Ad-s<l(!V<UbC2pHxy<cxf
z4Zqbm*zudqX3akcce;LWYp2%?o8eZ}XqUO&tSxa|>u+sub+@<tb`aJ4X1%fFOA8<P
z?M5%?Z}oy+xLxMB7A*1Gj)MMnSgZR7{ey<oA!_?lm6qRZ_j|1%thK@&U5BcBnVssT
zTeoc^@3!N{9i^GJ4&HgkjVoV@d_Gby@@~T8|2Ue><n5cV36Ey8$(?F7d$(@p@77JB
zsXl(NU#$m0tD5x~jnjUV7t>_0_bi-7cb`n>kvz{_+P7A<FmBe#HnHm?)wW8I5ZUX<
zhsoiiaCVf!*(bPDy}W4^ui)%tDX0q&eC(zlPIq72;OF1X!q2}KH=6Qc_|!Z$f05rG
zn?K5I-#j#*%X(jae<E}I{A=TX-y5?g|BU&$S+{%mbx+2-GB)I2`ss?@^yigqtckyw
znVNx#&7pW3n4yWpb8Px%ENb6coxn6rV0L6Qg#kprw6X4s&Pe`6qCYc9=J(g?Y+^z=
zI}y^*>SZeCcUFh-J`xX!=~|A7cp8Y`n5q)*J<+D_Q_-D@_JvMhHcd@N!^*a`OBs;I
z%<9Jyf9O!$whW)i`Jp{UHWOh*H4e>@Sf)QI>xJGE(FjdX>_#G|=Bqq&ljZd=^MR@&
zF4?g{wbGxI@sa3`#oJu+pE-oaq>Pt!-mHKz7rqAOSfU{7--}P&XD^HQk;paaA~2Ka
z;-=waLp0LtV##S}{an=fy^a5D{6aJW8H>gH=7HI>J-Bb~+m4iN`=kGUOM5a9lQrX+
zZ+-)b-=1hL7VCvQe_PHF<4YN^D*N$Xd}xZsr)SU2*RNido}GT_E%f*_@D@ks|I7!@
zuy@r6Zg~p~#1eahxENq^rOOF@cTcbB)Aa?ruV1t+KPCCa1}qEgU&W4du(MX=cjM_b
z=a!+QzR;l_a&YUwc&PCY<<IiAcTN7Hc$#SycIs1C`{bVPAJp;RFHiG<Gxmn9aX~NX
z+M`YwItR>)*4Wd0oI`3(uC-s-a{V^^%!NJ0HT{v_l{j~Y=B2&fTb2X$p+kN$>H4#`
z$yp}J3%~S3zvxZIW6fAoS6cg$XCJIMr!PpxfJ9tK@FOOl-6Ce47yN>Y+^%E{>r?fX
zW@p{W2U%2q=3wKg+9L)yH9O*!v1@+Ip`Hu!QZgT|c?T{Z^C2U1!I}emw5LBv#$eqc
zv0ubbeV)-)`zxA55Bo*;Kz2$u2j)V4oHGXef+hETMeiU!ZD2<(`dcQU3w!dguHYs+
zrJDolUQ~NB*t%rwn6ti=h<*FRZx+Gxm+268oVmQvbBET+<7CeQav`%Tbq?gePVK=%
zZscI|aQMlrSuuC_U4G4oxjT4QZtX2ocK^9gsXJn_=8$9uGi~%ab#UggYkr>Rv9kJu
zOXomdcaM7XNd~NQpTb|pNc}Qd#LhkVEaKNa!QLUimeiv^%|LdXU6&pH$Vkapltuhx
zBs(Sc!OU~c>09$(cMe~!E&aQaIj~k%W_;{-vUANGSbOZl4`VV0*Q-d{P`WnQCu`9>
z=XcmyXGroxUdkcs?Mv@Kz6(Y2y@I&pBIhzmT}ZM+YJRR={vuwT3+K24_$y=QyRk^}
zy;GD!89Vc!jb5`K$hJ&Uw}}7d*{j8>19_2!lI&QM&z02WKGxs`54q7Nnv?sKJcAE#
ztjg@_@$Sj8iqyHm9yXf4wAUp+a#O<Bb@*X}9wI+EG=JF{`EicFZDGTDv%XmCcMtO;
zHzf983qQ<3_U-@C-8y4UX2i#U55&>`x6#acuJf|IVo!GHVULW<a-fdQBeSDD_}szg
zlzp9X;JMHHbrpWbU>-$xpxH3j^=D6M9s1I~VMA6eq5I<OwH?gS*5I0VP{gl$h`c%n
zuyY_b`L)FURoprc=)>oA@4)RL`XfJiwS<n=13&5k8(n|5=IA93HwW0Rl7p^Q(H)SD
zd_~+^2Xn;cvk5+1e|Z+j2uW`Cjy}WQ54{8SFu7TO$f6wbbE&&!R?jZinsM12{H(*<
z-a&r%+53#O1)tmd`V4o6I_GuG=BzK|GG?Ahocx)-?j6`1gqM7f@WmQq&OMux!*1&>
z{OlX%Kt{2(p9x%3LJ#~n#~d*b^E!6`F4%MEo*}b+MunY{eZo6{)Sp}61REGJ&R_pG
zzZ1(&Uvie^a_x6f5kK~d25N*se#B-DMf~E!vLhGdbcsF7LH7WBU*`^3dq`b>y|3qF
z1`l&^`B8V?7v2#?>^w&f;706K`1#I(9foFu57rs7C?CcpKP36NXX~nK%$_Nc<XGhn
z$W6J7pSd6p>XDy)q}g?CsJDuQ9sIL?ya&6Fv+Qp!GHXdLN-(4Uwd6fO2ex1WKiKhn
zqV77Dp6ghg(;jx1Tm9@kVr!K#V;{Ld($<yarYvLU9lT+$Vrg#1*7{|=23^#P3_1t$
z7v+FGa?!S^?$Dtg^3zQ4Q8XA=>$2A<kq^#culd2UEC<G8t;r4>?vWW1zA>!NtcMtv
zzTS}X-qh@vlUqyraru|!VDsg>K;4_>BscScT$x|k5#w$6SwmNngY|LW2jHR&Ys@?}
zJNKZAeb$YBb1CfT9hV*FZr!QF_>`;@*O1t=JghsUsy)x4!+~>aqa=J;JE!k$zn8F+
zQ%mGx-&+}*X2zVOC<icUedb4A@)xnw4!UF(d%On<dxp%q_L`mbfIs?%)I;a6Yz`aE
z&bh6(suO)PU-l$fwRHOiHD}$)lKYVyum}Ilhp{MW!?l(;BeRy;C-=4gJihKtnL`(6
zWG1&8Gq+cFpyRl)u%?aHgI}&Gp$C3fpXZP`gDq=QCZPje`l21z^i>p(y7ZyrbFTex
zZ<#)ID9d!=x5zi_iuRZJ!CBck{4Ktd@3-N5<s$z9Dc^vjwBI+EHRXA#w{|LDh!g!a
z^MT0M^39^3Dfvp)@5q|+JX=$qWos>Ae=7Tw@QZb^JhOUcJ(U~g+^#p|t4@gft$ghX
z^4#3C^3>eIxuo$f{7ITWfjrOT!kG6{f96Ie*C|iIW6V0`S<1J5F80E={wiC42YF`R
cSzuqNY`xCS2Ufn8@`{ti_qP^S%5N?I51eJBwEzGB

literal 6188
zcmbVRc~q2FmVYsGIw#}IbWR^nrjto0k5X}?_8qHGKsH%izzqTUs_H8!g{rbPKo9{z
z5KuNjqS2VRZzvcgqEQl!l4TUrotW;iO}f)@hNww;4ky!pG=1m3R}^Ae&73LE<@@Se
z-tXSu{oVWCD+wWlq5%XAPapbx`LoddU*a=Q@q5ob_uvuJoZ`X)8W25Rhs$Y}C}j!>
z6`fX>&Ed>5OO|BBOAQk0^$AX!P~dWkW=V<YmCT9y=YKQ_UaweaDJY>hfYWQ1_&v@@
zuQgvR6ui<xht=cqy6irw)m0cNcnf6#rGyp=PKRCe`j(DI!=dQdSV=a~>2vr>9&$*g
zU{1L`F01JEx;)VyYrexLT77;Gx-(NkokAg=#JURIg0mzIzsMGPTsFVe$IqkPZg!MV
zUx^zZD{?s1Dv6w<+C;C_<8b>h@~9OqzlRELcY(tyunTnDO_@nP?%U|AZqbR(T1(hh
zYO;yJ@4o0!R`}&d1UBA_QO{FDWXYB}oHkdHSB9|^x}4Hjm(%BQ6?i2N=+H4To=k_^
zZ^0mv#gYuy8WB^f(;BrFokpqASgm%Y%`Tw@f-}!A<Z<>m6O;w`hyWg34#sKndHh~q
zlGE<`KPFu*3DV;gt$q*Yb(9s4xYmz45N!)Rj)0>;%oDxAJJd9GE3O#dVVOt~17ZO!
zV1LaL!JFg^U|b#v^*f@iOc7>@T`2I1!JJ|$<YPnpXmpc&yc;I@STGFRghF*=<}Ho_
zroW%m^h1v`bq50-r=ZbT!=zF=npe8ift5t1($QO9zuWEdAPo!BX_Cz>DHT-;rBb8S
zOO;xUPO4E`wNgQA7o`e?!6u5L+NQQE)=OwGXVf%)X#Eq0Rcn=MgT*LFwKgLTYq!{>
z22o{`3M!38p;Bq>Mz!#mVGU0hRwJnFDubw&YSk8_RHM--r53?xmD+Shn?}$GI#F$S
z+^{m`69!h=b$Xpuuag=SqEf0+sf|*UutjQ6+Z1-4O<@!Cj~iI2c*3{_QDN5$N|n@N
zx2TZ^(I7=uv{H@1Zqq6RrB*PG=RyACWSZm;Wu40gds{#qIqu1zbXd;|sDH94hUz0Y
z3ic*e{^_F6huzm35@Ej2=Z=)iM|-PmthdV08+m$al3b-wXyv0C3%wlFBQ_?tBf3cN
zh*23Hzlil5`pUbO{E@h$O6Gz6|6Nk*9^(>2rY4+B@)iod{GfBZf=%*=FY*U}!cWs^
z2;&lf?z5}G$th|QPIU@2fPW#WB$_0VG_+W<0FR;1`1z2Kr|=)8>`2KWoGG8;fAIp2
z@$@6-(CK)O-Jgrb-g?}JHqRv?leESX+Xqc#RevK1??@!!?Fl6Eh>dJ=PV1|(PlhUS
zGA!9>1MgR-q3qvZhgI<sNL0|jGea01QT&qD2maJc65a_A&HgN6I$`G)@!CSfizdo9
zGRc~o2gk5OK1A)!CDmW|lIX5{GP_G8rsMgfy<V%Y_s;yGZtZkPuN0v9?z^z#Ru|Y8
zg+qe;@A2nJ>D@Rfow)Anw@KoKVxl{kgJT8pWxLaf{;)vYUv!cDOD#mV*TQ|6im|eI
zXYEKM8CRRgraNzw$fF|3{q+t~kxM653Us)96@^kyGF<zx8ZMspK(dB{@&yV}(<mS&
z=V1<>D_*3j+rPU?+P}L(*8ct&v0Q5*YyWtPEW5sqEFWwq_S?tF!gm|U<dzuXymg$U
z9C4B9+voFmwFk42ua(66`Cj5eA4@O>#GiyVoR>_Y!apCbT`7mNC!8D?c?M?cf1_Za
z{G4$=5A!k+tv+)u?JLg>>uYb&)gzA+>+bfG`RA*N;czZ792JOk=VFrc>)j;d<E_Np
z<p^?)xms|ghUB5|b^mpq;rF0HR*VD=buNJeyBEOb3LR*E6~t!vv!{&VpTnFO5c}>j
zGabo_p^zI#!IKd-(oib9Tb(~upLJt9QSZ;>x?oyJI$uUs40aIPt;1y5N83nDubV8m
zT0^St^f7EX+ECGQ3X9E?Veifq*xsavfDq2(X4txyDdeYyf&LYKK9r)NL*6A6%CeC!
z^qZM)DFs^sg_^?fq0VN5eC3T!qTaWH%*1>%&SQFAWaTG2NdA{6NM49{A#4J^>o3ot
z5HpKH5n?jzjxBnKRfGk3f02SwnhO5X0BB_KFn2mWw<3sHj7NscjGeE?alFEGKzx5^
zvvETDM~y_bE1l!B`iOno&GoV758b2#^@G?v@A)aHEg6O8YBhToiVCEleu;t#vFFUQ
zgUZnhGnbqKx!Mj3^oWCT=fqNQEe>KcE*2TkFXXV+&GCnEoQW$3w-e#>{Uj6fk^W%=
zNx8gX48MNp9iI0!X%zIREB7k?9`_*uwa$1q&(MHk<r`p9ECJ<9O1w6i*TWp-z|OQf
z%KZkco8?gy(sUH+JP+`j?!8Ci`vN5Gy&7H<*54gK{!fw`#Kw2zWm$B{C_#S1!=SlF
z4O>d3kewRN<7W6jHdc%58smlOZe=tDRx`YAv+(;|3Y)z%7>7K5R$HpQD|o#v7}!KA
z|FaM4t(P?2yF^g4aj96}8syo4x{92J`a&K;7~`?Es6SSFv8a*Iee8j-)P!cHuwo8s
zFA;l3b{N+V;t!xb%QU{~(>>ghFO`#p1GS_I>y6#3DNzoXqsl;)e;f>Jx<HZN1rhT*
zL8UJTZMdFW^eh$EWjtyl)Q6+OgB)NDa2+u1vHX`}{PvVE*w&yQ!SUzivmSJ{mMq4+
zTmR!A*L>a=CrB~I&w58(WX`Z`O+UygK8BgizX@9Fr!b@KfrW1vfO&Is#<1r_AYa%M
z820$u%SJ6SW4cT+hMi;DXBxL)z8mkp%dPMaJ%n9j@t3Tm6UD66!}QJD@WPoPc&`8Z
zN7^qgd<)5YKY-fxD)26oV2@#a260w}L8UcpOn<BvSWRwOr(pN{8W59dEd@EB|IT_+
zfxWr;{$*ZstZ!$`rW1t~tA_Q5Zh`9k`;dO^4on*7!wbE4;a7)$588^}k>$3n=ML;n
z8#=gaF>Ec?@%n13)xh?xdZ=|x=RUCdt@Uc*?XEniE|@jAKJ(@0eP5mCwZ`T+R`)qr
zgKWOy^9J_n&7K(}<vtt4@3=maedx-_OyoVhVgL;81~6uB0LL=nMw}^QL82;b!r(wf
z4;mcZx0Lq>%r8GOKPoL@T>q<=s-UxO4xB!00sqpM;@ZA_pLqWG7Vp7v=Y5<D#tGAY
zg(a-7W=%LSD;G@X6jRYA>mgpI2m9Jas5o#FiVoiy$=ZJVuA<<q9<e8(4S#&O40g7e
z$9!PDa#LYAu==;eQ`prqAA0r)upw`Xze12qSo}dfNxNK)`hNrSagZ<#G~Gx1V9)oj
zUZ5FXyDTjl`^vdEr4csmx&Sq2{tPDjIWXn+LUs2&@E;i(igNcF5Z})@INO~!hR=9t
z#lFG%5UYdwz+8B9dkXB_G;bKMO{_(}b8()v-#$igO+y$bZ5V%|GHgPO))KF9_uq(E
z(K{?PSB@-i{S2D>|A%8PDY^v9TR%r%zQ=2S0mj3{^DRciAG&(62zGbGJmf=22hNP?
zaOm}1sB}ylK>TM{e%wTKhjPf`4>lA3pU#jr)F9TLUN149Q<%4p$YM7^gm4z*YcC_-
zO^((4-Vebe;xg>&3wNNX=hlcW@LoOQKT!va2X{IhjFrCpeCPKA#E13H<{%a?;<7bE
zDz2OEON~u1GY$KVyaXbaH}l$G`uc5X{pdTW`|1qr`SfdOLF|pE{|s@ZuR_VE`#@K6
zwGZ*1r~`(N)>m`uBw_ePxIT>T@*+MB;m4s5aS>6k4a(PEf|(0Xz~sP1Ui)eN{|&8Q
z-URR2I(X~eAZ$GK9V83Qkf@vr^Rx6&Xm_5wdZGBA(1$1L0P%;=<RN_4f6H!nk%pm*
zq#msuHJ~!J^r_PKg4}-vrmTOT<HvV@1Nnz{LsEhas)`dKA-k1hqrbfWEtyS6PV5oB
z!L`{Vb<okM!+M$;>Pc}S{KWoZ!fX-Ng7vot_?mIPiuOgDtswJW2HmM4P$Bo_m3~-f
zi-Se8!vNP+yvHW1DKJY=${<0jfsKCIFk9mx2YU45hr@5A!;V%HG?qwtEsyfgeBk&k
zs5kS;e7-K9eaz0+Ujfu1_U^vSxFpDEzYIMeUWWQc2iG&}X}j8Ec%Nf)s^69gw#qtC
z<Q#yxtB*iqg^JIsZ2oHB5;?H5EeiV2I-#K`A`~~@L)3X@aD2uATldU9ZXcV27(V)^
zNBf~ll<+<p>SrvLb8oGNEdebbFKN$*JU1_%9)h&MF=(q9#m8~+o#)X8P9Dm_^=cYy
zDU-q0^>Vg;xv{NL|F0e2Ug2|1<Pni$=YIAk??uV|RSbV3+HgxX_RP^<%8y41VcWag
z#$t&-eq(H2ns;>YVf>&Ezv$R%=;`aR54AT&!lp76EHX<*Sgm!S&hoCelkDH@;%hJU
zzD&LjoOjkoDsbJoKI>(FTWxT?$Kvip?6*GK19eV0$FIqs0_ok?;FWjoLC&iu!Be_!
zq#-cN$L3Zxhp>5+tsxtRE|5*-3j6^o!jHJaXai`^w_@&-&#WWi+Y-stZSf@XxQ(y<
z<BqT4`>)O>gM9z4)S=GqA~<=q5%vx4hK{nRvDixs)1jcY2@2|3Aa?&JBO2d@2IjZ>
zi{scwukg7%)X&*IXtc+$J;}2y?=2XAHqLpWeIMI@MdMzt>gzM4@XK!ELA!pXTwZx`
zw?BJx!Ekl{G(L~vT!Q<E=;4?XH(}EG`!J*Pcf%2N*L}*8feHDzhcFzrl3HBHiMXb*
z{B}RiDcyWcQ;B?RLrgZuuEV}lf>!rU{}}!h<e=)-39=H$h}gM^+meCikl&NANA)Bq
zXdfQyeN`=!<blgQ%oN1~lhAnFmg{YNKf%`38*g`$h#d<_RQGC<IoOFBJ46<~Uqy^Z
zt+>xj;^VVDNGN{eK|2vYd6n-!L)X}m<;Hwu4RPUKEd3PriDO=}yr-1pezcV&cKe9*
zwMB$+XG9&(K9+~$Me{vf0pbPs+H=XwS5x^KpRKnHM}qrZHum(+WC9gWLC~JYBl$Vn
zGx)Rp(|^OC4MO%;JZJV7ygq8rj5}x7xqXlKD+qZ8E%e;z@gMN`Gqh(m{+0av>fgvK
L_+JBafPMZKXEqY!

diff --git a/rooms.ini b/rooms.ini
index 55cbdc4..d43216c 100644
--- a/rooms.ini
+++ b/rooms.ini
@@ -78,3 +78,13 @@
 3982=Squirrel Comp 16
 1536=Higsby's
 1422=Squirrel Comp 6
+397=Crane Comp
+141=Elevator Room
+1025=Mission Control
+3=Dock
+
+[Spoils]
+397=RegUP2,1000z
+141=HolyPanl*,RegUP1
+401=Vulcan2 C,HP Memory
+145=Quake1 A,Snake M
diff --git a/unit1.lfm b/unit1.lfm
index a020d58..8c10ea0 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -1,64 +1,158 @@
 object Form1: TForm1
-  Left = 802
+  Left = 1033
   Height = 448
-  Top = 496
+  Top = 463
   Width = 528
-  BorderStyle = bsSingle
   Caption = 'MMBN5M'
   ClientHeight = 448
   ClientWidth = 528
   Font.CharSet = ANSI_CHARSET
   Font.Height = -16
-  Font.Pitch = fpVariable
+  Font.Name = 'Liberation Mono'
+  Font.Pitch = fpFixed
   Font.Quality = fqDraft
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  Position = poScreenCenter
   LCLVersion = '2.2.6.0'
   object room_name_label: TLabel
-    Left = 120
-    Height = 21
+    AnchorSideLeft.Control = start_stop_button
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Owner
+    Left = 136
+    Height = 18
     Top = 8
-    Width = 157
-    Caption = 'Room #0: Lan''s Room '
+    Width = 320
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
+    Caption = 'Run the game, then press "Start"'
     Color = clGradientInactiveCaption
-    Font.CharSet = ANSI_CHARSET
-    Font.Height = -16
-    Font.Pitch = fpFixed
-    Font.Quality = fqCleartype
     ParentColor = False
-    ParentFont = False
     Transparent = False
   end
   object map_image: TImage
-    Left = 120
-    Height = 400
-    Top = 40
-    Width = 400
+    AnchorSideLeft.Control = room_name_label
+    AnchorSideTop.Control = room_name_label
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 136
+    Height = 406
+    Top = 34
+    Width = 384
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 8
+    BorderSpacing.Bottom = 8
     Center = True
     OnPaint = map_imagePaint
     Proportional = True
     Stretch = True
   end
   object start_stop_button: TSpeedButton
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
     Left = 8
     Height = 30
     Top = 8
-    Width = 100
+    Width = 120
     AllowAllUp = True
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
     Caption = 'Start'
     GroupIndex = 1
     Transparent = False
     OnClick = start_stop_buttonClick
   end
   object edit_room_button: TButton
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = start_stop_button
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = map_image
     Left = 8
     Height = 30
-    Top = 40
-    Width = 100
+    Top = 46
+    Width = 120
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 8
     Caption = 'Edit Room'
     OnClick = edit_room_buttonClick
     TabOrder = 0
   end
+  object spoils_listbox: TListBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = spoils_label
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = map_image
+    AnchorSideBottom.Control = plus_spoil
+    Left = 8
+    Height = 250
+    Top = 110
+    Width = 120
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 8
+    BorderSpacing.Bottom = 8
+    BorderStyle = bsNone
+    Color = clGradientInactiveCaption
+    ItemHeight = 0
+    OnDblClick = spoils_listboxDblClick
+    TabOrder = 1
+  end
+  object spoils_label: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = edit_room_button
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = map_image
+    Left = 8
+    Height = 18
+    Top = 84
+    Width = 120
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 8
+    Caption = 'Spoils:'
+    ParentColor = False
+  end
+  object plus_spoil: TButton
+    AnchorSideLeft.Control = Owner
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 8
+    Height = 40
+    Top = 400
+    Width = 56
+    Anchors = [akLeft, akBottom]
+    BorderSpacing.Left = 8
+    BorderSpacing.Bottom = 8
+    Caption = '+'
+    OnClick = plus_spoilClick
+    TabOrder = 2
+  end
+  object minus_spoil1: TButton
+    AnchorSideLeft.Control = plus_spoil
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideRight.Control = map_image
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
+    Left = 72
+    Height = 40
+    Top = 400
+    Width = 56
+    Anchors = [akLeft, akRight, akBottom]
+    BorderSpacing.Left = 8
+    BorderSpacing.Right = 8
+    BorderSpacing.Bottom = 8
+    Caption = '-'
+    OnClick = minus_spoil1Click
+    TabOrder = 3
+  end
   object Timer1: TTimer
     Enabled = False
     OnTimer = Timer1Timer
diff --git a/unit1.pas b/unit1.pas
index ec7e20b..ce4618c 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -6,14 +6,18 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
-  Buttons, IniFiles;
+  Buttons, Grids, IniFiles;
 
 type
 
   { TForm1 }
 
   TForm1 = class(TForm)
+    plus_spoil: TButton;
     edit_room_button: TButton;
+    minus_spoil1: TButton;
+    spoils_label: TLabel;
+    spoils_listbox: TListBox;
     map_image: TImage;
     room_name_label: TLabel;
     start_stop_button: TSpeedButton;
@@ -22,6 +26,9 @@ type
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure map_imagePaint(Sender: TObject);
+    procedure minus_spoil1Click(Sender: TObject);
+    procedure plus_spoilClick(Sender: TObject);
+    procedure spoils_listboxDblClick(Sender: TObject);
     procedure start_stop_buttonClick(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
@@ -104,6 +111,8 @@ var
   last_room: smallint = -1;
   room_name: string;
   new_room: bool;
+  spoils_list: string;
+  spoils: TStringArray;
 
 {$R *.lfm}
 
@@ -114,6 +123,7 @@ begin
   // open ini file and create a list to hold processes
   ROOMS := TIniFile.Create('rooms.ini');
   process_list := TStringList.Create();
+  spoils_listbox.Height := 0;
 end;
 
 procedure TForm1.FormDestroy(Sender: TObject);
@@ -131,8 +141,79 @@ end;
 
 procedure TForm1.map_imagePaint(Sender: TObject);
 begin
-  map_image.Canvas.Brush.Style := bsClear;
-  map_image.Canvas.Rectangle(0, 0, 400, 400);
+  //map_image.Canvas.Brush.Style := bsClear;
+  //map_image.Canvas.Rectangle(0, 0, 400, 400);
+end;
+
+procedure TForm1.minus_spoil1Click(Sender: TObject);
+var
+  Txt: string;
+  i: integer;
+begin
+  if (spoils_listbox.ItemIndex > -1) then
+  begin
+    spoils_listbox.Items.Delete(spoils_listbox.ItemIndex);
+    for i := 0 to spoils_listbox.Items.Count - 1 do
+    begin
+      if i < spoils_listbox.Items.Count - 1 then
+        Txt := Txt + spoils_listbox.Items[i] + ','
+      else
+        Txt := Txt + spoils_listbox.Items[i];
+    end;
+    ROOMS.WriteString('Spoils', IntToStr(room), Txt);
+  end;
+  spoils_listbox.ClearSelection;
+end;
+
+procedure TForm1.plus_spoilClick(Sender: TObject);
+var
+  new_spoil_name: string;
+var
+  Txt: string;
+  i: integer;
+begin
+  if InputQuery('Adding item to Room #' + IntToStr(room), 'Enter item''s name',
+    new_spoil_name) then
+  begin
+    spoils_listbox.Items.Add(new_spoil_name);
+    for i := 0 to spoils_listbox.Items.Count - 1 do
+    begin
+      if i < spoils_listbox.Items.Count - 1 then
+        Txt := Txt + spoils_listbox.Items[i] + ','
+      else
+        Txt := Txt + spoils_listbox.Items[i];
+    end;
+    ROOMS.WriteString('Spoils', IntToStr(room), Txt);
+  end;
+  spoils_listbox.ClearSelection;
+end;
+
+procedure TForm1.spoils_listboxDblClick(Sender: TObject);
+var
+  new_spoil_name: string;
+var
+  Txt: string;
+  i: integer;
+begin
+  if (spoils_listbox.ItemIndex > -1) then
+  begin
+    new_spoil_name := spoils_listbox.Items[spoils_listbox.ItemIndex];
+    if InputQuery('Editing item in Room #' + IntToStr(room),
+      'Enter item''s name', new_spoil_name) then
+    begin
+      spoils_listbox.Items[spoils_listbox.ItemIndex] := new_spoil_name;
+      for i := 0 to spoils_listbox.Items.Count - 1 do
+      begin
+        if i < spoils_listbox.Items.Count - 1 then
+          Txt := Txt + spoils_listbox.Items[i] + ','
+        else
+          Txt := Txt + spoils_listbox.Items[i];
+      end;
+      ROOMS.WriteString('Spoils', IntToStr(room), Txt);
+
+    end;
+  end;
+  spoils_listbox.ClearSelection;
 end;
 
 procedure TForm1.start_stop_buttonClick(Sender: TObject);
@@ -168,6 +249,8 @@ end;
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
+  spoils_listbox.Height := spoils_listbox.Items.Count * spoils_listbox.ItemHeight;
+
 
   if hProcess <> 0 then
   begin
@@ -176,10 +259,18 @@ begin
       begin
         if (last_room <> room) or (new_room) then
         begin
-          new_room := false;
+          new_room := False;
           last_room := room;
           room_name := ROOMS.ReadString('Rooms', IntToStr(room), 'Unknown');
           room_name_label.Caption := 'Room #' + IntToStr(room) + ': ' + room_name;
+          spoils_list := ROOMS.ReadString('Spoils', IntToStr(room), '');
+          spoils_listbox.Items.Clear;
+          if (spoils_list <> '') then
+          begin
+            spoils := spoils_list.Split(',');
+            spoils_listbox.Items.AddStrings(spoils);
+          end;
+
           if FileExists('images/' + room_name + '.png') then
           begin
             map_image.Picture.LoadFromFile('images/' + room_name + '.png');
@@ -192,11 +283,11 @@ begin
       end
       else
       begin
-        room_name_label.Caption := 'error';
+        room_name_label.Caption := 'Error. Make sure the game is running';
       end;
     except
       on edit_room_button: Exception do
-        room_name_label.Caption := 'error';
+        room_name_label.Caption := 'Error';
     end;
   end;
 
@@ -211,7 +302,7 @@ begin
     new_room_name) then
   begin
     ROOMS.WriteString('Rooms', IntToStr(room), new_room_name);
-    new_room := true;
+    new_room := True;
   end;
 end;