Small RPG snippet? - GameCreators Forum

Author

Message

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 1st Mar 2005 21:31 Edited at: 1st Mar 2005 21:32

Link

I did that, but it didn't come out like it should have.

Here's a slightly updated one:

CityData:
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

CityData:
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 2nd Mar 2005 03:31

Link

make object box 1,25,25,25
Obj=2
for z=29 to 0 step -1
for x=0 to 69
read CityData
if CityData=1
make object box Obj,50,50,50
position object Obj,x*50,0,z*50
Obj=Obj+1
endif
if CityData=4
position object 1,x*50,0,z*50
x#=x*50
y#=0
z#=z*50
endif
next x
next y
sync on
sync rate 0
do
if upkey()=1
x#=newxvalue(x#,ang#,1.0)
z#=newzvalue(z#,ang#,1.0)
endif
if rightkey()=1
ang#=wrapvalue(ang#+1.0)
endif
if leftkey()=1
ang#=wrapvalue(ang#-1.0)
endif
position object 1,x#,y#,z#
yrotate object 1,ang#
position camera x#,y#+100,z#-100
point camera x#,y#,z#
sync
loop
CityData:
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

make object box 1,25,25,25
Obj=2
for z=29 to 0 step -1
for x=0 to 69
read CityData
if CityData=1
make object box Obj,50,50,50
position object Obj,x*50,0,z*50
Obj=Obj+1
endif
if CityData=4
position object 1,x*50,0,z*50
x#=x*50
y#=0
z#=z*50
endif
next x
next y
sync on
sync rate 0
do
if upkey()=1
x#=newxvalue(x#,ang#,1.0)
z#=newzvalue(z#,ang#,1.0)
endif
if rightkey()=1
ang#=wrapvalue(ang#+1.0)
endif
if leftkey()=1
ang#=wrapvalue(ang#-1.0)
endif
position object 1,x#,y#,z#
yrotate object 1,ang#
position camera x#,y#+100,z#-100
point camera x#,y#,z#
sync
loop
CityData:
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Works for me!

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 2nd Mar 2005 04:07

Link

It looks the same as mine, just untextured, How can I get ti so It accuartly looks like my data?

Because I haven't seen a barricade of ones going across the whole thing that actas a wall and I don't see anyzeros between ones that would form any "holes" between the cubes.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 2nd Mar 2005 20:37

Link

That is weird!
I reccomend a level editor rather than data.
Maybe data commands can't hold that much.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 4th Mar 2005 05:15

Link

Maybe, I was just using data as a temporary thing oh well...
Anyways I'm going to redesign the map system using the stuff I learned from my ingame map thread. Also could someone check my help with levels thread, pleeassse? I need some help with both 3rd person sliding collision...

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 6th Mar 2005 04:13

Link

I made a city for my platformer instead, I'll upload it for use in my Help with Levels thread so I can get help with sliding collision, anyways I added music in and am going to change the map in a few minutes now that I have time. Also I want to increase the amount of health earned per level and the xp required needs to increase with out increasing the bar but getting a variable that will keep the bar the same will be hard to find.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 6th Mar 2005 08:44

Link

Just a screen of progress:

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 7th Mar 2005 06:51

Link

Okay here is my current RPG Snippet Code:

`RPG Snippet
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)

`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5

for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a

make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do
`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Menu
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)

sync
loop

`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

Menu:

Return

SlideCollision:
   col_dist=2
   for i=1 to 200
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction

function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

+ Code Snippet

`RPG Snippet
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)


`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5


for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a



make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do
`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Menu
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

  position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)



   sync
loop



`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

    if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

Menu:

Return

SlideCollision:
   col_dist=2
   for i=1 to 200
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction




function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

   temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

It doesn't work at the moment because of the sliding collision gosub that Chris made. I think it's because of the enemy objects being stored in a variable, anyways how would I fix this, thanks ina davnace.
[center]There is no media required for this I removed it or replaced it.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 7th Mar 2005 19:10

Link

Looks good apart from the frame rate but that may be your system. Not disastorous though.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 8th Mar 2005 03:28

