Try my new website:
www.urcho.com
- the new SIMPLE social network
Sign up
|
358
members |
125
snippets
Search for:
ALL
POPULAR
File Controls
Multiplayer Code
2D Effects
3D Effects
Oldskool demos
Basic Functions
Maths/Physics
Sound
Tutorials
Misc
Username:
Password:
Sign up
Metal Mouse Software
[
back
]
Author:
AngelOnFira
| Viewed:
226
times | Language:
BlitzBasic 3D
| Category:
2D Effects
Graphics 800,600,16,2 SetBuffer BackBuffer() fontbig=LoadFont("DejaVu Serif",50) presents=LoadFont("Segoe Print",30) Global x,y SetFont fontbig name$="Metal Mouse Software" Color 100,100,100 For t=1 To 20 Color 100,100,100 temp$=Mid$(name$,t,1) stringout$=stringout+""+temp Text 150,200,stringout Flip Delay 150 Next x=0 y=600 Line(x,0,x,600) Line(0,y,800,y) For t=1 To 150 Cls SetFont fontbig Text 150,200,"Metal Mouse Software" If t<=100 Color t,t,t Else Color 100,100,100 EndIf SetFont presents Text 600,250,"Presents" Color 100,100,100 Delay t/30 If x<100 x=x+1 Line(x,0,x,600) Else Line(100,0,100,600) EndIf If y>300 y=y-3 Line(0,y,800,y) Else Line(0,300,800,300) EndIf Oval x-5,y-5,11,11,0 Oval x-25,y-25,51,51,0 Oval x-50,y-50,101,101,0 Flip Next WaitKey() End
Author Comments:
This is my logo for my game, Blox Heros, if you want to see the game, go to www.metalmousesoftware.webs.com Please become a member!
Login or
create an account
to comment on this snippet