Ruby Quellcode

#==========Radius Skript=========#
#============by Monsta===========#
#=====Version 1.1===18.5.2008====#
 
# Aufrufen #
# in_radius?(id_sehendes_event,id_gesehendes_event,sichtweite,sichtform,testfenster_anzeigen)
 
# Der Player hat die ID 0, kann aber auch mit "Player" angegeben werden
# Mit "All" beim gesehenden Event, bekommt man einen Array mit allen gesehenden Events
 
 
class Interpreter
  Radius = [ [[],[0],[-1,0,1],[-1,0,1],[-2,-1,0,1,2],[-2,-1,0,1,2],[-3,-2,-1,0,1,2,3],[-3,-2,-1,0,1,2,3]],      # Sicktkegel 1
             [[-1,0,1],[-2,-1,0,1,2],[-3,-2,-1,0,1,2,3],[-4,-3,-2,-1,0,1,2,3,4],[-5,-4,-3,-2,-1,0,1,2,3,4,5]] ,
             [[],[0],[0],[0],[0],[0],[0],[0],[0]]] # Sicktkegel 2
  Radius_Terrain = 7        
  def in_radius?(id1,id2,radius=7,radius_form=0,windows=false)
    @all = false
    if windows == true
     @radius_windows = {}
     delete_radius_windows
    end
    if (id1.is_a?(String) and id1.downcase == 'player') or id1 == 0
      char1 = $game_player
    else
      char1 = $game_map.events[id1]
    end
    if id2.is_a?(String)
     if id2.downcase == 'player'
      char2 = $game_player
    elsif id2.downcase == 'all'
       @all = []
     end
    else
      char2 = id2 == 0 ? $game_player : $game_map.events[id2]
    end
    if radius >= Radius[radius_form].size
      print ("Fehler im Skript: Radius Skript\n\nDer Radius ist größer als die Radiusangabe")
      return false
    end
    hindernis_line = []
    for i in 0..radius
      for r in Radius[radius_form][i]
       case char1.direction
       when 2 # Runter
        x = char1.x + r
        y = char1.y + i
        next if hindernis_line.include?(x)
       when 4 # Links
        x = char1.x - i
        y = char1.y - r
        next if hindernis_line.include?(y)
       when 6 # Rechts
        x = char1.x + i
        y = char1.y + r
        next if hindernis_line.include?(y)
       when 8 # Hoch
        x = char1.x + r
        y = char1.y - i
        next if hindernis_line.include?(x)
      end
      if $game_map.terrain_tag(x,y) == Radius_Terrain
       hindernis_line << ([2,8].include?(char1.direction) ? x : y)
       next
      end
 
       @radius_windows["#{i},#{r}"] = Radius_Color.new(x,y) if $DEBUG and windows
 
       id = $game_map.id_coordinates(x,y)
       if @all == false         
        return true if id == char2.id
       else
        @all << id if id != -1
       end
      end
    end
    if @all == false or @all == []
     return false
   else
    return @all
   end
  end
 
  def delete_radius_windows
    @radius_windows.each_value{|w|w.dispose if w != nil and w.disposed? == false} if @radius_windows != nil
  end
end
 
class Game_Map
  def id_coordinates(x=0,y=0)
    @events.each {|e|return e[1].id if e[1].x == x and e[1].y == y}
    return 0 if $game_player.x == x and $game_player.y == y
    return -1
  end
end
 
class Radius_Color < Window_Base
  def initialize(x,y)
    super(x * 32, y * 32, 20, 20)
    self.contents = Bitmap.new(width, height)
    self.opacity = 170
  end
end