home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / secoli.dir / 00107_Script_XVIII_Rol < prev    next >
Text File  |  1987-04-11  |  1KB  |  44 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="OdjazdánaáCyterΩ"then
  28.       nRsec MW, 21, "F_Sx_AB.pic" 
  29.     else if SS="Canaletto," then
  30.       nRsec MW, 22, "F_Dx_BA.pic", 1
  31.     else if SS="martweánatury" then
  32.       nRsec MW, 23, "F_Sx_AB.pic", 1
  33.     else if SS="HistoriΩásztukiástaro┐ytnej" then
  34.       nRsec MW, 24, "F_Dx_AB.pic" 
  35.     else if SS="PrzysiΩgΩáHoracjusz≤w" then
  36.       nRsec MW, 25, "F_Sx_AB.pic" 
  37.     else if SS="RewolucjaáFrancuska." then
  38.       nRsec MW, 26, "F_Dx_AB.pic" 
  39.     end if
  40.   end if
  41.   go the frame
  42. end
  43.  
  44.