home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00383_Script_383 < prev    next >
Text File  |  1995-11-13  |  401b  |  18 lines
  1. on HandUp Chara
  2.   global AName, BName,CName
  3.   if Chara = "∞a" then HandUpT random(5),0
  4.   else
  5.     if Chara = "∩P" then HandUpH random(5),0
  6.     else
  7.       if Chara = "±VΘ┬" then HandUpB random(5),0
  8.     end if
  9.   end if
  10. end
  11.  
  12. on RandomShakeHead
  13.   set Q = random(300)
  14.   if Q = 1 then ShakeHeadT random(5),0
  15.   if Q = 2 then ShakeHeadH random(5),0
  16.   if Q = 3 then ShakeHeadB random(5),0
  17. end
  18.