home *** CD-ROM | disk | FTP | other *** search
/ 1&1 Multimedia Trend 1996 11 B / MM_TREND.ISO / prog / basics / service.dir / 00052.ls < prev    next >
Encoding:
Text File  |  1996-09-16  |  1.4 KB  |  63 lines
  1. on cursorform var1, var2
  2.   if var1 <> 0 then
  3.     repeat with dummy = 0 to var1 - 1
  4.       set the cursor of sprite (4 + (dummy * 2) - 1) to [500, 501]
  5.     end repeat
  6.   end if
  7.   if var2 <> 0 then
  8.     repeat with dummy = 0 to var2 - 1
  9.       set the cursor of sprite (30 + dummy) to [500, 501]
  10.     end repeat
  11.   end if
  12. end
  13.  
  14. on cursorform2 var1
  15.   if var1 <> 0 then
  16.     repeat with dummy = 0 to var1 - 1
  17.       set the cursor of sprite (2 + dummy) to [500, 501]
  18.     end repeat
  19.   end if
  20. end
  21.  
  22. on cursorLEISTE1
  23.   repeat with dummy = 0 to 2
  24.     set the cursor of sprite (32 + dummy) to [500, 501]
  25.   end repeat
  26. end
  27.  
  28. on cursorLEISTE2
  29.   repeat with dummy = 0 to 3
  30.     set the cursor of sprite (31 + dummy) to [500, 501]
  31.   end repeat
  32. end
  33.  
  34. on cursorLEISTE3
  35.   repeat with dummy = 0 to 0
  36.     set the cursor of sprite (31 + dummy) to [500, 501]
  37.   end repeat
  38.   repeat with dummy = 0 to 2
  39.     set the cursor of sprite (33 + dummy) to [500, 501]
  40.   end repeat
  41. end
  42.  
  43. on cursorformleiste var1, var2, var3, var4
  44.   if var1 <> 0 then
  45.     set the cursor of sprite 10 to [500, 501]
  46.   end if
  47.   if var2 <> 0 then
  48.     set the cursor of sprite 11 to [500, 501]
  49.   end if
  50.   if var3 <> 0 then
  51.     set the cursor of sprite 12 to [500, 501]
  52.   end if
  53.   if var4 <> 0 then
  54.     set the cursor of sprite 13 to [500, 501]
  55.   end if
  56. end
  57.  
  58. on nocur
  59.   repeat with dummy = 1 to 48
  60.     set the cursor of sprite dummy to 0
  61.   end repeat
  62. end
  63.