TheGameCreators - CodeBase

Category: Complete Applications

Version: 1.0

Information

Uploaded: 28th Feb 2005 17:44

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com Rem Project: MATRIX MASTER PRO Rem Created: 5/17/04 4:36:23 PM Rem ***** Main Source File ***** rem this program written by Richard Sardini Jr rem my e-mail:[email protected] rem my phone:814-504-6033 rem check end of program for code snippet to load matrix into your dark basic programs set display mode 800,600,16 create bitmap 1,65,161 rem texture 1 (green) ink RGB(128,128,0),0:for x=0 to 31:line x,0,x,32:next x ink RGB(0,128,0),0:for x=0 to 200:dot rnd(32)-1,rnd(32)-1:next x ink RGB(255,128,0),0:for x=0 to 50:dot rnd(32)-1,rnd(32)-1:next x ink RGB(128,128,255),0:for x=0 to 90:dot rnd(32)-1,rnd(32)-1:next x ink RGB(255,255,255),0:for x=0 to 20:dot rnd(32)-1,rnd(32)-1:next x rem texture 2 (medium grey) ink RGB(128,128,128),0:for x=31 to 64:line x,0,x,32:next x ink RGB(192,192,192),0:for x=0 to 200:dot rnd(32)+33,rnd(32)-1:next x ink RGB(60,81,66),0:for x=0 to 50:dot rnd(32)+33,rnd(32)-1:next x ink RGB(48,74,167),0:for x=0 to 90:dot rnd(32)+33,rnd(32)-1:next x ink RGB(255,255,255),0:for x=0 to 20:dot rnd(32)+33,rnd(32)-1:next x rem texture 3 (dark grey) ink RGB(82,82,82),0:for x=0 to 31:line x,32,x,65:next x ink RGB(0,0,0),0:for x=0 to 200:dot rnd(32)-1,rnd(32)+33:next x ink RGB(128,128,128),0:for x=0 to 50:dot rnd(32)-1,rnd(32)+33:next x ink RGB(57,36,159),0:for x=0 to 90:dot rnd(32)-1,rnd(32)+33:next x ink RGB(192,192,192),0:for x=0 to 20:dot rnd(32)-1,rnd(32)+33:next x rem texture 4 (light brown) ink RGB(194,160,114),0:for x=32 to 64:line x,32,x,65:next x ink RGB(255,209,164),0:for x=0 to 200:dot rnd(32)+33,rnd(32)+33:next x ink RGB(190,126,126),0:for x=0 to 50:dot rnd(32)+33,rnd(32)+33:next x ink RGB(255,230,204),0:for x=0 to 90:dot rnd(32)+33,rnd(32)+33:next x ink RGB(128,64,64),0:for x=0 to 20:dot rnd(32)+33,rnd(32)+33:next x rem texture 5 (medium brown) ink RGB(217,108,0),0:for x=0 to 31:line x,65,x,97:next x ink RGB(128,64,64),0:for x=0 to 200:dot rnd(32)-1,rnd(32)+65:next x ink RGB(185,92,0),0:for x=0 to 50:dot rnd(32)-1,rnd(32)+65:next x ink RGB(210,105,0),0:for x=0 to 90:dot rnd(32)-1,rnd(32)+65:next x ink RGB(255,197,138),0:for x=0 to 20:dot rnd(32)-1,rnd(32)+65:next x rem texture 6 (Black) ink RGB(0,0,0),0:for x=32 to 64:line x,65,x,98:next x rem texture 7 (Blue 1) ink RGB(0,0,255),0:for x=0 to 31:line x,97,x,130:next x ink RGB(0,128,255),0:for x=0 to 200:dot rnd(31)-1,rnd(32)+95:next x ink RGB(0,128,192),0:for x=0 to 50:dot rnd(31)-1,rnd(32)+95:next x ink RGB(255,255,255),0:for x=0 to 90:dot rnd(31)-1,rnd(32)+95:next x ink RGB(128,0,255),0:for x=0 to 20:dot rnd(31)-1,rnd(32)+95:next x rem texture 8 (Lt. Blue) ink RGB(0,255,255),0:for x=31 to 64:line x,96,x,130:next x ink RGB(128,255,255),0:for x=0 to 200:dot rnd(32)+33,rnd(31)+96:next x ink RGB(0,230,230),0:for x=0 to 50:dot rnd(32)+33,rnd(31)+96:next x ink RGB(151,255,255),0:for x=0 to 90:dot rnd(32)+33,rnd(31)+96:next x ink RGB(0,206,206),0:for x=0 to 20:dot rnd(32)+33,rnd(31)+96:next x rem texture 9 (White) ink rgb(255,255,255),0:for x=0 to 34:line x,127,x,161:next x ink RGB(218,218,218),0:for x=0 to 200:dot rnd(33)-1,rnd(31)+126:next x rem texture 10 (orange) ink RGB(255,128,0),0:for x=33 to 64:line x,128,x,161:next x ink RGB(255,128,64),0:for x=0 to 200:dot rnd(32)+33,rnd(31)+129:next x rem get matrix texture blur bitmap 1,3 get image 1,1,1,64,160 delete bitmap 1 create bitmap 1,50,50 ink RGB(0,0,255),0:for x=0 to 50:line x,0,x,50:next x ink rgb(0,255,255),0:for x=0 to 200:dot rnd(50),rnd(50):next x ink RGB(128,255,255),0:for x=0 to 70:dot rnd(50),rnd(50):next x ink RGB(255,255,255),0:for x=0 to 75:dot rnd(50),25+rnd(10):next x blur bitmap 1,3 get image 2,0,0,50,50 delete bitmap 1 hint=1:hints=36:hintdelay=750:hintspeed=0 dim hint$(40):hintc1=50:ghost=-1:ghost1=-1 hint$(1)="Press ' w ' to toggle wireframe on and off." hint$(2)="Press and hold mouse wheel button 3 and move mouse up and down to lower or raise selected markers respectively." hint$(3)="Or use keyboard less than ' < ' or greater than ' > ' to lower or raise selected markers respectively." hint$(4)="Press ' L ' to level the matrix back to zero." hint$(5)="Press Shift and 'L' to level select markers." hint$(6)="Press ' b ' to set maximum bottom sea depth. Use this to raise sea floor after smoothing lowers it too deep. Shift 5 to undo." hint$(7)="Press ' m ' to toggle wave flow off and back on." hint$(8)="Shift ' G ' to toggle ghost water on." hint$(9)="Press ' d ' to change the direction the waves are facing." hint$(10)="Press Shift and ' D ' to change the direction the waves are flowing." hint$(11)="Press ' n ' anytime in elevation mode to start a new matrix." hint$(12)="Press ' 5 ' to smooth matrix 1 time. Can be undone only 1 time. Thanks to ReD_eYe(and inspired by David89)." hint$(13)="Press Shift and ' 5 ' to undo smooth matrix once. Do this to save final smoothing for when your whole matrix is done." hint$(14)="Click on up and down arrows at the top right of the screen to set elevation change rate or wave settings." hint$(15)="Press ' q ' to raise the water level or ' a ' to lower the water level." hint$(16)="Press ' s ' to select all visible coordinate markers and ' u ' to un-select all visible markers." hint$(17)="Press ' v ' to slow down hints and shift + ' v ' to speed up hints." hint$(18)="Press ' t ' to toggle or invert all visible coordinate markers." hint$(19)="Press arrow keys to pan your view or press and hold mouse botton 2 and move mouse." hint$(20)="Press and hold both mouse buttons 1 and 2 and move mouse to rotate camera view." hint$(21)="Left click and drag mouse-(top left to bottom right)-and red box will appear to select markers in box." hint$(22)="Left click and drag mouse-(bottom right to top left)-and yellow box will appear to toggle or invert selected markers in box." hint$(23)="Press ' h ' to hide all unselected markers-this is handy to isolate work areas." hint$(24)="Press ' h ' again to show all hidden markers. Use this feature to hide and prevent selecting backround markers." hint$(25)="Green marker=unselected coordinate - Red marker=selected coordinate." hint$(26)="Press ' + ' or ' - ' to zoom in and out or turn the mouse wheel." hint$(27)="Set the cross hairs on your destination point and then zoom in." hint$(28)="Press ' z ' to zip to the next hint." hint$(29)="Press 'shift' and ' z ' to zip back one hint." hint$(30)="Left click on marker to toggle coordinate marker selection." hint$(31)="Press ' g ' to toggle ghost matrix on and off. This helps you see and avoid selecting markers behind hills." hint$(32)="Press ' o ' to toggle hints off and back on." hint$(33)="Press ' escape ' key anytime to exit MATRIX MASTER." hint$(34)="Hiding unnecessary markers increases program funtion and speed." hint$(35)="To hide more markers, select markers you want to keep in view and press ' h ' or hide twice." hint$(36)="Press ' i ' to apply an image to your matrix. This is nice to sculp terrain around your landscape drawings.Texture mode is disabled." hint$(37)="Your mouse functions are all the same as Elevation mode except raise elevation and wireframe." hint$(38)="Select tile markers and then click on the texture at the top right of the screen that you want to apply." hint$(39)="I had a hard time with the texture image for the matrix texture. If you can help,fix it and e-mail to:[email protected]." startover: set text size 16 set current bitmap 0 load=0:o=1 cls rgb(0,0,0):ink RGB(255,255,0),0 set cursor screen width()/2-24,0 print "MATRIX-MASTER Pro Matrix Editor v1.9" ink rgb(255,255,255),0 print redomatrix: input "Give your matrix a name and press enter>";matname$:sleep 200 if matname$="" then goto redomatrix redoinput: print "Is this matrix name ";:ink rgb(0,255,0),0:print matname$;:ink rgb(255,255,255),0:print " correct?(y/n)>" redoinkey: g$=inkey$() if g$<>"n" and g$<>"y" and g$<>"" then print "Please confirm your matrix name>":sleep 500:goto redoinput if g$="n" then goto redomatrix if g$="y" then goto redoxsize goto redoinkey print "Matrix name accepted":sleep 1000:cls rgb(0,0,0):ink RGB(255,255,0),0 set cursor screen width()/2-24,0 print "MATRIX-MASTER Pro Matrix Editor v1.9" ink rgb(255,255,255),0 print redoxsize: input "Input matrix size X and press enter>";matsizex if matsizex<10 or matsizex>100000 then print "Bad input-try again>":sleep 500:goto redoxsize matsizex=int(matsizex) redozsize: input "Input matrix size Z and press enter>";matsizez if matsizez<10 or matsizez>100000 then print "Bad input-try again>":sleep 500:goto redozsize matsizez=int(matsizez) redoxseg: input "Input matrix segment X and press enter>";matsegx if matsegx<2 or matsegx>250 then print "Bad input-try again>":sleep 500:goto redoxseg matsegx=int(matsegx) redozseg: input "Input matrix segment Z and press enter>";matsegz if matsegz<2 or matsegz>250 then print "Bad input-try again>":sleep 500:goto redozseg matsegz=int(matsegz) print "Matrix parameters accepted" print "Working..."; sleep 500 backdrop on dim height#((matsegx+1)*(matsegz+1)):dim heightold#((matsegx+1)*(matsegz+1)) dim xpos((matsegx+1)*(matsegz+1)):dim zpos((matsegz+1)*(matsegx+1)) dim tile((matsegx+1)*(matsegz+1)):for x=0 to ((matsegx+1)*(matsegz+1)):tile(x)=1:next x undo=0:wh=0:wl=0:wv=-1:wm=-1:wd=0:ms=0:wspeed=10:wc=0:numchng=0:numchng1=0 wd2=0 loaded: if matsizex>500 and matsizez>500 then size=6 else size=2 if matsizex>2000 and matsizez>2000 then size=10 if matsizex>5000 and matsizez>5000 then size=30 if matsizex>8000 and matsizez>8000 then size=40 if matsizex>9999 and matsizez>9999 then size=50 if matsizex>20000 and matsizez>20000 then size=75 if matsizex>50000 and matsizez>50000 then size=100 if matsizex>70000 and matsizez>70000 then size=200 dim objstat((matsegx+1)*(matsegz+1)) matsegx1=matsizex/matsegx:matsegz1=matsizez/matsegz banding=0:mx1=0:mx2=0:my1=0:my2=0:hide=-1:raiselower#=1 objnum=1 for z=0 to matsegz for x=0 to matsegx objstat(objnum)=-1 finalcount=objnum inc objnum next x next z if finalcount>2500 cls:backdrop off:ink rgb(0,255,0),0 print "!!WARNING!!" Print "Because of excessive markers, markers will be hidden. Navigate to the area you want" print "to work with, hit h to show all markers, then select markers in desired work area. Then hit" print "h again to hide unselected markers. Repeat this process when changing work areas." print "Doing this will speed up the editing process." print "Press any key to continue..." wait key print "Hang on, this could be a minute!!" sleep 500 backdrop on ink rgb(255,255,255),0 endif sync on autocam off make matrix 1,matsizex,matsizez,matsegx,matsegz position matrix 1,0,0,0 prepare matrix texture 1,1,2,5 update matrix 1 make object cube 70000,10:position object 70000,-10,0,-10:color object 70000,RGB(0,255,255) if load=1 for x=1 to finalcount read long 1,xpos(x) read long 1,zpos(x) read float 1,height#(x) read long 1,tile(x) next x close file 1 endif load=0 objnum=1 for z=0 to matsegz for x=0 to matsegx make object sphere objnum,size:color object objnum,rgb(0,255,0) position object objnum,x*matsegx1,height#(objnum),z*matsegz1 if finalcount>2500 hide object objnum endif set matrix height 1,x,z,height#(objnum) if x<matsegx and z<matsegz set matrix tile 1,x,z,tile(objnum) endif if load=1 then goto skipassign xpos(objnum)=x:zpos(objnum)=z skipassign: inc objnum next x next z if finalcount>2500 then hide=1 update matrix 1 set camera range 1,1000000 position camera 0,500,0 point camera 200,0,200 mousexold#=mousex():mouseyold#=mousey() gtx=0 wh=50:wd=1:wm=1 mainloop: do if inkey$()="i" backdrop off:sync off:cls redoimagename: print "Input image name to apply as matrix texture or type exit to abort.>";:input gtx$ if gtx$="exit" then sleep 200:backdrop on:sync on:goto aborttexture if file exist(gtx$)=0 print "File invalid. Make sure to include the file extension, e.g. .bmp. Try again or type exit.>":sleep 200 goto redoimagename endif load image gtx$,10 tile=1:gtx=1 prepare matrix texture 1,10,matsegx,matsegz for z=matsegz-1 to 0 step -1 for x=0 to matsegx-1 set matrix tile 1,x,z,tile inc tile next x next z update matrix 1 sync on:backdrop on sleep 200 endif aborttexture: dec hintdelay if hintdelay<0 then hintdelay=500+hintspeed:inc hint if hint>hints then hint=1 if inkey$()="v" then inc hintspeed,50 if inkey$()="V" then dec hintspeed,50 if hintspeed<-400 then hintspeed=-400 if inkey$()="z" inc hint if hint>hints then hint=1 hintdelay=1500 sleep 200 endif if inkey$()="Z" dec hint if hint<1 then hint=hints hintdelay=1500 sleep 200 endif if inkey$()<>"q" then htinc=0 if inkey$()="q" inc htinc if htinc>100 then htinc=100 if wv=1 inc wl,1+int(htinc/10) position matrix 2,0,wl,0 sleep 20 endif endif if inkey$()<>"a" then htdec=0 if inkey$()="a" inc htdec if htdec>100 then htdec=100 if wv=1 dec wl,1+int(htdec/10) position matrix 2,0,wl,0 sleep 20 endif endif if inkey$()="n" sync off:backdrop off:set matrix wireframe on 1 set cursor 0,0:cls rgb(0,0,0):ink RGB(255,255,255),0 print "Confirm! Do you want to start a new matrix?(y/n)" print "You may want to answer no and save this matrix first lest it be lost." sleep 500 getagain5: g$=inkey$() if g$<>"y" and g$<>"n" then goto getagain5 if g$="y" for x=1 to finalcount:delete object x:next x:delete object 70000 delete matrix 1 undim xpos(finalcount):undim zpos(finalcount) undim height(finalcount):undim objstat(finalcount) sleep 200 goto startover endif if g$="n" sync on:backdrop on endif sleep 500 set matrix wireframe off 1 endif if inkey$()="g" ghost=ghost*-1 if ghost=1 ghost matrix on 1 endif if ghost=-1 ghost matrix off 1 endif sleep 200 endif if inkey$()="G" ghost1=ghost1*-1 if ghost1=1 if matrix exist(2)=1 ghost matrix on 2 endif endif if ghost1=-1 if matrix exist(2)=1 ghost matrix off 2 endif endif sleep 200 endif if inkey$()="L" for x=1 to finalcount heightold#(x)=height#(x) next x:undo=1 for x=1 to finalcount if objstat(x)=1 height#(x)=0 set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 endif next x update matrix 1 sleep 200 endif if inkey$()="l" sync off:backdrop off cls rgb(0,0,0):ink rgb(255,255,255),0 print "Are you sure you want to level your matrix back to zero?(y/n)" print "If you answer yes, you can press shift and ' 5 ' to undo level." sleep 200 getagain6: g$=inkey$() if g$<>"y" and g$<>"n" then goto getagain6 if g$="y" for x=1 to finalcount heightold#(x)=height#(x) next x:undo=1 for x=1 to finalcount height#(x)=0 set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 objstat(x)=-1:color object x,rgb(0,255,0) next x update matrix 1 endif sync on:backdrop on endif if inkey$()="b" sync off:backdrop off:cls rgb(0,0,0) ink rgb(255,255,255),0:print "Please input value you want to set for maximum sea bottom depth(0=abort)?"; getbottom: input bot bot=int(bot):if bot=0 then sync on:backdrop on:goto donebot for x=1 to finalcount heightold#(x)=height#(x) next x:undo=1 if bot<0 then bot=bot*-1 for x=1 to finalcount if height#(x)<0-bot or height#(x)<wl height#(x)=((bot)*-1) set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 endif next x update matrix 1 sync on:backdrop on endif donebot: rem watermatrix if inkey$()="6" wv=wv*-1 if wv=1 if matrix exist(2)=0 make matrix 2,matsizex,matsizez,matsegx,matsegz prepare matrix texture 2,2,1,1 position matrix 2,0,wl,0 if wh>0 if wd=1 flip=1 for z=0 to matsegz-1 step int(matsegz/10)+1 for x=0 to matsegx-1 if flip=1 set matrix height 2,x,z,int(matsegz/5)+1+wh endif if flip=-1 set matrix height 2,x,z,-int(matsegz/5)+1+wh endif next x flip=flip*-1 next z endif if wd=2 flip=1 for x=0 to matsegx-1 step int(matsegx/10)+1 for z=0 to matsegz-1 if flip=1 set matrix height 2,x,z,int(matsegz/5)+1+wh endif if flip=-1 set matrix height 2,x,z,-int(matsegz/5)+1+wh endif next z flip=flip*-1 next x endif for x=1 to matsegx-1 for z=1 to matsegz-1 a=get matrix height(2,x-1,z+1) b=get matrix height(2,x,z+1) c=get matrix height(2,x+1,z+1) d=get matrix height(2,x+1,z) e=get matrix height(2,x+1,z-1) f=get matrix height(2,x,z-1) g=get matrix height(2,x-1,z-1) h=get matrix height(2,x-1,z) total=a+b+c+d+e+f+g+h av#=total/8 set matrix height 2,x,z,av# next z next x for x=0 to matsegx set matrix height 2,x,0,get matrix height(2,x,1) next x for x=0 to matsegx set matrix height 2,x,tilez,get matrix height(2,x,matsegz-1) next x for z=0 to matsegz set matrix height 2,0,z,get matrix height(2,1,z) next z for z=0 to matsegz set matrix height 2,tilex,z,get matrix height(2,matsegx-1,z) next z endif update matrix 2 if ghost1=1 then ghost matrix on 2 endif endif if wv=-1 if matrix exist(2)=1 delete matrix 2 endif endif sleep 200 endif if inkey$()="d" if wd=1 then wd=2 else wd=1 dc=1 sleep 200 endif if inkey$()="D" if wd1=0 then wd1=1 else wd1=0 sleep 200 endif if inkey$()="m" wm=wm*-1 sleep 200 endif inc ms if ms>wspeed ms=0 if wm=1 if wv=1 if wd=1 if matrix exist(2)=1 if wd1=0 then shift matrix up 2 if wd1=1 then shift matrix down 2 update matrix 2 endif endif if wd=2 if matrix exist(2)=1 if wd1=0 then shift matrix right 2 if wd1=1 then shift matrix left 2 update matrix 2 endif endif endif endif endif if whc=1 and mousex()<screen width()-58 or dc=1 or wc=1 if whc=1 then whc=0 if dc=1 then dc=0 if wc=1 then wc=0 if matrix exist(2)=1 then delete matrix 2 make matrix 2,matsizex,matsizez,matsegx,matsegz prepare matrix texture 2,2,1,1 position matrix 2,0,wl,0 if wd=1 flip=1 for z=0 to matsegz-1 step int(matsegz/10)+1 for x=0 to matsegx-1 if flip=1 set matrix height 2,x,z,int(matsegz/5)+1+wh endif if flip=-1 set matrix height 2,x,z,-int(matsegz/5)+1+wh endif next x flip=flip*-1 next z endif if wd=2 flip=1 for x=0 to matsegx-1 step int(matsegx/10)+1 for z=0 to matsegz-1 if flip=1 set matrix height 2,x,z,int(matsegz/5)+1+wh endif if flip=-1 set matrix height 2,x,z,-int(matsegz/5)+1+wh endif next z flip=flip*-1 next x endif rem smooth water for x=1 to matsegx-1 for z=1 to matsegz-1 a=get matrix height(2,x-1,z+1) b=get matrix height(2,x,z+1) c=get matrix height(2,x+1,z+1) d=get matrix height(2,x+1,z) e=get matrix height(2,x+1,z-1) f=get matrix height(2,x,z-1) g=get matrix height(2,x-1,z-1) h=get matrix height(2,x-1,z) total=a+b+c+d+e+f+g+h av#=total/8 set matrix height 2,x,z,av# next z next x for x=0 to matsegx set matrix height 2,x,0,get matrix height(2,x,1) next x for x=0 to matsegx set matrix height 2,x,tilez,get matrix height(2,x,matsegz-1) next x for z=0 to matsegz set matrix height 2,0,z,get matrix height(2,1,z) next z for z=0 to matsegz set matrix height 2,tilex,z,get matrix height(2,matsegx-1,z) next z update matrix 2 if ghost1=1 then ghost matrix on 2 endif if inkey$()="1" then goto savematrix if inkey$()="2" then goto loadmatrix if gtx=1 then goto skiptexturemode if inkey$()="3" then gosub texture skiptexturemode: base=get ground height(1,0,0):position object 70000,-10,base,-10 mousexnew#=mousexold#-mousex():mouseynew#=mouseyold#-mousey() if upkey()=1 or mouseclick()=2 and mouseynew#>0 pitch camera down 2 endif if downkey()=1 or mouseclick()=2 and mouseynew#<0 pitch camera up 2 endif if leftkey()=1 or mouseclick()=2 and mousexnew#>0 turn camera left 2 endif if rightkey()=1 or mouseclick()=2 and mousexnew#<0 turn camera right 2 endif if mousezold<mousez() or inkey$()="+" move camera 10*size ghty=get ground height(1,camera position x(),camera position z()) ghty1=camera position y()-ghty if ghty1<10 then move camera -10*size endif if mousezold>mousez() or inkey$()="-" move camera -10*size ghty=get ground height(1,camera position x(),camera position z()) ghty1=camera position y()-ghty if ghty1<10 then move camera 10*size endif if banding=1 then goto skiptilt if mouseclick()=3 and mousexnew#>0 roll camera left 2 endif if mouseclick()=3 and mousexnew#<0 roll camera right 2 endif skiptilt: if banding=1 then goto skipfirst if mouseclick()=1 mx1=mousex():my1=mousey():banding=1 endif skipfirst: if banding=1 then mx2=mousex():my2=mousey() if mx1>mx2 and my1<my2 or mx1<mx2 and my1>my2 then banding=0 if mousex()>screen width()-58 and mousex()<screen width()-42 and mousey()<250 then banding=0 if banding=1 and mouseclick()=0 if mx1<mx2 for x=1 to finalcount if object visible(x)=1 ox=object screen x(x):oy=object screen y(x) if ox>mx1 and ox<mx2 and oy>my1 and oy<my2 objstat(x)=1:color object x,rgb(255,0,0) endif endif next x endif if mx1>mx2 for x=1 to finalcount if object visible(x)=1 ox=object screen x(x):oy=object screen y(x) if ox<mx1 and ox>mx2 and oy<my1 and oy>my2 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) endif endif next x endif banding=0 endif if banding=1 and mx1<>mx2 or my1<>my2 then goto skipselect if mousex()>screen width()-58 and mousex()<screen width()-42 and mousey()<250 then goto skipselect if mousexnew#=0 and mouseynew#=0 if mouseclick()=1 and mx1=mx2 and banding=1 and mx1=mx2 and my1=my2 for x=1 to finalcount if object visible(x)=1 if object in screen(x)=1 sx=object screen x(x):sy=object screen y(x) if mousex()>sx-5 and mousex()<sx+5 and mousey()>sy-5 and mousey()<sy+5 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) sleep 200 x=finalcount:banding=0 endif endif endif next x sleep 200 endif endif skipselect: if banding=1 then goto skipnumchng if mouseclick()=0 then numchng=0:numchng1=0 if mouseclick()=1 if mousex()>screen width()-58 and mousex()<screen width()-42 inc numchng if numchng>100 then numchg=100 oset=int(numchng/10) if numchng=100 then inc numchng1 if numchng1>20 then numchng1=20 if numchng1=20 then oset=oset*10 if mousey()>29 and mousey()<44 inc raiselower#,1+oset sleep 20 endif if mousey()>70 and mousey()<85 dec raiselower#,1+oset if raiselower#<1 then raiselower#=1 sleep 20 endif if mousey()>100 and mousey()<120 dec wspeed,1+oset if wspeed<0 then wspeed=0 endif if mousey()>135 and mousey()<155 inc wspeed,1+oset endif if mousey()>180 and mousey()<205 inc wh,1+oset whc=1 endif if mousey()>215 and mousey()<235 dec wh,1+oset if wh<0 then wh=0 whc=1 endif sleep 50 endif endif skipnumchng: if mouseclick()=4 and mouseynew#>0 or inkey$()="." for x=1 to finalcount if objstat(x)=1 gh#=get matrix height(1,xpos(x),zpos(x)) inc height#(x),raiselower# set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 endif next x update matrix 1 endif if mouseclick()=4 and mouseynew#<0 or inkey$()="," for x=1 to finalcount if objstat(x)=1 dec height#(x),raiselower# set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 endif next x update matrix 1 endif if inkey$()="u" for x=1 to finalcount if objstat(x)=1 objstat(x)=-1 color object x,rgb(0,255,0) endif next x endif if inkey$()="s" for x=1 to finalcount if object visible(x)=1 then objstat(x)=1:color object x,rgb(255,0,0) next x endif if inkey$()="t" for x=1 to finalcount if object visible(x)=1 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) endif next x sleep 200 endif if inkey$()="h" hide=hide*-1 if hide=1 for x=1 to finalcount if objstat(x)=-1 hide object x endif next x endif if hide=-1 for x=1 to finalcount if objstat(x)=-1 if object visible(x)=0 then show object x endif next x endif sleep 200 endif if inkey$()="o" then o=o*-1:sleep 200 if inkey$()="%" if undo=1 for x=1 to finalcount height#(x)=heightold#(x) set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 next x update matrix 1 undo=0 sleep 200 endif endif Rem Smooth matrix if inkey$()="5" for x=1 to finalcount heightold#(x)=height#(x) next x undo=1 for x=1 to matsegx-1 for z=1 to matsegz-1 a=get matrix height(1,x-1,z+1) b=get matrix height(1,x,z+1) c=get matrix height(1,x+1,z+1) d=get matrix height(1,x+1,z) e=get matrix height(1,x+1,z-1) f=get matrix height(1,x,z-1) g=get matrix height(1,x-1,z-1) h=get matrix height(1,x-1,z) total=a+b+c+d+e+f+g+h av#=total/8 set matrix height 1,x,z,av# next z next x for x=0 to matsegx set matrix height 1,x,0,get matrix height(1,x,1) next x for x=0 to matsegx set matrix height 1,x,tilez,get matrix height(1,x,matsegz-1) next x for z=0 to matsegz set matrix height 1,0,z,get matrix height(1,1,z) next z for z=0 to matsegz set matrix height 1,tilex,z,get matrix height(1,matsegx-1,z) next z update matrix 1 for x=1 to finalcount height#(x)=get matrix height(1,xpos(x),zpos(x)) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 next x sleep 500 endif mousexold#=mousex():mouseyold#=mousey():mousezold=mousez() if inkey$()="w" if matrix wireframe state(1)=1 then set matrix wireframe off 1 else set matrix wireframe on 1 sleep 200 endif ink RGB(0,255,255),0 set cursor 0,0:Print "Matrix properties" set cursor screen width()/2-124,0 print "MATRIX MASTER Pro v1.9 - by Richard Sardini" ink RGB(0,128,255),0 print "X-size->";matsizex;"->Z-size->";matsizez print "X-segment->";matsegx;"->Z-segment->";matsegz print "Water level->";wl set cursor screen width()/2-80,40 print "You are editing matix> ";:ink rgb(255,255,0),0:print matname$:ink rgb(255,255,255),0 set cursor screen width()/2-80,80:print "You are in Elevation mode.":ink rgb(255,255,255),0 print "Mousex->";mousex();" Mousey->";mousey() xl=screen width()/2:yl=screen height()/2 ink RGB(192,192,192),0 line xl,200,xl,screen height()-200 line 250,yl,screen width()-250,yl ink rgb(255,255,255),0 if banding=1 if mx1<mx2 then ink RGB(255,0,128),0 else ink RGB(255,255,0),0 line mx1,my1,mx2,my1:line mx1,my2,mx1,my1 line mx2,my1,mx2,my2:line mx1,my2,mx2,my2 ink rgb(255,255,255),0 endif cnt1=0 print "First 16 markers selected/height" for x=1 to finalcount if objstat(x)=1 print "X->";xpos(x);" Z->";zpos(x);" Height->";height#(x) inc cnt1 if cnt1>15 then x=finalcount endif next x if o=-1 then goto skiphints inc hintc1,8:if hintc1>255 then hintc1=100 hintcolor=rgb(0,hintc1,0) ink hintcolor,0 text 0,screen height()-75,hint$(hint) skiphints: set cursor screen width()/5,screen height()-50 ink rgb(255,255,255),0 print "Press: 1-Save, 2-Load, 3-Enter texture mode, Z-Zip to next hint, Shift Z-Zip back one hint." set cursor screen width()/5,screen height()-25 print "Press: 5-Smooth matrix one time, Shif 5-undo last smoothing, 6-Toggle water on and back off" set cursor screen width()-160,50 print "Elevation change->";raiselower# ink rgb(255,0,0),0 line screen width()-54,44,screen width()-46,44 line screen width()-54,44,screen width()-50,34 line screen width()-46,44,screen width()-50,34 line screen width()-54,70,screen width()-46,70 line screen width()-54,70,screen width()-50,80 line screen width()-46,70,screen width()-50,80 ink rgb(255,255,255),0 if wv=1 set cursor screen width()-140,120 print "Wave speed->";wspeed set cursor screen width()-150,200 print "Wave height->";wh ink rgb(255,0,0),0 line screen width()-54,114,screen width()-46,114 line screen width()-54,114,screen width()-50,104 line screen width()-46,114,screen width()-50,104 line screen width()-54,140,screen width()-46,140 line screen width()-54,140,screen width()-50,150 line screen width()-46,140,screen width()-50,150 line screen width()-54,194,screen width()-46,194 line screen width()-54,194,screen width()-50,184 line screen width()-46,194,screen width()-50,184 line screen width()-54,220,screen width()-46,220 line screen width()-54,220,screen width()-50,230 line screen width()-46,220,screen width()-50,230 endif ink RGB(236,237,173),0 line mousex()-9,mousey()-9,mousex()+10,mousey()+10 line mousex()-9,mousey()+9,mousex()+10,mousey()-10 ink rgb(255,255,255),0 sync loop savematrix: backdrop off sync off:cls rgb(0,0,0) ink rgb(255,255,255),0 savematrix1: if file exist(matname$)=1 sleep 500 print "File already exist - Would you like to overwrite this file or rename your matrix?" print "Press 2 to overwrite or 3 to rename this matrix" getagain: g$=inkey$() if g$<>"2" and g$<>"3" then sleep 200:goto getagain if g$="3" sleep 200 print "What is the new file name?";:input matname$ sleep 200 goto savematrix1 endif if g$="2" then delete file matname$:sleep 200 endif open to write 1,matname$ write long 1,matsizex:write long 1,matsizez:write long 1,matsegx:write long 1,matsegz write long 1,finalcount for x=1 to finalcount write long 1,xpos(x) write long 1,zpos(x) write float 1,height#(x) write long 1,tile(x) next x close file 1 print "File saved as:";:ink rgb(0,255,0),0:print matname$;:ink rgb(255,255,255),0:print ", Press any key to return to editor" sleep 500 wait key sleep 200 sync on backdrop on goto mainloop loadmatrix: if matrix exist(2)=1 then delete matrix 2 backdrop off sync off:cls rgb(0,0,0) ink rgb(255,255,255),0 print "Current matrix will be lost. Proceed(Y/N)?" getinput: g$=inkey$() if g$="n" or g$="N" then sync on:backdrop on:goto mainloop if g$<>"y" then goto getinput delete matrix 1 for x=1 to finalcount delete object x next x delete object 70000 undim xpos(finalcount):undim zpos(finalcount) undim height#(finalcount):undim objstat(finalcount) undim tile(finalcount):undim heightold#(finalcount) redomatrixname: input "File name to load?";matname$ print "If nothing happens, press enter again." if matname$="exit" then goto startover if file exist(matname$)=0 print "File does not exist: Try again or type exit" sleep 500 goto redomatrixname endif if file exist(matname$)=1 open to read 1,matname$ read long 1,matsizex:read long 1,matsizez read long 1,matsegx:read long 1,matsegz read long 1,finalcount dim height#(finalcount):dim xpos(finalcount):dim zpos(finalcount) dim tile(finalcount):dim heightold#(finalcount) load=1 endif sync on backdrop on goto loaded texture: objnum=1:wc=0 if matrix wireframe state(1)=1 then set matrix wireframe off 1 for z=0 to matsegz for x=0 to matsegx if object visible(objnum)=0 then show object objnum color object objnum,rgb(0,255,0):objstat(objnum)=-1 if xpos(objnum)=matsegx or zpos(objnum)=matsegz then hide object objnum height1=int(get ground height(1,(x*matsegx1)+(matsegx1/2),(z*matsegz1)+(matsegz1/2))) position object objnum,(x*matsegx1)+(matsegx1/2),height1,(z*matsegz1)+(matsegz1/2) inc objnum next x next z for x=1 to finalcount if xpos(x)=matsegx or zpos(x)=matsegz then hide object x next x rval=0 if matrix exist(2)=1 then delete matrix 2:rval=1 hint=36:hintdelay=1000 tile=1 do dec hintdelay if hintdelay<0 then hintdelay=500+hintspeed:inc hint if hint>39 then hint=16 if inkey$()="z" inc hint if hint>39 then hint=16 hintdelay=1500 sleep 200 endif if inkey$()="Z" dec hint if hint<16 then hint=39 hintdelay=1500 sleep 200 endif if inkey$()="v" then inc hintspeed,50 if inkey$()="V" then dec hintspeed,50 if hintspeed<-400 then hintspeed=-400 if mouseclick()=1 and banding=0 if mousex()>699 and mousey()<250 if mousex()<732 and mousey()<30 then tile=1 if mousex()>732 and mousey()<30 then tile=2 if mousex()<732 and mousey()>30 and mousey()<64 then tile=3 if mousex()>732 and mousey()>30 and mousey()<64 then tile=4 if mousex()<732 and mousey()>64 and mousey()<96 then tile=5 if mousex()>732 and mousey()>64 and mousey()<96 then tile=6 if mousex()<732 and mousey()>96 and mousey()<128 then tile=7 if mousex()>732 and mousey()>96 and mousey()<128 then tile=8 if mousex()<732 and mousey()>128 and mousey()<160 then tile=9 if mousex()>732 and mousey()>128 and mousey()<160 then tile=10 for x=1 to finalcount if objstat(x)=1 set matrix tile 1,xpos(x),zpos(x),tile tile(x)=tile endif next x update matrix 1 endif endif if inkey$()="4" for x=1 to finalcount position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 objstat(x)=-1:color object x,rgb(0,255,0) if object visible(x)=0 then show object x next x hint=1 if rval=1 wc=1 endif return endif base=get ground height(1,0,0):position object 70000,-10,base,-10 mousexnew#=mousexold#-mousex():mouseynew#=mouseyold#-mousey() if upkey()=1 or mouseclick()=2 and mouseynew#>0 pitch camera down 2 endif if downkey()=1 or mouseclick()=2 and mouseynew#<0 pitch camera up 2 endif if leftkey()=1 or mouseclick()=2 and mousexnew#>0 turn camera left 2 endif if rightkey()=1 or mouseclick()=2 and mousexnew#<0 turn camera right 2 endif if mousezold<mousez() or inkey$()="+" move camera 20*size ghty=get ground height(1,camera position x(0),camera position z(0)) ghty1=camera position y()-ghty if ghty1<50 then move camera -20*size endif if mousezold>mousez() or inkey$()="-" move camera -20*size ghty=get ground height(1,camera position x(0),camera position z(0)) ghty1=camera position y()-ghty if ghty1<50 then move camera 20*size endif if banding=1 then goto skiptilt2 if mouseclick()=3 and mousexnew#>0 roll camera left 2 endif if mouseclick()=3 and mousexnew#<0 roll camera right 2 endif skiptilt2: if banding=1 then goto skipfirst2 if mouseclick()=1 mx1=mousex():my1=mousey():banding=1 endif skipfirst2: if banding=1 then mx2=mousex():my2=mousey() if mx1>mx2 and my1<my2 or mx1<mx2 and my1>my2 then banding=0 if banding=1 and mouseclick()=0 if mx1<mx2 for x=1 to finalcount if object visible(x)=1 ox=object screen x(x):oy=object screen y(x) if ox>mx1 and ox<mx2 and oy>my1 and oy<my2 objstat(x)=1:color object x,rgb(255,0,0) endif endif next x endif if mx1>mx2 for x=1 to finalcount if object visible(x)=1 ox=object screen x(x):oy=object screen y(x) if ox<mx1 and ox>mx2 and oy<my1 and oy>my2 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) endif endif next x endif banding=0 endif if banding=1 and mx1<>mx2 and my1<>my2 then goto skipselect22 if mousexnew#=0 and mouseynew#=0 if mouseclick()=1 and mx1=mx2 and banding=1 and mx1=mx2 and my1=my2 for x=1 to finalcount if object visible(x)=1 if object in screen(x)=1 sx=object screen x(x):sy=object screen y(x) if mousex()>sx-5 and mousex()<sx+5 and mousey()>sy-5 and mousey()<sy+5 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) sleep 200 x=finalcount:banding=0 endif endif endif next x sleep 200 endif endif skipselect22: if inkey$()="u" for x=1 to finalcount if object visible(x)=1 if objstat(x)=1 objstat(x)=-1 color object x,rgb(0,255,0) endif endif next x endif if inkey$()="g" ghost=ghost*-1 if ghost=1 ghost matrix on 1 endif if ghost=-1 ghost matrix off 1 endif sleep 200 endif if inkey$()="s" for x=1 to finalcount if object visible(x)=1 then objstat(x)=1:color object x,rgb(255,0,0) next x endif if inkey$()="t" for x=1 to finalcount if object visible(x)=1 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) endif next x sleep 200 endif if inkey$()="h" hide=hide*-1 if hide=1 for x=1 to finalcount if objstat(x)=-1 and xpos(x)<matsegx and zpos(x)<matsegz hide object x endif next x endif if hide=-1 for x=1 to finalcount if objstat(x)=-1 and xpos(x)<matsegx and zpos(x)<matsegz if object visible(x)=0 then show object x endif next x endif sleep 200 endif if inkey$()="o" then o=o*-1:sleep 200 mousexold#=mousex():mouseyold#=mousey():mousezold=mousez() ink RGB(0,255,255),0 set cursor screen width()/2-120,0 print "MATRIX MASTER v1.9 - by Richard Sardini" ink RGB(0,128,255),0 print "X-size=";matsizex;"->Z-size=";matsizez print "X-segment=";matsegx;"->Z-segment=";matsegz set cursor screen width()/2-80,40 print "You are editing matix> ";:ink rgb(255,255,0),0:print matname$ set cursor screen width()/2-80,80:print "You are in Texture mode.":ink rgb(255,255,255),0 print "Mousex->";mousex();" Mousey->";mousey() xl=screen width()/2:yl=screen height()/2 ink RGB(192,192,192),0 line xl,200,xl,screen height()-200 line 250,yl,screen width()-250,yl ink rgb(255,255,255),0 if banding=1 if mx1<mx2 then ink RGB(255,0,128),0 else ink RGB(255,255,0),0 line mx1,my1,mx2,my1:line mx1,my2,mx1,my1 line mx2,my1,mx2,my2:line mx1,my2,mx2,my2 ink rgb(255,255,255),0 endif cnt1=0 print "First 16 markers selected/tile" for x=1 to finalcount if objstat(x)=1 print "X->";xpos(x);" Z->";zpos(x);" Tile->";tile(x) inc cnt1 if cnt1>15 then x=finalcount endif next x if o=-1 then goto skiphints1 inc hintc1,8:if hintc1>255 then hintc1=100 hintcolor=rgb(0,hintc1,0) ink hintcolor,0 text 0,screen height()-75,hint$(hint) skiphints1: set cursor screen width()/5,screen height()-50 ink RGB(236,237,173),0 line mousex()-9,mousey()-9,mousex()+10,mousey()+10 line mousex()-9,mousey()+9,mousex()+10,mousey()-10 ink rgb(255,255,255),0 print "Press: 4-Exit texture mode, Z-Zip to next hint, Shift Z-Zip back one hint." paste image 1,700,0 sync loop remstart This is the code snippet you will need to re-load your matrix into your DB programs open to read 1,<filenamehere> read long 1,matsizex:read long 1,matsizez read long 1,matsegx:read long 1,matsegz read long 1,finalcount dim height#(finalcount):dim xpos(finalcount):dim zpos(finalcount):dim tile(finalcount) for x=1 to finalcount read long 1,xpos(x) read long 1,zpos(x) read float 1,height#(x) read long 1,tile(x) next x close file 1 make matrix 1,matsizex,matsizez,matsegx,matsegz rem insert matrix texure here if tiling, otherwise delete marked line for x=1 to finalcount set matrix height 1,xpos(x),zpos(x),height#(x) if xpos(x)<matsegx and zpos(x)<matsegz `delete this line if not using texture set matrix tile 1,xpos(x),zpos(x),tile(x) `delete this line if not using texture endif `delete this line if not using texture next x update matrix 1 endrem

