[DBP] - Inventory - GameCreators Forum

Author

Message

luskos

16

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 2nd Mar 2013 14:35 Edited at: 3rd Mar 2013 21:31

Link

This is Phaelax's inventory with some tweaks.I needed inventory that expand to certain point depending on the weight of items it can hold.I wanted to make it scrollable, but i don't know how to do it yet so i get this one and make it listed inventory with pages instead.You can easily make it to hold certain type of items at certain page if you want.Here is the code :

REM ***********************************
REM Title: RPG UI System
REM Author: Phaelax
REM Date: Aug 20, 2011
REM ***********************************

set display mode 1280, 720, 32

#CONSTANT TT_BLACK 0xAA000000
#CONSTANT C_GREEN = 0x4400FF00
#CONSTANT C_RED = 0x44FF0000

Global TEMP_INV_ITEM = -1
Global CURRENT_PAGE = 1

Type Item_Object
	name as string
	image as integer
	invWidth as byte
	invHeight as byte
	isStackable as boolean
Endtype

Type Inventory_Item
	itemID as integer
	itemPAGE as integer
	qty as byte
	gridX as byte
	gridY as byte
Endtype

rem array of different available items in the game
dim items(0) as Item_Object
rem items in the player\'s inventory
dim invItems() as Inventory_Item

loadItemDatabase()

d3d_init

load image \"inv_window.png\", 13, 1

create animated sprite 4, \"smoke2.png\", 8, 2, 14

load image \"cursor.png\", 98, 1

d3d_font 1, \"Myriad Pro\", 26, 0, 0, 0
d3d_font 2, \"Myriad Pro\", 14, 0, 0, 0

statX = 50 : statY = 10
invX = 750 : invY = 120

sync on
hide mouse

make matrix 1, 1000, 1000, 20, 20
load image \"grass.jpg\", 99
prepare matrix texture 1, 99, 1, 1
position camera 0,100,0
point camera 100, 0, 100

do

if keystate(2) = 1
		CURRENT_PAGE = 1
	endif
	
	if keystate(3) = 1
		CURRENT_PAGE = 2
	endif
	
	_MC = mouseclick()

rem controls only needed for this example
	if timer() >= timestamp+20
		
		if spacekey() and flag = 0
			flag = 1
			_SelectedItem = rnd(7)+1
		endif
		if spacekey() = 0 then flag = 0
		
		timestamp = timer()
	endif
	
	gosub _DrawInventoryWindow
	
	gosub _MouseInteraction
	
	gosub _DrawInventoryItems
	
	if _SelectedItem > 0 then gosub _HandleInvItemPlacement

if killItemSmoke > 0 then gosub _DoItemSmoke

rem show mouse cursor
	paste image 98, mousex()-4, mousey()-4, 1

rem flags
	gosub _CheckFlags
	
	set cursor 0,0
	print array count(invItems())
	text 0,20,\"selected item\"+str$(_SelectedItem)

text 0,40,\"selected item\"+str$(_SelectedItemPage)

sync
loop

REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                   SUB-ROUTINES                                    **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************

REM ===============================================================
REM The final check for any flags that may need set or reset
REM ===============================================================
_CheckFlags:
	if _MC = 1
		mFlag = 1
	else
		mFlag = 0
		dragInvWindow = 0
	endif
RETURN

REM ===============================================================
REM The puff of smoke seen when dropping an item
REM ===============================================================
_DoItemSmoke:
	paste sprite 4, smokeX, smokeY
	play sprite 4, 1, 16, 40
	if sprite frame(4) = 1 and killItemSmoke = 2
		killItemSmoke = 0
	else
		killItemSmoke = 2
	endif
RETURN

