Posted by Lance 24.4.252.137 using Mozilla/4.5 [en]C-AtHome0405 (Win95; U) on March 18, 2000 at 10:17:41:
Alright...here is the source code for my rain program. You should copy and paste it into the program editor.
One thing though.
This is the code for when it was inteneded as a multitask program..which is now unfeasable. You *will* have to play around with the code to make it work in a cutscene.
#Include ("system.prg")
#ColorRGB (0,0,100)
#done$==N
#If (done$==N)
{
:UPRain
#Random (1000, rainx!)
#Random (500, rainy!)
#endx!==rainx!+100
#endy!==rainy!+100
#Random (50, thunder!)
#DrawLine (rainx!, rainy!, endx!, endy!)
#If (thunder!==1)
{
#Wav ("thunder.wav")
#Delay (1)
#Return
}
#If (done$==N)
{
#Branch (:UPRain)
}
Also you will need to make a thunder.wav =)
...April 10th...
-Later o_0
-Lance