home *** CD-ROM | disk | FTP | other *** search
/ Jommeke / Jommeke.iso / movies / menu.dir / 00064_Script_64 < prev    next >
Text File  |  2000-02-23  |  3KB  |  132 lines
  1. on startMovie
  2.   --  puppetsound 1,"tune"
  3.   initglobals
  4.   initscorefile
  5.   
  6.   
  7. end
  8.  
  9. on linkjump
  10.   --  sound fadeOut 1,300
  11.   
  12.   global userclick,gamenames,hotspotbase,gameno
  13.   put userclick-hotspotbase+1 into gameno
  14.   
  15.   if gameno<4 then
  16.     put "link"&string(gameno) into gamenamestring
  17.     go to movie gamenamestring
  18.   else
  19.     go to movie "hiscore"
  20.   end if
  21.   
  22. end
  23.  
  24.  
  25. on initglobals
  26.   global taglocs,tagbase,hotspotbase,gamenames
  27.   set gamenames=["maze","spotdiff","pairs","hiscore"]
  28.   put 8 into tagbase
  29.   put 15 into  hotspotbase
  30.   
  31.   set taglocs=[[98, 211], [557, 54], [37, 449], [447, 204], [362, 431], [277, 444], [574,¼ 133], [521, 412], [202, 390], [185, 88]]
  32. end
  33.  
  34.  
  35. on checkrollovers
  36.   global hotspotbase,taglocs
  37.   
  38.   put 0 into overtag
  39.   repeat with n=1 to 10
  40.     put hotspotbase+n-1 into tch
  41.     
  42.     if rollover (tch)=true then
  43.       
  44.       showtag (n)
  45.       put 1 into overtag
  46.     end if
  47.   end repeat
  48.   if overtag=false then
  49.     hidetag
  50.   end if
  51.   
  52.   
  53. end
  54. on showtag n
  55.   global tagbase,taglocs
  56.   put getat(taglocs,n) into tagxy
  57.   put getat(tagxy,1) into tx
  58.   put getat(tagxy,2) into ty
  59.   put tagbase into tch
  60. --    puppetsound 2,"over"
  61.   
  62.   set the membernum of sprite  tch to n
  63.   set the loch of sprite  tch to 220
  64.   set the locv of sprite  tch to 80
  65.   
  66.   set the visible of sprite  tch to true
  67. end
  68.  
  69. on hidetag
  70.   global tagbase
  71.   set the visible of sprite  tagbase to false
  72. end
  73.  
  74.  
  75.  
  76.  
  77. on getlocs
  78.   global parrotlocs
  79.   set parrotlocs=[]
  80.   set templist=[]
  81.   put 3 into basech
  82.   repeat with n=1 to 10
  83.     set templist=[]
  84.     put basech+n-1 into tch
  85.     put the loch of sprite tch into xx
  86.     put the locv of sprite tch into yy
  87.     --    put the membernum of sprite tch into mm
  88.     append templist,xx
  89.     append templist yy
  90.     --    append templist mm
  91.     append parrotlocs,templist
  92.     
  93.   end repeat
  94.   put parrotlocs
  95.   
  96. end
  97.  
  98. on setupsprites
  99.   put "sssssssssssssssssss"
  100.   global tagbase
  101.   puppetsprite tagbase,true
  102.   
  103.   
  104. end
  105.  
  106.  
  107. on action
  108.   case the rollOver of
  109.     14: set the memberNum of sprite 14 to 4
  110.     15: set the memberNum of sprite 15 to 5
  111.     16: set the memberNum of sprite 15 to 1
  112.     17: set the memberNum of sprite 17 to 7
  113.     18: set the memberNum of sprite 18 to 10
  114.       
  115.       
  116.       
  117.       
  118.       
  119.     otherwise cleanUp
  120.   end case
  121. end action
  122.  
  123. on cleanUp
  124.   
  125.   set the memberNum of sprite 14 to 14
  126.   set the memberNum of sprite 15 to 14
  127.   set the memberNum of sprite 15 to 15
  128.   set the memberNum of sprite 17 to 17
  129.   set the memberNum of sprite 18 to 18
  130.   
  131. end cleanUp
  132.