REM ===============================================================
REM The final check for any flags that may need set or reset
REM ===============================================================
_HandleInvItemPlacement:
	if mouseWithin(invX+43, invY+59, invX+428, invY+252)
		gx = (mousex()-(invX+43)) / 32 - items(_SelectedItem).invWidth/2
		gy = (mousey()-(invY+59)) / 32 - items(_SelectedItem).invHeight/2
		
		`i = getPlayerItemAtLoc(gx, gy)
		
		safe = isItemPlacementOK(gx, gy, _SelectedItem)
		if safe = 1 : c = C_GREEN : else : c = C_RED : endif
		
		if _MC = 1 and mFlag = 0 and safe = 1
			mFlag = 1
			placeObjectInInventory(gx, gy, _SelectedItem)
			_SelectedItem = 0
		endif
	
		
		rem show boundary box for item placement
		x = invX+43+gx*32
		y = invY+59+gy*32
		x2 = x + (items(_SelectedItem).invWidth)*32
		y2 = y + (items(_SelectedItem).invHeight)*32
		if x < invX+43 then x = invX+43
		if y < invY+59 then y = invY+59
		if x2 > invX+427 then x2 = invX+427
		if y2 > invY+251 then y2 = invY+251
		box x, y, x2, y2, c, c, c, c
	endif
	
	
	if _SelectedItem > 0
		rem display selected item
		paste image items(_SelectedItem).image, mousex()-(items(_SelectedItem).invWidth/2.0)*32, mousey()-(items(_SelectedItem).invHeight/2.0)*32, 1
		rem if mouse clicked and is outside the inventory and stat window, drop the item in a puff of smoke
		if _MC = 1
			if mouseWithin(invX+16, invY+16, invX+456, invY+329) = 0
				mFlag = 1
				smokeX = mousex()-64
				smokeY = mousey()-88
				killItemSmoke = 1
				_SelectedItem = 0
				rem if deleting an item selected from inventory, remove if from array
				if TEMP_INV_ITEM > -1
					array delete element invItems(), TEMP_INV_ITEM
					TEMP_INV_ITEM = -1
				endif
			endif
		endif
	endif
RETURN

REM ===============================================================
REM Draws all items in the inventory
REM ===============================================================
_DrawInventoryItems:
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ix = invX+43 + invItems(i).gridX*32
			iy = invY+59 + invItems(i).gridY*32
		
			rem don\'t draw the inventory item if its currently selected
			if i <> TEMP_INV_ITEM
				paste image items(invItems(i).itemID).image, ix, iy, 1
		
				rem if item contains more than 1 quantity, display count
				if invItems(i).qty > 1
					ink rgb(0,0,0),0
					text ix+2, iy+2, str$(invItems(i).qty)
					ink rgb(255,255,255),0
					text ix+1, iy+1, str$(invItems(i).qty)
				endif
			endif
		endif
	next i
RETURN

REM ===============================================================
REM Various mouse actions, dragging windows, selecting items, etc..
REM ===============================================================
_MouseInteraction:
	if _MC = 1 and mFlag = 0
		rem if mouse clicked on inventory window header
		if mouseWithin(invX+29, invY+24, invX+442, invY+46) and mFlag = 0
			mFlag = 1
			tempX = mousex() - invX
			tempY = mousey() - invY
			dragInvWindow = 1
		endif
		
		rem if mouse clicked in inventory window
		if mouseWithin(invX+43, invY+59, invX+428, invY+252) and mFlag = 0
			if _SelectedItem = 0
				mFlag = 1
				gx = (mousex()-(invX+43)) / 32 - items(_SelectedItem).invWidth/2
				gy = (mousey()-(invY+59)) / 32 - items(_SelectedItem).invHeight/2
				i = getPlayerItemAtLoc(gx, gy)
				if i > -1
					TEMP_INV_ITEM = i
					_SelectedItem = invItems(i).itemID
					_SelectedItemPage = invItems(i).itemPAGE

endif
			endif
		endif
	endif
	
	rem if user is dragging inventory window
	if dragInvWindow = 1
		invX = mousex() - tempX
		invY = mousey() - tempY
	endif

RETURN

REM ===============================================================
REM Show the inventory window
REM ===============================================================
_DrawInventoryWindow:
	rem inventory window
	paste image 13, invX, invY, 1
	
	rem inventory window text
	d3d_color 23, 129, 251, 255
	d3d_starttext
		d3d_text 1, invX+72, invY+273, 0, str$(CHAR_GOLD)	
	d3d_endtext
RETURN

REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                    FUNCTIONS                                      **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************

REM ===============================================================
REM Returns the array index of the inventory item located at grid[x,y]
REM ===============================================================
function getPlayerItemAtLoc(gridX, gridY)
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ax = invItems(i).gridX
			ay = invItems(i).gridY
			bx = ax + items(invItems(i).itemID).invWidth
			by = ay + items(invItems(i).itemID).invHeight
			if gridX >= ax and gridX < bx and gridY >= ay and gridY < by then exitfunction i
		endif
	next i
		
endfunction -1

REM ===============================================================
REM Inserts an item in to the inventory. 
REM ===============================================================
function placeObjectInInventory(gridX, gridY, itemId)
	`gx = gridX + items(itemID).invWidth - 1
	`gy = gridY + items(itemID).invHeight - 1
	
	rem Item being placed in inventory already exists. 
	rem So it doesn\'t need to be added to the array, only moved.

if TEMP_INV_ITEM > -1
		invItems(TEMP_INV_ITEM).gridX = gridX
		invItems(TEMP_INV_ITEM).gridY = gridY
		invItems(TEMP_INV_ITEM).itemPAGE = CURRENT_PAGE
		TEMP_INV_ITEM = -1
		exitfunction
	endif
	
	rem check to see if placing a stackable item
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ax = invItems(i).gridX
			ay = invItems(i).gridY
			bx = ax + items(invItems(i).itemID).invWidth
			by = ay + items(invItems(i).itemID).invHeight
			if gridX >= ax and gridX < bx and gridY >= ay and gridY < by
				if invItems(i).itemID = itemId
					if items(invItems(i).itemID).isStackable
						inc invItems(i).qty, 1
						exitfunction
					endif
				endif
			endif
		endif 
	next i
	
	rem if item wasn\'t added to a stack, insert the new item into the inventory
	array insert at bottom invItems()
	invItems().itemID = itemId
	invItems().itemPAGE = CURRENT_PAGE
	invItems().qty = 1
	invItems().gridX = gridX
	invItems().gridY = gridY
endfunction

REM ===============================================================
REM This will verify if it\'s safe to place an item at the specified
REM grid coordinates. If the item overlaps another or goes outside
REM the inventory grid region, then function returns false.
REM ===============================================================
function isItemPlacementOK(gridX, gridY, itemId)
	gx = gridX + items(itemID).invWidth - 1
	gy = gridY + items(itemID).invHeight - 1
	
	rem make sure item fits on the inventory grid
	if gx >= 12 or gy >= 6 or gridX < 0 or gridY < 0 then exitfunction 0
	
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			if i <> TEMP_INV_ITEM
				ax = invItems(i).gridX
				ay = invItems(i).gridY
				bx = ax + items(invItems(i).itemID).invWidth-1
				by = ay + items(invItems(i).itemID).invHeight-1
			
				rem detects grid location directly under mouse pointer
				if gridX >= ax and gridX <= bx and gridY >= ay and gridY <= by
					rem if trying to place an item of the same type on each other
					if invItems(i).itemID = itemID
						rem if item is stackable
						if items(itemId).isStackable then exitfunction 1
						exitfunction 0
					else
						exitfunction 0
					endif
				endif
			
		
				rem This makes sure the selected item doesn\'t overlap any existing items
				rem The above IF statement is insufficient because some points of the selected
				rem object may lie in unoccupied cells but still have some parts overlapping
				rem occupied ones. (Thanks BMacZero)
				nleft = max(gridX, ax)
				nright = min(gx, bx)
				ntop = max(gridY, ay)
				nbottom = min(gy, by)
				if (nleft <= nright) and (ntop <= nbottom) then exitfunction 0
			endif
		endif
	next i
endfunction 1

REM ===============================================================
REM Displays a tooltip
REM ===============================================================
function showToolTip(x, y, s$)
	w = d3d_gettextwidth(2, s$)+10
	h = d3d_gettextheight(2, s$)
	
	box x, y-h, x+w, y, TT_BLACK, TT_BLACK, TT_BLACK, TT_BLACK
	ink rgb(128,128,128),0
	boxOutline(x, y-h, x+w, y)
	
	d3d_color 23, 129, 251, 255
	d3d_starttext
		d3d_text 2, x+5, y-h, 0, s$
	d3d_endtext
endfunction

REM ===============================================================
REM Loads items into the items array
REM ===============================================================
function loadItemDatabase()
	REM Load item data and images
	restore ItemsData : read count
	imgBase = 100
	for i = 1 to count
		imgId = imgBase + i
		read img$
		load image \"items/\"+img$, imgId
		read name$
		read width
		read height
		read stack
		
		array insert at bottom items()
		items().image = imgId
		items().name = name$
		items().invWidth = width
		items().invHeight = height
		items().isStackable = stack
	next i
endfunction

REM ===============================================================
REM Returns true if mouse is within the specified region
REM ===============================================================
function mouseWithin(x1, y1, x2, y2)
	if mousex() >= x1 and mousex() <= x2 and mousey() >= y1 and mousey() <= y2 then exitfunction 1
endfunction 0

REM ===============================================================
REM Draws the outline of a box
REM ===============================================================
function boxOutline(x1, y1, x2, y2)
	line x1, y1, x1, y2
	line x1, y1, x2, y1
	line x2, y1, x2, y2
	line x1, y2, x2, y2
endfunction

REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                  DATA  STATEMENTS                                 **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************

REM ===============================================================
REM image path, item name, width, height, stackable
REM ===============================================================

ItemsData:
data 8
data \"charm.png\", \"Small Charm\", 1, 1, 0
data \"key.png\", \"Key\", 1, 1, 1
data \"boots.png\", \"Boots\", 2, 2, 0
data \"rune.png\", \"El Rune\", 1, 1, 0
data \"rejuv.png\", \"Full Rejuvenation\", 1, 1, 0
data \"scroll.png\", \"Scroll of Identity\", 1, 1, 1
data \"fieldplate.png\", \"Fieldplate\", 2, 3, 0
data \"silks.png\", \"Silks of the Victor\", 2, 3, 0

+ Code Snippet

REM ***********************************
REM Title: RPG UI System
REM Author: Phaelax
REM Date: Aug 20, 2011
REM ***********************************


set display mode 1280, 720, 32

#CONSTANT TT_BLACK 0xAA000000
#CONSTANT C_GREEN = 0x4400FF00
#CONSTANT C_RED = 0x44FF0000

Global TEMP_INV_ITEM = -1
Global CURRENT_PAGE = 1

Type Item_Object
	name as string
	image as integer
	invWidth as byte
	invHeight as byte
	isStackable as boolean
Endtype

Type Inventory_Item
	itemID as integer
	itemPAGE as integer
	qty as byte
	gridX as byte
	gridY as byte
Endtype

rem array of different available items in the game
dim items(0) as Item_Object
rem items in the player\'s inventory
dim invItems() as Inventory_Item

loadItemDatabase()


d3d_init

load image \"inv_window.png\", 13, 1

create animated sprite 4, \"smoke2.png\", 8, 2, 14

load image \"cursor.png\", 98, 1

d3d_font 1, \"Myriad Pro\", 26, 0, 0, 0
d3d_font 2, \"Myriad Pro\", 14, 0, 0, 0

statX = 50 : statY = 10
invX = 750 : invY = 120

sync on
hide mouse


make matrix 1, 1000, 1000, 20, 20
load image \"grass.jpg\", 99
prepare matrix texture 1, 99, 1, 1
position camera 0,100,0
point camera 100, 0, 100

do

	if keystate(2) = 1
		CURRENT_PAGE = 1
	endif
	
	if keystate(3) = 1
		CURRENT_PAGE = 2
	endif
	
	_MC = mouseclick()

	rem controls only needed for this example
	if timer() >= timestamp+20
		
		if spacekey() and flag = 0
			flag = 1
			_SelectedItem = rnd(7)+1
		endif
		if spacekey() = 0 then flag = 0
		
		timestamp = timer()
	endif
	
	gosub _DrawInventoryWindow
	
	gosub _MouseInteraction
	
	gosub _DrawInventoryItems
	
	if _SelectedItem > 0 then gosub _HandleInvItemPlacement

	if killItemSmoke > 0 then gosub _DoItemSmoke
	

	rem show mouse cursor
	paste image 98, mousex()-4, mousey()-4, 1

	rem flags
	gosub _CheckFlags
	
	set cursor 0,0
	print array count(invItems())
	text 0,20,\"selected item\"+str$(_SelectedItem)

	text 0,40,\"selected item\"+str$(_SelectedItemPage)

	sync
loop





REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                   SUB-ROUTINES                                    **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************




REM ===============================================================
REM The final check for any flags that may need set or reset
REM ===============================================================
_CheckFlags:
	if _MC = 1
		mFlag = 1
	else
		mFlag = 0
		dragInvWindow = 0
	endif
RETURN



REM ===============================================================
REM The puff of smoke seen when dropping an item
REM ===============================================================
_DoItemSmoke:
	paste sprite 4, smokeX, smokeY
	play sprite 4, 1, 16, 40
	if sprite frame(4) = 1 and killItemSmoke = 2
		killItemSmoke = 0
	else
		killItemSmoke = 2
	endif
RETURN



REM ===============================================================
REM The final check for any flags that may need set or reset
REM ===============================================================
_HandleInvItemPlacement:
	if mouseWithin(invX+43, invY+59, invX+428, invY+252)
		gx = (mousex()-(invX+43)) / 32 - items(_SelectedItem).invWidth/2
		gy = (mousey()-(invY+59)) / 32 - items(_SelectedItem).invHeight/2
		
		`i = getPlayerItemAtLoc(gx, gy)
		
		safe = isItemPlacementOK(gx, gy, _SelectedItem)
		if safe = 1 : c = C_GREEN : else : c = C_RED : endif
		
		if _MC = 1 and mFlag = 0 and safe = 1
			mFlag = 1
			placeObjectInInventory(gx, gy, _SelectedItem)
			_SelectedItem = 0
		endif
	
		
		rem show boundary box for item placement
		x = invX+43+gx*32
		y = invY+59+gy*32
		x2 = x + (items(_SelectedItem).invWidth)*32
		y2 = y + (items(_SelectedItem).invHeight)*32
		if x < invX+43 then x = invX+43
		if y < invY+59 then y = invY+59
		if x2 > invX+427 then x2 = invX+427
		if y2 > invY+251 then y2 = invY+251
		box x, y, x2, y2, c, c, c, c
	endif
	
	
	if _SelectedItem > 0
		rem display selected item
		paste image items(_SelectedItem).image, mousex()-(items(_SelectedItem).invWidth/2.0)*32, mousey()-(items(_SelectedItem).invHeight/2.0)*32, 1
		rem if mouse clicked and is outside the inventory and stat window, drop the item in a puff of smoke
		if _MC = 1
			if mouseWithin(invX+16, invY+16, invX+456, invY+329) = 0
				mFlag = 1
				smokeX = mousex()-64
				smokeY = mousey()-88
				killItemSmoke = 1
				_SelectedItem = 0
				rem if deleting an item selected from inventory, remove if from array
				if TEMP_INV_ITEM > -1
					array delete element invItems(), TEMP_INV_ITEM
					TEMP_INV_ITEM = -1
				endif
			endif
		endif
	endif
