Curio City 11/CURIO11.bin/pc/movie/iroha/op.dir/00327.ls

Text File | 1998-01-01 | 508 b | 21 lines

on mouseDown
  puppetSound(2, "ﾃ丑ﾃ嘉､ﾃ叡ﾃ丑")
  set ch to clickOn()
  set btncn to the memberNum of sprite ch
  set the memberNum of sprite ch to btncn + 1
  updateStage()
  repeat while the stillDown
    if rollOver(ch) then
      set the memberNum of sprite ch to btncn + 1
    else
      set the memberNum of sprite ch to btncn
    end if
    updateStage()
  end repeat
  set the castNum of sprite ch to btncn
  if rollOver(ch) then
    go("m-back", "@.../GAME/TRAIN")
    puppetSound(2, 0)
  end if
end