Animation help - GameCreators Forum

Author

Message

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 21st Jun 2007 17:19

Link

I am currently working on a game called Dungeongame. I've been working on this for quite a while now, and I have run into yet another problem. Animation. The player is supposed to attack when you just click the Left mouse button, but the problem is that you have to hold the left mouse button.Here is the code.

REM Initialize
SYNC ON : HIDE MOUSE
REM AA
LOAD DLL "user32.dll",1
   Sw=CALL DLL(1,"GetSystemMetrics",0)
   Sh=CALL DLL(1,"GetSystemMetrics",1)
DELETE DLL 1
SET DISPLAY MODE Sw,Sh,32,0
REM Define our player's Health
plyrhealth=100
REM Call Subroutines out of loop(so that they wont be done over and over and crash the program or generate an error)
GOSUB Sub_Load
REM Main Loop
DO
   REM Call other Subroutines
   GOSUB Sub_Plyr_Actions
   GOSUB Sub_AI
   GOSUB Sub_Collision
   GOSUB Sub_Debug
   GOSUB Sub_World
   CONTROL CAMERA USING ARROWKEYS 0,3,2
   SYNC
LOOP

REM Handle loading of objects and textures
Sub_Load:
REM Our Player's object
LOAD OBJECT "Media\Knight\H-Knight-Idle.x",1
REM Turn off autocam
AUTOCAM OFF
REM Position the object
POSITION OBJECT 1,-3,-98,-550
REM This guy is way too small
SCALE OBJECT 1,5000,5000,5000
REM Time to rotate the player's object around so that you can opnly see his back
YROTATE OBJECT 1,180
REM Append Walking animation to the first
APPEND OBJECT "Media\Knight\H-Knight-Attack1.x",1,25
REM Append Attacking animation to the first
APPEND OBJECT "Media\Knight\H-Knight-Move.x",1,50
REM Set the animations' play speed
SET OBJECT SPEED 1,30
REM Load the Room you will play in
LOAD OBJECT "Media\dungeongame gamewrold.x",2
REM Load the texture for the gameworld
LOAD IMAGE "Media\wall_U3_09.jpg",1
REM Load the impact animation to add to the first
APPEND OBJECT "Media\Knight\H-Knight-Impact.x",1,75
REM Make PLayer's object specular
SET OBJECT SPECULAR 1,RGB(255,0,0)
REM Make him real shiny
SET OBJECT SPECULAR POWER 1,2000
REM Texture the world with this image
TEXTURE OBJECT 2,1
REM Position the Camera
POSITION CAMERA 2,2,2
REM Make it dark
SET AMBIENT LIGHT 0
REM Set shadows on :)
SET SHADOW SHADING ON 1,-1,500,1
REM Loop the Idle animation
LOOP OBJECT 1,0,24
REM Addin another light
MAKE LIGHT 1
COLOR LIGHT 1,RGB(255,0,0)
POSITION LIGHT 1,-3,-98,-520
REM And another...
MAKE LIGHT 2
COLOR LIGHT 2,RGB(255,255,255)
REM another...
MAKE LIGHT 3
COLOR LIGHT 3,RGB(0,255,150)
POSITION LIGHT 3,-3,-98,-200
REM Show where light is
MAKE OBJECT BOX 90,10,10,10
POSITION OBJECT 90,LIGHT POSITION X(2),LIGHT POSITION Y(2),LIGHT POSITION Z(2)
MAKE OBJECT BOX 91,10,10,10
POSITION OBJECT 91,LIGHT POSITION Z(1),LIGHT POSITION Y(1),LIGHT POSITION Z(1)
MAKE OBJECT BOX 92,10,10,10
POSITION OBJECT 92,LIGHT POSITION X(3),LIGHT POSITION Y(3), LIGHT POSITION Z(3)
REM Mess around with lighting
HIDE LIGHT 0
REM Add some fog, to make it eerie
FOG ON
FOG COLOR RGB(0,0,0)
REM Make limbs for collision
RETURN

REM Handle the Player's actions
Sub_Plyr_Actions:
REM Movement and animation code(P.S. It actually WORKS!:-)
IF KEYSTATE(17)=0 + KEYSTATE(31)=0 + KEYSTATE(30)=0 + KEYSTATE(32)=0 + MOUSECLICK()=0
   LOOP OBJECT 1,0,24
ENDIF
IF KEYSTATE(17)=1
   LOOP OBJECT 1,55,75
   MOVE OBJECT 1,-1
ENDIF
IF KEYSTATE(31)=1
   LOOP OBJECT 1,55,75
   MOVE OBJECT 1,1
ENDIF
IF KEYSTATE(30)=1
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)-1)
ENDIF
IF KEYSTATE(32)=1
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+1)
ENDIF
IF MOUSECLICK()=1
   LOOP OBJECT 1,25,49
ENDIF
RETURN

REM Handle the Artificial Intelligience
Sub_AI:
RETURN

REM Handle Collision
Sub_Collision:
RETURN

Sub_World:
REM First light...(eerie red 1)
SET LIGHT RANGE 1,RND(400)+600
REM 2nd(plyr's torch)
SET LIGHT RANGE 1,200
REM POSITION 2ND LIGHT TO PLAYER(TORCH)
POSITION LIGHT 2,OBJECT POSITION X(1),OBJECT POSITION Y(1)+5,OBJECT POSITION Z(1)+5
TEXT 0,50,"PLAYER'S TORCH RANGE:"+STR$(LIGHT RANGE(2))
REM Next light...
SET LIGHT RANGE 3,(400)+600
RETURN

Sub_Debug:
plyrx=OBJECT POSITION X(1)
plyry=OBJECT POSITION Y(1)
plyrz=OBJECT POSITION Z(1)
TEXT 0,0,"FPS:"+STR$(SCREEN FPS())
TEXT 0,10,"Polys:"+STR$(STATISTIC(1))
TEXT 0,20,"PLAYER POSITION X:"+STR$(plyrx)
TEXT 0,30,"PLAYER POSITION Y:"+STR$(plyry)
TEXT 0,40,"PLAYER POSITION Z"+STR$(plyrz)
CENTER TEXT OBJECT SCREEN X(91),OBJECT SCREEN Y(91)-70,"LIGHT1"
CENTER TEXT OBJECT SCREEN X(90),OBJECT SCREEN Y(90)-70,"LIGHT2"
CENTER TEXT OBJECT SCREEN X(92),OBJECT SCREEN Y(92)-70,"LIGHT3"
RETURN

+ Code Snippet

REM Initialize
SYNC ON : HIDE MOUSE
REM AA
LOAD DLL "user32.dll",1
   Sw=CALL DLL(1,"GetSystemMetrics",0)
   Sh=CALL DLL(1,"GetSystemMetrics",1)
DELETE DLL 1
SET DISPLAY MODE Sw,Sh,32,0
REM Define our player's Health
plyrhealth=100
REM Call Subroutines out of loop(so that they wont be done over and over and crash the program or generate an error)
GOSUB Sub_Load
REM Main Loop
DO
   REM Call other Subroutines
   GOSUB Sub_Plyr_Actions
   GOSUB Sub_AI
   GOSUB Sub_Collision
   GOSUB Sub_Debug
   GOSUB Sub_World
   CONTROL CAMERA USING ARROWKEYS 0,3,2
   SYNC
LOOP

REM Handle loading of objects and textures
Sub_Load:
REM Our Player's object
LOAD OBJECT "Media\Knight\H-Knight-Idle.x",1
REM Turn off autocam
AUTOCAM OFF
REM Position the object
POSITION OBJECT 1,-3,-98,-550
REM This guy is way too small
SCALE OBJECT 1,5000,5000,5000
REM Time to rotate the player's object around so that you can opnly see his back
YROTATE OBJECT 1,180
REM Append Walking animation to the first
APPEND OBJECT "Media\Knight\H-Knight-Attack1.x",1,25
REM Append Attacking animation to the first
APPEND OBJECT "Media\Knight\H-Knight-Move.x",1,50
REM Set the animations' play speed
SET OBJECT SPEED 1,30
REM Load the Room you will play in
LOAD OBJECT "Media\dungeongame gamewrold.x",2
REM Load the texture for the gameworld
LOAD IMAGE "Media\wall_U3_09.jpg",1
REM Load the impact animation to add to the first
APPEND OBJECT "Media\Knight\H-Knight-Impact.x",1,75
REM Make PLayer's object specular
SET OBJECT SPECULAR 1,RGB(255,0,0)
REM Make him real shiny
SET OBJECT SPECULAR POWER 1,2000
REM Texture the world with this image
TEXTURE OBJECT 2,1
REM Position the Camera
POSITION CAMERA 2,2,2
REM Make it dark
SET AMBIENT LIGHT 0
REM Set shadows on :)
SET SHADOW SHADING ON 1,-1,500,1
REM Loop the Idle animation
LOOP OBJECT 1,0,24
REM Addin another light
MAKE LIGHT 1
COLOR LIGHT 1,RGB(255,0,0)
POSITION LIGHT 1,-3,-98,-520
REM And another...
MAKE LIGHT 2
COLOR LIGHT 2,RGB(255,255,255)
REM another...
MAKE LIGHT 3
COLOR LIGHT 3,RGB(0,255,150)
POSITION LIGHT 3,-3,-98,-200
REM Show where light is
MAKE OBJECT BOX 90,10,10,10
POSITION OBJECT 90,LIGHT POSITION X(2),LIGHT POSITION Y(2),LIGHT POSITION Z(2)
MAKE OBJECT BOX 91,10,10,10
POSITION OBJECT 91,LIGHT POSITION Z(1),LIGHT POSITION Y(1),LIGHT POSITION Z(1)
MAKE OBJECT BOX 92,10,10,10
POSITION OBJECT 92,LIGHT POSITION X(3),LIGHT POSITION Y(3), LIGHT POSITION Z(3)
REM Mess around with lighting
HIDE LIGHT 0
REM Add some fog, to make it eerie
FOG ON
FOG COLOR RGB(0,0,0)
REM Make limbs for collision
RETURN



REM Handle the Player's actions
Sub_Plyr_Actions:
REM Movement and animation code(P.S. It actually WORKS!:-)
IF KEYSTATE(17)=0 + KEYSTATE(31)=0 + KEYSTATE(30)=0 + KEYSTATE(32)=0 + MOUSECLICK()=0
   LOOP OBJECT 1,0,24
ENDIF
IF KEYSTATE(17)=1
   LOOP OBJECT 1,55,75
   MOVE OBJECT 1,-1
ENDIF
IF KEYSTATE(31)=1
   LOOP OBJECT 1,55,75
   MOVE OBJECT 1,1
