I remember i had also released a rain program before you had.. seems the same except for the color..


[ Follow Ups ] [ Post Followup ] [ Awesome Software Online Message Board ] [ FAQ ]

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
:




Follow Ups:



Post a Followup

Name:
E-Mail:

Subject:

Comments:

Optional Link URL:
Link Title:
Optional Image URL:


[ Follow Ups ] [ Post Followup ] [ Awesome Software Online Message Board ] [ FAQ ]