4 matrix with water effect by draicker200310th Oct 2003 9:15
|
|---|
|
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# Description rem upper section before do loop Code ` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com
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
|