ENDIF
IF KEYSTATE(30)=1
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)-1)
ENDIF
IF KEYSTATE(32)=1
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+1)
ENDIF
IF MOUSECLICK()=1
   LOOP OBJECT 1,25,49
ENDIF
RETURN



REM Handle the Artificial Intelligience
Sub_AI:
RETURN




REM Handle Collision
Sub_Collision:
RETURN



Sub_World:
REM First light...(eerie red 1)
SET LIGHT RANGE 1,RND(400)+600
REM 2nd(plyr's torch)
SET LIGHT RANGE 1,200
REM POSITION 2ND LIGHT TO PLAYER(TORCH)
POSITION LIGHT 2,OBJECT POSITION X(1),OBJECT POSITION Y(1)+5,OBJECT POSITION Z(1)+5
TEXT 0,50,"PLAYER'S TORCH RANGE:"+STR$(LIGHT RANGE(2))
REM Next light...
SET LIGHT RANGE 3,(400)+600
RETURN


Sub_Debug:
plyrx=OBJECT POSITION X(1)
plyry=OBJECT POSITION Y(1)
plyrz=OBJECT POSITION Z(1)
TEXT 0,0,"FPS:"+STR$(SCREEN FPS())
TEXT 0,10,"Polys:"+STR$(STATISTIC(1))
TEXT 0,20,"PLAYER POSITION X:"+STR$(plyrx)
TEXT 0,30,"PLAYER POSITION Y:"+STR$(plyry)
TEXT 0,40,"PLAYER POSITION Z"+STR$(plyrz)
CENTER TEXT OBJECT SCREEN X(91),OBJECT SCREEN Y(91)-70,"LIGHT1"
CENTER TEXT OBJECT SCREEN X(90),OBJECT SCREEN Y(90)-70,"LIGHT2"
CENTER TEXT OBJECT SCREEN X(92),OBJECT SCREEN Y(92)-70,"LIGHT3"
RETURN

I just put the entire code there in case the problem is being caused by something else than what i excpect.
Sorry if this has been asked alot before...Thanks

Back to top

Profile PM Email

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 21st Jun 2007 22:44

Link

Ah, and the model I used was the knight model that came with DarkMatter 1, in which i believe came with DarkBasic. Sorry if it caused any confusion.

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 22nd Jun 2007 01:02

Link

OHH...the true is out there !! can`t you feel the force?...

hallo Existence I,v got a example ready, but I don`t know if you want the player attack holding all time the mouse button ...my model just play one animation at a time just with a click

have a look to my code

autocam off
hide mouse
set ambient light 10

sync
rem we loaded our object
load object "idle.x",1

append object "attack1.x",1,25
append object "move.x",1,50
color object 1,rgb(0,20,0)
loop object 1,5,24

set object speed 1,3

position camera -2,1,-2
point camera 0,1,0

sync on

do
set cursor 5,5
print "JUST PRESS THE KEYS   a ,  s   d"
cont=cont+1
if cont> 5000
set cursor 5,400
PRINT "HOLD SPACEBAR PRESSED TO MANIPULATE MANUALLY THE ANIMATION"
endif

if inkey$()="a"

set object frame 1,0
 loop object 1,0,24
endif

if inkey$()="s"

set object frame 1,25
loop object 1,25,49
endif

if inkey$()="d"

set object frame 1,50
 loop object 1,55,75
endif

`WE CAN NOT ONLY PLAY OUR MODEL ANIMATION ...WE CAN AS WELL MANIPULATE IT

cron=cron+1
if cron>400 then cron=0
if cron<200 then rota#=rota#+0.1
if cron>200 then rota#=rota#-0.1

`ANIMATIONS OF LIMBS
`RIGHT ARM
if spacekey()
rotate limb 1,5,0,0,-rota#*4
rotate limb 1,6,0,0,-rota#*4
`LEFT ARM
rotate limb 1,8,0,0,rota#*4
rotate limb 1,9,0,0,rota#*4

`WAIST
rotate limb 1,2,-rota#,0,rota#

`LEFT LEG
rotate limb 1,14,rota#*3,0,0
rotate limb 1,15,-rota#*6,0,0

rotate limb 1,1,0,rota#,0
endif

sync
loop

+ Code Snippet

autocam off
hide mouse
set ambient light 10

sync
rem we loaded our object
load object "idle.x",1

append object "attack1.x",1,25
append object "move.x",1,50
color object 1,rgb(0,20,0)
loop object 1,5,24

set object speed 1,3

position camera -2,1,-2
point camera 0,1,0

sync on

do
set cursor 5,5
print "JUST PRESS THE KEYS   a ,  s   d"
cont=cont+1
if cont> 5000
set cursor 5,400
PRINT "HOLD SPACEBAR PRESSED TO MANIPULATE MANUALLY THE ANIMATION"
endif

if inkey$()="a"

set object frame 1,0
 loop object 1,0,24
endif

 if inkey$()="s"

set object frame 1,25
loop object 1,25,49
endif


if inkey$()="d"

set object frame 1,50
 loop object 1,55,75
endif


`WE CAN NOT ONLY PLAY OUR MODEL ANIMATION ...WE CAN AS WELL MANIPULATE IT

cron=cron+1
if cron>400 then cron=0
if cron<200 then rota#=rota#+0.1
if cron>200 then rota#=rota#-0.1

`ANIMATIONS OF LIMBS
`RIGHT ARM
if spacekey()
rotate limb 1,5,0,0,-rota#*4
rotate limb 1,6,0,0,-rota#*4
`LEFT ARM
rotate limb 1,8,0,0,rota#*4
rotate limb 1,9,0,0,rota#*4

`WAIST
rotate limb 1,2,-rota#,0,rota#

`LEFT LEG
rotate limb 1,14,rota#*3,0,0
rotate limb 1,15,-rota#*6,0,0

rotate limb 1,1,0,rota#,0
endif



sync
loop

oh my god

Attachments

Login to view attachments

Back to top

Profile PM Email

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 22nd Jun 2007 10:10

Link

That's a good example, but I've already tried that. It was the one that got me started with animations

It works fine but it doen't work if you hold the button down unless you take out the 'SET OBJECT FRAME objectnum,framenum' part. So I took that part out of the movement code, but then if I tried putting that code back in the attack code, the animation doen't even play...even if you don't hold the click. But if I take out that code again from the attack code, I must hold down the mousclick. That's my problem. But thanks anyway for the example. *Off Topic*Oh yeah and If somehow you got the example to work, by importing the Knight model from DarkMatter, you have to turn the camera around to the back and you will see him there. Still a work in progress.

Back to top

Profile PM Email

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 24th Jun 2007 20:52

Link

Does anyone want to help? I would really appreciate it...?

Back to top

Profile PM Email

jason p sage

17

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 25th Jun 2007 04:40

Link

I would but I'm having trouble here as well. I do know that Each model can have a series of "animation" frames. And I'm pretty sure you can have groups of them that perform a "animation sequence" and can loop sections of it or whatever.

Not looking at your code however, and from your original problem description - its possible your problem goes deeper than animation.

In your main loop - things are happening rather fast, and what you might need is a way to use that mouse button DOWN to cause an event - and event that can not be fired off again UNTIL the first event is finished.

This event could simple be a variable that measures time since animation started. When the "pretty much correct" amount of time goes by that your animation normally takes - reset the variable to ZERO. when this variable is ZERO - then you can look for that mouse button click again.

There is a thread in here somewhere title "keystate monitor" that might have something of interest in it for you - it has optional time delays for keypresses so for example if spacebar=fire weapon =- you could control how fast it can shoot. The same principle applied to your animation sequence MIGHT be the real trick you need.

I'm just trying to help.
Jason

Know way to many languages - Master of none

Back to top

Profile PM Email Website

ThinkDigital

19

Years of Service

User Offline

Joined: 18th Aug 2005

Location: A galaxy far, far away...

Posted: 25th Jun 2007 10:04 Edited at: 25th Jun 2007 10:05

Link

Change this

+ Code Snippet

IF MOUSECLICK()=1
   LOOP OBJECT 1,25,49
ENDIF

to this

+ Code Snippet

IF MOUSECLICK()=1 AND (OBJECT FRAME(1) < 25 OR OBJECT FRAME(1) > 49)
   LOOP OBJECT 1,25,49
ENDIF

I think that's what you need.

It follows what Jason said - you can't loop the object over again if it's already looping between frames 25 and 49.

"Variables won't, constants aren't."

Back to top

Profile PM

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 25th Jun 2007 16:58

Link

This is quite interesting...I see the logic in what Jason said, and in your code, ThinkDigital. Yet I still have them same problem, but I'm guessing that I must setup a timing part in my program and probably have something like it must play for as long that timer is going...or somthing like that

Back to top

Profile PM Email

jason p sage

17

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 25th Jun 2007 22:59

Link

I wish you luck with it. If you get thie jist of what we are suggesting - you will probably figure this out one way or the other.

I really think you should look at that keystate monitor code here:

http://forum.thegamecreators.com/?m=forum_view&t=107531&b=6

It has timer code to prevent keypresses from repeating to quickly like I mentioned before. I'd thought I'd show you the link is all.

Keep us posted how you make out. It could help anyone of us who get into an animation bind.

Know way to many languages - Master of none

Back to top

Profile PM Email Website

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 27th Jun 2007 13:05 Edited at: 27th Jun 2007 13:12

Link

I'm still having absolutly no luck at all on this

and I am actually quite frustrated. I have tried using a timer system and It works but you STILL have to hold down the mouseclick. It is not repeating that is my trouble. It is that you have to hold down the click...

I'll tinker with it some more but I don't really think I'll have any luck. Any help would be appreciated.

Sorrry if I'm a slow learner...

Back to top

Profile PM Email

jason p sage

17

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 27th Jun 2007 13:47

Link

Is this all standard media that comes with DBPro? Without knowing I'm not going to try to get this working - in short - bundle the media and upload it so I/we can snag it.

Note: GameWorld filename is misspelled "gamewrold" or something.

Actually - looking at your code - you don't seem like a slow learner. You just aren't familiar with software design is all and that takes time to learn for everyone. Anyone can toss a program together that does something - but making the program organized so that you can make it grow - takes organization and writing code to be able handle your tasks one step at a time - so as each loop iterates through - you can advance everything appropriately a TINY Bit... then more each loop.

This takes a creative approach and experimentation. What you are asking for is not that hard to add to what you have - but I got to go to work - so I got to get in the shower and go so I'm not late but - if you upload the media I'll try to get to it tonight.. I'll probably give ya a half hour tops - but that should be enough - get the media uploaded on here so I can download your code and media - toss it in a directory - and begin.

Thanks
Jason

Know way to many languages - Master of none

Back to top

Profile PM Email Website

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 27th Jun 2007 13:57 Edited at: 27th Jun 2007 14:25

Link

Yeah I know that it says 'gamewrold'. I mispelled it when I made the file and was too lazy to fix it. I'm the knight model came out of DarkMatter 1 and it DID come with DBPro so I guess I can post it in a dowload thing...

The dowload thing is hard...
I don't know if this will work because I've never used the download thing before but...
Here you go...

*sigh* I have forgotten to put the gameworld in so just make a plain and turn up the ambient light and unhide the ambient light

Here is the (New) code:

REM Project: DungeonGamev1
REM Created: 5/21/2007 5:25:10 AM
REM
REM ***** Main Source File *****
REM Dungeon Game remade

REM Initialize
SYNC ON : HIDE MOUSE
REM AA
LOAD DLL "user32.dll",1
   Sw=CALL DLL(1,"GetSystemMetrics",0)
   Sh=CALL DLL(1,"GetSystemMetrics",1)
DELETE DLL 1
SET DISPLAY MODE Sw,Sh,32,0
REM Define our player's Health
plyrhealth=100
REM Call Subroutines out of loop(so that they wont be done over and over and crash the program or generate an error)
GOSUB Sub_Load
REM Main Loop
DO
   REM Call other Subroutines
   GOSUB Sub_Plyr_Actions
   GOSUB Sub_AI
   GOSUB Sub_Collision
   GOSUB Sub_Debug
   GOSUB Sub_World
   CONTROL CAMERA USING ARROWKEYS 0,3,2
   SYNC
LOOP

REM Handle loading of objects and textures
Sub_Load:
REM Our Player's object
LOAD OBJECT "Media\Knight\H-Knight-Idle.x",1
REM Turn off autocam
AUTOCAM OFF
REM Position the object
POSITION OBJECT 1,-3,-98,-550
REM This guy is way too small
SCALE OBJECT 1,5000,5000,5000
REM Time to rotate the player's object around so that you can opnly see his back
YROTATE OBJECT 1,180
REM Append Walking animation to the first
APPEND OBJECT "Media\Knight\H-Knight-Attack1.x",1,25
REM Append Attacking animation to the first
APPEND OBJECT "Media\Knight\H-Knight-Move.x",1,50
REM Set the animations' play speed
SET OBJECT SPEED 1,30
REM Load the Room you will play in
LOAD OBJECT "Media\dungeongame gamewrold.x",2
REM Load the texture for the gameworld
LOAD IMAGE "Media\wall_U3_09.jpg",1
REM Load the impact animation to add to the first
APPEND OBJECT "Media\Knight\H-Knight-Impact.x",1,75
REM Make PLayer's object specular
SET OBJECT SPECULAR 1,RGB(255,0,0)
REM Make him real shiny
SET OBJECT SPECULAR POWER 1,2000
REM Texture the world with this image
TEXTURE OBJECT 2,1
REM Position the Camera
POSITION CAMERA 2,2,2
REM Make it dark
SET AMBIENT LIGHT 0
REM Set shadows on :)
SET SHADOW SHADING ON 1,-1,500,1
REM Loop the Idle animation
LOOP OBJECT 1,0,24
REM Hide ambient light
HIDE LIGHT 0
REM Addin another light
MAKE LIGHT 1
COLOR LIGHT 1,RGB(255,0,0)
POSITION LIGHT 1,-3,-98,-520
REM And another...
MAKE LIGHT 2
COLOR LIGHT 2,RGB(255,255,255)
SET LIGHT RANGE 2,800
SET POINT LIGHT 2,OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
REM another...
MAKE LIGHT 3
COLOR LIGHT 3,RGB(0,255,150)
POSITION LIGHT 3,-3,-98,-200
REM mAKE BOXES Show where light is
MAKE OBJECT BOX 90,10,10,10
COLOR OBJECT 90,RGB(255,255,255)
MAKE OBJECT BOX 91,10,10,10
COLOR OBJECT 91,RGB(255,255,255)
MAKE OBJECT BOX 92,10,10,10
REM Mess around with lighting
REM Add some fog, to make it eerie
FOG ON
FOG COLOR RGB(0,0,0)
REM Make limbs for collision
RETURN

