FRIHOSTFORUMSSEARCHFAQTOSBLOGSDIRECTORY
You are invited to Log in or Register a Frihost Account!

Phrogram

 


grade8_web
A very cool website is Phrogram.com it is a new program out it was original KPL(Kids Programming Language) was designed for creating powerful 3d games and 2d games and even stuff that isnt for games. I have used it for a month I memorized the language in less then a month so it is a very good language and it is unbelievable easy to create a 3d program.

Well people please check it out and respond send your ideas to me.
saini.tarans
Wow Amazing brother u do a very nice work here i like it much and it helps my small brother.

Thanks a lot.
awesty
looks alot like actionscript with all the brackets taken out.
tom69
awesty wrote:
looks alot like actionscript with all the brackets taken out.


Yup I agrea Wink But hey, thanks alot man!

(Yes you've noticed, this is indeed SPAM)
cr3ativ3
Ok, I am going to continue this topic for my teacher cause he doesn't have time.

What are you talking about dudes this is nothing like actionscript. Compared to actionscript this 1000 times if not more easier then actionscript there realy is no substitute then seeing it up hand well I am going to try sending over some of my buddys from Phrogram over to talk about this topic as well.

Here is an awsome example of how easy and powefull Phrogram is:



This program was made in Phrogram by a 9 year old boy that is an actual image of a space ship traversing a 3d world controlled by the arrow keys on a keyboard and the camera fallows it and if you wanna see the code from it check this out:

Code:

Program Alans_3D_Project

   Method Main()
   
      HideToolbar()
      SwitchTo3D()
      
      Define cam As Camera
      Define frameTime As Decimal = 0.0
      
      Define sky As Skybox3D
      sky.LoadMesh( "Skybox1a.x" )
      sky.Scale( 5, 5, 5 )
      
      Define ship As Model3D
      ship.LoadMesh( "Fighter1.x" )
      ship.MoveTo( 10, 10, 10 )
      ship.Scale(.25,.25,.25)
      
      Define fps As TextLabel
      fps.Color = Colors.Yellow
      
      While Not IsKeyDown( Escape )
      
         Define startTime As Decimal = TickCount()
         Define moveAmount As Decimal = 10 * frameTime
         
         If IsKeyDown( Left ) Then
            ship.TurnLeft( moveAmount )
         End If
         
         If IsKeyDown( Right ) Then
            ship.TurnRight( moveAmount )
         End If
         
         If IsKeyDown( Up ) Then
            Ship.TiltUP( moveAmount )
         End If
         
         If IsKeyDown( Down ) Then
            Ship.TiltDown( moveAmount )
         End If
         
         Ship.Forward( MoveAmount * 10 )
         
         cam.PointAtModel( Ship )
         
         RenderFrame()
         
         frameTime = Math.Min( 0.01, (TickCount() - startTime) * 0.001 )
         fps.Text = "FPS: " + FramesPerSecond
         
      End While
      
   End Method
   
End Program


That is 58 lines of code including spaces.
Related topics

made your own PC game?
Reply to topic    Frihost Forum Index -> Webmaster and Internet -> Websites

FRIHOST HOME | FAQ | TOS | ABOUT US | CONTACT US | SITE MAP
© 2005-2007 Frihost, forums powered by phpBB.