Sorry your browser is not supported!

case 7: rem group button
                if NumSelected > 1
                    j = 0 : count = 0
                    for i=1 to 50
                        if ObjectList(FindObjList(SelectedList(1,i))).GroupHead = 1 rem object is a group control
                            if j=0 then j=i
                            inc count
                        endif
                    next i
                    if count > 1
                        center text screen width()/2, screen height()/2, "More than one group control object selected!"
                        sync
                        wait 2000
                    else
                        if count = 1 rem a control object is selected
                            k = ObjectList(FindObjList(SelectedList(1,j))).Group rem set k to group num
                            for i=1 to 50
                                if SelectedList(1,i) > 0 and i <> j
                                    AddToGroup(k, SelectedList(1,i), SelectedList(1,j))
                                endif
                            next i
                            p = SelectedList(1,j)
                        else
                            rem find a free group and create a control object
                            for m = 2 to 30
                                c = SortGroupList(m)
                                if SelectedList(m, 1) = 0 rem first element will always be occupied if group exists
                                    n = FindFreeObj()
                                    make object box n, 10, 10, 10
                                    for o = 1 to 50
                                        add limb n, o, 3
                                        hide limb n, o
                                    next o
                                    
                                    
                                    position object n, x#, y#, z#
                                    rotate object n, angx#, angy#, angz#
                                    
                                    AddObject(n, "", "", 0, 100, 100, 0, m, 1, "")
                                    exit
                                endif
                            next m
                            
                            rem add objects to the new group
                            for i = 1 to 50
                                if SelectedList(1,i) > 0
                                    AddToGroup(m, SelectedList(1,i), n)
                                else
                                    exit
                                endif
                            next i
                        endif
                        
                        rem select only the new control object
                        for i=1 to NumSelected
                            if SelectedList(1, i) > 0
                                ghost object off SelectedList(1,i)
                                if ObjectList(FindObjList(SelectedList(1,i))).GroupHead = 1
                                    DeselectAll(ObjectList(FindObjList(SelectedList(1,i))).Group)
                                endif
                                SelectedList(1,i) = 0
                            endif
                        next i
                        if count = 1
                            SelectedList(1,1) = p rem assign existing control object
                        else
                            SelectedList(1,1) = n rem assign newly created control object
                        endif
                        ghost object on SelectedList(1,1)
                        SelectAll(ObjectList(FindObjList(SelectedList(1,1))).Group)
                        
                        recalc = 1
                        
                    endif
                endif
                
            endcase

function SelectAll(Index)
    for i=1 to 50
        if SelectedList(Index, i) > 0
            ghost object on SelectedList(Index, i)
        else
            exit
        endif
    next i
endfunction

function DeselectAll(Index)
    for i=1 to 50
        if SelectedList(Index, i) > 0
            ghost object off SelectedList(Index, i)
        else
            exit
        endif
    next i
endfunction

function AddToGroup(Group, Index, GroupHead)
    j = SortGroupList(Group)
    
    for i=1 to j
        if SelectedList(Group, i) = Index then exit rem break if object is already in group
        if SelectedList(Group, i) = 0
            
            SelectedList(Group, i) = Index
            avgx# = 0 : avgy# = 0 : avgz# = 0
        
            for k=1 to j
                inc avgx#, object position x(SelectedList(Group,k))
                inc avgy#, object position y(SelectedList(Group,k))
                inc avgz#, object position z(SelectedList(Group,k))
            next k
            
            avgx# = avgx#/j : avgy# = avgy#/j : avgz# = avgz#/j
            
            position object GroupHead, avgx#, avgy#, avgz#
            rem rotate object to orientation of the last object added to list
            rotate object GroupHead, object angle x(SelectedList(Group, j)), object angle y(SelectedList(Group, j)), object angle z(SelectedList(Group, j))
            
            for k=1 to j
                offset limb GroupHead, k, object position x(SelectedList(Group,k))-avgx#, object position y(SelectedList(Group,k))-avgy#, object position z(SelectedList(Group,k))-avgz#
                rotate limb GroupHead, k, object angle x(SelectedList(Group,k)), object angle y(SelectedList(Group,k)), object angle z(SelectedList(Group,k))
            next k
            
            ObjectList(FindObjList(SelectedList(Group, i))).Group = Group
            exit
        endif
    next i
    
    if i=50 rem list is full
        center text screen width()/2, screen height()/2, "Group cannot contain more than 50 objects!"
        sync
        wait 2000
    endif
    
endfunction

`-----------------------------------------------------------------------
`-- GUI procedures: General GUI and the inventory list go here
`-----------------------------------------------------------------------
_ProgGUI: `GUI for object information and current status
 Paste Image GUI,0,0   : `Top bar
 Paste Image GUI,0,743 : `Bottom bar
