home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / doujyou.dir / 00271_Script_271 < prev    next >
Text File  |  1995-11-10  |  838b  |  38 lines

  1. --îÇ┐¢Φα≤∙2(∞╞╟ìîÇ┐¢)
  2. on Button2 X, Y, Z
  3.     --╔p╔b╔y╔g╔X╔v╔Γ╔C╔gΩ¢φ╦
  4.     puppetSprite clickOn(),TRUE
  5.     
  6.     
  7.     --σ¬τ¢╟├τ┐∩W╟¥∩ñΘ∙
  8.     set C_X = the locH of sprite clickOn()
  9.     set C_Y = the locV of sprite clickOn()
  10.     
  11.     
  12.     --╔{╔^╔∞╟ÖΓⁿ╟Ä╟═╟â╟ó╟╚Σæ┼AΘwφ╦╔s╔N╔Z╔π∩Öα₧∞╞
  13.     repeat while stillDown()
  14.         set the locH of sprite clickOn() = C_X + X
  15.         set the locV of sprite clickOn() = C_Y + Y
  16.         
  17.         updateStage
  18.     end repeat
  19.     
  20.     --σÄ╟├αáφu╟à±ü╟▌
  21.     
  22.     set the locH of sprite clickOn() = C_X
  23.     set the locV of sprite clickOn() = C_Y
  24.     updateStage
  25.     
  26.     --╔p╔y╔b╔g╔X╔v╔Γ╔C╔gΓ¥Φ·
  27.     puppetSprite clickOn(),FALSE
  28.     
  29.     
  30.     --╔X╔v╔Γ╔C╔gΦä╟╝╔}╔E╔X╟Ö≤ú╟Ä╟═╟²╟⌐
  31.     if rollover(clickOn()) then
  32.         return 1
  33.     else
  34.         return 0
  35.     end if
  36.     
  37. end 
  38.