TGC Codebase Backup



Titanic Project by Nigel _Okgo

18th Oct 2006 16:30
Summary

A 3D Model of the Titanic crash, with Media.... my email address is michaelstephenrt@hotmail.com



Description

A 3D model Video of the Titanic crash, also with music
may be used as a screensaver.... have fun....

the 3D model Video file is available from this site :-

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

you may need to use a video convertor to convert it to Mpeg 1 and then place it within
the Folder Videos/ and include the media files, then adjust the source code for it to work correctly....

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()
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