154 123456
发新话题
打印

[分享] 纯代码的火的效果

纯代码的火的效果

希望需要的朋友拿去用.
顺便也希望拿走代码的朋友能顶起来.
不要只拿代码不回帖.到时候有人需要了就找不到了.
好东西大家要分享嘛.不要让它沉下去
顺便也给我写代码的人一点动力.
复制内容到剪贴板
代码:
/*--------------------------------------------------------------
      支持原创 ANT制作
--------------------------------------------------------------*/
/*--------------------------背景-------------------------------*/
var mcs:MovieClip = createEmptyMovieClip("query", -1);
with (mcs) {
beginFill(0x000000,100);
lineStyle(0,0x000000,0);
moveTo(0,0);
lineTo(Stage.width,0);
lineTo(Stage.width,Stage.height);
lineTo(0,Stage.height);
lineTo(0,0);
endFill();
}
/*--------------------------制作影片剪辑实例-------------------------------*/
import flash.geom.*;
var McR:Number = 40;
var McA:Number = 60;
var CreaMovie:MovieClip = this.createEmptyMovieClip("CreaMc", 0);
with (CreaMovie) {
fillType = "radial";
colors = [0xFFFF00, 0xFFFF00];
alphas = [McA, 0];
ratios = [0, 0xFF];
matrix = new Matrix();
matrix.createGradientBox(McR,McR,0,0,0);
beginGradientFill(fillType,colors,alphas,ratios,matrix);
moveTo(0,0);
lineTo(0,McR);
lineTo(McR,McR);
lineTo(McR,0);
lineTo(0,0);
endFill();
}
CreaMovie._visible = false;
/*--------------------------火效果-------------------------------*/
var McNum:Number = 1;
var McMore:Number = 200;
var McRandom:Number = 6;
var McY:Number = 4;
var Mc_x:Number = Stage.width/2;
var Mc_y:Number = Stage.height/2+Stage.height/4;
var Mc_more:Number = 100;
var Mc_scal:Number = 50;
flame = function(){;
var scale:Number=random(Mc_scal)+1;
var flames:MovieClip=CreaMovie.duplicateMovieClip("flames"+McNum,McNum,{_x:Mc_x,_y:Mc_y,_alpha:Mc_more/2,_xscale:scale,_yscale:scale});
flames.blendMode = "add";
flames.fast=Math.floor(scale/10);
flames.action=(random(2)==1)?1:-1;
flames.scal=10-flames.fast;
flames.n=flames.s=1;
flames._r = flames._g = 255;
  flames._b =0;
flames.gs=(10-flames.scal+2)*3;
flames.onEnterFrame=function(){
  this._x+=this.fast*this.action*this.n*this.s;
  this._y-=McY;
  this._xscale+=this.scal*this.n*this.s;
  this._yscale+=this.scal*this.n*this.s;
  this._alpha+=10*this.n*this.s;
  this._g-=this.gs;
  if(this._g<=0){
   this._g=0;
  }
  new Color(this).setRGB(this._r << 16 | this._g << 8 | this._b);
  if(this._xscale>=Mc_more){;
   this.n=-1;
   this.s=0.2;
  };
  if(this._alpha>=Mc_more){;
   this._alpha=Mc_more;
  }else if(this._alpha<=random(20)){;
   this.removeMovieClip();
   delete this.onEnterFrame();
  };
};
if(McNum>=McMore){;
  McNum=0;
};
McNum++;
};
setInterval(flame,10);
[ 本帖最后由 lvan 于 2007-10-5 02:32 编辑 ]

附件

燃烧的火.swf (1.05 KB)

2007-10-5 02:31, 下载次数: 1085

看看效果吧

TOP

唉~
一转眼6个人看过了.
可惜没有一个回的.
唉~
自己坐沙发吧.
只好叹气了...没啥好说了..

TOP

不错,支持下~
寻觅终生伴侣!

my blog

TOP

不错不错!学习学习。
向大家学习!

TOP

挺好看的,欣赏你的水平,ant 好样的。
不过你不用担心,因为以前是有很多闪吧的朋友互相交流的。现在好久没来了,可能大家忙吧

TOP

虽然还没拿来用,不过顶顶先

TOP

谢谢朋友们.
真的.
我不是在邀功.想让大家怎么支持我.
只是昨天挺伤心的.昨天发了以后刷新页面有6个人登陆.
半个小时19个人查看.
但是大家都好象只喜欢看帖不会.
对用不上的朋友我没什么要求.
那些用的上的朋友就帮忙顶一下也不是坏事啊.
其实只要简短的顶一下就能让发布者更有动力制作下一个效果.并且发布.
这样大家都好嘛.
呵呵.谢谢大家.

TOP

我也来安慰一下楼主
佛拉稀 http://space.flash8.net/space/?609943

