Container Inventory - GameCreators Forum

Author

Message

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 14th May 2008 19:53

Link

Hi guy's, I trying to make and container inventory for my side project Dark Morrowind. Basically every container object has it's own inventory. Now I don't have a problem coding whatever I need to code (if you give me an idea, i'll code it and post the example), but I don't know the most efficent way of doing this, does anyone have any advice?

Mods: Though this seems like a Game Theory question, it's not... trust me... please

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

The Wilderbeast

20

Years of Service

User Offline

Joined: 14th Nov 2005

Location: UK

Posted: 14th May 2008 20:08

Link

You would use an array. So you could have an array like Container(id,obj) where Id is the unique number of the container, and obj is the object number.

So you would have something like container(1,20)=2
Therefore container number 1 has 20x item 20 which could be a sword or something.

Please say if you don't understand what I am trying to explain.

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 14th May 2008 20:18

Link

That wouldn't work since each container can have more than one item in the inventory. If you've played Morrowind (or Oblivion) thats what I'm going for.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 14th May 2008 20:39

Link

Quote: "Therefore container number 1 has 20x item 20 which could be a sword or something."

Think I read this wrong then, OK, got it. I know most of this stuff already, gimme a sec to put something together then, i'll ask my original question: I don't know the most efficent way of doing this.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Hayer

20

Years of Service

User Offline

Joined: 4th Nov 2005

Location: Norway

Posted: 14th May 2008 20:45

Link

+ Code Snippet

Dim Bags(4,9)`5Bags with 10spots in each

Function putBag(bagNr as integer , spotNr as integer , item as string)
if bagNr < 5 and bagNr > -1
if spotNr < 10 and spotNr > -1
Bags(bagNr,spotNr) = item
endif
endif
EndFunction

Function getBag(bagNr as integer , spotNr as integer , item as string)
if bagNr < 5 and bagNr > -1
if spotNr < 10 and spotNr > -1
exitfunction Bags(bagNr , spotNr)
endif
endif
endfunction "#NULL"

Something like that?
If you know arrays you should have enough knowledge to re-write it for your own use.

Spread your games!
http://forum.thegamecreators.com/?m=forum_view&t=108800&b=5

Back to top

Profile PM Email Website

The Wilderbeast

20

Years of Service

User Offline

Joined: 14th Nov 2005

Location: UK

Posted: 14th May 2008 21:02

Link

Sorry, my bad for not explaining clearly.

When you create the array you would have DIM CONTAINER(ID,OBJ) and so you set ID as how ever many containers you want to create, and obj as however many different items there are in your game, each item has its own unique ID number.

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 14th May 2008 21:21 Edited at: 14th May 2008 23:53

Link

OK guy's, proberly should of said I'm not new to this, all I wanted to know is whats the most efficent way of creating this. Really I should of given an example of what I coded to compare it to a more efficent way.

Anyway... just coded this, it does exactly what I want and I can easily add to it.

Rem Created by Zak (Sasuke) Everett

#constant true    = 1
#constant false   = 0

#constant C_ContainerMAX      = 99
#constant C_InvItemCountMAX   = 99

global KeyPress as boolean 
global TS as integer : TS = text size()+2
global CurrentIndex as integer : CurrentIndex = 0
global TextCountSpace as integer : TextCountSpace = 54

type Str_Container
   ID as string
   Name as string
   InventoryIndex as integer   
   InventoryCount as integer
endtype

type Str_Item
   ID as string
   Name as string
endtype

type Str_Inventory
   ItemId as string
   Count as integer
endtype

`Init array
dim _Item() as Str_Item
dim _Container() as Str_Container
dim _ContainerInv( C_ContainerMAX , C_InvItemCountMAX ) as Str_Inventory

`Create a few basic items
TempItem as Str_Item
TempItem.id = "id_fruit_01"
TempItem.name = "Apple"
CreateItem( TempItem )

TempItem.id = "id_fruit_02"
TempItem.name = "Banana"
CreateItem( TempItem )

TempItem.id = "id_misc_01"
TempItem.name = "Cow in the Box"
CreateItem( TempItem )

`Create Container that container objects will use
TempContainer as Str_Container
TempContainer.id = "id_con_barrel"
TempContainer.name = "Barrel"
CreateContainer( TempContainer )

TempContainer.id = "id_con_sm_chest"
TempContainer.name = "Small Chest"
CreateContainer( TempContainer )

TempContainer.id = "id_con_l_chest"
TempContainer.name = "Large Chest"
CreateContainer( TempContainer )

`Lets add some items to the containers
AddItem.ContainerInventory( "id_con_barrel" , "id_fruit_01" , 2 )
AddItem.ContainerInventory( "id_con_barrel" , "id_fruit_02" , 9 )
AddItem.ContainerInventory( "id_con_barrel" , "id_fruit_01" , 28 ) `add 3 more apples to Barrel

AddItem.ContainerInventory( "id_con_sm_chest" , "id_fruit_02" , 2 )
AddItem.ContainerInventory( "id_con_sm_chest" , "id_misc_01" , 1 )

`setup display
sync on : sync rate 0
set display mode 1024,768,32

do : cls

`Control's
   if array count( _Container() ) > -1
      if CurrentIndex >= 0 and CurrentIndex < array count( _Container() )
         if inkey$()="2" and KeyPress = false
            inc CurrentIndex , 1
            KeyPress = true
         endif
      endif
   
      if CurrentIndex <= array count( _Container() ) and CurrentIndex > 0 
         if inkey$()="1" and KeyPress = false
            dec CurrentIndex , 1
            KeyPress = true
         endif
      endif
   endif
   
   Ix = CurrentIndex
   
   text 0,0, "[Container] - Container: "+str$(Ix)
   text 0,TS, "ID: " + _Container( Ix ).ID  
   text 0,TS*2, "Name: " + _Container( Ix ).Name 
   
   text 0,TS*4 , "[Container Inventory]"
   for x = 0 to _Container( Ix ).InventoryCount
      ID$ = "Name: " + GetItemName( _ContainerInv( _Container( Ix ).InventoryIndex , x ).ItemId )
      text 0,(TS*5)+(x*TS), ID$
      text TextCountSpace + text width(ID$), (TS*5)+(x*TS), "Count: " + str$( _ContainerInv( _Container( Ix ).InventoryIndex , x ).Count )
   next x
   
   `check to see if there a keypress
   if scancode() = false then KeyPress = false
   
   `instructions 
   center text screen width()/2,screen height()-(TS*2), "Press 2 to look at the next Container, press 1 to look at the Previous"

sync      
loop

