Numéro d'objet survolé par la souris.

label moveForm, movePicture, movePanel
dim moveObjet%,

panel 12 : top 12,20 : left 12,20 : width 12,400 : height 12,300
picture 27 : parent 27,12 : top 27,20 : left 27,20 : width 27,300 : height 27,200

on_mouse_move 0,moveForm
on_mouse_move 12,movePanel
on_mouse_move 27,movePicture

moveObjet% = 0
end

moveForm:
  if moveObjet%=0 then return
  moveObjet% = 0
  ' ici, traiter "move sur form 0"
  return
     
movePanel:
  if moveObjet%=12 then return
  moveObjet% = 12
  ' ici, traiter "move sur panel 12"
  return
             
movePicture:
  if moveObjet%=27 then return
  moveObjet% = 27
  ' ici, traiter "move sur picture 27"
  return

dim i%, k%, moveObjet%, n%

label moveScene3D_4001, moveScene3D_4002, moveScene3D_4003, moveScene3D_4004, moveScene3D_4005, moveScene3D_4006, moveScene3D_4007
label moveScene3D_4008, moveScene3D_4009, moveScene3D_4010, moveScene3D_4011, moveScene3D_4012

maximize 0

create_hide
moveObjet%=0
for k%=4001 to 4012
    scene3d k%
    color k%,0,0,160
    
    if k%<4006
       left k%,screen_x/2-350+(k%-4000)*150
       top k%,300
    end_if
    if k%>4005 and k%<4011
       left k%,screen_x/2-350+(k%-4005)*150
       top k%,450
    end_if
    if k%>4010
       left k%,screen_x/2-350+(k%-4010)*150
       top k%,600
    end_if
    width k%,100
    height k%,100
    hint k%,"Test"
    3d_target_is k%
    3d_cube k%+20,1
    3d_load_texture k%+20,"images"+trim$(mid$("chef_etab    enseignant   eleves3      vocabulaire4 traduire9    bibliotheque espagne1     options      sites        vacances1    semainier1   formation1   ",(k%-4000)*13-12,12))+".jpg"
next k%
create_show

for k%=4001 to 4012:show k%:next k%
 
on_mouse_move 4001,moveScene3D_4001
on_mouse_move 4002,moveScene3D_4002
on_mouse_move 4003,moveScene3D_4003
on_mouse_move 4004,moveScene3D_4004
on_mouse_move 4005,moveScene3D_4005
on_mouse_move 4006,moveScene3D_4006
on_mouse_move 4007,moveScene3D_4007
on_mouse_move 4008,moveScene3D_4008
on_mouse_move 4009,moveScene3D_4009
on_mouse_move 4010,moveScene3D_4010
on_mouse_move 4011,moveScene3D_4011
on_mouse_move 4012,moveScene3D_4012

end                          

sub survol()
    moveObjet%=n%
    caption 0,"Objet "+str$(n%)+"."
    for k%=4001 to 4012:color k%,0,0,160:next k%
    color n%,255,0,0
end_sub

moveScene3D_4001:
  n%=4001
  if moveObjet%<>n% then survol()
return

moveScene3D_4002:
  n%=4002
  if moveObjet%<>n% then survol()
return

moveScene3D_4003:
  n%=4003
  if moveObjet%<>n% then survol()
return

moveScene3D_4004:
  n%=4004
  if moveObjet%<>n% then survol()
return

moveScene3D_4005:
  n%=4005
  if moveObjet%<>n% then survol()
return

moveScene3D_4006:
  n%=4006
  if moveObjet%<>n% then survol()
return

moveScene3D_4007:
  n%=4007
  if moveObjet%<>n% then survol()
return

moveScene3D_4008:
  n%=4008
  if moveObjet%<>n% then survol()
return

moveScene3D_4009:
  n%=4009
  if moveObjet%<>n% then survol()
return

moveScene3D_4010:
  n%=4010
  if moveObjet%<>n% then survol()
return

moveScene3D_4011:
  n%=4011
  if moveObjet%<>n% then survol()
return

moveScene3D_4012:
  n%=4012
  if moveObjet%<>n% then survol()
return