REM Handle the Player's actions
Sub_Plyr_Actions:
REM Movement and animation code
IF KEYSTATE(17)=0 + KEYSTATE(31)=0 + KEYSTATE(30)=0 + KEYSTATE(32)=0 + MOUSECLICK()=0
   LOOP OBJECT 1,0,24
ENDIF
IF KEYSTATE(17)=1
   LOOP OBJECT 1,55,75
   MOVE OBJECT 1,-1
ENDIF
IF KEYSTATE(31)=1
   LOOP OBJECT 1,55,75
   MOVE OBJECT 1,1
ENDIF
IF KEYSTATE(30)=1
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)-1)
ENDIF
IF KEYSTATE(32)=1
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+1)
ENDIF
IF MOUSECLICK()=1
   LOOP OBJECT 1,25,49
ENDIF
IF INKEY$()="+"
   SET LIGHT RANGE 2,LIGHT RANGE(2)+1
ENDIF
IF INKEY$()="-"
   SET LIGHT RANGE 2,LIGHT RANGE(2)-1
ENDIF
RETURN

REM Handle the Artificial Intelligience
Sub_AI:
RETURN

REM Handle Collision
Sub_Collision:
RETURN

Sub_World:
REM First light...(eerie red 1)
SET LIGHT RANGE 1,RND(400)+600
REM POSITION 2ND LIGHT TO PLAYER(TORCH)
POSITION LIGHT 2,OBJECT POSITION X(1),OBJECT POSITION Y(1)+5,OBJECT POSITION Z(1)+5
TEXT 0,50,"PLAYER'S TORCH RANGE:"+STR$(LIGHT RANGE(2))
REM Show where the boxes are
POSITION OBJECT 90,LIGHT POSITION X(2),LIGHT POSITION Y(2),LIGHT POSITION Z(2)
POSITION OBJECT 91,LIGHT POSITION Z(1),LIGHT POSITION Y(1),LIGHT POSITION Z(1)
POSITION OBJECT 92,LIGHT POSITION X(3),LIGHT POSITION Y(3), LIGHT POSITION Z(3)
REM Next light...
SET LIGHT RANGE 3,(400)+600
RETURN

Sub_Debug:
plyrx=OBJECT POSITION X(1)
plyry=OBJECT POSITION Y(1)
plyrz=OBJECT POSITION Z(1)
TEXT 0,0,"FPS:"+STR$(SCREEN FPS())
TEXT 0,10,"Polys:"+STR$(STATISTIC(1))
TEXT 0,20,"PLAYER POSITION X:"+STR$(plyrx)
TEXT 0,30,"PLAYER POSITION Y:"+STR$(plyry)
TEXT 0,40,"PLAYER POSITION Z"+STR$(plyrz)
CENTER TEXT OBJECT SCREEN X(91),OBJECT SCREEN Y(91)-70,"LIGHT1"
CENTER TEXT OBJECT SCREEN X(90),OBJECT SCREEN Y(90)-70,"LIGHT2"
CENTER TEXT OBJECT SCREEN X(92),OBJECT SCREEN Y(92)-70,"LIGHT3"
RETURN

+ Code Snippet

REM Project: DungeonGamev1
REM Created: 5/21/2007 5:25:10 AM
REM
REM ***** Main Source File *****
REM Dungeon Game remade

REM Initialize
SYNC ON : HIDE MOUSE
REM AA
LOAD DLL "user32.dll",1
   Sw=CALL DLL(1,"GetSystemMetrics",0)
   Sh=CALL DLL(1,"GetSystemMetrics",1)
DELETE DLL 1
SET DISPLAY MODE Sw,Sh,32,0
REM Define our player's Health
plyrhealth=100
REM Call Subroutines out of loop(so that they wont be done over and over and crash the program or generate an error)
GOSUB Sub_Load
REM Main Loop
DO
   REM Call other Subroutines
   GOSUB Sub_Plyr_Actions
   GOSUB Sub_AI
   GOSUB Sub_Collision
   GOSUB Sub_Debug
   GOSUB Sub_World
   CONTROL CAMERA USING ARROWKEYS 0,3,2
   SYNC
LOOP

REM Handle loading of objects and textures
Sub_Load:
REM Our Player's object
LOAD OBJECT "Media\Knight\H-Knight-Idle.x",1
REM Turn off autocam
AUTOCAM OFF
REM Position the object
POSITION OBJECT 1,-3,-98,-550
REM This guy is way too small
SCALE OBJECT 1,5000,5000,5000
REM Time to rotate the player's object around so that you can opnly see his back
YROTATE OBJECT 1,180
REM Append Walking animation to the first
APPEND OBJECT "Media\Knight\H-Knight-Attack1.x",1,25
REM Append Attacking animation to the first
APPEND OBJECT "Media\Knight\H-Knight-Move.x",1,50
REM Set the animations' play speed
SET OBJECT SPEED 1,30
REM Load the Room you will play in
LOAD OBJECT "Media\dungeongame gamewrold.x",2
REM Load the texture for the gameworld
LOAD IMAGE "Media\wall_U3_09.jpg",1
REM Load the impact animation to add to the first
APPEND OBJECT "Media\Knight\H-Knight-Impact.x",1,75
REM Make PLayer's object specular
SET OBJECT SPECULAR 1,RGB(255,0,0)
REM Make him real shiny
SET OBJECT SPECULAR POWER 1,2000
REM Texture the world with this image
TEXTURE OBJECT 2,1
REM Position the Camera
POSITION CAMERA 2,2,2
REM Make it dark
SET AMBIENT LIGHT 0
REM Set shadows on :)
SET SHADOW SHADING ON 1,-1,500,1
REM Loop the Idle animation
LOOP OBJECT 1,0,24
REM Hide ambient light
HIDE LIGHT 0
REM Addin another light
MAKE LIGHT 1
COLOR LIGHT 1,RGB(255,0,0)
POSITION LIGHT 1,-3,-98,-520
REM And another...
MAKE LIGHT 2
COLOR LIGHT 2,RGB(255,255,255)
SET LIGHT RANGE 2,800
SET POINT LIGHT 2,OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)
REM another...
MAKE LIGHT 3
COLOR LIGHT 3,RGB(0,255,150)
POSITION LIGHT 3,-3,-98,-200
REM mAKE BOXES Show where light is
MAKE OBJECT BOX 90,10,10,10
COLOR OBJECT 90,RGB(255,255,255)
MAKE OBJECT BOX 91,10,10,10
COLOR OBJECT 91,RGB(255,255,255)
MAKE OBJECT BOX 92,10,10,10
REM Mess around with lighting
REM Add some fog, to make it eerie
FOG ON
FOG COLOR RGB(0,0,0)
REM Make limbs for collision
RETURN



