home *** CD-ROM | disk | FTP | other *** search
- global PeopleList, CurrentPersonIndex, CurrentPerson, CurrentFullName
-
- on exitFrame
- if count(PeopleList) > 0 then
- set CurrentPersonIndex to random(count(PeopleList))
- set CurrentPerson to getAt(PeopleList, CurrentPersonIndex)
- set CurrentFullName to getAt(FullNameList, CurrentPersonIndex)
- deleteAt(PeopleList, CurrentPersonIndex)
- deleteAt(FullNameList, CurrentPersonIndex)
- InitFields()
- else
- go("EXIT")
- end if
- set the visible of sprite 45 to 0
- set the visible of sprite 16 to 1
- puppetSprite(20, 1)
- startTimer()
- end
-