home *** CD-ROM | disk | FTP | other *** search
/ Divinita Greche E Romane / MYTH.iso / INTRO.DIR / 00059_Script_59 < prev    next >
Text File  |  1996-06-12  |  1KB  |  54 lines
  1. on SventolaBandiereLingua
  2.   global gband,gCBand,gUL
  3.   if rollOver(3)=1 then
  4.     if gUL<>"ENG" then
  5.       put "ENG" into gUL
  6.       put 68 into gBand
  7.       put 71 into gCBand
  8.     end if
  9.   else 
  10.     if rollOver(5)=1 then
  11.       if gUL<>"ITA" then
  12.         put "ITA" into gUL
  13.         put 60 into gBand
  14.         put 63 into gCBand
  15.       end if
  16.     else 
  17.       if rollOver(7)=1 then
  18.         if gUL<>"FRA" then
  19.           put "FRA" into gUL
  20.           put 64 into gBand
  21.           put 67 into gCBand
  22.         end if
  23.       else 
  24.         if rollOver(6)=1 then
  25.           if gUL<>"DEU" then
  26.             put "DEU" into gUL
  27.             put 72 into gBand
  28.             put 75 into gCBand
  29.           end if
  30.         else 
  31.           if rollOver(4)=1 then
  32.             if gUL<>"ESP" then
  33.               put "ESP" into gUL
  34.               put 76 into gBand
  35.               put 79 into gCBand
  36.             end if
  37.           else
  38.             if gUL<>"BIA" then
  39.               put "BIA" into gUL
  40.               put 80 into gBand
  41.               put 83 into gCBand
  42.             end if
  43.           end if
  44.         end if
  45.       end if
  46.     end if
  47.   end if
  48.   put gBand+1 into gBand
  49.   if gBand>gCBand then
  50.     put gCBand-3 into gBand
  51.   end if
  52.   puppetSprite 8,true
  53.   set the castNum of sprite 8 to gBand
  54. end