Full Description

` This code was downloaded from The Game Creators ` It is reproduced here with full permission ` http://www.thegamecreators.com Rem Project: MATRIX MASTER PRO Rem Created: 5/17/04 4:36:23 PM Rem ***** Main Source File ***** rem this program written by Richard Sardini Jr rem my e-mail:[email protected] rem my phone:814-504-6033 rem check end of program for code snippet to load matrix into your dark basic programs set display mode 800,600,16 create bitmap 1,65,161 rem texture 1 (green) ink RGB(128,128,0),0:for x=0 to 31:line x,0,x,32:next x ink RGB(0,128,0),0:for x=0 to 200:dot rnd(32)-1,rnd(32)-1:next x ink RGB(255,128,0),0:for x=0 to 50:dot rnd(32)-1,rnd(32)-1:next x ink RGB(128,128,255),0:for x=0 to 90:dot rnd(32)-1,rnd(32)-1:next x ink RGB(255,255,255),0:for x=0 to 20:dot rnd(32)-1,rnd(32)-1:next x rem texture 2 (medium grey) ink RGB(128,128,128),0:for x=31 to 64:line x,0,x,32:next x ink RGB(192,192,192),0:for x=0 to 200:dot rnd(32)+33,rnd(32)-1:next x ink RGB(60,81,66),0:for x=0 to 50:dot rnd(32)+33,rnd(32)-1:next x ink RGB(48,74,167),0:for x=0 to 90:dot rnd(32)+33,rnd(32)-1:next x ink RGB(255,255,255),0:for x=0 to 20:dot rnd(32)+33,rnd(32)-1:next x rem texture 3 (dark grey) ink RGB(82,82,82),0:for x=0 to 31:line x,32,x,65:next x ink RGB(0,0,0),0:for x=0 to 200:dot rnd(32)-1,rnd(32)+33:next x ink RGB(128,128,128),0:for x=0 to 50:dot rnd(32)-1,rnd(32)+33:next x ink RGB(57,36,159),0:for x=0 to 90:dot rnd(32)-1,rnd(32)+33:next x ink RGB(192,192,192),0:for x=0 to 20:dot rnd(32)-1,rnd(32)+33:next x rem texture 4 (light brown) ink RGB(194,160,114),0:for x=32 to 64:line x,32,x,65:next x ink RGB(255,209,164),0:for x=0 to 200:dot rnd(32)+33,rnd(32)+33:next x ink RGB(190,126,126),0:for x=0 to 50:dot rnd(32)+33,rnd(32)+33:next x ink RGB(255,230,204),0:for x=0 to 90:dot rnd(32)+33,rnd(32)+33:next x ink RGB(128,64,64),0:for x=0 to 20:dot rnd(32)+33,rnd(32)+33:next x rem texture 5 (medium brown) ink RGB(217,108,0),0:for x=0 to 31:line x,65,x,97:next x ink RGB(128,64,64),0:for x=0 to 200:dot rnd(32)-1,rnd(32)+65:next x ink RGB(185,92,0),0:for x=0 to 50:dot rnd(32)-1,rnd(32)+65:next x ink RGB(210,105,0),0:for x=0 to 90:dot rnd(32)-1,rnd(32)+65:next x ink RGB(255,197,138),0:for x=0 to 20:dot rnd(32)-1,rnd(32)+65:next x rem texture 6 (Black) ink RGB(0,0,0),0:for x=32 to 64:line x,65,x,98:next x rem texture 7 (Blue 1) ink RGB(0,0,255),0:for x=0 to 31:line x,97,x,130:next x ink RGB(0,128,255),0:for x=0 to 200:dot rnd(31)-1,rnd(32)+95:next x ink RGB(0,128,192),0:for x=0 to 50:dot rnd(31)-1,rnd(32)+95:next x ink RGB(255,255,255),0:for x=0 to 90:dot rnd(31)-1,rnd(32)+95:next x ink RGB(128,0,255),0:for x=0 to 20:dot rnd(31)-1,rnd(32)+95:next x rem texture 8 (Lt. Blue) ink RGB(0,255,255),0:for x=31 to 64:line x,96,x,130:next x ink RGB(128,255,255),0:for x=0 to 200:dot rnd(32)+33,rnd(31)+96:next x ink RGB(0,230,230),0:for x=0 to 50:dot rnd(32)+33,rnd(31)+96:next x ink RGB(151,255,255),0:for x=0 to 90:dot rnd(32)+33,rnd(31)+96:next x ink RGB(0,206,206),0:for x=0 to 20:dot rnd(32)+33,rnd(31)+96:next x rem texture 9 (White) ink rgb(255,255,255),0:for x=0 to 34:line x,127,x,161:next x ink RGB(218,218,218),0:for x=0 to 200:dot rnd(33)-1,rnd(31)+126:next x rem texture 10 (orange) ink RGB(255,128,0),0:for x=33 to 64:line x,128,x,161:next x ink RGB(255,128,64),0:for x=0 to 200:dot rnd(32)+33,rnd(31)+129:next x rem get matrix texture blur bitmap 1,3 get image 1,1,1,64,160 delete bitmap 1 create bitmap 1,50,50 ink RGB(0,0,255),0:for x=0 to 50:line x,0,x,50:next x ink rgb(0,255,255),0:for x=0 to 200:dot rnd(50),rnd(50):next x ink RGB(128,255,255),0:for x=0 to 70:dot rnd(50),rnd(50):next x ink RGB(255,255,255),0:for x=0 to 75:dot rnd(50),25+rnd(10):next x blur bitmap 1,3 get image 2,0,0,50,50 delete bitmap 1 hint=1:hints=36:hintdelay=750:hintspeed=0 dim hint$(40):hintc1=50:ghost=-1:ghost1=-1 hint$(1)="Press ' w ' to toggle wireframe on and off." hint$(2)="Press and hold mouse wheel button 3 and move mouse up and down to lower or raise selected markers respectively." hint$(3)="Or use keyboard less than ' < ' or greater than ' > ' to lower or raise selected markers respectively." hint$(4)="Press ' L ' to level the matrix back to zero." hint$(5)="Press Shift and 'L' to level select markers." hint$(6)="Press ' b ' to set maximum bottom sea depth. Use this to raise sea floor after smoothing lowers it too deep. Shift 5 to undo." hint$(7)="Press ' m ' to toggle wave flow off and back on." hint$(8)="Shift ' G ' to toggle ghost water on." hint$(9)="Press ' d ' to change the direction the waves are facing." hint$(10)="Press Shift and ' D ' to change the direction the waves are flowing." hint$(11)="Press ' n ' anytime in elevation mode to start a new matrix." hint$(12)="Press ' 5 ' to smooth matrix 1 time. Can be undone only 1 time. Thanks to ReD_eYe(and inspired by David89)." hint$(13)="Press Shift and ' 5 ' to undo smooth matrix once. Do this to save final smoothing for when your whole matrix is done." hint$(14)="Click on up and down arrows at the top right of the screen to set elevation change rate or wave settings." hint$(15)="Press ' q ' to raise the water level or ' a ' to lower the water level." hint$(16)="Press ' s ' to select all visible coordinate markers and ' u ' to un-select all visible markers." hint$(17)="Press ' v ' to slow down hints and shift + ' v ' to speed up hints." hint$(18)="Press ' t ' to toggle or invert all visible coordinate markers." hint$(19)="Press arrow keys to pan your view or press and hold mouse botton 2 and move mouse." hint$(20)="Press and hold both mouse buttons 1 and 2 and move mouse to rotate camera view." hint$(21)="Left click and drag mouse-(top left to bottom right)-and red box will appear to select markers in box." hint$(22)="Left click and drag mouse-(bottom right to top left)-and yellow box will appear to toggle or invert selected markers in box." hint$(23)="Press ' h ' to hide all unselected markers-this is handy to isolate work areas." hint$(24)="Press ' h ' again to show all hidden markers. Use this feature to hide and prevent selecting backround markers." hint$(25)="Green marker=unselected coordinate - Red marker=selected coordinate." hint$(26)="Press ' + ' or ' - ' to zoom in and out or turn the mouse wheel." hint$(27)="Set the cross hairs on your destination point and then zoom in." hint$(28)="Press ' z ' to zip to the next hint." hint$(29)="Press 'shift' and ' z ' to zip back one hint." hint$(30)="Left click on marker to toggle coordinate marker selection." hint$(31)="Press ' g ' to toggle ghost matrix on and off. This helps you see and avoid selecting markers behind hills." hint$(32)="Press ' o ' to toggle hints off and back on." hint$(33)="Press ' escape ' key anytime to exit MATRIX MASTER." hint$(34)="Hiding unnecessary markers increases program funtion and speed." hint$(35)="To hide more markers, select markers you want to keep in view and press ' h ' or hide twice." hint$(36)="Press ' i ' to apply an image to your matrix. This is nice to sculp terrain around your landscape drawings.Texture mode is disabled." hint$(37)="Your mouse functions are all the same as Elevation mode except raise elevation and wireframe." hint$(38)="Select tile markers and then click on the texture at the top right of the screen that you want to apply." hint$(39)="I had a hard time with the texture image for the matrix texture. If you can help,fix it and e-mail to:[email protected]." startover: set text size 16 set current bitmap 0 load=0:o=1 cls rgb(0,0,0):ink RGB(255,255,0),0 set cursor screen width()/2-24,0 print "MATRIX-MASTER Pro Matrix Editor v1.9" ink rgb(255,255,255),0 print redomatrix: input "Give your matrix a name and press enter>";matname$:sleep 200 if matname$="" then goto redomatrix redoinput: print "Is this matrix name ";:ink rgb(0,255,0),0:print matname$;:ink rgb(255,255,255),0:print " correct?(y/n)>" redoinkey: g$=inkey$() if g$<>"n" and g$<>"y" and g$<>"" then print "Please confirm your matrix name>":sleep 500:goto redoinput if g$="n" then goto redomatrix if g$="y" then goto redoxsize goto redoinkey print "Matrix name accepted":sleep 1000:cls rgb(0,0,0):ink RGB(255,255,0),0 set cursor screen width()/2-24,0 print "MATRIX-MASTER Pro Matrix Editor v1.9" ink rgb(255,255,255),0 print redoxsize: input "Input matrix size X and press enter>";matsizex if matsizex<10 or matsizex>100000 then print "Bad input-try again>":sleep 500:goto redoxsize matsizex=int(matsizex) redozsize: input "Input matrix size Z and press enter>";matsizez if matsizez<10 or matsizez>100000 then print "Bad input-try again>":sleep 500:goto redozsize matsizez=int(matsizez) redoxseg: input "Input matrix segment X and press enter>";matsegx if matsegx<2 or matsegx>250 then print "Bad input-try again>":sleep 500:goto redoxseg matsegx=int(matsegx) redozseg: input "Input matrix segment Z and press enter>";matsegz if matsegz<2 or matsegz>250 then print "Bad input-try again>":sleep 500:goto redozseg matsegz=int(matsegz) print "Matrix parameters accepted" print "Working..."; sleep 500 backdrop on dim height#((matsegx+1)*(matsegz+1)):dim heightold#((matsegx+1)*(matsegz+1)) dim xpos((matsegx+1)*(matsegz+1)):dim zpos((matsegz+1)*(matsegx+1)) dim tile((matsegx+1)*(matsegz+1)):for x=0 to ((matsegx+1)*(matsegz+1)):tile(x)=1:next x undo=0:wh=0:wl=0:wv=-1:wm=-1:wd=0:ms=0:wspeed=10:wc=0:numchng=0:numchng1=0 wd2=0 loaded: if matsizex>500 and matsizez>500 then size=6 else size=2 if matsizex>2000 and matsizez>2000 then size=10 if matsizex>5000 and matsizez>5000 then size=30 if matsizex>8000 and matsizez>8000 then size=40 if matsizex>9999 and matsizez>9999 then size=50 if matsizex>20000 and matsizez>20000 then size=75 if matsizex>50000 and matsizez>50000 then size=100 if matsizex>70000 and matsizez>70000 then size=200 dim objstat((matsegx+1)*(matsegz+1)) matsegx1=matsizex/matsegx:matsegz1=matsizez/matsegz banding=0:mx1=0:mx2=0:my1=0:my2=0:hide=-1:raiselower#=1 objnum=1 for z=0 to matsegz for x=0 to matsegx objstat(objnum)=-1 finalcount=objnum inc objnum next x next z if finalcount>2500 cls:backdrop off:ink rgb(0,255,0),0 print "!!WARNING!!" Print "Because of excessive markers, markers will be hidden. Navigate to the area you want" print "to work with, hit h to show all markers, then select markers in desired work area. Then hit" print "h again to hide unselected markers. Repeat this process when changing work areas." print "Doing this will speed up the editing process." print "Press any key to continue..." wait key print "Hang on, this could be a minute!!" sleep 500 backdrop on ink rgb(255,255,255),0 endif sync on autocam off make matrix 1,matsizex,matsizez,matsegx,matsegz position matrix 1,0,0,0 prepare matrix texture 1,1,2,5 update matrix 1 make object cube 70000,10:position object 70000,-10,0,-10:color object 70000,RGB(0,255,255) if load=1 for x=1 to finalcount read long 1,xpos(x) read long 1,zpos(x) read float 1,height#(x) read long 1,tile(x) next x close file 1 endif load=0 objnum=1 for z=0 to matsegz for x=0 to matsegx make object sphere objnum,size:color object objnum,rgb(0,255,0) position object objnum,x*matsegx1,height#(objnum),z*matsegz1 if finalcount>2500 hide object objnum endif set matrix height 1,x,z,height#(objnum) if x<matsegx and z<matsegz set matrix tile 1,x,z,tile(objnum) endif if load=1 then goto skipassign xpos(objnum)=x:zpos(objnum)=z skipassign: inc objnum next x next z if finalcount>2500 then hide=1 update matrix 1 set camera range 1,1000000 position camera 0,500,0 point camera 200,0,200 mousexold#=mousex():mouseyold#=mousey() gtx=0 wh=50:wd=1:wm=1 mainloop: do if inkey$()="i" backdrop off:sync off:cls redoimagename: print "Input image name to apply as matrix texture or type exit to abort.>";:input gtx$ if gtx$="exit" then sleep 200:backdrop on:sync on:goto aborttexture if file exist(gtx$)=0 print "File invalid. Make sure to include the file extension, e.g. .bmp. Try again or type exit.>":sleep 200 goto redoimagename endif load image gtx$,10 tile=1:gtx=1 prepare matrix texture 1,10,matsegx,matsegz for z=matsegz-1 to 0 step -1 for x=0 to matsegx-1 set matrix tile 1,x,z,tile inc tile next x next z update matrix 1 sync on:backdrop on sleep 200 endif aborttexture: dec hintdelay if hintdelay<0 then hintdelay=500+hintspeed:inc hint if hint>hints then hint=1 if inkey$()="v" then inc hintspeed,50 if inkey$()="V" then dec hintspeed,50 if hintspeed<-400 then hintspeed=-400 if inkey$()="z" inc hint if hint>hints then hint=1 hintdelay=1500 sleep 200 endif if inkey$()="Z" dec hint if hint<1 then hint=hints hintdelay=1500 sleep 200 endif if inkey$()<>"q" then htinc=0 if inkey$()="q" inc htinc if htinc>100 then htinc=100 if wv=1 inc wl,1+int(htinc/10) position matrix 2,0,wl,0 sleep 20 endif endif if inkey$()<>"a" then htdec=0 if inkey$()="a" inc htdec if htdec>100 then htdec=100 if wv=1 dec wl,1+int(htdec/10) position matrix 2,0,wl,0 sleep 20 endif endif if inkey$()="n" sync off:backdrop off:set matrix wireframe on 1 set cursor 0,0:cls rgb(0,0,0):ink RGB(255,255,255),0 print "Confirm! Do you want to start a new matrix?(y/n)" print "You may want to answer no and save this matrix first lest it be lost." sleep 500 getagain5: g$=inkey$() if g$<>"y" and g$<>"n" then goto getagain5 if g$="y" for x=1 to finalcount:delete object x:next x:delete object 70000 delete matrix 1 undim xpos(finalcount):undim zpos(finalcount) undim height(finalcount):undim objstat(finalcount) sleep 200 goto startover endif if g$="n" sync on:backdrop on endif sleep 500 set matrix wireframe off 1 endif if inkey$()="g" ghost=ghost*-1 if ghost=1 ghost matrix on 1 endif if ghost=-1 ghost matrix off 1 endif sleep 200 endif if inkey$()="G" ghost1=ghost1*-1 if ghost1=1 if matrix exist(2)=1 ghost matrix on 2 endif endif if ghost1=-1 if matrix exist(2)=1 ghost matrix off 2 endif endif sleep 200 endif if inkey$()="L" for x=1 to finalcount heightold#(x)=height#(x) next x:undo=1 for x=1 to finalcount if objstat(x)=1 height#(x)=0 set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 endif next x update matrix 1 sleep 200 endif if inkey$()="l" sync off:backdrop off cls rgb(0,0,0):ink rgb(255,255,255),0 print "Are you sure you want to level your matrix back to zero?(y/n)" print "If you answer yes, you can press shift and ' 5 ' to undo level." sleep 200 getagain6: g$=inkey$() if g$<>"y" and g$<>"n" then goto getagain6 if g$="y" for x=1 to finalcount heightold#(x)=height#(x) next x:undo=1 for x=1 to finalcount height#(x)=0 set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 objstat(x)=-1:color object x,rgb(0,255,0) next x update matrix 1 endif sync on:backdrop on endif if inkey$()="b" sync off:backdrop off:cls rgb(0,0,0) ink rgb(255,255,255),0:print "Please input value you want to set for maximum sea bottom depth(0=abort)?"; getbottom: input bot bot=int(bot):if bot=0 then sync on:backdrop on:goto donebot for x=1 to finalcount heightold#(x)=height#(x) next x:undo=1 if bot<0 then bot=bot*-1 for x=1 to finalcount if height#(x)<0-bot or height#(x)<wl height#(x)=((bot)*-1) set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 endif next x update matrix 1 sync on:backdrop on endif donebot: rem watermatrix if inkey$()="6" wv=wv*-1 if wv=1 if matrix exist(2)=0 make matrix 2,matsizex,matsizez,matsegx,matsegz prepare matrix texture 2,2,1,1 position matrix 2,0,wl,0 if wh>0 if wd=1 flip=1 for z=0 to matsegz-1 step int(matsegz/10)+1 for x=0 to matsegx-1 if flip=1 set matrix height 2,x,z,int(matsegz/5)+1+wh endif if flip=-1 set matrix height 2,x,z,-int(matsegz/5)+1+wh endif next x flip=flip*-1 next z endif if wd=2 flip=1 for x=0 to matsegx-1 step int(matsegx/10)+1 for z=0 to matsegz-1 if flip=1 set matrix height 2,x,z,int(matsegz/5)+1+wh endif if flip=-1 set matrix height 2,x,z,-int(matsegz/5)+1+wh endif next z flip=flip*-1 next x endif for x=1 to matsegx-1 for z=1 to matsegz-1 a=get matrix height(2,x-1,z+1) b=get matrix height(2,x,z+1) c=get matrix height(2,x+1,z+1) d=get matrix height(2,x+1,z) e=get matrix height(2,x+1,z-1) f=get matrix height(2,x,z-1) g=get matrix height(2,x-1,z-1) h=get matrix height(2,x-1,z) total=a+b+c+d+e+f+g+h av#=total/8 set matrix height 2,x,z,av# next z next x for x=0 to matsegx set matrix height 2,x,0,get matrix height(2,x,1) next x for x=0 to matsegx set matrix height 2,x,tilez,get matrix height(2,x,matsegz-1) next x for z=0 to matsegz set matrix height 2,0,z,get matrix height(2,1,z) next z for z=0 to matsegz set matrix height 2,tilex,z,get matrix height(2,matsegx-1,z) next z endif update matrix 2 if ghost1=1 then ghost matrix on 2 endif endif if wv=-1 if matrix exist(2)=1 delete matrix 2 endif endif sleep 200 endif if inkey$()="d" if wd=1 then wd=2 else wd=1 dc=1 sleep 200 endif if inkey$()="D" if wd1=0 then wd1=1 else wd1=0 sleep 200 endif if inkey$()="m" wm=wm*-1 sleep 200 endif inc ms if ms>wspeed ms=0 if wm=1 if wv=1 if wd=1 if matrix exist(2)=1 if wd1=0 then shift matrix up 2 if wd1=1 then shift matrix down 2 update matrix 2 endif endif if wd=2 if matrix exist(2)=1 if wd1=0 then shift matrix right 2 if wd1=1 then shift matrix left 2 update matrix 2 endif endif endif endif endif if whc=1 and mousex()<screen width()-58 or dc=1 or wc=1 if whc=1 then whc=0 if dc=1 then dc=0 if wc=1 then wc=0 if matrix exist(2)=1 then delete matrix 2 make matrix 2,matsizex,matsizez,matsegx,matsegz prepare matrix texture 2,2,1,1 position matrix 2,0,wl,0 if wd=1 flip=1 for z=0 to matsegz-1 step int(matsegz/10)+1 for x=0 to matsegx-1 if flip=1 set matrix height 2,x,z,int(matsegz/5)+1+wh endif if flip=-1 set matrix height 2,x,z,-int(matsegz/5)+1+wh endif next x flip=flip*-1 next z endif if wd=2 flip=1 for x=0 to matsegx-1 step int(matsegx/10)+1 for z=0 to matsegz-1 if flip=1 set matrix height 2,x,z,int(matsegz/5)+1+wh endif if flip=-1 set matrix height 2,x,z,-int(matsegz/5)+1+wh endif next z flip=flip*-1 next x endif rem smooth water for x=1 to matsegx-1 for z=1 to matsegz-1 a=get matrix height(2,x-1,z+1) b=get matrix height(2,x,z+1) c=get matrix height(2,x+1,z+1) d=get matrix height(2,x+1,z) e=get matrix height(2,x+1,z-1) f=get matrix height(2,x,z-1) g=get matrix height(2,x-1,z-1) h=get matrix height(2,x-1,z) total=a+b+c+d+e+f+g+h av#=total/8 set matrix height 2,x,z,av# next z next x for x=0 to matsegx set matrix height 2,x,0,get matrix height(2,x,1) next x for x=0 to matsegx set matrix height 2,x,tilez,get matrix height(2,x,matsegz-1) next x for z=0 to matsegz set matrix height 2,0,z,get matrix height(2,1,z) next z for z=0 to matsegz set matrix height 2,tilex,z,get matrix height(2,matsegx-1,z) next z update matrix 2 if ghost1=1 then ghost matrix on 2 endif if inkey$()="1" then goto savematrix if inkey$()="2" then goto loadmatrix if gtx=1 then goto skiptexturemode if inkey$()="3" then gosub texture skiptexturemode: base=get ground height(1,0,0):position object 70000,-10,base,-10 mousexnew#=mousexold#-mousex():mouseynew#=mouseyold#-mousey() if upkey()=1 or mouseclick()=2 and mouseynew#>0 pitch camera down 2 endif if downkey()=1 or mouseclick()=2 and mouseynew#<0 pitch camera up 2 endif if leftkey()=1 or mouseclick()=2 and mousexnew#>0 turn camera left 2 endif if rightkey()=1 or mouseclick()=2 and mousexnew#<0 turn camera right 2 endif if mousezold<mousez() or inkey$()="+" move camera 10*size ghty=get ground height(1,camera position x(),camera position z()) ghty1=camera position y()-ghty if ghty1<10 then move camera -10*size endif if mousezold>mousez() or inkey$()="-" move camera -10*size ghty=get ground height(1,camera position x(),camera position z()) ghty1=camera position y()-ghty if ghty1<10 then move camera 10*size endif if banding=1 then goto skiptilt if mouseclick()=3 and mousexnew#>0 roll camera left 2 endif if mouseclick()=3 and mousexnew#<0 roll camera right 2 endif skiptilt: if banding=1 then goto skipfirst if mouseclick()=1 mx1=mousex():my1=mousey():banding=1 endif skipfirst: if banding=1 then mx2=mousex():my2=mousey() if mx1>mx2 and my1<my2 or mx1<mx2 and my1>my2 then banding=0 if mousex()>screen width()-58 and mousex()<screen width()-42 and mousey()<250 then banding=0 if banding=1 and mouseclick()=0 if mx1<mx2 for x=1 to finalcount if object visible(x)=1 ox=object screen x(x):oy=object screen y(x) if ox>mx1 and ox<mx2 and oy>my1 and oy<my2 objstat(x)=1:color object x,rgb(255,0,0) endif endif next x endif if mx1>mx2 for x=1 to finalcount if object visible(x)=1 ox=object screen x(x):oy=object screen y(x) if ox<mx1 and ox>mx2 and oy<my1 and oy>my2 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) endif endif next x endif banding=0 endif if banding=1 and mx1<>mx2 or my1<>my2 then goto skipselect if mousex()>screen width()-58 and mousex()<screen width()-42 and mousey()<250 then goto skipselect if mousexnew#=0 and mouseynew#=0 if mouseclick()=1 and mx1=mx2 and banding=1 and mx1=mx2 and my1=my2 for x=1 to finalcount if object visible(x)=1 if object in screen(x)=1 sx=object screen x(x):sy=object screen y(x) if mousex()>sx-5 and mousex()<sx+5 and mousey()>sy-5 and mousey()<sy+5 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) sleep 200 x=finalcount:banding=0 endif endif endif next x sleep 200 endif endif skipselect: if banding=1 then goto skipnumchng if mouseclick()=0 then numchng=0:numchng1=0 if mouseclick()=1 if mousex()>screen width()-58 and mousex()<screen width()-42 inc numchng if numchng>100 then numchg=100 oset=int(numchng/10) if numchng=100 then inc numchng1 if numchng1>20 then numchng1=20 if numchng1=20 then oset=oset*10 if mousey()>29 and mousey()<44 inc raiselower#,1+oset sleep 20 endif if mousey()>70 and mousey()<85 dec raiselower#,1+oset if raiselower#<1 then raiselower#=1 sleep 20 endif if mousey()>100 and mousey()<120 dec wspeed,1+oset if wspeed<0 then wspeed=0 endif if mousey()>135 and mousey()<155 inc wspeed,1+oset endif if mousey()>180 and mousey()<205 inc wh,1+oset whc=1 endif if mousey()>215 and mousey()<235 dec wh,1+oset if wh<0 then wh=0 whc=1 endif sleep 50 endif endif skipnumchng: if mouseclick()=4 and mouseynew#>0 or inkey$()="." for x=1 to finalcount if objstat(x)=1 gh#=get matrix height(1,xpos(x),zpos(x)) inc height#(x),raiselower# set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 endif next x update matrix 1 endif if mouseclick()=4 and mouseynew#<0 or inkey$()="," for x=1 to finalcount if objstat(x)=1 dec height#(x),raiselower# set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 endif next x update matrix 1 endif if inkey$()="u" for x=1 to finalcount if objstat(x)=1 objstat(x)=-1 color object x,rgb(0,255,0) endif next x endif if inkey$()="s" for x=1 to finalcount if object visible(x)=1 then objstat(x)=1:color object x,rgb(255,0,0) next x endif if inkey$()="t" for x=1 to finalcount if object visible(x)=1 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) endif next x sleep 200 endif if inkey$()="h" hide=hide*-1 if hide=1 for x=1 to finalcount if objstat(x)=-1 hide object x endif next x endif if hide=-1 for x=1 to finalcount if objstat(x)=-1 if object visible(x)=0 then show object x endif next x endif sleep 200 endif if inkey$()="o" then o=o*-1:sleep 200 if inkey$()="%" if undo=1 for x=1 to finalcount height#(x)=heightold#(x) set matrix height 1,xpos(x),zpos(x),height#(x) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 next x update matrix 1 undo=0 sleep 200 endif endif Rem Smooth matrix if inkey$()="5" for x=1 to finalcount heightold#(x)=height#(x) next x undo=1 for x=1 to matsegx-1 for z=1 to matsegz-1 a=get matrix height(1,x-1,z+1) b=get matrix height(1,x,z+1) c=get matrix height(1,x+1,z+1) d=get matrix height(1,x+1,z) e=get matrix height(1,x+1,z-1) f=get matrix height(1,x,z-1) g=get matrix height(1,x-1,z-1) h=get matrix height(1,x-1,z) total=a+b+c+d+e+f+g+h av#=total/8 set matrix height 1,x,z,av# next z next x for x=0 to matsegx set matrix height 1,x,0,get matrix height(1,x,1) next x for x=0 to matsegx set matrix height 1,x,tilez,get matrix height(1,x,matsegz-1) next x for z=0 to matsegz set matrix height 1,0,z,get matrix height(1,1,z) next z for z=0 to matsegz set matrix height 1,tilex,z,get matrix height(1,matsegx-1,z) next z update matrix 1 for x=1 to finalcount height#(x)=get matrix height(1,xpos(x),zpos(x)) position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 next x sleep 500 endif mousexold#=mousex():mouseyold#=mousey():mousezold=mousez() if inkey$()="w" if matrix wireframe state(1)=1 then set matrix wireframe off 1 else set matrix wireframe on 1 sleep 200 endif ink RGB(0,255,255),0 set cursor 0,0:Print "Matrix properties" set cursor screen width()/2-124,0 print "MATRIX MASTER Pro v1.9 - by Richard Sardini" ink RGB(0,128,255),0 print "X-size->";matsizex;"->Z-size->";matsizez print "X-segment->";matsegx;"->Z-segment->";matsegz print "Water level->";wl set cursor screen width()/2-80,40 print "You are editing matix> ";:ink rgb(255,255,0),0:print matname$:ink rgb(255,255,255),0 set cursor screen width()/2-80,80:print "You are in Elevation mode.":ink rgb(255,255,255),0 print "Mousex->";mousex();" Mousey->";mousey() xl=screen width()/2:yl=screen height()/2 ink RGB(192,192,192),0 line xl,200,xl,screen height()-200 line 250,yl,screen width()-250,yl ink rgb(255,255,255),0 if banding=1 if mx1<mx2 then ink RGB(255,0,128),0 else ink RGB(255,255,0),0 line mx1,my1,mx2,my1:line mx1,my2,mx1,my1 line mx2,my1,mx2,my2:line mx1,my2,mx2,my2 ink rgb(255,255,255),0 endif cnt1=0 print "First 16 markers selected/height" for x=1 to finalcount if objstat(x)=1 print "X->";xpos(x);" Z->";zpos(x);" Height->";height#(x) inc cnt1 if cnt1>15 then x=finalcount endif next x if o=-1 then goto skiphints inc hintc1,8:if hintc1>255 then hintc1=100 hintcolor=rgb(0,hintc1,0) ink hintcolor,0 text 0,screen height()-75,hint$(hint) skiphints: set cursor screen width()/5,screen height()-50 ink rgb(255,255,255),0 print "Press: 1-Save, 2-Load, 3-Enter texture mode, Z-Zip to next hint, Shift Z-Zip back one hint." set cursor screen width()/5,screen height()-25 print "Press: 5-Smooth matrix one time, Shif 5-undo last smoothing, 6-Toggle water on and back off" set cursor screen width()-160,50 print "Elevation change->";raiselower# ink rgb(255,0,0),0 line screen width()-54,44,screen width()-46,44 line screen width()-54,44,screen width()-50,34 line screen width()-46,44,screen width()-50,34 line screen width()-54,70,screen width()-46,70 line screen width()-54,70,screen width()-50,80 line screen width()-46,70,screen width()-50,80 ink rgb(255,255,255),0 if wv=1 set cursor screen width()-140,120 print "Wave speed->";wspeed set cursor screen width()-150,200 print "Wave height->";wh ink rgb(255,0,0),0 line screen width()-54,114,screen width()-46,114 line screen width()-54,114,screen width()-50,104 line screen width()-46,114,screen width()-50,104 line screen width()-54,140,screen width()-46,140 line screen width()-54,140,screen width()-50,150 line screen width()-46,140,screen width()-50,150 line screen width()-54,194,screen width()-46,194 line screen width()-54,194,screen width()-50,184 line screen width()-46,194,screen width()-50,184 line screen width()-54,220,screen width()-46,220 line screen width()-54,220,screen width()-50,230 line screen width()-46,220,screen width()-50,230 endif ink RGB(236,237,173),0 line mousex()-9,mousey()-9,mousex()+10,mousey()+10 line mousex()-9,mousey()+9,mousex()+10,mousey()-10 ink rgb(255,255,255),0 sync loop savematrix: backdrop off sync off:cls rgb(0,0,0) ink rgb(255,255,255),0 savematrix1: if file exist(matname$)=1 sleep 500 print "File already exist - Would you like to overwrite this file or rename your matrix?" print "Press 2 to overwrite or 3 to rename this matrix" getagain: g$=inkey$() if g$<>"2" and g$<>"3" then sleep 200:goto getagain if g$="3" sleep 200 print "What is the new file name?";:input matname$ sleep 200 goto savematrix1 endif if g$="2" then delete file matname$:sleep 200 endif open to write 1,matname$ write long 1,matsizex:write long 1,matsizez:write long 1,matsegx:write long 1,matsegz write long 1,finalcount for x=1 to finalcount write long 1,xpos(x) write long 1,zpos(x) write float 1,height#(x) write long 1,tile(x) next x close file 1 print "File saved as:";:ink rgb(0,255,0),0:print matname$;:ink rgb(255,255,255),0:print ", Press any key to return to editor" sleep 500 wait key sleep 200 sync on backdrop on goto mainloop loadmatrix: if matrix exist(2)=1 then delete matrix 2 backdrop off sync off:cls rgb(0,0,0) ink rgb(255,255,255),0 print "Current matrix will be lost. Proceed(Y/N)?" getinput: g$=inkey$() if g$="n" or g$="N" then sync on:backdrop on:goto mainloop if g$<>"y" then goto getinput delete matrix 1 for x=1 to finalcount delete object x next x delete object 70000 undim xpos(finalcount):undim zpos(finalcount) undim height#(finalcount):undim objstat(finalcount) undim tile(finalcount):undim heightold#(finalcount) redomatrixname: input "File name to load?";matname$ print "If nothing happens, press enter again." if matname$="exit" then goto startover if file exist(matname$)=0 print "File does not exist: Try again or type exit" sleep 500 goto redomatrixname endif if file exist(matname$)=1 open to read 1,matname$ read long 1,matsizex:read long 1,matsizez read long 1,matsegx:read long 1,matsegz read long 1,finalcount dim height#(finalcount):dim xpos(finalcount):dim zpos(finalcount) dim tile(finalcount):dim heightold#(finalcount) load=1 endif sync on backdrop on goto loaded texture: objnum=1:wc=0 if matrix wireframe state(1)=1 then set matrix wireframe off 1 for z=0 to matsegz for x=0 to matsegx if object visible(objnum)=0 then show object objnum color object objnum,rgb(0,255,0):objstat(objnum)=-1 if xpos(objnum)=matsegx or zpos(objnum)=matsegz then hide object objnum height1=int(get ground height(1,(x*matsegx1)+(matsegx1/2),(z*matsegz1)+(matsegz1/2))) position object objnum,(x*matsegx1)+(matsegx1/2),height1,(z*matsegz1)+(matsegz1/2) inc objnum next x next z for x=1 to finalcount if xpos(x)=matsegx or zpos(x)=matsegz then hide object x next x rval=0 if matrix exist(2)=1 then delete matrix 2:rval=1 hint=36:hintdelay=1000 tile=1 do dec hintdelay if hintdelay<0 then hintdelay=500+hintspeed:inc hint if hint>39 then hint=16 if inkey$()="z" inc hint if hint>39 then hint=16 hintdelay=1500 sleep 200 endif if inkey$()="Z" dec hint if hint<16 then hint=39 hintdelay=1500 sleep 200 endif if inkey$()="v" then inc hintspeed,50 if inkey$()="V" then dec hintspeed,50 if hintspeed<-400 then hintspeed=-400 if mouseclick()=1 and banding=0 if mousex()>699 and mousey()<250 if mousex()<732 and mousey()<30 then tile=1 if mousex()>732 and mousey()<30 then tile=2 if mousex()<732 and mousey()>30 and mousey()<64 then tile=3 if mousex()>732 and mousey()>30 and mousey()<64 then tile=4 if mousex()<732 and mousey()>64 and mousey()<96 then tile=5 if mousex()>732 and mousey()>64 and mousey()<96 then tile=6 if mousex()<732 and mousey()>96 and mousey()<128 then tile=7 if mousex()>732 and mousey()>96 and mousey()<128 then tile=8 if mousex()<732 and mousey()>128 and mousey()<160 then tile=9 if mousex()>732 and mousey()>128 and mousey()<160 then tile=10 for x=1 to finalcount if objstat(x)=1 set matrix tile 1,xpos(x),zpos(x),tile tile(x)=tile endif next x update matrix 1 endif endif if inkey$()="4" for x=1 to finalcount position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1 objstat(x)=-1:color object x,rgb(0,255,0) if object visible(x)=0 then show object x next x hint=1 if rval=1 wc=1 endif return endif base=get ground height(1,0,0):position object 70000,-10,base,-10 mousexnew#=mousexold#-mousex():mouseynew#=mouseyold#-mousey() if upkey()=1 or mouseclick()=2 and mouseynew#>0 pitch camera down 2 endif if downkey()=1 or mouseclick()=2 and mouseynew#<0 pitch camera up 2 endif if leftkey()=1 or mouseclick()=2 and mousexnew#>0 turn camera left 2 endif if rightkey()=1 or mouseclick()=2 and mousexnew#<0 turn camera right 2 endif if mousezold<mousez() or inkey$()="+" move camera 20*size ghty=get ground height(1,camera position x(0),camera position z(0)) ghty1=camera position y()-ghty if ghty1<50 then move camera -20*size endif if mousezold>mousez() or inkey$()="-" move camera -20*size ghty=get ground height(1,camera position x(0),camera position z(0)) ghty1=camera position y()-ghty if ghty1<50 then move camera 20*size endif if banding=1 then goto skiptilt2 if mouseclick()=3 and mousexnew#>0 roll camera left 2 endif if mouseclick()=3 and mousexnew#<0 roll camera right 2 endif skiptilt2: if banding=1 then goto skipfirst2 if mouseclick()=1 mx1=mousex():my1=mousey():banding=1 endif skipfirst2: if banding=1 then mx2=mousex():my2=mousey() if mx1>mx2 and my1<my2 or mx1<mx2 and my1>my2 then banding=0 if banding=1 and mouseclick()=0 if mx1<mx2 for x=1 to finalcount if object visible(x)=1 ox=object screen x(x):oy=object screen y(x) if ox>mx1 and ox<mx2 and oy>my1 and oy<my2 objstat(x)=1:color object x,rgb(255,0,0) endif endif next x endif if mx1>mx2 for x=1 to finalcount if object visible(x)=1 ox=object screen x(x):oy=object screen y(x) if ox<mx1 and ox>mx2 and oy<my1 and oy>my2 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) endif endif next x endif banding=0 endif if banding=1 and mx1<>mx2 and my1<>my2 then goto skipselect22 if mousexnew#=0 and mouseynew#=0 if mouseclick()=1 and mx1=mx2 and banding=1 and mx1=mx2 and my1=my2 for x=1 to finalcount if object visible(x)=1 if object in screen(x)=1 sx=object screen x(x):sy=object screen y(x) if mousex()>sx-5 and mousex()<sx+5 and mousey()>sy-5 and mousey()<sy+5 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) sleep 200 x=finalcount:banding=0 endif endif endif next x sleep 200 endif endif skipselect22: if inkey$()="u" for x=1 to finalcount if object visible(x)=1 if objstat(x)=1 objstat(x)=-1 color object x,rgb(0,255,0) endif endif next x endif if inkey$()="g" ghost=ghost*-1 if ghost=1 ghost matrix on 1 endif if ghost=-1 ghost matrix off 1 endif sleep 200 endif if inkey$()="s" for x=1 to finalcount if object visible(x)=1 then objstat(x)=1:color object x,rgb(255,0,0) next x endif if inkey$()="t" for x=1 to finalcount if object visible(x)=1 objstat(x)=objstat(x)*-1 if objstat(x)=1 then color object x,rgb(255,0,0) if objstat(x)=-1 then color object x,rgb(0,255,0) endif next x sleep 200 endif if inkey$()="h" hide=hide*-1 if hide=1 for x=1 to finalcount if objstat(x)=-1 and xpos(x)<matsegx and zpos(x)<matsegz hide object x endif next x endif if hide=-1 for x=1 to finalcount if objstat(x)=-1 and xpos(x)<matsegx and zpos(x)<matsegz if object visible(x)=0 then show object x endif next x endif sleep 200 endif if inkey$()="o" then o=o*-1:sleep 200 mousexold#=mousex():mouseyold#=mousey():mousezold=mousez() ink RGB(0,255,255),0 set cursor screen width()/2-120,0 print "MATRIX MASTER v1.9 - by Richard Sardini" ink RGB(0,128,255),0 print "X-size=";matsizex;"->Z-size=";matsizez print "X-segment=";matsegx;"->Z-segment=";matsegz set cursor screen width()/2-80,40 print "You are editing matix> ";:ink rgb(255,255,0),0:print matname$ set cursor screen width()/2-80,80:print "You are in Texture mode.":ink rgb(255,255,255),0 print "Mousex->";mousex();" Mousey->";mousey() xl=screen width()/2:yl=screen height()/2 ink RGB(192,192,192),0 line xl,200,xl,screen height()-200 line 250,yl,screen width()-250,yl ink rgb(255,255,255),0 if banding=1 if mx1<mx2 then ink RGB(255,0,128),0 else ink RGB(255,255,0),0 line mx1,my1,mx2,my1:line mx1,my2,mx1,my1 line mx2,my1,mx2,my2:line mx1,my2,mx2,my2 ink rgb(255,255,255),0 endif cnt1=0 print "First 16 markers selected/tile" for x=1 to finalcount if objstat(x)=1 print "X->";xpos(x);" Z->";zpos(x);" Tile->";tile(x) inc cnt1 if cnt1>15 then x=finalcount endif next x if o=-1 then goto skiphints1 inc hintc1,8:if hintc1>255 then hintc1=100 hintcolor=rgb(0,hintc1,0) ink hintcolor,0 text 0,screen height()-75,hint$(hint) skiphints1: set cursor screen width()/5,screen height()-50 ink RGB(236,237,173),0 line mousex()-9,mousey()-9,mousex()+10,mousey()+10 line mousex()-9,mousey()+9,mousex()+10,mousey()-10 ink rgb(255,255,255),0 print "Press: 4-Exit texture mode, Z-Zip to next hint, Shift Z-Zip back one hint." paste image 1,700,0 sync loop remstart This is the code snippet you will need to re-load your matrix into your DB programs open to read 1,<filenamehere> read long 1,matsizex:read long 1,matsizez read long 1,matsegx:read long 1,matsegz read long 1,finalcount dim height#(finalcount):dim xpos(finalcount):dim zpos(finalcount):dim tile(finalcount) for x=1 to finalcount read long 1,xpos(x) read long 1,zpos(x) read float 1,height#(x) read long 1,tile(x) next x close file 1 make matrix 1,matsizex,matsizez,matsegx,matsegz rem insert matrix texure here if tiling, otherwise delete marked line for x=1 to finalcount set matrix height 1,xpos(x),zpos(x),height#(x) if xpos(x)<matsegx and zpos(x)<matsegz `delete this line if not using texture set matrix tile 1,xpos(x),zpos(x),tile(x) `delete this line if not using texture endif `delete this line if not using texture next x update matrix 1 endrem

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: MATRIX MASTER PRO

