TGC Codebase Backup



The Titanic Project (Media Included) by Nigel _Okgo

18th Oct 2006 16:47
Summary

Here is the Titanic Project 3D Model crash, with media included.... my email address is michaelstephenrt@hotmail.com



Description

Download the Video file from this site, and copy and paste it into the Videos/ Folder
and then convert it to Mpeg1 or rename it from within the source code and then include the media to get it to play ....

http://library.thinkquest.org/21583/real/snk.rm

if you like Titanic, you may enjoy this....



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    randomize timer()

rem ****The Titanic Project****

set text font "arial"
set text size 48
load music "filestitanicmid.mid",1
play music 1
load image "filestitanicpic.bmp",1
load animation "Files/video.mpg",1
tmr=0
1:
cls rgb(0,0,0)
tmr=tmr+1
if tmr>940 then cls rgb(0,0,196)
if tmr>940 then sprite 1,0,0,1
if tmr>940 then if animation playing(1) then stop animation 1
if tmr>1400 then delete sprite 1:tmr=0
if tmr>0 then ink rgb(255,255,0),rgb(255,255,0):set text to bold:set text size 48:text 80,40,"The TITANIC":ink rgb(255,255,255),rgb(255,255,255):set text size 22:text 240,80,"3D Model of Crash"
if tmr=1 then cls rgb(0,0,0)
if tmr=1 then play animation 1,120,120,520,480
sync
goto 1