Tuning

Author: Fabrizio-Caruso

Vic20/Mines20/HyperMines.bas

@@ -1,44 +1,44 @@
 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)
+1dEfnrf(x)=int(rN(1)*x):b3=.992
 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=.:bb=500:wr=1.3:g0=7680:g1=7701:gt=38421:cc=57:hh=58:xx=214:t1=21:t3=23
+3rr=.7:o=7745:m=59:p=7955:z=3:b=218:w=164:u=22:goS40:ii=160:h=52:xx=214
+4t=30720:x=1:b1=.967:b2=.988:bp=100:?"{clear}":qq=15:goS39:fOq=.to99:pOo+1+fnrf(a),m:nE
+5j=.:bb=500:g0=7680:g1=7701:gt=38421:cc=57:hh=58: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: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,.
-14y=.:pOn,8:ifsG(c)=ctHy=1:h=s-23:pOp,m:p=p+c*(t1*e+1):j=j+1:jj=jj+1:ifz>9tHz=9
-15pOp+t,2+kc:pOg+t,7:pOg,w:g=g0:ifj>=k*bptHk=k+1:pOn,k:f=.:kc=kc+1:ifkc>5tHkc=.
-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*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
-22if-ytHifx>4tHifrN(1)>.99tHgg=o+1+fnrf(a):pOgg+t,7:pOgg,60
-24ifpE(p)=60tHpOv,15:pOv,.:q=w:goS30
+11ifpE(p)=60tHpOv,15:pOv,.:q=w:goS30
+12pOgt,2:pOg1,z+176:?"{home}{yellow}{reverse on}${white}"9-f"{white}"j" {cyan}hi{white}"r
+13l=jjaNll:c=2:ifrN(1)>rrtHq=p-4+2*fnrf(5)+44*(fnrf(3)-1):pOq,m:pOq+t,1
+14s=.:gEa$:pOp,h:pOp+t,1:ifa$<>""tHs=aS(a$):e=saN1:c=s-75+e:pOv,15:pOv,.
+15y=.:pOn,8:ifsG(c)=ctHy=1:h=s-23:pOp,m:p=p+c*(t1*e+1):j=j+1:jj=jj+1:ifz>9tHz=9
+16pOp+t,2+kc:pOg+t,7:pOg,w:g=g0:ifj>=k*bptHk=k+1:pOn,k:f=.:kc=kc+1:ifkc>5tHkc=.
+17on-(z=.)gO33:if-ytHifl=lltHg=o+1+fnrf(a):pOg+t,4:pOg,b
+18if-ytHifx>2tHq=rN(1):ifq>b1tHgg=o+44+fnrf(a-88):q=x>4aNq>b2:pOgg+t,4+q*2:pOgg,cc-q
+19ifs=itHiff<9tHpOn,10:pOp,b:goS36:goS34:f=f+1:pOn,8
+20ifjj>x*bptHx=x+1:ll=15:ifx>5tHgoS35
+21ifj>=bb*kktHpOn,8:kk=kk+1:z=z+1+(z=9):pOv,15:pOgt,7:pOv,.:fOqq=.to349:nE
+22if-ytHifx>5tHifrN(1)>b3tHgg=o+1+fnrf(a):pOgg+t,7:pOgg,60
 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
+30fOqq=1toa/(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
+34pOp,b:pOp-1,ii:pOp+1,ii:pOp-u,ii:pOp+u,ii:qq=.:on-((p<o+u)or(p>d-u))goS39:reT
+35o=o+u:d=d-u:a=a-44:qq=15:goS39: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: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
+37pOn,8:fOqq=.to3:pOp,b:oo=p+qq:q=ii:goS95:oo=p-qq:goS95:oo=p+qq*u:goS95:oo=p-qq*u:goS95:nE
+38qq=.:on-((p<o+88)or(p>d-88))goS39: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
+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

Vic20/Mines20/Mines20.cbmprj

@@ -57,7 +57,7 @@
             <Regions />
             <Breakpoints />
             <Bookmarks />
-            <Topmost>True</Topmost>
+            <Topmost>False</Topmost>
             <FileOpen>True</FileOpen>
         </SourceFile>
         <SourceFile>