Rem Created: 5/17/04 4:36:23 PM

Rem ***** Main Source File *****

rem this program written by Richard Sardini Jr

rem my e-mail:noramdia@adelphia.net

rem my phone:814-504-6033

rem check end of program for code snippet to load matrix into your dark basic programs

set display mode 800,600,16

create bitmap 1,65,161

rem texture 1 (green)

ink RGB(128,128,0),0:for x=0 to 31:line x,0,x,32:next x

ink RGB(0,128,0),0:for x=0 to 200:dot rnd(32)-1,rnd(32)-1:next x

ink RGB(255,128,0),0:for x=0 to 50:dot rnd(32)-1,rnd(32)-1:next x

ink RGB(128,128,255),0:for x=0 to 90:dot rnd(32)-1,rnd(32)-1:next x

ink RGB(255,255,255),0:for x=0 to 20:dot rnd(32)-1,rnd(32)-1:next x

rem texture 2 (medium grey)

ink RGB(128,128,128),0:for x=31 to 64:line x,0,x,32:next x

ink RGB(192,192,192),0:for x=0 to 200:dot rnd(32)+33,rnd(32)-1:next x

ink RGB(60,81,66),0:for x=0 to 50:dot rnd(32)+33,rnd(32)-1:next x

ink RGB(48,74,167),0:for x=0 to 90:dot rnd(32)+33,rnd(32)-1:next x

