home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / wd.dxr / Name_9_PrepareName.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  544 b   |  17 lines
  1. on exitFrame
  2.   global gNamenAuswahlPos, gPlayers
  3.   set gNamenAuswahlPos to 1
  4.   ResetTextField("NameField")
  5.   put EMPTY into field "NamenAuswahl"
  6.   set the selStart to 0
  7.   set the selEnd to 0
  8.   set the text of member "NameField" to EMPTY
  9.   set the editable of member "NameField" to 1
  10.   set the visible of sprite 5 to 0
  11.   set the visible of sprite 9 to 0
  12.   set the visible of sprite 10 to count(gPlayers) > 7
  13.   repeat with i = 1 to min(7, count(gPlayers))
  14.     put getAt(getAt(gPlayers, i), 1) into line i of field "NamenAuswahl"
  15.   end repeat
  16. end
  17.