home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / schwieri.dxr / Internal_7_WALoop.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  918 b   |  33 lines
  1. global gPlayers, gPlayerNumber, gNoPlayers, gWetten, gWette, WACall
  2.  
  3. on exitFrame
  4.   ResetScore()
  5.   if gNoPlayers > 1 then
  6.     if WACall > (gNoPlayers * gNoPlayers) then
  7.       go("Auswertung")
  8.       return 
  9.     end if
  10.     set gPlayerNumber to ((WACall - 1) mod gNoPlayers) + 1
  11.     set gWette to ((gPlayerNumber + ((WACall - 1) / gNoPlayers) - 1) mod gNoPlayers) + 1
  12.     set gWette to getAt(gWetten, gWette)
  13.     put getPropAt(gPlayerNames, gPlayerNumber) into field "WAName"
  14.   else
  15.     if WACall > 1 then
  16.       go("Nochmal")
  17.       return 
  18.     end if
  19.     set gWette to getAt(gWetten, 1)
  20.     put getAt(getAt(gPlayers, gPlayerNumber), 1) into field "WAName"
  21.   end if
  22.   if gWette < 10 then
  23.     set l to loadini("Wette0" & gWette & ".ini")
  24.   else
  25.     set l to loadini("Wette" & gWette & ".ini")
  26.   end if
  27.   put getAt(l, 10) into field "WAText"
  28.   set WACall to WACall + 1
  29.   if gNoPlayers = 1 then
  30.     go("WAWait")
  31.   end if
  32. end
  33.