Uncle Sam's -=PATRIOTIC PARTICLES=-

Author

Message

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 29th Jun 2006 02:28 Edited at: 29th Jun 2006 02:30

Link

Ok Chris, that must be why I saw someone who made a new contact. I blocked it because I thought it was just some spammer. Sorry.

You're going to have to send me a request to be a contact again.

Benny I'm glad you like it. And you're right. You request the position (without an emmiter, don't even know why they were invented

), and then when it's finished with that request, it hits the road!

Xo TwOfAcE oX, thanks.

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

Storm 6000

20

Years of Service

User Offline

Joined: 10th Oct 2004

Location:

Posted: 30th Jun 2006 01:45

Link

thats awesum im just to clarrify cus i havent had much time to loo properly yet this is just a dbp function we can you thta you have written to generate these effects?

Thanks
Adam

Back to top

Profile PM Email

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 30th Jun 2006 04:57

Link

Yes, it is just a function for each effect.

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

Grandma

18

Years of Service

User Offline

Joined: 26th Dec 2005

Location: Norway, Guiding the New World Order

Posted: 1st Jul 2006 17:41 Edited at: 1st Jul 2006 17:42

Link

Hey Uncle Sam, i can't get it to work. I'm trying to create rain and have used the editor to make a decent rain effect and exported it, put the exported code

+ Code Snippet

TurnPrecipitationOn(-250,-250,-200,200,200,100,0.1,1,0,0,2,1,90,0,50,1)

in my level loading code. I get error "Array does not exist or array subscript out of bounds on line 4746". That's this code: StormOn(0)=1 on the first line after the funtion starts.

I have put

+ Code Snippet

rem load effects
gosub LoadEffects

before the main loop and

+ Code Snippet

rem handle dirt smoke
gosub HandleDirtSmoke

rem handle dirt clods
gosub HandleDirtClods

rem handle sparks
gosub HandleSparks

in the loop and all the functions required outside the loop (ofcourse). So what to do?

"Stupid World of Warcraft.
I have no money, I have no skills. All of the hot hot elvin women are dancing with the big warrior guys. It's college all over again."

Back to top

Profile PM Email

Chris Franklin

19

Years of Service

User Offline

Joined: 2nd Aug 2005

Location: UK

Posted: 2nd Jul 2006 17:55

Link

Quote: "Ok Chris, that must be why I saw someone who made a new contact. I blocked it because I thought it was just some spammer. Sorry. You're going to have to send me a request to be a contact again. "

Er i can't

go to Options > Privacy then there's a blocked list go down to where ever i am and press the button inbetween the allow and block list that says allow

Stunt man 2 http://forum.thegamecreators.com/?m=forum_view&t=79827&b=8&p=0
WHITEKNUCKLE IS BACK! Check the wip boards for more info

Back to top

Profile PM Website

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 3rd Jul 2006 04:53

Link

Ok Chris, thanks.

Grandma, did you include the LoadEffects subroutine after the function code?

