TGC Codebase Backup



All objects load,play & texture by ozmoz

3rd Jun 2008 16:10
Summary

This program is all objects in your director load,play & texture



Description

This program is all objects in your director load,play & texture.This program is basic answers.



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    sync on
sync rate 60
sync
objno=20
kapno=20
perform checklist for files
for t=1 to checklist quantity()
   if right$(checklist string$(t),2)=".X"
       objno=objno+1
       load object checklist string$(t),objno
       play object objno
       position object objno,x,.5,z
       scale object objno,5,5,5
       x=x+10 : if x>50 then x=-50 : z=z+20
   endif
  next t
perform checklist for files
objno=20
for k=1 to checklist quantity()
  if right$(checklist string$(k),4)=".dds"
       kapno=kapno+1
       objno=objno+1
       load image checklist string$(k),kapno
       texture object objno,kapno
   endif
next k