ТЕМА: Сообщество скриптеров (Академия)

class Cnt
  attr_accessor :time
  attr_accessor :start_time
  attr_accessor :end_time
  attr_accessor :cntrev
  attr_accessor :counter_started
  def initialize
    @time=0
    @start_time=0
    @end_time=0
    @counter_started=false
  end
 
  def start(stfr = 0)
    @time=0
    @start_time=0
    @end_time=0
    if stfr>0
      @start_time=stfr
      @time=@start_time
      @cntrev=true
    else
      @cntrev=false
    end
    @counter_started=true
  end
 
  def stop
    @counter_started=false
    @end_time=@time
  end
 
  def update
    if @counter_started==true
      if cntrev==false
        @time+=1
      else
        @time-=1
        if @time==0
          stop
        end
      end
    end
  end
 
  def auto_update(a_time)
    if a_time>0
    start(a_time)
     loop do
       update
        if counter_started==false
          break
        end
      end
    end
  end
 
end

  def update
    if @counter_started==true and $updcounter>0
      $updcounter=0
      if cntrev==false
        @time+=1
      else
        @time-=1
        if @time==0
          stop
        end
      end
    end
  end

def gain_item(item_id, n)
    if item_id > 0
      @items[item_id] = [[item_number(item_id) + n, 0].max, 99].min
        if $data_items[item_id].common_event_id==0
          $ItmSpr.bitmap=Bitmap.new("Graphics/Pictures/ITEMS/item"+item_id.to_s(10)+".png")
          $ItmSpr.x=640-$ItmSpr.bitmap.width
          $ItmSpr.z=5000
 
          invCnt=Cnt.new
 
             invCnt.auto_update(20)
 
          $ItmSpr.bitmap.dispose
 
 
 
          invCnt.auto_update(20)
 
          $ItmSpr.bitmap=Bitmap.new("Graphics/Pictures/ITEMS/item"+item_id.to_s(10)+".png")
          $ItmSpr.x=640-$ItmSpr.bitmap.width
          $ItmSpr.z=5000          
 
          invCnt.auto_update(20)
 
      if $ItmSpr.bitmap!=nil
       $ItmSpr.bitmap.dispose
      end
 
     if $game_variables[25]>0
 
    $ItmSpr.bitmap=Bitmap.new("Graphics/Pictures/ITEMS/item"+$game_variables[25].to_s(10)+".png")
    $ItmSpr.x=640-$ItmSpr.bitmap.width
    $ItmSpr.z=5000
   end 
 
       end  
    end
  end

$updcounter=1

class Cnt
  attr_accessor :time
  attr_accessor :start_time
  attr_accessor :end_time
  attr_accessor :cntrev
  attr_accessor :counter_started
  def initialize
    @time=0
    @start_time=0
    @end_time=0
    @counter_started=false
  end
 
  def start(stfr = 0)
    @time=0
    @start_time=0
    @end_time=0
    if stfr>0
      @start_time=stfr
      @time=@start_time
      @cntrev=true
    else
      @cntrev=false
    end
    @counter_started=true
  end
 
  def stop
    @counter_started=false
    @end_time=@time
  end
 
  def update
    if @counter_started==true and $updcounter>0
 
      $updcounter=0
      if cntrev==false
        @time+=1
      else
        @time-=1
        if @time==0
          stop
        end
      end
    end
  end
 
  def auto_update(a_time)
    if a_time>0
    start(a_time)
     loop do
 
         update
 
        if counter_started==false
          break
        end
      end
    end
  end
 
 
end

     if $gaining_item==true
       @itmCnt+=1
       if @itmCnt==1
          $ItmSpr.bitmap=Bitmap.new("Graphics/Pictures/ITEMS/item"+$itmid.to_s(10)+".png")
          $ItmSpr.x=640-$ItmSpr.bitmap.width
          $ItmSpr.z=5000
        end
        if @itmCnt==11
          $ItmSpr.bitmap.dispose
        end
        if @itmCnt==21
          $ItmSpr.bitmap=Bitmap.new("Graphics/Pictures/ITEMS/item"+$itmid.to_s(10)+".png")
          $ItmSpr.x=640-$ItmSpr.bitmap.width
          $ItmSpr.z=5000
        end
        if @itmCnt==31
             $ItmSpr.bitmap.dispose
           end
 
         if @itmCnt==51  
 
             if $game_variables[25]>0
 
             $ItmSpr.bitmap=Bitmap.new("Graphics/Pictures/ITEMS/item"+$game_variables[25].to_s(10)+".png")
              $ItmSpr.x=640-$ItmSpr.bitmap.width
               $ItmSpr.z=5000
 
             end
             $gaining_item==false
             @itmCnt==0
        end       
     end