ink RGB(255,255,255),0:for x=0 to 20:dot rnd(32)+33,rnd(32)-1:next x

rem texture 3 (dark grey)

ink RGB(82,82,82),0:for x=0 to 31:line x,32,x,65:next x

ink RGB(0,0,0),0:for x=0 to 200:dot rnd(32)-1,rnd(32)+33:next x

ink RGB(128,128,128),0:for x=0 to 50:dot rnd(32)-1,rnd(32)+33:next x

ink RGB(57,36,159),0:for x=0 to 90:dot rnd(32)-1,rnd(32)+33:next x

ink RGB(192,192,192),0:for x=0 to 20:dot rnd(32)-1,rnd(32)+33:next x

rem texture 4 (light brown)

ink RGB(194,160,114),0:for x=32 to 64:line x,32,x,65:next x

ink RGB(255,209,164),0:for x=0 to 200:dot rnd(32)+33,rnd(32)+33:next x

ink RGB(190,126,126),0:for x=0 to 50:dot rnd(32)+33,rnd(32)+33:next x

ink RGB(255,230,204),0:for x=0 to 90:dot rnd(32)+33,rnd(32)+33:next x

ink RGB(128,64,64),0:for x=0 to 20:dot rnd(32)+33,rnd(32)+33:next x

rem texture 5 (medium brown)

