TheGameCreators - CodeBase - Spinning snowman that fades in and out!

Category: Complete Applications

Version: 1.0

Information

Uploaded: 14th Apr 2006 06:57

Modified: 14th Apr 2006 07:04

Author: Poisons forum

Summary

This is my first code that i thought you guys can give me some feedback. You might have to find these pics on Google though and plug them in. Here are their names. spiritds1_color_pancam_site2_original3_mbump[]: 3_detail_bump[]

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 Project: ok

REM Created: 4/9/2006 10:01:17 PM

REM

REM ***** Main Source File *****

REM

rem window

set window on

maximize window

set window title "Spinning Snowman. By Showl-Jin Studios: Coder name Robert Lynds."

disable escapekey

sync on:sync rate 60

rem images

load image "\spiritds1_color_pancam_site2_original3_mbump[1].jpg",1,1

load image "\3_detail_bump[1].jpg",2,1\

rem objects

make object sphere 1,10

show object 1

position object 1,0,0,1

move object down 1,1

set object smoothing 1,100

set reflection shading on 1

set shadow shading on 1

set cartoon shading on 1,50,50

texture object 1,2

set bump mapping on 1,2

make object sphere 2,8

show object 2

position object 2,object position x(1),object position y(1)+8,object position z(1)

move object down 2,.1

set object smoothing 2,100

set reflection shading on 2

set shadow shading on 2

set cartoon shading on 2,50,50

texture object 2,2

set bump mapping on 2,2

make object sphere 3,6

show object 3

position object 3,object position x(2),object position y(2)+6,object position z(2)

move object down 3,.3

set object smoothing 3,100

set reflection shading on 3

set shadow shading on 3

set cartoon shading on 3,50,50

texture object 3,2

set bump mapping on 3,2

move camera -10

alpha1=100

rem loop

repeat

yrotate object 1,wrapvalue(object angle y(1)+.5)

yrotate object 2,wrapvalue(object angle y(2)+.5)

yrotate object 3,wrapvalue(object angle y(3)+.5)

if escapekey()=1 then center text screen width()/2,screen height()-70,"Press 'end' key to escape."

fastsync

if lower$(inkey$())="s" and alpha1>0 then alpha1=alpha1-1

if lower$(inkey$())="w" and alpha1<100 then alpha1=alpha1+1

control camera using arrowkeys 0,.5,.5

set alpha mapping on 1,alpha1

set alpha mapping on 2,alpha1

set alpha mapping on 3,alpha1

text 0,0,"Press and hold 's' and 'w' to see something cool."

until keystate(207)

Download

Please login to download

Comments

No comments yet.

Author Name:	Poisons forum
CodeBase Entries:	1

CodeBase - Spinning snowman that fades in and out!