Download in vbforum

[nameJack]

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

[Fox]

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*:

'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 )

[nameJack]

Cool animation

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