TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Animation

Version: 1.0

Information

Uploaded: 26th Nov 2007 16:00

Modified: 26th Nov 2007 16:13

Author: Tri Alliance

Summary

Make your own TV! Add your own channals!

Full Description

Copy and paste the if statements and replace the numbers with your own animation numbers to make your own channals. You must load 2 other .avi animations where the load animation commands are first though. Then you can add more animations, and use the INKEY$ command to specify a number to press to get to the channal you want.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem TV

Rem by Spludge Interactive

rem set up a window and refresh the screen

Set window on:Set Window Size 800,600:Set window Layout 1,1,0:Set Window title "TV":Sync On:sync rate 30:Sync

rem make an object to display the animations on

Make object plain 1,1,1

rem get the animation files

Load Animation "",2

Load Animation "",3

rem the start of the loop

rem display the directions

Text 0,0,"Press 1 for channal 1, and 2 for channal 2."

rem when the number 1 is pressed...

if INKEY$()="1"

rem make the animation into an animated texture

PLAY ANIMATION TO IMAGE 2,2,0,0,200,200

rem play the animation forever until the channal is changed or ESC key is pressed

loop animation 2

rem animation is set at half the original speed

SET ANIMATION SPEED 2,50

rem texture the tv plain object with the animation

texture object 1,2

EndIf

rem when the number 2 is pressed...

if INKEY$()="2"

rem make the animation into an animated texture

PLAY ANIMATION TO IMAGE 3,3,0,0,200,200

rem play the animation forever until the channal is changed or ESC key is pressed

loop animation 3

rem animation is set at half the original speed

SET ANIMATION SPEED 3,50

rem texture the tv plain object with the animation

texture object 1,3

EndIf

rem when the ESC key is pressed...

If Escapekey()=1

rem end this program

End

endIf

Sync

loop

rem the end of the loop

Download

Please login to download

Comments

No comments yet.

CodeBase - 3D TV