Using Arrays inside of Data Types

Author

Message

jasuk70

21

Years of Service

User Offline

Joined: 3rd Dec 2002

Location: Hemel Hempstead

Posted: 17th Dec 2002 22:28

Link

I have a feeling it's not possible but without a search engine on these forums its hard to see if anyone has said it's not possible in the past and not embarrass myself by asking

.

An example of what i'd like to do if possible is:

With Character being the custom data type.

Character.Str=20
Character.Items(1)=10
Character.Items(2)=22

I can't see a way of declaring this within a custom data type.

Thanks for any help.

Jas

Back to top

Profile PM Email Website

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 18th Dec 2002 00:16

Link

Unfortunately it's not possible.

Ogres have layers.

Back to top

Profile PM

jasuk70

21

Years of Service

User Offline

Joined: 3rd Dec 2002

Location: Hemel Hempstead

Posted: 18th Dec 2002 00:38

Link

Thanks, I had a feeling it wouldnt be able to. I'll have to make that a seperate array.

Cheers,

Jas

Back to top

Profile PM Email Website

Kale

22

Years of Service

User Offline

Joined: 8th Sep 2002

Location: United Kingdom

Posted: 18th Dec 2002 14:49

Link

yes it is possible with types!

+ Code Snippet

type items
   item1 as string
   item2 as string
   item3 as string
endtype

type character
   strength as integer
   dexterity as integer
   mana as integer
   weapon as string
   clothing as string
   backpack as items
endtype

global bob as character

bob.strength = 52
bob.dexterity = 35
bob.mana = 47
bob.weapon = "Double Hander"
bob.clothing = "Magic Tunic"
bob.backpack.item1 = "Aloe Vera Plant"
bob.backpack.item2 = "Recharge Crystal"
bob.backpack.item3 = "Hammer"

print "hello"
print "strength: "+str$(bob.strength)
print "dexterity: "+str$(bob.dexterity)
print "mana: "+str$(bob.mana)
print "weapon: "+bob.weapon
print "clothing: "+bob.clothing
print "backpack Item1: "+bob.backpack.item1
print "backpack Item2: "+bob.backpack.item2
print "backpack Item3: "+bob.backpack.item3
print ""
input "Press return key to quit...", ""

What the flame does not consume, consumes the flame.
------------------------------------------------------------------------
AMD XP2100+, Geforce4Ti 4400, 512Mb DDR, Abit KX7, WinXP Home

Back to top

Profile PM Email

jasuk70

21

Years of Service

User Offline

Joined: 3rd Dec 2002

Location: Hemel Hempstead

Posted: 18th Dec 2002 15:18

Link

Thanks for that Kale, but i was planning on using the backpack type of thing with an array like
Character.Backpack(0)="Item1"

So i can use loops to process it in the game.

But thanks about that GLOBAL keyword, must have missed that in my searchings, it will help me out a bit in other things.

Jas

Back to top

Profile PM Email Website

Kale

22

Years of Service

User Offline

Joined: 8th Sep 2002

Location: United Kingdom

Posted: 18th Dec 2002 19:34

Link

Global is not in the manual, nor is #constant, infact i can't find anything about user defined types either!

i tried to create an array within a UDT but it doesn't seem to allow it, which is a shame, other basics do! Also its very annoying that an 'eval()' function isn't included as these are an invaluble aid to iteration. You could of done this:

+ Code Snippet

for ITEM_NUMBER = 1 to 3
    eval('print "backpack Item'+str$(ITEM_NUMBER)+': "'+bob.backpack.item+str$(ITEM_NUMBER))
next e

What the flame does not consume, consumes the flame.
------------------------------------------------------------------------
AMD XP2100+, Geforce4Ti 4400, 512Mb DDR, Abit KX7, WinXP Home

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 19th Dec 2002 03:44

Link

its possible or my 8000 line sof prototype code would fall over.

patch 3.1 is what I use in DBP.

I have posted a dim array type snippet around here before.

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Kale

22

Years of Service

User Offline

Joined: 8th Sep 2002

Location: United Kingdom

Posted: 19th Dec 2002 14:46

Link

could you post the type here to show how an array was coded within a type? pretty please?

What the flame does not consume, consumes the flame.
------------------------------------------------------------------------
AMD XP2100+, Geforce4Ti 4400, 512Mb DDR, Abit KX7, WinXP Home

Back to top

Profile PM Email

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 19th Dec 2002 17:39

Link

sure

+ Code Snippet


sync on
sync rate 0
set text size 20
set text font "verdana"
ink rgb(255,255,255),1


TYPE Monster
NUM AS INTEGER
NAME AS STRING
HPS AS INTEGER
x# as FLOAT
y# as FLOAT
z# as FLOAT
ENDTYPE


