Download in vbforum

I use to browse through this forum and stumbled upon lots of downloads in here, eg, games, demos. but i have to browse through the old posts in order to find a file

if u think your work is worth while,
why don't u post ur link in here and let us enjoy ur game
please insert your link in this thread so we all can enjoy your creation without having to browse through tons of posts

Btw, l love Planet War created by Gaming_World. visit his post
at http://www.vbforums.com/showthread.p...hreadid=107238

good luck, game devper
;)

Someone surely has not yet seen my Batman Return programs :)

Click here

Im sorry I cant find the link to the 1st of these two "just-open-a-new-project-and-paste-the-code-then-run" -programs :(

So ill code here again *smile*:

Code:

---

'Welcome back, Batman!
    Private Declare Function GetTickCount Lib "kernel32" () As Long

    Dim Active As Boolean, X2 As Long, Y2 As Long
   
Private Sub Form_Load()
    With Me
        .BackColor = 0
        .ScaleMode = 3
        .Show
    End With
   
    Active = True
    Draw
End Sub

Public Sub DrawLine(iX As Long, iY As Long, iSize As Long, iColorMul As Long, iMaxAngle As Long, iStartAngle As Long)
    Dim Temp As Single, Color As Long, Angle As Long
    Dim NewX As Long, NewY As Long, NewSize As Single
   
    If iSize < 10 Then: Exit Sub
   
    Angle = (iMaxAngle * Rnd)
    Temp = (6.283 / 360 * (iStartAngle + Angle))
    NewX = iX + Sin(Temp) * iSize: NewY = iY + Cos(Temp) * iSize
   
    Color = (iSize * iColorMul)
    If Color > 255 Then: Color = 255
    Me.Line (iX, iY)-(NewX, NewY), RGB(Color / 2, Color / 128, Color)
   
    NewSize = (8 * Rnd) / 10 + 1
    DrawLine NewX, NewY, (iSize / NewSize), iColorMul, iMaxAngle / 1.8, iStartAngle + (Angle / 2)
    DrawLine NewX, NewY, (iSize / NewSize), iColorMul, iMaxAngle / 1.8, iStartAngle + (Angle / 2)
End Sub

Public Sub Draw()
    Dim A As Long, Temp As Long
    Dim Text As String, Angle As Single, Pos As Single
   
    Text = UCase("Batman's return  "): Angle = 6.28 / Len(Text)

    Randomize
    While Active
        If Temp + 100 < GetTickCount Then
            Temp = GetTickCount
           
            With Me
                .Cls
                For A = 0 To 10: DrawLine X2, Y2, 20 * Rnd + 15, 4 * Rnd + 4, 360, 360 * Rnd: Next
                For A = 1 To Len(Text)
                    .ForeColor = RGB(128 * Sin(-A * Angle + Pos) + 128, 0, 255 * Sin(-A * Angle + Pos) + 255)
                    .CurrentX = X2 + Sin(Angle * -A + Pos) * 100: .CurrentY = Y2 + Cos(Angle * -A + Pos) * 100
                    .Print Mid(Text, A, 1)
                Next
            End With
            Pos = Pos + 0.1
        End If
   
        DoEvents
    Wend
End Sub

Private Sub Form_Resize()
    X2 = Me.ScaleWidth / 2: Y2 = Me.ScaleHeight / 2
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Active = False
End Sub

'Code improved by vBulletin Tool 2.0

---

(just open a new project, paste the code and run :))

Cool animation

well, any other link? i'm getting excited here