home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 41 / MOBICLIC41.ISO / pc / Data / PROM / PAN02_2.DIR / 00012_Script_12 < prev    next >
Text File  |  2001-09-07  |  425b  |  24 lines
  1. -- boucle et roll
  2. global gListeCom, gChoixDevise
  3.  
  4. on exitFrame  
  5.   if the pauseState=0 then
  6.     if soundBusy(3)=0 then
  7.       niveauSon
  8.     end if
  9.     if count(gListeCom) <> 0 then    
  10.       glisserSurC 4,4,1
  11.     end if 
  12.     choixDevise
  13.     go to the frame
  14.   end if 
  15. end
  16.  
  17. on choixDevise
  18.   if member("ChoixFrancs").hilite = 1 then
  19.     gChoixDevise = #Francs
  20.   else
  21.     gChoixDevise = #Euros
  22.   end if
  23. end
  24.