home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / paris / wave / CIN.dcr / 00001.ls next >
Encoding:
Text File  |  2017-09-21  |  1.3 KB  |  40 lines
  1. global loopcnt1, loopcnt2, loopcnt3, loopcnt4, l1, l2, l3, l4, l1back, l2back, l3back, l4back, debug, bank, mm, ma, status, free, mb, map, tdata
  2.  
  3. on startMovie
  4.   set debug to 1
  5.   set tdata to " 10000 ABCDEFGH12345678abcdefgh "
  6.   set l1 to 4
  7.   set l1back to 0
  8.   set loopcnt1 to l1
  9.   set the visible of sprite 11 to 1
  10.   repeat with idx = 12 to 14
  11.     set the visible of sprite idx to 0
  12.   end repeat
  13.   set l2 to 2
  14.   set l2back to 0
  15.   set loopcnt2 to l2
  16.   set the cursor of sprite 45 to [4, 5]
  17.   set the cursor of sprite 46 to [4, 5]
  18.   set the cursor of sprite 47 to [4, 5]
  19.   set bank to "http://202.224.191.2/cgi-bin/EcOpe.cgi?"
  20.   set free to "GUEST"
  21.   set status to 0
  22.   set map to 0
  23.   put "Name" into field "Name"
  24.   set the textFont of field "Name" to "Helvetica"
  25.   set the textStyle of field "Name" to "plain"
  26.   set the textSize of field "Name" to 12
  27.   put free into field "Name"
  28.   put "Pass" into field "Pass"
  29.   set the textFont of field "Pass" to "Helvetica"
  30.   set the textStyle of field "Pass" to "plain"
  31.   set the textSize of field "Pass" to 12
  32.   put EMPTY into field "Pass"
  33.   put "money" into field "gold"
  34.   set the textFont of field "gold" to "Helvetica"
  35.   set the textSize of field "gold" to 10
  36.   set the textStyle of field "gold" to "plain"
  37.   set the textAlign of field "gold" to "right"
  38.   put EMPTY into field "gold"
  39. end
  40.