`Item Function
function CreateItem( TempItem as Str_Item )
   if ItemIDExist( TempItem.ID ) > 0 then exitfunction
   array insert at bottom _Item()
   _Item().ID       = TempItem.ID
   _Item().Name     = TempItem.Name   
endfunction

function GetItemName( ItemId as string )
   local Name as string
   for index = 0 to array count( _Item() )
      if _Item( index ).ID = ItemId
         Name = _Item( index ).Name
         exitfunction Name
      endif
   next index
endfunction Name

function ItemIDExist( ID as string )
   for index = 0 to array count( _Item() )
      if _Item( index ).ID = ID
         exitfunction true
      endif
   next index
endfunction false

`Container Function
function CreateContainer( TempCon as Str_Container )
   if ContainerExist( TempCon.ID ) > 0 then exitfunction
   array insert at bottom _Container()
   _Container().id        = TempCon.id
   _Container().name      = TempCon.name   
   _Container().InventoryIndex = array count( _Container() )
   _Container().InventoryCount = -1
endfunction

function ContainerExist( ID as string )
   for index = 0 to array count( _Container() )
      if _Container( index ).ID = ID
         exitfunction true
      endif
   next index
endfunction false

function GetContainerIndex( ID as string )
   for index = 0 to array count( _Container() )
      if _Container( index ).ID = ID
         exitfunction index
      endif
   next index
endfunction index

`Container Inventory Function
function AddItem.ContainerInventory( InvID as string , ItemId as string , Count )
   if ItemIDExist( ItemId ) = false then exitfunction
   if Count < 1 then exitfunction
   index = GetContainerIndex( InvID )
   
   `if the item we are trying to add to the inventory exist, increase the count of that item
   if InventoryItemExist( InvID , ItemId ) > 0
      Ix = GetInventoryItemIndex( InvID , ItemId )
      inc _ContainerInv( _Container( index ).inventoryindex , Ix ).Count , Count
   else
      inc _Container( index ).InventoryCount , 1
      _ContainerInv( _Container( index ).InventoryIndex , _Container( index ).InventoryCount ).ItemId = ItemId
      _ContainerInv( _Container( index ).InventoryIndex , _Container( index ).InventoryCount ).Count = Count
   endif  
endfunction

function InventoryItemExist( InvID as string , ItemId as string )
   index = GetContainerIndex( InvID )
   for Ix = 0 to _Container( index ).InventoryCount
      if _ContainerInv( _Container( index ).InventoryIndex , Ix ).ItemId = ItemId
         exitfunction true
      endif
   next Ix 
endfunction false

function GetInventoryItemIndex( InvID as string , ItemId as string )
   index = GetContainerIndex( InvID )
   for Ix = 0 to _Container( index ).InventoryCount
      if _ContainerInv( _Container( index ).InventoryIndex , Ix ).ItemId = itemId
         exitfunction Ix
      endif
   next Ix 
endfunction Ix

+ Code Snippet

Rem Created by Zak (Sasuke) Everett

#constant true    = 1
#constant false   = 0

#constant C_ContainerMAX      = 99
#constant C_InvItemCountMAX   = 99

global KeyPress as boolean 
global TS as integer : TS = text size()+2
global CurrentIndex as integer : CurrentIndex = 0
global TextCountSpace as integer : TextCountSpace = 54


type Str_Container
   ID as string
   Name as string
   InventoryIndex as integer   
   InventoryCount as integer
endtype

type Str_Item
   ID as string
   Name as string
endtype

type Str_Inventory
   ItemId as string
   Count as integer
endtype

`Init array
dim _Item() as Str_Item
dim _Container() as Str_Container
dim _ContainerInv( C_ContainerMAX , C_InvItemCountMAX ) as Str_Inventory

`Create a few basic items
TempItem as Str_Item
TempItem.id = "id_fruit_01"
TempItem.name = "Apple"
CreateItem( TempItem )

TempItem.id = "id_fruit_02"
TempItem.name = "Banana"
CreateItem( TempItem )

TempItem.id = "id_misc_01"
TempItem.name = "Cow in the Box"
CreateItem( TempItem )

`Create Container that container objects will use
TempContainer as Str_Container
TempContainer.id = "id_con_barrel"
TempContainer.name = "Barrel"
CreateContainer( TempContainer )

TempContainer.id = "id_con_sm_chest"
TempContainer.name = "Small Chest"
CreateContainer( TempContainer )

TempContainer.id = "id_con_l_chest"
TempContainer.name = "Large Chest"
CreateContainer( TempContainer )

`Lets add some items to the containers
AddItem.ContainerInventory( "id_con_barrel" , "id_fruit_01" , 2 )
AddItem.ContainerInventory( "id_con_barrel" , "id_fruit_02" , 9 )
AddItem.ContainerInventory( "id_con_barrel" , "id_fruit_01" , 28 ) `add 3 more apples to Barrel

AddItem.ContainerInventory( "id_con_sm_chest" , "id_fruit_02" , 2 )
AddItem.ContainerInventory( "id_con_sm_chest" , "id_misc_01" , 1 )

`setup display
sync on : sync rate 0
set display mode 1024,768,32

do : cls

   `Control's
   if array count( _Container() ) > -1
      if CurrentIndex >= 0 and CurrentIndex < array count( _Container() )
         if inkey$()="2" and KeyPress = false
            inc CurrentIndex , 1
            KeyPress = true
         endif
      endif
   
      if CurrentIndex <= array count( _Container() ) and CurrentIndex > 0 
         if inkey$()="1" and KeyPress = false
            dec CurrentIndex , 1
            KeyPress = true
         endif
      endif
   endif
   
   Ix = CurrentIndex
   
   text 0,0, "[Container] - Container: "+str$(Ix)
   text 0,TS, "ID: " + _Container( Ix ).ID  
   text 0,TS*2, "Name: " + _Container( Ix ).Name 
   
   text 0,TS*4 , "[Container Inventory]"
   for x = 0 to _Container( Ix ).InventoryCount
      ID$ = "Name: " + GetItemName( _ContainerInv( _Container( Ix ).InventoryIndex , x ).ItemId )
      text 0,(TS*5)+(x*TS), ID$
      text TextCountSpace + text width(ID$), (TS*5)+(x*TS), "Count: " + str$( _ContainerInv( _Container( Ix ).InventoryIndex , x ).Count )
   next x
   
   `check to see if there a keypress
   if scancode() = false then KeyPress = false
   
   `instructions 
   center text screen width()/2,screen height()-(TS*2), "Press 2 to look at the next Container, press 1 to look at the Previous" 

   sync      
loop


`Item Function
function CreateItem( TempItem as Str_Item )
   if ItemIDExist( TempItem.ID ) > 0 then exitfunction
   array insert at bottom _Item()
   _Item().ID       = TempItem.ID
   _Item().Name     = TempItem.Name   
endfunction 

function GetItemName( ItemId as string )
   local Name as string
   for index = 0 to array count( _Item() )
      if _Item( index ).ID = ItemId
         Name = _Item( index ).Name
         exitfunction Name
      endif
   next index
endfunction Name

function ItemIDExist( ID as string )
   for index = 0 to array count( _Item() )
      if _Item( index ).ID = ID
         exitfunction true
      endif
   next index
endfunction false