REM Handle the Player's actions
Sub_Plyr_Actions:
REM Movement and animation code
IF KEYSTATE(17)=0 + KEYSTATE(31)=0 + KEYSTATE(30)=0 + KEYSTATE(32)=0 + MOUSECLICK()=0
   LOOP OBJECT 1,0,24
ENDIF
IF KEYSTATE(17)=1
   LOOP OBJECT 1,55,75
   MOVE OBJECT 1,-1
ENDIF
IF KEYSTATE(31)=1
   LOOP OBJECT 1,55,75
   MOVE OBJECT 1,1
ENDIF
IF KEYSTATE(30)=1
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)-1)
ENDIF
IF KEYSTATE(32)=1
   YROTATE OBJECT 1,WRAPVALUE(OBJECT ANGLE Y(1)+1)
ENDIF
IF MOUSECLICK()=1
   LOOP OBJECT 1,25,49
ENDIF
IF INKEY$()="+"
   SET LIGHT RANGE 2,LIGHT RANGE(2)+1
ENDIF
IF INKEY$()="-"
   SET LIGHT RANGE 2,LIGHT RANGE(2)-1
ENDIF
RETURN



REM Handle the Artificial Intelligience
Sub_AI:
RETURN




REM Handle Collision
Sub_Collision:
RETURN



Sub_World:
REM First light...(eerie red 1)
SET LIGHT RANGE 1,RND(400)+600
REM POSITION 2ND LIGHT TO PLAYER(TORCH)
POSITION LIGHT 2,OBJECT POSITION X(1),OBJECT POSITION Y(1)+5,OBJECT POSITION Z(1)+5
TEXT 0,50,"PLAYER'S TORCH RANGE:"+STR$(LIGHT RANGE(2))
REM Show where the boxes are
POSITION OBJECT 90,LIGHT POSITION X(2),LIGHT POSITION Y(2),LIGHT POSITION Z(2)
POSITION OBJECT 91,LIGHT POSITION Z(1),LIGHT POSITION Y(1),LIGHT POSITION Z(1)
POSITION OBJECT 92,LIGHT POSITION X(3),LIGHT POSITION Y(3), LIGHT POSITION Z(3)
REM Next light...
SET LIGHT RANGE 3,(400)+600
RETURN


Sub_Debug:
plyrx=OBJECT POSITION X(1)
plyry=OBJECT POSITION Y(1)
plyrz=OBJECT POSITION Z(1)
TEXT 0,0,"FPS:"+STR$(SCREEN FPS())
TEXT 0,10,"Polys:"+STR$(STATISTIC(1))
TEXT 0,20,"PLAYER POSITION X:"+STR$(plyrx)
TEXT 0,30,"PLAYER POSITION Y:"+STR$(plyry)
TEXT 0,40,"PLAYER POSITION Z"+STR$(plyrz)
CENTER TEXT OBJECT SCREEN X(91),OBJECT SCREEN Y(91)-70,"LIGHT1"
CENTER TEXT OBJECT SCREEN X(90),OBJECT SCREEN Y(90)-70,"LIGHT2"
CENTER TEXT OBJECT SCREEN X(92),OBJECT SCREEN Y(92)-70,"LIGHT3"
RETURN

Attachments

Login to view attachments

Back to top

Profile PM Email

jason p sage

17

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 27th Jun 2007 16:53 Edited at: 27th Jun 2007 16:58

Link

Well Wait - Careful. I just want to make sure I have everything. Do not post DBPro included stuff - I'll have that.

Just make sure I have the gameworld file and anything else not part of DBPro. I just want to be able to see what you see quickly - and then attack the code with a solution that helps you out with the actual problem and maybe teaches a principle you can apply to other things for this platform (meaning DBPro programming).

There are multiple ways to skin this cat in other languages - but I'll stay focused on the task at hand here.

