home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 51 / Mobiclic51.iso / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00265_Script_GESTION_PISTE_CADEAUX_CYBER < prev    next >
Text File  |  2003-01-30  |  699b  |  24 lines
  1. global gL_cyberkados, gpiste_cyberkados, g_shortcybername, gNb_kados, gL_dirs_a_kados
  2. property pdizspriteNo, pNo_kado
  3. ---------------------
  4. on beginSprite me
  5.   pdizspriteNo = me.spriteNum
  6.   pdizsprite = sprite(pdizspriteNo)
  7.   if VoidP(gL_cyberkados) then init_cyberkados()
  8.   repeat with i = 1 to gNb_kados
  9.     if gL_dirs_a_kados[i] = g_shortcybername then
  10.       temp = i
  11.       exit repeat 
  12.     end if
  13.   end repeat
  14.   pNo_kado = i
  15.   if gL_cyberkados[pNo_kado] = 1 then turndizStuff_mob(pdizspriteNo, "OFF")
  16. end
  17. ----------------
  18. on mouseUp me
  19.   turndizStuff_mob(pdizspriteNo, "OFF")
  20.   updateStage
  21.   gL_cyberkados[pNo_kado] = 1
  22.   jingle(2,"succes_kado", "OUT")
  23. end 
  24. --------------