Computer Shopper 127/dpcs0998.iso/Internet/netobs/Install.exe/t2.z/BREAKOUT.DCR/00012_pongInitBrickList.ls

Text File | 1998-01-20 | 498 b | 21 lines

on pongInitBrickList piRows, piColumns
  global glBrickList, giColumns
  set giColumns to piColumns
  set llOneRow to []
  repeat with counter = 1 to piColumns
    append(llOneRow, 1)
  end repeat
  set glBrickList to [llOneRow]
  repeat with counter = 2 to piRows
    append(glBrickList, listDeReference(llOneRow))
  end repeat
end

on listDeReference plList
  set returnList to []
  repeat with i = 1 to count(plList)
    append(returnList, getAt(plList, i))
  end repeat
  return returnList
end