dim Monster(1) as Monster
Monster(1).NUM=1
Monster(1).NAME="BugBear"
Monster(1).HPS=35
Monster(1).x#=0.0
Monster(1).y#=0.0
Monster(1).z#=0.0

make object cube Monster(1).NUM,10
position object Monster(1).NUM,Monster(1).x#,Monster(1).y#,Monster(1).z#

position camera 0,30,-60
point camera 0,0,0

do

Output()


if escapekey()=1
delete object Monster(1).NUM
undim Monster(1)
end
endif

sync
loop


function Output()
center text object screen x(1),object screen y(1),""+Monster(1).NAME
endfunction

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 19th Dec 2002 17:44

Link

I thought he meant arrays in types, something like:

+ Code Snippet

Type Character
   Name as String
   DIM Items(10) as String
Endtype
MyChar as Character
MyChar.Items(1) = "Picklock"

that is not possible AFAIK

Ogres have layers.

Back to top

Profile PM

jasuk70

21

Years of Service

User Offline

Joined: 3rd Dec 2002

Location: Hemel Hempstead

Posted: 19th Dec 2002 19:30

Link

Yup, empty, that is what i was trying to do. I've just created a sepearate Arry outside the Type now. ( Called BackPack funnily enough

).

I'm currently working on a text input routine to allow for more control over inputs like Numeric only input and limited number of characters. Has anyone else done something similar that might save me the hassles? If not i'll post mine in the code snippets area when it's finished.

Jas

Back to top

Profile PM Email Website

Kale

22

Years of Service

User Offline

Joined: 8th Sep 2002

Location: United Kingdom

Posted: 19th Dec 2002 20:19

Link

Quote: "I thought he meant arrays in types"

yep! i can't find a way

What the flame does not consume, consumes the flame.
------------------------------------------------------------------------
AMD XP2100+, Geforce4Ti 4400, 512Mb DDR, Abit KX7, WinXP Home

Back to top

Profile PM Email

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 19th Dec 2002 22:04

Link

Hmm maybe this will settle confusion. As far as I know, there is no way to make an array in a type but you can make an array of types.

+ Code Snippet

dim V(20) as MyType

is perfectly legal

+ Code Snippet

TYPE
  dim v(20) as integer
ENDTYPE

is not legal, I think I remember reading a while ago that it is possible to make arrays in a type or at least an equivalent using memblocks, but I have no idea how you would go about doing this

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 20th Dec 2002 02:11

Link

you guys are not making much sense.

whats wrong with using the method above I posted?

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

Vandetta

21

Years of Service

User Offline

Joined: 17th Dec 2002

Location:

Posted: 20th Dec 2002 05:01

Link

Indi your method is fine, but thats not what he wants. He doesn't want an array of a type he wants an array inside of a type.

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 20th Dec 2002 14:49

Link

so instead of

Monster(1).HPS

he wants Monster(1).HPS(1) ?

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 20th Dec 2002 15:09

Link

I think so.
So he can make a function like:

function AddToBackpack(CharNum,Item$)
i = 0
while i < 11
inc i
if Character(CharNum).Backpack(i) = ""
Character(CharNum).Backpack(i) = Item$

endif

Ogres have layers.

Back to top

Profile PM

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 20th Dec 2002 15:10

Link

ooops

Once again:

+ Code Snippet

function AddToBackpack(CharNum,Item$)
   i = 0
   while i < 11
      inc i
      if Character(CharNum).Backpack(i) = ""
         Character(CharNum).Backpack(i) = Item$
         exit
      endif
   end while
endfunction

Ogres have layers.

Back to top

Profile PM

jasuk70

21

Years of Service

User Offline

Joined: 3rd Dec 2002

Location: Hemel Hempstead

Posted: 20th Dec 2002 18:25

Link

Yup, thats exactly the sort of thing I was on about.

Cheers,

Jas

Back to top

Profile PM Email Website

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 21st Dec 2002 03:14

Link

I see your point now and to ammend that code above to be more in tune wouldnt the backpack dim be a string as the items?
eg:
Backpack$(i) = Item$ would be more the case tho?

http://www.lunarpixel.com

http://www.lunarpixel.com/dt/

Back to top

Profile PM Email

jasuk70

21

Years of Service

User Offline

Joined: 3rd Dec 2002

Location: Hemel Hempstead

Posted: 21st Dec 2002 12:36

Link

I've just created a new seperate array to get round this.

DIM BackPack(6,10,2)

So If Character 1 has a Sword Equipped in slot three it would look like:

BackPack(1,3,0)=1 :` 1=Sword Item Code
BackPack(1,3,1)=2 :` 2=Code for Item Equipped

All the Items in the game will be coded so it doesnt need to store the text value in the array.

Thanks for all the help from peeps.

Jas

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Using Arrays inside of Data Types