home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / wd.dxr / Namen_11_PrepareNamen.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  497 b   |  19 lines
  1. global gNoPlayers
  2.  
  3. on exitFrame
  4.   set the selStart to 0
  5.   set the selEnd to 0
  6.   repeat with i = 1 to gNoPlayers
  7.     set the text of member ("NameField" & i) to EMPTY
  8.     hilite field ("NameField" & i)
  9.     ResetTextField("NameField" & i)
  10.     set the editable of member ("NameField" & i) to 1
  11.   end repeat
  12.   repeat with i = gNoPlayers + 1 to 4
  13.     set the editable of member ("NameField" & i) to 0
  14.   end repeat
  15.   set the visible of sprite 5 to 0
  16.   playSoundOnce(2, "sprech3", 1)
  17.   resetCursor()
  18. end
  19.