`Container Function
function CreateContainer( TempCon as Str_Container )
   if ContainerExist( TempCon.ID ) > 0 then exitfunction
   array insert at bottom _Container()
   _Container().id        = TempCon.id
   _Container().name      = TempCon.name   
   _Container().InventoryIndex = array count( _Container() )
   _Container().InventoryCount = -1
endfunction 

function ContainerExist( ID as string )
   for index = 0 to array count( _Container() )
      if _Container( index ).ID = ID
         exitfunction true
      endif
   next index
endfunction false

function GetContainerIndex( ID as string )
   for index = 0 to array count( _Container() )
      if _Container( index ).ID = ID
         exitfunction index
      endif
   next index
endfunction index

`Container Inventory Function
function AddItem.ContainerInventory( InvID as string , ItemId as string , Count )
   if ItemIDExist( ItemId ) = false then exitfunction
   if Count < 1 then exitfunction
   index = GetContainerIndex( InvID )
   
   `if the item we are trying to add to the inventory exist, increase the count of that item
   if InventoryItemExist( InvID , ItemId ) > 0
      Ix = GetInventoryItemIndex( InvID , ItemId )
      inc _ContainerInv( _Container( index ).inventoryindex , Ix ).Count , Count
   else
      inc _Container( index ).InventoryCount , 1
      _ContainerInv( _Container( index ).InventoryIndex , _Container( index ).InventoryCount ).ItemId = ItemId
      _ContainerInv( _Container( index ).InventoryIndex , _Container( index ).InventoryCount ).Count = Count
   endif  
endfunction 

function InventoryItemExist( InvID as string , ItemId as string )
   index = GetContainerIndex( InvID )
   for Ix = 0 to _Container( index ).InventoryCount
      if _ContainerInv( _Container( index ).InventoryIndex , Ix ).ItemId = ItemId
         exitfunction true
      endif
   next Ix 
endfunction false

function GetInventoryItemIndex( InvID as string , ItemId as string )
   index = GetContainerIndex( InvID )
   for Ix = 0 to _Container( index ).InventoryCount
      if _ContainerInv( _Container( index ).InventoryIndex , Ix ).ItemId = itemId
         exitfunction Ix
      endif
   next Ix 
endfunction Ix

Now the question, is there a better way?

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 14th May 2008 23:56

Link

So i'm guessing theres not?

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

RiiDii

21

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 15th May 2008 01:17

Link

The way I would do it is by using a single dimension array (using Types, of course) and look up by reference which items are in which inventory you are looking in at any given time. While this may seem to be inefficient, it is fairly fast and can be made even faster with few simple tricks.

A very basic set-up:

+ Code Snippet

Type Items
  ID as Integer
  Name as String
  Location as Integer
  Container as Boolean
EndType

Dim ItemList(-1) as Items
Dim TempList(-1) as Items

Set the ItemList(n).Location to the ID (or index) of the Item that is the container containing the item. Something like this:

Placing Object #57 into container Object #32

ItemList(57).Location = 32

You can place any number of items now into the container object #32. Want to put a limit on it? Just set the ItemList().Container value to any number greater than 0 and that is how many objects the container can hold.

Now you might be thinking, 'what if I have 10,000 items in my game? That's a pretty long array to search for the items that are in any given container.' Truth is that DBPro can search that array pretty quickly. But do it only once by storing the container list in the TempList() array. Also, we are talking about populating an inventory list, not real-time targeting AI; so the list could be populated piece-meal. For example, 1/3rd of the list could be populated each frame. In three frames, your TempList() container inventory is populated; that's about 1/10th of a second at a very low 30 FPS.

Not that 0.1 seconds is too long to wait for an inventory to populate, but you might want to squeeze a little more out of a system like this. Another trick to speed things up would be to delete an item from the master list when it is placed into a container and add it back onto the array stack at the bottom. Then you can search the array stack from last-to-first and find items that have been more recently moved in less time.

A final time saver (and I think you have done this) is to separate the data into values and string. Keep a separate array for values and an array for strings. Searching an array with strings, I suspect, is likely to be slower than searching an array that has no strings.

Open MMORPG: It's your game!

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 15th May 2008 03:18 Edited at: 15th May 2008 17:37

Link

Cheers RiiDii for explaining it so well, interesting concept. Though I might end up ruuning into problems with that, since the containers has extra params, like weight limit, object size limit, if its a script trigger container or etc... Also, there won't ever be to many items in the array.

Whenever theres a loading scene, which is going between exterior cells(proberly remove this and opt for background loading) and exterior to interior or visa versa, this is where the arrays are populated with whatever items are in that cell, part of a region of cells or interior.

[Edit]
Created a scene using the array setup I have now, and it work's great and fast.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 15th May 2008 17:41 Edited at: 15th May 2008 17:41

Link

If you want to test it out, heres the exe (900 KB). Ii will run at whatever your system resolution is. Just need to sort out the text box scales at different resolutions but thats for later.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

TechLord

23

Years of Service

User Offline

Joined: 19th Dec 2002

Location: TheGameDevStore.com

Posted: 15th May 2008 18:39 Edited at: 15th May 2008 20:40

Link

Wow Sasuke,

You move really fast and its looking really good. I felt like I was actually playing Morrowind for about 5 seconds. Excellent work.

How significant is weight of an item?

DarkMORG: A Persistent Online Multiplayer 3D RPG FPS Game System

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 15th May 2008 19:30

Link

Thanks TechLord, I'm not to sure about weight yet, I might rework it.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

RiiDii

21

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 16th May 2008 08:40

Link

Very nice indeed! I look forward to seeing more.

Open MMORPG: It's your game!

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 16th May 2008 13:44 Edited at: 16th May 2008 13:45

Link

I think the Morrowind UI needs an redo, it's abit dated. So i'm add a kind of World of Warcraft UI. Heres my first attempt, just added that bar at the top(don't no the name of it). Plus now you can pick up items.

The way I place items is use another array just for placing items. All it needs is the ID of the item object you want to place an the rest is handle by the engine, so it will take the ID/Pos/Rot out of a script and place it in the world(world being the load interior or exterior cell). When you pick up an item, it is added to you inventory array and deleted from the place item array.

Now it's pretty good at the moment, I did a test where I placed 1000 items in a room and it didn't really affect performance, but is this the right way of doing it, I need the engine to beable to work to it's best, and idea's?

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

jinzai

19

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 16th May 2008 14:08 Edited at: 16th May 2008 14:10

Link

Awesome, awesome, awesome.

I do have a complaint about that bookcase, and its only from a woodworker's point of view. The shelves are not running in the right direction, unless the woodworker was finding a use for cutoffs. I can't tell if they have brackets, but they don't really need them, either. Its very nice looking, however. I like the textures alot!

As for an engine, naturally most will want to see Lua, or something like that, but I like XML alot for this type of thing. COLLADA uses XML, but you can certainly use your own XML schema, too. The reason I like XML is that I am familiar with it already, its free and already available for use in several ways, and XML is pretty rigidly defined.

I only mean that for bringing the items into and taking them out of the program, btw.

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 16th May 2008 14:28

Link

HeHe, that bookcase was a rush job, just needed a prop for the scene. Hmm... XML or Lua, good idea, i'll test it out later.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 16th May 2008 15:45 Edited at: 16th May 2008 15:49

Link

What if I made my own system that was more accessable to people without knowledge of XML or Lua. Like this is what I use at the moment for loading objects into a scene:

[location] = "test room"  // the location id (interior/exterior) we are loading
   [place object]
      [object type] = "static"
         [id] = "bookcase_01"
         [position]
            x=0.0
            y=0.0
            z=0.0
         [orientation]
            x=0.00
            y=0.00
            z=0.00

[object type] = "misc item"
         [id] = "book_001"
         [position]
            x=23.0
            y=1.0
            z=9.0
         [orientation]
            x=23.00
            y=1.00
            z=9.00

[id] = "gold_001"
         [position]
            x=13.0
            y=22.01
            z=122.0
         [orientation]
            x=0.0
            y=0.0
            z=0.0

[object type] = "container"
         [id] = "barrel_01"
         [position]
            x=32.0
            y=0.01
            z=0.0
         [orientation]
            x=0.0
            y=0.0
            z=0.0
         [insert object]   // this will insert objects(items) into a the current container
            [id] = "apple_01" , 3
            [id] = "book_09" , 1

[end place object]
[end]

+ Code Snippet

[location] = "test room"  // the location id (interior/exterior) we are loading
   [place object]
      [object type] = "static"
         [id] = "bookcase_01"
         [position]
            x=0.0
            y=0.0
            z=0.0
         [orientation]
            x=0.00
            y=0.00
            z=0.00

      [object type] = "misc item"
         [id] = "book_001"
         [position]
            x=23.0
            y=1.0
            z=9.0
         [orientation]
            x=23.00
            y=1.00
            z=9.00

         [id] = "gold_001"
         [position]
            x=13.0
            y=22.01
            z=122.0
         [orientation]
            x=0.0
            y=0.0
            z=0.0

      [object type] = "container"
         [id] = "barrel_01"
         [position]
            x=32.0
            y=0.01
            z=0.0
         [orientation]
            x=0.0
            y=0.0
            z=0.0
         [insert object]   // this will insert objects(items) into a the current container
            [id] = "apple_01" , 3
            [id] = "book_09" , 1

   [end place object]
[end]

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

jinzai

19

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 16th May 2008 16:16

Link

Well, I was going to suggest that you use the system you posted last week! I mean, it works great, and is in native code, too.

Honestly, as long as it is not a total dog in terms of load time and init time, it is more maintainable, since you do not need to worry about the continued compatibility of the support code.

When the file I/O becomes an issue, you can still retreat to using Windows or C file I/O directly (via load dll) in DBPro, since they are buffered and have position control, too.

Back to top

Profile PM Email Website

GatorHex

21

Years of Service

User Offline

Joined: 5th Apr 2005

Location: Gunchester, UK

Posted: 16th May 2008 17:14

Link

LUA was designed for this, check it out.

DinoHunter (still no nVidia compo voucher!), CPU/GPU Benchmark, DarkFish Encryption DLL, War MMOG (WIP), 3D Model Viewer

Back to top

Profile PM Website

RiiDii

21

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 16th May 2008 17:40 Edited at: 16th May 2008 17:41

Link

We developed a parser library for the Open MMORPG, which makes reading in any script fairly straight forward. You can develop your own scripting from there. It does make use Ian M's Matrix1Util_16.dll for faster text manipulation. File attached.

The way we would use it is to create an Object Placement Script and simply script the data the same way a Function's parameters would call for the data. So a function that started like this:

Function Place_Object(File$,px#,py#,pz#,ax#,ay#,az#)

Can be scripted like this:

Media/Money/Gold.x;127.8;2.3;5534.45;0;0;0
Media/Books/ParadeOfTheDead.x;157.8;5.8;-856.95;0;0;90

This scripting can easily be exported from a world/room editor. This is how we did object placement in our RPG demo. Script reading was even scripted, so we could tell the reader which scripts to read in.

Open MMORPG: It's your game!

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 17th May 2008 01:19

Link

Thanks RiiDii, i'll have a play with it. At the moment, i'm using this method since theres no editor yet:

+ Code Snippet

[location] = ""  
   [place object]
      [object type] = ""
         [id] = ""
         [position]
            x=0.0
            y=0.0
            z=0.0
         [orientation]
            x=0.00
            y=0.00
            z=0.00

This way I (or others) can edit easier. When I have an editor to place objects, then I'd opt for your way (File$,px#,py#,pz#,ax#,ay#,az#) since I would never have to look at it again or edit it directly.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

TechLord

23

Years of Service

User Offline

Joined: 19th Dec 2002

Location: TheGameDevStore.com

Posted: 18th May 2008 10:12 Edited at: 18th May 2008 10:15

Link

Sasuke,

You know how I feel about Extending the Content. I would store this data in a SQL database (preferrably a remote SQL database) and use as many tables needed to link this data together with DB Queries.

I use CattleRustler's MySQL DLL and it works great. I can also use Ian M's Matrix1Util #28 and PHP Scripts to perform DB Queries via HTTP GET/POST.

There may be slightly more work in setting this up, but, it will be way worth it once in place.

DarkMORG: A Persistent Online Multiplayer 3D RPG FPS Game System

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 18th May 2008 15:14 Edited at: 18th May 2008 15:14

Link

Ok, added that to the list TechLord.

Currently, I'm having a bit of a problem trying to make the inventory come to life. This is what it looks like in Morrowind:

This thing is hard to work out, the inventory will autosort it's self out based on window width and height (Done that), it also adds scroll bars when there more items than the windon can contain( nearly, just need to sort out the scroll formula ), ontop of that the window can be resized(hmm... shouldn't be to hard once the damn scroll bars out of the way). Man, this could take awhile.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 18th May 2008 19:39

Link

Finally got the windows working, they resize now(Only sprite used). Only have to fuse the inventory and the window together now, that may take a while.

Anyway if anyone what to see my windows in action (don't worry, i'll make them more Morrowind style soon), heres an EXE.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

TechLord

23

Years of Service

User Offline

Joined: 19th Dec 2002

Location: TheGameDevStore.com

Posted: 19th May 2008 01:41 Edited at: 19th May 2008 01:41

Link

Sasuke,

I could have warned you about the GUI. GUIs are separate projects in themselves. I'm gruling away on my own. Although it was supposed to be simple as HTML ImageMap with some additional features, its taking me more time than I wanted to get it finished.

DarkMORG: A Persistent Online Multiplayer 3D RPG FPS Game System

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 19th May 2008 02:12 Edited at: 19th May 2008 02:16

Link

TechLord,

Guess you haven't seen any of my other GUI stuff, the GUI system my level editor uses is pretty, how should I say this, up there with the greats (I think). It's completely made with DBP and took ages heres a pic:

Also so some stylish buttons I might add to it, again all made with DBP:

I wonder what I could make for this project, hmm...

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

TechLord

23

Years of Service

User Offline

Joined: 19th Dec 2002

Location: TheGameDevStore.com

Posted: 19th May 2008 02:30

Link

Sasuke,

WOW, looking SWeeet! I missed that one. It appears that you already have a very nice GUI System ready for Dark Morrowind.

DarkMORG: A Persistent Online Multiplayer 3D RPG FPS Game System

Back to top

Profile PM Email Website

draknir_

19

Years of Service

User Offline

Joined: 19th Oct 2006

Location: Netherlands

Posted: 19th May 2008 04:27

Link

Wow... thats even better than the last GUI pic i saw from you. nice work sasuke, also on the inventory system

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 19th May 2008 15:47 Edited at: 19th May 2008 15:50

Link

Hi guys, need some help with working out the inventory scroll bar formula. I will refine the code, turn it into functions and etc... but for now I just want to get it working. I think I've taken the right approach in simulating the Morrowind inventory system, your see what I mean. Thank in advance

I can't figure out the Scroll bit when the window increases or decrease size.

The code:

sync on : sync rate 60
load dll "user32.dll",1
   sWidth = call dll( 1 , "GetSystemMetrics" , 0 )
   sHeight = call dll( 1 , "GetSystemMetrics" , 1 )
delete dll 1
set display mode sWidth , sHeight , 32

type str_inventory
   ID as integer
   SlotID as integer
   slotUsed as boolean
   SlotX as integer
endtype
   
dim Inventory(999) as str_inventory

global KeyPress as boolean
global SBarSBarGrab as boolean
global ScrollX 
global OffsetX 
global MX
global Scroll `= 1
global begin = 1

