ProjectReality Radioactive Rain

scn F3NVRadStormsScript

short sNewHour
float fTimer2
float fTimer
float fQuestDelayTime
short sDoOnce1
short sDoOnce2
short sDoOnce3
short sDoOnce4
short sDoOnce5
ref rForceFlee



Begin gamemode

if RadStorm == 1

    set fQuestDelayTime to 0.01
    SetQuestDelay F3NVRadStorm 0.01

    if getiscurrentweather RadStormA == 1 && player.isininterior == 0 && ( sDoOnce4 == 0 )

        player.CIOS F3NVRad200
        set sDoOnce4 to 1
        set sDoOnce1 to 0

    endif


    if getiscurrentweather RadstormB == 1 && player.isininterior == 0


        EnableFastTravel 0


        if  ( fTimer < 240 )

            if ( sDoOnce1 == 0 )

                set sDoOnce1 to 1
                set sDoOnce2 to 0
                set sDoOnce5 to 0

                F3NVSirenREF.moveto player 0 0 0
                F3NVSirenREF.enable 1
                set rForceFlee to player.placeatme F3NVForceFlee 1
                set sNewHour to ( gamehour + 2 )

            endif


        set fTimer to fTimer + GetSecondsPassed

        else

            F3NVSirenREF.disable 0
            F3NVSirenREF.moveto rainset 0 0 0

            setweather RadStormC 1

    endif

endif

if getiscurrentweather RadStormC == 1 && player.isininterior == 0


    EnableFastTravel 0


    if ( sDoOnce5 == 0 )

        set sDoOnce1 to 0
        set sDoOnce4 to 0
        set sDoOnce5 to 1

        player.CIOS F3NVRad800

    endif

    if ( fTimer2 < 60 )


        set fTimer2 to fTimer2 + GetSecondsPassed

    else

        if ( sDoOnce2 == 0 )

            set sDoOnce2 to 1
            imod BloodISFXd 1

            imod F3NVDblV 1

            F3NVhbEXT.enable 1
            F3NVhbEXT.moveto player 0 0 0

            sgtm .2


        endif

    endif

endif




if player.isininterior == 1

    setweather Cloudy06 1

    SetQuestDelay F3NVRadStorm 0

    if ( sNewhour < gamehour )


        set sHRSoundREF to 0
        set sHRThSoundREF to 0
        set sThSoundREF to 0
        set SirenINT to 0
        fw Cloudy06 1
    endif


    set sDoOnce1 to 0
    set sDoOnce4 to 0
    set sDoOnce5 to 0
    rimod F3NVDblV 1

    F3NVSirenREF.disable 0
    F3NVSirenREF.moveto rainset 0 0 0
    F3NVhbEXT.disable 0
    F3NVhbEXT.moveto rainset 0 0 0
    player.removespell F3NVRad800


    sgtm 1

        if ( sDoOnce2 == 1 )


            set sDoOnce1 to 0
            rimod F3NVDblV 1
            imod F3NVDblVFade 1

        endif

    player.removespell F3NVRad200



endif

endif

end