Fourth item

Author: Fabrizio-Caruso

Vic20/Mines20/HyperMines.bas

@@ -1,14 +1,14 @@
-0pO56,29:pO52,29:x=rN(-rN(0)):fOp=0to79:rEb:pO7568+p,b:nE:v=36878:pO646,1:pOv-9,255
+0pO56,29:pO52,29:x=rN(-rN(0)):fOp=0to87:rEb:pO7568+p,b:nE:v=36878:pO646,1:pOv-9,255
 1dEfnrf(x)=int(rN(1)*x)
-2kk=1:ll=7:k=1:n=v+1:i=32:a=418:d=8164:pOn,8:ifj>rtHr=j:?"{clear}{reverse on}record!":fOq=0tog1:nE
-3rr=.8:o=7745:m=59:p0=7955:p=p0:z=3:b=218:w=164:u=22:aa=230:goS40:ii=160:h=52
+2kk=1:ll=7:k=1:n=v+1:i=32:a=418:d=8164:pOn,8:ifj>rtHr=j
+3rr=.8:o=7745:m=59:p=7955:z=3:b=218:w=164:u=22:goS40:ii=160:h=52
 4t=30720:x=1:b1=.95:b2=.982:bp=100:?"{clear}":qq=15:goS39:fOq=.tom:pOo+1+fnrf(a),m:nE
-5j=.:ww=120:bb=500:wr=1.4:g0=7680:g1=7701:gt=38421:cc=57:hh=58:xx=214:t1=21:t3=23
+5j=.:bb=500:wr=1.3:g0=7680:g1=7701:gt=38421:cc=57:hh=58:xx=214:t1=21:t3=23
 6ifpE(p)=56tHj=j+9:goS37
 7on-(a<70)gO70:ifytHif(jjaN31)=31tHxc=o+89+fnrf(a-176):pOxc+t,5:pOxc,56
 8ifpE(p)=wtHpOv,15:j=j+4:pOv,0:pOg0,b:pOg0+t,2:fOq=.tou:nE:iff>.tHf=f-1
 9pOg1,z+176:goS60:ifpE(p)=cctHj=j+14:goS31:pOp,h:goS39
-10ifpE(p)=hhtHj=j+19:goS30:pOp,b:pOp-t3,ii:pOp-t1,ii:pOp+t1,ii:pOp+t3,ii:goS34
+10ifpE(p)=hhtHj=j+19:q=ii:goS30:pOp,b:pOp-t3,ii:pOp-t1,ii:pOp+t1,ii:pOp+t3,ii:goS34
 11pOgt,2:pOg1,z+176:?"{home}{yellow}{reverse on}${white}"9-f"{white}"j" {cyan}hi{white}"r
 12l=jjaNll:c=2:ifrN(1)>rrtHq=p-4+2*fnrf(5)+44*(fnrf(3)-1):pOq,m:pOq+t,1
 13s=.:gEa$:pOp,h:pOp+t,1:ifa$<>""tHs=aS(a$):e=saN1:c=s-75+e:pOv,15:pOv,.
@@ -17,31 +17,33 @@
 16on-(z=.)gO33:if-ytHifl=lltHg=o+1+fnrf(a):pOg+t,4:pOg,b
 17if-ytHifx>2tHq=rN(1):ifq>b1tHgg=o+44+fnrf(a-88):q=x>3aNq>b2:pOgg+t,4+q*2:pOgg,cc-q
 18ifs=itHiff<9tHpOn,10:pOp,b:goS36:goS34:f=f+1:pOn,8
-19ifjj>x*wwtHx=x*wr:ll=7-8*(x>3):ifx>3tHgoS35
+19ifjj>x*bptHx=x*wr:ll=7-8*(x>3):ifx>3tHgoS35
 20ifj>=bb*kktHpOn,8:kk=kk+1:z=z+1+(z=9):pOv,15:pOgt,7:pOv,.:fOqq=.to349:nE
-25on-((p<daNp>o)aN(pE(p)<>m))gO6:pOn,.:f=.:z=z-1:pOp,ii:p=p0:goS34:gO6
-30fOqq=.toa/8:pOp,b:oo=o+1+fnrf(a):goS99:nE:reT
-31fOqq=.to2:fOq=.to2:uq=u*q:pOp,b:oo=p+qq+uq:goS99:oo=p-qq+uq:goS99:oo=p+qq-uq:goS99
-32oo=p-qq-uq:goS99:nE:nE:reT
-33pOn,8:pOp,h:?"{home}{down*11}{right*5}{red}{reverse on}  game over ":wA198,1:pO198,.:kc=.:jj=.:gO2
+22if-ytHifx>4tHifrN(1)>.99tHgg=o+1+fnrf(a):pOgg+t,7:pOgg,60
+24ifpE(p)=60tHpOv,15:pOv,.:q=w:goS30
+25on-((p<daNp>o)aN(pE(p)<>m))gO6:pOn,.:f=.:z=z-1:pOp,ii:p=7955:goS34:gO6
+30fOqq=.toa/(8-(q=w)*i):pOp,b:oo=o+1+fnrf(a):goS95:nE:reT
+31fOqq=.to2:fOgg=.to2:q=ii:uq=u*gg:pOp,b:oo=p+qq+uq:goS95:oo=p-qq+uq:goS95:oo=p+qq-uq:goS95
+32oo=p-qq-uq:goS95:nE:nE:reT
+33pOn,8:pOp,h:?"{home}{down*11}{right*5}{red}{reverse on}  game over":wA198,1:pO198,.:kc=.:jj=.:gO2
 34pOp,b:pOp-1,ii:pOp+1,ii:pOp-u,ii:pOp+u,ii:on-((p<o+u)or(p>d-u))goS39:reT
 35o=o+u:d=d-u:a=a-44:qq=15:goS39:qq=.:rr=rr-.1:reT
 36pOp+t-1,7:pOp+t+1,7:pOp+t-u,7:pOp+t+u,7:pOp-1,55:pOp+1,55:pOp-u,54:pOp+u,54:reT