TOP

支持

TOP

写的很不错,只是奇怪为什么我回复了,还说我是游客呢!我是注册了的啊

TOP

不错!顶一下!

TOP

这火真的很有现实的效果!
不要在意多少人回贴,可能大家看过了觉得好就收藏了,现在没功夫研究,就不定以后会再看的吧!
看版主都说好了,你要有信心继续做下去啊!
但得柔情消侠气,此生长愿伴妆台

TOP

学习中

TOP

顶一下

TOP

不错 不错  顶一下了
FLASH Everyday

TOP

不错 不错  顶一下了
FLASH Everyday

TOP

嘎嘎.谢谢朋友们对我的支持.
昨天研究了一下光体的略过效果.
不过有点不如意.
但是不知道家里网络什么时候开始上不去.
到做的时候如果上不去就不能跟大家分享了.
所以今天特意给大家发代码和效果.
希望这里的朋友们对它进行更完善的修改.
也希望大家能多不自己的作品和思想带到论坛.
复制内容到剪贴板
代码:
/*--------------------------------------------------------------
      支持原创 ANT制作
--------------------------------------------------------------*/
/*--------------------------背景-------------------------------*/
var mcs:MovieClip = createEmptyMovieClip("query", -1);
with (mcs) {
beginFill(0x000000,100);
lineStyle(0,0x000000,0);
moveTo(0,0);
lineTo(Stage.width,0);
lineTo(Stage.width,Stage.height);
lineTo(0,Stage.height);
lineTo(0,0);
endFill();
}
import flash.geom.*;
var McK:Number = 20;
var McA:Number = 60;
var McB:Number=10;
var McS:Number = scale=10;
var McR:Number = 100;
var McRw:Number=0.4;
var times:Number=Rh=McRh=McNum=1;
var Rw:Number=-1;
var CreaMovie:MovieClip = this.createEmptyMovieClip("CreaMc", 0);
with (CreaMovie) {
fillType = "radial";
colors = [0xFFFFFF, 0xAA22AA];
alphas = [McA, 0];
ratios = [20, 0xFF];
matrix = new Matrix();
matrix.createGradientBox(McK,McK,0,0,0);
beginGradientFill(fillType,colors,alphas,ratios,matrix);
moveTo(0,0);
lineTo(0,McR);
lineTo(McK,McK);
lineTo(McK,0);
lineTo(0,0);
endFill();
}
CreaMovie._visible=false;
function timer() {
McS += .03;
McRw += .002*Rw;
McRh += .001*Rh;
if(McRw>=0.6|| McRw<=0.3){
  Rw*=-1;
}
if(McRh>=1.3 || McRh<=1){
  Rh*=-1;
}
if (McS>=360) {
  McS = 1;
}
var flames:MovieClip=CreaMovie.duplicateMovieClip("flames"+McNum,McNum,{_x:Stage.width/2+McR*McRw*Math.cos(McS),_y:Stage.height/2+McR*McRh*Math.sin(McS),_alpha:scale,_xscale:scale,_yscale:scale});
flames.blendMode = "add";
flames.rot=1;
flames.onEnterFrame=function(){
  if(this._alpha>=100){
   this._xscale=100;
   this._yscale=100;
   this._alpha=100;
   this.rot=-1;
  }else if(this._alpha<=0){
   this.removeMovieClip();
   delete this.onEnterFrame;
  }
  this._x-=.3*this.rot;
  this._y-=.3*this.rot;
  this._xscale+=3*this.rot;
  this._yscale+=3*this.rot;
  this._alpha+=3*this.rot;
}
McNum++;
updateAfterEvent();
};
setInterval(timer,times);
[ 本帖最后由 lvan 于 2007-10-6 20:52 编辑 ]

附件

旋转.swf (1023 Bytes)

2007-10-6 20:52, 下载次数: 197

TOP

我对楼主的仰慕犹如滔滔江水。。。。。
http://imfool.cn/im.html
帮忙点击一下: http://www.589108.com/zr?id=1164

TOP

我对楼主的仰慕犹如滔滔江水。。。。。
http://imfool.cn/im.html
帮忙点击一下: http://www.589108.com/zr?id=1164

TOP

真棒,下载下来,慢慢学

TOP

俺是新手,不懂,以后再学这些

TOP

真的很不错,我得好好学习一下。

TOP

支持一下,挺棒的!已然收藏了

TOP

不错不错,支持下!
唯FLASH群:5630049,研究AS3,FLEX,FLASH3D效果,FMS

TOP

不错 不错  顶一下了

TOP

好看

好看

TOP

支持下........

TOP

顶啊!!!!!!

TOP

不错,
不过代码的就是很耗资源

TOP

支持

很不错,学习了

TOP

 154 123456
发新话题