Ruby Quellcode

$rate = 1 #variablen id in der das ergebnis gespeichert wird
#Credits: Shining Advances
class Zauber
  def initialize(zeit,zauber)
    @zeit = zeit
    @grafik = RPG::Cache.picture("Zauber_#{zauber}_true")
    @lösung = RPG::Cache.picture("Zauber_#{zauber}")
  end
  def main
    @spriteset = Spriteset_Map.new
    @bitmap = Sprite.new
    @bitmap.bitmap = @grafik
 
    @startframes = Graphics.frame_count
 
    @check = []
 
    @richtig = 0
    @falsch = 0
 
    @speicher = [[nil,nil]]
 
    @linie = Sprite.new
    @linie.bitmap = Bitmap.new(@bitmap.bitmap.width,@bitmap.bitmap.height)
 
    @pressed = false
    @ende = false
    Graphics.transition
 
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
  end
 
  def ende
    richtig = Color.new(0,0,0,255)
    falsch = Color.new(255,255,255,255)
    check1 = Color.new(0,255,0,255)
    check1_F = Color.new(0,128,0,255)
    check2 = Color.new(0,255,255,255)
    check2_F = Color.new(0,128,128,255)
    check3 = Color.new(0,0,255,255)
    check3_F = Color.new(0,0,128,255)
    check4 = Color.new(255,0,0,255)
    check5 = Color.new(255,255,0,255)
    for i in 1...@speicher.size
      pos = @speicher[i]#@lösung.get_pixel(@speicher[i])
      case @lösung.get_pixel(pos[0],pos[1])
        when  falsch
          @falsch += 1
        when richtig
          @richtig += 1
        when check1
          @check[1] = true
          @richtig += 1
        when check1_F
          @check[1] = true
          @falsch += 1
        when check2
          @check[2] = true
          @richtig += 1
        when check2_F
          @check[2] = true
          @falsch += 1
        when check3
          @check[3] = true
          @richtig += 1
        when check3_F
          @check[3] = true
          @falsch += 1
        when check4
          @check[4] = true
          @richtig += 1
        when check5
          @check[5] = true
          @richtig += 1
      end
    end
    a = 0
    for i in 1...@check.size
      if @check[i]
        a += 1
      end
    end
    unless a == 5
      $game_variables[$rate] = 0
      $scene = Scene_Map.new
      return
    end
    $game_variables[$rate] = (@richtig / (@richtig+@falsch).to_f * 100).round
    $scene = Scene_Map.new
  end
 
  def update
    if (Graphics.frame_count-@startframes) / Graphics.frame_rate >= @zeit
      ende
      return
    end
 
    @mx ,@my = Input.mouse_pos
    @spriteset.update
 
    if @ende
      ende
      return
    end
 
    if @ende == false
      if @pressed == false and Input.mouse_lbutton
        @pressed = true
      elsif Input.mouse_lbutton
        grafik
      elsif @pressed
        @ende = true
      end
    end
  end
 
  def grafik
    @linie.bitmap.set_pixel(@mx, @my, Color.new(255,0,0,255))
    @speicher.push([@mx,@my])
  end
end