-37fOqq=.to3:pOp,b:oo=p+qq:goS99:oo=p-qq:goS99:oo=p+qq*22:goS99:oo=p-qq*22:goS99:nE
+37fOqq=.to3:pOp,b:oo=p+qq:q=ii:goS95:oo=p-qq:goS95:oo=p+qq*u:goS95:oo=p-qq*u:goS95:nE
 38on-((p<o+88)or(p>d-88))goS39:reT
-39fOq=.tou+1:pOv,qq:pOo-q+t,1:pOd+q+t,1:pOo-q,aa:pOd+q,aa:pOv,0:nE:goS60:reT
-40?"{clear}":goS60:?"{down*2}{green}{reverse on}  avoid the mines {white}{119}":pO7808,59
-41?"{down*2}{green}{reverse on}use {yellow}${green} to destroy mines":?"{down}{reverse on}  special items   {purple}{120} {red}{115}"
-42?"{down*2}{green}{reverse on}restore {yellow}${green} every {white}100pts":?"{down}{green}{reverse on} extra {red} {green} every {white}500pts":pO8061,52:pO7938,56
-43pO7940,57:pO7942,58:goS58:?"{clear}":goS60:?"{down*4}{reverse on}     {yellow}${white}        5pts"
-44?"{down}{reverse on}     {green} {white}       10pts":pO7883,56:?"{down}{reverse on}     {purple}{120}{white}       15pts":pO7927,57
-45?"{down}{reverse on}     {red} {white}       20pts":pO7971,58:?"{down}{blue}{reverse on}  empty cell {white} 1pt":goS58:?"{clear}":goS60
-46?sP5)"{down*4}{reverse on}{white}controls  {purple}i"
-47?sP14)"{reverse on}{purple}jkl":?sP8)"{down*2}{reverse on}{yellow}$    {purple}space":?"{down*3}{green}{reverse on}   prepare to start":goS58:reT
+39fOq=.tou+1:pOv,qq:pOo-q+t,1:pOd+q+t,1:pOo-q,230:pOd+q,230:pOv,0:nE:goS60:reT
+40?"{clear}":goS60:?"{down*2}{green}{reverse on}  avoid the mines {white}{reverse off}{59}"
+41?"{down*2}{green}{reverse on}use {yellow}${green} to destroy mines":?"{down}{reverse on}special items {reverse off}{56} {purple}{57} {red}{58} {yellow}{60}"
+42?"{down*2}{green}{reverse on}restore {yellow}${green} every {white}100pts":?"{down}{green}{reverse on} extra {red}{reverse off}{52}{reverse on}{green} every {white}500pts"
+43goS58:?"{clear}":goS60:?sP8)"{down*4}{reverse on}{yellow}${white}   5pts":?sP8)"{down}{reverse on}{green}{reverse off}{56}{reverse on}{white}  10pts"
+44?sP8)"{down}{reverse on}{purple}{reverse off}{57}{reverse on}{white}  15pts":?sP8)"{down}{reverse on}{red}{reverse off}{58}{reverse on}{white}  20pts"
+46?sP6)"{down}{blue}{reverse on}empty{white} 1pt":goS58:?"{clear}":goS60:?sP6)"{down*4}{reverse on}{white}controls {purple}i"
+48?sP14)"{reverse on}{purple}jkl":?sP9)"{down*2}{reverse on}{yellow}$   {purple}space":?"{down*3}{green}{reverse on}   prepare to start":goS58:reT
 58?"{down*3}{right*5}{white}{reverse on} press a key":wA198,1:pO198,.:reT
 60?"{home}{down}{reverse on}{cyan}{218*3}  {red}hyper  mines  {cyan}{218*3}":reT
 70?"{home}{down*12}{right*5}{yellow}{reverse on} you made it!":fOq=0tog1:nE:goS58:gO33
 80dA24,60,24,102,153,24,36,102,24,172,216,46,25,24,40,40,24,36,24,102,153,24,36,102,24
 83dA53,27,116,152,24,20,20,24,24,24,48,24,12,24,24,0,0,32,247,223,8,0,0,60,24,153,231
 86dA231,153,24,60,126,195,165,153,153,165,195,126,153,36,90,189,189,90,36,153,0,24,36
-99pOv,15:pOoo+t,2:pOoo,xx:fOpp=.to19:nE:pOv,.:pOoo,ii:reT:dA90,90,36,24,0
+92dA90,90,36,24,0,0,60,102,90,90,102,60,0
+95pOv,15:pOoo+t,2:pOoo,xx:fOpp=.to19:nE:pOv,.:pOoo+t,7:pOoo,q:reT