Posted by Triuken 206.173.27.191 using Mozilla/4.51 [en] (Win98; I) on March 25, 2000 at 18:49:22:
In Reply to: Rain.prg....... posted by Lance on March 18, 2000 at 10:17:41:
and u tweaked mine a bit..
i went thru the old board and this is it.. (NEEDS to be played around with, like Lance did.. ;) )
#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)
}
: 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
: