Sorry your browser is not supported!

If CurrentItemCode>0
                                    ` Find if Slot Exist
                                    If Inventory(InventorySelection,0)= CurrentItemCode# and InventorySelectionDone=0 
                                        InventorySelectionDone=1 : Inventory(InventorySelection,1) = Inventory(InventorySelection,1) + 1 : Weight#=Weight#+ObjWeight# : InventorySelectionDone=0 : InventorySelection=0
                                    endif
                                    ` If Slot dosn't exist for object
                                    If Inventory(InventorySelection,0)=0 and InventorySelectionDone=0 
                                        InventorySelectionDone=1 : Inventory(InventorySelection,0) = CurrentItemCode# :  Inventory(InventorySelection,1) = Inventory(InventorySelection,1) + 1 : Weight#=Weight#+ObjWeight# : InventorySelectionDone=0 : InventorySelection=0
                                    endif
                                    ` Go through inventory to Max
                                    If InventorySelection<28 and InventorySelectionDone=0 then InventorySelection=InventorySelection+1 else InventorySelection=0
                                
                                   
                    endif

v=10103001010

print "10103001010"
print v
print hex$(v)

Sync
wait key

type myType
    material as word
    type as word
    name as string
    weight as integer
endtype

...

myValue as myType
myValue.material = myMaterial
myValue.name = "Peter"
myValue.weight = 42

...

type <typename>
    <typevariable1> as <datatype1>
    ...
endtype

type EquipmentType
    keepZero as integer
    material as integer
    category as integer
    name$ as string
    weight# as float
endtype


dim equipmentArray(10) as EquipmentType

for i = 0 to 10
    equipmentArray(i).keepZero = 0
    equipmentArray(i).material = i
    equipmentArray(i).category = i
    equipmentArray(i).name$ = "name of Equipment"
    equipmentArray(i).weight# = (i * 20.0) / 3.0
next i


for i = 0 to 10
    print equipmentArray(i).keepZero
    print equipmentArray(i).material
    print equipmentArray(i).category 
    print equipmentArray(i).name$
    print equipmentArray(i).weight#
next i

Select Collection
                        ` Mining
                        If ObjInUseCheck=01001
                        Case 1
                            // Copper
                            CurrentItemCode = 10103001010
                            CurrentItemCode$ = str$(CurrentItemCode#)
                            ObjWeight#=(val(mid$(CurrentItemCode$,9))+ val(mid$(CurrentItemCode$,10)) + val(mid$(CurrentItemCode$,11)))/10
                        Endcase
                        Case 2
                            // Tin
                            CurrentItemCode = 10203001100
                            CurrentItemCode$ = str$(CurrentItemCode#)
                            ObjWeight#=(val(mid$(CurrentItemCode$,9))+ val(mid$(CurrentItemCode$,10)) + val(mid$(CurrentItemCode$,11)))/10
                        Endcase
                        Case 3
                            Iron = Iron + 1
                        Endcase
                        Case 4
                            Coal = Coal + 1
                        Endcase
                        endif
                        ` Smithing (Not Working Correctly!!)
                        Case 5
                            If UsingFurnace=0 then UsingFurnace=1
                        EndCase
                        ` Farming
                        ` Hunting
                        ` Cooking
                        ` Looting
                    Endselect
                    ` Dosn't Work ATM in putting it in one part of the array!
                    If CurrentItemCode>0
                                    ` Find if Slot Exist
                                    If Inventory(InventorySelection,0)= CurrentItemCode and InventorySelectionDone=0 
                                        InventorySelectionDone=1 : Inventory(InventorySelection,1) = Inventory(InventorySelection,1) + 1 : Weight#=Weight#+ObjWeight# : InventorySelectionDone=0 : InventorySelection=0
                                    endif
                                    ` If Slot dosn't exist for object
                                    If Inventory(InventorySelection,0)=0 and InventorySelectionDone=0 
                                        InventorySelectionDone=1 : Inventory(InventorySelection,0) = CurrentItemCode :  Inventory(InventorySelection,1) = Inventory(InventorySelection,1) + 1 : Weight#=Weight#+ObjWeight# : InventorySelectionDone=0 : InventorySelection=0
                                    endif
                                    ` Go through inventory to Max
                                    If InventorySelection<28 and InventorySelectionDone=0 then InventorySelection=InventorySelection+1 else InventorySelection=0
                                
                                   
                    endif

#CONSTANT MAT_TIN    = 1
#CONSTANT MAT_COPPER = 2
#CONSTANT MAT_IRON   = 3
#CONSTANT MAT_COAL   = 4
#CONSTANT MAT_LIQUID = 5


#CONSTANT CAT_FARMING = 1
#CONSTANT CAT_HUNTING = 2
#CONSTANT CAT_COOKING = 3
#CONSTANT CAT_LOOTING = 4
#CONSTANT CAT_MINING  = 5


Type ItemUDT
    name     as string
    material as integer
    category as integer
    weight   as float
    quantity as integer
EndType


dim inventory(10) as ItemUDT

inventory(1).name     = "hammer"
inventory(1).material = MAT_IRON
inventory(1).category = CAT_LOOTING
inventory(1).weight   = 2.4
inventory(1).quantity = 1

inventory(2).name     = "olive oil"
inventory(2).material = MAT_LIQUID
inventory(2).category = CAT_COOKING
inventory(2).weight   = 5.7
inventory(2).quantity = 3



select inventory(currentItem).category
    case CAT_MINING
        gosub _Mining
    endcase
    
    case CAT_FARMING
        gosub _Farming
    endcase

    case CAT_HUNTING
        gosub _Hunting
    endcase
    
    case CAT_COOKING
        gosub _Cooking
    endcase
    
    case CAT_LOOTING
        gosub _Looting
    endcase
endselect



_Mining:
    select inventory(currentItem).material
        case MAT_TIN
            // do something
        endcase
        case MAT_COPPER
            // do something
        endcase
        case MAT_COPPER
            // do something
        endcase
        case MAT_COAL
            // do something
        endcase
    endselect
RETURN