ink RGB(217,108,0),0:for x=0 to 31:line x,65,x,97:next x

ink RGB(128,64,64),0:for x=0 to 200:dot rnd(32)-1,rnd(32)+65:next x

ink RGB(185,92,0),0:for x=0 to 50:dot rnd(32)-1,rnd(32)+65:next x

ink RGB(210,105,0),0:for x=0 to 90:dot rnd(32)-1,rnd(32)+65:next x

ink RGB(255,197,138),0:for x=0 to 20:dot rnd(32)-1,rnd(32)+65:next x

rem texture 6 (Black)

ink RGB(0,0,0),0:for x=32 to 64:line x,65,x,98:next x

rem texture 7 (Blue 1)

ink RGB(0,0,255),0:for x=0 to 31:line x,97,x,130:next x

ink RGB(0,128,255),0:for x=0 to 200:dot rnd(31)-1,rnd(32)+95:next x

ink RGB(0,128,192),0:for x=0 to 50:dot rnd(31)-1,rnd(32)+95:next x

ink RGB(255,255,255),0:for x=0 to 90:dot rnd(31)-1,rnd(32)+95:next x

ink RGB(128,0,255),0:for x=0 to 20:dot rnd(31)-1,rnd(32)+95:next x

rem texture 8 (Lt. Blue)

