Zezito Back to Basics (Iapetus - 2026)[BASIC 10L]

[josepzin]

zez.png (2.24 kB . 384x272 - visto 154 veces)

BASIC 10LINER CONTEST 2026

Historia:
Zezito finds himself again inside Zulmira’s castle, where he must paint the floor of a certain room with a special paint that keeps those nasty snails from sliding around and leaving their revolting slime everywhere. That way, the next time he pops in to foil one of Zulmira’s new schemes, he won’t have to tiptoe around like a frightened cat. His mission is to paint as many floor tiles as he can—but the task is far from simple. The witch Zulmira is determined to meddle and will gleefully conjure wall blocks to cut off his path. To make matters worse, Zezito can’t step on any tile he has already painted, or the magic paint will vanish in a puff of sparkles.

Luckily, Zezito isn’t completely outmatched. He carries three trusty spades! One spade clears one tile above him and another to his right whenever things get too cramped. And best of all, he has a special teleportation potion for the moment he becomes totally boxed in, letting him zip safely back home before Zulmira can cackle in triumph.


Control:
Use joystick in port 2, press fire to use a spade.
Key "Q" ends the game.
@ = Zezito
# = Wall
. = Painted floor


Código fuente:

Código: [Seleccionar]

0W=56320:E=1024:X=7:Y=X:I=X:K=Y:SP=3:T=251:O=32:Z1=128:S$="################"
1R=40:DEFFNG(M)=(M>.)-(H>.):DEFFNQ(P)=INT(RND(1)*14)+P:PRINT"{WHITE}{HOME}{CLR}{2DOWN}";S$:R$="JOY #2"
2FORN=.TO13:PRINT"#";SPC(14);"#":NEXT:PRINTS$::PRINTR$:PRINT"NO WAY OUT? PRESS Q"
3RN=RND(-(TI+VAL(TI$))):F=255-PEEK(W):A=FAND4:B=FAND8:C=FAND1:D=FAND2:H=B:L=FNG(A)
4P=(F=144)AND(SP>.):NX=FNQ(1):NY=FNQ(3):X=X+L+(L*(PEEK(E+Y*R+X+L)<>O)):H=D
5L=FNG(C):Y=Y+L+(L*(PEEK(E+(Y+L)*R+X)<>O)):POKE-(F<>Z1)*(E+NY*R+NX)-(F=Z1)*T,35
6U=E+Y*R:S=S-((X<>I)OR(Y<>K)):POKEE+K*R+I,46:POKEU+X,.:I=X:K=Y:PRINT"{HOME}SCORE";S
7SP=SP+P:PRINT"SPADES";SP:M=(P)AND(X<14):POKE-M*(U+X+1)-(M=.)*T,O
8M=(P)AND(Y>3):POKE-M*(E+((Y-1)*R)+X)-(M=.)*T,O:GETA$:IFA$<>"Q"THENGOTO3
9PRINT"{HOME}{CLR}GAME OVER! SCORE:";S:PRINT"PRESS FIRE TO PLAY AGAIN!":WAITW,16,16:S=.:GOTO0
RUN

Enlaces:
https://bunsen.itch.io/zezito-back-to-basics-c64-by-iapetus