`Print the program options on the top bar
 Text 15,5,"OBJECT INVENTORY  |  " : Text 180,5,"SAVE CURRENT DESIGN |  "
 Text 370,5,"CAMERA VIEWS  |  "    : Text 510,5,"LOAD SAVED PROJECT OR DESIGN"
`Print important status messages over the bottom bar, including currrent selected object's position and FPS rate
 Text 935,748,"FPS: "+Str$(Screen FPS() )
 Text 15,748,"Object Position: X"+Str$(NewPosX#)+" Y"+Str$(NewPosY#)+" Z"+Str$(NewPosZ#)
 
Return

_Inventory: `Inventory list for objects 
`Draw the main box
 Ink RGB(125,125,125), RGB(125,125,125) : Box 256,192,512,384
 Ink RGB(255,255,255), RGB(255,255,255)
 
Return

Rem -------------------------------------
Rem Menu GUI routines
_MenuBar:
 Ink RGB(165,165,165), RGB(165,165,165)
 Box 0,0,1024,25 : Box 0,743,1024,768
 Ink RGB(255,255,255), RGB(255,255,255)
 Center Text 32,5,"OBJECTS" : Center Text 94,5,"SAVE" : Center Text 164,5,"CAMERA"
 
 MX=MouseX() : MY= MouseY() : MC=MouseClick()
 
 If MX=>2 And MY=>2 And MX=<62 And MY=<24
   Ink RGB(0,0,0), RGB(0,0,0)
   Center Text 32,5,"OBJECTS" 
   OptPress=1
  Else
   OptPress=0
 EndIf
 `If the user clicks on "Options"
 If MC=1 And OptPress=1 Then GoSub _OptsMenu: : MC=0
 
 If MX=>64 And MY=>2 And MX=<128 And MY=<24
   Ink RGB(0,0,0), RGB(0,0,0)
   Center Text 94,5,"SAVE"
   If MC=1 Then GoSub _SaveLevel:
 EndIf

 
 If MX=>130 And MY=>2 And MX=<200 And MY=<24
   Ink RGB(0,0,0), RGB(0,0,0)
   Center Text 164,5,"CAMERA"
   CamPress=1
 Else
   CamPress=0
 EndIf
 If MC=1 And CamPress=1 Then GoSub _CamMenu: : MC=0
Return



_OptsMenu:
 SelectedObj=0
 Do
  Ink RGB(165,165,165), RGB(165,165,165)
  Box 0,0,1024,25  : `Menu bar
  Box 2,26,162,196 : `Options menu
  Ink RGB(85,85,85), RGB(85,85,85)
  Box 4,28,160,194 : `Options menu dark interior
  Ink RGB(255,255,255), RGB(255,255,255)
  Center Text 32,5,"OBJECTS" : Center Text 94,5,"SAVE" : Center Text 164,5,"CAMERA"
  
  Ink RGB(255,255,255), RGB(255,255,255)
  Center Text 81,34,"Make a 1-Unit Block"
  
  Ink RGB(255,255,255), RGB(255,255,255)
  Center Text 81,54,"Make a 5-Unit Block"

  Ink RGB(255,255,255), RGB(255,255,255)
  Center Text 81,74,"Make a Gold Coin"
  
  Ink RGB(255,255,255), RGB(255,255,255)
  Center Text 81,94,"Make a Power-Up"
  
  MX=MouseX() : MY= MouseY() : MC=MouseClick()
  
  `Invert text when mouse is hovering over options and do selected options when the user clicks on them
  IF MX=>2 And MY=>26 And MX=<162 And MY=<46
       Ink RGB(0,0,0), RGB(0,0,0)
       Center Text 81,34,"Make a 1-Unit Block"
       CubePress=1
   Else
       CubePress=0
   EndIf
   If MC=1 And CubePress=1 Then CreateCube() : Play Sound pop : Exit : CubePress=0
   
   If MX=>2 And MY=>56 And MX=<162 And MY=<76
        Ink RGB(0,0,0,), RGB(0,0,0)
        Center Text 81,54,"Make a 5-Unit Block"
        StripPress=1
   Else
        StripPress=0
   EndIf
   If MC=1 And StripPress=1 Then CreateStrip() : Play Sound pop : Exit : StripPress=0
   
   If MX=>2 And MY=>76 And MX=<162 And MY=<96
        Ink RGB(0,0,0), RGB(0,0,0)
        Center Text 81,74,"Make a Gold Coin"
        CoinPress=1
   Else
        CoinPress=0
   EndIf
   If MC=1 And CoinPress=1 Then CreateCoin() : Play Sound pop : Exit : CoinPress=0
   
    
   If MC=2 Then Exit : MC=0  
  Sync
 Loop
Return

do
MMX=MOUSEMOVEX()
CUROBJ=PICK OBJECT(MOUSEX(),MOUSEY(),0,700)
If MouseClick()=1
 If MMX > 0.0
  position object CUROBJ,(Object position x(CUROBJ)+1),Object position y(CUROBJ),object position y(CurOBJ)
  endif
ENDIF
loop

  position object CUROBJ,(Object position x(CUROBJ)+1),Object position y(CUROBJ),object position y(CurOBJ)

do
CUROBJ=PICK OBJECT(MOUSEX(),MOUSEY(),0,700)
If MouseClick()=1 then move object left CUROBJ,1
If MouseClick()=2 then move object right CUROBJ,1
sync
loop

do
CUROBJ=PICK OBJECT(MOUSEX(),MOUSEY(),0,700)
If MouseClick()=1 and first_click = 0 then first_click = CUROBJ
If MouseClick()=1 and CUROBJ <> first_click
   position object first_click,object position x(CUROBJ),object position y(CUROBJ),object position z(CUROBJ)
   first_click = 0
endif
sync
loop

rem saved objects
type Obj
    Index as word rem object number
    Filename$ as string rem filename of .x file
    Texturename$ as string rem filename of texture
    EditIndex as integer rem number in level editor list; 0 if not in list(on map)
    Description$ as string rem object description
    Category as word rem object type : static=1, character=2, item=3, terrain=4, skydome=5, light=6, trigger=7
    
    XPos as float
    YPos as float
    ZPos as float
    
    XRot as float
    YRot as float
    ZRot as float
    
    Scale# as float
    PrevScale# as float
    
    Group as integer rem group number of object
    GroupHead as boolean rem object is control object for group
    
    rem newton attributes
    
endtype

dim ObjectList(2000) as Obj

make object box 7, 10, 10, 10
make mesh from object 3, 7
for i=1 to 50
    add limb 7, i, 3
next i
texture object 7, 3000 : set object 7, 1, 1, 1