Link

I had set it a 30 on purpose as it's common for the RPGS I play. But could you help me with the sliding collision gosub please? I don't know what to do, and I have another question about it, for the newx and z values for the object position rather than object position one should it be i? I'm starting to think that too, but I still need to solve the object existing problem, if you didn't see the post I'll quote it:

Quote: "It doesn't work at the moment because of the sliding collision gosub that Chris made. I think it's because of the enemy objects being stored in a variable, anyways how would I fix this, thanks ina davnace.
There is no media required for this I removed it or replaced it.
"

And the code:

`RPG Snippet
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)

`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5

for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a

make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do
`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Menu
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)

sync
loop

`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

Menu:

Return

SlideCollision:
   col_dist=2
   for i=1 to 200
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction

function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

+ Code Snippet

`RPG Snippet
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)


`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5


for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a



make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do
`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Menu
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

  position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)



   sync
loop



`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

    if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

Menu:

Return

SlideCollision:
   col_dist=2
   for i=1 to 200
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction




function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

   temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 8th Mar 2005 05:00

Link

I'll take a look.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 8th Mar 2005 10:27

Link

Thanks. I'm going to add ai for the little followers once I have sliding collision.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 10th Mar 2005 04:12

Link

`RPG Snippet
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)

`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5

for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a

make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do
`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Menu
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)

sync
loop

`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

Menu:

Return

SlideCollision:
   col_dist=2
   for i=1 to 200
   if object exist(i)=1
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction

function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

+ Code Snippet

`RPG Snippet
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)


`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5


for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a



make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do
`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Menu
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

  position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)



   sync
loop



`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

    if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              scale object a,enemy(a).scale,enemy(a).scale,enemy(a).scale
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

Menu:

Return

SlideCollision:
   col_dist=2
   for i=1 to 200
   if object exist(i)=1
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction




function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

   temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

I added two lines of code to make it run and can't find a problem.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 10th Mar 2005 07:42

Link

Thanks, just a wuestion for the object position 1 part should I change that to i, so all objects would have sliding collision?

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 11th Mar 2005 02:40

Link

Try it and see but I don't think that will work. I think the looping through objects from 1 to 200 is only to apply collision to the player object with all objects but I'm not sure.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 11th Mar 2005 03:26

Link

Oh, I just want to make sure that npcs won't go through any other things also, I couldn't get it to work with my code for some reason, so could I send you my media and stuff and see if you can get it working I could either not move on the ground or walk through an object, so I had to rem the collision routine.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 11th Mar 2005 17:19

Link

O.K. So have you tried changing it from a 1 to i?

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 11th Mar 2005 22:29

Link

I did and nothing could move...

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 15th Mar 2005 23:38

Link

Anyways...
Do you think you could help me with the health variable so when you level up you have more health but the bar stays the same size?

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

WarGoat

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location: Montreal

Posted: 16th Mar 2005 01:08

Link

Maybe you could do something like if you are LV 2, When you get it by a monster, you could say that the amount of HP decrease more slowly, just an idea like that.

Windows XP,pentium IIII, 1,9 MGZ, 256 mb memory, 128 mb video card ATI Radeon 9200 se s80 'sett squadron back on the assault'

Back to top

Profile PM Email

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 16th Mar 2005 03:32

Link

It is quite simple:

+ Code Snippet