rem load effects
LoadEffects:
   rem load smoke
       dim CurrentDSmoke(0)
            dim DSmokeImageMode(501)
            dim Dsmoking(501):dim Dsmokescale(501):dim Dsmokesize(501):dim Dsmokefade(501):dim Dsmokefadespeed(501):dim Dsmokescalerate(501):dim Dsmokeliftrate#(501):dim Dsmokepositionx#(501):dim Dsmokepositiony#(501):dim Dsmokepositionz#(501)
            CurrentDSmoke(0)=1
            for t=1 to 500
                Dsmokefade(t)=100
            next t
            dim DSmokeWindDirection#(0)
            dim DSmokeWindSpeed#(0)
      load image "dust.png",500
      make object plain 30000,50,50
      texture object 30000,500
      set object collision off 30000
      set object ambient 30000,0
      hide object 30000
      for t=30001 to 30500
         clone object t,30000
         hide object t
      next t
   rem load dirt clods
            dim CurrentDClod(0):dim Dcloding(501):dim Dclodsize(501):dim DclodGravity#(501):dim DclodGravityrate#(501):dim Dclodlife(501):dim Dclodradius#(501):dim Dcloddirection(501):dim Dclodliftrate#(501):dim Dclodpositionx#(501):dim Dclodpositiony#(501):dim Dclodpositionz#(501)
            dim DclodImageMode(501)
            CurrentDClod(0)=1
      load image "dirt.png",501
      make object plain 30501,10,10
      texture object 30501,501
      set object collision off 30501
      set object ambient 30501,0
      hide object 30501
      for t=30502 to 31000
         clone object t,30501
         hide object t
      next t
   rem load sparks
       dim CurrentSpark(0):dim Sparking(501):dim Sparkscale(501):dim Sparksize(501):dim SparkGravity#(501):dim SparkGravityrate#(501):dim Sparkscalerate(501):dim Sparkradius#(501):dim Sparkdirection(501):dim Sparkliftrate#(501):dim Sparkfaderate(501):dim Sparkfade(501):dim Sparkpositionx#(501):dim Sparkpositiony#(501):dim Sparkpositionz#(501)
       dim SparkImageMode(501)
       CurrentSpark(0)=1
       for t=1 to 501
           Sparkscale(t)=100
       next t
      load image "spark.png",502
      make object plain 31001,1,1
      texture object 31001,502
      set object ambient 31001,0
      set object collision off 31001
      hide object 31001
      for t=31002 to 31500
         instance object t,31001
         hide object t
      next t
      for t=0 to 502
         RequestSpark(1,1,1,1,1,1,1,1,1,1)
      next t
   rem load snow
       dim Snowing(501):dim SnowGravity#(0):dim SnowWindSpeed#(501):dim SnowMatrixorAT(0):dim SnowRadius#(0):dim SnowDensity(0):dim SnowSpinSpeed#(0):dim SnowDesSpin(501)::dim Snowpositionx#(501):dim Snowpositiony#(501):dim Snowpositionz#(501)
       dim SnowImageMode(501)
       dim SnowStormLocx1#(0):dim SnowStormLocy#(0):dim SnowStormLocz1#(0)
       dim SnowStormLocx2#(0):dim SnowStormLocz2#(0)
       dim SnowGroundNum(0)
       dim SnowWindDirection#(0)
       dim SnowWindVariant#(0)
       dim StormOn(0)

load image "snowflake.bmp",503
      make object plain 31501,1,1
      texture object 31501,503
      set object ambient 31501,0
      set object collision off 31501
      hide object 31501
      for t=31502 to 32000
         instance object t,31501
         hide object t
      next t
return

+ Code Snippet

rem load effects
LoadEffects:
   rem load smoke
       dim CurrentDSmoke(0)
            dim DSmokeImageMode(501)
            dim Dsmoking(501):dim Dsmokescale(501):dim Dsmokesize(501):dim Dsmokefade(501):dim Dsmokefadespeed(501):dim Dsmokescalerate(501):dim Dsmokeliftrate#(501):dim Dsmokepositionx#(501):dim Dsmokepositiony#(501):dim Dsmokepositionz#(501)
            CurrentDSmoke(0)=1
            for t=1 to 500
                Dsmokefade(t)=100
            next t
            dim DSmokeWindDirection#(0)
            dim DSmokeWindSpeed#(0)
      load image "dust.png",500
      make object plain 30000,50,50
      texture object 30000,500
      set object collision off 30000
      set object ambient 30000,0
      hide object 30000
      for t=30001 to 30500
         clone object t,30000
         hide object t
      next t
   rem load dirt clods
            dim CurrentDClod(0):dim Dcloding(501):dim Dclodsize(501):dim DclodGravity#(501):dim DclodGravityrate#(501):dim Dclodlife(501):dim Dclodradius#(501):dim Dcloddirection(501):dim Dclodliftrate#(501):dim Dclodpositionx#(501):dim Dclodpositiony#(501):dim Dclodpositionz#(501)
            dim DclodImageMode(501)
            CurrentDClod(0)=1
      load image "dirt.png",501
      make object plain 30501,10,10
      texture object 30501,501
      set object collision off 30501
      set object ambient 30501,0
      hide object 30501
      for t=30502 to 31000
         clone object t,30501
         hide object t
      next t
   rem load sparks
       dim CurrentSpark(0):dim Sparking(501):dim Sparkscale(501):dim Sparksize(501):dim SparkGravity#(501):dim SparkGravityrate#(501):dim Sparkscalerate(501):dim Sparkradius#(501):dim Sparkdirection(501):dim Sparkliftrate#(501):dim Sparkfaderate(501):dim Sparkfade(501):dim Sparkpositionx#(501):dim Sparkpositiony#(501):dim Sparkpositionz#(501)
       dim SparkImageMode(501)
       CurrentSpark(0)=1
       for t=1 to 501
           Sparkscale(t)=100
       next t
      load image "spark.png",502
      make object plain 31001,1,1
      texture object 31001,502
      set object ambient 31001,0
      set object collision off 31001
      hide object 31001
      for t=31002 to 31500
         instance object t,31001
         hide object t
      next t
      for t=0 to 502
         RequestSpark(1,1,1,1,1,1,1,1,1,1)
      next t
   rem load snow
       dim Snowing(501):dim SnowGravity#(0):dim SnowWindSpeed#(501):dim SnowMatrixorAT(0):dim SnowRadius#(0):dim SnowDensity(0):dim SnowSpinSpeed#(0):dim SnowDesSpin(501)::dim Snowpositionx#(501):dim Snowpositiony#(501):dim Snowpositionz#(501)
       dim SnowImageMode(501)
       dim SnowStormLocx1#(0):dim SnowStormLocy#(0):dim SnowStormLocz1#(0)
       dim SnowStormLocx2#(0):dim SnowStormLocz2#(0)
       dim SnowGroundNum(0)
       dim SnowWindDirection#(0)
       dim SnowWindVariant#(0)
       dim StormOn(0)

      load image "snowflake.bmp",503
      make object plain 31501,1,1
      texture object 31501,503
      set object ambient 31501,0
      set object collision off 31501
      hide object 31501
      for t=31502 to 32000
         instance object t,31501
         hide object t
      next t
