gistfile1.txt

#イベントポイントの作成
_DEFINE_ :event_point do |id:, x:, y:, width:, height: |
  
  _SEND_ [:screen] do
    _BUTTON_BASE_ id: id, width: width, height: height, x: x, y: y  do

      #背景
      _CREATE_ :DrawableLayout, id: :bg, 
        width: width, height: height, bgcolor: [128, 255, 0, 0]

      _DEFINE_ :on_key_push do
        _CHECK_ :_TEMP_, not_equal: {event?: true} do
          _SET_ :_TEMP_, event_id: id 
        end
      end
    end
  end
end 

#シーンの終了処理
_DEFINE_ :scene_end do
  _SEND_ [:screen] do
    _SEND_ALL_ do
      _DELETE_
    end
  end
end