Windows style menu - GameCreators Forum

Author

Message

dark coder

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 25th Oct 2004 06:43 Edited at: 26th Oct 2004 09:35

Link

Hey all, i know the exact same thing exists and better in robk`s menu dll but i thought id have a bash at it from scratch in dbp, apart from finding out howto find the windows colours i did it all,

sync on
make_menu()

add_menu("Long list!")
add_menu("Checkboxes!")

add_sub_menu("Checkboxes!","List 1")
add_sub_menu("Checkboxes!","List 2")
add_sub_menu("Checkboxes!","CHECKME 1!")
add_sub_menu("Checkboxes!","CHECKME 2!")
add_sub_menu("Checkboxes!","CHECKME 3!")
add_sub_menu("Checkboxes!","CHECKME 4!")
add_sub_menu("Checkboxes!","CHECKME 5!")
add_sub_menu("Checkboxes!","CHECKME 6!")
add_sub_menu("Checkboxes!","CHECKME 7!")
add_sub_menu("Checkboxes!","CHECKME 8!")
add_sub_menu("Checkboxes!","CHECKME 9!")

add_sub_sub_menu("Checkboxes!","List 1","CHECK1 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK2 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK3 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK4 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK5 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK6 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK7 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK8 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK9 !")

add_sub_sub_menu("Checkboxes!","List 2","CHECK 1 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 2 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 3 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 4 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 5 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 6 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 7 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 8 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 9 !")

add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")

make object cube 1,1
color backdrop rgb(255,255,255)

do

return$=run_menu()
turn object right 1,1

if return$="CHECKME 1!" then check_sub_box("Checkboxes!","CHECKME 1!")
if return$="CHECKME 2!" then check_sub_box("Checkboxes!","CHECKME 2!")
if return$="CHECKME 3!" then check_sub_box("Checkboxes!","CHECKME 3!")
if return$="CHECKME 4!" then check_sub_box("Checkboxes!","CHECKME 4!")
if return$="CHECKME 5!" then check_sub_box("Checkboxes!","CHECKME 5!")
if return$="CHECKME 6!" then check_sub_box("Checkboxes!","CHECKME 6!")
if return$="CHECKME 7!" then check_sub_box("Checkboxes!","CHECKME 7!")
if return$="CHECKME 8!" then check_sub_box("Checkboxes!","CHECKME 8!")
if return$="CHECKME 9!" then check_sub_box("Checkboxes!","CHECKME 9!")

if return$="CHECK1 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK1 !")
if return$="CHECK2 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK2 !")
if return$="CHECK3 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK3 !")
if return$="CHECK4 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK4 !")
if return$="CHECK5 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK5 !")
if return$="CHECK6 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK6 !")
if return$="CHECK7 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK7 !")
if return$="CHECK8 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK8 !")
if return$="CHECK9 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK9 !")

if return$="CHECK 1 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 1 !")
if return$="CHECK 2 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 2 !")
if return$="CHECK 3 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 3 !")
if return$="CHECK 4 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 4 !")
if return$="CHECK 5 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 5 !")
if return$="CHECK 6 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 6 !")
if return$="CHECK 7 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 7 !")
if return$="CHECK 8 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 8 !")
if return$="CHECK 9 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 9 !")

sync
loop

`==================================
function make_menu()
 dim names(50,50,50) as string
 dim count(50,50)
 dim sel(10)
 dim check(50,50,50)
 set text font "tahoma"
 set text size 15
