home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 39 / Creative-Review-CD-ROM-39.iso / pc / pres / cr.dir / 00038_Script_38 < prev    next >
Text File  |  1998-07-10  |  3KB  |  136 lines
  1. on home2 
  2.   
  3.   set gspritelist = [55,56,57,58,59,54]
  4.   
  5.   repeat with a = 1 to 6
  6.     
  7.     set endHPos = getat (ghorizlist, a)
  8.     set endVPos = getat (gvertlist, a)
  9.     
  10.     set startHPos = the locH of sprite getat (gspritelist, a)
  11.     set startVPos = the locV of sprite getat (gspritelist, a)
  12.     
  13.     
  14.     set difH = (startHPos - endHPos)
  15.     set difV = (startVPos - endVPos)
  16.     
  17.     set the loch of sprite getat (gspritelist, a) to ((startHPos - (difH / 10)))
  18.     set the locV of sprite getat (gspritelist, a) to ((startVPos - (difV / 10)))
  19.     
  20.     updatestage
  21.     
  22.   end repeat
  23.   
  24.   set the loch of sprite 13 to 700
  25.   
  26. end
  27.  
  28.  
  29. on home3 
  30.   
  31.   set gspritelist = [56,57,58,59,54,55]
  32.   
  33.   repeat with a = 1 to 6
  34.     
  35.     set endHPos = getat (ghorizlist, a)
  36.     set endVPos = getat (gvertlist, a)
  37.     
  38.     set startHPos = the locH of sprite getat (gspritelist, a)
  39.     set startVPos = the locV of sprite getat (gspritelist, a)
  40.     
  41.     
  42.     set difH = (startHPos - endHPos)
  43.     set difV = (startVPos - endVPos)
  44.     
  45.     set the loch of sprite getat (gspritelist, a) to ((startHPos - (difH / 10)))
  46.     set the locV of sprite getat (gspritelist, a) to ((startVPos - (difV / 10)))
  47.     
  48.     updatestage
  49.     
  50.   end repeat
  51.   
  52.   set the loch of sprite 13 to 700
  53.   
  54. end
  55.  
  56. on home4 
  57.   
  58.   set gspritelist = [57,58,59,54,55,56]
  59.   
  60.   repeat with a = 1 to 6
  61.     
  62.     set endHPos = getat (ghorizlist, a)
  63.     set endVPos = getat (gvertlist, a)
  64.     
  65.     set startHPos = the locH of sprite getat (gspritelist, a)
  66.     set startVPos = the locV of sprite getat (gspritelist, a)
  67.     
  68.     
  69.     set difH = (startHPos - endHPos)
  70.     set difV = (startVPos - endVPos)
  71.     
  72.     set the loch of sprite getat (gspritelist, a) to ((startHPos - (difH / 10)))
  73.     set the locV of sprite getat (gspritelist, a) to ((startVPos - (difV / 10)))
  74.     
  75.     updatestage
  76.     
  77.   end repeat
  78.   
  79.   set the loch of sprite 13 to 700
  80.   
  81. end
  82.  
  83. on home5
  84.   
  85.   set gspritelist = [58,59,54,55,56,57]
  86.   
  87.   repeat with a = 1 to 6
  88.     
  89.     set endHPos = getat (ghorizlist, a)
  90.     set endVPos = getat (gvertlist, a)
  91.     
  92.     set startHPos = the locH of sprite getat (gspritelist, a)
  93.     set startVPos = the locV of sprite getat (gspritelist, a)
  94.     
  95.     
  96.     set difH = (startHPos - endHPos)
  97.     set difV = (startVPos - endVPos)
  98.     
  99.     set the loch of sprite getat (gspritelist, a) to ((startHPos - (difH / 10)))
  100.     set the locV of sprite getat (gspritelist, a) to ((startVPos - (difV / 10)))
  101.     
  102.     updatestage
  103.     
  104.   end repeat
  105.   
  106.   set the loch of sprite 13 to 700
  107.   
  108. end
  109.  
  110.  
  111. on home6
  112.   
  113.   set gspritelist = [59,54,55,56,57,58]
  114.   
  115.   repeat with a = 1 to 6
  116.     
  117.     set endHPos = getat (ghorizlist, a)
  118.     set endVPos = getat (gvertlist, a)
  119.     
  120.     set startHPos = the locH of sprite getat (gspritelist, a)
  121.     set startVPos = the locV of sprite getat (gspritelist, a)
  122.     
  123.     
  124.     set difH = (startHPos - endHPos)
  125.     set difV = (startVPos - endVPos)
  126.     
  127.     set the loch of sprite getat (gspritelist, a) to ((startHPos - (difH / 10)))
  128.     set the locV of sprite getat (gspritelist, a) to ((startVPos - (difV / 10)))
  129.     
  130.     updatestage
  131.     
  132.   end repeat
  133.   
  134.   set the loch of sprite 13 to 700
  135.   
  136. end