RETURN



REM ===============================================================
REM Draws all items in the inventory
REM ===============================================================
_DrawInventoryItems:
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ix = invX+43 + invItems(i).gridX*32
			iy = invY+59 + invItems(i).gridY*32
		
			rem don\'t draw the inventory item if its currently selected
			if i <> TEMP_INV_ITEM
				paste image items(invItems(i).itemID).image, ix, iy, 1
		
				rem if item contains more than 1 quantity, display count
				if invItems(i).qty > 1
					ink rgb(0,0,0),0
					text ix+2, iy+2, str$(invItems(i).qty)
					ink rgb(255,255,255),0
					text ix+1, iy+1, str$(invItems(i).qty)
				endif
			endif
		endif
	next i
RETURN



REM ===============================================================
REM Various mouse actions, dragging windows, selecting items, etc..
REM ===============================================================
_MouseInteraction:
	if _MC = 1 and mFlag = 0
		rem if mouse clicked on inventory window header
		if mouseWithin(invX+29, invY+24, invX+442, invY+46) and mFlag = 0
			mFlag = 1
			tempX = mousex() - invX
			tempY = mousey() - invY
			dragInvWindow = 1
		endif
		
		rem if mouse clicked in inventory window
		if mouseWithin(invX+43, invY+59, invX+428, invY+252) and mFlag = 0
			if _SelectedItem = 0
				mFlag = 1
				gx = (mousex()-(invX+43)) / 32 - items(_SelectedItem).invWidth/2
				gy = (mousey()-(invY+59)) / 32 - items(_SelectedItem).invHeight/2
				i = getPlayerItemAtLoc(gx, gy)
				if i > -1
					TEMP_INV_ITEM = i
					_SelectedItem = invItems(i).itemID
					_SelectedItemPage = invItems(i).itemPAGE

				endif
			endif
		endif
	endif
	
	rem if user is dragging inventory window
	if dragInvWindow = 1
		invX = mousex() - tempX
		invY = mousey() - tempY
	endif

RETURN

REM ===============================================================
REM Show the inventory window
REM ===============================================================
_DrawInventoryWindow:
	rem inventory window
	paste image 13, invX, invY, 1
	
	rem inventory window text
	d3d_color 23, 129, 251, 255
	d3d_starttext
		d3d_text 1, invX+72, invY+273, 0, str$(CHAR_GOLD)	
	d3d_endtext
RETURN


REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                    FUNCTIONS                                      **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************



REM ===============================================================
REM Returns the array index of the inventory item located at grid[x,y]
REM ===============================================================
function getPlayerItemAtLoc(gridX, gridY)
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ax = invItems(i).gridX
			ay = invItems(i).gridY
			bx = ax + items(invItems(i).itemID).invWidth
			by = ay + items(invItems(i).itemID).invHeight
			if gridX >= ax and gridX < bx and gridY >= ay and gridY < by then exitfunction i
		endif
	next i
		
endfunction -1



