Both user defined type values must use the same type?

Author

Message

Mugen Wizardry

User Banned

Posted: 9th Aug 2010 17:47

Ok all. I rewrote my ENTIRE project. Now I'm getting a weird glitch as the title says.

type player
health# as float
actualhealth# as float
maxhealth# as float
magic# as float
actualmagic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
actualhealth# as float
maxhealth# as float
magic# as float
actualmagic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

global p as player

global e as enemy

#constant healthtube 1
#constant healthbarleftside 2
#constant healthbarrightside 3
#constant healthbar 4

#constant playerid 5
#constant obj 6
#constant obj2 7
#constant obj3 8

#constant enemyid 9

#constant healthbarid 10

#constant magicbarid 11

#constant magicbar 12

dim menuImage(20)

menuImage(healthtube)=find free image()
menuImage(healthbarleftside)=find free image()
menuImage(healthbarrightside)=find free image()
menuImage(healthbar)=find free image()
menuImage(magicbar)=find free image()

load_images(menuImage(healthtube),menuImage(healthbarleftside),menuImage(healthbarrightside))

dim Object(20) as player
Object(playerid)=find free object()
Object(obj)=find free object()
Object(obj2)=find free object()
Object(obj3)=find free object()

dim Object2(20) as enemy
Object2(enemyid)=find free object()

Object(playerid).actualhealth#=10000
Object(playerid).health# = Object(playerid).actualhealth#
Object(playerid).maxhealth# = 2000000.0
Object(playerid).actualmagic#=10000
Object(playerid).magic# = Object(playerid).actualmagic#
Object(playerid).maxmagic# = 2000000.0
Object(playerid).X# = 0.0
Object(playerid).Y# = 1.0
Object(playerid).Z# = 0.0

Object2(enemyid).actualhealth#=10000
Object2(enemyid).health#=Object2(enemyid).actualhealth#
Object2(enemyid).maxhealth# = 2000000.0
Object2(enemyid).actualmagic#=10000
Object2(enemyid).magic#=Object2(enemyid).actualmagic#
Object2(enemyid).maxmagic# = 2000000.0
Object2(enemyid).X# = 0.0
Object2(enemyid).Y# = 1.0
Object2(enemyid).Z# = 0.0

make object plain Object(obj).id,2,1

set object transparency Object(obj).id,1

set alpha mapping on Object(obj).id,100

texture object obj,menuImage(healthtube)

set object light Object(obj).id,0

position object Object(obj).id,0,2,0

make object plain Object(obj2).id,.2,.2

set object transparency Object(obj2).id,1

set alpha mapping on Object(obj2).id,100

texture object Object(obj2).id,menuImage(healthbarleftside)

set object light Object(obj2).id,0

position object Object(obj2).id,-.4,1.97,-.01

make object plain Object(obj3).id,.2,.2

set object transparency Object(obj3).id,1

set alpha mapping on Object(obj3).id,100

texture object Object(obj3).id,menuImage(healthbarrightside)

set object light Object(obj3).id,0

position object Object(obj3).id,.4,1.97,-.01

`PLAYER
make object cube Object(playerid).id,1

`ENEMY
make object cube Object2(enemyid).id,1