endfunction
`==================================
function add_menu(name as string)
 count(0,0)=count(0,0)+1
 names(count(0,0),0,0)=name
endfunction
`==================================
function add_sub_menu(pos as string,name as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
 count(men,0)=count(men,0)+1
 names(men,count(men,0),0,0)=name
endfunction

function asm(pos,name as string)
 count(pos,0)=count(men,0)+1
 names(pos,count(pos,0),0,0)=name
endfunction
`==================================
function add_sub_sub_menu(pos as string,down as string,name as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
 count(men,men2)=count(men,men2)+1
 names(men,men2,count(men,men2))=name
endfunction

function assm(pos,down,name as string)
 count(pos,down)=count(pos,down)+1
 names(pos,down,count(pos,down))=name
endfunction
`==================================
function check_sub_box(pos as string ,down as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
 check(men,men2,0)=check(men,men2,0)+1
 if check(men,men2,0)>1 then check(men,men2,0)=0
endfunction

function csb(pos,down)
 check(pos,down,0)=check(pos,down,0)+1
 if check(pos,down,0)>1 then check(pos,down,0)=0
endfunction
`==================================
function check_sub_sub_box(pos as string ,down as string,dow as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
for i=1 to count(men,0)
 if names(men,men2,i)=dow then men3=i
next i
 check(men,men2,men3)=check(men,men2,men3)+1
 if check(men,men2,men3)>1 then check(men,men2,men3)=0
endfunction

function cssb(pos,down,dow)
 check(pos,down,dow)=check(pos,down,dow)+1
 if check(pos,down,dow)>1 then check(pos,down,dow)=0
endfunction
`==================================
function run_menu()
 colour(1) : box 0,0,screen width(),21
 colour(2) : line 0,21,screen width(),21
 colour(4) : line 1,22,screen width(),22
  `==\
   mx=mousex()
   my=mousey()
   m2=sel(10)
   mg=mouseclick()
   mc=0
   if m2=0 and mg=1 then mc=1
   sel(10)=mg
  `==/
check=1
if mc=1 then check=0

if count(0,0)>0
   menux=6
    for i=1 to count(0,0)
     colour(4)
     text menux,2,names(i,0,0)
     line menux-1,15,menux-1+text width(mid$(names(i,0,0),1)),15
     tw=text width(names(i,0,0))
     if mx>(menux-6) and mx<(tw+menux+4) and my>1 and my<18
     if sel(0)>0 then sel(0)=i : sel(3)=menux
      if mc=1 and sel(0)>0
       if sel(0)=i then sel(0)=0 : mc=0 : sel(4)=0
      endif
     if mc=1 then sel(0)=i : check=1 : sel(3)=menux : sel(4)=0
     if sel(0)=0
      colour(3) : line menux-6,1,tw+menux+4,1 : line menux-6,1,menux-6,18
      colour(2) : line menux-6,18,tw+menux+4,18 : line tw+menux+4,1,tw+menux+4,18
     endif
     endif
     if sel(0)>0 and sel(0)=i
      colour(2) : line menux-6,1,tw+menux+4,1 : line menux-6,1,menux-6,18
      colour(3) : line menux-6,18,tw+menux+4,18 : line tw+menux+4,1,tw+menux+4,18
     endif
    menux=menux+12+tw
   next i
  endif

`=============================================================== SUB MENU

if sel(0)>0
   if count(sel(0),0)>0
    tex2len=0
    for i=1 to count(sel(0),0)
     if text width(names(sel(0),i,0))>tex2len then tex2len=text width(names(sel(0),i,0))
    next i
     boxz(sel(3)-6,19,sel(3)+tex2len+80,19+(20*count(sel(0),0)))
    for i=1 to count(sel(0),0)
      if mx>sel(3)-4 and mx<sel(3)+tex2len+80 and my>19 and my<19+(20*count(sel(0),0)) and mc=1 then check=1
     if mx>sel(3)-4 and mx<(sel(3)+tex2len+78) and my>(1+(20*i)) and my<(19+(20*i))
     if mc=1 and sel(4)=i then mc=0 : sel(4)=0
       if mc=1 then sel(4)=i : sel(5)=tex2len : sel(6)=sel(3)+tex2len+80
     if names(sel(0),i,0)="---"
     else
      colour(2)
      box (sel(3)-4),(1+(20*i)),(sel(3)+tex2len+78),(17+(20*i))
      if mc=1 and count(sel(0),i)=0 then return$=names(sel(0),i,0)
      switch=1
     endif
     endif
    if names(sel(0),i,0)="---"
     colour(2) : line sel(3),i*20+9,sel(3)+tex2len+75,i*20+9
     colour(3) : line sel(3),i*20+10,sel(3)+tex2len+75,i*20+10
    else
     if switch=0
      colour(4)
     else
      colour(5)
     endif
     switch=0
     if count(sel(0),i)>0
      a=(sel(3)+tex2len+70)
      h=2+i*20+6
      dot a,h : dot a-1,h : dot a-2,h : dot a-3,h : dot a-1,h+1 : dot a-1,h-1
      dot a-2,h+1 : dot a-2,h+2 : dot a-2,h-1 : dot a-2,h-2 : dot a-3,h+3
      dot a-3,h-1 : dot a-3,h-2 : dot a-3,h-3 : dot a-3,h+1 : dot a-3,h+2
     endif
      if check(sel(0),i,0)=1
       a=(sel(3)+7)
       h=2+i*20+8
       dot a,h:dot a,h-1:dot a-1,h-1:dot a-1,h-2:dot a-2,h-2:dot a-2,h-3:dot a+3,h-3:dot a+4,h-4
       dot a,h:dot a,h-1:dot a+1,h-1:dot a+1,h-2:dot a+2,h-2:dot a+2,h-3:dot a+3,h-4:dot a+4,h-5
      endif
     text sel(3)+20,2+i*20-1,names(sel(0),i,0)
    endif
    next i
   endif
  endif
`=============================================================== SUB SUB MENU
if count(sel(0),sel(4))>0
 if sel(4)>0
   tex2len=0
  for i=1 to count(sel(0),sel(4))
   if text width(names(sel(0),sel(4),i))>tex2len then tex2len=text width(names(sel(0),sel(4),i))
  next i
    boxz(sel(6),-1+(sel(4))*20,sel(6)+tex2len+80,-1+(sel(4)+count(sel(0),sel(4)))*20)
    if mx>sel(6) and mx<sel(6)+tex2len+80 and my>-1+(sel(4))*20 and my<-1+(sel(4)+count(sel(0),sel(4)))*20 and mc=1 then check=1
 for i=1 to count(sel(0),sel(4))
   colour(4)
  if mx>sel(6) and mx<sel(6)+tex2len+80 and my>-19+(sel(4)+i)*20 and my<-19+(sel(4)+i+1)*20
   colour(2)
   if names(sel(0),sel(4),i)="---"
   else
    box sel(6)+2,-18+(sel(4)+i)*20,sel(6)+tex2len+78,-23+(sel(4)+i+1)*20
    if mc=1 then return$=names(sel(0),sel(4),i)
   endif
   colour(5)
  endif
   if names(sel(0),sel(4),i)="---"
     colour(2) : line sel(6)+5,-18+(sel(4)+i)*20+6,sel(6)+tex2len+75,-18+(sel(4)+i)*20+6
     colour(3) : line sel(6)+5,-18+(sel(4)+i)*20+7,sel(6)+tex2len+75,-18+(sel(4)+i)*20+7
   else
      if check(sel(0),sel(4),i)=1
       a=(sel(6)+7)
       h=-9+(sel(4)+i)*20
       dot a,h:dot a,h-1:dot a-1,h-1:dot a-1,h-2:dot a-2,h-2:dot a-2,h-3:dot a+3,h-3:dot a+4,h-4
       dot a,h:dot a,h-1:dot a+1,h-1:dot a+1,h-2:dot a+2,h-2:dot a+2,h-3:dot a+3,h-4:dot a+4,h-5
      endif
    text sel(6)+20,-18+(sel(4)+i)*20,names(sel(0),sel(4),i)
   endif
 next i
 endif
endif
`============================================================================

if return$=""
else
 check=0
endif
if check=0 then sel(0)=0 : sel(4)=0

endfunction return$
`==================================
function colour(num)
 if num=1 then ink get_colour(4),0
 if num=2 then ink get_colour(16),0
 if num=3 then ink get_colour(20),0
 if num=4 then ink get_colour(21),0
 if num=5 then ink rgb(255,255,255),0
endfunction

function get_colour(num)
  local col as dword
  load dll "user32.dll",1
  col = call dll(1,"GetSysColor", num)
  delete dll 1
  col = rgb(rgbb(col), rgbg(col), rgbr(col))
endfunction col
`==================================
function boxz(x1,y1,x2,y2)

colour(1) : box x1,y1,x2,y2
colour(3) : line x1+1,y1+1,x2-1,y1+1 : line x1+1,y1+1,x1+1,y2-1
colour(2) : line x2-1,y1+1,x2-1,y2-1 : line x1+1,y2-1,x2-1,y2-1
colour(4) : line x2,y1+1,x2,y2-1 : line x1+1,y2,x2-1,y2

endfunction
`==================================

+ Code Snippet


sync on
make_menu()

add_menu("Long list!")
add_menu("Checkboxes!")

add_sub_menu("Checkboxes!","List 1")
add_sub_menu("Checkboxes!","List 2")
add_sub_menu("Checkboxes!","CHECKME 1!")
add_sub_menu("Checkboxes!","CHECKME 2!")
add_sub_menu("Checkboxes!","CHECKME 3!")
add_sub_menu("Checkboxes!","CHECKME 4!")
add_sub_menu("Checkboxes!","CHECKME 5!")
add_sub_menu("Checkboxes!","CHECKME 6!")
add_sub_menu("Checkboxes!","CHECKME 7!")
add_sub_menu("Checkboxes!","CHECKME 8!")
add_sub_menu("Checkboxes!","CHECKME 9!")

add_sub_sub_menu("Checkboxes!","List 1","CHECK1 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK2 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK3 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK4 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK5 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK6 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK7 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK8 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK9 !")

add_sub_sub_menu("Checkboxes!","List 2","CHECK 1 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 2 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 3 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 4 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 5 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 6 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 7 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 8 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 9 !")

add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")




make object cube 1,1
color backdrop rgb(255,255,255)

do

return$=run_menu()
turn object right 1,1

if return$="CHECKME 1!" then check_sub_box("Checkboxes!","CHECKME 1!")
if return$="CHECKME 2!" then check_sub_box("Checkboxes!","CHECKME 2!")
if return$="CHECKME 3!" then check_sub_box("Checkboxes!","CHECKME 3!")
if return$="CHECKME 4!" then check_sub_box("Checkboxes!","CHECKME 4!")
if return$="CHECKME 5!" then check_sub_box("Checkboxes!","CHECKME 5!")
if return$="CHECKME 6!" then check_sub_box("Checkboxes!","CHECKME 6!")
if return$="CHECKME 7!" then check_sub_box("Checkboxes!","CHECKME 7!")
if return$="CHECKME 8!" then check_sub_box("Checkboxes!","CHECKME 8!")
if return$="CHECKME 9!" then check_sub_box("Checkboxes!","CHECKME 9!")

if return$="CHECK1 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK1 !")
if return$="CHECK2 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK2 !")
if return$="CHECK3 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK3 !")
if return$="CHECK4 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK4 !")
if return$="CHECK5 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK5 !")
if return$="CHECK6 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK6 !")
if return$="CHECK7 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK7 !")
if return$="CHECK8 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK8 !")
if return$="CHECK9 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK9 !")