REM ===============================================================
REM Inserts an item in to the inventory. 
REM ===============================================================
function placeObjectInInventory(gridX, gridY, itemId)
	`gx = gridX + items(itemID).invWidth - 1
	`gy = gridY + items(itemID).invHeight - 1
	
	rem Item being placed in inventory already exists. 
	rem So it doesn\'t need to be added to the array, only moved.

	if TEMP_INV_ITEM > -1
		invItems(TEMP_INV_ITEM).gridX = gridX
		invItems(TEMP_INV_ITEM).gridY = gridY
		invItems(TEMP_INV_ITEM).itemPAGE = CURRENT_PAGE
		TEMP_INV_ITEM = -1
		exitfunction
	endif
	
	rem check to see if placing a stackable item
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ax = invItems(i).gridX
			ay = invItems(i).gridY
			bx = ax + items(invItems(i).itemID).invWidth
			by = ay + items(invItems(i).itemID).invHeight
			if gridX >= ax and gridX < bx and gridY >= ay and gridY < by
				if invItems(i).itemID = itemId
					if items(invItems(i).itemID).isStackable
						inc invItems(i).qty, 1
						exitfunction
					endif
				endif
			endif
		endif 
	next i
	
	rem if item wasn\'t added to a stack, insert the new item into the inventory
	array insert at bottom invItems()
	invItems().itemID = itemId
	invItems().itemPAGE = CURRENT_PAGE
	invItems().qty = 1
	invItems().gridX = gridX
	invItems().gridY = gridY
endfunction



REM ===============================================================
REM This will verify if it\'s safe to place an item at the specified
REM grid coordinates. If the item overlaps another or goes outside
REM the inventory grid region, then function returns false.
REM ===============================================================
function isItemPlacementOK(gridX, gridY, itemId)
	gx = gridX + items(itemID).invWidth - 1
	gy = gridY + items(itemID).invHeight - 1
	
	rem make sure item fits on the inventory grid
	if gx >= 12 or gy >= 6 or gridX < 0 or gridY < 0 then exitfunction 0
	
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			if i <> TEMP_INV_ITEM
				ax = invItems(i).gridX
				ay = invItems(i).gridY
				bx = ax + items(invItems(i).itemID).invWidth-1
				by = ay + items(invItems(i).itemID).invHeight-1
			
				rem detects grid location directly under mouse pointer
				if gridX >= ax and gridX <= bx and gridY >= ay and gridY <= by
					rem if trying to place an item of the same type on each other
					if invItems(i).itemID = itemID
						rem if item is stackable
						if items(itemId).isStackable then exitfunction 1
						exitfunction 0
					else
						exitfunction 0
					endif
				endif
			
		
				rem This makes sure the selected item doesn\'t overlap any existing items
				rem The above IF statement is insufficient because some points of the selected
				rem object may lie in unoccupied cells but still have some parts overlapping
				rem occupied ones. (Thanks BMacZero)
				nleft = max(gridX, ax)
				nright = min(gx, bx)
				ntop = max(gridY, ay)
				nbottom = min(gy, by)
				if (nleft <= nright) and (ntop <= nbottom) then exitfunction 0
			endif
		endif
	next i
endfunction 1



REM ===============================================================
REM Displays a tooltip
REM ===============================================================
function showToolTip(x, y, s$)
	w = d3d_gettextwidth(2, s$)+10
	h = d3d_gettextheight(2, s$)
	
	box x, y-h, x+w, y, TT_BLACK, TT_BLACK, TT_BLACK, TT_BLACK
	ink rgb(128,128,128),0
	boxOutline(x, y-h, x+w, y)
	
	d3d_color 23, 129, 251, 255
	d3d_starttext
		d3d_text 2, x+5, y-h, 0, s$
	d3d_endtext
endfunction


REM ===============================================================
REM Loads items into the items array
REM ===============================================================
function loadItemDatabase()
	REM Load item data and images
	restore ItemsData : read count
	imgBase = 100
	for i = 1 to count
		imgId = imgBase + i
		read img$
		load image \"items/\"+img$, imgId
		read name$
		read width
		read height
		read stack
		
		array insert at bottom items()
		items().image = imgId
		items().name = name$
		items().invWidth = width
		items().invHeight = height
		items().isStackable = stack
	next i
endfunction



REM ===============================================================
REM Returns true if mouse is within the specified region
REM ===============================================================
function mouseWithin(x1, y1, x2, y2)
	if mousex() >= x1 and mousex() <= x2 and mousey() >= y1 and mousey() <= y2 then exitfunction 1
endfunction 0



REM ===============================================================
REM Draws the outline of a box
REM ===============================================================
function boxOutline(x1, y1, x2, y2)
	line x1, y1, x1, y2
	line x1, y1, x2, y1
	line x2, y1, x2, y2
	line x1, y2, x2, y2
endfunction



REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                  DATA  STATEMENTS                                 **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************



REM ===============================================================
REM image path, item name, width, height, stackable
REM ===============================================================

ItemsData:
data 8
data \"charm.png\", \"Small Charm\", 1, 1, 0
data \"key.png\", \"Key\", 1, 1, 1
data \"boots.png\", \"Boots\", 2, 2, 0
data \"rune.png\", \"El Rune\", 1, 1, 0
data \"rejuv.png\", \"Full Rejuvenation\", 1, 1, 0
data \"scroll.png\", \"Scroll of Identity\", 1, 1, 1
data \"fieldplate.png\", \"Fieldplate\", 2, 3, 0
data \"silks.png\", \"Silks of the Victor\", 2, 3, 0

The original thread with original files in it:
http://forum.thegamecreators.com/?m=forum_view&t=188498&b=8&p=0

There is version with save load inventory function.I use my own images and data sheets in this version.I use only 64x64 images and i tweaked the grid behaivior accordingly.

REM ***********************************
REM Title: RPG UI System
REM Author: Phaelax
REM Date: Aug 20, 2011
REM ***********************************

set display mode 1280, 720, 32

#CONSTANT TT_BLACK 0xAA000000
#CONSTANT C_GREEN = 0x4400FF00
#CONSTANT C_RED = 0x44FF0000

Global TEMP_INV_ITEM = -1
Global CURRENT_PAGE = 1
Global ImgSize = 64

Type Item_Object
	name as string
	image as integer
	invWidth as byte
	invHeight as byte
	isStackable as boolean
Endtype

Type Inventory_Item
	itemID as integer
	itemPAGE as integer
	qty as byte
	gridX as byte
	gridY as byte
Endtype

rem array of different available items in the game
dim items(0) as Item_Object
rem items in the player\'s inventory
dim invItems(0) as Inventory_Item

loadItemDatabase()

d3d_init

load image \"inv_window.png\", 13, 1

create animated sprite 4, \"smoke2.png\", 8, 2, 14

load image \"cursor.png\", 98, 1

d3d_font 1, \"Myriad Pro\", 26, 0, 0, 0
d3d_font 2, \"Myriad Pro\", 14, 0, 0, 0

invX = 750 : invY = 120

sync on
hide mouse

make matrix 1, 1000, 1000, 20, 20
load image \"grass.jpg\", 99
prepare matrix texture 1, 99, 1, 1
position camera 0,100,0
point camera 100, 0, 100

