Greatest Childrens Stories Ever Told/Greatest_Stories.iso/demos/funtown/demo.dir/00045_Script_45

Text File | 1994-11-08 | 545b | 26 lines

on PressTheButton
  global WQ, CV, NS, NQ, CU

  if CU then exit

  put the ClickOn into theClickOn
  put the name of Cast (the CastNum of Sprite theClickOn) into theName
  set the CastNum of Sprite (theClickOn) = the number of Cast (theName& ", Down")
  updateStage

  repeat while the StillDown
  end repeat

  set the CastNum of Sprite theClickOn = the number of Cast theName
  updateStage

  if WQ >= NQ then
    WeHaveAWinner
  else
    set WQ=WQ+1
    set NS = NS + 1
    reposition (CV)
  end if
end