home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / wd.dxr / Namen_12_NamenOK.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  315 b   |  13 lines
  1. on mouseUp
  2.   global gPlayerNames, gNoPlayers
  3.   set gPlayerNames to [:]
  4.   repeat with i = 1 to gNoPlayers
  5.     addProp(gPlayerNames, the text of member ("NameField" & i), 0)
  6.   end repeat
  7.   repeat with i = gNoPlayers + 1 to 4
  8.     addProp(gPlayerNames, " ", -1)
  9.   end repeat
  10.   playsound(1, "Ok", 1)
  11.   go("NamenOK")
  12. end
  13.