From 66e7682d802f0a3b9e63f8927efe455b15ff2a45 Mon Sep 17 00:00:00 2001 From: David Schmenk Date: Wed, 8 Jul 2026 10:08:03 -0700 Subject: [PATCH] Sean to 0.6h and adjustments to thin font --- images/apple/PLEIADES-2.21.po | Bin 33553920 -> 33553920 bytes src/dhgr.tk/gg/sean.pla | 164 ++++++++++----------- src/dhgr.tk/utils/fonts/APPLE2THIN.FON.BIN | Bin 788 -> 788 bytes 3 files changed, 81 insertions(+), 83 deletions(-) diff --git a/images/apple/PLEIADES-2.21.po b/images/apple/PLEIADES-2.21.po index 5ba251d7a07fbb0994cfc16bab5bfcd920ce6dd0..c55830c796fc5ddcbd1595e7cae0ac79276da5ba 100644 GIT binary patch delta 2358 zcmW;McbEtS7=UrdozC8}vy$v=CwnJ^h@-R0-s{LZqYj5N!`Wq(kv-$=tWfqSd!4;E zy>EZ~-sgM1f4}GXB3{2s5rGvYg92|XPndXkNKj-*Pypg10RrJJA>KnU5+N~?ASsd| zIZ_}cQXw_cAT81%J>EwKWJD%pMiyj6Hhh5W$bp>5h1~cMdGHbP;$!4PeiT4K6hdJX z!6zt+VknLhD2Y-ijWP&9S$v9eD31!Lh)Sr8DyWKTsE!(_iCXv!wedOXpf2j+3)Dvg zG{l!^gvR&^P0$pfXolwa8ewRGmS~06XoGL?E!v_T+M@$Hq7yo!3%a5kx}yhrq8ECj z5Bee;{m>uZVE_hV5C&riA}|!gFdQTBJ$^tWMq(63uMY`|TGl8*aA5q%xX>t!!B~t# zG{$2BCSnpMV+wx6R7}Hk#9#(yVism&4(4JWe!|a~j|EtWMOchq@GF*JDVAY5e!~i^ z#44=D8mz@Stj7jy#3pRU@7RK^h{ZN+#}4eoF6_o0{DHmLhy6H!gZLANa2QAM7yiak z9K&&(z)76KX`I1XoWno(7w2&S7jX%faRpa#4cBo4HxY+hxQ#owi+i|_2Y84_c#J1_ zif4F^7kG(Rc#SuBi+53Rp#jk_@l65~Xo5^a^PUMdiA-XX#3VJzOmdULq%^5aYLmvK zHR()x^S;SoGMY>#v&mwznr!9+lilPnIZZB;+k9y9n2$_e^RdZi@|yytpebYunZ&^9uO1r|6hz9`J{NjrS{4Ek-_mU$4luD9UfL9fRr?)OlecbgqX7CQ&Y~A zHx*1pQ^`~|RZLY=%~UrvOifeEd}eB!&rKau*VHp#nEIxHX=uJQjZ9fZB0AV-gGb>O()aYbTM5`H`CqpFg;B#)7$hheNDLO zXZoA(%m6dc3^Iew5EEgBnqg+R8DYLRKbS}}(u^{rO_Uj9#+q>^+Ke|7%tSNEOg2-@ zk7lZwW~Q4MGsDa@v&?KW$ILbJ%unWLGv6#Q3(X?4*!*ICHA~D=v&<|vznK+grCDWG zn>A*wS!dRp4Q8X+WHy`M%@(uO#F}kpyV+rOnq6kM*<=1Nd(A$x-yARp&7bCwIc$!Y zzs%p}s5xein-k`wIb}|pGv=&0XZ|t&n)Bv@xo9q#%jSx?YOa~<=7zax;>;~`+uSjC p%{_D9JTMQ3S+PpDu17gF&-UW=B^B=LX&l~^% delta 2191 zcmW;M^S>7c7{&3v)y=lKY}Z}3-SP>`wpTZuY%SZ%=FKg0%eJvxtDUnSKJVA_dj5bD z^6f{=5VbykQ22*yQ^Xz`95f<0D4@csa4Nj=FM^7wBB{tKii)bDspu+(im76$*eZ^S ztKzBnDuGI<5~;*0iAt)HspKk!N~uz*)GCcitA0}HRC<*`WmK6|W|c){RoPT_l|$uJ zxm0eIN99%dRDM-J6;y>(u=-gQRz*}%RZJCEB~(dON|jb+R9RI{l~)y1MO8^vR#jA0 zRZUe_HB?PiOVw6&)Gw;8s;BC!2CAWIq#7%zCaS4wrkbl?RSVTpwNkBB8`V~|Q|(m; z)lqd)omCgrRdrL{RS(ru^-{f6AJtd&Q~lKd^_v=~2B{D=SPfA_)i5<&QH@X|)hIQ3 zTX4{rHFZKCb;uV;9F7=6j3veqwAC6*D(i50|3VimEP_=8wOtR>bF>xm7-Mq(4Onb<;XCAJaUi5i?XNhyfdEx?bk@$=F zo47<=Caw@yiEG4l;s$Y(xJBG1?htp0d&GU>0r8M{L_8**5KoC`#B<^W@sfB&ye8fd zZ;5}1cf@<*1M!jgM0_T`5MPOJ#J|LM;>TzN#v`D@s&Fd23Q`eNL={OzR#8+`6-`A~ zF;q+yOT|`kR9qEL#a9VbLX}7*R!LM+l}sg9DO5_8N~Kn5R9f|uN~hAR3@W3_q%x~4 zDyzz-va1{_r^=;rt2}|d$Qu|oX=_l zT~p80Hw{cf)5tV7FilKT)66tCznT`NrDMDcX=mD-4yL2&WICHJrmN{@x|<%R zr|D&Sn?9zm>1XR|&9W@nsH{lnP4WGNoKN{ zVy2pDX1bYSem67CEHm58F>}p4Gv6#Q3(X?4*eo$i%`&sxtS~FhDzn=BVb++nW}R7Y zHkgfOli6&xn5|};*=}~2oo1KWZT6VGCe-XR`^^D!&>S*{%@K3d{ArGv=%B=COHVo| JACKPOT // Pick up HW (but avoid swapping out jackpot) dhgrMemBl7(x*TILE_WIDTH7, y*TILE_HEIGHT, TILE_WIDTH7, TILE_HEIGHT, tileList+(tileMap.[y,x]-1)*TILE_SIZE, TILE_SPAN) + if nerdHoard[nerd]; resetNerdTiles(nerd); fin nerdHoard[nerd], hoardType[i] = hoardType[i], nerdHoard[nerd] // Swap goods + updateNerdTiles(nerd) if hoardType[i] dcgrPixMap(tablePosX[i] * TILE_WIDTH, \ tablePosY[i] * TILE_HEIGHT + 2, \ @@ -642,7 +645,6 @@ end def moveNerd(nerd, dir)#1 byte oldX, oldY var moved - byte[TILE_SIZE] tileNerd oldX = nerdX[nerd] oldY = nerdY[nerd] @@ -677,17 +679,6 @@ def moveNerd(nerd, dir)#1 nerdDir[nerd] = LOOK_FORWARD break wend - // - // Draw nerd + any hoard to memory surface the size of a tile - // - dhgrSurfMem(OP_SRC, TILE_HEIGHT, @tileNerd, TILE_SPAN) - dcgrColor(CLR_LTBLUE) - dhgrClearBl7(0, 0, TILE_WIDTH7, TILE_HEIGHT) - dcgrPixMap(0, 2, SPRITE_WIDTH, SPRITE_HEIGHT, spriteList + (HORDE_BASE + nerd*NUM_NERDS + nerdDir[nerd])*SPRITE_SIZE) - if nerdHoard[nerd] - dcgrPixMap(0, 0, SPRITE_WIDTH, SPRITE_HEIGHT, spriteList + (nerdHoard[nerd] + HOARD_BASE)*SPRITE_SIZE) - fin - dhgrSurfScr(OP_SRC) if moved // // Erase previous position @@ -698,7 +689,7 @@ def moveNerd(nerd, dir)#1 // // Update nerd on screen // - dhgrMemBl7(nerdX[nerd] * TILE_WIDTH7, nerdY[nerd] * TILE_HEIGHT, TILE_WIDTH7, TILE_HEIGHT, @tileNerd, TILE_SPAN) + dhgrMemBl7(nerdX[nerd] * TILE_WIDTH7, nerdY[nerd] * TILE_HEIGHT, TILE_WIDTH7, TILE_HEIGHT, nerdTile[nerd, nerdDir[nerd]], TILE_SPAN) return moved end def addHoard#0 @@ -840,7 +831,7 @@ def actionUpdateNerd(event)#0 if not moveNerd(nerd, moveDir) and (distX * distX + distY * distY) > 1 moveNerd(nerd, conio:rnd() & MOVE_MASK) // Help get unstuck fin - addEvent(level * HORDE_SCALE + HORDE_EQ, event) + addEvent(level2 * HORDE_MULSCALE / HORDE_DIVSCALE + HORDE_EQ, event) end def joyCalibrate#4 byte x, y @@ -922,7 +913,7 @@ def actionUpdatePlayer(event)#0 wend fin moveNerd(nerdPlayer, moveDir) - addEvent(level * PLAYER_SCALE + PLAYER_EQ, event) + addEvent(level * PLAYER_MULSCALE / PLAYER_DIVSCALE + PLAYER_EQ, event) end def actionDemo(event)#0 if conio:keypressed() @@ -931,7 +922,7 @@ def actionDemo(event)#0 hoardActive = 0; hoardRemaining = 0; exit = TRUE wend fin - addEvent(PLAYER_EQ, event) + addEvent(HORDE_EQ + PLAYER_EQ, event) end def playGG#0 // @@ -945,19 +936,22 @@ def playGG#0 // // Intitialize horde // - args = (level * HORDE_SCALE + HORDE_EQ) / 3 + level2 = level * level + args = (level2 * HORDE_MULSCALE / HORDE_DIVSCALE + HORDE_EQ) / 3 for buzz = 0 to NUM_NERDS-1 nerdX[buzz] = 1 nerdY[buzz] = buzz * 2 + 1 + nerdDir[buzz] = LOOK_RIGHT nerdHoard[buzz] = 0 nerdScore[buzz] = 0 drawScore(buzz) + resetNerdTiles(buzz) moveNerd(buzz, MOVE_NONE) if buzz == nerdPlayer - addAction(level * PLAYER_SCALE + PLAYER_EQ + buzz, @actionUpdatePlayer, buzz) + addAction(level * PLAYER_MULSCALE / PLAYER_DIVSCALE + PLAYER_EQ + buzz, @actionUpdatePlayer, buzz) else addAction(args + buzz, @actionUpdateNerd, buzz) - args = args + (level * HORDE_SCALE + HORDE_EQ) / 3 + args = args + (level2 * HORDE_MULSCALE / HORDE_DIVSCALE + HORDE_EQ) / 3 fin next if nerdPlayer > 3; addAction(args, @actionDemo, 0); fin @@ -1038,6 +1032,11 @@ def updateLeaderBoard#1 if leaderBoard[leader * t_leaders + 3] < totalScore; break; fin next if leader == 10 or nerdPlayer > 3; return FALSE; fin + conio:tone(10, 40) + wait(1) + conio:tone(20, 30) + conio:tone(20, 30) + conio:tone(300, 5) memcpy(@leaderBoard + (leader + 1) * t_leaders, @leaderBoard + leader * t_leaders, (9 - leader) * t_leaders) leader = @leaderBoard + leader * t_leaders leader->[0] = '_' @@ -1106,7 +1105,7 @@ end // Menu interface // def info#0 - drawInfo + screenRead("GGINFO.DHGR") waitButtonKey drawMenu end @@ -1262,7 +1261,6 @@ while ^arg and ^(arg + 1) == '-' wend arg = argNext(arg) loop -fontGG = fontRead("GG.FON") loadLeaderBoard loadTiles loadSprites diff --git a/src/dhgr.tk/utils/fonts/APPLE2THIN.FON.BIN b/src/dhgr.tk/utils/fonts/APPLE2THIN.FON.BIN index 12f2afdfe45da4a9d9d4321304f524b53d5ddfa8..1e32c8eeb36d049b1b10a26791906103b711e6f2 100644 GIT binary patch delta 15 WcmbQjHid1&b0%gE7N*Isn6v;VEd+=F delta 15 WcmbQjHid1&b0%gM7M97cn6v;V8w7>`