ink RGB(0,255,255),0:for x=31 to 64:line x,96,x,130:next x

ink RGB(128,255,255),0:for x=0 to 200:dot rnd(32)+33,rnd(31)+96:next x

ink RGB(0,230,230),0:for x=0 to 50:dot rnd(32)+33,rnd(31)+96:next x

ink RGB(151,255,255),0:for x=0 to 90:dot rnd(32)+33,rnd(31)+96:next x

ink RGB(0,206,206),0:for x=0 to 20:dot rnd(32)+33,rnd(31)+96:next x

rem texture 9 (White)

ink rgb(255,255,255),0:for x=0 to 34:line x,127,x,161:next x

ink RGB(218,218,218),0:for x=0 to 200:dot rnd(33)-1,rnd(31)+126:next x

rem texture 10 (orange)

ink RGB(255,128,0),0:for x=33 to 64:line x,128,x,161:next x

ink RGB(255,128,64),0:for x=0 to 200:dot rnd(32)+33,rnd(31)+129:next x

rem get matrix texture

blur bitmap 1,3

get image 1,1,1,64,160

delete bitmap 1

create bitmap 1,50,50

ink RGB(0,0,255),0:for x=0 to 50:line x,0,x,50:next x

ink rgb(0,255,255),0:for x=0 to 200:dot rnd(50),rnd(50):next x

ink RGB(128,255,255),0:for x=0 to 70:dot rnd(50),rnd(50):next x

ink RGB(255,255,255),0:for x=0 to 75:dot rnd(50),25+rnd(10):next x

blur bitmap 1,3

get image 2,0,0,50,50

delete bitmap 1

hint=1:hints=36:hintdelay=750:hintspeed=0

dim hint$(40):hintc1=50:ghost=-1:ghost1=-1

hint$(1)="Press ' w ' to toggle wireframe on and off."

hint$(2)="Press and hold mouse wheel button 3 and move mouse up and down to lower or raise selected markers respectively."

hint$(3)="Or use keyboard less than ' < ' or greater than ' > ' to lower or raise selected markers respectively."

hint$(4)="Press ' L ' to level the matrix back to zero."

hint$(5)="Press Shift and 'L' to level select markers."

hint$(6)="Press ' b ' to set maximum bottom sea depth. Use this to raise sea floor after smoothing lowers it too deep. Shift 5 to undo."

hint$(7)="Press ' m ' to toggle wave flow off and back on."

hint$(8)="Shift ' G ' to toggle ghost water on."

hint$(9)="Press ' d ' to change the direction the waves are facing."

hint$(10)="Press Shift and ' D ' to change the direction the waves are flowing."

hint$(11)="Press ' n ' anytime in elevation mode to start a new matrix."

hint$(12)="Press ' 5 ' to smooth matrix 1 time. Can be undone only 1 time. Thanks to ReD_eYe(and inspired by David89)."

hint$(13)="Press Shift and ' 5 ' to undo smooth matrix once. Do this to save final smoothing for when your whole matrix is done."

hint$(14)="Click on up and down arrows at the top right of the screen to set elevation change rate or wave settings."

hint$(15)="Press ' q ' to raise the water level or ' a ' to lower the water level."

hint$(16)="Press ' s ' to select all visible coordinate markers and ' u ' to un-select all visible markers."

hint$(17)="Press ' v ' to slow down hints and shift + ' v ' to speed up hints."

hint$(18)="Press ' t ' to toggle or invert all visible coordinate markers."

hint$(19)="Press arrow keys to pan your view or press and hold mouse botton 2 and move mouse."

hint$(20)="Press and hold both mouse buttons 1 and 2 and move mouse to rotate camera view."

hint$(21)="Left click and drag mouse-(top left to bottom right)-and red box will appear to select markers in box."

hint$(22)="Left click and drag mouse-(bottom right to top left)-and yellow box will appear to toggle or invert selected markers in box."

hint$(23)="Press ' h ' to hide all unselected markers-this is handy to isolate work areas."

hint$(24)="Press ' h ' again to show all hidden markers. Use this feature to hide and prevent selecting backround markers."

hint$(25)="Green marker=unselected coordinate - Red marker=selected coordinate."

hint$(26)="Press ' + ' or ' - ' to zoom in and out or turn the mouse wheel."

hint$(27)="Set the cross hairs on your destination point and then zoom in."

hint$(28)="Press ' z ' to zip to the next hint."

hint$(29)="Press 'shift' and ' z ' to zip back one hint."

hint$(30)="Left click on marker to toggle coordinate marker selection."

hint$(31)="Press ' g ' to toggle ghost matrix on and off. This helps you see and avoid selecting markers behind hills."

hint$(32)="Press ' o ' to toggle hints off and back on."

hint$(33)="Press ' escape ' key anytime to exit MATRIX MASTER."

hint$(34)="Hiding unnecessary markers increases program funtion and speed."

hint$(35)="To hide more markers, select markers you want to keep in view and press ' h ' or hide twice."

hint$(36)="Press ' i ' to apply an image to your matrix. This is nice to sculp terrain around your landscape drawings.Texture mode is disabled."

hint$(37)="Your mouse functions are all the same as Elevation mode except raise elevation and wireframe."

hint$(38)="Select tile markers and then click on the texture at the top right of the screen that you want to apply."

hint$(39)="I had a hard time with the texture image for the matrix texture. If you can help,fix it and e-mail to:noramdia@adelphia.net."

startover:

set text size 16

set current bitmap 0

load=0:o=1

cls rgb(0,0,0):ink RGB(255,255,0),0

set cursor screen width()/2-24,0

print "MATRIX-MASTER Pro Matrix Editor v1.9"

ink rgb(255,255,255),0

redomatrix:

input "Give your matrix a name and press enter>";matname$:sleep 200

if matname$="" then goto redomatrix

redoinput:

print "Is this matrix name ";:ink rgb(0,255,0),0:print matname$;:ink rgb(255,255,255),0:print " correct?(y/n)>"

redoinkey:

g$=inkey$()

if g$<>"n" and g$<>"y" and g$<>"" then print "Please confirm your matrix name>":sleep 500:goto redoinput

if g$="n" then goto redomatrix

if g$="y" then goto redoxsize

goto redoinkey

print "Matrix name accepted":sleep 1000:cls rgb(0,0,0):ink RGB(255,255,0),0

set cursor screen width()/2-24,0

print "MATRIX-MASTER Pro Matrix Editor v1.9"

ink rgb(255,255,255),0

redoxsize:

input "Input matrix size X and press enter>";matsizex

if matsizex<10 or matsizex>100000 then print "Bad input-try again>":sleep 500:goto redoxsize

matsizex=int(matsizex)

redozsize:

input "Input matrix size Z and press enter>";matsizez

if matsizez<10 or matsizez>100000 then print "Bad input-try again>":sleep 500:goto redozsize

matsizez=int(matsizez)

redoxseg:

input "Input matrix segment X and press enter>";matsegx

if matsegx<2 or matsegx>250 then print "Bad input-try again>":sleep 500:goto redoxseg

matsegx=int(matsegx)

redozseg:

input "Input matrix segment Z and press enter>";matsegz

if matsegz<2 or matsegz>250 then print "Bad input-try again>":sleep 500:goto redozseg

matsegz=int(matsegz)

print "Matrix parameters accepted"

print "Working...";

sleep 500

backdrop on

dim height#((matsegx+1)*(matsegz+1)):dim heightold#((matsegx+1)*(matsegz+1))

dim xpos((matsegx+1)*(matsegz+1)):dim zpos((matsegz+1)*(matsegx+1))

dim tile((matsegx+1)*(matsegz+1)):for x=0 to ((matsegx+1)*(matsegz+1)):tile(x)=1:next x

undo=0:wh=0:wl=0:wv=-1:wm=-1:wd=0:ms=0:wspeed=10:wc=0:numchng=0:numchng1=0

wd2=0

loaded:

if matsizex>500 and matsizez>500 then size=6 else size=2

if matsizex>2000 and matsizez>2000 then size=10

if matsizex>5000 and matsizez>5000 then size=30

if matsizex>8000 and matsizez>8000 then size=40

if matsizex>9999 and matsizez>9999 then size=50

if matsizex>20000 and matsizez>20000 then size=75

if matsizex>50000 and matsizez>50000 then size=100

if matsizex>70000 and matsizez>70000 then size=200

dim objstat((matsegx+1)*(matsegz+1))

matsegx1=matsizex/matsegx:matsegz1=matsizez/matsegz

banding=0:mx1=0:mx2=0:my1=0:my2=0:hide=-1:raiselower#=1

objnum=1

for z=0 to matsegz

for x=0 to matsegx

objstat(objnum)=-1

finalcount=objnum

inc objnum

next x

next z

if finalcount>2500

cls:backdrop off:ink rgb(0,255,0),0

print "!!WARNING!!"

Print "Because of excessive markers, markers will be hidden. Navigate to the area you want"

print "to work with, hit h to show all markers, then select markers in desired work area.  Then hit"

print "h again to hide unselected markers.  Repeat this process when changing work areas."

print "Doing this will speed up the editing process."

print "Press any key to continue..."

wait key

print "Hang on, this could be a minute!!"

sleep 500

backdrop on

ink rgb(255,255,255),0

endif

sync on

autocam off

make matrix 1,matsizex,matsizez,matsegx,matsegz

position matrix 1,0,0,0