CurWidth = 256
CurHeight = 128

MaxWidth = 256
MaxHeight = 128

sizeX = 32
sizeY = 32

Blocks = 42

for x = 1 to Blocks
   InsertIntoSlot()
next x

do : cls

if MaxHeight >= CurHeight+sizeY 
      CurHeight = MaxHeight
   endif
   
   if MaxHeight <= CurHeight-sizeY 
      CurHeight = MaxHeight
   endif

MX = mousex()

for x = 1-(Scroll*sizeX) to CurWidth-(Scroll*sizeX) step sizeX
      for y = 1 to CurHeight step sizeY 
      
         inc Slot 
         
         Inventory(Slot).SlotX = x+sizeX
         
         MaxSlots = (CurWidth/sizeX) * (CurHeight/sizeY)
          
         if GetUsedSlots() > MaxSlots 
            CurWidth = CurWidth + sizeX
         endif
         
         if GetUsedSlots() < MaxSlots-(CurHeight/sizeY)
            CurWidth = CurWidth - sizeX
         endif
         
         if CurWidth > MaxWidth
            TotalSlotX = CurWidth / sizeX 
         else
            TotalSlotX = 0
            Scroll = 0
         endif   
         
         if TotalSlotX > (MaxWidth/sizeX)

if mousex()>ScrollX and mousex()<ScrollToX 
               if mousey()>MaxHeight and mousey()<MaxHeight+12
                  if mouseclick() = 1
                     SBarGrab = 1
                  endif
               endif
            endif
            
            if SBarGrab = 1
               ScrollX = (MX-OffsetX)
               else
              	OffsetX = MX-ScrollX	
            endif
            
            if mouseclick() = 0
               SBarGrab = 0
            endif
            
            Percent = (((MaxWidth/sizeX))*MaxWidth )/TotalSlotX
            
            if ScrollX < 0 then ScrollX = 0
            if ScrollToX > MaxWidth then ScrollX = MaxWidth-Percent
            
            `I can't seem to work out the forumla, so I just put a random number in the end
            Scroll  = ((ScrollX - 32)/10)

ScrollToX = ScrollX+Percent

box ScrollX,MaxHeight,ScrollToX,MaxHeight+12
                         
         endif  
         
         if Inventory(Slot).SlotX < (MaxWidth+sizeX)
            if Inventory(Slot).SlotUsed > 0
               ink RGB(255,0,0),0
               box x , y , x+sizeX-1 , y+sizeY-1
               ink RGB(255,255,255),0
               center text x+(sizeX/2) , y+(sizeY/2),str$(Slot) 
            else
               ink RGB(255,255,255),0
               dot x+(sizeX/2) , y+(sizeY/2)
               
            endif
         endif
      
      next y
   next x

Slot = 0

ink RGB(255,255,255),0
   line 0,MaxHeight+1,MaxWidth+1,MaxHeight+1
   line MaxWidth+1,0,MaxWidth+1,MaxHeight+1
   
   if inkey$() = "m" and KeyPress = 0
      MaxHeight = MaxHeight + sizeY
      KeyPress = 1
   endif
   
   if inkey$() = "n" and KeyPress = 0
      if MaxHeight > sizeY
         MaxHeight = MaxHeight - sizeY
      endif
      KeyPress = 1
   endif
   
   if inkey$() = "b" and KeyPress = 0
      MaxWidth = MaxWidth + sizeX
      KeyPress = 1
   endif
   
   if inkey$() = "v" and KeyPress = 0
      if MaxWidth > sizeX
         MaxWidth = MaxWidth - sizeX
      endif
      KeyPress = 1
   endif
   
   if inkey$() = "i" and KeyPress = 0
      InsertIntoSlot()
      KeyPress = 1
   endif
   
   if inkey$() = "r" and KeyPress = 0
      RemoveSlot()
      KeyPress = 1
   endif
   
   if scancode() = 0 then KeyPress = 0
   
   text 0,screen height()-text size()*12,"[Instructions] - Press:" 
   text 0,screen height()-text size()*11,"M - to increase the Height of the window"
   text 0,screen height()-text size()*10,"N - to decrease the Height of the window"
   text 0,screen height()-text size()*9,"B - to increase the Width of the window"
   text 0,screen height()-text size()*8,"V - to decrease the Width of the window"  
   text 0,screen height()-text size()*7,"I - to add an inventory block"
   text 0,screen height()-text size()*6,"R - to remove an inventory block"     
   text 0,screen height()-text size()*4,"Total Slots X: "+str$(TotalSlotX)
   
   sync
loop

function InsertIntoSlot()
   for x = 1 to array count(Inventory())
      if Inventory(x).SlotUsed = 0
         Inventory(x).SlotID = x
         Inventory(x).SlotUsed = 1
         exitfunction
      endif
   next x
endfunction

function RemoveSlot()
   for x = array count(Inventory()) to 1 step - 1
      if Inventory(x).SlotUsed = 1
         Inventory(x).SlotUsed = 0
         Inventory(x).SlotID = 0
         exitfunction
      endif
   next x
endfunction

function GetUsedSlots()
   for x = 1 to array count(Inventory())
      if Inventory(x).SlotUsed = 1
         inc i 
      endif
   next x
endfunction i

+ Code Snippet

sync on : sync rate 60
load dll "user32.dll",1
   sWidth = call dll( 1 , "GetSystemMetrics" , 0 )
   sHeight = call dll( 1 , "GetSystemMetrics" , 1 )
delete dll 1
set display mode sWidth , sHeight , 32 

type str_inventory
   ID as integer
   SlotID as integer
   slotUsed as boolean
   SlotX as integer
endtype
   
dim Inventory(999) as str_inventory

global KeyPress as boolean
global SBarSBarGrab as boolean
global ScrollX 
global OffsetX 
global MX
global Scroll `= 1
global begin = 1

