CodeBase - 4 matrix with water effect

Information

Uploaded: 10th Oct 2003 09:15

Modified: 1st Jan 1970 01:00

Author:  draicker2003

Summary

rem upper section before do loop rem create 4 matrix with water effect dim x4mat#(4,3) x4mat#(1,1)=0 x4mat#(1,2)=0 x4mat#(1,3)=0 x4mat#(2,1)=0 x4mat#(2,2)=0 x4mat#(2,3)=9999 x4mat#(3,1)=9999 x4mat#(3,2)=0 x4mat#(3,3)=0 x4mat#(4,1)=9999 x4mat#(4,2)=0 x4mat#(4,3)=9999 rem create matrix and load image load image "water.bmp",1 for x = 1 to 4 make matrix x,10000,10000,20,20 position matrix x,x4mat#(x,1),x4mat#(x,2),x4mat#(x,3) prepare matrix texture x,1,1,1 fill matrix x,0,1 ghost matrix on x randomize matrix x,25 update matrix x next x undim x4mat#(4,3) rem in do loop for x = 1 to 4 randomize matrix x,25 update matrix x next x

Full Description

rem upper section before do loop<br /> rem create 4 matrix with water effect<br /> dim x4mat#(4,3)<br /> x4mat#(1,1)=0<br /> x4mat#(1,2)=0<br /> x4mat#(1,3)=0<br /> x4mat#(2,1)=0<br /> x4mat#(2,2)=0<br /> x4mat#(2,3)=9999<br /> x4mat#(3,1)=9999<br /> x4mat#(3,2)=0<br /> x4mat#(3,3)=0<br /> x4mat#(4,1)=9999<br /> x4mat#(4,2)=0<br /> x4mat#(4,3)=9999<br /> <br /> rem create matrix and load image<br /> load image &quot;water.bmp&quot;,1<br /> for x = 1 to 4<br /> make matrix x,10000,10000,20,20<br /> position matrix x,x4mat#(x,1),x4mat#(x,2),x4mat#(x,3)<br /> prepare matrix texture x,1,1,1<br /> fill matrix x,0,1<br /> ghost matrix on x<br /> randomize matrix x,25<br /> update matrix x<br /> next x<br /> undim x4mat#(4,3)<br /> <br /> <br /> <br /> rem in do loop<br /> for x = 1 to 4<br /> randomize matrix x,25<br /> update matrix x<br /> next x