【编程游戏】贺岁放礼花。（第一名奖励10000可用分）

王集鹄 2008-12-24 05:09:53

加精

【编程游戏】贺岁放礼花。（第一名奖励10000可用分）（续1）
【编程游戏】贺岁放礼花。（第一名奖励10000可用分）
博客

（实时更新）
【编程游戏】贺岁放礼花。（点燃续帖2-142楼sharp_ice的焰火） [img=http://community.csdn.net/ui/styles/default/images/new28.gif" alt="" />
【编程游戏】贺岁放礼花。（点燃续帖2-141楼sharp_ice的焰火）

【编程游戏】贺岁放礼花。（点燃续帖2-133楼langtse的焰火）（修改自169楼Free_Wind22）

【编程游戏】贺岁放礼花。（点燃续帖2-132楼dh20156的焰火）

【编程游戏】贺岁放礼花。（点燃续帖2-123楼dh20156的焰火）

...全文

6938 215 打赏收藏转发到动态举报

写回复

用AI写文章

215 条回复

切换为时间正序

请发表友善的回复…

发表回复

qiubi 2008-12-28

打赏
举报

mark

netehoney 2008-12-28

打赏
举报

呵呵~好的。

ACMAIN_CHM 2008-12-28

打赏
举报

up..

jetmc 2008-12-28

打赏
举报

mark!

Delta 2008-12-28

打赏
举报

我也看看，真的很好啊

pgdoryoku 2008-12-28

打赏
举报

mark

cwblaze 2008-12-28

打赏
举报

关注

wsxqwps 2008-12-28

打赏
举报

DDDDDDDDDDDDDD

jrl5365 2008-12-28

打赏
举报

也留一个脚印先

Atai-Lu 2008-12-28

打赏
举报

占位，空的时候写写看...
不过动画效果没搞过不知道能否搞出来

shenshaobo_0 2008-12-28

打赏
举报

78楼的效果比较不错。。。

suwanjun881011 2008-12-28

打赏
举报

强，学习！

KiteGirl 2008-12-28

打赏
举报

第二种效果：模仿复合效果的烟花……



<html>

  <head>

    <title>

    </title>

  </head>

  <body bgcolor="#000000" text="#FFFFFF">

    

    <p id="idInsertObject"></p>

    <p id="idText2"></p>

    

  </body>

  <script languate="VBScript" type="text/VBScript">

       

    Dim pubOrbits_X(255, 255)

    Dim pubOrbits_Y(255, 255)

    Dim pubSpanObjects(255)

    Dim pubColors(255, 255)

    Dim pubStepOn

    Dim pubWorkOn

    Dim pubX

    Dim pubY

    Dim pubScale

    Dim pubTime



    CreateObjects

    CreateColors

    CreateOrbits pubOrbits_X, pubOrbits_Y

    ViewObjects 1, 255, 255, 255

    NewSkyrocket

    ShowSkyrocket



    Sub NewSkyrocket()

      pubX=Int(Rnd * 640)

      pubY=Int(Rnd * 480)

      pubScale = Rnd * 2 + 2

      pubStepOn = 12

      'CreateColors

      pubTime = window.setTimeout("ShowSkyrocket", 1)          

    End Sub

        

    Sub ShowSkyrocket()

      

      If pubWorkOn>=100 And pubWorkOn<=224 Then

        If pubStepOn > 1 Then pubStepOn = pubStepOn - 1

      End if 



      If pubWorkOn>=225 And pubWorkOn<=255 Then pubStepOn = 1

      

      If pubWorkOn < 256 Then

          pubWorkOn = pubWorkOn + pubStepOn

          ViewObjects pubScale, pubWorkOn, pubX, pubY 

          pubTime = window.setTimeout("ShowSkyrocket", 1)          

        Else

          pubWorkOn = 0

          ViewObjects pubScale, pubWorkOn, pubX, pubY

          NewSkyrocket 

      End If

      

    End Sub

    

    Sub ViewObjects(pScale, pIndex, pX, pY)

      For tIndex = 0 To 255

        If pIndex < 256 Then

        With pubSpanObjects(tIndex).style

          .color =pubColors(tIndex, pIndex)   ' rgb(pIndex, pIndex, pIndex)

          .top = pubOrbits_Y(tIndex, pIndex) * pScale + pY

          .left = pubOrbits_X(tIndex, pIndex) * pScale + pX

        End With

        End If

      Next

    End Sub



    Sub CreateObjects()



      For tIndex = 0 To 255

        Set pubSpanObjects(tIndex) = document.createElement("SPAN")

        With pubSpanObjects(tIndex)

          .innerText = "*"

        End With

        With pubSpanObjects(tIndex).style

          .position = "absolute"

          .left="0px"

          .top="0px"

          .color = Rgb(0, 0, 0)

        End With

        idInsertObject.insertAdjacentElement "beForeEnd", pubSpanObjects(tIndex)

      Next

    End Sub



    Sub CreateColors()

      Dim tColor(2)

      'tColorR = Int(Rnd*3)



      For tColorIndex = 0 To 255

        tColor(0) = Rnd

        tColor(1) = Rnd

        tColor(2) = Rnd        

        tColor(Int(Rnd*3)) = 1

        tLightLen = Int(rnd*50)+50

        'tColor(tColorR)=0

        For tLightIndex = 0 To 99

          pubColors(tColorIndex, tLightIndex)=rgb(0, (tLightIndex*128)/100, (tLightIndex*255)/100)

        Next   

        For tLightIndex = 100 To 199

          pubColors(tColorIndex, tLightIndex)=0

        Next   

        For tLightIndex = 100 To 100 + tLightLen

          pubColors(tColorIndex, tLightIndex)=rgb((tColor(0)*(tLightIndex-100)*255)\tLightLen, (tColor(1)*(tLightIndex-100)*255)\tLightLen, (tColor(2)*(tLightIndex-100)*255)\tLightLen)

        Next   

        For tLightIndex = 200 To 224

          pubColors(tColorIndex, tLightIndex)=rgb(0, (tLightIndex-200)*64\24, (tLightIndex-200)*128\24)

        Next   

        For tLightIndex = 225 To 255

          If Int(Rnd*3)=0 Then

              pubColors(tColorIndex, tLightIndex)=rgb(255, 255, 255)

            Else

              pubColors(tColorIndex, tLightIndex)=0

          End If

        Next

      Next

    End Sub



    Sub CreateOrbits(pOrbits_X(), pOrbits_Y())

      For tOrbitsIndex = 0 To 255

        tAxis_R = Int(Rnd * 50) + 50

        tAxis_XY = Int(Rnd * 360)

        tAxis_YZ = Int(Rnd * 360)

        tAxis_ZX = Int(Rnd * 360)

        GetOrbits tAxis_XY, tAxis_YZ, tAxis_ZX, tAxis_R, tOrbits_X, tOrbits_Y

        For tLightIndex = 0 To 255

          pOrbits_X(tOrbitsIndex, tLightIndex) = tOrbits_X * tLightIndex / 255

          pOrbits_Y(tOrbitsIndex, tLightIndex) = tOrbits_Y * tLightIndex / 255

        Next

      Next

    End Sub

  

    Sub GetOrbits(pAxis_XY, pAxis_YZ, pAxis_ZX, pAxis_R, pOrbits_X, pOrbits_Y)

      tAxis_XY =RadianGetByAngle(pAxis_XY)

      tAxis_YZ =RadianGetByAngle(pAxis_YZ)

      tAxis_ZX =RadianGetByAngle(pAxis_ZX)

      pOrbits_X = pAxis_R * Cos(tAxis_XY) * Cos(tAxis_ZX)

      pOrbits_Y = pAxis_R * Sin(tAxis_XY) * Sin(tAxis_YZ)      

    End Sub

    

    Function RadianGetByAngle(pAngle)

      RadianGetByAngle =pAngle * 3.1415926 / 180

    End Function

  </script>

</html>

王集鹄 2008-12-28

打赏
举报

小仙妹的vbscript我已经翻译了，不过javascript处理数组的速度比vbscript慢很多。。。

楼层太高，打开太慢，此贴锁定。

欢迎到续帖参与：
【编程游戏】贺岁放礼花。（第一名奖励10000可用分）（续1）

KiteGirl 2008-12-28

打赏
举报

哈哈！我的！！没办法，我只会VBScript，凑个热闹……



<html>

  <head>

    <title>

    </title>

  </head>

  <body bgcolor="#000000" text="#FFFFFF">

    

    <p id="idInsertObject"></p>

    <p id="idText2"></p>

    

  </body>

  <script languate="VBScript" type="text/VBScript">

       

    Dim pubOrbits_X(255, 255)

    Dim pubOrbits_Y(255, 255)

    Dim pubSpanObjects(255)

    Dim pubColors(255, 255)

    Dim pubStepOn

    Dim pubWorkOn

    Dim pubX

    Dim pubY

    Dim pubScale

    Dim pubTime



    CreateObjects

    CreateColors

    CreateOrbits pubOrbits_X, pubOrbits_Y

    ViewObjects 1, 255, 255, 255

    NewSkyrocket

    ShowSkyrocket

        

    Sub ShowSkyrocket()

      If pubStepOn > 1 Then pubStepOn=pubStepOn - 1

      'pubStepOn = pubStepOn / 1.2 + 1

      'pubY = pubY + (24-pubStepOn)

      

      If pubWorkOn < 256 Then 

          pubWorkOn = pubWorkOn + pubStepOn

          ViewObjects pubScale, pubWorkOn, pubX, pubY 

          pubTime = window.setTimeout("ShowSkyrocket", 1)          

        Else

          pubWorkOn = 0

          ViewObjects pubScale, pubWorkOn, pubX, pubY

          NewSkyrocket 

      End If

      

      'idText2.innerText= pubStepOn & " " & pubScale & " " & pubIndex & " " & pubX & " " & pubY

    End Sub

    

    Sub NewSkyrocket()

      pubX=Int(Rnd * 640)

      pubY=Int(Rnd * 480)

      pubScale = Rnd * 2 + 2

      pubStepOn = 22

      'CreateColors

      pubTime = window.setTimeout("ShowSkyrocket", 1)          

    End Sub



    Sub ViewObjects(pScale, pIndex, pX, pY)

      For tIndex = 0 To 255

        If pIndex < 256 Then

        With pubSpanObjects(tIndex).style

          .color =pubColors(tIndex, pIndex)   ' rgb(pIndex, pIndex, pIndex)

          .top = pubOrbits_Y(tIndex, pIndex) * pScale + pY

          .left = pubOrbits_X(tIndex, pIndex) * pScale + pX

        End With

        End If

      Next

    End Sub



    Sub CreateObjects()

      For tIndex = 0 To 255

        Set pubSpanObjects(tIndex) = document.createElement("SPAN")

        With pubSpanObjects(tIndex)

          .innerText = "*"

        End With

        With pubSpanObjects(tIndex).style

          .position = "absolute"

          .left="0px"

          .top="0px"

          .color = Rgb(0, 0, 0)

        End With

        idInsertObject.insertAdjacentElement "beForeEnd", pubSpanObjects(tIndex)

      Next

    End Sub



    Sub CreateColors()

      Dim tColor(2)

      'tColorR = Int(Rnd*3)

      For tColorIndex = 0 To 255

        tColor(0) = Rnd

        tColor(1) = Rnd

        tColor(2) = Rnd        

        tColor(Int(Rnd*3)) = 1

        tLightLen = Int(rnd*50)+206

        'tColor(tColorR)=0

        For tLightIndex = 0 To 255

          pubColors(tColorIndex, tLightIndex)=0

        Next   

        For tLightIndex = 0 To tLightLen

          pubColors(tColorIndex, tLightIndex)=rgb(tColor(0)*tLightIndex, tColor(1)*tLightIndex, tColor(2)*tLightIndex)

        Next   

      Next

    End Sub



    Sub CreateOrbits(pOrbits_X(), pOrbits_Y())

      For tOrbitsIndex = 0 To 255

        tAxis_R = Int(Rnd * 50) + 50

        tAxis_XY = Int(Rnd * 360)

        tAxis_YZ = Int(Rnd * 360)

        tAxis_ZX = Int(Rnd * 360)

        GetOrbits tAxis_XY, tAxis_YZ, tAxis_ZX, tAxis_R, tOrbits_X, tOrbits_Y

        For tLightIndex = 0 To 255

          pOrbits_X(tOrbitsIndex, tLightIndex) = tOrbits_X * tLightIndex / 255

          pOrbits_Y(tOrbitsIndex, tLightIndex) = tOrbits_Y * tLightIndex / 255

        Next

      Next

    End Sub

  

    Sub GetOrbits(pAxis_XY, pAxis_YZ, pAxis_ZX, pAxis_R, pOrbits_X, pOrbits_Y)

      tAxis_XY =RadianGetByAngle(pAxis_XY)

      tAxis_YZ =RadianGetByAngle(pAxis_YZ)

      tAxis_ZX =RadianGetByAngle(pAxis_ZX)

      pOrbits_X = pAxis_R * Cos(tAxis_XY) * Cos(tAxis_ZX)

      pOrbits_Y = pAxis_R * Sin(tAxis_XY) * Sin(tAxis_YZ)      

    End Sub

    

    Function RadianGetByAngle(pAngle)

      RadianGetByAngle =pAngle * 3.1415926 / 180

    End Function

  </script>

</html>