home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / makers / random.dir / 00053_Script_53 < prev    next >
Text File  |  1996-03-11  |  3KB  |  113 lines
  1. on startMovie
  2.   global Choose,Flag,MoveOrange,ChangePict
  3.   
  4.   
  5.   put FALSE into Choose
  6.   put 1 into Flag
  7.   put 1 into MoveOrange
  8.   put 1 into ChangePict
  9.   put " " into field "namesText"
  10.   put EMPTY into field "numfield"
  11.   preLoadCast 14, 36
  12.   preLoadCast 56, 83
  13. end
  14.  
  15. on changeCasts
  16.   global Flag,MoveOrange,ChangePict
  17.   
  18.   set the castNum of sprite 11 to (random(7) + 6)
  19.   if the castNum of sprite 14 < 67 then set the castNum of sprite 14 to (the number of cast the castNum of sprite 14) + 1
  20.   else set the castNum of sprite 14 to 56
  21.   if the castNum of sprite 15 < 67 then set the castNum of sprite 15 to (the number of cast the castNum of sprite 15) + 1
  22.   else set the castNum of sprite 15 to 56
  23.   
  24.   if Flag = 1 then
  25.     if the castNum of sprite 12 < 36 then
  26.       set the castNum of sprite 12 to (the number of cast the castNum of sprite 12) + 1
  27.     else
  28.       put 0 into Flag
  29.     end if
  30.   else
  31.     if the castNum of sprite 12 > 14 then
  32.       set the castNum of sprite 12 to (the number of cast the castNum of sprite 12) - 1
  33.     else
  34.       put 1 into Flag
  35.     end if
  36.   end if
  37.   set the castNum of sprite 13 to the number of cast (the castNum of sprite 12)
  38.   
  39.   if MoveOrange = 1 then
  40.     if the castNum of sprite 2 < 83 then set the castNum of sprite 2 to the castNum of sprite 2 + 1
  41.     else set the castNum of sprite 2 to 68
  42.     put 0 into MoveOrange
  43.   else
  44.     put 1 into MoveOrange
  45.   end if
  46.   
  47.   if ChangePict = 30 then
  48.     set the castNum of sprite 3 to random(183) + 84
  49.     put 0 into ChangePict
  50.   else
  51.     put ChangePict + 1 into ChangePict
  52.   end if
  53.   updateStage
  54. end
  55.  
  56. on rollOvers
  57.   if rollOver(7) then
  58.     roll 7
  59.   else
  60.     unRoll 7
  61.   end if
  62.   --  if rollOver(8) then
  63.   --    roll 8
  64.   --    unRoll 7
  65.   --  else
  66.   --    unRoll 8
  67.   --  end if
  68.   if rollOver(9) then
  69.     roll 9
  70.     unRoll 7
  71.   else
  72.     unRoll 9
  73.   end if
  74.   if rollOver(10) then
  75.     roll 10
  76.   else
  77.     unRoll 10
  78.   end if
  79.   updateStage
  80. end
  81.  
  82. on roll theRoll
  83.   if not(the name of cast the castNum of sprite theRoll contains "down") then
  84.     set the castNum of sprite theRoll to (the castNum of sprite theRoll) + 1
  85.   end if
  86. end
  87.  
  88. on unRoll theRoll
  89.   if the name of cast the castNum of sprite theRoll contains "down" then
  90.     set the castNum of sprite theRoll to (the castNum of sprite theRoll) - 1
  91.   end if
  92. end
  93.  
  94. on GoDatabase num
  95.   global gMakerNum,ItemDel
  96.   
  97.   put "body,power,discover,senses,mind,design" into temp
  98.   set name = word (the number of words of the name of cast num) of the name of cast num
  99.   
  100.   set num = bsearch(name,"numList")
  101.   set num2 = item 2 of line num of field "numList"
  102.   set file = value(item 3 of line num of field "numList")
  103.   set gMakerNum = num2
  104.   put string("MAKERS"&ItemDel&"DATABASE"&ItemDel&string(item file of temp&".dir"))
  105.   go to frame "database" of movie string("MAKERS"&ItemDel&"DATABASE"&ItemDel&string(item file of temp&".dir"))
  106. end
  107.  
  108. on disposeRearWindow
  109.   global rwObj
  110.   if the machineType <> 256 then
  111.     if objectP( rwObj ) then rwObj( mDispose )
  112.   end if
  113. end