MaxHP=350
HP=350
BarLength=250
backdrop on
sync on
sync rate 0
do
MaxHP#=MaxHP
HP#=HP
box 0,0,(BarLength/MaxHP#)*HP#,20
sync
loop

MaxHP holds the current maximum health value, HP holds the current health value and BarLength holds the size in pixels of the health bar. MaxHP# and HP# hold the same value as MaxHP and HP but as a float.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 17th Mar 2005 03:49

Link

Thanks, will test it out.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 17th Mar 2005 09:29

Link

It worked after I adjusted the bar length, thanks again. Now I want to deal with enemies again, when you deal damage to them they reposition and attack again but are smaller, but I'd rather just have them jump backwards and then stay the same height and attack again, to give it more of a battle like feel...

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 17th Mar 2005 22:30

Link

That should be easy enough. I'll have a go when my programming ban is lifted!

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 18th Mar 2005 03:17

Link

How long will that be exactly? Anyways I'll try messing around with it...

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Gil Galvanti

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 20th Mar 2005 23:55

Link

so...hows it going?

btw, could u take a look at the pirates WIP anime blood.

Video games…they can take you places unreachable, impossible, unfeasible. They put you in the book...they put you in the movie...they put you in a world, a world that before could only be imagined.

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 21st Mar 2005 01:24

Link

Good... Sure I'll look at Pirates...

Anyways I'm still experimenting.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 21st Mar 2005 01:34

Link

[edit] oops sorry mis post

Back to top

Profile PM

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 21st Mar 2005 01:43

Link

Huh?

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Gil Galvanti

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 21st Mar 2005 04:21

Link

he means he accidentally posted on the wrong thing or something, then he edited his post, and deleted it realizing what he did. I think, hehe

Video games…they can take you places unreachable, impossible, unfeasible. They put you in the book...they put you in the movie...they put you in a world, a world that before could only be imagined.

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 21st Mar 2005 04:22

Link

Well I'm confused that he said edit and the post doesn't say edited on or anything...

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

Gil Galvanti

19

Years of Service

User Offline

Joined: 22nd Dec 2004

Location: Texas, United States

Posted: 21st Mar 2005 06:37 Edited at: 21st Mar 2005 06:39

Link

o, hehe, its cause he just deleted his original message.

EDIT:sry to intrude on your thread again, but could u look at the team request for pirates post again, anime blood.

Video games…they can take you places unreachable, impossible, unfeasible. They put you in the book...they put you in the movie...they put you in a world, a world that before could only be imagined.

Back to top

Profile PM Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 26th Mar 2005 04:34

Link

Ban lifted!
I'll take a look.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 26th Mar 2005 04:37

Link

`RPG Snippet
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)

`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5

for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a

make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do
`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Menu
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)

sync
loop

`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

Menu:

Return

SlideCollision:
   col_dist=2
   for i=1 to 200
   if object exist(i)=1
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction

function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

+ Code Snippet

`RPG Snippet
sync on:sync rate 60
color backdrop rgb(50,50,255)
ink rgb(0,0,0),rgb(0,0,0)
randomize timer()
Fog on
Fog distance 15000
Fog Color RGB(100,250,0)


`Light Crap
Set ambient light 70
Color ambient light RGB(200,0,50)
`Set font settings
Set text font "Arial"
Set text size 16
Set text to bold
RemStart
Change this value to change the chance of the enemy casting
magic. Make it bigger to lower the chance and vice versa.
RemEnd
global ChanceOfCast as integer
ChanceOfCast=100

`Set up Map
Make Camera 1
Color Backdrop 1,RGB(10,100,0)
Position camera 1,0,0,0
Point camera 1,0,0,0
Xrotate camera 1,90
Set Camera Range 1,1,50000
`Make Lights
Make light 1
Color Light 1,RGB(250,100,50)

`Load Temple
Make object cone 5,50
Position Object 5,2000,10,500
Scale Object 5,2.5,2.5,2.5
`Enemies
dim key(256)

type enem
   health as integer
   startx as integer
   startz as integer
   endx as integer
   endz as integer
   move as integer
   scale as integer
   cast as integer
   damage as integer
   showdamage as integer
endtype

dim enemy(100) as enem

make object box 9,10000,5,10000
move object down 9,5


for a=10 to 100
   make object sphere a,3,6,6
   position object a,rnd(1000),0,rnd(1000)
   color object a,rgb(0,0,200)
   enemy(a).health=100
   enemy(a).startx=object position x(a)
   enemy(a).startz=object position z(a)
   enemy(a).endx=object position x(a)+rnd(60)
   enemy(a).endz=object position z(a)+rnd(60)
   enemy(a).scale=100
   make object sphere a+100,3,6,6
   texture object a+100,3
   ghost object on a+100
   hide object a+100
next a



make object cube 1,1.5
Color object 1,RGB(150,200,10)
make object cube 3,1.5
Color object 3,RGB(150,200,100)
make object cube 4,1.5
Color object 4,RGB(100,200,10)
playerhealth=100
maxplayerhealth = 100
playerexperience=0
playerlevel=1
playerdamage=0
playershowdamage=0
playershowlevel=0
make object box 2,.2,.2,2.5
color object 2,rgb(20,0,0)
hide object 2
offset limb 2,0,0,0,2
`Magic Blast
Make object sphere 6,.5,.5,.5
color object 6,RGB(20,20,200)
Hide object 6
`Katars
Make object cone 7,.5
xrotate object 7,90
Fix object pivot 7
color object 7,RGB(200,20,200)
Hide object 7

Make object cone 8,.5
xrotate object 8,90
Fix object pivot 8
color object 8,RGB(200,20,200)
Hide object 8

`End Characters
set global collision on

do
`Ally Positions
Position object 3,object position x(1),object position y(1),object position z(1)-10
Position object 4,object position x(1),object position y(1),object position z(3)-10

`Light Settings
Position light 1,object position X(1),object position Y(1),object position z(1)
Point light 1,object position X(1),object position Y(1),object position z(1)
`Gosubs
Gosub huds
Gosub info
Gosub Controls
Gosub Stats
Gosub Menu
Gosub Slidecollision

`Enemy AI
     for a=10 to 100
     if object exist(a)=1
     if enemy(a).cast=0 and distance(1,a)<50 and attack>0 and attack<8 then move object a,-1
        if distance(1,a)>50
           enemy(a).cast=0
           hide object a+100
           scale object a+100,100,100,100
           patrol(a)
        else
        if enemy(a).cast=0
           set object collision off a+100
           point object a,object position x(1),0,object position z(1)
           move object a,.5
           if object collision(a,1)=1
              playerhealth=playerhealth-5
              playerdamage=-5
              playershowdamage=50
              move object a,-15
              endif
              testforcast=0
              if distance(1,a)<50
              testforcast=rnd(ChanceOfCast)
              endif
              if testforcast=3
              enemy(a).cast=100
              show object a+100
              set object collision on a+100
              endif
              endif
              if enemy(a).cast>0
              enemy(a).cast=enemy(a).cast+3
              scale object a+100,enemy(a).cast,enemy(a).cast,enemy(a).cast
           if object collision(a+100,1)=1
              playerdamage=-1
              playershowdamage=50
              playerhealth=playerhealth-1
              endif
            endif
              if enemy(a).cast>500
              enemy(a).cast=0
              hide object a+100
              endif
           endif
position object a+100,object position x(a),object position y(a)-1.5,object position z(a)
   endif
     next a

  position camera object position x(1),object position y(1)+5,object position z(1)-10
  point camera object position x(1),object position y(1),object position z(1)



   sync
loop



`Gosubs
Huds:
`This gosub deals with the huds and leveling up
`Paste image 1,5,360,1
ink rgb(200,0,0),0
box 146,385,146+(playerhealth*1.567),405
ink rgb(0,255,0),0
box 146,435,146+(playerexperience*1.564),455
if playerhealth<1
playerhealth=0
endif
if playerexperience>100
playerexperience=0
playerlevel=playerlevel+1
playershowlevel=50
maxplayerhealth = maxplayerhealth + (10 * Playerlevel)
playerhealth = maxplayerhealth
endif
ink rgb(0,0,0),0
text 216,365,str$(playerlevel)
`Map
Set Camera View 1,375,365,495,470
Position camera 1,object position x(1),object position y(1)+80,object position z(1)
Point camera 1,object position x(1),object position y(1),object position z(1)
Return

Info:
Ink RGB(0,0,0),0
Text 5,5,"Fps: " +STR$(Screen FPS())
Return

Controls:

up=0
down=0
right=0
left=0
if keystate(17)=1 then up=1
if keystate(31)=1  then down=1
if keystate(32)=1  then right=1
if keystate(30)=1 then left=1
if up=1 and left=0 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=0
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=315
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=1 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=45
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=0
OldAng=object angle y(1)
TargetAng=270
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=0
OldAng=object angle y(1)
TargetAng=90
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=180
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=0 and right=1 and down=1
OldAng=object angle y(1)
TargetAng=135
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
if up=0 and left=1 and right=0 and down=1
OldAng=object angle y(1)
TargetAng=215
yrotate object 1,TargetAng
move object 1,1
yrotate object 1,OldAng
endif
yrotate object 1,curveangle(TargetAng,object angle y(1),5)
`Combat Controls

    if keyready(57)=1 and attack=0
       rotate object 2,object angle x(1),object angle y(1)-70,object angle z(1)
       attack=16
       show object 2
    endif
     if attack>0
        attack=attack-1
        position object 2,object position x(1),0,object position z(1)
        yrotate object 2,object angle y(2)+10
        for a=10 to 100
          if object exist(a)=1
           if object collision(2,a)=1
              playerexperience=playerexperience+rnd(playerlevel*2.5)
              enemy(a).damage=0-playerlevel*10
              enemy(a).showdamage=50
              enemy(a).health=enemy(a).health-playerlevel*8
              move object a,-playerlevel*5
              enemy(a).scale=enemy(a).scale-playerlevel*5
              enemy(a).cast=0
              hide object a+100
         endif
           if enemy(a).health<10 then delete object a : delete object a+100
           endif
        next a
     endif
     if attack=1 then hide object 2
Return

Stats:

ink rgb(255,200,0),0
if playershowlevel>0
center text object screen x(1),object screen y(1)-200+(playershowlevel*4),str$(playerlevel)
playershowlevel=playershowlevel-1
endif
ink rgb(200,0,0),0
if playershowdamage>0
center text object screen x(1),object screen y(1)-100+(playershowdamage*2),str$(playerdamage)
playershowdamage=playershowdamage-1
endif
ink rgb(255,255,255),0
for a=10 to 100
if object exist(a)=1 and enemy(a).showdamage>0
center text object screen x(a),object screen y(a)-100+(enemy(a).showdamage*2),str$(enemy(a).damage)
enemy(a).showdamage=enemy(a).showdamage-1
endif
next a
for a = 10 to 100
If Object Exist(a)
if distance(1,a) <100
Ink RGB(0,0,0),0
Box Object Screen X(a),Object screen Y(a),Object Screen X(a)+50,Object Screen Y(a)+10
Ink RGB(100,0,0),0
Box Object Screen X(a)+1,Object screen Y(a)+1,Object Screen X(a)+(enemy(a).health/2)-1,Object Screen Y(a)+9
Endif
Endif
Next a
Return

Menu:

Return

SlideCollision:
   col_dist=2
   for i=1 to 200
   if object exist(i)=1
      maxtemp#=0
      for j=0 to 360 step 45
         temp#=intersect object (i,tempx#,2,tempz#,newxvalue(tempx#,j,col_dist),2,newzvalue(tempz#,j,col_dist))
         if temp#>maxtemp#
            maxtemp#=temp#
            maxangle#=j
         endif
      next j
      if maxtemp#>0
         tempx#=newxvalue(object position x(1),maxangle#,maxtemp#-col_dist)
         tempz#=newzvalue(object position z(1),maxangle#,maxtemp#-col_dist)
      endif
   endif
   next i
Return

`Functions

function patrol(object)
   if threeD_distance(object position x(object),enemy(object).endx,0,0,object position z(object),enemy(object).endz)<2 then enemy(object).move=1
   if threeD_distance(object position x(object),enemy(object).startx,0,0,object position z(object),enemy(object).startz)<2 then enemy(object).move=0
   if enemy(object).move=0
      point object object,enemy(object).endx,0,enemy(object).endz
      move object object,1
   endif
   if enemy(object).move=1
      point object object,enemy(object).startx,0,enemy(object).startz
      move object object,1
   endif
endfunction




function distance(obj1,obj2)
dist=sqrt(((object position x(obj1)-object position x(obj2))*(object position x(obj1)-object position x(obj2)))+((object position z(obj1)-object position z(obj2))*(object position z(obj1)-object position z(obj2))))
endfunction dist

FUNCTION threeD_distance(x1# AS float, x2# AS float, y1# AS float, y2# AS float, z1# AS float, z2# AS float)

   temp = 1
   null = make vector3(temp)
     set vector3 temp, x1# - x2#, y1# - y2#, z1# - z2#
     length_vector = abs(length vector3(temp))
     null = delete vector3(temp)

ENDFUNCTION length_vector

function keyready(keyz)
vl=0
if keystate(keyz)=1 and key(keyz) = 0
      key(keyz) = 1
      vl=1
   endif
if keystate(keyz)=0
      key(keyz) = 0
      vl = 0
   endif
endfunction vl

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 26th Mar 2005 09:08

Link

Thanks, I'll check it out.

Have a heart and join my message board.

And now my messageboards work again!Woot!

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 27th Mar 2005 03:08

Link

I like the new avatar and sig!

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 30th Mar 2005 00:38

Link

Is this thread ever going to get moved?

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 30th Mar 2005 09:56

Link

That's a good question and thanks for the compliment.

Made the avatar cus I pre-ordered Jade Empire.

Urbia Rising: A platformer. Coming in a long time.

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 31st Mar 2005 19:35

Link

Quote: "Urbia Rising: A platformer. Coming in a long time."

So you are making a platformer? You could use my code snippet as a start.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 1st Apr 2005 10:11

Link

No, it's different than that it's a more open platformer and it's 3d, it also uses RPG elements.

Urbia Rising: A platformer. Coming in a long time.

Back to top

Profile PM Email Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 4th Apr 2005 01:31

Link

I've made a tutorial to make a simple menu:
http://www.ideiasinc.net/forum/viewtopic.php?t=331

I hope you like it!

True Phantasy

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 7th Apr 2005 11:20

Link

That's a nice tutorial.

Urbia Rising: A platformer. Coming in a long time.

Back to top

Profile PM Email Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 9th Apr 2005 07:56

Link

Hey Andrew? I was wondering if you could implement that menu into my rpg snippet as I tried but it would just go to a blank backdrop and there wouldn't be an planes that acted as the menu. Thanks in advance.

Urbia Rising: A platformer. Coming in a long time.

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 12th Apr 2005 03:40

Link

Sorry. Didn't really understand that! I'll take a look at the menu. Could you try and explain again please.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 12th Apr 2005 05:57

Link

Well you know that menu code you posted in the Code Snippets that was 3d? Well I really liked and tried to implement into my RPG (canging the object numbers so I wouldn't interfere with already created ones) however all I got was a backdrop and no planes... So I was wondering if you could help me implement the menu into my snippet, also could you comment on my w.i.p? The link to it's in my sig

.

Urbia Rising

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 12th Apr 2005 20:11

Link

O.K. I understand now. I'll give it a go.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 12th Apr 2005 20:56

Link

OKay, thanks.

Urbia Rising

Back to top

Profile PM Email Website

Fox Dark Master

20

Years of Service

User Offline

Joined: 20th Jul 2004

Location: Portugal

Posted: 14th Apr 2005 00:48

Link

Do you know that almost all menus are 3D? because on darkbasic all sprites are 3d objects...

Speaking of db, i had a problem when i was testing my program... the error was not from me, was from the compiler, an C++ error...
That was a sad thing... now i'm thinkin in change to c++...

True Phantasy

Back to top

Profile PM Website

Cian Rice

20

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 14th Apr 2005 04:10

Link

Sprites aren't 3d objects other wise a sprite labeled 1 would interfere with a 3d object labeled 1. And about the compier then switch to BlueIDe instead there aren't nearly as many bugs in that...

Urbia Rising

Back to top

Profile PM Email Website

TEH_CODERER

20

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 14th Apr 2005 04:51

Link

If they are 3D then although it is sprite 1 it would be something like object 65535+1. However, I think they are 2D. Changing to Blue IDE is changing the editor not the compiler isn't it. Sorry I haven't had a chance to work on the menu yet but I'll take a look now.

[url]andrewneale2004@yahoo.com[/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Small RPG snippet?