home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / auto / dane / cc1.dxr / 00019.ls < prev    next >
Encoding:
Text File  |  1996-12-09  |  1.0 KB  |  45 lines
  1. on enterFrame
  2.   set cena to 17972
  3.   set c_w1 to 255
  4.   set c_w2 to 69
  5.   set c_w3 to 213
  6.   set c_w4 to 157
  7.   set c_w5 to 224
  8.   set c_w6 to 455
  9.   set c_w7 to 105
  10.   set the cursor of sprite 1 to [0]
  11.   set the cursor of sprite 2 to [1]
  12.   set the cursor of sprite 3 to [1]
  13.   set the cursor of sprite 4 to [1]
  14.   set the floatPrecision to 2
  15.   set wyn to 0
  16.   set kurs to value(field "dane")
  17.   set wyn to cena * kurs
  18.   if the hilite of member "w1" then
  19.     set wyn to wyn + (kurs * c_w1)
  20.   end if
  21.   if the hilite of member "w2" then
  22.     set wyn to wyn + (kurs * c_w2)
  23.   end if
  24.   if the hilite of member "w3" then
  25.     set wyn to wyn + (kurs * c_w3)
  26.   end if
  27.   if the hilite of member "w4" then
  28.     set wyn to wyn + (kurs * c_w4)
  29.   end if
  30.   if the hilite of member "w5" then
  31.     set wyn to wyn + (kurs * c_w5)
  32.   end if
  33.   if the hilite of member "w6" then
  34.     set wyn to wyn + (kurs * c_w6)
  35.   end if
  36.   if the hilite of member "w7" then
  37.     set wyn to wyn + (kurs * c_w7)
  38.   end if
  39.   put wyn into field "wynik"
  40. end
  41.  
  42. on exitFrame
  43.   go(the frame)
  44. end
  45.