Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/csinke6.dir/00405_Script_405

Text File | 1995-11-13 | 534b | 30 lines

on RandomShakeHead
  set Q = random(3)
  if Q = 1 then
    ShakeHead
  else
    nothing
  end if
end

on ShakeHead
  global gCharaNum
  if gCharaNum = 1 then ShakeHeadT random(5),0
  else
    if gCharaNum = 2 then ShakeHeadH random(5),0
    else
      if gCharaNum = 3 then ShakeHeadB random(5),0
    end if
  end if
end

on HandUp
  global gCharaNum
  if gCharaNum = 1 then HandUpT 0,0
  else
    if gCharaNum = 2 then HandUpH 0,0
    else
      if gCharaNum = 3 then HandUpB 0,0
    end if
  end if
end