Lakeside.bas


'lakeside.bas SmallBASIC 0.12.0 2015-11-26 MGA/B+

color 0,15:cls
for
i=0 to 128
skycolor=rgb(120,120,200-i)
line 0, i,xmax,i,skycolor
next
if ymax>700 then top=700 else top=ymax
for
i=129 to top
lakecolor=rgb(0,rnd*20+100-.1*i,rnd*20+100-.1*i)
line 0,i,xmax,i,lakecolor
next
start=100
rr=70:gg=90:bb=70
for
mountains= 1 to 6
offset=0
y=start
repeat
factor = (RND*9-4)/2
offrand=offset+rnd*7
for x=offset to offrand
y=y +factor
txcolor=rgb(rr,gg,bb)
line x,y,x,ymax,txcolor
next
offset=x
until offset>=xmax
rr=rr-20:gg=gg-10:bb=bb-10
if rr<0 then rr=0
if gg<0 then gg=0
if bb<0 then bb=0
start=start+(20+RND*40)
NEXT
mountains
showpage
pause