From a24d737bc7850757d97a988df6eca3ef78d5fbc6 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 22 May 2024 21:53:17 -0400
Subject: [PATCH] Allow any actor to push an event to the UI.

---
 assets/sounds/electric-switch-off.wav | Bin 0 -> 7572 bytes
 assets/sounds/electric-switch-on.wav  | Bin 0 -> 23754 bytes
 game.scm                              |  80 +++++++++++-----------
 modules/game/actors.scm               |  93 ++++++++++++++++----------
 4 files changed, 99 insertions(+), 74 deletions(-)
 create mode 100644 assets/sounds/electric-switch-off.wav
 create mode 100644 assets/sounds/electric-switch-on.wav

diff --git a/assets/sounds/electric-switch-off.wav b/assets/sounds/electric-switch-off.wav
new file mode 100644
index 0000000000000000000000000000000000000000..1cedccbb1a50aaff376cc7204b677f21929cc1d7
GIT binary patch
literal 7572
zcmeI1XMB`Zn};W8dP0&(pG?d2gepP|RUm)_LJ$x{1O$VCgl+@@>4c65p`#!u5<=C`
z5eY>RFf?h>Lqf{TJiVOr^gVB0*2Ueo?C$T~{lss+&X@DQ?)yIHzMj6>-MTF|>2z;*
z8qjs*xB_dmPNxe%zb<=py2S$nbPaUTx)H+*hL1-7sZ2VMG%G15$&gf+cr<Zw;=n{t
zqL6SgVROQ`gx3@F2~XpX#xIW_7T+>HH2z^+Y21>y_u?|*BI2rIPsA3*=Er8m8e=*A
zWqq-Jo_?@CLm#8}$NUoWb<FIT!7-UJ@iBDt)#$y^%c93bcaL^Q7gSAqc=BPuqb`pY
zJ-YBH{Bh3X6_3jwM^@xiEUUOs5&WdflQ~aLK7mhKR*tXSRaseStm<F2qUxtArK;uA
z{HNQV-hLWU-Kly?bxHNZ>X@1?HB)MeYwp&B*S4!2SNmmcd97UAsP3J*#dU}4D(j-X
z?Y$p**LqKTF>jKuvu~Vly|2vY^~L(z`bYSe`%C@z{0*=)tT*;Cwi!E(Rb%0JGyE<5
z6Z{MO6#fJcBs@e9Vl43)ae%l+&_pcxD)|;!Ko*gu<aLrFqp7A;FDjo}Onpn8r5;lX
zWuP<YzVvu{DZPU(qwmu^9m6zYx-r9;X-pBbhxv(l$N(mq^{^e;f$T(fF}syL%$BoN
zti;A}9<BrT7B_~Q&8_81xKrE>u8wObUvy7%r@4Q3EpfGVVa~12e$F803CBc-%W>ac
zWba{bU_W6iur;yOrfyFinrcYBWi7Jyu|`?TEz2!AmIzC^`7?8Gv)+8ewBGct$zrN9
z?lO)ywlqp9r&E@s^hrrhd1BaYC@^#|gc@!nN8)Ntv)W;`pVyYv61C>KUUf6-cGcak
zd)fPncZheX_mH>38{vD+H{7?(cgXk97wm8Df5$)9zsrBs5Bz4VE0&L~!VY8iu>jnO
z_rS;FtMNnl@3@Rxh)zTvQAq40ej)0JFtQQZlguZVktO6svW^U<TvQk8eQFN1g*rjq
zp*TuUH>G>hBk6hc7Wx={gC^)O#=&%81~QYG<;)J|6my3mnNT*BZNv6u$FOtRjqCyT
zJo}L4*l^CqWpcUP2yPm;lKX}`#$DzrImkuuR=yRV%@5`$@(cL&d<lP&zsgtgJRbrK
zpfTtG-URQ10#FFnfnsnBTm*N44@e*a8ewDD4(7nYFdxo<OW{UX43EH{VXXE=dbe~U
zZBts;G|Ka(r-ui+zjgO_2f7crM!J$*7o9VmuQ;DNHadDc0v#vplkMsDC$`PDw`>h<
z7g86bzMd*uk6J&rzG|f`2P_jU%`Bw(JM(07OEYgeX8P3B(G+O9U|eZ@%V;oGq!gz-
zATHIxI;Xd<cb2!rd&?W(YwR1~o8v3--S8<smp|7()xX96vmf)vVQsPD*dlB%b{zwl
z5$}Y5fG@%K;8$@5ParahLByxT7NU%(AR3T1GK<V3=abvXGh_v+qs&x$>RoCYwT?PS
zU88U+oOaV$^n3ISdOiI;T~621FEJ)2lj+NhWeS<C%u(hV<7HlAQ`nYl4x7i$V2jui
z_B4BkCD=gD$hF|Qb3?fTZV9)QJIGz&9&$7n%%||p_%8h0d_F&$U(N5}kMfuJhdjl<
z1QLJ;v;jF_D3}1|g4N(_a1i_iZh;yAKnP5N9+(Nc!+~%VoC+7hwQvVK2+zW6@G&Hy
z0>g!5!6Re{SwbJ-OU>D+Jbg;KCH+ELL7FA)lIIhT)AO5qp1XzniEFhh%f&g1o$orM
zoM#=MIGQ@D?3?X<?P2yawi&ioHX^ko^@G&Z)Cbm0)`8Xp>kUhhrJp6%a>KmVJiwe}
zzGvEEdf((Sd5!yx9~;{k1B|Umo42=jhIgm;H?QhV^Y!!1^6m6p^NBvYKgVC-|H6OP
z@AK=iOl&Ath?QVhF%C1}9q{+@g?I^Gj#GFnkwFY3rW0QfCy7UdMp(&?<ZyB>`4w44
zJ|b1pNVTQjp{7!6sPCyOl%EQvopdL92tAEnOCO*w(baSSV`MUzH<>Za0_IERFmsiu
zWdc|O+k)-EzRyl)SFy!x8GD<>*q1p2_X_t0H-wwaE#|)DzUR(!_c@9S;thOLzB507
zAH&b&SMlHQNBE2U1D@m?fH>d=twB#P7>ozA!78vFl!9~MCa4BH2!@H!4PS$Az_;N@
zI0Y8MHSil)3eUi+@DaqJ48w#Z!7a2BIty<KLxp_di1vD;n)H?Fndwi`R-|R7Re3)5
zwD<Vjo7~xM!L`dZ$Q9xG(K*TKbpG!6%#q~~><8?l>=yfN+vm0(wwG-`rcO(3l}cIn
zS@W%F)*8#VmXQ{hrP{pHJldRY#!LrHADLb=NyakcLSs*(-q?+N)%%`zx%Y^-(%aD2
z+Lz~B;XC4c><jg`@DK9O_m}vu`vt!h>xPZPR%1u82Ur8#jpyJK@iq7n{4TEGRw9e|
zfLKHn6Bh{|5kWR4bI7sea&ixOiS&}8l$+{CjiBaHTd9-OT?$aKbaOg~9!)Qxx6;Sy
zn>0y>Gft)>Gl(f*Rxmr6GUj)NX2MuI+m`Le=CkwIP3(8<FYF_hXCpW}*P83ieZWoU
zKIe9D$GIz96(?|!d@7&8_uz-{llVe@1HYU9k-x@Qp*a=`Qa}^%I_LxP&>UL`)<2tL
z_kbVBAQGBj6WAX1LUU{^nq$l0Cb$b8h3DZdSOpmvAVdphp|Q|L=q~gZ@`Q=P4_cQ-
z{`58J?bB=0R;9H|tM#n)boP+$E$&`!#kJ4%o-5jQ);YzQ=6v8-?RdkX*bmzC?RNV;
z+ZtOhTd?g+>de&EshstD>jY~PtItwm`OuPP@tRA_W6e#?q^Z<2#ni^68P6G)7<(Jz
zjoD;|H_yA$d)!;?jq$bfjr4u)JMOFWMfh9!hxiNqd;K^4vfqwnV-v8o*a_@07Ko?g
zx%gy!9ex~tfa?f5(UllQEFpFizY-YHkZel!CMS@ek^9JU(ocp{=~Q=WB(;FrMxCPW
zQvwxFx1e+BF?1oljsAhYP1AHF<7PTDgPD(+l}s^nhPlTuOa$v-+p+!GvFrkNGh51D
zWGh&}Hsl;!8}3bRB=;$|irdNkz+K~>av~SS+xge{p8R|KWPTyPk>A6g;;-{hdB}$W
zBWMOXfxch_m;x4o4WI;^0GGghfB^+Ggl5<jc7VBXC>#f8!sT!?EP==1FYq>e3R&1d
zh!HG86QM2QGe8(2OcG9NT@jzP=^fH*(^jXoPpk8+^JIA__f~hVTXpSs4Rgh~&LKYO
z&WDa7M|X#6KV%<kci8XS*4lDyA-1!rvk)I1@tKJD_$|9FV=U>2&u;TL#D_8+G)*<N
zeU48L^0j(CC!X;c<y(dLRQVzipP~MR{(aB*^uQ)!>;B-=8~+Gj{~Vvu&+%zi&u1m#
zbD6}R<Fox4pM+<879u_;={q!o_;~91OhJ5h)$?HyA1B)$@fnBseDRDAtmo5~>r>BX
z^)o)zf8z5|J)gaN8UNceKBjs;{hsmJSkLFzdOqqu<Wv18KH1Ol!T#XW;qUO7`VaZE
zdB&&df8x{ZPkff5{z))C&qt5?=Rf#l{7pU;SP<%;|H@}+egEL7fBwuT;*b9M*YI(2
z|D4Yz{{M>4<of>k+kARI*FXQ9Pbuo3{~4be@BfxhH)1sLg3k*+f0=K8?VnNT{`vd!
z?O)eFFa2@<{B^#)=%0Uf|GePy@9%^E{{8d+Ki^*TPo)0^9~QotZ-0GXH)67xk<5JN
zE9NBHPB|uqZNhd(US}3^Y^CgFww4XxQn;2}FZ8mW#jWS|BX97C<I!H~;M?+j`O(Pe
ztVLUC8GnoS@j4I>(ve&12S$MzU?nmJhrtE(q9#BC7>|5GYvk32zzJ|JT#anOA!OBV
z!x{)-2=X{-LTe#g7$}SurV0y%b;1szR5&AC6CMe;APZsQS*@e{scWgLnd=rZZ7$~(
zWO3|{%l7GZxBaGVzO9ArNorAQ7xaQIwhp#NTYs`lw=}oZn71H*6J`FzG|$xD1dRuc
zlZ;J`zLb)b4^uoTwT4}WF^0wlJo&rig5=C(CFxAk;-uW9xTO1ud+4ReZdPCscm_TU
zUy7IF_wkpBCd6CFrhSc!07)c}?U1ioNbV-DkPMkfwV{R}tGS&zM^#h7bQ+zFcFm=9
z34M{SqeIZ9*^L>&%&SlOE^@<hY;$DLMx!leD|?*1$&zds+A%wD1G!1uGGsD;;BIml
z7s#8C$IRjL`02>b6r=6`2Jb~VCxAwvBj^vtfLWjj>_nU86;O%1Oeos>o59YoKQd<1
z(N?(y?uV!0b+q$yFi1#5MkW(&lz&P26JfEiLD(rA7Je3P3RMCv1c=e1S!^t}5xa{6
z#1Y~oakjWz+$er4mWpL!xp-Hs78y|!!=*&YE;W<dNZq8q(hzC1^pP}Mx~}ao4KXE{
zt{4{^vy5uW@suekucnZO{f2RdCI&2dZ}NoX=E+Rb;iPFv?UNcLoljhm*e}tLSdp+R
zVNybygqIU8$8U(wi*Fh)#+{E_6E{4rS)3C4YwTw9<)LkCc<g=sKK&ehU%gWgV=l#f
z731NDA!GbCeU5%g2Qe;`?gz+%eT}xn3Pxj$$Q8fM79az*7j5v>sESR<6ZhlBA^Wwx
zK3jqdL2jirs^KyGJbn}Z9e;s;%mY3WIFONi6O06(BIorjO7<#v3It?SQei8YjeN=k
zI3JnFVt4|UBiBWtSrRX}P_Eg+Amq6|6_yKM3VVf<Lb>oj@T1xd7Y$;Xm?^#?_D88s
z7UzhciC>5%;!*J@@i+0Yh>4;YEX7GysfpCOKGUJn7-@<$S6U%$kiL=jOUI?3q^r_B
zsahf>NeYysWP|LGo64DTXSt``UmhxtmM6(G<OT8yd7ZpfE|w3-$K*5eMftjXPp*`G
zG9y=LVR5%&x5ti0X@<n!((llJq|egF>MLUo#uUc99g`L#MPH8I9z7+xN3<oHjk*xE
zHEK#!uP8^9-0()jJq-&R4sDp(P~XrWc|LM`<jlx-B3ni3BZ-J#BT6C`MU0H-5@C;M
z5b-4ZO!)Tj`QdrtJA@37i&C5k)_~pM47h`)Kp-^0=CCUqgfd)!%=%tbn>S${vV~EC
z9eLdD!n?vaVYaYJ_*yuG>hg|ICy1!`Q^ZDMJ26KbEar<d#HHdUaTiMOym(Wr5@|6&
zijquHx|E5s>n9D9#!1tqMba8+o3vLtCjBg3mmW%9iIW242suf%qug4{UF6>KJMsv5
zygW^wk5XGNZ<BY+hvXmSU*u~jvnm;rd0CS~lo%yhu_@`wt4doXOX;cfQ{GkblzinQ
zWx6s?S)!~`HYi(_oytDtkn)3aR=J>DRc<Q}lq$umPzq2K<s~&tjaC!X6g5?Kt4-7v
zYNpyj%~G?~T(zJ2jyhD$Q%9?$HX$rGtZ7(e7#4atbYJM_p_4-Ug|-S!3>8Bjgp`GR
z6S6pDY)GGwRv{@Nx{&JNUxU97-WWV5cvNt1a7M5>I4GD1x)XFds3fQ;XlBr;pguwE
zg4{v+ASJLi@J3)+;GV#ZfrWvS1K$hG32YPS4zwwea*FJcGvq9}52~Pi`4hQNUL|jl
zOXS0-b}q|z<!YIdWt2gzVph^n0v(j@==?*JQOYD`hEk|}hR(iC*{vK@PAWeuSJ1g1
zD|P79g3<t;S+5#Yo0_h^qPA8$s@>Jz>Hu|!Izr7?C#%!cIqE`ng<7O;QomBaRrji;
z>M`|{dQQElUR7_Y_tXltTJ@=v%Bzy9(*m_HElP{ik~Ont)7)Akt-01xYpu1{I%!?C
zY%N#os}0ZwX+yN(+6UT)+E{I(R-jGQW@xjtxmuyNSX-v8)K+V2wGG;4ZHu-|`$pTT
zm1ujk{o421A?=8ET>C*grJdH!X+LWhv`bpKc2&Es-Oz4nceH!j15MLz=+5ho>-Ort
j(iQ0z>89((>+*DO>w4-s>RRd2brxNmE)0Er)#?5XG$b4d

literal 0
HcmV?d00001

diff --git a/assets/sounds/electric-switch-on.wav b/assets/sounds/electric-switch-on.wav
new file mode 100644
index 0000000000000000000000000000000000000000..8066cf13095ffdb045eec3f346a8b740452935a3
GIT binary patch
literal 23754
zcmWjLRdiHW8-U>;8K2`8BDe%X5?ou{9a`KS+T!le;_lGm?$8!@r!5vDgy0sA`)H8-
z-+!LltoLg6nlpQUJ6+qfY<aV9OiYg^-CGR*Wl||DCMKo`XnrgvW=YQ?F-2prn4yCv
z4cY;Jb1;2d`kM5G>C@B4qz_K-k=`!7aeA%v<n*L;BHfw(In7A>n3k9JDD7sNL#UEb
zJELhvhm2ksLo>!@%*<Gvu`XkK#^H?98P_xJXXIwQ&(JcW8O5K(#N?;ur9Mi%m3l7q
zSn96Sjj2mh=cG<d9g*5MwR38V)cUEZsby2yRA1`MGVh;gPohs^GqKG0%!--SGr!Ml
zllepDz|5aAr)Dn5T$#Bwb6@7E%uAVfGvAjkTa~Tqs~S@^m?EXTPRUC7C*^X=pDFuO
zeotAQ@@vYplwVQ?rF2hem!cN#&pMTLIqP0lR@Un*F)NrAlkLrBv&&?sX4lJZp4~aS
zPxkQa3E8u=n@c}e8Cd1VDs8KLU!_KsN>vi7;8h$|3M%WBKURKL`C;XomCsf_T6tIH
z4V9NxF7kF{&cvKKIm>c3=IqWnmUAxWR?efGyqx?TBj<CD<0<hp@oA-}HJ>(m`m^Uq
z@{Z*7$xD)FC67-Yp4=z7Q*!g<ddXFj%OtbO-sG6%U?r*2>q=Rb`cNfvE9chEZIatQ
zw`cB<+%dT`au?>V$=#NFF!!(AE4lyXX6L@im2*S6MV{Feg^DjLKB;)O;>C(5EAFef
zwc^T(3o1^n_;ba96@RSQwqm1-H7ZuBm{^ghm>hclOnnx4Ry+^QE0I?ruUcNiyjFSL
z^7`kE%A1roFK>C?ro7#G$MeqTjSp3;P`*Nm3TTDm6{6+U^6$&%mVZ$GdigWukCfk8
zena^s<!6_lP<}-DKIJ=?-}-$2^Ha|+J-_=r^ZBdi!gKrix96T0^ovq2s=TQ4qUnnc
zFM7Th@?z|Z87~?VW6KRG*Rx!Qa!t$CDOaUjsd98VPr1UffwDr`S7kHH-Ya{#?5VQ*
z%l=+A*VXssh?f&y&Uv}?<%X9#UmkgR_T`P24_@ZJeE(8=8GTv&75b{gs|v5Gy;Aef
zmpNW$cbQFPmY11VW^$R)W%`%tR;G2C@5)p!Q?X1!8LUifnS#=K>5rxJN*C2jzOMYb
z*6YTv+r94bdhqLCUQc`d>+4moe}BFI^{LmFUf+HF<n_zf!fX3=OiZYhT<T4!>{9=h
zx?1Y*Qin=yFSV}J;!-n9jVm>*RPR!qN;NN4uT*NOvZWC2>6>?N)Hjhg#oi)s<KC8g
zoA$Q;+m>&;yzTpT#M=pPXTM$YcKzEOZ;!k^^L8v-vt)9~q>@BQXUQ)~X40pm7fBgO
zcakn9olM%7v^8mE(t@O^Nk1nIO0o;LzT5Zi<hzUS?!3!*_wpV8&U*Lto$EdMKIwh(
z`<m|?y>I*e$M=KY|NOpzIXiJe;)uk)iCq#~CN@Y+ODvZdmxv@5ON=C_3GWkf6CNbo
zNI08tG+|f5bgA!$5g#UenEheNhxH$Jd^r5!^oMI7{`-*g;q3?cL+C@1kN%I`$Fd(&
zKN^lp@u%YV$NwI`I{vr#>G5OYhs5`c?-1WKzD|5feCc>5-WwkiA1oo2809DPlk$`E
zYvwn~Z=3&P{=od7^QY!7$X}ViC4X=JiTn%sxAPz8KhMw4H}Z>@h{kDgAL5?HJ&d~<
zcP{Q&-0rwdam(Z8#Z8VI9XBBEhqyLz-^bO6s}y%6`t;MgPs*q8r^u)1r-DzPKYjW1
z_0zXcg`Z;hB79N47+;)s@J`;v-;4&i0B3O~XK*^FaVn>9GAD5&CvZIXiTlWX;NElZ
zxVPLJ&dd9FKacPzkMTH9@FY+1G|%!JAIF#A<M{+Wkx$}F@}>AOzL(q!?m3soJ>zn@
z94?#7;xf4>Tn6`;d&E8D9&q=$|G0m-dt9=kEMJZ<&sXFt@yUE;z6zhhSLIXrG(MfL
z##iTS@U{5bd>y_nKU%%b-QsR?H@NHEHSQ{Rg}cmM;x2L*xO3cD?hJRD`<wfV`;$Ax
zo#eLI4f*f*@A*c2W4;OBlyAm2=Ueiv_||+IzAfL5Z_jt&JMx|Q&U|6vG43dLggeX~
z<PLEAxqaMTZV$Jc+r{nVc5vIdZQLK+R&EQonHxiN<A310^F8>Ud@sH?--qwZ_v8EX
z1NedbAbv1EgdfHa=ST1(`BD5>Vm-HxTg$ECR&%SkmD~z$Ik%Ks!Y$?&aSOTMxL>&i
z+<a~xH<t?*{>=ZvkKxDi<M{FX1b!kvnV-T><)`t}`5F97eilEQpTp1P=keF=ncNI+
zIya4*%1z-WbCbA<+yrhsH;x<2jp2Ube&R-RqqvdW2yQsHOI^q>;urHv_@(?ZemTE_
zU&*iHSMzK5wfs7M1HX~q#Bb)e@LPG#F@zh;4dMoJ1GxTNU#<_=o9o5(<a%)3xgWV7
zxNclmt_#<h>%^7zZR5A|JNTXaE`B$^hu_EV=MV4)`9u6+{s@1RKgJ*DPw*%CQ~aNN
zJFYF)hHK5W;#zVoxaM3lt|`}qYs`JmeaAKA8gTWwdR$$u4p*DYkDlSr^5^*T{006Z
ze~G`$U*WIv*ZAxF4gMB?o4>=~<?r$T@c;5wv<6q5OXt$KRIVzQ!d2labIDvKt|C`~
zE6<hV%5r76(p*U{iA&@j@DKS%{9`_Y&*ZcCY(9s7%IEUW_&okO|AK$Xzv5r>Z}_+T
zJKpar!NqYL$8roua}-B%IEQg4hj4z*$9Xvq=jL3TlXGy9*nIvI&+`H=@)9re3a|1S
zuk!|P@irgegM5e&^ASGEe^!ffMYtHQkp0GfWxueW*#b7oM%XYLVuNgewONxjSe?~a
zm5th8`EPuTP(&yy6cdUIv4TTz3NFDdcm%KD6Z`@qpaLckLSdoAimbr$>?igk`+<GW
zzGL6AZ`jxDEA}P(f_={BvCr6C_9^=krv*k}1x|<)N(k{nf{-XA2_=QnLK&f~P);Z>
zR1hi(m4sxWvhWIj!e+3K*+=X{_5pjJ{g3^Z{fE8B-eqsIx7eHP4fZ;FjlIfVVS|OK
zLYj~+R1>NTHH4Z%EupqhN2n{*6Y2{MgoeU*!uLWWp^4B`C>^-So@dXoXW29CY4&gS
zFZNIN6nm0A!5(Liu}9e>>|yp0dyqZA?qjQIErnJ>YoU$MR%j=*7di-?gw8@2p{vkM
z_(Awl=q~gSdJ4US-U1)Ho886kWOuOJ*=_6}?C<Orb~C$)-N<fW*R$)`wd@*pHM@#k
z$zJ#N7X}Ceg+an#VTdqP7$yuCMhGK?QNn29C*fz|7h#MrP8cst5GD#s*(K~^b`iUf
z{f+&VUBJ#~=dp9yIqYn97CV!j!A@tVvQyZ}>?D>hm?BISrU}!98Ny6qwlGJSE6fw-
z3k!r_h2MmQ!Xja@utZoYEECEUjAzHOW7#q6&+Jd^Xm%7kk{!VgXNR#v*&*y;b`U#|
z9l-Wy`>}o5Rl;gvjj&c&C#)AX2pfe>!e(KMuvPe7_(RwxY!`M4yM*1s9$~L=)Z3Ho
z!FFeVWPf10v0d3NY-hF;+mY?Swqx6}ZP?aqE4C%uf^E+J6MH~7C>#<F3rB@x!g1k*
za8fuW{3-k;{4Jao&Io6PbHaJyf^bn-p*3b3vEQ@bu?^V<Y<;#KTbHfF)@Ez5HQ5?$
zb+#It&Ze=cY*jXe?G?BtTo-N#H-%fmZQ+h^SGXtqBm67;C)^hv3Xg=xLWb}}$P}{R
zlUj+b$W~y>v*p;bY#FvRTary;6WIhdo-M(~u^h{?3`?^V+YWy!JQMPS=fVr&rSM94
zExZxl3h#vX!Uy4_kS}}^ctH?EK@w!4J&v*n>t}tem-Vo2*2Owm2OG;4XN$2#*&=KV
zTgZH4zA&GeV4*G;f+<*nEd+$15E8;dM2HHXg)hQa;hRt>#E3=2qGB;|ejvhxnGh3X
zY{p_t#$a?tV^l_AWJY2{Mqqg66O+$;WIixAHJ9iXJ)&3iiGC3gQ4teykq}9d5^0eU
zS&<Xt#1dk>csBM8^O||ZykuT5&zU^t8I#LAWpbEoCX2~rGMLBABjzFVfVs~M@Rk%y
ziKWFdVp*}ASYE6kRuYrN%3>8UMXV~OifLlHSWT=h)(~ro_n5oP9p*N3i@C|%V6HRQ
zn5)bc<}!1MxyW2#&NJtjv&<RhH1jvpqM)u=PpmIC5F3i$iQkKj#KvM1v8mWhY%aDC
zTZ*m3)?yp6t=LZNT5ys%!5n9fF-Msr%wgsbbCB83>|^#adzjtKE@mgQgW1k(WBy=%
zXF7?U#V%r3@dxoovAftq>?!sVdy9R<zG6SIzc@e~C=L<_i$lbrVq5PfW+StKS<kFv
z)-r3D)yyhpC9{HA&Mae=GE11n%pztX^BeOkvpII8I7%EX{v`e^{vwVM$BN^`@!|w=
zqBu#MEKU)piqpjD;!JUtn5fTX<}kCFnam7kIx~%#%1mJ<Gn1H!%mijUGmaU{jA4FZ
zerA4RMl%-!^Th??ui|gwLUEC}SX?456_<(2#TDX8ah14QTqCX(*NN-J4dS=L;mj~*
zC^Li^%nV`%G6R_YOh2YC(}(HJ^kRB4J(%vyk4!hFD{~RsB5oCb7yl5qiQB~;;!bgw
zxLe#K?iKfm`^5v|A@Q(yL_8`U6OW4*u?|dorXACkX~VQ;S}`q|7EE)d8Pk+$!Zc<Y
zG2b)aF%6jpOnvyI{we+?{w<ys&xmKmbK-gNf_PE9BwiM;h*!mH;&t(ccvHM3-WJ~n
zYBRN%noJF*I#Z2FXVREdrYe)dRAG{tN=!wj0#lwT$CPEtFr}Gp`oH3T;(hUf_)vT#
zJ{B{?Ct{|UE#`<%#a!{3m?u6LUx+WoSK^}BL?(fWXG$<}49Bnx!_W-HkPN}#491`g
z!uS~<<7GU|H_toqz4$@=DCUcwL|zm`QItekR76$OL|rsQQ?x`|42VI|!NfAfnW9V)
zCWa}bztLamFZ5@+fR54;I!uS?ARVA>+M-Q*N<maC5I>7w#cyJv7$X&tib}<#;!>>S
zkerfBa!Ve`EBPe9w4gwx6<VexTBHS<r$5p8^hf#w{hoeDzop;MujyCxOZo-<oX(?h
ziI7N%l4yyMSc#M3q!LoRlprNaNm5CvlvG+OBbAlPN#!NclTByQne-DngMLguq94)^
z===14^uP2!^ga46eTTkH-=c5QH|P<um8B|Did0ofmC~eishU(>sv*^sYDu-FI#OM!
zo>X6IAT^Y}lTPSY=*#pa`XYUSK2M*c&(de;)AZl;U-X~!Df%RRf<8_kqmR;u=|gmU
zu&LBcYA&^qT1u^?)>0d(t<+9xFLjVQN}Z(6QWvSK)J^(9`ce8;xR2gT@1b|oyXc+t
z4thJijsAoFo!&}sp*Pc;=#BISdOf|4UP~uqy`?@<U#XweUm73{lm<zIr6JN#X_z!z
z8X=98MoFWkpQN9qU!*ZoGPZ(VPA{dG(2MCs^g{YK`d4}ZJ)fRO&!y+kv*}s%OnL@A
zot{Pq3nxeurAg9cX^J#enkG$`W=J!oS<-B2jx<-AC(W0Bm41^JN{ghX!AbN)dICM3
z9!HO*$I!pfKhr<aqv=ufNO}Z4oE}CGrH9ai=|S{BI$vKdt&mnqtEAP^8fmSxPFgQ*
zkTy!2q|MS6X{+?R^oO)f+Ai&oevIuy_ojQ%J?S2Fclt;A2f7>GmF_}!raRFc=?-*z
zx*gq?ZbP@GcX;+n`=tHS0qLN0NIEPXk&a5oq~p>F>7;Z@`cwK#`dd0JosrH;=cMLz
zGrB3=gl<eXqQ9rVqZ`r<==yX$x-MOZu1(jXYtl97>U1?aojy=-NxCduk*-SDr0dcR
z>85l`x-H$2?n?Khf24n<|D^lU1L>jkNcyXw3SF5_rYq4E=?Zjtx*T1WE<=~5OVK6i
zBs!5!pyTNhbR5mmES)7~OF7b0DOY+X<w?(_7t%}VmGoMABfXX0N$;f((nl#@`Xuqv
z5)VleG)`kQN+YzN_R(J2L%V4g?W7%aEM1%~Mi-@v&@ptKSXojeRnjC~G9**7BwGqd
zK`A7KrHB-j3Z&1{7wN0?O=@I(rV6Mi6`{gZhze2x%BC#Jqzp=@G)kouN~R=Aqy&nm
zW(AAOv9d#U$}ZV0dt|Tdll?LxqcSGrG9i;PCDSq^v+}pX_tZP;E%k<aO}(OCQZK0I
zR37z=%B7xCIaD^4MP*V?s0`{cwFQlr6XZlWNiHdul1s~F<g#)(xx8FKt|(WMljX{C
z6*)z&DyPb6@@Diu>R;*~>K=8Mx<lQjZc#U>8`O2`8g-SrLS3dVQ5UHT)OqS06)dbN
z*OF_?b>zBoJ-NQzKyE01Cx0(Dk{ioS<fd{nxw+gzZYj5t_Xhu>{-jP(C#e(Eaq1X#
zlsZBkrVddDsRPu0Y9F<i+C%N8c2PU29n=(~gWOT>BzKm($X(@b@(=Qla(B6h+*9r)
z_m=y}edT_jzdS%L7yCQ4mD)mWrZ!O<sSVV6Y8|zfT0^a-R#7Xd71VNS8MTyJLM^7g
z^9+@T$;0Il@<@4<JX-!q{#pJ-9wU#H$I0X63GzgFk~~?SB2Sg4$qT6Y)I4e~HHVr_
z&7x*fGpOm*G-@g}g_=xFq9#%ksPWV|YAiK|$}N~J&ynZK^W^#R0{K_@H+iAFNM0;2
zk(bKL<mK`Td8NEcUM;VYKNO6jMp7fF;nXl{C^du{Obwz2QUj>|pdZzj>O=LWdQm;8
z9#nT~gS=7RByX0t$Xn&#<v-+Y@^*QLyi?vK@0Rz-d*yxde))iWP(CDA^mL&*Q=O=e
zR0pa()sAXQwV_&5t*Dk%3#vKQjA}|Xp&C<-sP8F9>~Z;od{RCo|0(|^|1F=E&&X%x
zbMkrlf_zcFBwv=V$XDfS@^v}Gs7KYM>QJ?*T2xJ{234J^Mx|3}R4P@KN};Mym8oQ^
z5>*jYpk4*<%J<}d<bUP=<on=({7`-*KbAA(Cvv8oC1=Yy@>4lieg>b^(o`v`B$Y%Z
zQVCQ%Rf3A6IEtkhil!)vqzDS9Fbbs*%89;`U(0XgxAHsrz5GG`DCf(cWL_3zQI=#`
zR%BJyWL-97Q+A*(%1Jq>SgJTxj4DbMp<<{)@*DY;{6c;v3&<!LA;V;d43fdZkQ|mH
za#SvmKg(a_ukts!P>xZGC`FZGptusNI25PiQi_KRQYST1B^45u8Yz(?DUdw*iOeTI
zk{`(T<U8^$`G$N=z9O9_qM!<<;0mFT3Z>8rqp%96#3?0|cqKteRFagEN-3qZ5-9$R
z%q5?aIb=4OMP`yu$PDr^`G|Z-J|ORt|B?Ta|B&~{yW}16rMrSsQK_UPE0vWhN{Uid
zNmbI6bfub7U8$keRB9=;l{!jYP*1r|UL&uPSIEocCGsM9fjm#1BhQj&$kX6&@-OmF
z@)UWJJVAyEzgHS5jg=-!Q>B^GTxp@SR9Y#ml{QLSrJd4V>7aB}Iw_r%F3Mr@5P6V1
zK<+2^k$cHK<Zf~oxs%*MZYQ^qe~`bETgfftW)LduuJllPD!r86ppVj5>8JEp1}FoS
zLCRodh%!_erVLj`C?l11<XUnKxtd%>t|V8G%gJTrQgR8om|R3IB!44+B^QwM$$8{l
zDE^|1QN}9cl<~?0Wuh`knXF7vrYh5v>B<acrZNl6R^}*kl^Nu8avGRQP9Z0glgNqW
z1adq%jvPylA%7u%CVwJFlcUIyQ2b3<s4P+zD@&B6$}(lSvO-y@tWs7hYm~LhI%U1G
zLD{HmQZ_3?$id_wav(W?>`(S1`;vXg-k=xRlk7ouCx0Y=AiI%W$u3abrfgSsC_9y1
zV7IbI*{keR_A3XJgUTW0uyRB>svJ{}D<_opWIM7g*@kRQwjx`SEy(6%GqNe!gltSU
zBEKiU0}aUrWPK?9t(;cQC})*(%6a92a#6XYTvo0qSCwnZb#OzusoYX-D|eJyWKFUL
zS)Hs#rju!8Dp{3GA*+y;$z-w;S&^(jmM6=RWyvy7{7<>BJWw7gkCewshVn$oRI-$8
zB}aLx<SNgUJmtCaLV2mYQWD7o5KopM<4BHVNrt3JiX=&b#7T@qNrd#1KGF-t_sR$5
zqmr+{HmAZXf+8xCA}flbDw?7zhGHs~Vk-f~LB^8B$zo(tvIrSN77~TTH{vVth4@Sq
z5K$sRgozLlBmzXJFsc+NpOr7lSLK^hsKls6)S_xJwYVA!9I8`wsczMydR3j!2$fI>
znUDyP5D1?5MC216i4WjC@s4;)ydho_ub_yjxJsy`N~yHUsI1DVacT)QUQJLF)g-l~
zT1qXgmQl;9&xl;&DUm~D6Inzi@r1}A9utp<hr|QoKJg#%FYym?58Q=fB{f;CtX5G|
zKvgwWO;gj=YHD@0hFVjtrPfyKsCCtPYJK%OaSdE0t`L`rOT<Ou0&$)=N1P?j5T}X1
ziNA<HiBrT$;sg{Msg2bpYE!kD+FWg+wp3fGt<^SaThLBzuXa#7s-4u%Y8Uk|afmob
z93b`+`-r_@53!rrMeHPY5Zj4u#2>`(#8zSpu^Ecp)gEe3wU^pk?W6Wp`>Fla0qQ_?
zkUCf$q7GGusl(L~V5GW^SWB!SRuij;mBb2SIkAjbN-P13iABUh;y2<~VgWIqm<Po%
z>R5H0I$oUsCaROv$?6n!sya=buFg<rs<YJD>Kt{hI!~QR%pj%{(}=0W6k;+liI_-C
zAjT8ph_S>N;ur8U@e?tc7)68&7pjZY#p)7usk%&EuC7p5s;ku1V2!#~U8k;BH>exc
zP3mTK2r(E8A_fuzi2g)BqA$^h=uPw@dJ;W|?!=G84@5VjD+m{EQ@5)-)Sc=sb+@`l
z-K*|X_p1lggX$smuzEy2svZN!)e~xaq8-teXhXCnT7i~C3!*vEjA%+UAsQ2ni0_H-
zh=xQ1qCON)t7p`+>N)j1xS(ECFR7Q+E9zDCntENmq25$)skhZT>Rq)KQIn`aR41wt
z=|mclN>n9MKoz1gkxWz~DiRfl@<chJEEMmn57dY1BlWSGp*~SF)hsm|<fu>8T=kin
zr#@F-s4vx5Y7&u1BoOgL2_lZ*2$o<7nxF`hAP5{_1WF);pYTEPz4}4@sOGDmR9+QS
zQI%9#Ra8~gR9!WIsamS722=+T3yKrPh@wOhB8Di$zu{l;FZgG?0FUAkJPbm35Dym?
zsGrp@>R0ehEmUK)B3e<cm{wei)f}2rb7^kPqj@!-rsEo};tCG0pSXmJxPbHcCp;hj
zh=0J}<L~gd_#6B+{tAk?Mrfo)X|%>@tj1|^S_u%ZC1{CSl2%eHrIpsoXl1o$crN}F
z&%v|tEIbo`f@gro_#^xw{s6y^|A+sJ|AXJd??SPXmaJ9Qs%R-%RV`IZ)6%tST6L|4
zR#U45YHM}0x>`N0zIFq@j$gyC;#cs?_$B-zegQv^pTp0BGx%xzZ~QO(Py7^q5{iwr
zCR$Ui8ECGx&{}G(wANZ1t*zEhYp-?CI%=J?&RQ367(WCK;s@~k_&$6uz6alp@4|QD
zJMiuJHvA9pJH8d)0>vI$Ppy~MTkE6s)%t1uwE<wDHb@(+4bg^b!?fYr2yLV`N?V7o
z#n<4g@l{|Yz5-v4FT<DOOYp_`B77nK8~!W40G|)Sg=4g_+Bj{zHbI-HP0}W7Q?#kt
zG;O*z1I*NBX|uIC+FWg(HWQzLPsgX>Q}HSIWPB2sh)=-B<KytL_!#^b{Ac_pd^A1^
zii@<x+7fLkSf(x4R%k1=RoZH8jkZ=>r>)mEXdAUnV6!$9AA%3Y2jK(p0eFABAKn-5
zgZBo#@Sb=NygU9Q{sZ0(?+V53+74}}woBWs?a}sX`@nwffOb$jq#f3dXh*eU+HviK
zc2aAPw*zhQHh62i72XnWfj7sS;Z5--cw^8A{~rGiZ-_U5;%V)Sc2+y5o!2gC7qv^;
zW$lV~RlBBL2RF2v+AZz2c1OFb)xvAyHSp?qHIR;{;i-64JO!_USH_d^N_a)Q0w|A{
zgW?12q4r373^KGQTBeqzWotRwQ!Q6}rsZkR!3*uB_DV~_6Y&H*9xs8%;T+Ba2B&cf
zCt(rdIEJG*g8OkF6hCMmwS4W9#%qEmYVgxflQl(CHBHksLo+o?v$cR0)SS2jkHw4Q
z#qgqd5j+Mj#J*u)!58c^R)9sZ2o}adSP+X87HFTfFWOh_n^vgB=tcCRdNIAY9t#}0
zQ+MfZ-J^STpRQvXP%#CQF$ohf0pqbxSU&a<e8Apg@36Pn8|*a{37ym_od%4~>YN^@
zm(b(&1U*qt(o5>4Kxw^<URHmG<zi2<94s4TVVT$yECYLtJ;EMh53u{#f8by2AM73!
zll97a6+K0-s;BB{dOE14SJ!LkHT7D0ZM}|OSFfkn2RE?m*fs1bb_KhPT>=-e3)p$=
z9Cj8vgPq3y#{R<o1gD_bSZ|^?)tl+f^%i<dy_MctZ=<&b?ez9~2fd@-N$;$8(YxwL
zu*29P>>zdk+mG$T_F{Xm-C!5C6Wf7p$F^aAV83Hqu`N*SsrS-*>wQ39y`SD+AD|D^
z2kC?LA^K2#7#OaP&`0W{^mW);um)R=t-@AfE3oC*GHfZf1T4lDVGFU}uwStS*nB9C
z)yL`M^$Ge!eUd&IOwp(6)AZ^341K0POP{UJ(dUAB`b=yFHXWM=reagD$=D=pA~pdV
zkB!5|Vq?HB*w5Hc*k~v&(iiJX^riYTeYw6uU#YLsSL<uQT78|qUf-Z^)Hmsy^)32P
zYzQ_O8-xwS24MX`Kddj-2kVXX!g^vou<qE8;0LT56nE%5^<7}MzDM7y@6-3|2lRvb
zA^os^1RT|m>BsdG`boV5)*fqzwZ+<Ct+7^EORNQGjy1!YVok8dSR?Fv>^rO>h!mdD
z&+6y&^ZEt-qJ9Zn*01PS^=tZd{f2&1zop*>cl5h@EvzP}fmO$<Vd+>JmWoxyQm`tZ
zGM0>0!YX1Fu<}?rC_d01>W}otdWQZ)&(yQ@Y&{1&)pPY{dY=AVf1$tBU+J&)BrFk2
zz~Vs(EDqx^7Gp3Pqc9SKFG38*Fbu^I%n!wndcOV%@VcOjx}?jxqN}>5|Nk*`Q@3<m
z59mSNi8-)XtT<K-D~c5XF<2q`4gHFKK|iAfXcR=yFd9N5g`f2=`d9s%UZ}?yF-8%i
zs8P%)Zp0c6!)dq-H}Du<!)F+%j%uiiDyWP~sEERmA<Cnl(0ueG`T>29zC+)FH&7%D
z(x435U<}saj5wo&5f2iKL?g*4X_PWb8)b~L;2D|=o}xKuHkyTIqEFBa^f7pZK13g&
z_tF2*f6;%?dr+)wR54OORU_3%Gt!M}Ms=fxQ4`cMY8!Qox<);tzR|$AfnG<ip;y5b
z^fG!0y@*~w&!gwiv)~MR8vPsn3;h#41;r*tQ=^&D+-PC61g(tLMjNB8(avaZbTB%C
zPDW>=i_z6Mf*wW>p$E|e=zg#d-HYx)ccZ(|o#+m9JJ^Q)f&Pweg<?;mm(knkWArup
z8U2j`#y~L07;FqNh8n|+;l>DKBp79^N7tci(KYC5bQQW1U4bqK%h09h5_B=T2wjN&
z27W~sKyjQg-k1O;8k3C4#uQ_!G0m86%m6cuS;lN*jxpDmXUsQdqBFpBbQ(Gpoq|qA
zC!rJ331B=r4jqe*L4QGiMt=g)!o|iCW2v#sSZ=HUD~(mgYGaMD)>vn(H#UHc#wKI4
zvBemQ4nYT_gTO#^0NNkzhxSGLpuN#vpeNb`?T-G4{(yFa;tpe{vCG(P>@oHl`;7g@
z0dUYbWE?h*7)Om`#&K}MIB9f1+oSE!wrCr)HE4ylL|dTE(Pn5<v<cc6G(x{eze5{B
z@vL#qI1eru7mZ8CW#fu*)wl+(8#j!b#x3KvamTo8+%syUwa}Vq4YWF14NXVWKq^`l
zO+l-mmC<Ch5?T>dK+8k%q4CIgY-AWuj7*SaWE(lgQzO@SX5@kA#tY-6@yd8@B%z5Q
z0gXpXpm8XNvM3x+pfpOMBubz-ilP615GZ~$@{LahZwQ8HNCs@l7z(_IYKCqYhG|&9
zHUdV_aH0-07A+2np+(UmXbf72d_%s1FUV)40Er?IB#eZRXyF&*tMLsK8Zl-Ov#43j
zEN;dEhv_t3rrY$GUegB*L`O74MHB=!MiB`S5dq<mPe?xU5qv=2Bkz#6$Qvk<CS}ql
zW5OVS$(eCx2{YbIFcVD}YBEcjrOeW18MCZe&dfueA-Tv?BnQbxvXD&h1j#@iBae`W
z$OGg)_z(FP`3H)X%_?S!S=CH6)68_U8mMm8Fl(B%%-Uuhvo5G-);AlNH<0V#8gdo6
zf?P%}As3Mg;5>2;Ig6Y@P9uLKe}O-t*wk!hHU}-tmS!unwb{mO3)-3O%?@Tqvy<7`
z>;k%)N07tFA><%9fb2*1A$yTM$Zlj8*oo{wwj<k+Kak%+w6K@i+w5cZHT!}7<^Xe`
zImjGr4l##<VdijiggMe2WsWx2BkPd0$QoodvI?w3Rv^ofWyn%w39=Y0LKY&wA-^IE
zpg7JPZ%!~Lnv=}Q<`gj1oMuipXP7h1S>|jo$DC`<Gv}K#k(tO0WI8epnTkw7CWA@H
zL}UUo9vO#>1!It3ke`vCpt!_b3YMA6%@yWKbCtQ;Tm#mc>&*4$26Lmi32ZjEm_v~v
zU@$TW8Hfx(`Xl|2zMv1%8|j7gM0z0I!H>ufP~2(mGIyJM%)MZrx!*is9yAY`hrto^
zsCmphZk{ktf(}S~q#e>0v_V=Ut&o;T3#2({hBQT*AdQhm$oI&109K)S&OC2kFfW>y
z%*)`4dDXmTUN>);H^D9Qwt2_AYu+<!Bejs4NDZVqQVpadX-Fzk6-hy=fXYZRQVFSu
zR6xo@@sar$WSCFPOf$>OHgmvJGuM1(=9$mU7vQD&%6x4mAxTIgl7Pe`C6G7-hGY;H
zVGtUj5E6l(gb0pc2#O$3%r`%oyeXJ)ENDumY$~Q|Y9@RMnuckbmT8*-5Hy{L1BnI2
zkzz<uqzDp&6#5JO-~3<wU;Ll_1t98=_``l!h2~fDn^|baSVgR&pqN$MinSb;({cf~
z<*~e$&+=P_U-xT%6)1k$FZo5k;D@m_|0jRG|D*qd|Gobmcnd|!f<s7)u~>_<;;a%@
zJV>w-tt6|YRmv(2%2;Ksa#o)InLpS6)Su(e23h`0{}X?P|FQoOc<6uNzwiIg|1T&g
ztYW2DRjpKzW~E!ztm;+`t0t&r)wb$bb**|<ebB(V;lJU(?!V^0>c8T@?7svq`Y-s;
z`_K8$f;0Zp{=fZy`TvAsQ>&TP+-hO9v|54IRvW9W)y`^fbpRc$PF82Di`CWYW*zY#
z_8$TV{RjN}{rmiT!5;r^|1SSd{|^6lu+9I6|92?%w)%j+RzIu1HNYBZ4FZF$A=Xf9
zm^B=Xutr*=tkKqb|2qF#{~EB`zskSTzrw%VzYHw(FYzz-FY+%0zxjWK;&^L<HPM;`
zCR<aisn#@Wx-|pLv}ReetvS|QFwdHA&GOIm&+t$8PxDU&Q~Z<tll&9?6To=?IR9Ax
z82>N+pFu(45^Jfo%vx@(uvUUq)@o~wwboi^tp^*djn*b>v$X{b^$+zA@elS7@(=V6
z@b?G({C)j>{Js6XKu>=Ue|P_n{vV*Y%i0b0SbME~)_&^%IA|TR4qHd8qu`iz+&W>M
zv`$$a{O$eiKwEzse`|j$e@oE9-`wBK-_+j(H1;?0fA9Yeis!8J)&=V#xMW?nu2@&C
zYv8(d!@6nRvTlPr)?MqKRoh?7U(;X1UmaBQr~A|Vss5@U#b3o=*`MsM1S<L~K=G0F
z*vhb;SeaH9$hLB<r&g}@4CGnQtryly>lJuymGme16a5MPcz+2H=jZ&apYg+?pr7)S
ze!`FY;dRuHLh+LY!)caaiI!x^7Ho)Gs-;;vd<nu5v@FZE0#?upSx&zL#QKZ-i}{QC
zi+~t^q3@gTtM3c=>?`m^eGy;SS5WxX`eqecF?Nhy#4c(Vvy0oYz+pRWm+iJaz-#+#
zzis$*A8gY2RG;FLeUcA`W_*H=_kHr^`#ypXzW2U&zPC`MY}#gQ*5>RuP{NM46YNAg
z36!);*`@6=c3Du)&htI<<@%obazM5(%a`eU0y2D$eUE$(eGkBW-+#V;p_pP<1*vwL
zoo-hH)$JN~O}my|8`QDu+V$-Eb^~zJcf)txcg=UzcLiMbUGiP@UGSX;=X_^<XMCr9
ze}liE*vxKjw*W2eR(5N<jolWsv)kJp?2dLP(An-{ceT6OM|_9DA>TpY0pEV#KCsuf
z$G6+J3+(jm@NM^P^Zfx}72195zIH#mKNw&Sv<KOP?IB>OJ<J|%kFZCAQTAwiy>Fdw
zEm-4Q?OWwr>01Go`<D5Z`j+?>gGIiDzTbSmLUDpU!JcSOvM1Y9?5SXyJ>8yR&$MTO
z+4dZJu07A54`%sh`eyj1`=)`ZzA3)RzDZ!BZ-Q^UZ=7!|7~}iJ_cIii+RN<aV1>QX
zUS+Sg*MPP5I(xmn!QKcq*_-Vx_EvkCZ>VpGZ?JEWZy*@p>+kF5>+9<Sdi#3$dir{R
z?!F(PxXa#c@3HsV`@nwtfPK(DWFH1c?4$NE`#3mZpR`Ze9enLUJ6~I08((YC%Gc7@
z!q?o_3^esM@iq1}@_i2q3eVf;?F;rr`;vXxz5=e=*X--|4RF)GW#6{%*muD_ySA^E
zuO_JBtM04jOZTOLR9{tJimwW&>`V4l@>TRzfZ}62!+ruX?JPUn&at0@T>F`wXTxZ|
z{lb1}zp`K3Z|su3BwwO0!50ro_~Lw=4@T2`jF0wFKGFx9qdwe+`B2~I!cR7D3$|#(
zLA)*7imlqP9b@aZVVkyP|NjZtK|5qSeNLal7waqTD+Y@CiuhuDh2C%AtM`ldv$p_5
zy%F!{!f*CByU>ma6bTd!6a&Qru>nWG30whpz!UHSU%($Qys$~*)x4@#@xqb4SMrKp
z!OMF;fqd^r?+5RD@D7S}fC<28YJdyG1xf_sK|&xgkQ68xC<RIf$^^;=%7HxZGjFc<
zDai3=d$YWm;E6ZG``G&kJoG;B-uM0oJ{P70ss>U6X@PW5El@pBBTy663e*nN3DgDk
z0`&t80u2K<y*Iqqz1O@~!4>ai?<Ma=aKU@td(L|nobjIa{_Xt>ip>Mf11$nA1FZtB
zL7PC^K)XPD&>_$<&?(S4&;@i2bPF8u9`PRb9`YXa9sv8j`@DO-d%$k*F7Hn74zS(3
z&HD!w`vm$1`hos|0fB*mL11uTNMLAS7#JQH5f~X51x5$fd)I-r-ZkFU-c?|wcZGMk
zcbRu7SmIsmUF2N|euLtKz{J3$z+^BbFf}kOFdfVY%nZy5%nr-}a|81N^8*V4v%E9C
zGrZHmH1AaJ6z^m($ve?I!8;y|^N#h7@%{on7cL7d3oH+;2&@dO0;>aS0&4^7!1}<3
zz{bEPusN_Lur)BuJJdVGJJ>r24D=50_V@M!eZ76Wy}i9aPj3%zckho-+#T2x*bDXr
z_6H6G4uV60!+|4#qu^NJc;H0fBsdl5;O*dT?``L8>um#Cds}&1dRu_z-e%sW-X@^2
zw~_aID4q{o2wV(Y0+$0<0#^gq!1ch5z|Fuda651(a5r!d)b`f$)&w=Y)xFg~x;M?6
z>a7Y=yj8rFy>N-gTgh7yiWz~7z>`2`AS;j!asp2Sxq)XOFYr9@BJdKt3cL=y36%6E
zc@w<}Al_TT8|Q_QZ7=I(ytJ1Bq?hpG0D~eQfML*p7?1*T0FDI%YCsF<0r)8hFQQh!
z4*dTK20{Us*Xeb5W4*;eF>g_C5pN7A^nCMt^?U)JJq4bqC*pxs7$^+H1dD*8!D7MU
z!C2r3I)kpD8+d}=pbz+iuu0?5J(@@LC_wf|9?=8i-5%ca$&>H-2tIh;d)`4222q1-
zkPF6v62bUjLNE~|1xp4?1xtf6!Lq?}!Sca8&ofUhc<RaVWP>bErss(#13dOT@;vlB
z0QWurL9uEu6{H2zgVlo7L5*O|V69+nP$yV7SP#?>HV8Hh-t^q?T=!f9S3Orempzxj
zMb8D#d2r5i)^o;l8vG5#=D`-hmcdq_b+ApaEoc{PAM6n92s#Bj2fGBjf^Na1o+F;a
zo<p94;DBepXP;*;*yGvl*#&lbc6hdXwt>%ueS>|2{eu021Hi!Gpy1%(5HK`2EI2$k
z0*nlf3XTTrJ?p?)&l=Bau*$R2v%<3+Eb}b&Eb%M`i#!WGzd><ga1xjtoD!TGoCc-`
zX9Q=0S;5)CIl;MLUT}VJL2#C5re_A2?wRJ9>X`y2dnS1%f(f4So^hVBV2tM%C@u>w
z53UHV1gnCpgKNOr;JV=Y;0CZUxGA_9Yzb}+4)YB44Dk#GgFFL013djfKTlszAJE&=
z%hS`-19XSt?%<x_-r&CAesCaoFnB0<7#s;64ITr>gC~L~gQq|TPX|wXPdiUr(8kl+
z)5_BlwD2_dGy_dNO+1Y~jlh?}3&D%vQt)!{3b-1)7Q7z30d59w1#g2p!MnkG!GD6a
zJ+(khPYq9XP|cI>N%N$Fs-6^26;Roe?5X6b2*r%xlVB#u3T6j$f=@wi@L4bqJP*DI
zz6`zsuY+%bB|S-=M3CT#_muF&0nWpEU~JSwdngYH2oLVTpvVV>pcs^bGEjnQ5Dq1R
zde8`(L3j}j+QC5Z|4%6B@;E&XPb?_zDds8aDFR|Vh3;?QtNV-lGbnIJ-Cqg|gE66)
zP?1p4P%%(E6dQ7coWK=whdjU=@`e21|J$XyTXVx9zFTq2ZpjVf+-||myFY<^_eb{!
z@E(dxhz)TdE>t2E4-!I&p`=hrP%2b9R0fm{l?#;*<+-1MT=!FV4#;+Axij5QK!*FV
z`w@8Pe&D_jz7$psrH0Z%>7ZJudZ<RICa4vv9jXKBhU$gtg9f37p_}d-?(5*1`>Okj
z`!cxXzUaOH&b!aK&w?}V)9$~a*do*tv<kHjwE=BI?LzHAhfv2*C(t?6CDb+44IFhJ
zaUXUc0tej(-22`8z+U$r_inJuz0<t|Y<F*iV&71|P=7EWG%z#>3=Rzm4F$tO!$TuN
zBf+T9=+IB0_3riVb?&w9HDI-Sm3yUo1z7H0=3WYxxEH$@frU_<7@8EC9GU{AhNgw4
zhh~78p;@8XU`}XmXdaj!S`eD$o(X2Sr@N=Qr-CW&$?i#DqI-gSJQ(L5>mCEX6fO@f
z53LBT46O>S25UlVL+il$(1y@Puqm`Tv;}Mp4Ra554*`SSgWLn%13-UwKX+fy$KBiA
z3-omNaCe8|p3vUVKCnM@AaoEM3LOp|0Y^i}LdU_0(8<s#(9zw&-QL~K-4?WQw|2Jz
zE!{2L%|SDFQ+E^4*xd+<7eW_9mqM4pmC)7DHE=z2BXkqo3f&If0e3_9LjQznyKB2^
zxof&>xT}L|?sRt=NOf0rr+_N%%I;)P35ribPePfYtWY+{2|W$LwbjtGP+sVH=mmHg
zdKG#N-h@iJliZ0Q!5!}|0pi@88!k$?88_{w0O=;&IQUX1gv1aGgofmh5>kN{(nAI?
zLskf0L_>j4F!cY&<#xIq?pRRVUCdn+6miG63tfe-Z?3PdFW|GQz!i1DDh$Phi-e1U
zV&UT9Sl|dd!!F<sd%|Ae3;V-J7>+Gmx=VAxFpW!b$u1c3c8M;*1y>PWpIrH_kKlvr
zJrv=(RG16Lg-d|=a6&i{B!x?cOM%kiGU2kIT)2EV&-D!Cx}LgnK(;H(l?k4>GF*?r
zBiBRM18^UTso^w`9<COy4r+vJhHHV^;X2{EpkBCsxB+MwzUjK*x(=?nuDY&(%dShV
zi{OImyz3k|>pJ5)4PX_9TZUVOTZ1;?w&8Z5eYiuoBj^<F47!B7hP#2It|P9)u0!CU
z>ws%N*yq~o+5>jGcDZ(f9j@)*OJToozi|KXfbc*tC_Fek1Pl!i3l9e)!Xv|@!07N#
z;q|Wdu63@pt~Fq_Yn5vySm9dkS_YQ7mVm{sMXrTVoD`l6ri7=4r-A9=8R3~=R(N)J
z4wxIB7oHCmglD;Cf*G#qu4!PZYl>?!nB<!1ngGVT#(}Y}F;H9{UJ+giR)trG*MPO*
zb>a13LwI9&6WAQy65a}ixrVxifWfXou7O~HtG}xs=<DhOdb@hLdV(IVuZ4TVd&B#}
z`@;vo!SJE*VQ?gT6dVg551#-h!>7W3hC8}CxZ1ngfwrzTuGXNHtEH<2XzpqTn!1{}
z8iTKe7sHpp<?xm8Rd6kQJ$wV)4BrB`!*{}W!M*T5;o7d+u3D~|t{R}atC}kvq`6W-
zRac6u3aIQ#c2$DnlW=A@3uK3L!cReN_*pm)JP*GJzXY$sufdyeNmmj`bS1drK?zr!
z3oa14SQi6m7v&-W;liOPhQ+WHh7r)P5>~?+(8EU91XkD%2S6|!0xp-+<p8m+;;v$#
zsH=!81{6BKfv?Ul&d;F0`L!@6QUnx@6pIuGu@MJwMqCj$@I<^3*u;tWBS^$_8cy8_
z<1|jysW@S%+bKCkCtN&q^3G2n-}%w`0emfFBU~g7l!(Mf5<p@k36zYKij)RrB4s1x
zK>0|XGtc?Vnd^KCa-7-DERgAZ0y3PBosYmn=L6?`D5gcyBI%K8pn9Z6q$a2psU4{U
z>PG5;`jG~ahTx|22Dt9L=DZ57I4?Udfs4)y;Jovk^DH>yJPpN`kyfB}qzz~rX%}e^
zIz&1~I)ToSE}(0qTjYnxQRfloVQ|QK(0KstckXlU1$&&k!7k@c=MJzPiv1$}BLl#|
z$e_qzFeEY*42ukpi~u7eqrm9MPm%S`_0Dz9wP1~NwR06%>0AMpJC`|^f+fzy&PCvB
z;iSmq$dt%bFfB4YG6T$v%mT9`b0TxWyvTg8ATrB26U=Z<2h*HWom0SM=Oi%EIl(y|
zjB}0!Ukg`6R)STL)nH9zZDbu-AK3slMm9w@gDsJ*V3>2La|jsh90UeB2RQqKe$Kw2
zkF&S47wGBi0mZ$MeUbg(K;$4e6geC@0**$Gf#Z=Ak(1z5<j+V)X9s6{(9YS`*#@+B
zwsN)vEu76kGiOt06VMon7bBM<mm^oe)yOq)J#r&*6Wog226rNNBlo~Rk=oAM&RWiz
zpoX)$vl>Wurh!yvRc8vQ;;amkp_m!TjATW!BRSw{Bo{o3<VBu?7m=6XRpfO9{+U3e
zq%#R5Iuk&=vxGAaa89@~=wzI<69%-Mq>})!3L{bkhOi?_L<L$zj~Kv=Sip`1Krj-D
zgd;Ae)9C=Q&f=h$v#7HOh;bG=3LW1ZUmah-XGehpR$;VAv}m*#C?1Ukj;J#VUy@OG
z6n;2Hy;0aqjryZV)N~jQ-2r254%GpJ-VWIzIYb~h;Bvm>lOrE|bbNp!7v-XH(Gt;k
zkPuA-NzszgQlNCS3@95d2g*nD9C?msj$Fr6kmJY(S&mHb#F6263?4Zif(KAci>8BW
z(dy9}pk}lds2!~ntqbZ!>w^Z-hTx{-2Dt9H2Ch1;I4*-rj*H-e<GkY>IO{kAU=>DN
zMO%Y5(YDccpnbFh=osx3?F_m^yMk`fAEHMcM;wR2A;&>*z_H)45A1d90lOW$z)r^w
z$95?8kM@rahz^Vn0)wMNz|iP0Fg!XUIueYEjs`zPH#pWi);ZRKHICI_m1Cu21z7G_
z29`ROfW?kQP@Ei{0;Wc%MW=%q(V1XYbT*h1og1A8=0_KRS&mtbnT{Eb>0p{;DwyJ!
z3??}yIwpYej&Wct6jwx7MpuE=(KXSvU|n=Q*bv<aHbpl_w}7qD-=o7EL%|ToV8<XZ
z&@lk?ck}~&9eqG=M=wWD0QbD2`=a}!2f)GTq3B_7BzhDaiyj9jq9>!Lz@O2Mjt-9Y
zpq-;FXya(@Xa!n2T7c$`W}vB~iK8(TFGVkdE77aqTJ(DK2Dll$1#U<0fV<Iq(SJZ~
zM{P$fM@>+}Q5{rsq&w0;s-r4MalpTDaa49BLoqX&70m`Y(Wf9c`Yf6Uo=0DRm(f??
zb@UA==|}>Jjsy_zC;{ReaFyP{Iv59BTXIki5)e>?i%C&AssJ^r0X=F&O<+ZB5Qqjr
zC>oBs{=Wnr4o9q`I4I^Q3W_*lKw<1R@HO^J>}T+;ut-5sP^_Rhh%JDHS>P;i6~K?i
z0?+?9QVV?lKU^$83d~sJ|6^^j8jN|vg^O4@7Oo%0im`ANKbDXE1oC4)f^UUfL0mxz
z5MPi05(|<*$%0Y^r9qj3vY=c+d5{;I7yB$W7d(y40ok!xv6<jWYzBB7`v^RYeE`Mu
zg7kuF1=T@~f|{UKL2Xc{pl(4uP`{u7Xjt%F!Ohqk;Ck#ea5eS{xEy;4{I7z$2(shI
z);M03ndPUkJu?fVx?A10z>5(#Nfs=|!baiZS=cCa#Iv|bys)@YxEOJx@I^d}n}lAB
zSPd2~#wfN05tW%$?|<)aad+SDL{`E%r@d3&Nu2P$$N!Ny#vh9mKNV?yIx_rBjPu81
zf<Mupgvow`SMSxK)~i9acMu1>{n+R2#U5`r{zc*pf2N;>Y(EFNejf7uS(xq5!CZfy
zKOa?IrB{J+ugojO7H=~)c^k38TaR_#cL>6z{!)LLUw}ft2*rL0misHP(qDzu{u-2c
zC0?;tghH<X%e<xD5-j!>VWGDG-+KQ;;%0vfO8qjF`xU74tFYDIhVA|i?DTi}`CcA!
zy&PnFS(xd~z;tgKrg~Gnukqg`9`FzP)u{1nQRmmA!9Rq<{t+DYkKwqV>1BB7Nb^#W
z;*G@^Z!|`EBQe7J3jZYWjDOZY=QpCsZ$^vXiu3*jT=XyDvVR51Ub2_uB_hF#$3SlY
z`g{G**Xx7c-ain8xBOfFZU2tnhIYRLo&Jxw>)*qD{{bHQkNh|<&WrWBA;ydLqR`d*
z6rXrB>Utk}v?_TY@I0F;^l3%%pZHJl%zy5`z)SxR{OP~KYyS=2`dvJhLGK+e@>8CK
z@LV`vs6rJe3!}863boJ@DpHjCoydo(?h-k?(eLW_G*^rIubSsJ`lWiIcwnlYDH<-+
z6ZIIstKaaeVpxs(S^b3nkl0ms)loVcF}fRKbsRp^pQF3(fu6b-I#s9YQ0-__cW_(X
z!cBDp*VQ##RsRN6s0SimCm>NLAz2T?VErYA=%E;<hwE0=f@al(Ms*Hn)ft>tr*Kl8
z!1tgE^;n&PRGo%&oq<d}4&(I%Ow^MwSvRP9)Tvt3sA?Qk2e4o5!(O!qyVbu)oT+E(
zES-%Uor^r3k6C&)=IFVYr{|+eRjLY<t1^_TE!eC!VWZlB^=ciyBXOx-h5}uPB3+CU
zy&Nm_O03eWu|}`eC8|Uft0EMt0xVNYu|zG#BDD|;)VH7t^%h-<GF^@eU5P5a72EW7
z?9e;0OXsUR<f<HGt1Qe^GcX;~)KpASUn2+)>Vvvk*PvF{p<XxOkUoqf`Y4X+<H%GQ
zDjjJm6)702#$dD>g^_9mzEb~GVR%-bL!)j&vu;7FK939fA}-;wzJft2StTJ+B_Li6
z!~oSF{ZwD{QN8gG5^w3-nn7i{O}C>%cj8BV7x!>qKfpu%NXMx-6|1@-Mnxk^b;YNO
z0T$|GMFX$;5Fe08GoXH=X@k(u^mDw>FYyQd)UWVbzrkDGCGsK4GDrz3r6h!M;UJU&
ztTYHi5&1L9usHIW%7!s=bYuP!xy~@}MXvbGUk%UR%uD$~^3Yp8lQcd_S`g)9NkhK;
zO){KD{vv<IPx3z`b~RBZ8Zo9DVi9LP!{??udYGQ*Wxg<-vQu`*cC_J+yp3D(CT_^<
zxF)aS-y{w+15Lb1Kq8V%G6tE!_|go)P%{j}O{;8`EwUL+vJvOxS)7rlaY~-V34BlD
zSd)TOq?vSNm`sc_<1xWZ#3VBr4YD3}vKBS68VBV8?8iR27klJxgyBq+WwMcjT$6`<
zGYhlL9LzQIFdtR2QdXc`mZ4N`!Deid8?iyI$2$2PiOb9~Q-DHKgkn>I<z@v|npIeh
zHD;|TktMQN7NHOYav7G&C0HyMVWC`rZ%N!@N>PS#Q-MlTg{@{Awqu9ciCrdN<{=k3
zG8<WPCT7U#n1-ox3ce=sps7ZUsYRWsM}s+p!#HA&;+Q#(OqqdnnTAxEg0XT8Mq`v5
zi4pQEP=)54X+)E0MvH01d0a3Tamif974w4`B$H(l5@iD7<v<KTf7uUxWgqlL7~VFw
z%^lN*cGH1Q^CRx!p1F?)<{=)LI2k8nCF9*>jEqJUy2?-SiToI}(aR6z2P8f=v;vx^
zhBgTE+`Pa`{9*pYEAtv}@YZyZYzE~!kwq|4f>KHWS2_qqC<0+&1XXBdWMQ<PWxHrO
zxUpR<ml^h5%LTuE-}30qMjoKP6fXn~7lOto@l?<ZEFKF6V+cmph+hTc+r-b}Cxl^?
zjk3`;2Hk8d;_#XM9NldX^h7WFh3yobq66)s4R^$C+`>(91J}hhTm@BV<B?z!k%VMB
z2!rjH7=od87>3(c(JER*Gnzyr&f%;$gVW*^PU3|4p2V>>#ik<7rXvHHb{xjr37CjU
zb}|}7J?ca)YEUf>;(*wXeb_7ZU^j_bHp^z)9ONR;=3|zfjX9WW=V8A6##V_+QGs%l
ziBfD4o3RNS#RjYw>p&IS0u<UJ6r;p0#|o^ptFYRx!CG4)N<=Y=L?H^qGAzXsu^5ZQ
zLM#APXiIGw%28n}QDwJc8@AgW*oj>>U*sVdIU*Zbm?>spx|oKkm?FL=vD#MK8e5Ax
z)Y}Fe!eM&^N9{2jN2bU?x=2GRQp8w{5u-5*BgF`OMdCTzh$b}K7PQ*)xPXiH5-#J4
z{lN|r$s!4fA_4IjC<dTE`iZ{igWke%ZreMy4ejW#o%j)V?LFMb1N#t<Y@CP_v7#Gd
z5G|t66`u-5ISEF`h>rxV^CZ%Y8)*f!&n%4)_J!pUsQm+f+E;juH});M2o7W-n?d0T
zmcd8~3L#uLB6LGHfOU=QI5OY^HL_I<-iaKa23%!usmS$y<e^RQe!%0?;BUd-gO@H1
z7w&VH21NI%`vi~iyUXY(_gDPl{*0eUj0&O=6Ldpt5Qoq3dC(m_&@<?TFM>|D)9paJ
z+lD*1?cTyo+;Fes8m^KUAH)X<NDPvYj6uO*e2F2!Pz=NHpw(@4Tij+eq0v2uvpD0P
z#wnb1Prz|ff|MXNNJDy%flQ1G#$y5|29q!u4Q@T^Q0vy98VB72*zfMcUhHvqlb97`
zBPYm39`b`(n2kBXT+GA#;G3Yzt#m6;jxx6tTd>*PgpJtXuE#nO3xa~65Jf>TO0Yaw
zft6Slti~Fw4NBY+w-`lkAqud}U5X`G>@LDWEFiHoC=JSja#Wx)sKQok3$|kib_TnU
z@8-LCZZ2|=?Pg&nX1LQa4O87IaGdI(2DL#Q>d_D!!eJZ<j^Y@OBh$@5x|@bnq_|@-
z2BR^`9f=WeoO3~A(1d2R1g$ua3&BNP!sXx!eh3D+$!-!7k>JK-AO^Vo(GPvyKIl#2
zo#0N;7PO-SodE-7gS)tg`@sV|#G@e2jdNqs&5c1cqTH@vc%l1=`!N_O<9<lulYnO2
zfM&qpd882{c!@tEkI;fwcpbdKTXcyWiMkxfuo;Yein0twO3-y9W0Kv_37x>PpbFV2
zdf@Oh{IAG`V)z%li}%9!!6WeSZ{gp0?oH#9^W1rcr+DH##_#wIzdFC*XE;uD7#+rh
z-4Kg7d=`F=?&uNrL@#_1b~>F-2ino*+`(<!a&F=VuH%|>mBjck0f|TolQ9T`@ntv!
zLoqBIj#j7DX>pp-ghrfm&f*MCJEw3GCrC^QQ^Pc*BLkV?IE=@Ha3UsQG8&wE)S=d?
zK{XEIfU_U_u-DlG$H@+}!yM#>dC14Ca5m;(F6M>v@l9CeR5}$XM;S_;E!d1r*ywD)
zdQgR7A&O9pl5jazU}d-ptFZ=a!xE>&DMpb~hypCbQfCPkV-XfQ3rH*t%TOLxpb}N#
zR&2v|><D*a7xJBaC(p@64ziKu%)|^#ccx(~rjS?@)`YdF3+vH<LpU5B!BHH;@$i4c
zOeX{BNOMw=g0UFmjK(O8#0U}_!zMJN1+C$ET);(K3NPadeh3FS$xadyk$`w-AO@g6
z`Z;~k2UKC$hW4-no%j)V!+W@o2Y47hLYx!l#G;!MgJ?vdtHS_MhoOef$N0$kkVM+y
zL)vje+5y8CA*~Q0Pq9NDf`+fc*LZ`s=;ClK5jhfdIFMm882J=s8H|)5DUsj*1K}W_
AZvX%Q

literal 0
HcmV?d00001

diff --git a/game.scm b/game.scm
index 6155e35..0617be8 100644
--- a/game.scm
+++ b/game.scm
@@ -67,6 +67,8 @@
 (define audio:exit (load-sound-effect "exit"))
 (define audio:pickup (load-sound-effect "pickup"))
 (define audio:die (load-sound-effect "die"))
+(define audio:electric-switch-on (load-sound-effect "electric-switch-on"))
+(define audio:electric-switch-off (load-sound-effect "electric-switch-off"))
 
 ;; Game state
 (define *state* #f)
@@ -196,45 +198,45 @@
 
 ;; Update loop
 (define (move-player dir)
-  (define (do-move)
-    (with-goblins
-     (let ((player (level-player *level*)))
-       (if ($ player 'alive?)
-           (begin
-             ($ player 'move dir)
-             ($ (level-actor *level*) 'tick)
-             ;; TODO: Need a better way to receive events to play sounds
-             ;; and emit particles and stuff so any actor can trigger
-             ;; events.
-             (let ((result
-                    (match ($ player 'event)
-                      (('bump)
-                       (play-sound-effect audio:bump)
-                       #f)
-                      (('push)
-                       (play-sound-effect audio:push)
-                       #f)
-                      (('exit)
-                       (play-sound-effect audio:exit)
-                       'next-level)
-                      (('die)
-                       (play-sound-effect audio:die)
-                       #f)
-                      (('gem)
-                       (play-sound-effect audio:pickup)
-                       ;; TODO: Maybe show a little achievement popup when all gems
-                       ;; are collected?
-                       (set! *gems* (cons *level-idx* *gems*))
-                       #f)
-                      (_ #f))))
-               (update-objects!)
-               (save-snapshot!)
-               result))
-           (begin
-             (play-sound-effect audio:no)
-             #f)))))
-  (when (eq? (do-move) 'next-level)
-    (next-level!)))
+  (define level-complete? #f)
+  (with-goblins
+   (let ((player (level-player *level*))
+         (level (level-actor *level*)))
+     (cond
+      (($ player 'alive?)
+       (begin
+         ($ player 'move dir)
+         ($ level 'tick)
+         (let lp ((events ($ level 'flush-events)))
+           (match events
+             (() (values))
+             ((event . rest)
+              (match (pk 'event event)
+                (('bump x y)
+                 (play-sound-effect audio:bump))
+                (('push x y)
+                 (play-sound-effect audio:push))
+                (('exit x y)
+                 (play-sound-effect audio:exit)
+                 (set! level-complete? #t))
+                (('player-death x y)
+                 (play-sound-effect audio:die))
+                (('pickup x y)
+                 (play-sound-effect audio:pickup)
+                 ;; TODO: Maybe show a little achievement popup when all gems
+                 ;; are collected?
+                 (set! *gems* (cons *level-idx* *gems*)))
+                (('electric-switch-on x y)
+                 (play-sound-effect audio:electric-switch-on))
+                (('electric-switch-off x y)
+                 (play-sound-effect audio:electric-switch-off))
+                (_ (values)))
+              (lp rest))))
+         (update-objects!)
+         (save-snapshot!)))
+      (else
+       (play-sound-effect audio:no)))))
+  (when level-complete? (next-level!)))
 
 (define dt (/ 1000.0 60.0)) ; aim for updating at 60Hz
 (define (update)
diff --git a/modules/game/actors.scm b/modules/game/actors.scm
index 07d22e5..88f99d0 100644
--- a/modules/game/actors.scm
+++ b/modules/game/actors.scm
@@ -168,7 +168,9 @@
        ($ on? #f)
        (match (first-non-player-occupant grid-info target-x target-y)
          (#f (pk "no switch target!"))
-         (target ($ target 'deactivate)))))
+         (target
+          ($ grid-info 'append-event `(floor-switch-off ,x ,y))
+          ($ target 'deactivate)))))
     (('wire-state grid-info) #f)
     (('update-wire-state grid-info) #f)
     (('alive?) #t)
@@ -177,7 +179,9 @@
      ($ on? #t)
      (match (first-non-player-occupant grid-info target-x target-y)
          (#f (pk "no switch target!"))
-         (target ($ target 'activate))))))
+         (target
+          ($ grid-info 'append-event `(floor-switch-on ,x ,y))
+          ($ target 'activate))))))
 
 (define (^electric-switch bcom x y target-x target-y)
   (define position (vector x y 0))
@@ -199,13 +203,17 @@
              ($ on? #f)
              (match (first-non-player-occupant grid-info target-x target-y)
                (#f (pk "no switch target!"))
-               (target ($ target 'deactivate)))))
+               (target
+                ($ grid-info 'append-event `(electric-switch-off ,x ,y))
+                ($ target 'deactivate)))))
          (when (>= ($ grid-info 'wireworld-neighbor-count x y) 1)
            ($ on? #t)
            ($ timer 2)
            (match (first-non-player-occupant grid-info target-x target-y)
              (#f (pk "no switch target!"))
-             (target ($ target 'activate))))))
+             (target
+              ($ grid-info 'append-event `(electric-switch-on ,x ,y))
+              ($ target 'activate))))))
     (('alive?) #t)
     (('describe) `(electric-switch ,position ,($ on?)))
     (('collide other offset grid-info) #f)))
@@ -238,13 +246,15 @@
         (if ($ electron?)
             (begin
               ($ state 'electron-head)
-              ($ electron? #f))
+              ($ electron? #f)
+              ($ grid-info 'append-event `(receive-electron ,x ,y)))
             (let ((neighbors ($ grid-info 'wireworld-neighbor-count x y)))
               (if (<= 1 neighbors 2)
                   (begin
                     ($ state 'electron-head)
                     ;; Forward an electron head to the receiver.
-                    ($ (find-receiver grid-info) 'give-electron))
+                    ($ (find-receiver grid-info) 'give-electron)
+                    ($ grid-info 'append-event `(send-electron ,x ,y)))
                   ($ state 'copper)))))))
     (('give-electron) ($ electron? #t))
     (('alive?) #t)
@@ -267,7 +277,8 @@
     (('describe) `(gem ,position))
     (('collide other offset grid-info)
      (when (eq? ($ other 'type) 'player)
-       ($ picked-up? #t)))))
+       ($ picked-up? #t)
+       ($ grid-info 'append-event `(pickup ,x ,y))))))
 
 (define (^ghost-gem bcom x y)
   (define position (vector x y 1))
@@ -294,6 +305,7 @@
     (('post-tick grid-info) #f)
     (('enter obj grid-info) #f)
     (('exit obj grid-info) #f)
+    ;; TODO: Send grid-info
     (('activate) ($ open? #t))
     (('deactivate) ($ open? #f))
     (('wire-state grid-info) #f)
@@ -419,7 +431,6 @@
   (define position (spawn ^cell (vector x y 2)))
   (define velocity (spawn ^cell #(0 0)))
   (define alive? (spawn ^cell #t))
-  (define event (spawn ^cell))
   (match-lambda*
     (('type) 'player)
     (('position) ($ position))
@@ -434,7 +445,6 @@
     (('tick grid-info)
      (match ($ position)
        (#(x y z)
-        ($ event #f)
         (match ($ velocity)
           (#(dx dy)
            ($ position (vector (+ x dx) (+ y dy) z))
@@ -453,7 +463,7 @@
                 ;; Ouch, a gate closed on the player!
                 (unless ($ obj 'open?)
                   ($ alive? #f)
-                  ($ event '(die))))
+                  ($ grid-info 'append-event `(player-death ,x ,y))))
                (_ (lp rest)))))))))
     (('enter obj grid-info) #f)
     (('exit obj grid-info) #f)
@@ -461,35 +471,44 @@
     (('alive?) ($ alive?))
     (('describe) `(player ,($ position), ($ alive?)))
     (('collide other offset grid-info)
-     (define (reverse-move)
-       (match ($ position)
-         (#(x y z)
+     (match ($ position)
+       (#(x y z)
+        (define (reverse-move)
           (match offset
             (#(dx dy)
-             ($ position (vector (- x dx) (- y dy) z)))))))
-     (match ($ other 'type)
-       ('exit ($ event '(exit)))
-       ('block
-        (if ($ other 'pushed?)
-            ($ event '(push))
-            (begin
-              (reverse-move)
-              ($ event '(bump)))))
-       ('switch ($ event '(switch)))
-       ('gem ($ event '(gem)))
-       ('ghost-gem #t)
-       ('gate
-        (unless ($ other 'open?)
-          (reverse-move)
-          ($ event '(bump))))
-       (_
-        (reverse-move)
-        ($ event '(bump)))))
-    (('event) ($ event))))
+             ($ position (vector (- x dx) (- y dy) z)))))
+        (match ($ other 'type)
+          ('exit
+           ($ grid-info 'append-event `(exit ,x ,y)))
+          ('block
+           (if ($ other 'pushed?)
+               ($ grid-info 'append-event `(push ,x ,y))
+               (begin
+                 (reverse-move)
+                 ($ grid-info 'append-event `(bump ,x ,y)))))
+          ((or 'gem 'switch 'ghost-gem) #t)
+          ('gate
+           (unless ($ other 'open?)
+             (reverse-move)
+             ($ grid-info 'append-event `(bump ,x ,y))))
+          (_
+           (reverse-move)
+           ($ grid-info 'append-event `(bump ,x ,y)))))))))
+
+(define (^event-log bcom)
+  (define events (spawn ^cell '()))
+  (match-lambda*
+    (('append event)
+     ($ events (cons event ($ events))))
+    (('flush)
+     (let ((result (reverse ($ events))))
+       ($ events '())
+       result))))
 
 (define (^level bcom width height)
   (define player (spawn ^cell))
   (define objects (spawn ^cell '()))
+  (define event-log (spawn ^event-log))
 
   ;; Spatial partition
   (define (for-each-coord proc)
@@ -569,7 +588,9 @@
       (('wireworld-neighbor-count x y)
        (neighbor-count x y))
       (('wireworld-neighbor-grid x y)
-       (neighbor-grid x y))))
+       (neighbor-grid x y))
+      (('append-event event)
+       ($ event-log 'append event))))
   (define grid-info (spawn ^grid-info))
 
   (define (delq item lst)
@@ -667,4 +688,6 @@
      (match ($ obj 'position)
        (#(x y _)
         (let ((cell (grid-ref grid x y)))
-          ($ cell (cons obj ($ cell)))))))))
+          ($ cell (cons obj ($ cell)))))))
+    (('flush-events)
+     ($ event-log 'flush))))