'****************************
    ' POTTER TARGETS FOR MODE START
    '****************************

    Sub target7_hit
        AddScore 10000
        if pt7(CurrentPlayer) = 1 Then
            AddScore 10000
        end if
        tgsound
        if inamode = 0 Then
            t27.state = 1
            pt27(CurrentPlayer) = 1
            pottertargettasks
        end If
    End Sub

    Sub target4_hit
        AddScore 10000
        if pt7(CurrentPlayer) = 1 Then
            AddScore 10000
        end if
        tgsound
        if inamode = 0 Then
            t28.state = 1
            pt28(CurrentPlayer) = 1
            pottertargettasks
        end If
    End Sub

    Sub target5_hit
        AddScore 10000
        if pt7(CurrentPlayer) = 1 Then
            AddScore 10000
        end if
        tgsound
        if inamode = 0 Then
            t29.state = 1
            pt29(CurrentPlayer) = 1
            pottertargettasks
        end If
    End Sub

    Sub target20_hit
        AddScore 10000
        if pt7(CurrentPlayer) = 1 Then
            AddScore 10000
        end if
        tgsound
        if inamode = 0 Then
            t30.state = 1
            pt30(CurrentPlayer) = 1
            pottertargettasks
        end If
    End Sub

    Sub target9_hit
        AddScore 10000
        if pt7(CurrentPlayer) = 1 Then
            AddScore 10000
        end if
        tgsound
        if inamode = 0 Then
            t31.state = 1
            pt31(CurrentPlayer) = 1
            pottertargettasks
        end If
    End Sub

    Sub target10_hit
        AddScore 10000
        if pt7(CurrentPlayer) = 1 Then
            AddScore 10000
        end if
        tgsound
        if inamode = 0 Then
            t32.state = 1
            pt32(CurrentPlayer) = 1
            pottertargettasks
        end if
    End Sub

    sub pottertargettasks
        checklogic
        AddPoints(1)
    end Sub



    Sub checklogic
        'mode ready check
        If s72.state = 0 Then
            If t27.state + t28.state + t29.state + t30.state + t31.state + t32.state = 6 Then
                s72.state = 2
                rightdug.state = 2
                pt72(CurrentPlayer) = 1
                PuPlayer.playlistplayex pCallouts,"audiocallouts","start a mode.wav",vovol,1
                'chilloutthemusic
                pNote "MODE","IS LIT"
            End If
        End If
    end Sub

    'called at final drain w/ no saves
    sub stopmultiandmode
        If bMultiBallMode = true Then
        enddragon
        endmermulti
        endwandmulti
        End If
    end Sub



    dim tghits:tghits=0
    dim tgpos:tgpos=0
    sub tgsound
        if tghits = 1 then exit Sub
        tghits = 1
        tgpos = tgpos + 1
        select case tgpos
            case 1
                PlaySoundAt "hit1", ActiveBall
            case 2
                PlaySoundAt "hit2", ActiveBall
            case 3
                PlaySoundAt "hit3", ActiveBall
            case 4
                PlaySoundAt "hit4", ActiveBall
            case 5
                PlaySoundAt "hit5", ActiveBall
                tgpos = 0
        end Select
        vpmtimer.addtimer 500, "tgdone '"
    end Sub

    sub tgdone
        tghits = 0
    end Sub