CurWidth = 256
CurHeight = 128

MaxWidth = 256
MaxHeight = 128

sizeX = 32
sizeY = 32

Blocks = 42

for x = 1 to Blocks
   InsertIntoSlot()
next x

do : cls

   if MaxHeight >= CurHeight+sizeY 
      CurHeight = MaxHeight
   endif
   
   if MaxHeight <= CurHeight-sizeY 
      CurHeight = MaxHeight
   endif

   MX = mousex()

   for x = 1-(Scroll*sizeX) to CurWidth-(Scroll*sizeX) step sizeX
      for y = 1 to CurHeight step sizeY 
      
         inc Slot 
         
         Inventory(Slot).SlotX = x+sizeX
         
         MaxSlots = (CurWidth/sizeX) * (CurHeight/sizeY)
          
         if GetUsedSlots() > MaxSlots 
            CurWidth = CurWidth + sizeX
         endif
         
         if GetUsedSlots() < MaxSlots-(CurHeight/sizeY)
            CurWidth = CurWidth - sizeX
         endif
         
         if CurWidth > MaxWidth
            TotalSlotX = CurWidth / sizeX 
         else
            TotalSlotX = 0
            Scroll = 0
         endif   
         
         if TotalSlotX > (MaxWidth/sizeX)

            if mousex()>ScrollX and mousex()<ScrollToX 
               if mousey()>MaxHeight and mousey()<MaxHeight+12
                  if mouseclick() = 1
                     SBarGrab = 1
                  endif
               endif
            endif
            
            if SBarGrab = 1
               ScrollX = (MX-OffsetX)
               else
              	OffsetX = MX-ScrollX	
            endif
            
            if mouseclick() = 0
               SBarGrab = 0
            endif
            
            Percent = (((MaxWidth/sizeX))*MaxWidth )/TotalSlotX
            
            if ScrollX < 0 then ScrollX = 0
            if ScrollToX > MaxWidth then ScrollX = MaxWidth-Percent
            
            `I can't seem to work out the forumla, so I just put a random number in the end
            Scroll  = ((ScrollX - 32)/10)

            ScrollToX = ScrollX+Percent

            box ScrollX,MaxHeight,ScrollToX,MaxHeight+12
                         
         endif  
         
         if Inventory(Slot).SlotX < (MaxWidth+sizeX)
            if Inventory(Slot).SlotUsed > 0
               ink RGB(255,0,0),0
               box x , y , x+sizeX-1 , y+sizeY-1
               ink RGB(255,255,255),0
               center text x+(sizeX/2) , y+(sizeY/2),str$(Slot) 
            else
               ink RGB(255,255,255),0
               dot x+(sizeX/2) , y+(sizeY/2)
               
            endif
         endif
      
      next y
   next x

   Slot = 0

   ink RGB(255,255,255),0
   line 0,MaxHeight+1,MaxWidth+1,MaxHeight+1
   line MaxWidth+1,0,MaxWidth+1,MaxHeight+1
   
   if inkey$() = "m" and KeyPress = 0
      MaxHeight = MaxHeight + sizeY
      KeyPress = 1
   endif
   
   if inkey$() = "n" and KeyPress = 0
      if MaxHeight > sizeY
         MaxHeight = MaxHeight - sizeY
      endif
      KeyPress = 1
   endif
   
   if inkey$() = "b" and KeyPress = 0
      MaxWidth = MaxWidth + sizeX
      KeyPress = 1
   endif
   
   if inkey$() = "v" and KeyPress = 0
      if MaxWidth > sizeX
         MaxWidth = MaxWidth - sizeX
      endif
      KeyPress = 1
   endif
   
   if inkey$() = "i" and KeyPress = 0
      InsertIntoSlot()
      KeyPress = 1
   endif
   
   if inkey$() = "r" and KeyPress = 0
      RemoveSlot()
      KeyPress = 1
   endif
   
   if scancode() = 0 then KeyPress = 0
   
   text 0,screen height()-text size()*12,"[Instructions] - Press:" 
   text 0,screen height()-text size()*11,"M - to increase the Height of the window"
   text 0,screen height()-text size()*10,"N - to decrease the Height of the window"
   text 0,screen height()-text size()*9,"B - to increase the Width of the window"
   text 0,screen height()-text size()*8,"V - to decrease the Width of the window"  
   text 0,screen height()-text size()*7,"I - to add an inventory block"
   text 0,screen height()-text size()*6,"R - to remove an inventory block"     
   text 0,screen height()-text size()*4,"Total Slots X: "+str$(TotalSlotX)
   
   sync
loop

function InsertIntoSlot()
   for x = 1 to array count(Inventory())
      if Inventory(x).SlotUsed = 0
         Inventory(x).SlotID = x
         Inventory(x).SlotUsed = 1
         exitfunction
      endif
   next x
endfunction

function RemoveSlot()
   for x = array count(Inventory()) to 1 step - 1
      if Inventory(x).SlotUsed = 1
         Inventory(x).SlotUsed = 0
         Inventory(x).SlotID = 0
         exitfunction
      endif
   next x
endfunction

function GetUsedSlots()
   for x = 1 to array count(Inventory())
      if Inventory(x).SlotUsed = 1
         inc i 
      endif
   next x
endfunction i

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Must Program

18

Years of Service

User Offline

Joined: 22nd Nov 2007

Location:

Posted: 19th May 2008 21:35

Link

HMmmmm i see youre problem now. the problem is ive tryed to understand what you have just written didnt and now im angry and want to strangle you for making me angry there you go there is ure problem j/k i dont know what the problem is but i do know that i dont know what to do

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 19th May 2008 22:49 Edited at: 19th May 2008 22:49

Link

Must Program, lol, don't beat your self over it

I think I might drop the dynamic inventory and opt for a more modern one. Working on the window at the moment, heres what I've got so far:

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Jeff032

18

Years of Service

User Offline

Joined: 13th Aug 2007

Location:

Posted: 20th May 2008 01:01

Link

The GUI system looks really nice

Looks like your scrollbar is the same as the Windows one except with the colors inverted

Any chance that the GUI system might possibly be open source? (Though forget it if it was coded like the code you posted in your coding styles thread

) I don't really have a project to use it for, but I like learning from other peoples' code.

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 20th May 2008 01:28 Edited at: 20th May 2008 01:28

Link

Quote: "Any chance that the GUI system might possibly be open source? "

I'm afraid not, in the future though (once my editors done then I'll share).

Quote: "Though forget it if it was coded like the code you posted in your coding styles thread"

Haha, lol. No it's not, I coded so everyone can understand it.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 20th May 2008 02:42 Edited at: 20th May 2008 05:00

Link

Edit:

There are multiple inventories now, you can move the windows as a window would be moved and move the items around the inventory and exchange items between inventories.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 20th May 2008 04:00

Link

If you want to test out the new inventory it would be greatly appreciated, here's the EXE. Tell me what you think?

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 20th May 2008 19:33 Edited at: 20th May 2008 19:33

Link

Has anyone tested it yet?

Added a kind of Morrowind style to the UI:

Inventory system nearly done now, just adding more stuff to it plus making different styles.

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Roxas

20

Years of Service

User Offline

Joined: 11th Nov 2005

Location: http://forum.thegamecreators.com

Posted: 21st May 2008 16:37

Link

Yes i did test it. From exprience i know that inventory system is hard to make. Especially one like this.

Your signature has been erased by a mod because it was too big

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 21st May 2008 21:55 Edited at: 21st May 2008 21:56

Link

Yeah, took me awhile, do you think it's OK?

Still haven't figured out how to fix that other inventory system though. The code again, the scroll bit is doing my head in:

sync on : sync rate 60
load dll "user32.dll",1
   sWidth = call dll( 1 , "GetSystemMetrics" , 0 )
   sHeight = call dll( 1 , "GetSystemMetrics" , 1 )
delete dll 1
set display mode sWidth , sHeight , 32

type str_inventory
   ID as integer
   SlotID as integer
   slotUsed as boolean
   SlotX as integer
endtype
   
dim Inventory(999) as str_inventory

global KeyPress as boolean
global SBarSBarGrab as boolean
global ScrollX 
global OffsetX 
global MX
global Scroll `= 1
global begin = 1

