home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / schwieri.dxr / Internal_20_AuswertungInit.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  272 b   |  11 lines
  1. on exitFrame
  2.   global gNoPlayers
  3.   set maxpoints to 0
  4.   repeat with i = 1 to gNoPlayers
  5.     if getAt(gPlayerNames, i) >= maxpoints then
  6.       set maxpoints to getAt(gPlayerNames, i)
  7.       put getPropAt(gPlayerNames, i) into field "Auswertname"
  8.     end if
  9.   end repeat
  10. end
  11.