Sorry your browser is not supported!

FUNCTION ShowRoom(Array_Name$,Room_ID$)
    local search_length as Integer                      `Define local variable for the search limit
    local Room as Integer                               `Define local variable to hold the Array Element for the room we want
    
    search_length = GET ARRAY SIZE(Array_Name$())
    FOR n = 0 to search_length                             `Start the search loop
        IF Array_Name$(n).uid == Room_ID$
            Room = Array_Name$(n)
            EXIT
        ENDIF
    NEXT n
    
    
    
ENDFUNCTION


```Compiler Output: Parameter for 'GET ARRAY SIZE' do not match 'Array()' at line 104.

type udtRoom
    uid as string
endtype

dim roomArray() as udtRoom

function ShowRoom(Room_ID$)
    local search_length as Integer                      `Define local variable for the search limit
    local Room as Integer                               `Define local variable to hold the Array Element for the room we want
    
    search_length = GET ARRAY SIZE(roomArray())
    FOR n = 0 to search_length                             `Start the search loop
        IF roomArray(n).uid = Room_ID$
            `Room = roomArray(n).xxx
            EXIT
        ENDIF
    NEXT n
    
ENDFUNCTION

#constant ARRAY_TYPE_SMALLROOM          0
#constant ARRAY_TYPE_BIGROOM            1
#constant ARRAY_TYPE_EMPTYROOM          2

dim smRoomArray(23)
dim bigRoomArray(555)
dim eptRoomArray(33)

function ShowRoom( roomType as dword, Room_ID$ )
    local count as integer
    local index as integer
    local room as Integer 

    if roomType = ARRAY_TYPE_SMALLROOM
        count = get array size( smRoomArray() )
        for index = 0 to count
            //<do something>
        next
        //<do something>
    endif
    
    if roomType = ARRAY_TYPE_BIGROOM
        count = get array size( bigRoomArray() )
        for index = 0 to count
            //<do something>
        next
        //<do something>
    endif
  
    if roomType = ARRAY_TYPE_EMPTYROOM
        count = get array size( eptRoomArray() )
        for index = 0 to count
            //<do something>
        next
        //<do something>
    endif  
    
endfunction

Type vec
   x As Float
   y As Float
   z As Float
endType

Type object
   num As Integer
   pos As vec
endtype

DIM obj_Static(10) As object
DIM obj_Dynamic(10) As object

setArray( get arrayptr( obj_Static() ), 1, 1, 0.0, 10.0, 50.0)
setArray( get arrayptr( obj_Dynamic() ), 1, 1, 10.0, 50.0, 150.0)

Set Cursor 0, 0
Print "Static 1:"
Print "Number: "+Str$(obj_Static(1).num)
Print "Pos X: "+Str$(obj_Static(1).pos.x)
Print "Pos Y: "+Str$(obj_Static(1).pos.y)
Print "Pos Y: "+Str$(obj_Static(1).pos.z)

Print "Dynamic 1:"
Print "Number: "+Str$(obj_Dynamic(1).num)
Print "Pos X: "+Str$(obj_Dynamic(1).pos.x)
Print "Pos Y: "+Str$(obj_Dynamic(1).pos.y)
Print "Pos Y: "+Str$(obj_Dynamic(1).pos.z)

Wait key
end

Function setArray(ary As dWord, i As Integer, num As Integer, x As Float, y As Float, z As Float)
DIM tmp(0) As object
   Link Array tmp(), ary
      tmp(i).num = num
      tmp(i).pos.x = x
      tmp(i).pos.y = y
      tmp(i).pos.z = z
   Unlink Array tmp()
UNDIM tmp()
endFunction

SET DISPLAY MODE 1024,600,32

DIM KirkHill$(100)
KirkHill$(0) = "This is Room #1"
KirkHill$(1) = "This is Room #2"


MapTable as Integer = 1

MAKE LOOKUP MapTable
SET LOOKUP MapTable, "1x1A", "0"
SET LOOKUP MapTable, "1x1B", "1"

Value$ = LOOKUP$ (MapTable, "1x1B")
x = Val(Value$)
Print KirkHill$(x)

Print "Hi"


wait key
end