The MAIN priniciple (I'll know better when I have your code working on my system) is kind of like the old school phrase "Time Sharing" - except we are using a SINGLE thread - so we need to emulate that. The code I'll write will demonstrate it to some degree or another I'm sure - but this is important to learn in principle more than anything because any cool things that happen in your game need to usually be worked in like this.

Got to go for now. Get any media I'll need in here online

(Except the DBPro stocking stuffers )

[edit]
Well, I see you did now - I didn't notice the download icon. I already had the knight - I have DarkMAtter 1. I Think I want #2 though - more space stuff and vehicles etc.

Ok. I just don't have Gameworld.
I'll revisit this tonight.

Know way to many languages - Master of none

Back to top

Profile PM Email Website

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 28th Jun 2007 01:23

Link

Oh ok I was gone all day

. The gameworld isn't very good and to see you will have to first turn up the ambient light and unhide the ambient light, and I also have control camera using arrowkeys on for devlopment to see how to fix the lighting and stuff. To see the Charactar, you must turn the camera around to the back room(yes I do notice the crack between the two rooms...maybe coloring the backdrop black will hide it...). You should be good from there.

Now here's the gameworld(dungeongame gamewrold.x)
As you can see it's done in 3DWS and It's not very good because, um, I modelled it...

And I don't have collision in yet.

Attachments

Login to view attachments

Back to top

Profile PM Email

jason p sage

17

Years of Service

User Offline

Joined: 10th Jun 2007

Location: Ellington, CT USA

Posted: 28th Jun 2007 04:53 Edited at: 7th Aug 2007 23:32

Link

Ahhh --- Ok - I took some major liberties in structuring your code for a few reasons.

1: Readability - though your code wasn't ugly - just a little cryptic due to hardcoded object id's

2: Gosub Crazy. Gosub is not really the "way to go" - typiccally functions are better - however dbpro has a few quirks on how you have to init types and (I think also ) constants outside of a function. so Gosub is good for making that happen without needing all that init stuff at the very top of your file.

3: Utilized some code I wrote for polling input - some of it borrowed from here some not - makes reading the code concerning input easier - not more KEYSTATE(30) - Now: KeyState(cnScanCode_A)

4: Separated user input form actions. Not the way I do it - but almost. This is a little simpler to read than what I do. This should make some sense though when you see the logic for how to move the guy - the code doesn't read "if this key then rotate" ... it reads more like "grPlayer.bGoLeft = keystate(cnScanCode_W)"
then in the "PlayerActions" it takes all the keypresses into account to decide how to carry on.

5: Made MOST of your hardcoded numbers dynamic - for object player anyway - I gave you code that allows you to get "ID numbers" the same way for all "things" in DBPro - like objects, terrain, matrix, images etc.

Well - here is the code. I think you will be quite pleased.

BTW - This wasn't a half hour of work - more like 3-4

Went from 156 lines of code to 671

There are quite a few spacer lines - but you'll see. I also tried to comment liberally for your sake - learning from etc.

`------------------------------------------------------------------------------------------
` Author: Existance
` Greets: "Sage"
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
` Prepare for Battle
`------------------------------------------------------------------------------------------
GOSUB InitializeApplication
PrepareDisplay()
LoadMedia()
PlayerReset()
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
Rem Main Loop
`------------------------------------------------------------------------------------------
Do
   PollUserInput()
   PlayerActions()
   AI()
   Collision()
   Debug()
   UpdateWorld()
   CONTROL CAMERA USING ARROWKEYS 0,3,2
   SYNC
   UpdateTime()
LOOP
END
`------------------------------------------------------------------------------------------

InitializeApplication:
` Important for easier to read code. 
` remember a complex game requires COMPLEX (LOTS) of code!
` Readability jockeys for position with "gamespeed"
` because the best code in the world is kind stuck if you can;t
` go back a month later and fix/modify/enhance it easily.
  #CONSTANT TRUE=1
  #CONSTANT FALSE = 0

` Also GOSUB (in dbpro) is best for things that like initializing 
` constants and types, not routines so much because generally speaking 
` GOSUB is an "old school" command that is not normally recommended at all. 
` You can usually accomplish the same thing via functions. A reason that
` functions are more pliable is because when you use a non-global variable
` in them - its like they don't exist to the rest of the application.
` In fact - each time you call the function - its like those variables 
` never existed.

`---------------------------------------------------------------------
  ` Related to GetNewID() Function 
  `---------------------------------------------------------------------
  #CONSTANT cnObject =1
  #CONSTANT cnCamera =2
  #CONSTANT cnMatrix =3
  #CONSTANT cnBitmap =4
  #CONSTANT cnImage =5
  #CONSTANT cnLight =6
  #CONSTANT cnMusic =7
  #CONSTANT cnAnimation =8
  #CONSTANT cnSound =9
  #CONSTANT cnMemBlock = 10
  #CONSTANT cnTerrain=11

` Keyboard ScanCodes
  #CONSTANT cnScanCode_A=30
  #CONSTANT cnScanCode_B=48
  #CONSTANT cnScanCode_C=46
  #CONSTANT cnScanCode_D=32
  #CONSTANT cnScanCode_E=18
  #CONSTANT cnScanCode_F=33
  #CONSTANT cnScanCode_G=34
  #CONSTANT cnScanCode_H=35
  #CONSTANT cnScanCode_I=23
  #CONSTANT cnScanCode_J=36
  #CONSTANT cnScanCode_K=37
  #CONSTANT cnScanCode_L=38
  #CONSTANT cnScanCode_M=50
  #CONSTANT cnScanCode_N=49
  #CONSTANT cnScanCode_O=24
  #CONSTANT cnScanCode_P=25
  #CONSTANT cnScanCode_Q=16
  #CONSTANT cnScanCode_R=19
  #CONSTANT cnScanCode_S=31
  #CONSTANT cnScanCode_T=20
  #CONSTANT cnScanCode_U=22
  #CONSTANT cnScanCode_V=47
  #CONSTANT cnScanCode_W=17
  #CONSTANT cnScanCode_X=45
  #CONSTANT cnScanCode_Y=21
  #CONSTANT cnScanCode_Z=44
  #CONSTANT cnScanCode_F1=59
  #CONSTANT cnScanCode_F2=60
  #CONSTANT cnScanCode_F3=61
  #CONSTANT cnScanCode_F4=62
  #CONSTANT cnScanCode_F5=63
  #CONSTANT cnScanCode_F6=64
  #CONSTANT cnScanCode_F7=65
  #CONSTANT cnScanCode_F8=66
  #CONSTANT cnScanCode_F9=67
  #CONSTANT cnScanCode_F10=68
  #CONSTANT cnScanCode_LeftSingleQuote=41
  #CONSTANT cnScanCode_1=2
  #CONSTANT cnScanCode_2=3
  #CONSTANT cnScanCode_3=4
  #CONSTANT cnScanCode_4=5
  #CONSTANT cnScanCode_5=6
  #CONSTANT cnScanCode_6=7
  #CONSTANT cnScanCode_7=8
  #CONSTANT cnScanCode_8=9
  #CONSTANT cnScanCode_9=10
  #CONSTANT cnScanCode_0=11
  #CONSTANT cnScanCode_Minus=12
  #CONSTANT cnScanCode_Equal=13
  #CONSTANT cnScanCode_BackSpace=14
  #CONSTANT cnScanCode_Tab=15
  #CONSTANT cnScanCode_LeftBracket=26
  #CONSTANT cnScanCode_RightBracket=27
  #CONSTANT cnScanCode_BackSlash=43
  #CONSTANT cnScanCode_Enter=28
  #CONSTANT cnScanCode_Caps=58
  #CONSTANT cnScanCode_LShift=42
  #CONSTANT cnScanCode_RShift=54
  #CONSTANT cnScanCode_SemiColon=39
  #CONSTANT cnScanCode_SingleQuote=40
  #CONSTANT cnScanCode_Comma=51
  #CONSTANT cnScanCode_Period=52
  #CONSTANT cnScanCode_ForwardSlash=53
  #CONSTANT cncanCode_LWinKey=219
  #CONSTANT cnScanCode_LAlt=56
  #CONSTANT cnScanCode_RAlt=184
  #CONSTANT cnScanCode_RWinKey=220
  #CONSTANT cnScanCode_WinMenu=221
  #CONSTANT cnScanCode_LCntl=29
  #CONSTANT cnScanCode_RCntl=157
  #CONSTANT cnScanCode_PrintScreen=183
  #CONSTANT cnScanCode_ScollLock=70
  #CONSTANT cnScanCode_Pause=197
  #CONSTANT cnScanCode_Ins=210
  #CONSTANT cnScanCode_Del=211
  #CONSTANT cnScanCode_Home=199
  #CONSTANT cnScanCode_End=207
  #CONSTANT cnScanCode_PgUp=201
  #CONSTANT cnScanCode_PgDn=209
  #CONSTANT cnScanCode_UpArrow=200
  #CONSTANT cnScanCode_DownArrow=208
  #CONSTANT cnScanCode_LeftArrow=203
  #CONSTANT cnScanCode_RightArrow=205
  #CONSTANT cnScanCode_NumLock=69
  #CONSTANT cnScanCode_NumForwardSlash=181
  #CONSTANT cnScanCode_NumStar=55
  #CONSTANT cnScanCode_NumMinus=74
  #CONSTANT cnScanCode_NumPlus=78
  #CONSTANT cnScanCode_NumEnter=156
  #CONSTANT cnScanCode_NumPeriod=83
  #CONSTANT cnScanCode_Num1=79
  #CONSTANT cnScanCode_Num2=80
  #CONSTANT cnScanCode_Num3=81
  #CONSTANT cnScanCode_Num4=75
  #CONSTANT cnScanCode_Num5=76
  #CONSTANT cnScanCode_Num6=77
  #CONSTANT cnScanCode_Num7=71
  #CONSTANT cnScanCode_Num8=72
  #CONSTANT cnScanCode_Num9=73
  #CONSTANT cnScanCode_Num0=82
  #CONSTANT cnScanCode_SpaceBar = 57

` Configure globals in a type so less likely to TYPE them wrong when editing code
  ` Use name rtGlobal because thie is a Record Type of Globals
  TYPE rtGlobals
    iTimer as integer
    iTimerLast as integer
    iTimerElapsed as Integer
    objLevel as integer
  ENDTYPE
  ` Use name "G" for shorthand for grGlobal or "Global Record Global"
  GLOBAL G as rtGlobals 
  ` Avoid the Zero problem of timer starting (Midmight COULD cause a bug when timer goes back to zero)
  ` We are priming the timer "pump"
  g.iTimerLast = g.iTimer-1
  g.iTimer = Timer()
  
  TYPE rtPlayer
    obj as integer
    iHealth as integer
    bAttacking as boolean
    bWalking as Boolean
    bIdle as boolean
    `--------------------
    ` I'm using this as my "player Actions Input polling
    ` So its all in the same "record" or "type"
    bGoForward as boolean
    bGoBackward as boolean
    bGoLeft as boolean
    bGoRight as boolean
    bGoAttack as boolean
  ENDTYPE
  GLOBAL grPlayer as rtPlayer

return
`------------------------------------------------------------------------------------------

` -----------------------------------------------------------------------------------------------------------------------
` Note this works great but I could see it slowing down If you had ALOT of objects of a particular Type
` and trying to Add another of the Type. That's what the GetNewID_StartAt function is all about. If you KNOW,
` For example you have a 1000 items in a scene, and Now need to be able to Add and Remove the bad guys
` QUICKLY during the game, use this routine - and specify a STARTHERE value that is greater than your highest object,
` or just pick a number out in Left field. Alternatively, If you wanted to reserve #'s 1-100, say for bad guy OBJECTs,
` Call all your other creation like: GetNewID_StartAt(cnObject,101) - so your reserved 1-100 is Not used.
Function GetNewID(p_iType)
` -----------------------------------------------------------------------------------------------------------------------
  iNewId = GetNewID_StartAt(p_iType, 1)
ENDFUNCTION iNewID
` -----------------------------------------------------------------------------------------------------------------------

` -----------------------------------------------------------------------------------------------------------------------
` Same As GetNewID(p_itype) With control of WHERE the Function starts seeking out an am empty slot.
` NOTE: To Wrap Around Logic is in Place. Searching Stops If a free "thing" is Not available by the Time the
` counter (iSeeker) hits 65535. (Hardcoded)
Function GetNewID_StartAt(p_iType, p_iStartHere)
` -----------------------------------------------------------------------------------------------------------------------
  iSeeker=p_iStartHere
  iNewID =0
  Select p_itype
  Case cnObject:
    repeat
      inc iSeeker
      If OBJECT EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnBitmap:
    repeat
      inc iSeeker
      If bitmap EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnCamera:
    repeat
      inc iSeeker
      If (camera EXIST(iSeeker)=0) Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnTerrain:
    repeat
      inc iSeeker
      If Terrain EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnSound:
    repeat
      inc iSeeker
      If sound EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnMusic:
    repeat
      inc iSeeker
      If music EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnImage:
    repeat
      inc iSeeker
      If image EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnLight:
    repeat
      inc iSeeker
      If light EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnAnimation:
    repeat
      inc iSeeker
      If animation EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnMemblock:
    repeat
      inc iSeeker
      If memblock EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnMatrix:
    repeat
      inc iSeeker
      If matrix EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  endselect
ENDFUNCTION iNewID
` -----------------------------------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
Function PrepareDisplay()
`------------------------------------------------------------------------------------------
  SYNC On : Hide MOUSE
  Rem AA
  LOAD DLL "user32.dll",1
     Sw=Call DLL(1,"GetSystemMetrics",0)
     Sh=Call DLL(1,"GetSystemMetrics",1)
  Delete DLL 1
  Set DISPLAY MODE Sw,Sh,32,0
  CLS
  SET CURSOR 1,1
  Print "Loading Media..."
  sync
ENDFUNCTION
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
Rem Handle loading of objects and textures
`------------------------------------------------------------------------------------------
function LoadMedia()
`------------------------------------------------------------------------------------------
  Rem Our Player's object
  grPlayer.obj = GetNewID(cnObject)
  LOAD OBJECT "MediaKnightH-Knight-Idle.x",grPlayer.obj
  Rem Turn off autocam
  AUTOCAM OFF
  Rem Position the object
  POSITION OBJECT grPlayer.obj,-3,-98,-550
  Rem This guy is way too small
  Scale OBJECT grPlayer.obj,5000,5000,5000
  Rem Time to rotate the player's object around so that you can opnly see his back
  YROTATE OBJECT grPlayer.obj,180
  Rem Append Walking animation to the first
  Append OBJECT "MediaKnightH-Knight-Attack1.x",grPlayer.obj,25
  Rem Append Attacking animation to the first
  Append OBJECT "MediaKnightH-Knight-Move.x",grPlayer.obj,50
  Rem Set the animations' play speed
  Set OBJECT SPEED grPlayer.obj,30
  
  Rem Load the Room you will play in
  g.objLevel = GetNewID(cnObject)
  LOAD OBJECT "Mediadungeongame gamewrold.x",g.objLevel
  Rem Load the texture for the gameworld
  ` Img is temporary because we are in a function. Its not declared anywhere 
  ` else as a global so we are good. Identifying globals versus local variables
  ` is important and is why I have a "g" in front of my globals' names. 
  img = GetNewID(cnImage)   
  LOAD IMAGE "Mediawall_U3_09.jpg",img
  Rem Load the impact animation to add to the first
  Append OBJECT "MediaKnightH-Knight-Impact.x",grPlayer.obj,75
  Rem Make PLayer's object specular
  Set OBJECT SPECULAR grPlayer.obj,RGB(255,0,0)
  Rem Make him real shiny
  Set OBJECT SPECULAR POWER grPlayer.obj,2000
  Rem Texture the world with this image
  TEXTURE OBJECT g.objLevel,img
  Rem Position the Camera
  POSITION CAMERA 2,2,2
  Rem Make it dark
  Set AMBIENT LIGHT 0
  Rem Set shadows on :)
  Set SHADOW SHADING On grPlayer.obj,-1,500,1

` Do This later 
  `````Rem Loop the Idle animation
  `````LOOP OBJECT 1,0,24

Rem Addin another light
  MAKE LIGHT 1
  COLOR LIGHT 1,RGB(255,0,0)
  POSITION LIGHT 1,-3,-98,-520
  Rem And another...
  MAKE LIGHT 2
  COLOR LIGHT 2,RGB(255,255,255)
  Rem another...
  MAKE LIGHT 3
  COLOR LIGHT 3,RGB(0,255,150)
  POSITION LIGHT 3,-3,-98,-200
  Rem Show where light is
  
  ` These hardcoded object numbers are not the best idea.
  ` Try to implement the GetNewID function I tossed ya.
  ` Dynamic is better - assign to variable name that makes sense
  ` to make code easier to read PLUS never worry what number
  ` you used for what again. When you need a range of object numbers for
  ` looping purposes - see the GetNewID_StartAt() function I gave ya
  ` so you can allocate "fomr this # to that #" say for enemies, then
  ` one loop can handle all of them easier... same as using object #1-10 for 
  ` bad guys.
  MAKE OBJECT BOX 90,10,10,10
  POSITION OBJECT 90,LIGHT POSITION X(2),LIGHT POSITION Y(2),LIGHT POSITION Z(2)
  MAKE OBJECT BOX 91,10,10,10
  POSITION OBJECT 91,LIGHT POSITION Z(1),LIGHT POSITION Y(1),LIGHT POSITION Z(1)
  MAKE OBJECT BOX 92,10,10,10
  POSITION OBJECT 92,LIGHT POSITION X(3),LIGHT POSITION Y(3), LIGHT POSITION Z(3)
  Rem Mess around with lighting
  Hide LIGHT 0
  Rem Add some fog, to make it eerie
  FOG On
  FOG COLOR RGB(0,0,0)
  Rem Make limbs for collision
