TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 26th Feb 2005 07:20

Modified: 1st Jan 1970 01:00

Author: draicker2003

Summary

shows animtion one by one

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM Projet: Trailers

REM CrÃ©ation: 26/02/05 12:10:17

REM

REM ***** Fichier Source Principal *****

REM

Display()

Hide mouse

Slee = 0

Wid = Screen Width()

Hgt = Screen Height()

If File Exist("Error.txt") =1

Delete File "Error.txt"

Endif

Open to write 1,"error.txt"

If File Exist("Log.txt") = 1

Open To Read 2,"Log.txt"

Mar = Many("Log.txt")

Dim Anima$(Mar)

Tre = 0

Repeat

Inc Tre

Read String 2,Nam$

Anima$(Tre) = Nam$

Until File End(2) = 1

Close File 2

Else

Write String 1,"Bestand Log.txt bestaat niet."

Write string 1,"wilt u deze maken en de Animatie bestanden inschrijven die hij moet spelen"

Close File 1

Endif

Load Animation Anima$(1),1

Place animation 1,0,0,Wid,Hgt

Play Animation 1

If Slee = 0

Hide Mouse

Else

Dec Slee,1

Endif

If mousemovex() > 0 Or MousemoveX() < 0

Slee = 1000

Show Mouse

Endif

If Mousemovey() < 0 Or Mousemovey() > 0

Slee = 1000

Show Mouse

Endif

If Mousemovez() > 0 or Mousemovez() < 0

Slee = 1000

Show Mouse

Endif

For X = 1 to Mar

If X = Mar

If Animation Exist(Mar) = 1

If Animation Playing(Mar) = 1

Else

Delete Animation Mar

Load Animation Anima$(1),1

Place Animation 1,0,0,Wid,Hgt

Play Animation 1

endif

Endif

Else

NewAnim = X + 1

If NewAnim = Mar+1

NewAnim = Mar

Endif

If Animation Exist(X) = 1

If Animation Playing(X) = 1

Else

Delete Animation X

Load Animation Anima$(NewAnim),NewAnim

Place Animation NewAnim,0,0,Wid,Hgt

Play Animation NewAnim

Endif

endif

Endif

Next X

Loop

Function Many(File$)

If File exist(File$) = 1

Open to Read 3,File$

Ma = 0

Repeat

Read String 3,Fil$

Inc Ma

until File End(3)=1

Endif

Close File 3

Endfunction Ma

Function Display()

If Check Display Mode(1024,768,32)= 1

Set Display Mode 1024,768,32

Else

If Check Display Mode(1024,768,16)= 1

Set Display Mode 1024,768,16

Else

If Check Display Mode(800,600,32)= 1

Set Display Mode 800,600,32

Else

If Check Display Mode(800,600,16)=1

Set Display Mode 800,600,16

Endif

Endfunction

Download

Please login to download

Comments

No comments yet.

CodeBase - Trailers

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	draicker2003
CodeBase Entries:	5