if file exist (\"inventory\") = 1
			
	`make file \"inventory\"
	open to read 1,\"inventory\"
	`itemCount = array count(invItems())
	read byte 1,items
	dim invItems(items)
	dim items(items)
	for i = 0 to items
		read byte 1,invItems(i).itemID
		read byte 1,invItems(i).itemPAGE
		read byte 1,invItems(i).qty
		read byte 1,invItems(i).gridX
		read byte 1,invItems(i).gridY	 
		read byte 1,items(invItems(i).itemID).image
		read byte 1,items(invItems(i).itemID).invWidth
		read byte 1,items(invItems(i).itemID).invHeight
		read byte 1,items(invItems(i).itemID).isStackable
	next i
	close file 1
endif
	
do
`save inventory routine
if mouseclick() = 1
	gosub _SaveInventory
	if file exist (\"inventory\") = 1
		delete file \"inventory\"
	endif

`make file \"inventory\"
	open to write 1,\"inventory\"
	itemCount = array count(invItems())
	write byte 1,itemCount
			
	for i = 0 to itemCount
		write byte 1,invItems(i).itemID
		write byte 1,invItems(i).itemPAGE
		write byte 1,invItems(i).qty
		write byte 1,invItems(i).gridX
		write byte 1,invItems(i).gridY
		write byte 1,items(invItems(i).itemID).image
		write byte 1,items(invItems(i).itemID).invWidth
		write byte 1,items(invItems(i).itemID).invHeight
		write byte 1,items(invItems(i).itemID).isStackable
	next i
	
	close file 1
endif
	
	if keystate(2) = 1
		CURRENT_PAGE = 1
	endif
	
	if keystate(3) = 1
		CURRENT_PAGE = 2
	endif
	
	_MC = mouseclick()

rem controls only needed for this example
	if timer() >= timestamp+20
		
		if spacekey() and flag = 0
			flag = 1
			_SelectedItem = rnd(7)+1
		endif
		if spacekey() = 0 then flag = 0

timestamp = timer()
	endif
	
	gosub _DrawInventoryWindow
	
	gosub _MouseInteraction
	
	gosub _DrawInventoryItems
	
	if _SelectedItem > 0 then gosub _HandleInvItemPlacement

if killItemSmoke > 0 then gosub _DoItemSmoke

rem show mouse cursor
	paste image 98, mousex()-4, mousey()-4, 1

rem flags
	gosub _CheckFlags
	
	set cursor 0,0
	print array count(invItems())
	text 0,20,\"selected item\"+str$(_SelectedItem)
	text 0,40,\"selected item page\"+str$(_SelectedItemPage)
	itemCount = array count(invItems())
	if itemCount >= 0
	text 0,60,\"invItems().gridX\"+str$(invItems(0).gridX)
	text 0,80,\"invItems().gridY\"+str$(invItems(0).gridY)
	text 0,100,\"invItems().gridY\"+str$(TEMP_INV_ITEM)
	endif
	sync
loop

REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                   SUB-ROUTINES                                    **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************

REM ===============================================================
REM Save inventory routine
REM ===============================================================
_SaveInventory:

REM ===============================================================
REM The final check for any flags that may need set or reset
REM ===============================================================
_CheckFlags:
	if _MC = 1
		mFlag = 1
	else
		mFlag = 0
		dragInvWindow = 0
	endif
RETURN

REM ===============================================================
REM The puff of smoke seen when dropping an item
REM ===============================================================
_DoItemSmoke:
	paste sprite 4, smokeX, smokeY
	play sprite 4, 1, 16, 40
	if sprite frame(4) = 1 and killItemSmoke = 2
		killItemSmoke = 0
	else
		killItemSmoke = 2
	endif
RETURN

REM ===============================================================
REM The final check for any flags that may need set or reset
REM ===============================================================
_HandleInvItemPlacement:
	if mouseWithin(invX+43, invY+59, invX+428, invY+252)
		gx = (mousex()-(invX+43)) / ImgSize - items(_SelectedItem).invWidth/2
		gy = (mousey()-(invY+59)) / ImgSize - items(_SelectedItem).invHeight/2
		
		`i = getPlayerItemAtLoc(gx, gy)
		
		safe = isItemPlacementOK(gx, gy, _SelectedItem)
		if safe = 1 : c = C_GREEN : else : c = C_RED : endif
		
		if _MC = 1 and mFlag = 0 and safe = 1
			mFlag = 1
			placeObjectInInventory(gx, gy, _SelectedItem)
			_SelectedItem = 0
		endif
	
		
		rem show boundary box for item placement
		x = invX+43+gx*ImgSize
		y = invY+59+gy*ImgSize
		x2 = x + (items(_SelectedItem).invWidth)*ImgSize
		y2 = y + (items(_SelectedItem).invHeight)*ImgSize
		if x < invX+43 then x = invX+43
		if y < invY+59 then y = invY+59
		if x2 > invX+427 then x2 = invX+427
		if y2 > invY+251 then y2 = invY+251
		box x, y, x2, y2, c, c, c, c
	endif
	
	
	if _SelectedItem > 0
		rem display selected item
		if items(_SelectedItem).image > 0
			paste image items(_SelectedItem).image, mousex()-(items(_SelectedItem).invWidth/2.0)*ImgSize, mousey()-(items(_SelectedItem).invHeight/2.0)*ImgSize, 1
		endif
		rem if mouse clicked and is outside the inventory and stat window, drop the item in a puff of smoke
		if _MC = 1
			if mouseWithin(invX+16, invY+16, invX+456, invY+329) = 0
				mFlag = 1
				smokeX = mousex()-64
				smokeY = mousey()-88
				killItemSmoke = 1
				_SelectedItem = 0
				rem if deleting an item selected from inventory, remove if from array
				if TEMP_INV_ITEM > -1
					array delete element invItems(), TEMP_INV_ITEM
					TEMP_INV_ITEM = -1
				endif
			endif
		endif
	endif
RETURN

REM ===============================================================
REM Draws all items in the inventory
REM ===============================================================
_DrawInventoryItems:
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ix = invX+43 + invItems(i).gridX*ImgSize
			iy = invY+59 + invItems(i).gridY*ImgSize
		
			rem don\'t draw the inventory item if its currently selected
			if i <> TEMP_INV_ITEM
				if items(invItems(i).itemID).image > 0
					paste image items(invItems(i).itemID).image, ix, iy, 1
				endif
				rem if item contains more than 1 quantity, display count
				if invItems(i).qty > 1
					ink rgb(0,0,0),0
					text ix+2, iy+2, str$(invItems(i).qty)
					ink rgb(255,255,255),0
					text ix+1, iy+1, str$(invItems(i).qty)
				endif
			endif
		endif
	next i
RETURN

REM ===============================================================
REM Various mouse actions, dragging windows, selecting items, etc..
REM ===============================================================
_MouseInteraction:
	if _MC = 1 and mFlag = 0
		rem if mouse clicked on inventory window header
		if mouseWithin(invX+29, invY+24, invX+442, invY+46) and mFlag = 0
			mFlag = 1
			tempX = mousex() - invX
			tempY = mousey() - invY
			dragInvWindow = 1
		endif
		
		rem if mouse clicked in inventory window
		if mouseWithin(invX+43, invY+59, invX+428, invY+252) and mFlag = 0
			if _SelectedItem = 0
				mFlag = 1
				gx = (mousex()-(invX+43)) / ImgSize - items(_SelectedItem).invWidth/2
				gy = (mousey()-(invY+59)) / ImgSize - items(_SelectedItem).invHeight/2
				i = getPlayerItemAtLoc(gx, gy)
				if i > -1
					TEMP_INV_ITEM = i
					_SelectedItem = invItems(i).itemID
					_SelectedItemPage = invItems(i).itemPAGE

endif
			endif
		endif
	endif
	
	rem if user is dragging inventory window
	if dragInvWindow = 1
		invX = mousex() - tempX
		invY = mousey() - tempY
	endif

RETURN

REM ===============================================================
REM Show the inventory window
REM ===============================================================
_DrawInventoryWindow:
	rem inventory window
	paste image 13, invX, invY, 1
RETURN

REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                    FUNCTIONS                                      **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************

REM ===============================================================
REM Returns the array index of the inventory item located at grid[x,y]
REM ===============================================================
function getPlayerItemAtLoc(gridX, gridY)
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ax = invItems(i).gridX
			ay = invItems(i).gridY
			bx = ax + items(invItems(i).itemID).invWidth
			by = ay + items(invItems(i).itemID).invHeight
			if gridX >= ax and gridX < bx and gridY >= ay and gridY < by then exitfunction i
		endif
	next i
		
endfunction -1

REM ===============================================================
REM Inserts an item in to the inventory. 
REM ===============================================================
function placeObjectInInventory(gridX, gridY, itemId)
	`gx = gridX + items(itemID).invWidth - 1
	`gy = gridY + items(itemID).invHeight - 1
	
	rem Item being placed in inventory already exists. 
	rem So it doesn\'t need to be added to the array, only moved.

if TEMP_INV_ITEM > -1
		invItems(TEMP_INV_ITEM).gridX = gridX
		invItems(TEMP_INV_ITEM).gridY = gridY
		invItems(TEMP_INV_ITEM).itemPAGE = CURRENT_PAGE
		TEMP_INV_ITEM = -1
		exitfunction
	endif
	
	rem check to see if placing a stackable item
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ax = invItems(i).gridX
			ay = invItems(i).gridY
			bx = ax + items(invItems(i).itemID).invWidth
			by = ay + items(invItems(i).itemID).invHeight
			if gridX >= ax and gridX < bx and gridY >= ay and gridY < by
				if invItems(i).itemID = itemId
					if items(invItems(i).itemID).isStackable
						inc invItems(i).qty, 1
						exitfunction
					endif
				endif
			endif
		endif 
	next i
	
	rem if item wasn\'t added to a stack, insert the new item into the inventory
	array insert at bottom invItems()
	invItems().itemID = itemId
	invItems().itemPAGE = CURRENT_PAGE
	invItems().qty = 1
	invItems().gridX = gridX
	invItems().gridY = gridY
endfunction

REM ===============================================================
REM This will verify if it\'s safe to place an item at the specified
REM grid coordinates. If the item overlaps another or goes outside
REM the inventory grid region, then function returns false.
REM ===============================================================
function isItemPlacementOK(gridX, gridY, itemId)
	gx = gridX + items(itemID).invWidth - 1
	gy = gridY + items(itemID).invHeight - 1
	
	rem make sure item fits on the inventory grid
	if gx >= 12 or gy >= 6 or gridX < 0 or gridY < 0 then exitfunction 0
	
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			if i <> TEMP_INV_ITEM
				ax = invItems(i).gridX
				ay = invItems(i).gridY
				bx = ax + items(invItems(i).itemID).invWidth-1
				by = ay + items(invItems(i).itemID).invHeight-1
			
				rem detects grid location directly under mouse pointer
				if gridX >= ax and gridX <= bx and gridY >= ay and gridY <= by
					rem if trying to place an item of the same type on each other
					if invItems(i).itemID = itemID
						rem if item is stackable
						if items(itemId).isStackable then exitfunction 1
						exitfunction 0
					else
						exitfunction 0
					endif
				endif
			
		
				rem This makes sure the selected item doesn\'t overlap any existing items
				rem The above IF statement is insufficient because some points of the selected
				rem object may lie in unoccupied cells but still have some parts overlapping
				rem occupied ones. (Thanks BMacZero)
				nleft = max(gridX, ax)
				nright = min(gx, bx)
				ntop = max(gridY, ay)
				nbottom = min(gy, by)
				if (nleft <= nright) and (ntop <= nbottom) then exitfunction 0
			endif
		endif
	next i
endfunction 1

REM ===============================================================
REM Displays a tooltip
REM ===============================================================
function showToolTip(x, y, s$)
	w = d3d_gettextwidth(2, s$)+10
	h = d3d_gettextheight(2, s$)
	
	box x, y-h, x+w, y, TT_BLACK, TT_BLACK, TT_BLACK, TT_BLACK
	ink rgb(128,128,128),0
	boxOutline(x, y-h, x+w, y)
	
	d3d_color 23, 129, 251, 255
	d3d_starttext
		d3d_text 2, x+5, y-h, 0, s$
	d3d_endtext
endfunction

REM ===============================================================
REM Loads items into the items array
REM ===============================================================
function loadItemDatabase()
	REM Load item data and images
	restore ItemsData : read count
	imgBase = 100
	for i = 1 to count
		imgId = imgBase + i
		read img$
		load image \"items/\"+img$, imgId
		read name$
		read width
		read height
		read stack
		
		array insert at bottom items()
		items().image = imgId
		items().name = name$
		items().invWidth = width
		items().invHeight = height
		items().isStackable = stack
	next i

endfunction

REM ===============================================================
REM Returns true if mouse is within the specified region
REM ===============================================================
function mouseWithin(x1, y1, x2, y2)
	if mousex() >= x1 and mousex() <= x2 and mousey() >= y1 and mousey() <= y2 then exitfunction 1
endfunction 0

REM ===============================================================
REM Draws the outline of a box
REM ===============================================================
function boxOutline(x1, y1, x2, y2)
	line x1, y1, x1, y2
	line x1, y1, x2, y1
	line x2, y1, x2, y2
	line x1, y2, x2, y2
endfunction

REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                  DATA  STATEMENTS                                 **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************

REM ===============================================================
REM image path, item name, width, height, stackable
REM ===============================================================

ItemsData:
data 8
data \"438.png\", \"WD\", 1, 1, 0
data \"434.png\", \"WD\", 1, 1, 0
data \"487.png\", \"WD\", 1, 1, 0
data \"578.png\", \"WD\", 1, 1, 0
data \"10218.png\", \"WD\", 1, 1, 0
data \"11069.png\", \"WD\", 1, 1, 0
data \"11215.png\", \"WD\", 1, 1, 0
data \"11215.png\", \"WD\", 1, 1, 0

+ Code Snippet

REM ***********************************
REM Title: RPG UI System
REM Author: Phaelax
REM Date: Aug 20, 2011
REM ***********************************


set display mode 1280, 720, 32

#CONSTANT TT_BLACK 0xAA000000
#CONSTANT C_GREEN = 0x4400FF00
#CONSTANT C_RED = 0x44FF0000

Global TEMP_INV_ITEM = -1
Global CURRENT_PAGE = 1
Global ImgSize = 64

Type Item_Object
	name as string
	image as integer
	invWidth as byte
	invHeight as byte
	isStackable as boolean
Endtype

Type Inventory_Item
	itemID as integer
	itemPAGE as integer
	qty as byte
	gridX as byte
	gridY as byte
Endtype

rem array of different available items in the game
dim items(0) as Item_Object
rem items in the player\'s inventory
dim invItems(0) as Inventory_Item



loadItemDatabase()


d3d_init

load image \"inv_window.png\", 13, 1

create animated sprite 4, \"smoke2.png\", 8, 2, 14

load image \"cursor.png\", 98, 1

d3d_font 1, \"Myriad Pro\", 26, 0, 0, 0
d3d_font 2, \"Myriad Pro\", 14, 0, 0, 0

invX = 750 : invY = 120

sync on
hide mouse


make matrix 1, 1000, 1000, 20, 20
load image \"grass.jpg\", 99
prepare matrix texture 1, 99, 1, 1
position camera 0,100,0
point camera 100, 0, 100

if file exist (\"inventory\") = 1
			
	`make file \"inventory\"
	open to read 1,\"inventory\"
	`itemCount = array count(invItems())
	read byte 1,items
	dim invItems(items)
	dim items(items)
	for i = 0 to items
		read byte 1,invItems(i).itemID
		read byte 1,invItems(i).itemPAGE
		read byte 1,invItems(i).qty
		read byte 1,invItems(i).gridX
		read byte 1,invItems(i).gridY	 
		read byte 1,items(invItems(i).itemID).image
		read byte 1,items(invItems(i).itemID).invWidth
		read byte 1,items(invItems(i).itemID).invHeight
		read byte 1,items(invItems(i).itemID).isStackable
	next i
	close file 1
endif
	
do
`save inventory routine
if mouseclick() = 1
	gosub _SaveInventory
	if file exist (\"inventory\") = 1
		delete file \"inventory\"
	endif

	`make file \"inventory\"
	open to write 1,\"inventory\"
	itemCount = array count(invItems())
	write byte 1,itemCount
			
	for i = 0 to itemCount
		write byte 1,invItems(i).itemID
		write byte 1,invItems(i).itemPAGE
		write byte 1,invItems(i).qty
		write byte 1,invItems(i).gridX
		write byte 1,invItems(i).gridY
		write byte 1,items(invItems(i).itemID).image
		write byte 1,items(invItems(i).itemID).invWidth
		write byte 1,items(invItems(i).itemID).invHeight
		write byte 1,items(invItems(i).itemID).isStackable
	next i
	
	close file 1
endif
	
	if keystate(2) = 1
		CURRENT_PAGE = 1
	endif
	
	if keystate(3) = 1
		CURRENT_PAGE = 2
	endif
	
	_MC = mouseclick()

	rem controls only needed for this example
	if timer() >= timestamp+20
		
		if spacekey() and flag = 0
			flag = 1
			_SelectedItem = rnd(7)+1
		endif
		if spacekey() = 0 then flag = 0

		timestamp = timer()
	endif
	
	gosub _DrawInventoryWindow
	
	gosub _MouseInteraction
	
	gosub _DrawInventoryItems
	
	if _SelectedItem > 0 then gosub _HandleInvItemPlacement

	if killItemSmoke > 0 then gosub _DoItemSmoke
	

	rem show mouse cursor
	paste image 98, mousex()-4, mousey()-4, 1

	rem flags
	gosub _CheckFlags
	
	set cursor 0,0
	print array count(invItems())
	text 0,20,\"selected item\"+str$(_SelectedItem)
	text 0,40,\"selected item page\"+str$(_SelectedItemPage)
	itemCount = array count(invItems())
	if itemCount >= 0
	text 0,60,\"invItems().gridX\"+str$(invItems(0).gridX)
	text 0,80,\"invItems().gridY\"+str$(invItems(0).gridY)
	text 0,100,\"invItems().gridY\"+str$(TEMP_INV_ITEM)
	endif
	sync
loop





REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                   SUB-ROUTINES                                    **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************


REM ===============================================================
REM Save inventory routine
REM ===============================================================
_SaveInventory:




REM ===============================================================
REM The final check for any flags that may need set or reset
REM ===============================================================
_CheckFlags:
	if _MC = 1
		mFlag = 1
	else
		mFlag = 0
		dragInvWindow = 0
	endif
RETURN



REM ===============================================================
REM The puff of smoke seen when dropping an item
REM ===============================================================
_DoItemSmoke:
	paste sprite 4, smokeX, smokeY
	play sprite 4, 1, 16, 40
	if sprite frame(4) = 1 and killItemSmoke = 2
		killItemSmoke = 0
	else
		killItemSmoke = 2
	endif
RETURN



REM ===============================================================
REM The final check for any flags that may need set or reset
REM ===============================================================
_HandleInvItemPlacement:
	if mouseWithin(invX+43, invY+59, invX+428, invY+252)
		gx = (mousex()-(invX+43)) / ImgSize - items(_SelectedItem).invWidth/2
		gy = (mousey()-(invY+59)) / ImgSize - items(_SelectedItem).invHeight/2
		
		`i = getPlayerItemAtLoc(gx, gy)
		
		safe = isItemPlacementOK(gx, gy, _SelectedItem)
		if safe = 1 : c = C_GREEN : else : c = C_RED : endif
		
		if _MC = 1 and mFlag = 0 and safe = 1
			mFlag = 1
			placeObjectInInventory(gx, gy, _SelectedItem)
			_SelectedItem = 0
		endif
	
		
		rem show boundary box for item placement
		x = invX+43+gx*ImgSize
		y = invY+59+gy*ImgSize
		x2 = x + (items(_SelectedItem).invWidth)*ImgSize
		y2 = y + (items(_SelectedItem).invHeight)*ImgSize
		if x < invX+43 then x = invX+43
		if y < invY+59 then y = invY+59
		if x2 > invX+427 then x2 = invX+427
		if y2 > invY+251 then y2 = invY+251
		box x, y, x2, y2, c, c, c, c
	endif
	
	
	if _SelectedItem > 0
		rem display selected item
		if items(_SelectedItem).image > 0
			paste image items(_SelectedItem).image, mousex()-(items(_SelectedItem).invWidth/2.0)*ImgSize, mousey()-(items(_SelectedItem).invHeight/2.0)*ImgSize, 1
		endif
		rem if mouse clicked and is outside the inventory and stat window, drop the item in a puff of smoke
		if _MC = 1
			if mouseWithin(invX+16, invY+16, invX+456, invY+329) = 0
				mFlag = 1
				smokeX = mousex()-64
				smokeY = mousey()-88
				killItemSmoke = 1
				_SelectedItem = 0
				rem if deleting an item selected from inventory, remove if from array
				if TEMP_INV_ITEM > -1
					array delete element invItems(), TEMP_INV_ITEM
					TEMP_INV_ITEM = -1
				endif
			endif
		endif
	endif
RETURN



REM ===============================================================
REM Draws all items in the inventory
REM ===============================================================
_DrawInventoryItems:
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ix = invX+43 + invItems(i).gridX*ImgSize
			iy = invY+59 + invItems(i).gridY*ImgSize
		
			rem don\'t draw the inventory item if its currently selected
			if i <> TEMP_INV_ITEM
				if items(invItems(i).itemID).image > 0
					paste image items(invItems(i).itemID).image, ix, iy, 1
				endif
				rem if item contains more than 1 quantity, display count
				if invItems(i).qty > 1
					ink rgb(0,0,0),0
					text ix+2, iy+2, str$(invItems(i).qty)
					ink rgb(255,255,255),0
					text ix+1, iy+1, str$(invItems(i).qty)
				endif
			endif
		endif
	next i
RETURN



REM ===============================================================
REM Various mouse actions, dragging windows, selecting items, etc..
REM ===============================================================
_MouseInteraction:
	if _MC = 1 and mFlag = 0
		rem if mouse clicked on inventory window header
		if mouseWithin(invX+29, invY+24, invX+442, invY+46) and mFlag = 0
			mFlag = 1
			tempX = mousex() - invX
			tempY = mousey() - invY
			dragInvWindow = 1
		endif
		
		rem if mouse clicked in inventory window
		if mouseWithin(invX+43, invY+59, invX+428, invY+252) and mFlag = 0
			if _SelectedItem = 0
				mFlag = 1
				gx = (mousex()-(invX+43)) / ImgSize - items(_SelectedItem).invWidth/2
				gy = (mousey()-(invY+59)) / ImgSize - items(_SelectedItem).invHeight/2
				i = getPlayerItemAtLoc(gx, gy)
				if i > -1
					TEMP_INV_ITEM = i
					_SelectedItem = invItems(i).itemID
					_SelectedItemPage = invItems(i).itemPAGE

				endif
			endif
		endif
	endif
	
	rem if user is dragging inventory window
	if dragInvWindow = 1
		invX = mousex() - tempX
		invY = mousey() - tempY
	endif

RETURN

REM ===============================================================
REM Show the inventory window
REM ===============================================================
_DrawInventoryWindow:
	rem inventory window
	paste image 13, invX, invY, 1
RETURN


REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                    FUNCTIONS                                      **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************



REM ===============================================================
REM Returns the array index of the inventory item located at grid[x,y]
REM ===============================================================
function getPlayerItemAtLoc(gridX, gridY)
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ax = invItems(i).gridX
			ay = invItems(i).gridY
			bx = ax + items(invItems(i).itemID).invWidth
			by = ay + items(invItems(i).itemID).invHeight
			if gridX >= ax and gridX < bx and gridY >= ay and gridY < by then exitfunction i
		endif
	next i
		
endfunction -1



REM ===============================================================
REM Inserts an item in to the inventory. 
REM ===============================================================
function placeObjectInInventory(gridX, gridY, itemId)
	`gx = gridX + items(itemID).invWidth - 1
	`gy = gridY + items(itemID).invHeight - 1
	
	rem Item being placed in inventory already exists. 
	rem So it doesn\'t need to be added to the array, only moved.

	if TEMP_INV_ITEM > -1
		invItems(TEMP_INV_ITEM).gridX = gridX
		invItems(TEMP_INV_ITEM).gridY = gridY
		invItems(TEMP_INV_ITEM).itemPAGE = CURRENT_PAGE
		TEMP_INV_ITEM = -1
		exitfunction
	endif
	
	rem check to see if placing a stackable item
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			ax = invItems(i).gridX
			ay = invItems(i).gridY
			bx = ax + items(invItems(i).itemID).invWidth
			by = ay + items(invItems(i).itemID).invHeight
			if gridX >= ax and gridX < bx and gridY >= ay and gridY < by
				if invItems(i).itemID = itemId
					if items(invItems(i).itemID).isStackable
						inc invItems(i).qty, 1
						exitfunction
					endif
				endif
			endif
		endif 
	next i
	
	rem if item wasn\'t added to a stack, insert the new item into the inventory
	array insert at bottom invItems()
	invItems().itemID = itemId
	invItems().itemPAGE = CURRENT_PAGE
	invItems().qty = 1
	invItems().gridX = gridX
	invItems().gridY = gridY
endfunction



REM ===============================================================
REM This will verify if it\'s safe to place an item at the specified
REM grid coordinates. If the item overlaps another or goes outside
REM the inventory grid region, then function returns false.
REM ===============================================================
function isItemPlacementOK(gridX, gridY, itemId)
	gx = gridX + items(itemID).invWidth - 1
	gy = gridY + items(itemID).invHeight - 1
	
	rem make sure item fits on the inventory grid
	if gx >= 12 or gy >= 6 or gridX < 0 or gridY < 0 then exitfunction 0
	
	itemCount = array count(invItems())
	for i = 0 to itemCount
		if invItems(i).itemPAGE = CURRENT_PAGE
			if i <> TEMP_INV_ITEM
				ax = invItems(i).gridX
				ay = invItems(i).gridY
				bx = ax + items(invItems(i).itemID).invWidth-1
				by = ay + items(invItems(i).itemID).invHeight-1
			
				rem detects grid location directly under mouse pointer
				if gridX >= ax and gridX <= bx and gridY >= ay and gridY <= by
					rem if trying to place an item of the same type on each other
					if invItems(i).itemID = itemID
						rem if item is stackable
						if items(itemId).isStackable then exitfunction 1
						exitfunction 0
					else
						exitfunction 0
					endif
				endif
			
		
				rem This makes sure the selected item doesn\'t overlap any existing items
				rem The above IF statement is insufficient because some points of the selected
				rem object may lie in unoccupied cells but still have some parts overlapping
				rem occupied ones. (Thanks BMacZero)
				nleft = max(gridX, ax)
				nright = min(gx, bx)
				ntop = max(gridY, ay)
				nbottom = min(gy, by)
				if (nleft <= nright) and (ntop <= nbottom) then exitfunction 0
			endif
		endif
	next i
endfunction 1



REM ===============================================================
REM Displays a tooltip
REM ===============================================================
function showToolTip(x, y, s$)
	w = d3d_gettextwidth(2, s$)+10
	h = d3d_gettextheight(2, s$)
	
	box x, y-h, x+w, y, TT_BLACK, TT_BLACK, TT_BLACK, TT_BLACK
	ink rgb(128,128,128),0
	boxOutline(x, y-h, x+w, y)
	
	d3d_color 23, 129, 251, 255
	d3d_starttext
		d3d_text 2, x+5, y-h, 0, s$
	d3d_endtext
endfunction


REM ===============================================================
REM Loads items into the items array
REM ===============================================================
function loadItemDatabase()
	REM Load item data and images
	restore ItemsData : read count
	imgBase = 100
	for i = 1 to count
		imgId = imgBase + i
		read img$
		load image \"items/\"+img$, imgId
		read name$
		read width
		read height
		read stack
		
		array insert at bottom items()
		items().image = imgId
		items().name = name$
		items().invWidth = width
		items().invHeight = height
		items().isStackable = stack
	next i

endfunction



REM ===============================================================
REM Returns true if mouse is within the specified region
REM ===============================================================
function mouseWithin(x1, y1, x2, y2)
	if mousex() >= x1 and mousex() <= x2 and mousey() >= y1 and mousey() <= y2 then exitfunction 1
endfunction 0



REM ===============================================================
REM Draws the outline of a box
REM ===============================================================
function boxOutline(x1, y1, x2, y2)
	line x1, y1, x1, y2
	line x1, y1, x2, y1
	line x2, y1, x2, y2
	line x1, y2, x2, y2
endfunction



REM ***************************************************************************************
REM ***************************************************************************************
REM **                                                                                   **
REM **                                  DATA  STATEMENTS                                 **
REM **                                                                                   **
REM ***************************************************************************************
REM ***************************************************************************************



REM ===============================================================
REM image path, item name, width, height, stackable
REM ===============================================================

ItemsData:
data 8
data \"438.png\", \"WD\", 1, 1, 0
data \"434.png\", \"WD\", 1, 1, 0
data \"487.png\", \"WD\", 1, 1, 0
data \"578.png\", \"WD\", 1, 1, 0
data \"10218.png\", \"WD\", 1, 1, 0
data \"11069.png\", \"WD\", 1, 1, 0
data \"11215.png\", \"WD\", 1, 1, 0
data \"11215.png\", \"WD\", 1, 1, 0

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Mar 2013 00:34

Link

If anyone is curious, press "1" or "2" to switch between the pages. Took me a second to figure it out.

I'd recommend adding a button into the gui so users will see what page they're on to prevent confusion.

"You're all wrong. You're all idiots." ~Fluffy Rabbit

Back to top

Profile PM Email Website

luskos

16

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 3rd Mar 2013 21:15

Link

New version with save\load function.

Coding is My Kung Fu!
And My Kung Fu is better than Yours!

Back to top

Profile PM

luskos

16

Years of Service

User Offline

Joined: 28th Jun 2007

Location:

Posted: 23rd Mar 2013 12:16 Edited at: 29th Mar 2013 19:20

Link

Update!
*The new version have proper saving and loading(there was a bug in the last one).
*Populating inventory with items using space creates item at first available inventory slot.
*If you take item from inventory and place it on top of another item that is not stackable or stackable but not same it moves the item back at original location.
*Smooth cliping and scrolling - Thanks to Phaelax again.
*Stacking does add qty to items now
*Stackable items shows qty like: 874 , 26.98K , 1.3M etc.
*Pages are removed, now inventory is expandable.It expands or shrinks itself depending if you add or remove items.
*Item weight and inventory Volume.

You will need Matrix1Utils: http://forum.thegamecreators.com/?m=forum_view&t=85209&b=18
And Advanced2D : http://forum.thegamecreators.com/?m=forum_view&t=179096&b=5

Sorry your browser is not supported!

Code Snippets / [DBP] - Inventory

Attachments