prepare matrix texture 1,1,2,5

update matrix 1

make object cube 70000,10:position object 70000,-10,0,-10:color object 70000,RGB(0,255,255)

if load=1

for x=1 to finalcount

read long 1,xpos(x)

read long 1,zpos(x)

read float 1,height#(x)

read long 1,tile(x)

next x

close file 1

endif

load=0

objnum=1

for z=0 to matsegz

for x=0 to matsegx

make object sphere objnum,size:color object objnum,rgb(0,255,0)

position object objnum,x*matsegx1,height#(objnum),z*matsegz1

if finalcount>2500

hide object objnum

endif

set matrix height 1,x,z,height#(objnum)

if x<matsegx and z<matsegz

set matrix tile 1,x,z,tile(objnum)

endif

if load=1 then goto skipassign

xpos(objnum)=x:zpos(objnum)=z

skipassign:

inc objnum

next x

next z

if finalcount>2500 then hide=1

update matrix 1

set camera range 1,1000000

position camera 0,500,0

point camera 200,0,200

mousexold#=mousex():mouseyold#=mousey()

gtx=0

wh=50:wd=1:wm=1

mainloop:

if inkey$()="i"

backdrop off:sync off:cls

redoimagename:

print "Input image name to apply as matrix texture or type exit to abort.>";:input gtx$

if gtx$="exit" then sleep 200:backdrop on:sync on:goto aborttexture

if file exist(gtx$)=0

print "File invalid. Make sure to include the file extension, e.g. .bmp. Try again or type exit.>":sleep 200

goto redoimagename

endif

load image gtx$,10

tile=1:gtx=1

prepare matrix texture 1,10,matsegx,matsegz

for z=matsegz-1 to 0 step -1

for x=0 to matsegx-1

set matrix tile 1,x,z,tile

inc tile

next x

next z

update matrix 1

sync on:backdrop on

sleep 200

endif

aborttexture:

dec hintdelay

if hintdelay<0 then hintdelay=500+hintspeed:inc hint

if hint>hints then hint=1

if inkey$()="v" then inc hintspeed,50

if inkey$()="V" then dec hintspeed,50

if hintspeed<-400 then hintspeed=-400

if inkey$()="z"

inc hint

if hint>hints then hint=1

hintdelay=1500

sleep 200

endif

if inkey$()="Z"

dec hint

if hint<1 then hint=hints

hintdelay=1500

sleep 200

endif

if inkey$()<>"q" then htinc=0

if inkey$()="q"

inc htinc

if htinc>100 then htinc=100

if wv=1

inc wl,1+int(htinc/10)

position matrix 2,0,wl,0

sleep 20

endif

if inkey$()<>"a" then htdec=0

if inkey$()="a"

inc htdec

if htdec>100 then htdec=100

if wv=1

dec wl,1+int(htdec/10)

position matrix 2,0,wl,0

sleep 20

endif

if inkey$()="n"

sync off:backdrop off:set matrix wireframe on 1

set cursor 0,0:cls rgb(0,0,0):ink RGB(255,255,255),0

print "Confirm! Do you want to start a new matrix?(y/n)"

print "You may want to answer no and save this matrix first lest it be lost."

sleep 500

getagain5:

g$=inkey$()

if g$<>"y" and g$<>"n" then goto getagain5

if g$="y"

for x=1 to finalcount:delete object x:next x:delete object 70000

delete matrix 1

undim xpos(finalcount):undim zpos(finalcount)

undim height(finalcount):undim objstat(finalcount)

sleep 200

goto startover

endif

if g$="n"

sync on:backdrop on

endif

sleep 500

set matrix wireframe off 1

endif

if inkey$()="g"

ghost=ghost*-1

if ghost=1

ghost matrix on 1

endif

if ghost=-1

ghost matrix off 1

endif

sleep 200

endif

if inkey$()="G"

ghost1=ghost1*-1

if ghost1=1

if matrix exist(2)=1

ghost matrix on 2

endif

if ghost1=-1

if matrix exist(2)=1

ghost matrix off 2

endif

sleep 200

endif

if inkey$()="L"

for x=1 to finalcount

heightold#(x)=height#(x)

next x:undo=1

for x=1 to finalcount

if objstat(x)=1

height#(x)=0

set matrix height 1,xpos(x),zpos(x),height#(x)

position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1

endif

next x

update matrix 1

sleep 200

endif

if inkey$()="l"

sync off:backdrop off

cls rgb(0,0,0):ink rgb(255,255,255),0

print "Are you sure you want to level your matrix back to zero?(y/n)"

print "If you answer yes, you can press shift and ' 5 ' to undo level."

sleep 200

getagain6:

g$=inkey$()

if g$<>"y" and g$<>"n" then goto getagain6

if g$="y"

for x=1 to finalcount

heightold#(x)=height#(x)

next x:undo=1

for x=1 to finalcount

height#(x)=0

set matrix height 1,xpos(x),zpos(x),height#(x)

position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1

objstat(x)=-1:color object x,rgb(0,255,0)

next x

update matrix 1

endif

sync on:backdrop on

endif

if inkey$()="b"

sync off:backdrop off:cls rgb(0,0,0)

ink rgb(255,255,255),0:print "Please input value you want to set for maximum sea bottom depth(0=abort)?";

getbottom:

input bot

bot=int(bot):if bot=0 then sync on:backdrop on:goto donebot

for x=1 to finalcount

heightold#(x)=height#(x)

next x:undo=1

if bot<0 then bot=bot*-1

for x=1 to finalcount

if height#(x)<0-bot or height#(x)<wl

height#(x)=((bot)*-1)

set matrix height 1,xpos(x),zpos(x),height#(x)

position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1

endif

next x

update matrix 1

sync on:backdrop on

endif

donebot:

rem watermatrix

if inkey$()="6"

wv=wv*-1

if wv=1

if matrix exist(2)=0

make matrix 2,matsizex,matsizez,matsegx,matsegz

prepare matrix texture 2,2,1,1

position matrix 2,0,wl,0

if wh>0

if wd=1

flip=1

for z=0 to matsegz-1 step int(matsegz/10)+1

for x=0 to matsegx-1

if flip=1

set matrix height 2,x,z,int(matsegz/5)+1+wh

endif

if flip=-1

set matrix height 2,x,z,-int(matsegz/5)+1+wh

endif

next x

flip=flip*-1

next z

endif

if wd=2

flip=1

for x=0 to matsegx-1 step int(matsegx/10)+1

for z=0 to matsegz-1

if flip=1

set matrix height 2,x,z,int(matsegz/5)+1+wh

endif

if flip=-1

set matrix height 2,x,z,-int(matsegz/5)+1+wh

endif

next z

flip=flip*-1

next x

endif

for x=1 to matsegx-1

for z=1 to matsegz-1

a=get matrix height(2,x-1,z+1)

b=get matrix height(2,x,z+1)

c=get matrix height(2,x+1,z+1)

d=get matrix height(2,x+1,z)

e=get matrix height(2,x+1,z-1)

f=get matrix height(2,x,z-1)

g=get matrix height(2,x-1,z-1)

h=get matrix height(2,x-1,z)

total=a+b+c+d+e+f+g+h

av#=total/8

set matrix height 2,x,z,av#

next z

next x

for x=0 to matsegx

set matrix height 2,x,0,get matrix height(2,x,1)

next x

for x=0 to matsegx

set matrix height 2,x,tilez,get matrix height(2,x,matsegz-1)

next x

for z=0 to matsegz

set matrix height 2,0,z,get matrix height(2,1,z)

next z

for z=0 to matsegz

set matrix height 2,tilex,z,get matrix height(2,matsegx-1,z)

next z

endif

update matrix 2

if ghost1=1 then ghost matrix on 2

endif

if wv=-1

if matrix exist(2)=1

delete matrix 2

endif

sleep 200

endif

if inkey$()="d"

if wd=1 then wd=2 else wd=1

dc=1

sleep 200

endif

if inkey$()="D"

if wd1=0 then wd1=1 else wd1=0

sleep 200

endif

if inkey$()="m"

wm=wm*-1

sleep 200

endif

inc ms

if ms>wspeed

ms=0

if wm=1

if wv=1

if wd=1

if matrix exist(2)=1

if wd1=0 then shift matrix up 2

if wd1=1 then shift matrix down 2

update matrix 2

endif

if wd=2

if matrix exist(2)=1

if wd1=0 then shift matrix right 2

if wd1=1 then shift matrix left 2

update matrix 2

endif

if whc=1 and mousex()<screen width()-58 or dc=1 or wc=1

if whc=1 then whc=0

if dc=1 then dc=0

if wc=1 then wc=0

if matrix exist(2)=1 then delete matrix 2

make matrix 2,matsizex,matsizez,matsegx,matsegz

prepare matrix texture 2,2,1,1

position matrix 2,0,wl,0

if wd=1

flip=1

for z=0 to matsegz-1 step int(matsegz/10)+1

for x=0 to matsegx-1

if flip=1

set matrix height 2,x,z,int(matsegz/5)+1+wh

endif

if flip=-1

set matrix height 2,x,z,-int(matsegz/5)+1+wh

endif

next x

flip=flip*-1

next z

endif

if wd=2

flip=1

for x=0 to matsegx-1 step int(matsegx/10)+1

for z=0 to matsegz-1

if flip=1

set matrix height 2,x,z,int(matsegz/5)+1+wh

endif

if flip=-1

set matrix height 2,x,z,-int(matsegz/5)+1+wh

endif

next z

flip=flip*-1

next x

endif

rem smooth water

for x=1 to matsegx-1

for z=1 to matsegz-1

a=get matrix height(2,x-1,z+1)

b=get matrix height(2,x,z+1)

c=get matrix height(2,x+1,z+1)

d=get matrix height(2,x+1,z)

e=get matrix height(2,x+1,z-1)

f=get matrix height(2,x,z-1)

g=get matrix height(2,x-1,z-1)

h=get matrix height(2,x-1,z)

total=a+b+c+d+e+f+g+h

av#=total/8

set matrix height 2,x,z,av#

next z

next x

for x=0 to matsegx

set matrix height 2,x,0,get matrix height(2,x,1)

next x

for x=0 to matsegx

set matrix height 2,x,tilez,get matrix height(2,x,matsegz-1)

next x

for z=0 to matsegz

set matrix height 2,0,z,get matrix height(2,1,z)

next z

for z=0 to matsegz

set matrix height 2,tilex,z,get matrix height(2,matsegx-1,z)

next z

update matrix 2

if ghost1=1 then ghost matrix on 2

endif

if inkey$()="1" then goto savematrix

if inkey$()="2" then goto loadmatrix

if gtx=1 then goto skiptexturemode

if inkey$()="3" then gosub texture

skiptexturemode:

base=get ground height(1,0,0):position object 70000,-10,base,-10

mousexnew#=mousexold#-mousex():mouseynew#=mouseyold#-mousey()

if upkey()=1 or mouseclick()=2 and mouseynew#>0

pitch camera down 2

endif

if downkey()=1 or mouseclick()=2 and mouseynew#<0

pitch camera up 2

endif

if leftkey()=1 or mouseclick()=2 and mousexnew#>0

turn camera left 2

endif

if rightkey()=1 or mouseclick()=2 and mousexnew#<0

turn camera right 2

endif

if mousezold<mousez() or inkey$()="+"

move camera 10*size

ghty=get ground height(1,camera position x(),camera position z())

ghty1=camera position y()-ghty

if ghty1<10 then move camera -10*size

endif

if mousezold>mousez() or inkey$()="-"

move camera -10*size

ghty=get ground height(1,camera position x(),camera position z())

ghty1=camera position y()-ghty

if ghty1<10 then move camera 10*size

endif

if banding=1 then goto skiptilt

if mouseclick()=3 and mousexnew#>0

roll camera left 2

endif

if mouseclick()=3 and mousexnew#<0

roll camera right 2

endif

skiptilt:

if banding=1 then goto skipfirst

if mouseclick()=1

mx1=mousex():my1=mousey():banding=1

endif

skipfirst:

if banding=1 then mx2=mousex():my2=mousey()

if mx1>mx2 and my1<my2 or mx1<mx2 and my1>my2 then banding=0

if mousex()>screen width()-58 and mousex()<screen width()-42 and mousey()<250 then banding=0

if banding=1 and mouseclick()=0

if mx1<mx2

for x=1 to finalcount

if object visible(x)=1

ox=object screen x(x):oy=object screen y(x)

if ox>mx1 and ox<mx2 and oy>my1 and oy<my2

objstat(x)=1:color object x,rgb(255,0,0)

endif

next x

endif

if mx1>mx2

for x=1 to finalcount

if object visible(x)=1

ox=object screen x(x):oy=object screen y(x)

if ox<mx1 and ox>mx2 and oy<my1 and oy>my2

objstat(x)=objstat(x)*-1

if objstat(x)=1 then color object x,rgb(255,0,0)

if objstat(x)=-1 then color object x,rgb(0,255,0)

endif

next x

endif

banding=0

endif

if banding=1 and mx1<>mx2 or my1<>my2 then goto skipselect

if mousex()>screen width()-58 and mousex()<screen width()-42 and mousey()<250 then goto skipselect

if mousexnew#=0 and mouseynew#=0

if mouseclick()=1 and mx1=mx2 and banding=1 and mx1=mx2 and my1=my2

for x=1 to finalcount

if object visible(x)=1

if object in screen(x)=1

sx=object screen x(x):sy=object screen y(x)

if mousex()>sx-5 and mousex()<sx+5 and mousey()>sy-5 and mousey()<sy+5

objstat(x)=objstat(x)*-1

if objstat(x)=1 then color object x,rgb(255,0,0)

if objstat(x)=-1 then color object x,rgb(0,255,0)

sleep 200

x=finalcount:banding=0

endif

next x

sleep 200

endif

skipselect:

if banding=1 then goto skipnumchng

if mouseclick()=0 then numchng=0:numchng1=0

if mouseclick()=1

if mousex()>screen width()-58 and mousex()<screen width()-42

inc numchng

if numchng>100 then numchg=100

oset=int(numchng/10)

if numchng=100 then inc numchng1

if numchng1>20 then numchng1=20

if numchng1=20 then oset=oset*10

if mousey()>29 and mousey()<44

inc raiselower#,1+oset

sleep 20

endif

if mousey()>70 and mousey()<85

dec raiselower#,1+oset

if raiselower#<1 then raiselower#=1

sleep 20

endif

if mousey()>100 and mousey()<120

dec wspeed,1+oset

if wspeed<0 then wspeed=0

endif

if mousey()>135 and mousey()<155

inc wspeed,1+oset

endif

if mousey()>180 and mousey()<205

inc wh,1+oset

whc=1

endif

if mousey()>215 and mousey()<235

dec wh,1+oset

if wh<0 then wh=0

whc=1

endif

sleep 50

endif

skipnumchng:

if mouseclick()=4 and mouseynew#>0 or inkey$()="."

for x=1 to finalcount

if objstat(x)=1

gh#=get matrix height(1,xpos(x),zpos(x))

inc height#(x),raiselower#

set matrix height 1,xpos(x),zpos(x),height#(x)

position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1

endif

next x

update matrix 1

endif

if mouseclick()=4 and mouseynew#<0 or inkey$()=","

for x=1 to finalcount

if objstat(x)=1

dec height#(x),raiselower#

set matrix height 1,xpos(x),zpos(x),height#(x)

position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1

endif

next x

update matrix 1

endif

if inkey$()="u"

for x=1 to finalcount

if objstat(x)=1

objstat(x)=-1

color object x,rgb(0,255,0)

endif

next x

endif

if inkey$()="s"

for x=1 to finalcount

if object visible(x)=1 then objstat(x)=1:color object x,rgb(255,0,0)

next x

endif

if inkey$()="t"

for x=1 to finalcount

if object visible(x)=1

objstat(x)=objstat(x)*-1

if objstat(x)=1 then color object x,rgb(255,0,0)

if objstat(x)=-1 then color object x,rgb(0,255,0)

endif

next x

sleep 200

endif

if inkey$()="h"

hide=hide*-1

if hide=1

for x=1 to finalcount

if objstat(x)=-1

hide object x

endif

next x

endif

if hide=-1

for x=1 to finalcount

if objstat(x)=-1

if object visible(x)=0 then show object x

endif

next x

endif

sleep 200

endif

if inkey$()="o" then o=o*-1:sleep 200

if inkey$()="%"

if undo=1

for x=1 to finalcount

height#(x)=heightold#(x)

set matrix height 1,xpos(x),zpos(x),height#(x)

position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1

next x

update matrix 1

undo=0

sleep 200

endif

Rem Smooth matrix

if inkey$()="5"

for x=1 to finalcount

heightold#(x)=height#(x)

next x

undo=1

for x=1 to matsegx-1

for z=1 to matsegz-1

a=get matrix height(1,x-1,z+1)

