home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / style.dir / 00004_Script_4 < prev    next >
Text File  |  1997-08-08  |  3KB  |  111 lines
  1. -- scroll
  2.  
  3. global gScrollList
  4. global gScrollHeight
  5. global gClickedChan
  6. global gClickedV
  7.  
  8.  
  9.  
  10. on hinitscroll
  11.   
  12.   puppetsprite 24,true
  13.   
  14.   
  15.   set   gScrollList = []
  16.   
  17.   repeat with a = 2 to the number of lines in field "scroll data"
  18.     set currentlist = [:]
  19.     addprop currentlist , #chan1 , the value of word 1 of line a of field "scroll data"
  20.     addprop currentlist , #chan2 , the value of word 2 of line a of field "scroll data"
  21.     addprop currentlist , #cast1 , the value of word 3 of line a of field "scroll data"
  22.     addprop currentlist , #cast2 , the value of word 4 of line a of field "scroll data"
  23.     addprop currentlist , #Inc , the value of word 5 of line a of field "scroll data"
  24.     
  25.     add gScrollList currentlist
  26.   end repeat
  27.   
  28.   repeat with a = 1 to count (gScrollList)
  29.     set currentList = getat (gScrollList,a)
  30.     
  31.     set Thechan1 = the chan1 of currentList
  32.     set Thechan2 = the chan2 of currentList
  33.     set Thecast1 = the cast1 of currentList
  34.     set Thecast2 = the cast2 of currentList
  35.     
  36.     puppetsprite Thechan1,true
  37.     puppetsprite Thechan2,true
  38.     
  39.     set the loch of sprite Thechan2 to the loch of sprite Thechan1
  40.     
  41.     
  42.     set the locv of sprite Thechan2 to the locv of sprite Thechan1 + ¼
  43.  the height of member Thecast1
  44.     
  45.     
  46.     set the castNum of sprite Thechan1 to Thecast1
  47.       set the castNum of sprite Thechan2 to Thecast2
  48.     
  49.     
  50.   end repeat
  51.   
  52.   set gScrollHeight = the height of member Thecast1
  53.   
  54. end
  55.  
  56.  
  57. on hupdatescroll
  58.   
  59.   
  60.   
  61.   
  62.   set vinc = -(the mousev - 240)
  63.   
  64.   
  65.   
  66.   repeat with a = 1 to count (gScrollList)
  67.     set currentList = getat (gScrollList,a)
  68.     
  69.     
  70.     
  71.     set Thechan1 = the chan1 of currentList
  72.     set Thechan2 = the chan2 of currentList
  73.     set TheVinc = the Inc of currentList
  74.     
  75.     set  TheVinc = vinc / TheVinc
  76.     
  77.     
  78.     set the locv of sprite Thechan1 to  the locv of sprite Thechan1 + TheVinc
  79.     
  80.     set the locv of sprite Thechan2 to  the locv of sprite Thechan2 + TheVinc
  81.     
  82.     
  83.     if the locv of sprite Thechan1 > 480 + (gScrollHeight/2) then
  84.       set the locv of sprite Thechan1 to the locv of sprite Thechan2 - gScrollHeight
  85.     end if
  86.     
  87.     if the locv of sprite Thechan2 > 480 + (gScrollHeight/2) then
  88.       set the locv of sprite Thechan2 to the locv of sprite Thechan1 - gScrollHeight
  89.     end if
  90.     
  91.     
  92.     if the locv of sprite Thechan1 < 0 - (gScrollHeight/2) then
  93.       set the locv of sprite Thechan1 to the locv of sprite Thechan2 + gScrollHeight
  94.     end if
  95.     
  96.     if the locv of sprite Thechan2 < 0 - (gScrollHeight/2) then
  97.       set the locv of sprite Thechan2 to the locv of sprite Thechan1 + gScrollHeight
  98.     end if
  99.     
  100.     
  101.     
  102.   end repeat
  103.   
  104.   
  105.   --  if voidp (gClickedV) = 0 then
  106.   --    set the locv of sprite 24 to the locv of sprite gClickedChan + gClickedV
  107.   --  end if
  108.   --  
  109.   
  110. end
  111.