Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|53\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Computer Pains
Tue, 15 May 2007, 14:40
Natedogg	Graphics 600,800,0,2 Print ("Please enter a command: ") WaitKey : Print "Ouch, You bettah not do dat again!" WaitKey Print "Ouch! That hurt!" WaitKey Print "Cut it out man!" WaitKey Print "Don't kill me dawg!" WaitKey Print "Ouch! That hurt!" WaitKey Print "Cut it out man!" WaitKey Print "Don't kill me dawg!"WaitKey Print "Ouch! That hurt!" WaitKey Print "Cut it out man!" WaitKey Print "Don't kill me dawg!"WaitKey Print "Ouch! That hurt!" WaitKey Print "Cut it out man!" WaitKey Print "Don't kill me dawg!"WaitKey WaitKey Print "This program is compliments of Natedogg!" WaitKey End --v -=-=- With a phat Beat.yo.
Tue, 15 May 2007, 14:48
power mousey	welcome aboard, Natedogg. cheers power mousey
Tue, 15 May 2007, 14:57
Blitz3Dman	mm... remeber, Nate like this: [code] (paste your code here) [/code] and don't ask me why it didn't do it. not for you to know. and that'd look like this (paste your code here) --v -=-=- There are 10 kinds of people in this world - ( Insert 16 remarks about to what extent people know hex here )
Tue, 15 May 2007, 17:12
spinal	I would have did it this way! And Welcome! Graphics 600,800,0,2 Dim insult$(3) For t=0 To 3 Read insult$(t) Next SeedRnd MilliSecs() Print "Please enter a command:" For t=0 To 15 WaitKey() Print insult$(Rand(0,3)) Next Print "Natedogg's program modded by Spinal!" Data "Ouch, You bettah not do dat again!","Ouch! That hurt!","Cut it out man!" Data "Don't kill me dawg!" --v -=-=- Check out my excellent homepage!
Wed, 16 May 2007, 01:45
power mousey	Nate and BLitz3dman, I was thinking of doing something like spinal and you(Blitz3dman) have suggested and shown but....I was feeling I would come across as perhaps sarcastic, redundant response or of a 'know it all'. So, Nate hey again welcome aboard and good for first code. You are coming along just fine. cheers power mousey
Wed, 16 May 2007, 02:51
spinal	I hope I didn't appear as a know-it-all, it was only intended as a small lesson, to help. I remember my first program was copied straight out of a book, my first few in fact were from the Commodore64 user manual. Keep up the work Nate, before long you will yourself be offering advice and lessons to the new guys. -=-=- Check out my excellent homepage!
Wed, 16 May 2007, 03:10
power mousey	no, no Spinal...it wasn't you. It was me. I just didn't want to come across as a 'know it all'. But I'll share some code to even it all out: ;program cone1.bb ;a simple cone Global cam1 Graphics3D 640,480 SetBuffer BackBuffer() ;create default camera ;at default locations of x-0,y-0,z-0 cam1=CreateCamera() ;create default light ;spreaded out over whole screen ;and centered rotational at x-0,y-0,z-0 lite=CreateLight() RotateEntity lite,45.0,0,0 ;load babylon bmp pic babel1=LoadImage("babylon3a.bmp") tower1=LoadTexture("babylon3a.bmp") ;load in the eye bmp eyepic=LoadTexture("eye1.bmp") ScaleTexture eyepic, 0.5,1.0 ;create a simple cone ;color it red ;position cone in 3d space: x-0,y-0,z-0 cone=CreateCone(4) EntityTexture cone, tower1 PositionEntity cone, 0,0,5 eye=CreateSphere() ; EntityColor eye, 10,200,10 EntityTexture eye, eyepic ScaleEntity eye, 0.25, 0.25, 0.25 PositionEntity eye, 0, 1.25, 6 RotateEntity eye, 0.0, 85.0, 0.0 zpos#=5.0 zflg#=0.0625 yrot#=2.0 ;main loop counter=0 stopflg=0 loopy=0 eyeflg#=-2.0 eyerot#=85.0 While Not KeyHit(1) ; ClsColor 1,1,250 CameraClsMode cam1, 0,1 ; Cls DrawImage babel1, 0,0 If counter=4 stopfflg=1 eyerot#=eyerot#+eyeflg# ;zpos#--2.5 PositionEntity cone, 0, 0, zpos# PositionEntity eye, 0,1.25, zpos# RotateEntity eye, 0.0, eyerot#, 27.00 If eyerot#=85.0 Then loopy=loopy+1 ElseIf eyerot#<=65.0 Or eyerot#>=110.0 Then eyeflg#=-(eyeflg#) EndIf If loopy>2 Then stopflg=0 counter=0 loopy=0 ;zpos#=2.5 zflg#=0.0625 EndIf Delay 50 Else PositionEntity cone, 0,0,zpos# PositionEntity eye, 0,1.25, zpos# TurnEntity cone, 0,yrot#,0 EndIf UpdateWorld RenderWorld Flip Delay 5 ;If stopflg=0 zpos#=zpos#+zflg# If zpos#>=25.0 Or zpos<=2.5 counter=counter+1 If counter=4 Then eyerot#=85.0 zflg#=-(zflg) yrot#=-(yrot#) Delay 200 EndIf ; EndIf Wend End --v okay, yeah!! this is an old program when I was starting out on 3d graphics and animations. Needs to be reworked and optimized, of course. what it does when you run the program and with the appropriate media in the correct folder too: a picture of Babylon appears on the screen. Actually, its a picture of the ruins of Ancient Rome..but looks close enough to Babylon. Then a 3d pyramid appears up close and with a texture skin of Babylon and on top of the Pyramid is the All-Seeing eye. The third eye...just like on the back of the 1 dollar bill. So the Pyramid rotates and zooms out and get smaller, then rotates back and zooms back in...and gets bigger again. Then as it rotates out again, it has a drag like effect and moves slower as it zooms out and with the All Seeing Eye moving back n forth and looking a little down on you. Surveying and tracking you...the control and fate of your life. whoa!! By the way, the spherical eye which represents the ALL Seeing Eye is from a picture of my cat Lissie. I also use her eye as an avabar too.