b=get matrix height(1,x,z+1)

c=get matrix height(1,x+1,z+1)

d=get matrix height(1,x+1,z)

e=get matrix height(1,x+1,z-1)

f=get matrix height(1,x,z-1)

g=get matrix height(1,x-1,z-1)

h=get matrix height(1,x-1,z)

total=a+b+c+d+e+f+g+h

av#=total/8

set matrix height 1,x,z,av#

next z

next x

for x=0 to matsegx

set matrix height 1,x,0,get matrix height(1,x,1)

next x

for x=0 to matsegx

set matrix height 1,x,tilez,get matrix height(1,x,matsegz-1)

next x

for z=0 to matsegz

set matrix height 1,0,z,get matrix height(1,1,z)

next z

for z=0 to matsegz

set matrix height 1,tilex,z,get matrix height(1,matsegx-1,z)

next z

update matrix 1

for x=1 to finalcount

height#(x)=get matrix height(1,xpos(x),zpos(x))

position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1

next x

sleep 500

endif

mousexold#=mousex():mouseyold#=mousey():mousezold=mousez()

if inkey$()="w"

if matrix wireframe state(1)=1 then set matrix wireframe off 1 else set matrix wireframe on 1

sleep 200

endif

ink RGB(0,255,255),0

set cursor 0,0:Print "Matrix properties"

set cursor screen width()/2-124,0

print "MATRIX MASTER Pro v1.9 - by Richard Sardini"

ink RGB(0,128,255),0

print "X-size->";matsizex;"->Z-size->";matsizez

print "X-segment->";matsegx;"->Z-segment->";matsegz

print "Water level->";wl

set cursor screen width()/2-80,40

print "You are editing matix> ";:ink rgb(255,255,0),0:print matname$:ink rgb(255,255,255),0

set cursor screen width()/2-80,80:print "You are in Elevation mode.":ink rgb(255,255,255),0

print "Mousex->";mousex();"   Mousey->";mousey()

xl=screen width()/2:yl=screen height()/2

ink RGB(192,192,192),0

line xl,200,xl,screen height()-200

line 250,yl,screen width()-250,yl

ink rgb(255,255,255),0

if banding=1

if mx1<mx2 then ink RGB(255,0,128),0 else ink RGB(255,255,0),0

line mx1,my1,mx2,my1:line mx1,my2,mx1,my1

line mx2,my1,mx2,my2:line mx1,my2,mx2,my2

ink rgb(255,255,255),0

endif

cnt1=0

print "First 16 markers selected/height"

for x=1 to finalcount

if objstat(x)=1

print "X->";xpos(x);"  Z->";zpos(x);"  Height->";height#(x)

inc cnt1

if cnt1>15 then x=finalcount

endif

next x

if o=-1 then goto skiphints

inc hintc1,8:if hintc1>255 then hintc1=100

hintcolor=rgb(0,hintc1,0)

ink hintcolor,0

text 0,screen height()-75,hint$(hint)

skiphints:

set cursor screen width()/5,screen height()-50

ink rgb(255,255,255),0

print "Press: 1-Save, 2-Load, 3-Enter texture mode, Z-Zip to next hint, Shift Z-Zip back one hint."

set cursor screen width()/5,screen height()-25

print "Press: 5-Smooth matrix one time, Shif 5-undo last smoothing, 6-Toggle water on and back off"

set cursor screen width()-160,50

print "Elevation change->";raiselower#

ink rgb(255,0,0),0

line screen width()-54,44,screen width()-46,44

line screen width()-54,44,screen width()-50,34

line screen width()-46,44,screen width()-50,34

line screen width()-54,70,screen width()-46,70

line screen width()-54,70,screen width()-50,80

line screen width()-46,70,screen width()-50,80

ink rgb(255,255,255),0

if wv=1

set cursor screen width()-140,120

print "Wave speed->";wspeed

set cursor screen width()-150,200

print "Wave height->";wh

ink rgb(255,0,0),0

line screen width()-54,114,screen width()-46,114

line screen width()-54,114,screen width()-50,104

line screen width()-46,114,screen width()-50,104

line screen width()-54,140,screen width()-46,140

line screen width()-54,140,screen width()-50,150

line screen width()-46,140,screen width()-50,150

line screen width()-54,194,screen width()-46,194

line screen width()-54,194,screen width()-50,184

line screen width()-46,194,screen width()-50,184

line screen width()-54,220,screen width()-46,220

line screen width()-54,220,screen width()-50,230

line screen width()-46,220,screen width()-50,230

endif

ink RGB(236,237,173),0

line mousex()-9,mousey()-9,mousex()+10,mousey()+10

line mousex()-9,mousey()+9,mousex()+10,mousey()-10

ink rgb(255,255,255),0

sync

loop

savematrix:

backdrop off

sync off:cls rgb(0,0,0)

ink rgb(255,255,255),0

savematrix1:

if file exist(matname$)=1

sleep 500

print "File already exist - Would you like to overwrite this file or rename your matrix?"

print "Press 2 to overwrite or 3 to rename this matrix"

getagain:

g$=inkey$()

if g$<>"2" and g$<>"3" then sleep 200:goto getagain

if g$="3"

sleep 200

print "What is the new file name?";:input matname$

sleep 200

goto savematrix1

endif

if g$="2" then delete file matname$:sleep 200

endif

open to write 1,matname$

write long 1,matsizex:write long 1,matsizez:write long 1,matsegx:write long 1,matsegz

write long 1,finalcount

for x=1 to finalcount

write long 1,xpos(x)

write long 1,zpos(x)

write float 1,height#(x)

write long 1,tile(x)

next x

close file 1

print "File saved as:";:ink rgb(0,255,0),0:print matname$;:ink rgb(255,255,255),0:print ", Press any key to return to editor"

sleep 500

wait key

sleep 200

sync on

backdrop on

goto mainloop

loadmatrix:

if matrix exist(2)=1 then delete matrix 2

backdrop off

sync off:cls rgb(0,0,0)

ink rgb(255,255,255),0

print "Current matrix will be lost.  Proceed(Y/N)?"

getinput:

g$=inkey$()

if g$="n" or g$="N" then sync on:backdrop on:goto mainloop

if g$<>"y" then goto getinput

delete matrix 1

for x=1 to finalcount

delete object x

next x

delete object 70000

undim xpos(finalcount):undim zpos(finalcount)

undim height#(finalcount):undim objstat(finalcount)

undim tile(finalcount):undim heightold#(finalcount)

redomatrixname:

input "File name to load?";matname$

print "If nothing happens, press enter again."

if matname$="exit" then goto startover

if file exist(matname$)=0

print "File does not exist: Try again or type exit"

sleep 500

goto redomatrixname

endif

if file exist(matname$)=1

open to read 1,matname$

read long 1,matsizex:read long 1,matsizez

read long 1,matsegx:read long 1,matsegz

read long 1,finalcount

dim height#(finalcount):dim xpos(finalcount):dim zpos(finalcount)

dim tile(finalcount):dim heightold#(finalcount)

load=1

endif

sync on

backdrop on

goto loaded

texture:

objnum=1:wc=0

if matrix wireframe state(1)=1 then set matrix wireframe off 1

for z=0 to matsegz

for x=0 to matsegx

if object visible(objnum)=0 then show object objnum

color object objnum,rgb(0,255,0):objstat(objnum)=-1

if xpos(objnum)=matsegx or zpos(objnum)=matsegz then hide object objnum

height1=int(get ground height(1,(x*matsegx1)+(matsegx1/2),(z*matsegz1)+(matsegz1/2)))

position object objnum,(x*matsegx1)+(matsegx1/2),height1,(z*matsegz1)+(matsegz1/2)

inc objnum

next x

next z

for x=1 to finalcount

if xpos(x)=matsegx or zpos(x)=matsegz then hide object x

next x

rval=0

if matrix exist(2)=1 then delete matrix 2:rval=1

hint=36:hintdelay=1000

tile=1

dec hintdelay

if hintdelay<0 then hintdelay=500+hintspeed:inc hint

if hint>39 then hint=16

if inkey$()="z"

inc hint

if hint>39 then hint=16

hintdelay=1500

sleep 200

endif

if inkey$()="Z"

dec hint

if hint<16 then hint=39

hintdelay=1500

sleep 200

endif

if inkey$()="v" then inc hintspeed,50

if inkey$()="V" then dec hintspeed,50

if hintspeed<-400 then hintspeed=-400

if mouseclick()=1 and banding=0

if mousex()>699 and mousey()<250

if mousex()<732 and mousey()<30 then tile=1

if mousex()>732 and mousey()<30 then tile=2

if mousex()<732 and mousey()>30 and mousey()<64 then tile=3

if mousex()>732 and mousey()>30 and mousey()<64 then tile=4

if mousex()<732 and mousey()>64 and mousey()<96 then tile=5

if mousex()>732 and mousey()>64 and mousey()<96 then tile=6

if mousex()<732 and mousey()>96 and mousey()<128 then tile=7

if mousex()>732 and mousey()>96 and mousey()<128 then tile=8

if mousex()<732 and mousey()>128 and mousey()<160 then tile=9

if mousex()>732 and mousey()>128 and mousey()<160 then tile=10

for x=1 to finalcount

if objstat(x)=1

set matrix tile 1,xpos(x),zpos(x),tile

tile(x)=tile

endif

next x

update matrix 1

endif

if inkey$()="4"

for x=1 to finalcount

position object x,xpos(x)*matsegx1,height#(x),zpos(x)*matsegz1

objstat(x)=-1:color object x,rgb(0,255,0)

if object visible(x)=0 then show object x

next x

hint=1

if rval=1

wc=1

endif

return

endif

base=get ground height(1,0,0):position object 70000,-10,base,-10

mousexnew#=mousexold#-mousex():mouseynew#=mouseyold#-mousey()

if upkey()=1 or mouseclick()=2 and mouseynew#>0

pitch camera down 2

endif

if downkey()=1 or mouseclick()=2 and mouseynew#<0

pitch camera up 2

endif

if leftkey()=1 or mouseclick()=2 and mousexnew#>0

turn camera left 2

endif

if rightkey()=1 or mouseclick()=2 and mousexnew#<0

turn camera right 2

endif

if mousezold<mousez() or inkey$()="+"

move camera 20*size

ghty=get ground height(1,camera position x(0),camera position z(0))

ghty1=camera position y()-ghty

if ghty1<50 then move camera -20*size

endif

if mousezold>mousez() or inkey$()="-"

move camera -20*size

ghty=get ground height(1,camera position x(0),camera position z(0))

ghty1=camera position y()-ghty

if ghty1<50 then move camera 20*size

endif

if banding=1 then goto skiptilt2

if mouseclick()=3 and mousexnew#>0

roll camera left 2

endif

if mouseclick()=3 and mousexnew#<0

roll camera right 2

endif

skiptilt2:

if banding=1 then goto skipfirst2

if mouseclick()=1

mx1=mousex():my1=mousey():banding=1

endif

skipfirst2:

if banding=1 then mx2=mousex():my2=mousey()

if mx1>mx2 and my1<my2 or mx1<mx2 and my1>my2 then banding=0

if banding=1 and mouseclick()=0

if mx1<mx2

for x=1 to finalcount

if object visible(x)=1

ox=object screen x(x):oy=object screen y(x)

if ox>mx1 and ox<mx2 and oy>my1 and oy<my2

objstat(x)=1:color object x,rgb(255,0,0)

endif

next x

endif

if mx1>mx2

for x=1 to finalcount

if object visible(x)=1

ox=object screen x(x):oy=object screen y(x)

if ox<mx1 and ox>mx2 and oy<my1 and oy>my2

objstat(x)=objstat(x)*-1

if objstat(x)=1 then color object x,rgb(255,0,0)

if objstat(x)=-1 then color object x,rgb(0,255,0)

endif

next x

endif

banding=0

endif

if banding=1 and mx1<>mx2 and my1<>my2 then goto skipselect22

if mousexnew#=0 and mouseynew#=0

if mouseclick()=1 and mx1=mx2 and banding=1 and mx1=mx2 and my1=my2

for x=1 to finalcount

if object visible(x)=1

if object in screen(x)=1

sx=object screen x(x):sy=object screen y(x)

if mousex()>sx-5 and mousex()<sx+5 and mousey()>sy-5 and mousey()<sy+5

objstat(x)=objstat(x)*-1

if objstat(x)=1 then color object x,rgb(255,0,0)

if objstat(x)=-1 then color object x,rgb(0,255,0)

sleep 200

x=finalcount:banding=0

endif

next x

sleep 200

endif

skipselect22:

if inkey$()="u"

for x=1 to finalcount

if object visible(x)=1

if objstat(x)=1

objstat(x)=-1

color object x,rgb(0,255,0)

endif

next x

endif

if inkey$()="g"

ghost=ghost*-1

if ghost=1

ghost matrix on 1

endif

if ghost=-1

ghost matrix off 1

endif

sleep 200

endif

if inkey$()="s"

for x=1 to finalcount

if object visible(x)=1 then objstat(x)=1:color object x,rgb(255,0,0)

next x

endif

if inkey$()="t"

for x=1 to finalcount

if object visible(x)=1

objstat(x)=objstat(x)*-1

if objstat(x)=1 then color object x,rgb(255,0,0)

if objstat(x)=-1 then color object x,rgb(0,255,0)

endif

next x

sleep 200

endif

if inkey$()="h"

hide=hide*-1

if hide=1

for x=1 to finalcount

if objstat(x)=-1 and xpos(x)<matsegx and zpos(x)<matsegz

hide object x

endif

next x

endif

if hide=-1

for x=1 to finalcount

if objstat(x)=-1 and xpos(x)<matsegx and zpos(x)<matsegz

if object visible(x)=0 then show object x

endif

next x

endif

sleep 200

endif

if inkey$()="o" then o=o*-1:sleep 200

mousexold#=mousex():mouseyold#=mousey():mousezold=mousez()

ink RGB(0,255,255),0

set cursor screen width()/2-120,0

print "MATRIX MASTER v1.9 - by Richard Sardini"

ink RGB(0,128,255),0

print "X-size=";matsizex;"->Z-size=";matsizez

print "X-segment=";matsegx;"->Z-segment=";matsegz

set cursor screen width()/2-80,40

print "You are editing matix> ";:ink rgb(255,255,0),0:print matname$

set cursor screen width()/2-80,80:print "You are in Texture mode.":ink rgb(255,255,255),0

print "Mousex->";mousex();"   Mousey->";mousey()

xl=screen width()/2:yl=screen height()/2

ink RGB(192,192,192),0

line xl,200,xl,screen height()-200

line 250,yl,screen width()-250,yl

ink rgb(255,255,255),0

if banding=1

if mx1<mx2 then ink RGB(255,0,128),0 else ink RGB(255,255,0),0

line mx1,my1,mx2,my1:line mx1,my2,mx1,my1

line mx2,my1,mx2,my2:line mx1,my2,mx2,my2

ink rgb(255,255,255),0

endif

cnt1=0

print "First 16 markers selected/tile"

for x=1 to finalcount

if objstat(x)=1

print "X->";xpos(x);"  Z->";zpos(x);"  Tile->";tile(x)

inc cnt1

if cnt1>15 then x=finalcount

endif

next x

if o=-1 then goto skiphints1

inc hintc1,8:if hintc1>255 then hintc1=100

hintcolor=rgb(0,hintc1,0)

ink hintcolor,0

text 0,screen height()-75,hint$(hint)

skiphints1:

set cursor screen width()/5,screen height()-50

ink RGB(236,237,173),0

line mousex()-9,mousey()-9,mousex()+10,mousey()+10

line mousex()-9,mousey()+9,mousex()+10,mousey()-10

ink rgb(255,255,255),0

print "Press: 4-Exit texture mode, Z-Zip to next hint, Shift Z-Zip back one hint."

paste image 1,700,0

sync

loop

remstart

This is the code snippet you will need to re-load your matrix into your DB programs

open to read 1,<filenamehere>

read long 1,matsizex:read long 1,matsizez

read long 1,matsegx:read long 1,matsegz

read long 1,finalcount

dim height#(finalcount):dim xpos(finalcount):dim zpos(finalcount):dim tile(finalcount)

for x=1 to finalcount

read long 1,xpos(x)

read long 1,zpos(x)

read float 1,height#(x)

read long 1,tile(x)

next x

close file 1

make matrix 1,matsizex,matsizez,matsegx,matsegz

rem insert matrix texure here if tiling, otherwise delete marked line

for x=1 to finalcount

set matrix height 1,xpos(x),zpos(x),height#(x)

if xpos(x)<matsegx and zpos(x)<matsegz `delete this line if not using texture

set matrix tile 1,xpos(x),zpos(x),tile(x) `delete this line if not using texture

endif                                        `delete this line if not using texture

CodeBase - 02_matrix

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Anonymous Coder
CodeBase Entries:	11