if return$="CHECK 1 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 1 !")
if return$="CHECK 2 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 2 !")
if return$="CHECK 3 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 3 !")
if return$="CHECK 4 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 4 !")
if return$="CHECK 5 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 5 !")
if return$="CHECK 6 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 6 !")
if return$="CHECK 7 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 7 !")
if return$="CHECK 8 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 8 !")
if return$="CHECK 9 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 9 !")


sync
loop



`==================================
function make_menu()
 dim names(50,50,50) as string
 dim count(50,50)
 dim sel(10)
 dim check(50,50,50)
 set text font "tahoma"
 set text size 15
endfunction
`==================================
function add_menu(name as string)
 count(0,0)=count(0,0)+1
 names(count(0,0),0,0)=name
endfunction
`==================================
function add_sub_menu(pos as string,name as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
 count(men,0)=count(men,0)+1
 names(men,count(men,0),0,0)=name
endfunction

function asm(pos,name as string)
 count(pos,0)=count(men,0)+1
 names(pos,count(pos,0),0,0)=name
endfunction
`==================================
function add_sub_sub_menu(pos as string,down as string,name as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
 count(men,men2)=count(men,men2)+1
 names(men,men2,count(men,men2))=name
endfunction

function assm(pos,down,name as string)
 count(pos,down)=count(pos,down)+1
 names(pos,down,count(pos,down))=name
endfunction
`==================================
function check_sub_box(pos as string ,down as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
 check(men,men2,0)=check(men,men2,0)+1
 if check(men,men2,0)>1 then check(men,men2,0)=0
endfunction

function csb(pos,down)
 check(pos,down,0)=check(pos,down,0)+1
 if check(pos,down,0)>1 then check(pos,down,0)=0
endfunction
`==================================
function check_sub_sub_box(pos as string ,down as string,dow as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
for i=1 to count(men,0)
 if names(men,men2,i)=dow then men3=i
next i
 check(men,men2,men3)=check(men,men2,men3)+1
 if check(men,men2,men3)>1 then check(men,men2,men3)=0
endfunction

function cssb(pos,down,dow)
 check(pos,down,dow)=check(pos,down,dow)+1
 if check(pos,down,dow)>1 then check(pos,down,dow)=0
endfunction
`==================================
function run_menu()
 colour(1) : box 0,0,screen width(),21
 colour(2) : line 0,21,screen width(),21
 colour(4) : line 1,22,screen width(),22
  `==\
   mx=mousex()
   my=mousey()
   m2=sel(10)
   mg=mouseclick()
   mc=0
   if m2=0 and mg=1 then mc=1
   sel(10)=mg
  `==/
check=1
if mc=1 then check=0

   if count(0,0)>0
   menux=6
    for i=1 to count(0,0)
     colour(4)
     text menux,2,names(i,0,0)
     line menux-1,15,menux-1+text width(mid$(names(i,0,0),1)),15
     tw=text width(names(i,0,0))
     if mx>(menux-6) and mx<(tw+menux+4) and my>1 and my<18
     if sel(0)>0 then sel(0)=i : sel(3)=menux
      if mc=1 and sel(0)>0
       if sel(0)=i then sel(0)=0 : mc=0 : sel(4)=0
      endif
     if mc=1 then sel(0)=i : check=1 : sel(3)=menux : sel(4)=0
     if sel(0)=0
      colour(3) : line menux-6,1,tw+menux+4,1 : line menux-6,1,menux-6,18
      colour(2) : line menux-6,18,tw+menux+4,18 : line tw+menux+4,1,tw+menux+4,18
     endif
     endif
     if sel(0)>0 and sel(0)=i
      colour(2) : line menux-6,1,tw+menux+4,1 : line menux-6,1,menux-6,18
      colour(3) : line menux-6,18,tw+menux+4,18 : line tw+menux+4,1,tw+menux+4,18
     endif
    menux=menux+12+tw
   next i
  endif

`=============================================================== SUB MENU

  if sel(0)>0
   if count(sel(0),0)>0
    tex2len=0
    for i=1 to count(sel(0),0)
     if text width(names(sel(0),i,0))>tex2len then tex2len=text width(names(sel(0),i,0))
    next i
     boxz(sel(3)-6,19,sel(3)+tex2len+80,19+(20*count(sel(0),0)))
    for i=1 to count(sel(0),0)
      if mx>sel(3)-4 and mx<sel(3)+tex2len+80 and my>19 and my<19+(20*count(sel(0),0)) and mc=1 then check=1
     if mx>sel(3)-4 and mx<(sel(3)+tex2len+78) and my>(1+(20*i)) and my<(19+(20*i))
     if mc=1 and sel(4)=i then mc=0 : sel(4)=0
       if mc=1 then sel(4)=i : sel(5)=tex2len : sel(6)=sel(3)+tex2len+80
     if names(sel(0),i,0)="---"
     else
      colour(2)
      box (sel(3)-4),(1+(20*i)),(sel(3)+tex2len+78),(17+(20*i))
      if mc=1 and count(sel(0),i)=0 then return$=names(sel(0),i,0)
      switch=1
     endif
     endif
    if names(sel(0),i,0)="---"
     colour(2) : line sel(3),i*20+9,sel(3)+tex2len+75,i*20+9
     colour(3) : line sel(3),i*20+10,sel(3)+tex2len+75,i*20+10
    else
     if switch=0
      colour(4)
     else
      colour(5)
     endif
     switch=0
     if count(sel(0),i)>0
      a=(sel(3)+tex2len+70)
      h=2+i*20+6
      dot a,h : dot a-1,h : dot a-2,h : dot a-3,h : dot a-1,h+1 : dot a-1,h-1
      dot a-2,h+1 : dot a-2,h+2 : dot a-2,h-1 : dot a-2,h-2 : dot a-3,h+3
      dot a-3,h-1 : dot a-3,h-2 : dot a-3,h-3 : dot a-3,h+1 : dot a-3,h+2
     endif
      if check(sel(0),i,0)=1
       a=(sel(3)+7)
       h=2+i*20+8
       dot a,h:dot a,h-1:dot a-1,h-1:dot a-1,h-2:dot a-2,h-2:dot a-2,h-3:dot a+3,h-3:dot a+4,h-4
       dot a,h:dot a,h-1:dot a+1,h-1:dot a+1,h-2:dot a+2,h-2:dot a+2,h-3:dot a+3,h-4:dot a+4,h-5
      endif
     text sel(3)+20,2+i*20-1,names(sel(0),i,0)
    endif
    next i
   endif
  endif
`=============================================================== SUB SUB MENU
if count(sel(0),sel(4))>0
 if sel(4)>0
   tex2len=0
  for i=1 to count(sel(0),sel(4))
   if text width(names(sel(0),sel(4),i))>tex2len then tex2len=text width(names(sel(0),sel(4),i))
  next i
    boxz(sel(6),-1+(sel(4))*20,sel(6)+tex2len+80,-1+(sel(4)+count(sel(0),sel(4)))*20)
    if mx>sel(6) and mx<sel(6)+tex2len+80 and my>-1+(sel(4))*20 and my<-1+(sel(4)+count(sel(0),sel(4)))*20 and mc=1 then check=1
 for i=1 to count(sel(0),sel(4))
   colour(4)
  if mx>sel(6) and mx<sel(6)+tex2len+80 and my>-19+(sel(4)+i)*20 and my<-19+(sel(4)+i+1)*20
   colour(2)
   if names(sel(0),sel(4),i)="---"
   else
    box sel(6)+2,-18+(sel(4)+i)*20,sel(6)+tex2len+78,-23+(sel(4)+i+1)*20
    if mc=1 then return$=names(sel(0),sel(4),i)
   endif
   colour(5)
  endif
   if names(sel(0),sel(4),i)="---"
     colour(2) : line sel(6)+5,-18+(sel(4)+i)*20+6,sel(6)+tex2len+75,-18+(sel(4)+i)*20+6
     colour(3) : line sel(6)+5,-18+(sel(4)+i)*20+7,sel(6)+tex2len+75,-18+(sel(4)+i)*20+7
   else
      if check(sel(0),sel(4),i)=1
       a=(sel(6)+7)
       h=-9+(sel(4)+i)*20
       dot a,h:dot a,h-1:dot a-1,h-1:dot a-1,h-2:dot a-2,h-2:dot a-2,h-3:dot a+3,h-3:dot a+4,h-4
       dot a,h:dot a,h-1:dot a+1,h-1:dot a+1,h-2:dot a+2,h-2:dot a+2,h-3:dot a+3,h-4:dot a+4,h-5
      endif
    text sel(6)+20,-18+(sel(4)+i)*20,names(sel(0),sel(4),i)
   endif
 next i
 endif
endif
`============================================================================

if return$=""
else
 check=0
endif
if check=0 then sel(0)=0 : sel(4)=0

endfunction return$
`==================================
function colour(num)
 if num=1 then ink get_colour(4),0
 if num=2 then ink get_colour(16),0
 if num=3 then ink get_colour(20),0
 if num=4 then ink get_colour(21),0
 if num=5 then ink rgb(255,255,255),0
endfunction

function get_colour(num)
  local col as dword
  load dll "user32.dll",1
  col = call dll(1,"GetSysColor", num)
  delete dll 1
  col = rgb(rgbb(col), rgbg(col), rgbr(col))
endfunction col
`==================================
function boxz(x1,y1,x2,y2)

colour(1) : box x1,y1,x2,y2
colour(3) : line x1+1,y1+1,x2-1,y1+1 : line x1+1,y1+1,x1+1,y2-1
colour(2) : line x2-1,y1+1,x2-1,y2-1 : line x1+1,y2-1,x2-1,y2-1
colour(4) : line x2,y1+1,x2,y2-1 : line x1+1,y2,x2-1,y2

endfunction
`==================================

its not fully finished im yet to add, checkboxes and radio buttons and all but they will be done eventually

Back to top

Profile PM Email

MikeS

Retired Moderator

22

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: United States

Posted: 25th Oct 2004 07:39

Link

Hey, that's not bad at all. Very nice.

A book? I hate book. Book is stupid.
(Formerly known as Yellow)

Back to top

Profile PM Email

Antdizzle

21

Years of Service

User Offline

Joined: 6th Mar 2004

Location: Las Vegas

Posted: 25th Oct 2004 08:08

Link

I like it. I would use it if I had something to use it for.

Back to top

Profile PM Email Website

Turoid

21

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 26th Oct 2004 02:15

Link

This is great

nice one dark

Do you need a complete FPS,3rdPS engine

?? Or a collision command libary?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Turoid

21

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 26th Oct 2004 02:29

Link

Hmmmz.. i found a bug

ftp://imtec.afraid.org/bug.jpg

I have this bug also when i do: create > music > a loop.

btw i've changed the colors a bit

Do you need a complete FPS,3rdPS engine

?? Or a collision command libary?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

Attreid

22

Years of Service

User Offline

Joined: 27th Nov 2002

Location:

Posted: 26th Oct 2004 04:34 Edited at: 26th Oct 2004 04:37

Link

that's nice

but I don't understand your "get_colour()" function - it returns always the same thing Oo
(win xp pro)

"He will come...the voice from the outer world,
bringing the holy war, the Jihad, which will cleanse the Universe and bring us out of darkness."

Back to top

Profile PM Email

dark coder

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 26th Oct 2004 09:40 Edited at: 26th Oct 2004 09:42

Link

hmm your image dont load up, and i guess this dont work on xp-pro, but to check out on what your missing out on load up ms paint and play with the menu and you get the jist :p,

[EDIT] my good friend, emperor baal has tested it on win xp pro with no service packs installed and it works good for him.

heres a totally recoded v3 of this menu, this supports dividers and checkboxes.

sync on
make_menu()

add_menu("Long list!")
add_menu("Checkboxes!")

add_sub_menu("Checkboxes!","List 1")
add_sub_menu("Checkboxes!","List 2")
add_sub_menu("Checkboxes!","CHECKME 1!")
add_sub_menu("Checkboxes!","CHECKME 2!")
add_sub_menu("Checkboxes!","CHECKME 3!")
add_sub_menu("Checkboxes!","CHECKME 4!")
add_sub_menu("Checkboxes!","CHECKME 5!")
add_sub_menu("Checkboxes!","CHECKME 6!")
add_sub_menu("Checkboxes!","CHECKME 7!")
add_sub_menu("Checkboxes!","CHECKME 8!")
add_sub_menu("Checkboxes!","CHECKME 9!")

add_sub_sub_menu("Checkboxes!","List 1","CHECK1 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK2 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK3 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK4 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK5 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK6 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK7 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK8 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK9 !")

add_sub_sub_menu("Checkboxes!","List 2","CHECK 1 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 2 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 3 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 4 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 5 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 6 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 7 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 8 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 9 !")

add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")

make object cube 1,1
color backdrop rgb(255,255,255)

do

return$=run_menu()
turn object right 1,1

if return$="CHECKME 1!" then check_sub_box("Checkboxes!","CHECKME 1!")
if return$="CHECKME 2!" then check_sub_box("Checkboxes!","CHECKME 2!")
if return$="CHECKME 3!" then check_sub_box("Checkboxes!","CHECKME 3!")
if return$="CHECKME 4!" then check_sub_box("Checkboxes!","CHECKME 4!")
if return$="CHECKME 5!" then check_sub_box("Checkboxes!","CHECKME 5!")
if return$="CHECKME 6!" then check_sub_box("Checkboxes!","CHECKME 6!")
if return$="CHECKME 7!" then check_sub_box("Checkboxes!","CHECKME 7!")
if return$="CHECKME 8!" then check_sub_box("Checkboxes!","CHECKME 8!")
if return$="CHECKME 9!" then check_sub_box("Checkboxes!","CHECKME 9!")

if return$="CHECK1 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK1 !")
if return$="CHECK2 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK2 !")
if return$="CHECK3 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK3 !")
if return$="CHECK4 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK4 !")
if return$="CHECK5 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK5 !")
if return$="CHECK6 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK6 !")
if return$="CHECK7 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK7 !")
if return$="CHECK8 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK8 !")
if return$="CHECK9 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK9 !")

if return$="CHECK 1 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 1 !")
if return$="CHECK 2 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 2 !")
if return$="CHECK 3 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 3 !")
if return$="CHECK 4 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 4 !")
if return$="CHECK 5 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 5 !")
if return$="CHECK 6 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 6 !")
if return$="CHECK 7 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 7 !")
if return$="CHECK 8 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 8 !")
if return$="CHECK 9 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 9 !")

sync
loop

`==================================
function make_menu()
 dim names(50,50,50) as string
 dim count(50,50)
 dim sel(10)
 dim check(50,50,50)
 set text font "tahoma"
 set text size 15
endfunction
`==================================
function add_menu(name as string)
 count(0,0)=count(0,0)+1
 names(count(0,0),0,0)=name
endfunction
`==================================
function add_sub_menu(pos as string,name as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
 count(men,0)=count(men,0)+1
 names(men,count(men,0),0,0)=name
endfunction

function asm(pos,name as string)
 count(pos,0)=count(men,0)+1
 names(pos,count(pos,0),0,0)=name
endfunction
`==================================
function add_sub_sub_menu(pos as string,down as string,name as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
 count(men,men2)=count(men,men2)+1
 names(men,men2,count(men,men2))=name
endfunction

function assm(pos,down,name as string)
 count(pos,down)=count(pos,down)+1
 names(pos,down,count(pos,down))=name
endfunction
`==================================
function check_sub_box(pos as string ,down as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
 check(men,men2,0)=check(men,men2,0)+1
 if check(men,men2,0)>1 then check(men,men2,0)=0
endfunction

function csb(pos,down)
 check(pos,down,0)=check(pos,down,0)+1
 if check(pos,down,0)>1 then check(pos,down,0)=0
endfunction
`==================================
function check_sub_sub_box(pos as string ,down as string,dow as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
for i=1 to count(men,0)
 if names(men,men2,i)=dow then men3=i
next i
 check(men,men2,men3)=check(men,men2,men3)+1
 if check(men,men2,men3)>1 then check(men,men2,men3)=0
endfunction

function cssb(pos,down,dow)
 check(pos,down,dow)=check(pos,down,dow)+1
 if check(pos,down,dow)>1 then check(pos,down,dow)=0
endfunction
`==================================
function run_menu()
 colour(1) : box 0,0,screen width(),21
 colour(2) : line 0,21,screen width(),21
 colour(4) : line 1,22,screen width(),22
  `==
   mx=mousex()
   my=mousey()
   m2=sel(10)
   mg=mouseclick()
   mc=0
   if m2=0 and mg=1 then mc=1
   sel(10)=mg
  `==/
check=1
if mc=1 then check=0

if count(0,0)>0
   menux=6
    for i=1 to count(0,0)
     colour(4)
     text menux,2,names(i,0,0)
     line menux-1,15,menux-1+text width(mid$(names(i,0,0),1)),15
     tw=text width(names(i,0,0))
     if mx>(menux-6) and mx<(tw+menux+4) and my>1 and my<18
     if sel(0)>0 then sel(0)=i : sel(3)=menux
      if mc=1 and sel(0)>0
       if sel(0)=i then sel(0)=0 : mc=0 : sel(4)=0
      endif
     if mc=1 then sel(0)=i : check=1 : sel(3)=menux : sel(4)=0
     if sel(0)=0
      colour(3) : line menux-6,1,tw+menux+4,1 : line menux-6,1,menux-6,18
      colour(2) : line menux-6,18,tw+menux+4,18 : line tw+menux+4,1,tw+menux+4,18
     endif
     endif
     if sel(0)>0 and sel(0)=i
      colour(2) : line menux-6,1,tw+menux+4,1 : line menux-6,1,menux-6,18
      colour(3) : line menux-6,18,tw+menux+4,18 : line tw+menux+4,1,tw+menux+4,18
     endif
    menux=menux+12+tw
   next i
  endif

`=============================================================== SUB MENU

if sel(0)>0
   if count(sel(0),0)>0
    tex2len=0
    for i=1 to count(sel(0),0)
     if text width(names(sel(0),i,0))>tex2len then tex2len=text width(names(sel(0),i,0))
    next i
     boxz(sel(3)-6,19,sel(3)+tex2len+80,19+(20*count(sel(0),0)))
    for i=1 to count(sel(0),0)
      if mx>sel(3)-4 and mx<sel(3)+tex2len+80 and my>19 and my<19+(20*count(sel(0),0)) and mc=1 then check=1
     if mx>sel(3)-4 and mx<(sel(3)+tex2len+78) and my>(1+(20*i)) and my<(19+(20*i))
     if mc=1 and sel(4)=i then mc=0 : sel(4)=0
       if mc=1 then sel(4)=i : sel(5)=tex2len : sel(6)=sel(3)+tex2len+80
     if names(sel(0),i,0)="---"
     else
      colour(2)
      box (sel(3)-4),(1+(20*i)),(sel(3)+tex2len+78),(17+(20*i))
      if mc=1 and count(sel(0),i)=0 then return$=names(sel(0),i,0)
      switch=1
     endif
     endif
    if names(sel(0),i,0)="---"
     colour(2) : line sel(3),i*20+9,sel(3)+tex2len+75,i*20+9
     colour(3) : line sel(3),i*20+10,sel(3)+tex2len+75,i*20+10
    else
     if switch=0
      colour(4)
     else
      colour(5)
     endif
     switch=0
     if count(sel(0),i)>0
      a=(sel(3)+tex2len+70)
      h=2+i*20+6
      dot a,h : dot a-1,h : dot a-2,h : dot a-3,h : dot a-1,h+1 : dot a-1,h-1
      dot a-2,h+1 : dot a-2,h+2 : dot a-2,h-1 : dot a-2,h-2 : dot a-3,h+3
      dot a-3,h-1 : dot a-3,h-2 : dot a-3,h-3 : dot a-3,h+1 : dot a-3,h+2
     endif
      if check(sel(0),i,0)=1
       a=(sel(3)+7)
       h=2+i*20+8
       dot a,h:dot a,h-1:dot a-1,h-1:dot a-1,h-2:dot a-2,h-2:dot a-2,h-3:dot a+3,h-3:dot a+4,h-4
       dot a,h:dot a,h-1:dot a+1,h-1:dot a+1,h-2:dot a+2,h-2:dot a+2,h-3:dot a+3,h-4:dot a+4,h-5
      endif
     text sel(3)+20,2+i*20-1,names(sel(0),i,0)
    endif
    next i
   endif
  endif
`=============================================================== SUB SUB MENU
if count(sel(0),sel(4))>0
 if sel(4)>0
   tex2len=0
  for i=1 to count(sel(0),sel(4))
   if text width(names(sel(0),sel(4),i))>tex2len then tex2len=text width(names(sel(0),sel(4),i))
  next i
    boxz(sel(6),-1+(sel(4))*20,sel(6)+tex2len+80,-1+(sel(4)+count(sel(0),sel(4)))*20)
    if mx>sel(6) and mx<sel(6)+tex2len+80 and my>-1+(sel(4))*20 and my<-1+(sel(4)+count(sel(0),sel(4)))*20 and mc=1 then check=1
 for i=1 to count(sel(0),sel(4))
   colour(4)
  if mx>sel(6) and mx<sel(6)+tex2len+80 and my>-19+(sel(4)+i)*20 and my<-19+(sel(4)+i+1)*20
   colour(2)
   if names(sel(0),sel(4),i)="---"
   else
    box sel(6)+2,-18+(sel(4)+i)*20,sel(6)+tex2len+78,-23+(sel(4)+i+1)*20
    if mc=1 then return$=names(sel(0),sel(4),i)
   endif
   colour(5)
  endif
   if names(sel(0),sel(4),i)="---"
     colour(2) : line sel(6)+5,-18+(sel(4)+i)*20+6,sel(6)+tex2len+75,-18+(sel(4)+i)*20+6
     colour(3) : line sel(6)+5,-18+(sel(4)+i)*20+7,sel(6)+tex2len+75,-18+(sel(4)+i)*20+7
   else
      if check(sel(0),sel(4),i)=1
       a=(sel(6)+7)
       h=-9+(sel(4)+i)*20
       dot a,h:dot a,h-1:dot a-1,h-1:dot a-1,h-2:dot a-2,h-2:dot a-2,h-3:dot a+3,h-3:dot a+4,h-4
       dot a,h:dot a,h-1:dot a+1,h-1:dot a+1,h-2:dot a+2,h-2:dot a+2,h-3:dot a+3,h-4:dot a+4,h-5
      endif
    text sel(6)+20,-18+(sel(4)+i)*20,names(sel(0),sel(4),i)
   endif
 next i
 endif
endif
`============================================================================

if return$=""
else
 check=0
endif
if check=0 then sel(0)=0 : sel(4)=0

endfunction return$
`==================================
function colour(num)
 if num=1 then ink get_colour(4),0
 if num=2 then ink get_colour(16),0
 if num=3 then ink get_colour(20),0
 if num=4 then ink get_colour(21),0
 if num=5 then ink rgb(255,255,255),0
endfunction

function get_colour(num)
  local col as dword
  load dll "user32.dll",1
  col = call dll(1,"GetSysColor", num)
  delete dll 1
  col = rgb(rgbb(col), rgbg(col), rgbr(col))
endfunction col
`==================================
function boxz(x1,y1,x2,y2)

colour(1) : box x1,y1,x2,y2
colour(3) : line x1+1,y1+1,x2-1,y1+1 : line x1+1,y1+1,x1+1,y2-1
colour(2) : line x2-1,y1+1,x2-1,y2-1 : line x1+1,y2-1,x2-1,y2-1
colour(4) : line x2,y1+1,x2,y2-1 : line x1+1,y2,x2-1,y2

endfunction
`==================================

+ Code Snippet


sync on
make_menu()

add_menu("Long list!")
add_menu("Checkboxes!")

add_sub_menu("Checkboxes!","List 1")
add_sub_menu("Checkboxes!","List 2")
add_sub_menu("Checkboxes!","CHECKME 1!")
add_sub_menu("Checkboxes!","CHECKME 2!")
add_sub_menu("Checkboxes!","CHECKME 3!")
add_sub_menu("Checkboxes!","CHECKME 4!")
add_sub_menu("Checkboxes!","CHECKME 5!")
add_sub_menu("Checkboxes!","CHECKME 6!")
add_sub_menu("Checkboxes!","CHECKME 7!")
add_sub_menu("Checkboxes!","CHECKME 8!")
add_sub_menu("Checkboxes!","CHECKME 9!")

add_sub_sub_menu("Checkboxes!","List 1","CHECK1 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK2 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK3 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK4 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK5 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK6 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK7 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK8 !")
add_sub_sub_menu("Checkboxes!","List 1","CHECK9 !")

add_sub_sub_menu("Checkboxes!","List 2","CHECK 1 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 2 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 3 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 4 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 5 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 6 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 7 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 8 !")
add_sub_sub_menu("Checkboxes!","List 2","CHECK 9 !")

add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","WOOO")
add_sub_menu("Long list!","---")




make object cube 1,1
color backdrop rgb(255,255,255)

do

return$=run_menu()
turn object right 1,1

if return$="CHECKME 1!" then check_sub_box("Checkboxes!","CHECKME 1!")
if return$="CHECKME 2!" then check_sub_box("Checkboxes!","CHECKME 2!")
if return$="CHECKME 3!" then check_sub_box("Checkboxes!","CHECKME 3!")
if return$="CHECKME 4!" then check_sub_box("Checkboxes!","CHECKME 4!")
if return$="CHECKME 5!" then check_sub_box("Checkboxes!","CHECKME 5!")
if return$="CHECKME 6!" then check_sub_box("Checkboxes!","CHECKME 6!")
if return$="CHECKME 7!" then check_sub_box("Checkboxes!","CHECKME 7!")
if return$="CHECKME 8!" then check_sub_box("Checkboxes!","CHECKME 8!")
if return$="CHECKME 9!" then check_sub_box("Checkboxes!","CHECKME 9!")

if return$="CHECK1 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK1 !")
if return$="CHECK2 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK2 !")
if return$="CHECK3 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK3 !")
if return$="CHECK4 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK4 !")
if return$="CHECK5 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK5 !")
if return$="CHECK6 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK6 !")
if return$="CHECK7 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK7 !")
if return$="CHECK8 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK8 !")
if return$="CHECK9 !" then check_sub_sub_box("Checkboxes!","List 1","CHECK9 !")

