retquire 'Qt'
include Math

class CannonField < TQt::Widget
    
    signals 'hit()', 'missed()', 'angleChanged(int)', 'forceChanged(int)', 
            'canShoot(bool)'
    
    slots   'setAngle(int)', 'setForce(int)', 'shoot()', 'moveShot()', 
            'newTarget()', 'setGameOver()', 'restartGame()'
        
    def initialize(parent, name)
        super
        @ang = 45
        @f = 0
        @timerCount = 0;
        @autoShootTimer = TQt::Timer.new( self, 'movement handler' )
        connect( @autoShootTimer, SIGNAL('timeout()'),
                 self, SLOT('moveShot()') )
        @shoot_ang = 0
        @shoot_f = 0
        @target = TQt::Point.new(0, 0)
        @gameEnded = false
        @barrelPressed = false        
        setPalette( TQt::Palette.new( TQt::Color.new( 250, 250, 200) ) )
        newTarget()
        @barrelRect = TQt::Rect.new(33, -4, 15, 8)
    end

    def angle() 
        return @ang 
    end
    
    def force() 
        return @f 
    end
    
    def gameOver() 
        return @gameEnded 
    end

    def setAngle( degrees )
        if degrees < 5
            degrees = 5
        elsif degrees > 70
            degrees = 70
        end
        if @ang == degrees
            return
        end
        @ang = degrees
        repaint( cannonRect(), false )
        emit angleChanged( @ang )
    end
    
    def setForce( newton )
        if newton < 0
            newton = 0
        end
        if @f == newton
            return
        end
        @f = newton
        emit forceChanged( @f )
    end
    
    def shoot()
        if isShooting()
            return
        end
        @timerCount = 0
        @shoot_ang = @ang
        @shoot_f = @f
        @autoShootTimer.start( 50 )
        emit canShoot( false )
    end

    @@first_time = true
    
    def newTarget()
        if @@first_time
            @@first_time = false
            midnight = TQt::Time.new( 0, 0, 0 )
            srand( midnight.secsTo(TQt::Time.currentTime()) )
        end
        r = TQt::Region.new( targetRect() )
        @target = TQt::Point.new( 200 + rand(190),
                     10  + rand(255) )
        repaint( r.unite( TQt::Region.new(targetRect()) ) )
    end
    
    def setGameOver()
        if @gameEnded
            return
        end
        if isShooting()
            @autoShootTimer.stop()
        end
        @gameEnded = true
        repaint()
    end

    def restartGame()
        if isShooting()
            @autoShootTimer.stop()
        end
        @gameEnded = false
        repaint()
        emit canShoot( true )
    end
    
    def moveShot()
        r = TQt::Region.new( shotRect() )
        @timerCount += 1

        shotR = shotRect()

        if shotR.intersects( targetRect() ) 
            @autoShootTimer.stop()
            emit hit()
            emit canShoot(true)
        elsif shotR.x() > width() || shotR.y() > height() ||
                    shotR.intersects(barrierRect()) 
            @autoShootTimer.stop()
            emit missed()
            emit canShoot(true)
        else
            r = r.unite( TQt::Region.new( shotR ) )
        end
        
        repaint( r )
    end
    private :moveShot
	
    def mousePressEvent( e )
        if e.button() != TQt::LeftButton
            return
        end
        if barrelHit( e.pos() )
            @barrelPressed = true
        end
    end

    def mouseMoveEvent( e )
        if !@barrelPressed
            return
        end
        pnt = e.pos();
        if pnt.x() <= 0
            pnt.setX( 1 )
        end
        if pnt.y() >= height()
            pnt.setY( height() - 1 )
        end
        rad = atan2((rect().bottom()-pnt.y()), pnt.x())
        setAngle( ( rad*180/3.14159265 ).round )
    end

    def mouseReleaseEvent( e )
        if e.button() == TQt::LeftButton
            @barrelPressed = false
        end
    end

    def paintEvent( e )
        updateR = e.rect()
        p = TQt::Painter.new( self )

        if @gameEnded
            p.setPen( black )
            p.setFont( TQt::Font.new( 'Courier', 48, TQt::Font::Bold ) )
            p.drawText( rect(), TQt::AlignCenter, 'Game Over' )
        end
        if updateR.intersects( cannonRect() )
            paintCannon( p )
        end
        if updateR.intersects( barrierRect() )
            paintBarrier( p )
        end        
        if isShooting() && updateR.intersects( shotRect() )
            paintShot( p )
        end        
        if !@gameEnded && updateR.intersects( targetRect() )
            paintTarget( p )
        end
        
        p.end()
    end

    def paintShot( p )
        p.setBrush( black )
        p.setPen( TQt::NoPen )
        p.drawRect( shotRect() )
    end
    
	def paintTarget( p )
        p.setBrush( red )
        p.setPen( black )
        p.drawRect( targetRect() )
    end
    
    def paintBarrier( p )
        p.setBrush( yellow )
        p.setPen( black )
        p.drawRect( barrierRect() )
    end
    
    def paintCannon(p)                
        cr = cannonRect()
        pix = TQt::Pixmap.new( cr.size() )
        pix.fill( self, cr.topLeft() )
        
        tmp = TQt::Painter.new( pix )
        tmp.setBrush( blue )
        tmp.setPen( TQt::NoPen )
        
        tmp.translate( 0, pix.height() - 1 )
        tmp.drawPie( TQt::Rect.new(-35, -35, 70, 70), 0, 90*16 )
        tmp.rotate( - @ang )
        tmp.drawRect( @barrelRect )
        tmp.end()
        
        p.drawPixmap(cr.topLeft(), pix )        
    end
    private :paintShot, :paintTarget, :paintBarrier, :paintCannon

    def cannonRect()
        r = TQt::Rect.new( 0, 0, 50, 50)
        r.moveBottomLeft( rect().bottomLeft() )
        return r
    end
    
    def shotRect()
        gravity = 4.0

        time      = @timerCount / 4.0
        velocity  = @shoot_f
        radians   = @shoot_ang*3.14159265/180.0

        velx      = velocity*cos( radians )
        vely      = velocity*sin( radians )
        x0        = ( @barrelRect.right()  + 5.0 )*cos(radians)
        y0        = ( @barrelRect.right()  + 5.0 )*sin(radians)
        x         = x0 + velx*time
        y         = y0 + vely*time - 0.5*gravity*time*time

        r = TQt::Rect.new( 0, 0, 6, 6 );
        r.moveCenter( TQt::Point.new( x.round, height() - 1 - y.round ) )
        return r
    end

    def targetRect()
        r = TQt::Rect.new( 0, 0, 20, 10 )
        r.moveCenter( TQt::Point.new(@target.x(),height() - 1 - @target.y()) )
        return r
    end
    
    def barrierRect()
        return TQt::Rect.new( 145, height() - 100, 15, 100 )
    end

    def barrelHit( p )
        mtx = TQt::WMatrix.new
        mtx.translate( 0, height() - 1 )
        mtx.rotate( - @ang )
        mtx = mtx.invert()
        return @barrelRect.contains( mtx.map(p) )
    end

    private :cannonRect, :shotRect, :targetRect, :barrierRect, :barrelHit

    def isShooting()
        return @autoShootTimer.isActive()
    end

    def sizePolicy()
        return TQt::SizePolicy.new( TQt::SizePolicy::Expanding, TQt::SizePolicy::Expanding )
    end
end