CurWidth = 256
CurHeight = 128

MaxWidth = 256
MaxHeight = 128

sizeX = 32
sizeY = 32

Blocks = 42

for x = 1 to Blocks
   InsertIntoSlot()
next x

do : cls

if MaxHeight >= CurHeight+sizeY 
      CurHeight = MaxHeight
   endif
   
   if MaxHeight <= CurHeight-sizeY 
      CurHeight = MaxHeight
   endif

MX = mousex()

for x = 1-(Scroll*sizeX) to CurWidth-(Scroll*sizeX) step sizeX
      for y = 1 to CurHeight step sizeY 
      
         inc Slot 
         
         Inventory(Slot).SlotX = x+sizeX
         
         MaxSlots = (CurWidth/sizeX) * (CurHeight/sizeY)
          
         if GetUsedSlots() > MaxSlots 
            CurWidth = CurWidth + sizeX
         endif
         
         if GetUsedSlots() < MaxSlots-(CurHeight/sizeY)
            CurWidth = CurWidth - sizeX
         endif
         
         if CurWidth > MaxWidth
            TotalSlotX = CurWidth / sizeX 
         else
            TotalSlotX = 0
            Scroll = 0
         endif   
         
         if TotalSlotX > (MaxWidth/sizeX)

if mousex()>ScrollX and mousex()<ScrollToX 
               if mousey()>MaxHeight and mousey()<MaxHeight+12
                  if mouseclick() = 1
                     SBarGrab = 1
                  endif
               endif
            endif
            
            if SBarGrab = 1
               ScrollX = (MX-OffsetX)
               else
              	OffsetX = MX-ScrollX	
            endif
            
            if mouseclick() = 0
               SBarGrab = 0
            endif
            
            Percent = (((MaxWidth/sizeX))*MaxWidth )/TotalSlotX
            
            if ScrollX < 0 then ScrollX = 0
            if ScrollToX > MaxWidth then ScrollX = MaxWidth-Percent
            
            `I can't seem to work out the forumla, so I just put a random number in the end
            Scroll  = ((ScrollX - 32)/10)

ScrollToX = ScrollX+Percent

box ScrollX,MaxHeight,ScrollToX,MaxHeight+12
                         
         endif  
         
         if Inventory(Slot).SlotX < (MaxWidth+sizeX)
            if Inventory(Slot).SlotUsed > 0
               ink RGB(255,0,0),0
               box x , y , x+sizeX-1 , y+sizeY-1
               ink RGB(255,255,255),0
               center text x+(sizeX/2) , y+(sizeY/2),str$(Slot) 
            else
               ink RGB(255,255,255),0
               dot x+(sizeX/2) , y+(sizeY/2)
               
            endif
         endif
      
      next y
   next x

Slot = 0

ink RGB(255,255,255),0
   line 0,MaxHeight+1,MaxWidth+1,MaxHeight+1
   line MaxWidth+1,0,MaxWidth+1,MaxHeight+1
   
   if inkey$() = "m" and KeyPress = 0
      MaxHeight = MaxHeight + sizeY
      KeyPress = 1
   endif
   
   if inkey$() = "n" and KeyPress = 0
      if MaxHeight > sizeY
         MaxHeight = MaxHeight - sizeY
      endif
      KeyPress = 1
   endif
   
   if inkey$() = "b" and KeyPress = 0
      MaxWidth = MaxWidth + sizeX
      KeyPress = 1
   endif
   
   if inkey$() = "v" and KeyPress = 0
      if MaxWidth > sizeX
         MaxWidth = MaxWidth - sizeX
      endif
      KeyPress = 1
   endif
   
   if inkey$() = "i" and KeyPress = 0
      InsertIntoSlot()
      KeyPress = 1
   endif
   
   if inkey$() = "r" and KeyPress = 0
      RemoveSlot()
      KeyPress = 1
   endif
   
   if scancode() = 0 then KeyPress = 0
   
   text 0,screen height()-text size()*12,"[Instructions] - Press:" 
   text 0,screen height()-text size()*11,"M - to increase the Height of the window"
   text 0,screen height()-text size()*10,"N - to decrease the Height of the window"
   text 0,screen height()-text size()*9,"B - to increase the Width of the window"
   text 0,screen height()-text size()*8,"V - to decrease the Width of the window"  
   text 0,screen height()-text size()*7,"I - to add an inventory block"
   text 0,screen height()-text size()*6,"R - to remove an inventory block"     
   text 0,screen height()-text size()*4,"Total Slots X: "+str$(TotalSlotX)
   
   sync
loop

function InsertIntoSlot()
   for x = 1 to array count(Inventory())
      if Inventory(x).SlotUsed = 0
         Inventory(x).SlotID = x
         Inventory(x).SlotUsed = 1
         exitfunction
      endif
   next x
endfunction

function RemoveSlot()
   for x = array count(Inventory()) to 1 step - 1
      if Inventory(x).SlotUsed = 1
         Inventory(x).SlotUsed = 0
         Inventory(x).SlotID = 0
         exitfunction
      endif
   next x
endfunction

function GetUsedSlots()
   for x = 1 to array count(Inventory())
      if Inventory(x).SlotUsed = 1
         inc i 
      endif
   next x
endfunction i

+ Code Snippet

sync on : sync rate 60
load dll "user32.dll",1
   sWidth = call dll( 1 , "GetSystemMetrics" , 0 )
   sHeight = call dll( 1 , "GetSystemMetrics" , 1 )
delete dll 1
set display mode sWidth , sHeight , 32 

type str_inventory
   ID as integer
   SlotID as integer
   slotUsed as boolean
   SlotX as integer
endtype
   
dim Inventory(999) as str_inventory

global KeyPress as boolean
global SBarSBarGrab as boolean
global ScrollX 
global OffsetX 
global MX
global Scroll `= 1
global begin = 1

