home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / CREDITS.DIR / 00080_Script_80 < prev    next >
Text File  |  1997-09-27  |  2KB  |  55 lines
  1. on controlla cr
  2.   if char cr of field 10="a" and char cr-1 of field 10 ="r" and char cr+1 of field 10 = "o" and the key ="@" then
  3.     if the machinetype = 256 then
  4.       set rr to (char 1 of the moviepath&":\scienze\animali\regno\rollidi.mov")
  5.     else
  6.       set rr to ("scienze:scienze:animali:regno:rollidi.mov")
  7.     end if
  8.     sound playfile 1, rr
  9.   end if
  10.   
  11.   if char cr of field 10="n" and char cr-1 of field 10 ="a" and char cr+1 of field 10 = " " and the key ="@" then
  12.     if the machinetype = 256 then
  13.       set rr to (char 1 of the moviepath&":\scienze\animali\regno\intridi.mov")
  14.     else
  15.       set rr to ("scienze:scienze:animali:regno:intridi.mov")
  16.     end if
  17.     sound playfile 1, rr
  18.     set the castnum of sprite 48 to 1185
  19.     updatestage
  20.     set the visible of sprite 48 to true
  21.   end if
  22.   
  23.   
  24.   if char cr of field 10="l" and char cr-1 of field 10 ="l" and char cr+1 of field 10 = "a" and the key ="@" then
  25.     if the machinetype = 256 then
  26.       set rr to (char 1 of the moviepath&":\scienze\animali\regno\intridi.mov")
  27.     else
  28.       set rr to ("scienze:scienze:animali:regno:intridi.mov")
  29.     end if
  30.     sound playfile 1, rr
  31.     set the castnum of sprite 48 to 1185
  32.     updatestage
  33.     set the visible of sprite 48 to true
  34.     
  35.   end if
  36.   
  37.   if char cr of field 10=" " and char cr-1 of field 10 ="i" and char cr+1 of field 10 = "r" and the key ="@" then
  38.     if the machinetype = 256 then
  39.       set rr to (char 1 of the moviepath&":\scienze\animali\regno\achelidi.mov")
  40.     else
  41.       set rr to ("scienze:scienze:animali:regno:achelidi.mov")
  42.     end if
  43.     sound playfile 1, rr
  44.   end if
  45.   
  46.   if char cr of field 10="r" and char cr-1 of field 10 ="a" and char cr+1 of field 10 = "a" and the key ="@" then
  47.     set the locv of sprite 47 to 32
  48.     set the loch of sprite 47 to 615
  49.     set the visible of sprite 47 to true
  50.     updatestage
  51.     --    repeat with a = 648 
  52.   end if
  53.   
  54. end 
  55.