if return$="CHECK 1 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 1 !")
if return$="CHECK 2 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 2 !")
if return$="CHECK 3 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 3 !")
if return$="CHECK 4 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 4 !")
if return$="CHECK 5 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 5 !")
if return$="CHECK 6 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 6 !")
if return$="CHECK 7 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 7 !")
if return$="CHECK 8 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 8 !")
if return$="CHECK 9 !" then check_sub_sub_box("Checkboxes!","List 2","CHECK 9 !")


sync
loop



`==================================
function make_menu()
 dim names(50,50,50) as string
 dim count(50,50)
 dim sel(10)
 dim check(50,50,50)
 set text font "tahoma"
 set text size 15
endfunction
`==================================
function add_menu(name as string)
 count(0,0)=count(0,0)+1
 names(count(0,0),0,0)=name
endfunction
`==================================
function add_sub_menu(pos as string,name as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
 count(men,0)=count(men,0)+1
 names(men,count(men,0),0,0)=name
endfunction

function asm(pos,name as string)
 count(pos,0)=count(men,0)+1
 names(pos,count(pos,0),0,0)=name
endfunction
`==================================
function add_sub_sub_menu(pos as string,down as string,name as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
 count(men,men2)=count(men,men2)+1
 names(men,men2,count(men,men2))=name
endfunction

function assm(pos,down,name as string)
 count(pos,down)=count(pos,down)+1
 names(pos,down,count(pos,down))=name
endfunction
`==================================
function check_sub_box(pos as string ,down as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
 check(men,men2,0)=check(men,men2,0)+1
 if check(men,men2,0)>1 then check(men,men2,0)=0
endfunction

function csb(pos,down)
 check(pos,down,0)=check(pos,down,0)+1
 if check(pos,down,0)>1 then check(pos,down,0)=0
endfunction
`==================================
function check_sub_sub_box(pos as string ,down as string,dow as string)
for i=1 to count(0,0)
 if names(i,0,0)=pos then men=i
next i
for i=1 to count(men,0)
 if names(men,i,0)=down then men2=i
next i
for i=1 to count(men,0)
 if names(men,men2,i)=dow then men3=i
next i
 check(men,men2,men3)=check(men,men2,men3)+1
 if check(men,men2,men3)>1 then check(men,men2,men3)=0
endfunction

function cssb(pos,down,dow)
 check(pos,down,dow)=check(pos,down,dow)+1
 if check(pos,down,dow)>1 then check(pos,down,dow)=0
endfunction
`==================================
function run_menu()
 colour(1) : box 0,0,screen width(),21
 colour(2) : line 0,21,screen width(),21
 colour(4) : line 1,22,screen width(),22
  `==
   mx=mousex()
   my=mousey()
   m2=sel(10)
   mg=mouseclick()
   mc=0
   if m2=0 and mg=1 then mc=1
   sel(10)=mg
  `==/
check=1
if mc=1 then check=0

   if count(0,0)>0
   menux=6
    for i=1 to count(0,0)
     colour(4)
     text menux,2,names(i,0,0)
     line menux-1,15,menux-1+text width(mid$(names(i,0,0),1)),15
     tw=text width(names(i,0,0))
     if mx>(menux-6) and mx<(tw+menux+4) and my>1 and my<18
     if sel(0)>0 then sel(0)=i : sel(3)=menux
      if mc=1 and sel(0)>0
       if sel(0)=i then sel(0)=0 : mc=0 : sel(4)=0
      endif
     if mc=1 then sel(0)=i : check=1 : sel(3)=menux : sel(4)=0
     if sel(0)=0
      colour(3) : line menux-6,1,tw+menux+4,1 : line menux-6,1,menux-6,18
      colour(2) : line menux-6,18,tw+menux+4,18 : line tw+menux+4,1,tw+menux+4,18
     endif
     endif
     if sel(0)>0 and sel(0)=i
      colour(2) : line menux-6,1,tw+menux+4,1 : line menux-6,1,menux-6,18
      colour(3) : line menux-6,18,tw+menux+4,18 : line tw+menux+4,1,tw+menux+4,18
     endif
    menux=menux+12+tw
   next i
  endif

`=============================================================== SUB MENU

  if sel(0)>0
   if count(sel(0),0)>0
    tex2len=0
    for i=1 to count(sel(0),0)
     if text width(names(sel(0),i,0))>tex2len then tex2len=text width(names(sel(0),i,0))
    next i
     boxz(sel(3)-6,19,sel(3)+tex2len+80,19+(20*count(sel(0),0)))
    for i=1 to count(sel(0),0)
      if mx>sel(3)-4 and mx<sel(3)+tex2len+80 and my>19 and my<19+(20*count(sel(0),0)) and mc=1 then check=1
     if mx>sel(3)-4 and mx<(sel(3)+tex2len+78) and my>(1+(20*i)) and my<(19+(20*i))
     if mc=1 and sel(4)=i then mc=0 : sel(4)=0
       if mc=1 then sel(4)=i : sel(5)=tex2len : sel(6)=sel(3)+tex2len+80
     if names(sel(0),i,0)="---"
     else
      colour(2)
      box (sel(3)-4),(1+(20*i)),(sel(3)+tex2len+78),(17+(20*i))
      if mc=1 and count(sel(0),i)=0 then return$=names(sel(0),i,0)
      switch=1
     endif
     endif
    if names(sel(0),i,0)="---"
     colour(2) : line sel(3),i*20+9,sel(3)+tex2len+75,i*20+9
     colour(3) : line sel(3),i*20+10,sel(3)+tex2len+75,i*20+10
    else
     if switch=0
      colour(4)
     else
      colour(5)
     endif
     switch=0
     if count(sel(0),i)>0
      a=(sel(3)+tex2len+70)
      h=2+i*20+6
      dot a,h : dot a-1,h : dot a-2,h : dot a-3,h : dot a-1,h+1 : dot a-1,h-1
      dot a-2,h+1 : dot a-2,h+2 : dot a-2,h-1 : dot a-2,h-2 : dot a-3,h+3
      dot a-3,h-1 : dot a-3,h-2 : dot a-3,h-3 : dot a-3,h+1 : dot a-3,h+2
     endif
      if check(sel(0),i,0)=1
       a=(sel(3)+7)
       h=2+i*20+8
       dot a,h:dot a,h-1:dot a-1,h-1:dot a-1,h-2:dot a-2,h-2:dot a-2,h-3:dot a+3,h-3:dot a+4,h-4
       dot a,h:dot a,h-1:dot a+1,h-1:dot a+1,h-2:dot a+2,h-2:dot a+2,h-3:dot a+3,h-4:dot a+4,h-5
      endif
     text sel(3)+20,2+i*20-1,names(sel(0),i,0)
    endif
    next i
   endif
  endif
`=============================================================== SUB SUB MENU
if count(sel(0),sel(4))>0
 if sel(4)>0
   tex2len=0
  for i=1 to count(sel(0),sel(4))
   if text width(names(sel(0),sel(4),i))>tex2len then tex2len=text width(names(sel(0),sel(4),i))
  next i
    boxz(sel(6),-1+(sel(4))*20,sel(6)+tex2len+80,-1+(sel(4)+count(sel(0),sel(4)))*20)
    if mx>sel(6) and mx<sel(6)+tex2len+80 and my>-1+(sel(4))*20 and my<-1+(sel(4)+count(sel(0),sel(4)))*20 and mc=1 then check=1
 for i=1 to count(sel(0),sel(4))
   colour(4)
  if mx>sel(6) and mx<sel(6)+tex2len+80 and my>-19+(sel(4)+i)*20 and my<-19+(sel(4)+i+1)*20
   colour(2)
   if names(sel(0),sel(4),i)="---"
   else
    box sel(6)+2,-18+(sel(4)+i)*20,sel(6)+tex2len+78,-23+(sel(4)+i+1)*20
    if mc=1 then return$=names(sel(0),sel(4),i)
   endif
   colour(5)
  endif
   if names(sel(0),sel(4),i)="---"
     colour(2) : line sel(6)+5,-18+(sel(4)+i)*20+6,sel(6)+tex2len+75,-18+(sel(4)+i)*20+6
     colour(3) : line sel(6)+5,-18+(sel(4)+i)*20+7,sel(6)+tex2len+75,-18+(sel(4)+i)*20+7
   else
      if check(sel(0),sel(4),i)=1
       a=(sel(6)+7)
       h=-9+(sel(4)+i)*20
       dot a,h:dot a,h-1:dot a-1,h-1:dot a-1,h-2:dot a-2,h-2:dot a-2,h-3:dot a+3,h-3:dot a+4,h-4
       dot a,h:dot a,h-1:dot a+1,h-1:dot a+1,h-2:dot a+2,h-2:dot a+2,h-3:dot a+3,h-4:dot a+4,h-5
      endif
    text sel(6)+20,-18+(sel(4)+i)*20,names(sel(0),sel(4),i)
   endif
 next i
 endif
endif
`============================================================================

if return$=""
else
 check=0
endif
if check=0 then sel(0)=0 : sel(4)=0

endfunction return$
`==================================
function colour(num)
 if num=1 then ink get_colour(4),0
 if num=2 then ink get_colour(16),0
 if num=3 then ink get_colour(20),0
 if num=4 then ink get_colour(21),0
 if num=5 then ink rgb(255,255,255),0
endfunction

function get_colour(num)
  local col as dword
  load dll "user32.dll",1
  col = call dll(1,"GetSysColor", num)
  delete dll 1
  col = rgb(rgbb(col), rgbg(col), rgbr(col))
endfunction col
`==================================
function boxz(x1,y1,x2,y2)

colour(1) : box x1,y1,x2,y2
colour(3) : line x1+1,y1+1,x2-1,y1+1 : line x1+1,y1+1,x1+1,y2-1
colour(2) : line x2-1,y1+1,x2-1,y2-1 : line x1+1,y2-1,x2-1,y2-1
colour(4) : line x2,y1+1,x2,y2-1 : line x1+1,y2,x2-1,y2

endfunction
`==================================

instead of typing out those long lines for ease you can use numbers if you look in the functions the abbreviated ones ^^.
eg:, asm(pos,name as string), thats add_sub_menu is short,

enjoi,

Back to top

Profile PM Email

Cian Rice

21

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 26th Oct 2004 10:39

Link

What about XP?

There is only one way to package shaolin: Shaolin Soccer...

Back to top

Profile PM Email Website

dark coder

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 26th Oct 2004 21:46

Link

beats me, ah well, it works for emperor baal so i dunno what could be going wrong.

Back to top

Profile PM Email

Turoid

21

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 26th Oct 2004 23:52

Link

This bug.. click download \/

Do you need a complete FPS,3rdPS engine

?? Or a collision command libary?? well here it is:
http://forum.thegamecreators.com/?m=forum_view&t=38869&b=6&p=0

Back to top

Profile PM

PowerSoft

20

Years of Service

User Offline

Joined: 10th Oct 2004

Location: United Kingdom

Posted: 27th Oct 2004 01:47

Link

Dark can i add this to the scripting engine?

Create? Play? YOU Decide

Back to top

Profile PM Email Website

Cian Rice

21

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 27th Oct 2004 04:41

Link

Sorry I wasn't clear. No bugs at all, I meant what about an XP style? That looks alot like 2000 down, you know what I mean, but it's nice though.

There is only one way to package shaolin: Shaolin Soccer...

Back to top

Profile PM Email Website

dark coder

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 27th Oct 2004 07:07

Link

yea sure use it in whatever just try to slip my name in somewhere :p,

and as for xp sylyles i see what you mean like buttons and all, but that is simple more hassle for an os i dont have, either way this was only something to burn time im not gonna try to replicate every single windows thing as that would be impractical making it in dbp.

anywho glad you like it

Back to top

Profile PM Email

Cian Rice

21

Years of Service

User Offline

Joined: 8th Jun 2004

Location:

Posted: 2nd Nov 2004 05:54

Link

Two things,
Can I use this in MY editor?
and, how come if I just change the names for the Long list Check boxes I can't get the drop down menus anymore? Because I want to change them.

There is only one way to package shaolin: Shaolin Soccer...

Back to top

Profile PM Email Website

dark coder

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 10th Nov 2004 07:38

Link

yes everyone can use it on whatever just stop asking :p, and as for renaming the checkboxes, there are 2 methods of adding new drop downs, either specify the direct "filename i guess you could call it, or you can do it numbers wise, so file would be 1, and edit 2 etc etc, depending on your order of creating them, if you were to rename a dropdown or sub dropdown then the sub sub dropdows there filenames wouldent exist thus they wouldent dropdown, i used the long filenames as a quick and easy example with minimal confusion of having loads of numbers like, add_sub_sub_drop(3,2,1,"hello"), wouldent make much sence to many people.

Back to top

Profile PM Email

NinJA99

20

Years of Service

User Offline

Joined: 21st Jan 2005

Location: Windham, NH

Posted: 21st Jan 2005 07:19

Link

You said it was for DBP...any possibility you could make it for DBC? That'd be so cool!

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / Windows style menu