home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / secoli.dir / 00105_Script_XVI_Rol < prev    next >
Text File  |  1987-04-11  |  1KB  |  47 lines
  1. on exitframe
  2.   put the top of sprite 2 into T
  3.   put the bottom of sprite 3 into U
  4.   put the height of cast (the castNum of sprite 2) into H
  5.   put 1+(the top of sprite 4)-H into D
  6.   puppetSprite 2,1
  7.   puppetSprite 39,1
  8.   puppetSprite 40,1
  9.   if T <= D then
  10.     put D into T
  11.     set the locH of sprite 39 = 226
  12.     set the locH of sprite 40 = 9000
  13.   else if T >= U then
  14.     put U into T
  15.     set the locH of sprite 39 = 9000
  16.     set the locH of sprite 40 = 226
  17.   else
  18.     set the locH of sprite 39 = 226
  19.     set the locH of sprite 40 = 226
  20.   end if
  21.   set the locV of sprite 2 = T
  22.   cursore
  23.   if rollover(2) then
  24.     put the mouseWord into MW
  25.     put the castNum of sprite 2 into MC
  26.     put word MW of field MC into SS
  27.     if SS="MonaáLisΩ," then
  28.       nRsec MW, 21, "F_Sx_AB.pic" 
  29.     else if SS="LucasáCranach,"then
  30.       nRsec MW, 22, "F_Dx_AB.pic", 1
  31.     else if SS="Rafael" then
  32.       nRsec MW, 23, "F_Dx_AB.pic" 
  33.     else if SS="SebastianoádeláPiombo," then
  34.       nRsec MW, 24, "F_Dx_AB.pic", 1
  35.     else if SS="KaroláV." then
  36.       nRsec MW, 25, "F_Sx_AB.pic", 1
  37.     else if SS="KaplicyáSyksty±skiej." then
  38.       nRsec MW, 26, "F_Dx_AB.pic" 
  39.     else if SS="Bachusa" then
  40.       nRsec MW, 27, "F_Dx_AB.pic", 1
  41.     end if
  42.   end if
  43.   
  44.   go the frame
  45. end
  46.  
  47.