`PLAYER HEALTH
Make Object Plain Object(obj).id,1.25,.1
set object transparency Object(obj).id,1
fix object pivot Object(obj).id
position object Object(obj).id,0,0,10
set object light Object(obj).id,0
SET OBJECT FILTER Object(obj).id,0
set object smoothing Object(obj).id,100
CreateBar(Object(obj).id,1,0,0,Object(playerid).id,0,0,100,10,Object(playerid).health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), Object(playerid).maxhealth#)
hide object Object(obj).id

`PLAYER MAGIC
Make Object Plain Object(obj2).id,1.25,.1
set object transparency Object(obj2).id,1
fix object pivot Object(obj2).id
position object Object(obj2).id,0,4,2
set object light Object(obj2).id,0
SET OBJECT FILTER Object(obj2).id,0
set object smoothing Object(obj2).id,100
CreateBar(Object(obj2).id,1,0,0,Object(playerid).id,0,0,100,10,Object(playerid).magic#,rgbalpha(68,207,0,255),rgbalpha(68,207,255,255), Object(playerid).maxmagic#)
hide object Object(obj2).id

`ENEMY HEALTH
Make Object Plain Object(obj3).id,1.25,.1
set object transparency Object(obj3).id,1
fix object pivot Object(obj3).id
position object Object(obj3).id,0,0,5
set object light Object(obj3).id,0
SET OBJECT FILTER Object(obj3).id,0
set object smoothing Object(obj3).id,100
CreateBar(Object(obj3).id,1,0,0,Object2(enemyid).id,0,0,100,10,Object2(enemyid).health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), Object2(enemyid).maxhealth#)
hide object Object(obj3).id

global u#
global v#

make mesh from object 1,Object(obj).id

make mesh from object 2,Object(obj2).id

make mesh from object 3,Object(obj3).id

+ Code Snippet

type player
health# as float
actualhealth# as float
maxhealth# as float
magic# as float
actualmagic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
actualhealth# as float
maxhealth# as float
magic# as float
actualmagic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

global p as player

global e as enemy

#constant healthtube 1
#constant healthbarleftside 2
#constant healthbarrightside 3
#constant healthbar 4

#constant playerid 5
#constant obj 6
#constant obj2 7
#constant obj3 8

#constant enemyid 9

#constant healthbarid 10

#constant magicbarid 11

#constant magicbar 12

dim menuImage(20)

menuImage(healthtube)=find free image()
menuImage(healthbarleftside)=find free image()
menuImage(healthbarrightside)=find free image()
menuImage(healthbar)=find free image()
menuImage(magicbar)=find free image()

load_images(menuImage(healthtube),menuImage(healthbarleftside),menuImage(healthbarrightside))

dim Object(20) as player
Object(playerid)=find free object()
Object(obj)=find free object()
Object(obj2)=find free object()
Object(obj3)=find free object()

dim Object2(20) as enemy
Object2(enemyid)=find free object()

Object(playerid).actualhealth#=10000
Object(playerid).health# = Object(playerid).actualhealth#
Object(playerid).maxhealth# = 2000000.0
Object(playerid).actualmagic#=10000
Object(playerid).magic# = Object(playerid).actualmagic#
Object(playerid).maxmagic# = 2000000.0
Object(playerid).X# = 0.0
Object(playerid).Y# = 1.0
Object(playerid).Z# = 0.0

Object2(enemyid).actualhealth#=10000
Object2(enemyid).health#=Object2(enemyid).actualhealth#
Object2(enemyid).maxhealth# = 2000000.0
Object2(enemyid).actualmagic#=10000
Object2(enemyid).magic#=Object2(enemyid).actualmagic#
Object2(enemyid).maxmagic# = 2000000.0
Object2(enemyid).X# = 0.0
Object2(enemyid).Y# = 1.0
Object2(enemyid).Z# = 0.0

make object plain Object(obj).id,2,1

set object transparency Object(obj).id,1

set alpha mapping on Object(obj).id,100

texture object obj,menuImage(healthtube)

set object light Object(obj).id,0

position object Object(obj).id,0,2,0


make object plain Object(obj2).id,.2,.2

set object transparency Object(obj2).id,1

set alpha mapping on Object(obj2).id,100

texture object Object(obj2).id,menuImage(healthbarleftside)

set object light Object(obj2).id,0

position object Object(obj2).id,-.4,1.97,-.01


make object plain Object(obj3).id,.2,.2

set object transparency Object(obj3).id,1

set alpha mapping on Object(obj3).id,100

texture object Object(obj3).id,menuImage(healthbarrightside)

set object light Object(obj3).id,0

position object Object(obj3).id,.4,1.97,-.01

`PLAYER
make object cube Object(playerid).id,1

`ENEMY
make object cube Object2(enemyid).id,1

`PLAYER HEALTH
Make Object Plain Object(obj).id,1.25,.1
set object transparency Object(obj).id,1
fix object pivot Object(obj).id
position object Object(obj).id,0,0,10
set object light Object(obj).id,0
SET OBJECT FILTER Object(obj).id,0
set object smoothing Object(obj).id,100
CreateBar(Object(obj).id,1,0,0,Object(playerid).id,0,0,100,10,Object(playerid).health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), Object(playerid).maxhealth#)
hide object Object(obj).id

`PLAYER MAGIC
Make Object Plain Object(obj2).id,1.25,.1
set object transparency Object(obj2).id,1
fix object pivot Object(obj2).id
position object Object(obj2).id,0,4,2
set object light Object(obj2).id,0
SET OBJECT FILTER Object(obj2).id,0
set object smoothing Object(obj2).id,100
CreateBar(Object(obj2).id,1,0,0,Object(playerid).id,0,0,100,10,Object(playerid).magic#,rgbalpha(68,207,0,255),rgbalpha(68,207,255,255), Object(playerid).maxmagic#)
hide object Object(obj2).id

`ENEMY HEALTH
Make Object Plain Object(obj3).id,1.25,.1
set object transparency Object(obj3).id,1
fix object pivot Object(obj3).id
position object Object(obj3).id,0,0,5
set object light Object(obj3).id,0
SET OBJECT FILTER Object(obj3).id,0
set object smoothing Object(obj3).id,100
CreateBar(Object(obj3).id,1,0,0,Object2(enemyid).id,0,0,100,10,Object2(enemyid).health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), Object2(enemyid).maxhealth#)
hide object Object(obj3).id

global u#
global v#

make mesh from object 1,Object(obj).id

make mesh from object 2,Object(obj2).id

make mesh from object 3,Object(obj3).id

And yes, I did try before asking for help.

Thanks!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 9th Aug 2010 17:58

Link

Your using a typed array, but aren't referencing the element, like this line here:

Object(playerid)=find free object()

You should specify '.ID' perhaps:

Object(playerid).ID=find free object()

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Mugen Wizardry

User Banned

Posted: 9th Aug 2010 18:04

Link

thanks, vanB.

Ok, I'm having one more small problem.

It's saying: 'Object already exists at line 113'

type player
health# as float
actualhealth# as float
maxhealth# as float
magic# as float
actualmagic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
actualhealth# as float
maxhealth# as float
magic# as float
actualmagic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

global p as player

global e as enemy

#constant healthtube 1
#constant healthbarleftside 2
#constant healthbarrightside 3
#constant healthbar 4

#constant playerid 5
#constant obj 6
#constant obj2 7
#constant obj3 8

#constant enemyid 9

#constant healthbarid 10

#constant magicbarid 11

#constant magicbar 12

dim menuImage(20)

menuImage(healthtube)=find free image()
menuImage(healthbarleftside)=find free image()
menuImage(healthbarrightside)=find free image()
menuImage(healthbar)=find free image()
menuImage(magicbar)=find free image()

load_images(menuImage(healthtube),menuImage(healthbarleftside),menuImage(healthbarrightside))

dim Object(20) as player
Object(playerid).id=find free object()
Object(obj).id=find free object()
Object(obj2).id=find free object()
Object(obj3).id=find free object()

Object(playerid).actualhealth#=10000
Object(playerid).health# = Object(playerid).actualhealth#
Object(playerid).maxhealth# = 2000000.0
Object(playerid).actualmagic#=10000
Object(playerid).magic# = Object(playerid).actualmagic#
Object(playerid).maxmagic# = 2000000.0
Object(playerid).X# = 0.0
Object(playerid).Y# = 1.0
Object(playerid).Z# = 0.0

dim Object2(20) as enemy
Object2(enemyid).id=find free object()

Object2(enemyid).actualhealth#=10000
Object2(enemyid).health#=Object2(enemyid).actualhealth#
Object2(enemyid).maxhealth# = 2000000.0
Object2(enemyid).actualmagic#=10000
Object2(enemyid).magic#=Object2(enemyid).actualmagic#
Object2(enemyid).maxmagic# = 2000000.0
Object2(enemyid).X# = 0.0
Object2(enemyid).Y# = 1.0
Object2(enemyid).Z# = 0.0

make object plain Object(obj).id,2,1

set object transparency Object(obj).id,1

set alpha mapping on Object(obj).id,100

texture object Object(obj).id,menuImage(healthtube)

set object light Object(obj).id,0

position object Object(obj).id,0,2,0

make object plain Object(obj2).id,.2,.2

set object transparency Object(obj2).id,1

set alpha mapping on Object(obj2).id,100

texture object Object(obj2).id,menuImage(healthbarleftside)

set object light Object(obj2).id,0

position object Object(obj2).id,-.4,1.97,-.01

make object plain Object(obj3).id,.2,.2

set object transparency Object(obj3).id,1

set alpha mapping on Object(obj3).id,100

texture object Object(obj3).id,menuImage(healthbarrightside)

set object light Object(obj3).id,0

position object Object(obj3).id,.4,1.97,-.01

`PLAYER
make object cube Object(playerid).id,1

`ENEMY
make object cube Object2(enemyid).id,1

`PLAYER HEALTH
Make Object Plain Object(obj).id,1.25,.1
set object transparency Object(obj).id,1
fix object pivot Object(obj).id
position object Object(obj).id,0,0,10
set object light Object(obj).id,0
SET OBJECT FILTER Object(obj).id,0
set object smoothing Object(obj).id,100
CreateBar(Object(obj).id,1,0,0,Object(playerid).id,0,0,100,10,Object(playerid).health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), Object(playerid).maxhealth#)
hide object Object(obj).id

`PLAYER MAGIC
Make Object Plain Object(obj2).id,1.25,.1
set object transparency Object(obj2).id,1
fix object pivot Object(obj2).id
position object Object(obj2).id,0,4,2
set object light Object(obj2).id,0
SET OBJECT FILTER Object(obj2).id,0
set object smoothing Object(obj2).id,100
CreateBar(Object(obj2).id,1,0,0,Object(playerid).id,0,0,100,10,Object(playerid).magic#,rgbalpha(68,207,0,255),rgbalpha(68,207,255,255), Object(playerid).maxmagic#)
hide object Object(obj2).id

`ENEMY HEALTH
Make Object Plain Object(obj3).id,1.25,.1
set object transparency Object(obj3).id,1
fix object pivot Object(obj3).id
position object Object(obj3).id,0,0,5
set object light Object(obj3).id,0
SET OBJECT FILTER Object(obj3).id,0
set object smoothing Object(obj3).id,100
CreateBar(Object(obj3).id,1,0,0,Object2(enemyid).id,0,0,100,10,Object2(enemyid).health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), Object2(enemyid).maxhealth#)
hide object Object(obj3).id

global u#
global v#

make mesh from object 1,Object(obj).id

make mesh from object 2,Object(obj2).id

make mesh from object 3,Object(obj3).id

+ Code Snippet

type player
health# as float
actualhealth# as float
maxhealth# as float
magic# as float
actualmagic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

type enemy
health# as float
actualhealth# as float
maxhealth# as float
magic# as float
actualmagic# as float
maxmagic# as float
X# as float
Y# as float
Z# as float
Speed# as float
TSpeed# as float
id as integer
endtype

global p as player

global e as enemy

#constant healthtube 1
#constant healthbarleftside 2
#constant healthbarrightside 3
#constant healthbar 4

#constant playerid 5
#constant obj 6
#constant obj2 7
#constant obj3 8

#constant enemyid 9

#constant healthbarid 10

#constant magicbarid 11

#constant magicbar 12

dim menuImage(20)

menuImage(healthtube)=find free image()
menuImage(healthbarleftside)=find free image()
menuImage(healthbarrightside)=find free image()
menuImage(healthbar)=find free image()
menuImage(magicbar)=find free image()

load_images(menuImage(healthtube),menuImage(healthbarleftside),menuImage(healthbarrightside))

dim Object(20) as player
Object(playerid).id=find free object()
Object(obj).id=find free object()
Object(obj2).id=find free object()
Object(obj3).id=find free object()

Object(playerid).actualhealth#=10000
Object(playerid).health# = Object(playerid).actualhealth#
Object(playerid).maxhealth# = 2000000.0
Object(playerid).actualmagic#=10000
Object(playerid).magic# = Object(playerid).actualmagic#
Object(playerid).maxmagic# = 2000000.0
Object(playerid).X# = 0.0
Object(playerid).Y# = 1.0
Object(playerid).Z# = 0.0

dim Object2(20) as enemy
Object2(enemyid).id=find free object()

Object2(enemyid).actualhealth#=10000
Object2(enemyid).health#=Object2(enemyid).actualhealth#
Object2(enemyid).maxhealth# = 2000000.0
Object2(enemyid).actualmagic#=10000
Object2(enemyid).magic#=Object2(enemyid).actualmagic#
Object2(enemyid).maxmagic# = 2000000.0
Object2(enemyid).X# = 0.0
Object2(enemyid).Y# = 1.0
Object2(enemyid).Z# = 0.0

make object plain Object(obj).id,2,1

set object transparency Object(obj).id,1

set alpha mapping on Object(obj).id,100

texture object Object(obj).id,menuImage(healthtube)

set object light Object(obj).id,0

position object Object(obj).id,0,2,0


make object plain Object(obj2).id,.2,.2

set object transparency Object(obj2).id,1

set alpha mapping on Object(obj2).id,100

texture object Object(obj2).id,menuImage(healthbarleftside)

set object light Object(obj2).id,0

position object Object(obj2).id,-.4,1.97,-.01


make object plain Object(obj3).id,.2,.2

set object transparency Object(obj3).id,1

set alpha mapping on Object(obj3).id,100

texture object Object(obj3).id,menuImage(healthbarrightside)

set object light Object(obj3).id,0

position object Object(obj3).id,.4,1.97,-.01

`PLAYER
make object cube Object(playerid).id,1

`ENEMY
make object cube Object2(enemyid).id,1

`PLAYER HEALTH
Make Object Plain Object(obj).id,1.25,.1
set object transparency Object(obj).id,1
fix object pivot Object(obj).id
position object Object(obj).id,0,0,10
set object light Object(obj).id,0
SET OBJECT FILTER Object(obj).id,0
set object smoothing Object(obj).id,100
CreateBar(Object(obj).id,1,0,0,Object(playerid).id,0,0,100,10,Object(playerid).health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), Object(playerid).maxhealth#)
hide object Object(obj).id

`PLAYER MAGIC
Make Object Plain Object(obj2).id,1.25,.1
set object transparency Object(obj2).id,1
fix object pivot Object(obj2).id
position object Object(obj2).id,0,4,2
set object light Object(obj2).id,0
SET OBJECT FILTER Object(obj2).id,0
set object smoothing Object(obj2).id,100
CreateBar(Object(obj2).id,1,0,0,Object(playerid).id,0,0,100,10,Object(playerid).magic#,rgbalpha(68,207,0,255),rgbalpha(68,207,255,255), Object(playerid).maxmagic#)
hide object Object(obj2).id

`ENEMY HEALTH
Make Object Plain Object(obj3).id,1.25,.1
set object transparency Object(obj3).id,1
fix object pivot Object(obj3).id
position object Object(obj3).id,0,0,5
set object light Object(obj3).id,0
SET OBJECT FILTER Object(obj3).id,0
set object smoothing Object(obj3).id,100
CreateBar(Object(obj3).id,1,0,0,Object2(enemyid).id,0,0,100,10,Object2(enemyid).health#,rgbalpha(255,0,0,255),rgbalpha(255,255,0,255), Object2(enemyid).maxhealth#)
hide object Object(obj3).id

global u#
global v#

make mesh from object 1,Object(obj).id

make mesh from object 2,Object(obj2).id

make mesh from object 3,Object(obj3).id

thanks!

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Zotoaster

21

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 9th Aug 2010 18:30

Link

Also, from a software engineering standpoint, you could make your code a lot better by only using a single type. 'player' and 'enemy' are exactly the same, and when you think about it, an enemy is a player anyway, and is controlled in all the exact same ways, except for the AI layer. You should use only one type and just make a boolean flag inside saying whether it's a good guy or a bad guy.

"everyone forgets a semi-colon sometimes." - Phaelax

Back to top

Profile PM Email

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 9th Aug 2010 18:40

Link

I think your getting that error because you arent doing anything with the object, so if you call FIND FREE OBJECT twice, you get the same object number. Probably best to set the object ID's and image ID's just before loading them in, so that ID get's used up.

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Both user defined type values must use the same type?