home *** CD-ROM | disk | FTP | other *** search
/ Blender Volume 3 #4 / Blender_3_4.iso / BLENDER / FILES / CCENTRAL.DIR / 00028.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  555 b   |  19 lines

  1. global PeopleList, CurrentPersonIndex, CurrentPerson, CurrentFullName
  2.  
  3. on exitFrame
  4.   if count(PeopleList) > 0 then
  5.     set CurrentPersonIndex to random(count(PeopleList))
  6.     set CurrentPerson to getAt(PeopleList, CurrentPersonIndex)
  7.     set CurrentFullName to getAt(FullNameList, CurrentPersonIndex)
  8.     deleteAt(PeopleList, CurrentPersonIndex)
  9.     deleteAt(FullNameList, CurrentPersonIndex)
  10.     InitFields()
  11.   else
  12.     go("EXIT")
  13.   end if
  14.   set the visible of sprite 45 to 0
  15.   set the visible of sprite 16 to 1
  16.   puppetSprite(20, 1)
  17.   startTimer()
  18. end
  19.