Snake Temple for Oric Atmos, in 10 lines of BASIC (2022)

Summary

10 Line BASIC ============= Category : PUR-80 TITLE : The Snake Temple PLATFORM : Oric Atmos LANGUAGE : BASIC 1.1b AUTHOR : RAX Code: ---------1---------2---------3---------4---------5---------6---------7-------- 0D$="$$$b$$$b$$$b,bGb#%###3###+7+7Ea?#1>aS1$a#Ab#Vbb##/#AP/5V":A=#B507:INK6''' 1FORI=1TOLEN(D$):K=ASC(MID$(D$,I,1))-35:POKEA+I,K:NEXT:DEFFNR(X)=INT(RND(1)*X) 2DIMD(999):O=37:B=161:FORI=0TO36:D(I)=B:D(I+888)=B+1:T=INT(I*.65)*O:D(T)=B'''' 3D(T+36)=B:NEXT:PAPER0:H=8:FORY=2TO23STEP2:FORX=2TO34STEP2:D(X+Y*O)=B:R=FNR(5) 4D=(R=0)-(R=1)+O*(R=2)-O*(R=3):D(X+Y*O+D)=B:NEXTX,Y:FORI=0TO924:T=D(I):?".";'' 5IFT=BANDD(I+O)=0THENT=162ELSEIFT=0THENT=FNR(3)+35ELSE:D(I)=T:NEXT:Y=FNR(22)+2 6D(O+1+FNR(35)+FNR(20)*O)=38:X=FNR(35)+2:CLS:REPEAT:GETK$:Q=X:W=Y:K=ASC(K$)''' 7Y=Y+(K=11)-(K=10):X=X+(K=8)-(K=9):IFD(X+Y*O)>99THENX=Q:Y=WELSE:B=X+Y*O:Z=D(B) 8H=H-2*(Z=36)+(FNR(3)+2)*(Z=O):FORG=-1TO1:FORL=-1TO1:PLOT2+X+L,Y+G,D(B+L+G*O)' 9NEXTL,G:D(B)=35:PLOTX+2,Y,39:?@2,25;"HP:"H:UNTILZ=38ORH<1:ZAP:IFH>0THEN?"WIN" RUN STORY: You are a young hero named Bocco who has set out in search of treasure in the Temple of the Snakes. Among the labyrinth of tunnels is a treasure chest that you must find. The temple is full of snakes so be careful!. A snake inflicts damage on 1 to 4 health points. Each flask you find restores 2 health points. Use the arrow keys to control Bocco. Have fun :) CODE EXPLANATION: ---------------------------------------- 0D$="$$$b$$$b$$$b,bGb#%###3###+7+7Ea?#1>aS1$a#Ab#Vbb##/#AP/5V":A=#B507:INK6''' D$="$$$b$$$b$$$b,bGb#%###3###+7+7Ea?#1>aS1$a#Ab#Vbb##/#AP/5V" - characters data A=#B507 - the start address of characters to be modified INK6 - set chars color cyan ---------------------------------------- 1FORI=1TOLEN(D$):K=ASC(MID$(D$,I,1))-35:POKEA+I,K:NEXT:DEFFNR(X)=INT(RND(1)*X) FORI=1TOLEN(D$) - change characters K=ASC(MID$(D$,I,1))-35 - gat data from D$ POKEA+I,K - change line of character NEXT DEFFNR(X)=INT(RND(1)*X) - define custon function R to generate random number ------...