CurWidth = 256
CurHeight = 128

MaxWidth = 256
MaxHeight = 128

sizeX = 32
sizeY = 32

Blocks = 42

for x = 1 to Blocks
   InsertIntoSlot()
next x

do : cls

   if MaxHeight >= CurHeight+sizeY 
      CurHeight = MaxHeight
   endif
   
   if MaxHeight <= CurHeight-sizeY 
      CurHeight = MaxHeight
   endif

   MX = mousex()

   for x = 1-(Scroll*sizeX) to CurWidth-(Scroll*sizeX) step sizeX
      for y = 1 to CurHeight step sizeY 
      
         inc Slot 
         
         Inventory(Slot).SlotX = x+sizeX
         
         MaxSlots = (CurWidth/sizeX) * (CurHeight/sizeY)
          
         if GetUsedSlots() > MaxSlots 
            CurWidth = CurWidth + sizeX
         endif
         
         if GetUsedSlots() < MaxSlots-(CurHeight/sizeY)
            CurWidth = CurWidth - sizeX
         endif
         
         if CurWidth > MaxWidth
            TotalSlotX = CurWidth / sizeX 
         else
            TotalSlotX = 0
            Scroll = 0
         endif   
         
         if TotalSlotX > (MaxWidth/sizeX)

            if mousex()>ScrollX and mousex()<ScrollToX 
               if mousey()>MaxHeight and mousey()<MaxHeight+12
                  if mouseclick() = 1
                     SBarGrab = 1
                  endif
               endif
            endif
            
            if SBarGrab = 1
               ScrollX = (MX-OffsetX)
               else
              	OffsetX = MX-ScrollX	
            endif
            
            if mouseclick() = 0
               SBarGrab = 0
            endif
            
            Percent = (((MaxWidth/sizeX))*MaxWidth )/TotalSlotX
            
            if ScrollX < 0 then ScrollX = 0
            if ScrollToX > MaxWidth then ScrollX = MaxWidth-Percent
            
            `I can't seem to work out the forumla, so I just put a random number in the end
            Scroll  = ((ScrollX - 32)/10)

            ScrollToX = ScrollX+Percent

            box ScrollX,MaxHeight,ScrollToX,MaxHeight+12
                         
         endif  
         
         if Inventory(Slot).SlotX < (MaxWidth+sizeX)
            if Inventory(Slot).SlotUsed > 0
               ink RGB(255,0,0),0
               box x , y , x+sizeX-1 , y+sizeY-1
               ink RGB(255,255,255),0
               center text x+(sizeX/2) , y+(sizeY/2),str$(Slot) 
            else
               ink RGB(255,255,255),0
               dot x+(sizeX/2) , y+(sizeY/2)
               
            endif
         endif
      
      next y
   next x

   Slot = 0

   ink RGB(255,255,255),0
   line 0,MaxHeight+1,MaxWidth+1,MaxHeight+1
   line MaxWidth+1,0,MaxWidth+1,MaxHeight+1
   
   if inkey$() = "m" and KeyPress = 0
      MaxHeight = MaxHeight + sizeY
      KeyPress = 1
   endif
   
   if inkey$() = "n" and KeyPress = 0
      if MaxHeight > sizeY
         MaxHeight = MaxHeight - sizeY
      endif
      KeyPress = 1
   endif
   
   if inkey$() = "b" and KeyPress = 0
      MaxWidth = MaxWidth + sizeX
      KeyPress = 1
   endif
   
   if inkey$() = "v" and KeyPress = 0
      if MaxWidth > sizeX
         MaxWidth = MaxWidth - sizeX
      endif
      KeyPress = 1
   endif
   
   if inkey$() = "i" and KeyPress = 0
      InsertIntoSlot()
      KeyPress = 1
   endif
   
   if inkey$() = "r" and KeyPress = 0
      RemoveSlot()
      KeyPress = 1
   endif
   
   if scancode() = 0 then KeyPress = 0
   
   text 0,screen height()-text size()*12,"[Instructions] - Press:" 
   text 0,screen height()-text size()*11,"M - to increase the Height of the window"
   text 0,screen height()-text size()*10,"N - to decrease the Height of the window"
   text 0,screen height()-text size()*9,"B - to increase the Width of the window"
   text 0,screen height()-text size()*8,"V - to decrease the Width of the window"  
   text 0,screen height()-text size()*7,"I - to add an inventory block"
   text 0,screen height()-text size()*6,"R - to remove an inventory block"     
   text 0,screen height()-text size()*4,"Total Slots X: "+str$(TotalSlotX)
   
   sync
loop

function InsertIntoSlot()
   for x = 1 to array count(Inventory())
      if Inventory(x).SlotUsed = 0
         Inventory(x).SlotID = x
         Inventory(x).SlotUsed = 1
         exitfunction
      endif
   next x
endfunction

function RemoveSlot()
   for x = array count(Inventory()) to 1 step - 1
      if Inventory(x).SlotUsed = 1
         Inventory(x).SlotUsed = 0
         Inventory(x).SlotID = 0
         exitfunction
      endif
   next x
endfunction

function GetUsedSlots()
   for x = 1 to array count(Inventory())
      if Inventory(x).SlotUsed = 1
         inc i 
      endif
   next x
endfunction i

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 21st May 2008 23:23 Edited at: 21st May 2008 23:25

Link

Check it out, I just made my inventory system more efficent. I can now run over 200 inventories at once while tracking every item on them and exchanging items between them at over 60 fps. Since the will ever only be a max of 16(may even be less) inventories open at any time, i'm laughing.

Pic:

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Roxas

20

Years of Service

User Offline

Joined: 11th Nov 2005

Location: http://forum.thegamecreators.com

Posted: 22nd May 2008 08:57

Link

Ow thats really nice

Your signature has been erased by a mod because it was too big

Back to top

Profile PM Email

pcRaider

19

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 22nd May 2008 17:13

Link

Data size of a morrowind database has 10Mbyte.
Do you implement it?

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 22nd May 2008 18:06

Link

pcRaider, would you be able to explain what you mean, I haven't got that deep into the specifics yet?

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

pcRaider

19

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 22nd May 2008 18:21

Link

I know "construction set" of morrowind.
For example, a text has 31821 lines.
Do you intend to make it the database which supposed on the scale?

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 22nd May 2008 18:40

Link

Sorry to say this, you must think i'm dumb, I still don't follow you. Are you saying how am I going to make a database that stores up to 31821 lines of text? or...

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

pcRaider

19

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 22nd May 2008 19:02

Link

I felt casual.
You do not need to mind it.
Because I had trouble with a search of data, I thought so.
good luck for you.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Container Inventory