ENDFUNCTION
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function PlayerIdle()
`------------------------------------------------------------------------------------------
    Rem Loop the Idle animation
  LOOP OBJECT grPlayer.obj,0,24
endfunction
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function PlayerAttack()
`------------------------------------------------------------------------------------------
  play object grPlayer.obj,25,49
endfunction
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function PlayerWalking()
`------------------------------------------------------------------------------------------
  LOOP OBJECT grPlayer.obj,55,75
endfunction
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function PlayerReset()
  grPlayer.iHealth=100
  grPlayer.bAttacking = FALSE
  grPlayer.bWalking = FALSE
  grPlayer.bIdle = true
  PlayerIdle()
endfunction    
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function PollUserInput()
`------------------------------------------------------------------------------------------
  grPlayer.bGoForward = keystate(cnScanCode_W)
  grPlayer.bGoBackward =  keystate(cnScanCode_S)
  grPlayer.bGoLeft =  keystate(cnScanCode_A)
  grPlayer.bGoRight =  keystate(cnScanCode_D)
  iMouseclick=MouseClick()
  grPlayer.bGoAttack =  ((iMouseClick and 1)=1) 
  ` Sample button 2: ((iMouseClick and 2)=2)
  ` Sample button 3: ((iMouseClick and 4)=4)
  ` Sample button 4: ((iMouseClick and 8)=8)
  ` You put the whole thing in paren so that if TRUE the result that goes
  ` in the Boolean (such as bGoAttack becomes 0 or 1 .. or TRUE or FALSE
  
   ` Note How we only polled the hardware for each desired thing ONCE
   ` Now we have the info - we use the variables - not multiple calls to KEYSTATE
   ` to ask the same question again. Could throw off logic if value changes from one KEYSTATE 
   ` check to the next. Here we "snapshot" what the user was doing for this pass through
   ` the loop and we run with it.
   
   ` In the player Actions we will REACT to it and work in the attack, the walking etc.
endfunction
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function PlayerActions()
  ` Reset animations Appropriately
  
  ` Logic dictates in this example that ATTACKING supercedes everything, then walking, 
  ` then idle.
  bSomethingHappening = FALSE
  
  ` turn off attacking if attacking but the animation is done
  if grPlayer.bAttacking 
    if not object playing (grPlayer.obj) 
      grPlayer.bAttacking = false
    else
      bSomethingHappening=true
    endif
  endif
    
  ` User want to be Attacking?
  if (grPlayer.bGoAttack)
    bSomethingHappening = true
    ` Are we already Attacking?
    text 200,200,"ATTACK"
    if not grPlayer.bAttacking
      grPlayer.bIdle = False
      grPlayer.bWalking = false
      grPlayer.bAttacking = true
      PlayerAttack()
    endif
  endif       
  
  ` Now lets see if we are walking Forward
  if (grPlayer.bGoForward) or (grPlayer.bGoBackward) or (grPlayer.bGoLeft) or (grPlayer.bGoRight) 
    ` Let's allow guy to still move WHILE Attacking
    bSomethingHappening=true
    if (not grPlayer.bAttacking) 
      grPlayer.bIdle = false
      grPlayer.bWalking=true
      PlayerWalking()
    endif
        
    if (grPlayer.bGoForward)
      Move OBJECT grPlayer.obj,-1 
    endif     
    
    if (grPlayer.bGoBackward)
      Move OBJECT grPlayer.obj,1 
    endif
    
    if (grPlayer.bGoLefT)
      YROTATE OBJECT grPlayer.obj,WRAPVALUE(OBJECT ANGLE Y(grPlayer.obj)-1)         
    endif
      
    if (grPlayer.bGoRight)
      YROTATE OBJECT grPlayer.obj,WRAPVALUE(OBJECT ANGLE Y(grPlayer.obj)+1)         
    endif
  endif
  
  if (not bSomethingHappening) 
    if not grPlayer.bIdle
      grPlayer.bIdle=true
      PlayerIdle()
    endif
    grPlayer.bAttacking = false
    grPlayer.bWalking = false
  endif
ENDFUNCTION
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function UpdateWorld()
`------------------------------------------------------------------------------------------
  Rem First light...(eerie red 1)
  Set LIGHT RANGE 1,Rnd(400)+600
  Rem 2nd(plyr's torch)
  Set LIGHT RANGE 1,200
  Rem POSITION 2ND LIGHT TO PLAYER(TORCH)
  POSITION LIGHT 2,OBJECT POSITION X(grPlayer.obj),OBJECT POSITION Y(grPlayer.obj)+5,OBJECT POSITION Z(grPlayer.obj)+5
  TEXT 0,50,"PLAYER'S TORCH RANGE:"+Str$(LIGHT RANGE(2))
  Rem Next light...
  Set LIGHT RANGE 3,(400)+600
ENDFUNCTION
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function Debug()
`------------------------------------------------------------------------------------------
  plyrx=OBJECT POSITION X(grPlayer.obj)
  plyry=OBJECT POSITION Y(grPlayer.obj)
  plyrz=OBJECT POSITION Z(grPlayer.obj)
  TEXT 0,0,"FPS:"+Str$(SCREEN FPS())
  TEXT 0,10,"Polys:"+Str$(STATISTIC(1))
  TEXT 0,20,"PLAYER POSITION X:"+Str$(plyrx)
  TEXT 0,30,"PLAYER POSITION Y:"+Str$(plyry)
  TEXT 0,40,"PLAYER POSITION Z"+Str$(plyrz)
  TEXT 0,150,"grPlayer.bIdle:"+Str$(grPlayer.bIdle)
  TEXT 0,160,"grPlayer.bWalking:"+Str$(grPlayer.bWalking)
  TEXT 0,170,"grPlayer.bAttacking:"+Str$(grPlayer.bAttacking)
  TEXT 0,180,"grPlayer.bGoForward:"+Str$(grPlayer.bGoForward)
  TEXT 0,190,"grPlayer.bGoBackward:"+Str$(grPlayer.bGoBackward)
  TEXT 0,200,"grPlayer.bGoLeft:"+Str$(grPlayer.bGoLeft)
  TEXT 0,210,"grPlayer.bGoRight:"+Str$(grPlayer.bGoRight)
  TEXT 0,220,"grPlayer.bGoAttack:"+Str$(grPlayer.bGoAttack)

CENTER TEXT OBJECT SCREEN X(91),OBJECT SCREEN Y(91)-70,"LIGHT1"
  CENTER TEXT OBJECT SCREEN X(90),OBJECT SCREEN Y(90)-70,"LIGHT2"
  CENTER TEXT OBJECT SCREEN X(92),OBJECT SCREEN Y(92)-70,"LIGHT3"
endfunction
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function UpdateTime()
`------------------------------------------------------------------------------------------
  g.iTimerLast = g.iTimer
  g.iTimer = Timer()
  g.iTimerElapsed = g.iTimer - g.iTimerLast
endfunction  
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
Rem Handle the Artificial Intelligience
`------------------------------------------------------------------------------------------
function AI()
`------------------------------------------------------------------------------------------
endfunction
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
Rem Handle Collision
`------------------------------------------------------------------------------------------
function Collision()
`------------------------------------------------------------------------------------------
endfunction
`------------------------------------------------------------------------------------------

+ Code Snippet

`------------------------------------------------------------------------------------------
` Author: Existance
` Greets: "Sage"
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
` Prepare for Battle
`------------------------------------------------------------------------------------------
GOSUB InitializeApplication
PrepareDisplay()
LoadMedia()
PlayerReset()
`------------------------------------------------------------------------------------------


`------------------------------------------------------------------------------------------
Rem Main Loop
`------------------------------------------------------------------------------------------
Do
   PollUserInput()
   PlayerActions()
   AI()
   Collision()
   Debug()
   UpdateWorld()
   CONTROL CAMERA USING ARROWKEYS 0,3,2
   SYNC
   UpdateTime()
LOOP
END
`------------------------------------------------------------------------------------------
















InitializeApplication:
` Important for easier to read code. 
` remember a complex game requires COMPLEX (LOTS) of code!
` Readability jockeys for position with "gamespeed"
` because the best code in the world is kind stuck if you can;t
` go back a month later and fix/modify/enhance it easily.
  #CONSTANT TRUE=1
  #CONSTANT FALSE = 0

` Also GOSUB (in dbpro) is best for things that like initializing 
` constants and types, not routines so much because generally speaking 
` GOSUB is an "old school" command that is not normally recommended at all. 
` You can usually accomplish the same thing via functions. A reason that
` functions are more pliable is because when you use a non-global variable
` in them - its like they don't exist to the rest of the application.
` In fact - each time you call the function - its like those variables 
` never existed.

  `---------------------------------------------------------------------
  ` Related to GetNewID() Function 
  `---------------------------------------------------------------------
  #CONSTANT cnObject =1
  #CONSTANT cnCamera =2
  #CONSTANT cnMatrix =3
  #CONSTANT cnBitmap =4
  #CONSTANT cnImage =5
  #CONSTANT cnLight =6
  #CONSTANT cnMusic =7
  #CONSTANT cnAnimation =8
  #CONSTANT cnSound =9
  #CONSTANT cnMemBlock = 10
  #CONSTANT cnTerrain=11




  ` Keyboard ScanCodes
  #CONSTANT cnScanCode_A=30
  #CONSTANT cnScanCode_B=48
  #CONSTANT cnScanCode_C=46
  #CONSTANT cnScanCode_D=32
  #CONSTANT cnScanCode_E=18
  #CONSTANT cnScanCode_F=33
  #CONSTANT cnScanCode_G=34
  #CONSTANT cnScanCode_H=35
  #CONSTANT cnScanCode_I=23
  #CONSTANT cnScanCode_J=36
  #CONSTANT cnScanCode_K=37
  #CONSTANT cnScanCode_L=38
  #CONSTANT cnScanCode_M=50
  #CONSTANT cnScanCode_N=49
  #CONSTANT cnScanCode_O=24
  #CONSTANT cnScanCode_P=25
  #CONSTANT cnScanCode_Q=16
  #CONSTANT cnScanCode_R=19
  #CONSTANT cnScanCode_S=31
  #CONSTANT cnScanCode_T=20
  #CONSTANT cnScanCode_U=22
  #CONSTANT cnScanCode_V=47
  #CONSTANT cnScanCode_W=17
  #CONSTANT cnScanCode_X=45
  #CONSTANT cnScanCode_Y=21
  #CONSTANT cnScanCode_Z=44
  #CONSTANT cnScanCode_F1=59
  #CONSTANT cnScanCode_F2=60
  #CONSTANT cnScanCode_F3=61
  #CONSTANT cnScanCode_F4=62
  #CONSTANT cnScanCode_F5=63
  #CONSTANT cnScanCode_F6=64
  #CONSTANT cnScanCode_F7=65
  #CONSTANT cnScanCode_F8=66
  #CONSTANT cnScanCode_F9=67
  #CONSTANT cnScanCode_F10=68
  #CONSTANT cnScanCode_LeftSingleQuote=41
  #CONSTANT cnScanCode_1=2
  #CONSTANT cnScanCode_2=3
  #CONSTANT cnScanCode_3=4
  #CONSTANT cnScanCode_4=5
  #CONSTANT cnScanCode_5=6
  #CONSTANT cnScanCode_6=7
  #CONSTANT cnScanCode_7=8
  #CONSTANT cnScanCode_8=9
  #CONSTANT cnScanCode_9=10
  #CONSTANT cnScanCode_0=11
  #CONSTANT cnScanCode_Minus=12
  #CONSTANT cnScanCode_Equal=13
  #CONSTANT cnScanCode_BackSpace=14
  #CONSTANT cnScanCode_Tab=15
  #CONSTANT cnScanCode_LeftBracket=26
  #CONSTANT cnScanCode_RightBracket=27
  #CONSTANT cnScanCode_BackSlash=43
  #CONSTANT cnScanCode_Enter=28
  #CONSTANT cnScanCode_Caps=58
  #CONSTANT cnScanCode_LShift=42
  #CONSTANT cnScanCode_RShift=54
  #CONSTANT cnScanCode_SemiColon=39
  #CONSTANT cnScanCode_SingleQuote=40
  #CONSTANT cnScanCode_Comma=51
  #CONSTANT cnScanCode_Period=52
  #CONSTANT cnScanCode_ForwardSlash=53
  #CONSTANT cncanCode_LWinKey=219
  #CONSTANT cnScanCode_LAlt=56
  #CONSTANT cnScanCode_RAlt=184
  #CONSTANT cnScanCode_RWinKey=220
  #CONSTANT cnScanCode_WinMenu=221
  #CONSTANT cnScanCode_LCntl=29
  #CONSTANT cnScanCode_RCntl=157
  #CONSTANT cnScanCode_PrintScreen=183
  #CONSTANT cnScanCode_ScollLock=70
  #CONSTANT cnScanCode_Pause=197
  #CONSTANT cnScanCode_Ins=210
  #CONSTANT cnScanCode_Del=211
  #CONSTANT cnScanCode_Home=199
  #CONSTANT cnScanCode_End=207
  #CONSTANT cnScanCode_PgUp=201
  #CONSTANT cnScanCode_PgDn=209
  #CONSTANT cnScanCode_UpArrow=200
  #CONSTANT cnScanCode_DownArrow=208
  #CONSTANT cnScanCode_LeftArrow=203
  #CONSTANT cnScanCode_RightArrow=205
  #CONSTANT cnScanCode_NumLock=69
  #CONSTANT cnScanCode_NumForwardSlash=181
  #CONSTANT cnScanCode_NumStar=55
  #CONSTANT cnScanCode_NumMinus=74
  #CONSTANT cnScanCode_NumPlus=78
  #CONSTANT cnScanCode_NumEnter=156
  #CONSTANT cnScanCode_NumPeriod=83
  #CONSTANT cnScanCode_Num1=79
  #CONSTANT cnScanCode_Num2=80
  #CONSTANT cnScanCode_Num3=81
  #CONSTANT cnScanCode_Num4=75
  #CONSTANT cnScanCode_Num5=76
  #CONSTANT cnScanCode_Num6=77
  #CONSTANT cnScanCode_Num7=71
  #CONSTANT cnScanCode_Num8=72
  #CONSTANT cnScanCode_Num9=73
  #CONSTANT cnScanCode_Num0=82
  #CONSTANT cnScanCode_SpaceBar = 57



  ` Configure globals in a type so less likely to TYPE them wrong when editing code
  ` Use name rtGlobal because thie is a Record Type of Globals
  TYPE rtGlobals
    iTimer as integer
    iTimerLast as integer
    iTimerElapsed as Integer
    objLevel as integer
  ENDTYPE
  ` Use name "G" for shorthand for grGlobal or "Global Record Global"
  GLOBAL G as rtGlobals 
  ` Avoid the Zero problem of timer starting (Midmight COULD cause a bug when timer goes back to zero)
  ` We are priming the timer "pump"
  g.iTimerLast = g.iTimer-1
  g.iTimer = Timer()
  
  TYPE rtPlayer
    obj as integer
    iHealth as integer
    bAttacking as boolean
    bWalking as Boolean
    bIdle as boolean
    `--------------------
    ` I'm using this as my "player Actions Input polling
    ` So its all in the same "record" or "type"
    bGoForward as boolean
    bGoBackward as boolean
    bGoLeft as boolean
    bGoRight as boolean
    bGoAttack as boolean
  ENDTYPE
  GLOBAL grPlayer as rtPlayer

return
`------------------------------------------------------------------------------------------








` -----------------------------------------------------------------------------------------------------------------------
` Note this works great but I could see it slowing down If you had ALOT of objects of a particular Type
` and trying to Add another of the Type. That's what the GetNewID_StartAt function is all about. If you KNOW,
` For example you have a 1000 items in a scene, and Now need to be able to Add and Remove the bad guys
` QUICKLY during the game, use this routine - and specify a STARTHERE value that is greater than your highest object,
` or just pick a number out in Left field. Alternatively, If you wanted to reserve #'s 1-100, say for bad guy OBJECTs,
` Call all your other creation like: GetNewID_StartAt(cnObject,101) - so your reserved 1-100 is Not used.
Function GetNewID(p_iType)
` -----------------------------------------------------------------------------------------------------------------------
  iNewId = GetNewID_StartAt(p_iType, 1)
ENDFUNCTION iNewID
` -----------------------------------------------------------------------------------------------------------------------


` -----------------------------------------------------------------------------------------------------------------------
` Same As GetNewID(p_itype) With control of WHERE the Function starts seeking out an am empty slot.
` NOTE: To Wrap Around Logic is in Place. Searching Stops If a free "thing" is Not available by the Time the
` counter (iSeeker) hits 65535. (Hardcoded)
Function GetNewID_StartAt(p_iType, p_iStartHere)
` -----------------------------------------------------------------------------------------------------------------------
  iSeeker=p_iStartHere
  iNewID =0
  Select p_itype
  Case cnObject:
    repeat
      inc iSeeker
      If OBJECT EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnBitmap:
    repeat
      inc iSeeker
      If bitmap EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnCamera:
    repeat
      inc iSeeker
      If (camera EXIST(iSeeker)=0) Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnTerrain:
    repeat
      inc iSeeker
      If Terrain EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnSound:
    repeat
      inc iSeeker
      If sound EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnMusic:
    repeat
      inc iSeeker
      If music EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnImage:
    repeat
      inc iSeeker
      If image EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnLight:
    repeat
      inc iSeeker
      If light EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnAnimation:
    repeat
      inc iSeeker
      If animation EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnMemblock:
    repeat
      inc iSeeker
      If memblock EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  Case cnMatrix:
    repeat
      inc iSeeker
      If matrix EXIST(iSeeker)=0 Then iNewID=iSeeker
    until (iNewID<>0) or (iSeeker>=65535)
  endcase           
  endselect
ENDFUNCTION iNewID
` -----------------------------------------------------------------------------------------------------------------------














`------------------------------------------------------------------------------------------
Function PrepareDisplay()
`------------------------------------------------------------------------------------------
  SYNC On : Hide MOUSE
  Rem AA
  LOAD DLL "user32.dll",1
     Sw=Call DLL(1,"GetSystemMetrics",0)
     Sh=Call DLL(1,"GetSystemMetrics",1)
  Delete DLL 1
  Set DISPLAY MODE Sw,Sh,32,0
  CLS
  SET CURSOR 1,1
  Print "Loading Media..."
  sync
ENDFUNCTION
`------------------------------------------------------------------------------------------








`------------------------------------------------------------------------------------------
Rem Handle loading of objects and textures
`------------------------------------------------------------------------------------------
function LoadMedia()
`------------------------------------------------------------------------------------------
  Rem Our Player's object
  grPlayer.obj = GetNewID(cnObject)
  LOAD OBJECT "MediaKnightH-Knight-Idle.x",grPlayer.obj
  Rem Turn off autocam
  AUTOCAM OFF
  Rem Position the object
  POSITION OBJECT grPlayer.obj,-3,-98,-550
  Rem This guy is way too small
  Scale OBJECT grPlayer.obj,5000,5000,5000
  Rem Time to rotate the player's object around so that you can opnly see his back
  YROTATE OBJECT grPlayer.obj,180
  Rem Append Walking animation to the first
  Append OBJECT "MediaKnightH-Knight-Attack1.x",grPlayer.obj,25
  Rem Append Attacking animation to the first
  Append OBJECT "MediaKnightH-Knight-Move.x",grPlayer.obj,50
  Rem Set the animations' play speed
  Set OBJECT SPEED grPlayer.obj,30
  
  Rem Load the Room you will play in
  g.objLevel = GetNewID(cnObject)
  LOAD OBJECT "Mediadungeongame gamewrold.x",g.objLevel
  Rem Load the texture for the gameworld
  ` Img is temporary because we are in a function. Its not declared anywhere 
  ` else as a global so we are good. Identifying globals versus local variables
  ` is important and is why I have a "g" in front of my globals' names. 
  img = GetNewID(cnImage)   
  LOAD IMAGE "Mediawall_U3_09.jpg",img
  Rem Load the impact animation to add to the first
  Append OBJECT "MediaKnightH-Knight-Impact.x",grPlayer.obj,75
  Rem Make PLayer's object specular
  Set OBJECT SPECULAR grPlayer.obj,RGB(255,0,0)
  Rem Make him real shiny
  Set OBJECT SPECULAR POWER grPlayer.obj,2000
  Rem Texture the world with this image
  TEXTURE OBJECT g.objLevel,img
  Rem Position the Camera
  POSITION CAMERA 2,2,2
  Rem Make it dark
  Set AMBIENT LIGHT 0
  Rem Set shadows on :)
  Set SHADOW SHADING On grPlayer.obj,-1,500,1

  ` Do This later 
  `````Rem Loop the Idle animation
  `````LOOP OBJECT 1,0,24

  Rem Addin another light
  MAKE LIGHT 1
  COLOR LIGHT 1,RGB(255,0,0)
  POSITION LIGHT 1,-3,-98,-520
  Rem And another...
  MAKE LIGHT 2
  COLOR LIGHT 2,RGB(255,255,255)
  Rem another...
  MAKE LIGHT 3
  COLOR LIGHT 3,RGB(0,255,150)
  POSITION LIGHT 3,-3,-98,-200
  Rem Show where light is
  
  ` These hardcoded object numbers are not the best idea.
  ` Try to implement the GetNewID function I tossed ya.
  ` Dynamic is better - assign to variable name that makes sense
  ` to make code easier to read PLUS never worry what number
  ` you used for what again. When you need a range of object numbers for
  ` looping purposes - see the GetNewID_StartAt() function I gave ya
  ` so you can allocate "fomr this # to that #" say for enemies, then
  ` one loop can handle all of them easier... same as using object #1-10 for 
  ` bad guys.
  MAKE OBJECT BOX 90,10,10,10
  POSITION OBJECT 90,LIGHT POSITION X(2),LIGHT POSITION Y(2),LIGHT POSITION Z(2)
  MAKE OBJECT BOX 91,10,10,10
  POSITION OBJECT 91,LIGHT POSITION Z(1),LIGHT POSITION Y(1),LIGHT POSITION Z(1)
  MAKE OBJECT BOX 92,10,10,10
  POSITION OBJECT 92,LIGHT POSITION X(3),LIGHT POSITION Y(3), LIGHT POSITION Z(3)
  Rem Mess around with lighting
  Hide LIGHT 0
  Rem Add some fog, to make it eerie
  FOG On
  FOG COLOR RGB(0,0,0)
  Rem Make limbs for collision
