sottolio 0.1

data/example/scripts/chapter_2.rb

@@ -0,0 +1,23 @@
+@scripts << Proc.new do
+background  :id        => 'city',
+            :resource  => 'resources/backgrounds/city.jpg'
+
+character   :id        => 'Rosalinda',
+            :resource  => 'resources/characters/rosalinda.png',
+            :x         => 800,
+            :y         => 120
+
+dialogue    :name      => 'Rosalinda',
+            :text      => 'Hey #name#! Did you enjoy this demo?'
+
+dialogue    :name      => 'Rosalinda',
+            :text      => 'Discover all myself at https://github.com/RoxasShadow/sottolio!'
+
+dialogue    :name      => 'Rosalinda',
+            :text      => 'Bye-chee!'
+
+remove      :id        => 'Rosalinda',
+            :animation => :slide,                               # apply a slide animation to the left
+            :to        => :left,
+            :speed     => 1.7
+end

data/example/scripts/script.rb

@@ -0,0 +1,2 @@
+require 'chapter_1'
+require 'chapter_2'

data/lib/sottolio.rb

@@ -0,0 +1,19 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+require 'sottolio/sottolio'

data/lib/sottolio/sottolio.rb

@@ -0,0 +1,22 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+require 'opal'
+require 'opal/util'
+
+Opal.append_path File.expand_path('../../../opal', __FILE__)

data/lib/sottolio/version.rb

@@ -0,0 +1,21 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  VERSION = '0.1'
+end

data/opal/sottolio.rb

@@ -0,0 +1,38 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+require 'sottolio/sottolio'
+require 'sottolio/script'
+require 'sottolio/lock'
+require 'sottolio/database'
+require 'sottolio/utils'
+
+require 'sottolio/wrapper/canvas'
+require 'sottolio/wrapper/canvas/canvas_input'
+require 'sottolio/wrapper/canvas/canvas_text'
+require 'sottolio/wrapper/canvas/canvas_button'
+
+require 'sottolio/wrapper/image'
+require 'sottolio/wrapper/background'
+require 'sottolio/wrapper/character'
+require 'sottolio/image_manager'
+
+require 'sottolio/wrapper/sound'
+require 'sottolio/sound_manager'
+
+require 'sottolio/application'

data/opal/sottolio/application.rb

@@ -0,0 +1,134 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+include Sottolio
+
+@scripts = []
+require 'script'
+
+if @scripts.empty?
+  puts 'No scripts found.'
+  return
+end
+
+canvas_id = Sottolio.get 'game'
+go_next   = Sottolio.get 'next'
+canvas    = Canvas.new canvas_id
+
+database  = Database.new
+scripts   = Script.new @scripts
+scripts.reverse!
+
+config = {
+  canvas_id:   'game',
+  font_family: 'Arial',
+  font_size:   '30px',
+  font_color:  '#000'
+}
+lock          = Lock.new
+canvas_text   = CanvasText.new canvas_id, config
+canvas_button = CanvasButton.new canvas_id, config, lock
+
+sound_manager = SoundManager.new
+image_manager = ImageManager.new
+input         = nil
+
+next_dialogue = -> {
+  if lock.free? && (!input || input.destroyed? || (input.present? && !input.empty?)) && scripts.any?
+    input.save_and_destroy if input.is_a?(CanvasInput) && input.present?
+
+    canvas.fill_style = '#fff'
+
+    script          = scripts.pop
+    current_command = script.keys.first
+    case current_command
+    when :play_sound
+      return next_dialogue.call unless script[:play_sound].true? database
+
+      sound = Sound.new(script[:play_sound][:resource], script[:play_sound][:loop], script[:play_sound][:volume])
+      sound_manager.add script[:play_sound][:id], sound
+      sound_manager.play script[:play_sound][:id]
+
+      next_dialogue.call
+    when :stop_sound
+      return next_dialogue.call unless script[:stop_sound].true? database
+
+      sound_manager.stop script[:stop_sound][:id]
+
+      next_dialogue.call
+    when :background
+      return next_dialogue.call unless script[:background].true? database
+
+      background = Background.new(canvas_id, script[:background][:resource], script[:background][:id])
+      image_manager.add background
+      image_manager.draw script[:background][:id]
+
+      next_dialogue.call
+    when :character
+      return next_dialogue.call unless script[:character].true? database
+
+      character = Character.new(canvas_id, script[:character][:resource], script[:character][:id])
+      image_manager.add character
+      image_manager.draw script[:character][:id], script[:character][:x], script[:character][:y]
+
+      next_dialogue.call
+    when :remove
+      image_manager.remove script[:remove][:id], script[:remove][:animation], script[:remove][:to], script[:remove][:speed]
+
+      next_dialogue.call
+    when :dialogue
+      return next_dialogue.call unless script[:dialogue].true? database
+
+      canvas.clear
+
+      if script[:dialogue].include? :name
+        canvas_text.write "#{script[:dialogue][:name].apply(database)}: #{script[:dialogue][:text].apply(database)}"
+      else
+        canvas_text.write script[:dialogue][:text].apply(database)
+      end
+    when :input
+      return next_dialogue.call unless script[:input].true? database
+
+      canvas.clear
+
+      if script[:input].include? :name
+        canvas_text.write "#{script[:input][:name].apply(database)}: #{script[:input][:text].apply(database)}"
+      else
+        canvas_text.write script[:input][:text].apply(database)
+      end
+
+      input = CanvasInput.new canvas_id, database, script[:input][:id], script[:input][:request].apply(database)
+    when :choice
+      return next_dialogue.call unless script[:choice].true? database
+
+      canvas.clear
+
+      if script[:choice].include? :name
+        canvas_text.write "#{script[:choice][:name].apply(database)}: #{script[:choice][:text].apply(database)}"
+      else
+        canvas_text.write script[:choice][:text].apply(database)
+      end
+
+      canvas_button.get_choice database, script[:choice][:options], script[:choice][:id], next_dialogue
+    end
+  end
+}
+
+next_dialogue.call # bootstrapping
+
+Sottolio::add_listener :click, go_next, next_dialogue

