-
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