home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / wd.dxr / Name_10_NameMain.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  329 b   |  15 lines
  1. on DoNameKey Up
  2.   global gPlayers
  3.   if (charToNum(the key) = 8) or (charToNum(the key) = 127) then
  4.     dontPassEvent()
  5.     if Up then
  6.       repeat with l in gPlayers
  7.         if getAt(l, 1) = the text of field "NameField" then
  8.           PostitDelete()
  9.           exit repeat
  10.         end if
  11.       end repeat
  12.     end if
  13.   end if
  14. end
  15.