return

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

Grandma

18

Years of Service

User Offline

Joined: 26th Dec 2005

Location: Norway, Guiding the New World Order

Posted: 3rd Jul 2006 17:20 Edited at: 3rd Jul 2006 17:32

Link

Ok works now, but only 50%. The rain starts, but only for like a second then it's gone. Like it doesn't produce a new 'batch' so to speak.

btw, im using newton and regular objects as level not matrix or advanced terrain.

"Stupid World of Warcraft.
I have no money, I have no skills. All of the hot hot elvin women are dancing with the big warrior guys. It's college all over again."

Back to top

Profile PM Email

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 4th Jul 2006 08:22 Edited at: 4th Jul 2006 08:28

Link

Ohhh....hmmm, make a matrix under the world....or...I'll fix it actually.

The rain is stopping because you have no terrain for it to hit to reset. I'll fix it.

EDIT:

Ok, replace the HandlePrecipitation subroutine with this code:

rem handle precipitation
HandlePrecipitation:
   for CSmoke=31501 to 32000
      arraycount=CSmoke-31500
      if Snowing(arraycount)=1
         snowspeed#=Snowradius#(0)
         Snowpositiony#(arraycount)=Snowpositiony#(arraycount)-Snowgravity#(0)
         Snowpositionx#(arraycount)=newxvalue(Snowpositionx#(arraycount),SnowWindDirection#(0),SnowWindSpeed#(0)+rnd(SnowWindVariant#(0)))
         Snowpositionz#(arraycount)=newzvalue(Snowpositionz#(arraycount),SnowWindDirection#(0),SnowWindSpeed#(0)+rnd(SnowWindVariant#(0)))
         position object CSmoke,Snowpositionx#(arraycount),Snowpositiony#(arraycount),Snowpositionz#(arraycount)
         select SnowSpinSpeed#(0)
            case 0
               point object CSmoke,camera position x(),camera position y(),camera position z()
            endcase
         endselect
         select SnowdesSpin(arraycount)
            case 0
               xrotate object CSmoke,wrapvalue(object angle x(CSmoke)+SnowSpinSpeed#(0))
               yrotate object CSmoke,wrapvalue(object angle y(CSmoke)+SnowSpinSpeed#(0))
            endcase
            case 1
               xrotate object CSmoke,wrapvalue(object angle x(CSmoke)-SnowSpinSpeed#(0))
            endcase
            case 2
               yrotate object CSmoke,wrapvalue(object angle y(CSmoke)+SnowSpinSpeed#(0))
            endcase
            case 3
               yrotate object CSmoke,wrapvalue(object angle y(CSmoke)-SnowSpinSpeed#(0))
               xrotate object CSmoke,wrapvalue(object angle x(CSmoke)+SnowSpinSpeed#(0))
            endcase
         endselect
         if Snowpositionx#(arraycount)<SnowStormLocx1#(0) or Snowpositionx#(arraycount)>SnowStormLocx2#(0) or Snowpositionz#(arraycount)<SnowStormLocz1#(0) or Snowpositionz#(arraycount)>SnowStormLocz2#(0)
            Snowing(arraycount)=0
            position object CSmoke,0,0,0
            hide object CSmoke
         endif
         if SnowMatrixorAT(0)=1
            if Snowpositiony#(arraycount)<=get ground height(SnowGroundNum(0),Snowpositionx#(arraycount),Snowpositionz#(arraycount))
               Snowpositiony#(arraycount)=get ground height(SnowGroundNum(0),Snowpositionx#(arraycount),Snowpositionz#(arraycount))
               Snowing(arraycount)=0
               position object CSmoke,0,0,0
               hide object CSmoke
            endif
         endif
         if SnowMatrixorAT(0)=2
            if Snowpositiony#(arraycount)<=get terrain ground height(SnowGroundNum(0),Snowpositionx#(arraycount),Snowpositionz#(arraycount))
               Snowpositiony#(arraycount)=get terrain ground height(SnowGroundNum(0),Snowpositionx#(arraycount),Snowpositionz#(arraycount))
               Snowing(arraycount)=0
               position object CSmoke,0,0,0
               hide object CSmoke
            endif
         endif
         if SnowMatrixorAT(0)=3
            if Snowpositiony#(arraycount)<=0
               Snowing(arraycount)=0
               position object CSmoke,0,0,0
               hide object CSmoke
            endif
         endif
      else
         if StormOn(0)=1
            if rnd(500)<=SnowDensity(0)
               Snowpositionx#(arraycount)=SnowStormLocx1#(0)+rnd(SnowStormLocx2#(0)-SnowStormLocx1#(0))
               Snowpositiony#(arraycount)=SnowStormLocy#(0)
               Snowpositionz#(arraycount)=SnowStormLocz1#(0)+rnd(SnowStormLocz2#(0)-SnowStormLocz1#(0))
               Snowing(arraycount)=1
               show object CSmoke
            endif
         endif
      endif
   next CSmoke
return

+ Code Snippet

rem handle precipitation
HandlePrecipitation:
   for CSmoke=31501 to 32000
      arraycount=CSmoke-31500
      if Snowing(arraycount)=1
         snowspeed#=Snowradius#(0)
         Snowpositiony#(arraycount)=Snowpositiony#(arraycount)-Snowgravity#(0)
         Snowpositionx#(arraycount)=newxvalue(Snowpositionx#(arraycount),SnowWindDirection#(0),SnowWindSpeed#(0)+rnd(SnowWindVariant#(0)))
         Snowpositionz#(arraycount)=newzvalue(Snowpositionz#(arraycount),SnowWindDirection#(0),SnowWindSpeed#(0)+rnd(SnowWindVariant#(0)))
         position object CSmoke,Snowpositionx#(arraycount),Snowpositiony#(arraycount),Snowpositionz#(arraycount)
         select SnowSpinSpeed#(0)
            case 0
               point object CSmoke,camera position x(),camera position y(),camera position z()
            endcase
         endselect
         select SnowdesSpin(arraycount)
            case 0
               xrotate object CSmoke,wrapvalue(object angle x(CSmoke)+SnowSpinSpeed#(0))
               yrotate object CSmoke,wrapvalue(object angle y(CSmoke)+SnowSpinSpeed#(0))
            endcase
            case 1
               xrotate object CSmoke,wrapvalue(object angle x(CSmoke)-SnowSpinSpeed#(0))
            endcase
            case 2
               yrotate object CSmoke,wrapvalue(object angle y(CSmoke)+SnowSpinSpeed#(0))
            endcase
            case 3
               yrotate object CSmoke,wrapvalue(object angle y(CSmoke)-SnowSpinSpeed#(0))
               xrotate object CSmoke,wrapvalue(object angle x(CSmoke)+SnowSpinSpeed#(0))
            endcase
         endselect
         if Snowpositionx#(arraycount)<SnowStormLocx1#(0) or Snowpositionx#(arraycount)>SnowStormLocx2#(0) or Snowpositionz#(arraycount)<SnowStormLocz1#(0) or Snowpositionz#(arraycount)>SnowStormLocz2#(0)
            Snowing(arraycount)=0
            position object CSmoke,0,0,0
            hide object CSmoke
         endif
         if SnowMatrixorAT(0)=1
            if Snowpositiony#(arraycount)<=get ground height(SnowGroundNum(0),Snowpositionx#(arraycount),Snowpositionz#(arraycount))
               Snowpositiony#(arraycount)=get ground height(SnowGroundNum(0),Snowpositionx#(arraycount),Snowpositionz#(arraycount))
               Snowing(arraycount)=0
               position object CSmoke,0,0,0
               hide object CSmoke
            endif
         endif
         if SnowMatrixorAT(0)=2
            if Snowpositiony#(arraycount)<=get terrain ground height(SnowGroundNum(0),Snowpositionx#(arraycount),Snowpositionz#(arraycount))
               Snowpositiony#(arraycount)=get terrain ground height(SnowGroundNum(0),Snowpositionx#(arraycount),Snowpositionz#(arraycount))
               Snowing(arraycount)=0
               position object CSmoke,0,0,0
               hide object CSmoke
            endif
         endif
         if SnowMatrixorAT(0)=3
            if Snowpositiony#(arraycount)<=0
               Snowing(arraycount)=0
               position object CSmoke,0,0,0
               hide object CSmoke
            endif
         endif
      else
         if StormOn(0)=1
            if rnd(500)<=SnowDensity(0)
               Snowpositionx#(arraycount)=SnowStormLocx1#(0)+rnd(SnowStormLocx2#(0)-SnowStormLocx1#(0))
               Snowpositiony#(arraycount)=SnowStormLocy#(0)
               Snowpositionz#(arraycount)=SnowStormLocz1#(0)+rnd(SnowStormLocz2#(0)-SnowStormLocz1#(0))
               Snowing(arraycount)=1
               show object CSmoke
            endif
         endif
      endif
   next CSmoke
return

For the matrix or advanced terrain parameter, type a 3, and the rain will reset when it reaches y-position 0.

Hope it works!

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

Grandma

18

Years of Service

User Offline

Joined: 26th Dec 2005

Location: Norway, Guiding the New World Order

Posted: 4th Jul 2006 12:27

Link

Thanks!

It works like a charm

Now to continue my blockbuster.

"Stupid World of Warcraft.
I have no money, I have no skills. All of the hot hot elvin women are dancing with the big warrior guys. It's college all over again."

Back to top

Profile PM Email

Captain America

19

Years of Service

User Offline

Joined: 8th Apr 2005

Location: Here

Posted: 27th Jul 2006 00:28

Link

Wow this is Amazing!!!

It looks good, and it doesnt bog down your computer like other ones do!

Thanks!

Cap'n

Cheers,
Capt. America

Back to top

Profile PM Email Website

Xarshi

18

Years of Service

User Offline

Joined: 25th Dec 2005

Location: Ohio

Posted: 27th Jul 2006 02:35

Link

holy crap,did you make that captain america!?

Fear the dwemer pokeballs. Fear them!

Back to top

Profile PM Email

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 27th Jul 2006 02:59

Link

Thanks.

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

Agent Dink

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location:

Posted: 6th Aug 2006 04:00

Link

Captain America and Uncle Sam... Both users of Patriotic Particles

...kind of funny

I'm working on a high res photorealistic texture pack. High res as in 7 megapixels, e-mail me with suggestions.

Back to top

Profile PM

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 6th Aug 2006 05:51

Link

Heh.

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

ThomasFN

20

Years of Service

User Offline

Joined: 26th Aug 2004

Location:

Posted: 18th Aug 2006 23:27

Link

urm... how do i get hold of it?

this may solve my particle perils...

http://www12.asphost4free.com/FortFN/Index.asp

Back to top

Profile PM Email Website

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 19th Aug 2006 20:15

Link

Hold of what?

Go to the first page.

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

Eternal Payn

18

Years of Service

User Offline

Joined: 20th Aug 2006

Location:

Posted: 24th Aug 2006 07:51

Link

Hey... I know you from the GMC, don't I?

It looks outstanding. I am currently on a guest user, so I can't download, but I will as soon as I can.

Back to top

Profile PM

ichaelm

18

Years of Service

User Offline

Joined: 23rd Aug 2006

Location:

Posted: 27th Aug 2006 17:34

Link

Looks great! However, I'm making a space-flight simulator. Can this be used in a zero gravity environment?

Back to top

Profile PM

Sorry your browser is not supported!

Program Announcements / Uncle Sam's -=PATRIOTIC PARTICLES=-