home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / schwieri.dxr / Schwierigk_28_SetWetteParamsTextfeld.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  375 b   |  11 lines
  1. global gDifficulty, gWettIni, gParams, gPlayers, gPlayerNumber, gNoPlayers
  2.  
  3. on SetWetteParamsTextfeld
  4.   if gNoPlayers = 1 then
  5.     setAt(getAt(gPlayers, gPlayerNumber), 2, gDifficulty)
  6.   end if
  7.   repeat with i = 1 to gParams
  8.     set the text of cast (the number of member "WettParamsTxt999" + i - 1) to string(getAt(getAt(gWettIni, 2 - 1 + gDifficulty), i))
  9.   end repeat
  10. end
  11.