Sorry your browser is not supported!

`invetory vars
type tItem
name$ as String
damage# as Integer
weight# as Float
WeaponID as Integer
endtype

`dynamic array for the weapons, allowing you to edit and stats that you want :D
dim MyWeapons() as tItem

` Create the blueprints for our 4 vehicle types
`******************************************************

createBluePrints()

` Create weapons.  Use a random value for weapon type
` Give it an object Id
`******************************************************

Load Object "Weapons/Longsword.x", 1
Load Object "Weapons/Bow.x", 2
Load Object "Weapons/Dagger.x", 3


Function createBluePrints()
    ` Create an array to hold our weapon BluePrints
    ` These can be of the same Type as the final vehicles
    ` Because I use 0 as a special value, I ignore element 0 in arrays.
    Dim BluePrint(3) as tItem
    
    `Create 3 Weapon Blueprints
    BluePrint (1).name$ = "Longsword"
    BluePrint (1).damage# = 25
    BluePrint (1).weight# = 3.7
    
    BluePrint (2).name$ = "Bow"
    BluePrint (2).damage# = 17
    BluePrint (2).weight# = 2.3
    
    BluePrint (3).name$ = "Dagger"
    BluePrint (3).damage# = 5
    BluePrint (3).weight# = 1.1
    
ENDFUNCTION

Type player_inventory_data
	itemType as string ` store the name of the item in here, or change it to an integer and store it using a number
	itemCount as integer ` the amount of items the player has of this one
endtype


dim playerInventory(-1) as player_inventory_data

For i=0 to 10
	addItemToInventory( "testItem" , rnd(10) )
Next i

Do
	text 10, 10, "Number of testitems: "+str$( getInventoryItem( "testItem" ) )

Sync
Loop


Rem add an item to the players inventory
Function addItemToInventory( itemName as string , count as integer )

	For i=0 to array count( playerInventory(-1) )
		if playerInventory(i).itemType = itemName
			inc playerInventory(i).itemCount, count
			exitfunction
		endif
	Next i

	array insert at bottom playerInventory()
	playerInventory().itemType = itemname
	playerInventory().itemCount = count

endFunction

Rem will return the amount of items are in the inventory
Function getInventoryItem( itemName as string )

	count = 0
	For i=0 to array count( playerInventory(-1) )
		if playerInventory(i).itemType = itemName
			count = playerInventory(i).itemCount
			exit
		endif
	Next i

endFunction count

    BluePrint (1).name$ = "Longsword"
    BluePrint (1).damage# = 25
    BluePrint (1).weight# = 3.7

type item_properties

heath as integer
mass as integer

endtype

dim properties(10) as item_properties 
itemid = 1

properties(1).health = 1
properties(1).mass = 4

if player_uses_item
mass = properties( itemid ).mass
endif

BluePrint (1).name$ = "Longsword"
BluePrint (1).damage# = 25
BluePrint (1).weight# = 3.7
BluePrint (1).WeaponID = 1

BluePrint (1).name$ = "Longsword"
BluePrint (1).damage# = 25
BluePrint (1).weight# = 3.7
BluePrint (1).WeaponID = 1
BluePrint (1).InPossesion = 0

Type player_inventory_data
    id    as integer
    count as integer
endtype
`invetory vars
type tItem
name$ as String
damage# as Integer
weight# as Float
WeaponID as Integer
endtype



dim playerInventory(-1) as player_inventory_data

createBluePrints()

For i=0 to 10
    addItemToInventory( rnd(2)+1 , rnd(10) )
Next i

Do  
    set cursor 0,0
    print "Items in inventory:"
    print "---"
    for i=0 to array count( playerInventory() )
        id = playerInventory(i).id
        
        print "   ",playerInventory(i).count,"x"
        print "     name: ",BluePrint(id).name$
        print "     damage: ",BluePrint(id).damage#
        print "     weight: ",BluePrint(id).weight#
        print ""
        
    next i

Sync
Loop


Rem add an item to the players inventory
Function addItemToInventory( itemID as integer , count as integer )

    For i=0 to array count( playerInventory(-1) )
        if playerInventory(i).id = itemID
            inc playerInventory(i).count, count
            exitfunction
        endif
    Next i

    array insert at bottom playerInventory()
    playerInventory().count = count
    playerInventory().id    = itemID

endFunction


Function createBluePrints()
    ` Create an array to hold our weapon BluePrints
    ` These can be of the same Type as the final vehicles
    ` Because I use 0 as a special value, I ignore element 0 in arrays.
    Dim BluePrint(3) as tItem
    
    `Create 3 Weapon Blueprints
    BluePrint(1).name$ = "Longsword"
    BluePrint(1).damage# = 25
    BluePrint(1).weight# = 3.7
    
    BluePrint(2).name$ = "Bow"
    BluePrint(2).damage# = 17
    BluePrint(2).weight# = 2.3
    
    BluePrint(3).name$ = "Dagger"
    BluePrint(3).damage# = 5
    BluePrint(3).weight# = 1.1
    
ENDFUNCTION

Function addItemToInventory( itemID as integer , count as integer )

    For i=0 to array count( playerInventory(-1) )
        if playerInventory(i).id = itemID
            inc playerInventory(i).count, count
            exitfunction
        endif
    Next i

    array insert at bottom playerInventory()
    playerInventory().count = count
    playerInventory().id    = itemID

endFunction

for i=0 to array count( playerInventory() )
        id = playerInventory(i).id ` take the id of the weapon from the inventory
        
        print "   ",playerInventory(i).count,"x"
        print "     name: ",BluePrint(id).name$
        print "     damage: ",BluePrint(id).damage#
        print "     weight: ",BluePrint(id).weight#
        print ""
        
    next i