data/opal/sottolio/database.rb

@@ -0,0 +1,48 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class Database
+    def initialize
+      @db = {}
+    end
+
+    def add(key, value)
+      @db[key] = value
+    end
+
+    def delete(key)
+      @db.delete key
+    end
+
+    def delete_if(key, &block)
+      @db.delete_if key, &block
+    end
+
+    def get(key)
+      @db[key]
+    end
+
+    def has?(key)
+      @db.include? key
+    end
+      alias_method :exist?,   :has?
+      alias_method :exists?,  :has?
+      alias_method :include?, :has?
+  end
+end

data/opal/sottolio/image_manager.rb

@@ -0,0 +1,46 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class ImageManager
+    attr_accessor :images
+
+    def initialize
+      @images = {}
+    end
+
+    def add(image)
+      @images[image.id.to_sym] = image
+    end
+
+    def remove(id, animation = :none, to = nil, speed = nil)
+      redraw = -> { @images.each_value &:draw }
+      delete = -> { @images.delete id.to_sym; @images.each_value &:draw }
+
+      if animation == :slide
+        @images[id.to_sym].slide redraw, delete, to, speed
+      else
+        delete.call
+      end
+    end
+
+    def draw(id, x = nil, y = nil)
+      @images[id.to_sym].draw x, y, x && y
+    end
+  end
+end

data/opal/sottolio/lock.rb

@@ -0,0 +1,41 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class Lock
+    def initialize
+      free!
+    end
+
+    def locked?
+      @lock == true
+    end
+
+    def free?
+      not locked?
+    end
+
+    def lock!
+      @lock = true
+    end
+
+    def free!
+      @lock = false
+    end
+  end
+end

data/opal/sottolio/script.rb

@@ -0,0 +1,93 @@
+#--
+# Copyright(C) 2013-2015 Giovanni Capuano <webmaster@giovannicapuano.net>
+#
+# This file is part of sottolio.
+#
+# sottolio is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sottolio is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with sottolio.  If not, see <http://www.gnu.org/licenses/>.
+#++
+module Sottolio
+  class Script
+    include Enumerable
+
+    # TODO: Rid of unused methods
+    def initialize(scripts = [])
+      @var = []
+      scripts.each { |p| self << p }
+    end
+
+    def each(&block)
+      @var.each(&block)
+    end
+
+    def append(block)
+      instance_eval &block
+    end
+      alias_method :<<, :append
+
+    def has?(type)
+      @var.any? { |h| h.keys.first.to_sym == type.to_sym }
+    end
+      alias_method :include?, :has?
+
+    def length(type = nil)
+      if block_given?
+        @var.count &block
+      elsif type == nil
+        @var.count
+      else
+        @var.count  { |h| h.keys.first.to_sym == type.to_sym }
+      end
+    end
+      alias_method :count, :length
+      alias_method :count, :size
+
+    def get(type)
+      @var.select { |h| h.keys.first.to_sym == type.to_sym }
+    end
+
+    def first
+      @var.first
+    end
+
+    def last
+      @var.last
+    end
+
+    def pop
+      @var.pop
+    end
+
+    def reverse
+      @var.reverse
+    end
+
+    def reverse!
+      @var.reverse!
+    end
+
+    def to_s
+      @var.inspect
+    end
+
+    def method_missing(m, *args, &block)
+      if args.any?
+        args = args.first if args.length == 1
+        @var << { m.to_sym => args }
+        instance_variable_set "@#{m}", args
+      else
+        instance_variable_get "@#{m}"
+      end
+    end
+  end
+end