ENDFUNCTION
`------------------------------------------------------------------------------------------






`------------------------------------------------------------------------------------------
function PlayerIdle()
`------------------------------------------------------------------------------------------
    Rem Loop the Idle animation
  LOOP OBJECT grPlayer.obj,0,24
endfunction
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function PlayerAttack()
`------------------------------------------------------------------------------------------
  play object grPlayer.obj,25,49
endfunction
`------------------------------------------------------------------------------------------


`------------------------------------------------------------------------------------------
function PlayerWalking()
`------------------------------------------------------------------------------------------
  LOOP OBJECT grPlayer.obj,55,75
endfunction
`------------------------------------------------------------------------------------------


`------------------------------------------------------------------------------------------
function PlayerReset()
  grPlayer.iHealth=100
  grPlayer.bAttacking = FALSE
  grPlayer.bWalking = FALSE
  grPlayer.bIdle = true
  PlayerIdle()
endfunction    
`------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------------
function PollUserInput()
`------------------------------------------------------------------------------------------
  grPlayer.bGoForward = keystate(cnScanCode_W)
  grPlayer.bGoBackward =  keystate(cnScanCode_S)
  grPlayer.bGoLeft =  keystate(cnScanCode_A)
  grPlayer.bGoRight =  keystate(cnScanCode_D)
  iMouseclick=MouseClick()
  grPlayer.bGoAttack =  ((iMouseClick and 1)=1) 
  ` Sample button 2: ((iMouseClick and 2)=2)
  ` Sample button 3: ((iMouseClick and 4)=4)
  ` Sample button 4: ((iMouseClick and 8)=8)
  ` You put the whole thing in paren so that if TRUE the result that goes
  ` in the Boolean (such as bGoAttack becomes 0 or 1 .. or TRUE or FALSE
  
   ` Note How we only polled the hardware for each desired thing ONCE
   ` Now we have the info - we use the variables - not multiple calls to KEYSTATE
   ` to ask the same question again. Could throw off logic if value changes from one KEYSTATE 
   ` check to the next. Here we "snapshot" what the user was doing for this pass through
   ` the loop and we run with it.
   
   ` In the player Actions we will REACT to it and work in the attack, the walking etc.
endfunction
`------------------------------------------------------------------------------------------






`------------------------------------------------------------------------------------------
function PlayerActions()
  ` Reset animations Appropriately
  
  ` Logic dictates in this example that ATTACKING supercedes everything, then walking, 
  ` then idle.
  bSomethingHappening = FALSE
  
  ` turn off attacking if attacking but the animation is done
  if grPlayer.bAttacking 
    if not object playing (grPlayer.obj) 
      grPlayer.bAttacking = false
    else
      bSomethingHappening=true
    endif
  endif
    
  ` User want to be Attacking?
  if (grPlayer.bGoAttack)
    bSomethingHappening = true
    ` Are we already Attacking?
    text 200,200,"ATTACK"
    if not grPlayer.bAttacking
      grPlayer.bIdle = False
      grPlayer.bWalking = false
      grPlayer.bAttacking = true
      PlayerAttack()
    endif
  endif       
  
  ` Now lets see if we are walking Forward
  if (grPlayer.bGoForward) or (grPlayer.bGoBackward) or (grPlayer.bGoLeft) or (grPlayer.bGoRight) 
    ` Let's allow guy to still move WHILE Attacking
    bSomethingHappening=true
    if (not grPlayer.bAttacking) 
      grPlayer.bIdle = false
      grPlayer.bWalking=true
      PlayerWalking()
    endif
        
    if (grPlayer.bGoForward)
      Move OBJECT grPlayer.obj,-1 
    endif     
    
    if (grPlayer.bGoBackward)
      Move OBJECT grPlayer.obj,1 
    endif
    
    if (grPlayer.bGoLefT)
      YROTATE OBJECT grPlayer.obj,WRAPVALUE(OBJECT ANGLE Y(grPlayer.obj)-1)         
    endif
      
    if (grPlayer.bGoRight)
      YROTATE OBJECT grPlayer.obj,WRAPVALUE(OBJECT ANGLE Y(grPlayer.obj)+1)         
    endif
  endif
  
  if (not bSomethingHappening) 
    if not grPlayer.bIdle
      grPlayer.bIdle=true
      PlayerIdle()
    endif
    grPlayer.bAttacking = false
    grPlayer.bWalking = false
  endif
ENDFUNCTION
`------------------------------------------------------------------------------------------







`------------------------------------------------------------------------------------------
function UpdateWorld()
`------------------------------------------------------------------------------------------
  Rem First light...(eerie red 1)
  Set LIGHT RANGE 1,Rnd(400)+600
  Rem 2nd(plyr's torch)
  Set LIGHT RANGE 1,200
  Rem POSITION 2ND LIGHT TO PLAYER(TORCH)
  POSITION LIGHT 2,OBJECT POSITION X(grPlayer.obj),OBJECT POSITION Y(grPlayer.obj)+5,OBJECT POSITION Z(grPlayer.obj)+5
  TEXT 0,50,"PLAYER'S TORCH RANGE:"+Str$(LIGHT RANGE(2))
  Rem Next light...
  Set LIGHT RANGE 3,(400)+600
ENDFUNCTION
`------------------------------------------------------------------------------------------




`------------------------------------------------------------------------------------------
function Debug()
`------------------------------------------------------------------------------------------
  plyrx=OBJECT POSITION X(grPlayer.obj)
  plyry=OBJECT POSITION Y(grPlayer.obj)
  plyrz=OBJECT POSITION Z(grPlayer.obj)
  TEXT 0,0,"FPS:"+Str$(SCREEN FPS())
  TEXT 0,10,"Polys:"+Str$(STATISTIC(1))
  TEXT 0,20,"PLAYER POSITION X:"+Str$(plyrx)
  TEXT 0,30,"PLAYER POSITION Y:"+Str$(plyry)
  TEXT 0,40,"PLAYER POSITION Z"+Str$(plyrz)
  TEXT 0,150,"grPlayer.bIdle:"+Str$(grPlayer.bIdle)
  TEXT 0,160,"grPlayer.bWalking:"+Str$(grPlayer.bWalking)
  TEXT 0,170,"grPlayer.bAttacking:"+Str$(grPlayer.bAttacking)
  TEXT 0,180,"grPlayer.bGoForward:"+Str$(grPlayer.bGoForward)
  TEXT 0,190,"grPlayer.bGoBackward:"+Str$(grPlayer.bGoBackward)
  TEXT 0,200,"grPlayer.bGoLeft:"+Str$(grPlayer.bGoLeft)
  TEXT 0,210,"grPlayer.bGoRight:"+Str$(grPlayer.bGoRight)
  TEXT 0,220,"grPlayer.bGoAttack:"+Str$(grPlayer.bGoAttack)

  CENTER TEXT OBJECT SCREEN X(91),OBJECT SCREEN Y(91)-70,"LIGHT1"
  CENTER TEXT OBJECT SCREEN X(90),OBJECT SCREEN Y(90)-70,"LIGHT2"
  CENTER TEXT OBJECT SCREEN X(92),OBJECT SCREEN Y(92)-70,"LIGHT3"
endfunction
`------------------------------------------------------------------------------------------





`------------------------------------------------------------------------------------------
function UpdateTime()
`------------------------------------------------------------------------------------------
  g.iTimerLast = g.iTimer
  g.iTimer = Timer()
  g.iTimerElapsed = g.iTimer - g.iTimerLast
endfunction  
`------------------------------------------------------------------------------------------




`------------------------------------------------------------------------------------------
Rem Handle the Artificial Intelligience
`------------------------------------------------------------------------------------------
function AI()
`------------------------------------------------------------------------------------------
endfunction
`------------------------------------------------------------------------------------------




`------------------------------------------------------------------------------------------
Rem Handle Collision
`------------------------------------------------------------------------------------------
function Collision()
`------------------------------------------------------------------------------------------
endfunction
`------------------------------------------------------------------------------------------

Best Regards Bro - Have Fun
Jason p "Sage"

Know way too many languages - Master of none

Back to top

Profile PM Email Website

Existence

17

Years of Service

User Offline

Joined: 20th May 2007

Location:

Posted: 28th Jun 2007 11:51

Link

I think I'm going to cry...I didn't know anyone would be as kind to tottaly rewrite my program into a way that works all the while teaching me how should really code... Your my Hero, Man.

Thank you, Jason.

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 28th Jun 2007 12:47

Link

this post is inspiring

Back to top

Profile PM Email

Brain111

17

Years of Service

User Offline

Joined: 5th Feb 2007

Location: In my own little world.

Posted: 29th Jun 2007 07:28

Link

Haha yeah

Anarchy Burger - hold the Government!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Animation help

Attachments

Attachments

Attachments